22 lines
468 B
QBasic
22 lines
468 B
QBasic
' 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
|