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
|
|||
|
|
|