Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Für den Unternehmer

Uploader:Redakteurytwinky
Datum/Zeit:15.12.2007 20:55:28

Dim As String s=""
  Do While Inkey <> chr(27)
    Get #1,, b
        Select Case b
          Case 24:strtemp=chr(b)
      Case 13
        Print strtemp
        s+=strtemp
      Case else: strtemp=strtemp+chr(b)
    End Select
  Loop
Open irgendwas For Output As #3
  Print #3, s
Close #3
close #1
close #2