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

Unternehmer2

Uploader:Redakteurytwinky
Datum/Zeit:15.12.2007 21:08:52

Const Esc=!"\27"
Dim As String s="", z
  Do While Inkey<>Esc
    Get #1,, b
    z=b
    Select Case b
      Case 24
        strtemp=chr(b)
        z=""
      Case 13
        Print strtemp
        s+=strtemp
        z=""
      Case else: strtemp+=chr(b)
    End Select
    If z<>b Then ?"Ein neues Zeichen ist da.."
  Loop
Open irgendwas For Output As #3
  Print #3, s
Close #3
close #1
close #2