mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
23 lines
612 B
QBasic
23 lines
612 B
QBasic
10 CLS
|
||
20 A=0:B=1:C=1
|
||
30 LOCATE B,C:PRINT USING"### ";A;:PRINT CHR$(A)
|
||
40 A=A+1
|
||
50 B=B+1
|
||
60 IF B>21 AND C=1 THEN B=1:C=10
|
||
61 IF B>21 AND C=10 THEN B=1:C=20
|
||
62 IF B>21 AND C=20 THEN B=1:C=30
|
||
63 IF B>21 AND C=30 THEN B=1:C=40
|
||
64 IF B>21 AND C=40 THEN B=1:C=50
|
||
65 IF B>21 AND C=50 THEN B=1:C=60
|
||
66 IF B>21 AND C=60 THEN B=1:C=70
|
||
67 IF B>21 AND C=70 THEN GOSUB 110
|
||
70 IF A=7 THEN A=A+1
|
||
80 IF A=12 THEN A=A+1
|
||
90 IF A>255 THEN LOCATE 23,1:END
|
||
100 GOTO 30
|
||
110 REM Warteschleife
|
||
120 LOCATE 23,1:PRINT" Bitte Taste dr<64>cken, wenn bereit."
|
||
130 A$=INKEY$:IF A$="" THEN 130
|
||
140 B=1:C=1:CLS
|
||
150 RETURN
|
||
|