mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
40 lines
1.3 KiB
QBasic
40 lines
1.3 KiB
QBasic
10 CLS
|
||
20 PRINT"******************** Outrun-Motor-Sound ********************"
|
||
30 PRINT
|
||
40 PRINT"Bitte benutzen Sie die Tasten auf dem rechten Feld >>> 8,2,+,-,*,/,9,3,7,1,0, [SPACE]"
|
||
50 PRINT
|
||
60 PRINT"Zum abbrechen bitte Space dr<64>cken !!!"
|
||
70 PRINT
|
||
80 PRINT"Zum Start bitte Taste dr<64>cken !!!"
|
||
90 A$=INKEY$:IF A$="" THEN 90
|
||
100 CLS
|
||
110 LOCATE 1,1:PRINT
|
||
120 PRINT"8= +1 2= -1"
|
||
130 PRINT"+= +10 -= -10"
|
||
140 PRINT"*= +100 /= -100"
|
||
150 PRINT"9= +1000 3= -1000"
|
||
160 PRINT"7= abschreckton [ca. 2.5 sec.] 1= abschreckton [dauer]"
|
||
170 IF A>0 THEN LOCATE 15,30:PRINT " +";A;" "
|
||
180 IF A<0 THEN LOCATE 15,30:PRINT " ";A;" "
|
||
190 IF A=0 THEN LOCATE 15,30:PRINT" +/-";A;" "
|
||
200 IF A<-3650 THEN A=-3600
|
||
210 SOUND 3700+A,1
|
||
220 B$=INKEY$:IF B$="8" THEN 360
|
||
230 IF B$="2" THEN 380
|
||
240 IF B$=" " THEN PRINT"^C":PRINT"BREAK in 170":END
|
||
250 IF B$="0" THEN A=0
|
||
260 IF B$="+" THEN A=A+10
|
||
270 IF B$="-" THEN A=A-10
|
||
280 IF B$="/" THEN A=A-100
|
||
290 IF B$="*" THEN A=A+100
|
||
300 IF B$="9" THEN A=A+1000
|
||
310 IF B$="3" THEN A=A-1000
|
||
320 IF B$="7" THEN SOUND 3077,20
|
||
330 IF B$="1" THEN A=-610
|
||
340 IF A>29050 THEN A=29000
|
||
350 GOTO 170
|
||
360 A=A+1
|
||
370 GOTO 170
|
||
380 A=A-1
|
||
390 GOTO 170
|
||
|