10 CLS
20 B=1
30 C=1
40 D=3
50 A=INT(RND(1)*255)
60 IF A=12 OR A=7 THEN GOTO 50
70 IF D=2 THEN GOTO 90
80 LOCATE B,C:PRINT USING"###";A;
90 IF D=1 THEN GOTO 110
100 LOCATE B,C+5:PRINT CHR$(A)
110 B=B+1
120 IF B>21 AND C=1 THEN B=1:C=10
130 IF B>21 AND C=10 THEN B=1:C=20
140 IF B>21 AND C=20 THEN B=1:C=30
150 IF B>21 AND C=30 THEN B=1:C=40
160 IF B>21 AND C=40 THEN B=1:C=50
170 IF B>21 AND C=50 THEN B=1:C=60
180 IF B>21 AND C=60 THEN B=1:C=70
190 IF B>21 AND C=70 THEN GOSUB 210
200 GOTO 50
210 REM Schleife 001
220 B=1:C=1
230 RETURN