gwbasic/STEUER4.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 210
80 IF A$="-" THEN GOTO 660
90 IF A$="0" THEN S=0:GOSUB 440
100 IF A$="1" THEN S=1:GOTO 210
110 IF A$="2" THEN S=3:GOTO 210
120 IF A$="3" THEN S=5:GOTO 210
130 IF A$="4" THEN S=7:GOTO 210
140 IF A$="5" THEN S=9:GOTO 210
150 IF A$="6" THEN S=11:GOTO 210
160 IF A$="7" THEN S=13:GOTO 210
170 IF A$="8" THEN S=15:GOTO 210
180 IF A$="9" THEN S=17:GOTO 210
190 SOUND 1000,10
200 GOTO 60
210 S=S+1
220 IF S=1 THEN LOCATE 1,1:COLOR 10:PRINT"<22> ":GOSUB 440
230 IF S=2 THEN LOCATE 1,1:COLOR 10:PRINT"<22><>                    ":GOSUB 440
240 IF S=3 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD> ":GOSUB 440
250 IF S=4 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD>                     ":GOSUB 440
260 IF S=5 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 440
270 IF S=6 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            ":GOSUB 440
280 IF S=7 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ":GOSUB 440
290 IF S=8 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>            ":GOSUB 440
300 IF S=9 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22> ":GOSUB 440
310 IF S=10 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><>           ":GOSUB 440
320 IF S=11 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD> ":GOSUB 440
330 IF S=12 THEN LOCATE 1,1:COLOR 10:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";:COLOR 14:PRINT"<22><><EFBFBD><EFBFBD>           ":GOSUB 440
340 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 440
350 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 440
360 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 440
370 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 440
380 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 440
390 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 440
400 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 440
410 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 440
420 IF S=21 THEN S=20:SOUND 1500,1
430 GOTO 60
440 REM color 14
450 IF S=1 THEN PRINT "005 %":SOUND 2000,2.5
460 IF S=2 THEN PRINT "010 %":SOUND 2000,2.5
470 IF S=3 THEN PRINT "015 %":SOUND 2000,2.5
480 IF S=4 THEN PRINT "020 %":SOUND 2000,2.5
490 IF S=5 THEN PRINT "025 %":SOUND 2000,2.5
500 IF S=6 THEN PRINT "030 %":SOUND 2000,2.5
510 IF S=7 THEN PRINT "035 %":SOUND 2000,2.5
520 IF S=8 THEN PRINT "040 %":SOUND 2000,2.5
530 IF S=9 THEN PRINT "045 %":SOUND 2250,2.5
540 IF S=10 THEN PRINT "050 %":SOUND 2250,2.5
550 IF S=11 THEN PRINT "055 %":SOUND 2250,3.155444E-29085 %"
620 IF S=18 THEN PRINT "090 %"
630 IF S=19 THEN PRINT "095 %"
640 IF S=20 THEN PRINT "100 %":SOUND 2000,2.5
650 RETURN
660 S=S-1
670 IF S=0 THEN CLS:COLOR 9:PRINT:PRINT"000 %"
680 IF S=-1 THEN S=0:SOUND 1500,1
690 GOTO 220