mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 01:06:45 +00:00
24 lines
562 B
QBasic
24 lines
562 B
QBasic
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
|
||
|