mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
53 lines
2.2 KiB
QBasic
53 lines
2.2 KiB
QBasic
10 X=400
|
||
20 CLS
|
||
30 KEY OFF
|
||
40 GOSUB 490
|
||
50 A=12:B=A:C=A:D=A:E=A:F=14:G=10:H=A:I=A:J=G:K=F:L=A:M=A:N=A:O=A:P=A
|
||
60 GOSUB 350
|
||
70 A=0:GOSUB 340:E=0:GOSUB 340:I=0:GOSUB 340:M=0:GOSUB 340
|
||
80 B=0:GOSUB 340:F=0:GOSUB 340:J=0:GOSUB 340:N=0:GOSUB 340
|
||
90 C=0:GOSUB 340:G=0:GOSUB 340:K=0:GOSUB 340:O=0:GOSUB 340
|
||
100 D=0:GOSUB 340:H=0:GOSUB 340:L=0:GOSUB 340:P=0:GOSUB 340
|
||
110 X=300:FOR Z=0 TO 5000:NEXT Z
|
||
120 GOSUB 510
|
||
130 REM HAUPTTEIL
|
||
140 Q=INT(RND*(2)):IF Q=1 THEN A=12 ELSE A=0
|
||
150 IF U>=V THEN A=0:W=W+1
|
||
160 IF W=20 THEN W=0:U=0:GOSUB 490
|
||
170 IF U/Y=INT(U/Y) THEN FOR Z=0 TO 3000:NEXT Z:GOSUB 510
|
||
180 A$=INKEY$
|
||
190 IF A$=CHR$(27) THEN END
|
||
200 IF A$="+" THEN X=X+10
|
||
210 IF A$="-" THEN X=X-10:IF X<0 THEN X=0
|
||
220 GOSUB 340
|
||
230 P=L:L=H:H=D:D=O
|
||
240 C=N:B=M:M=I:I=E:E=A
|
||
250 IF K=14 THEN O=12 ELSE O=0
|
||
260 IF G=10 THEN K=14 ELSE K=0
|
||
270 IF C=12 THEN G=10 ELSE G=0
|
||
280 IF J=10 THEN N=12 ELSE N=0
|
||
290 IF F=14 THEN J=10 ELSE J=0
|
||
300 IF B=12 THEN F=14 ELSE F=0
|
||
310 U=U+1
|
||
320 GOTO 140
|
||
330 END
|
||
340 LOCATE 1,1
|
||
350 COLOR A:PRINT" ÜÜÜ ";:COLOR E:PRINT" ÜÜÜ ";:COLOR I:PRINT" ÜÜÜ ";:COLOR M:PRINT" ÜÜÜ "
|
||
360 COLOR A:PRINT"ÛÛÛÛÛ ";:COLOR E:PRINT"ÛÛÛÛÛ ";:COLOR I:PRINT"ÛÛÛÛÛ ";:COLOR M:PRINT"ÛÛÛÛÛ "
|
||
370 COLOR A:PRINT" ßßß ";:COLOR E:PRINT" ßßß ";:COLOR I:PRINT" ßßß ";:COLOR M:PRINT" ßßß "
|
||
380 COLOR B:PRINT" ÜÜÜ ";:COLOR F:PRINT" ÜÜÜ ";:COLOR J:PRINT" ÜÜÜ ";:COLOR N:PRINT" ÜÜÜ "
|
||
390 COLOR B:PRINT"ÛÛÛÛÛ ";:COLOR F:PRINT"ÛÛÛÛÛ ";:COLOR J:PRINT"ÛÛÛÛÛ ";:COLOR N:PRINT"ÛÛÛÛÛ "
|
||
400 COLOR B:PRINT" ßßß ";:COLOR F:PRINT" ßßß ";:COLOR J:PRINT" ßßß ";:COLOR N:PRINT" ßßß "
|
||
410 COLOR C:PRINT" ÜÜÜ ";:COLOR G:PRINT" ÜÜÜ ";:COLOR K:PRINT" ÜÜÜ ";:COLOR O:PRINT" ÜÜÜ "
|
||
420 COLOR C:PRINT"ÛÛÛÛÛ ";:COLOR G:PRINT"ÛÛÛÛÛ ";:COLOR K:PRINT"ÛÛÛÛÛ ";:COLOR O:PRINT"ÛÛÛÛÛ "
|
||
430 COLOR C:PRINT" ßßß ";:COLOR G:PRINT" ßßß ";:COLOR K:PRINT" ßßß ";:COLOR O:PRINT" ßßß "
|
||
440 COLOR D:PRINT" ÜÜÜ ";:COLOR H:PRINT" ÜÜÜ ";:COLOR L:PRINT" ÜÜÜ ";:COLOR P:PRINT" ÜÜÜ "
|
||
450 COLOR D:PRINT"ÛÛÛÛÛ ";:COLOR H:PRINT"ÛÛÛÛÛ ";:COLOR L:PRINT"ÛÛÛÛÛ ";:COLOR P:PRINT"ÛÛÛÛÛ "
|
||
460 COLOR D:PRINT" ßßß ";:COLOR H:PRINT" ßßß ";:COLOR L:PRINT" ßßß ";:COLOR P:PRINT" ßßß "
|
||
470 FOR Z=0 TO X:NEXT
|
||
480 RETURN
|
||
490 V=INT(RND*(20))+30
|
||
500 RETURN
|
||
510 Y=INT(RND*(10))+10
|
||
520 RETURN
|
||
|