gwbasic/STEUER2.BAS

10 CLS:LOCATE 1,1
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 LOCATE 1,1:COLOR 10:PRINT"<22> ":GOSUB 330
130 IF S=2 THEN LOCATE 1,1:COLOR 10:PRINT"<22><> ":GOSUB 330
140 IF S=3 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD> ":GOSUB 330
150 IF S=4 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD> ":GOSUB 330
160 IF S=5 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
170 IF S=6 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
180 IF S=7 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
190 IF S=8 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
200 IF S=9 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22> ":GOSUB 330
210 IF S=10 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><> ":GOSUB 330
220 IF S=11 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD> ":GOSUB 330
230 IF S=12 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD> ":GOSUB 330
240 IF S=13 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
250 IF S=14 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
260 IF S=15 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
270 IF S=16 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 12:PRINT"<22> ":GOSUB 330
280 IF S=17 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 12:PRINT"<22><> ":GOSUB 330
290 IF S=18 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 12:PRINT"<22><><EFBFBD> ":GOSUB 330
300 IF S=19 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 12:PRINT"<22><><EFBFBD><EFBFBD> ":GOSUB 330
310 IF S=20 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 12:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 330
315 IF S=21 THEN S=20:SOUND 1500,1
320 GOTO 60
330 REM color 14
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