Fixed DOS encodings using: iconv -f CP852
[mirrors/Programs.git] / turbobasic / INKEY.BAS
1 cls
2
3 FOR I=1 TO 100
4 A$=INKEY$
5 IF LEN(A$)<>0 THEN ANO
6 PRINT A$
7 NEXT I
8
9 GOTO NE
10
11 ANO:
12 PRINT " ANO "
13 END
14
15 NE:
16 PRINT " NE "\1a
This page took 0.269768 seconds and 4 git commands to generate.