Motocross 137
440 IF INKEY(9)=0 THEN 490
450 IF INKEY(1)=0 THEN S=S+1
460 IF INKEY(8)=0 THEN 5=5-1
470 IF 5<1 THEN 5=1
480 GOTO 400
490 LOCATE X+1,Y+1:PRINT" ";:LOCATE X+2, Y:PEN 3:PRINT CHR$(231);:PEN 1:SOUND 1,( S+100),4
500 LOCATE X+2,Y:PRINT" ";:LOCATE X+3,Y- 1:PEN 3:PRINT CHR$(231):PEN 1:SOUND 2,(S +70),4
510 X=X+2:FOR F=X TO (X+20-S):SOUND 2,(S +100),4:LOCATE F+1,Y-1:PEN 3:PRINT " ";C HR$(231):PEN 1:NEXT F
520 LOCATE F+1,Y-1:PRINT" ";:LOCATE F+2, Y:PEN 3:PRINT CHR$(231):PEN 1:SOUND 1, ( S+75),4
530 IF TEST((F+2)*16+62,65) <> 1 THEN 60
540 FOR X=F+1 TO 30:LOCATE X+1,Y:PEN 3:P RINT " ";CHR$(231);:PEN 1
550 SOUND 2,(S+100),4
560 LOCATE X+2,Y+1:CALL 360:K=PEEK(367): IF K=32 THEN LOCATE X+2,Y:PRINT "
570 NEXT X
580 CLS:BUSES=BUSES+1
590 GOTO 370
600 LOCATE F+2,Y:PRINT" ":C=231:FOR X=F+ 1 TO 31:SOUND 1,120,3:LOCATE X+1,Y+1:PRI NT" u;CHR$(C):C=C-(C<234)-(3 AND C=234): NEXT
610 CLS:LOCATE 1,1:PEN 2:PRINT"You faile d in your attempt at";:PEN 3:PRINT BUSES ;:PEN 2:PRINT"BUSES.":PEN 1
620 IF BUSES-1>WR THEN PRINT:PRINT"Howev er, your successeful jump over";:PEN 3: PRINT BUSES-1;:PEN 1:PRINT"Buses is a ne w world";:PRINT"record' I I  ":WR=BUSES-1 630 GOTO 840
640 FOR F=21 TO 6 STEP -5:FOR 6=0 TO 31: LOCATE 6+1,F+1:PRINT" ":SOUND 2,(F*2+150 ),2: NEXT G,F