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