mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-09 23:06:45 +00:00
60 lines
2.5 KiB
QBasic
60 lines
2.5 KiB
QBasic
|
10 CLS
|
|||
|
|
20 S=0
|
|||
|
|
30 REM COLOR 12=ROT
|
|||
|
|
40 REM COLOR 10=GR<47>N
|
|||
|
|
50 REM COLOR 14=GELB
|
|||
|
|
60 A$=INKEY$:IF A$="" THEN 60
|
|||
|
|
70 IF A$="+" THEN GOTO 110
|
|||
|
|
80 IF A$="-" THEN GOTO 600
|
|||
|
|
90 SOUND 1000,10
|
|||
|
|
100 GOTO 60
|
|||
|
|
110 S=S+1
|
|||
|
|
120 IF S=1 THEN CLS:COLOR 10:PRINT"|":GOSUB 330
|
|||
|
|
130 IF S=2 THEN CLS:COLOR 10:PRINT"||":GOSUB 330
|
|||
|
|
140 IF S=3 THEN CLS:COLOR 10:PRINT"|||":GOSUB 330
|
|||
|
|
150 IF S=4 THEN CLS:COLOR 10:PRINT"||||":GOSUB 330
|
|||
|
|
160 IF S=5 THEN CLS:COLOR 10:PRINT"|||||":GOSUB 330
|
|||
|
|
170 IF S=6 THEN CLS:COLOR 10:PRINT"||||||":GOSUB 330
|
|||
|
|
180 IF S=7 THEN CLS:COLOR 10:PRINT"|||||||":GOSUB 330
|
|||
|
|
190 IF S=8 THEN CLS:COLOR 10:PRINT"||||||||":GOSUB 330
|
|||
|
|
200 IF S=9 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|":GOSUB 330
|
|||
|
|
210 IF S=10 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"||":GOSUB 330
|
|||
|
|
220 IF S=11 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||":GOSUB 330
|
|||
|
|
230 IF S=12 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"||||":GOSUB 330
|
|||
|
|
240 IF S=13 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||":GOSUB 330
|
|||
|
|
250 IF S=14 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"||||||":GOSUB 330
|
|||
|
|
260 IF S=15 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||":GOSUB 330
|
|||
|
|
270 IF S=16 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"|":GOSUB 330
|
|||
|
|
280 IF S=17 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"||":GOSUB 330
|
|||
|
|
290 IF S=18 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"|||":GOSUB 330
|
|||
|
|
300 IF S=19 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"||||":GOSUB 330
|
|||
|
|
310 IF S=20 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"|||||":GOSUB 330
|
|||
|
|
315 IF S=21 THEN S=20:SOUND 1500,1
|
|||
|
|
320 GOTO 60
|
|||
|
|
330 COLOR 9
|
|||
|
|
340 IF S=1 THEN PRINT "005 %"
|
|||
|
|
350 IF S=2 THEN PRINT "010 %"
|
|||
|
|
360 IF S=3 THEN PRINT "015 %"
|
|||
|
|
370 IF S=4 THEN PRINT "020 %"
|
|||
|
|
380 IF S=5 THEN PRINT "025 %"
|
|||
|
|
390 IF S=6 THEN PRINT "030 %"
|
|||
|
|
400 IF S=7 THEN PRINT "035 %"
|
|||
|
|
410 IF S=8 THEN PRINT "040 %"
|
|||
|
|
420 IF S=9 THEN PRINT "045 %"
|
|||
|
|
430 IF S=10 THEN PRINT "050 %"
|
|||
|
|
440 IF S=11 THEN PRINT "055 %"
|
|||
|
|
450 IF S=12 THEN PRINT "060 %"
|
|||
|
|
460 IF S=13 THEN PRINT "065 %"
|
|||
|
|
470 IF S=14 THEN PRINT "070 %"
|
|||
|
|
480 IF S=15 THEN PRINT "075 %"
|
|||
|
|
490 IF S=16 THEN PRINT "080 %"
|
|||
|
|
500 IF S=17 THEN PRINT "085 %"
|
|||
|
|
510 IF S=18 THEN PRINT "090 %"
|
|||
|
|
520 IF S=19 THEN PRINT "095 %"
|
|||
|
|
530 IF S=20 THEN PRINT "100 %":SOUND 2000,2.5
|
|||
|
|
540 RETURN
|
|||
|
|
600 S=S-1
|
|||
|
|
601 IF S=0 THEN CLS:COLOR 9:PRINT:PRINT"000 %"
|
|||
|
|
602 IF S=-1 THEN S=0:SOUND 1500,1
|
|||
|
|
610 GOTO 120
|
|||
|
|
|