Laufzeit-Eingabe und Zonenzustand korrigieren und Change archivieren
This commit is contained in:
21
tests/compat/eingabefortschritt.bas
Normal file
21
tests/compat/eingabefortschritt.bas
Normal file
@@ -0,0 +1,21 @@
|
||||
' tb-screen: 80x25
|
||||
' tb-tempdir
|
||||
' tb-keys: <F1>ä😀
|
||||
' TerminalBasic-Codepointvertrag; keine historische Bytekompatibilitaet.
|
||||
a$ = INPUT$(1)
|
||||
b$ = INPUT$(1)
|
||||
PRINT LEN(a$); ASC(a$); LEN(b$); ASC(b$); INPUT$(2)
|
||||
OPEN "eingabe.txt" FOR OUTPUT AS #1
|
||||
WRITE #1, "a,b", "ä😀", 5
|
||||
WRITE #1, "Ende"
|
||||
CLOSE
|
||||
OPEN "eingabe.txt" FOR INPUT AS #1
|
||||
INPUT #1, a$
|
||||
INPUT #1, b$, n%
|
||||
PRINT a$; ":"; b$; n%
|
||||
PRINT INPUT$(1, #1)
|
||||
LINE INPUT #1, a$
|
||||
PRINT a$; EOF(1)
|
||||
CLOSE
|
||||
KILL "eingabe.txt"
|
||||
END
|
||||
Reference in New Issue
Block a user