mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 09:16:45 +00: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
|
|||
|
|
|