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cken, wenn bereit."
130 A$=INKEY$:IF A$="" THEN 130
140 B=1:C=1:CLS
150 RETURN