136 Motocross
220 C=231:FOR F=X TO 30:TS=INT((TIME-TI M)/300):LOCATE 27,1: PRINT MID$(STRS(TS), 2);: LOCATE F+1,Y+1:PRINT" ";CHRS(C):FOR Z=1 TO 100:NEXT:C=C-(C<234)-(3 AND C=234 ) : SOUND 1,90,3:NEXT F
230 CLS:PEN 2:PRINT"Bad luck! You crashe d.":PEN 1:GOTO 840
240 LOCATE X+1,Y+1:PRINT" ";:LOCATE X+2, Y: PEN 3:PRINT CHR$(231);:PEN 1
250 FOR f=-15 TO 15:SOUND 1,(f+100),3:NE XT
260 LOCATE X+2,Y:PRINT" ";:LOCATE X+3,Y+ I:PEN 3:PRINT CHR$(231):X=X+2:PEN 1:RETU RN
270 REM
280 CLS
290 LOCATE 1,2:PEN 2:PRINT"Your time was ";:PEN 3:PRINT ts;:PEN 2:PRINT"seconds": PEN 1
300 IF TS>HS THEN PRINT:PRINT"That's is a new fast time!":HS=TS
310 PEN 3:PRINT:PRINT"The best time is"; : PEN 1: PRINT HS; : PEN 3:PRINT"Seconds.":P EN 1
320 GOTO 840
330 FOR G=21 TO 6 STEP -5:LOCATE (RND*20 +7),G:PRINT CHRS(235);:LOCATE (RND*20+7) ,G:PRINT CHR$(235);:FOR F=0 TO 31:LOCATE F+1,G+1:PRINT" ":NEXT F,G
340 Y=5:X=0:S=20
350 RETURN
360 CLS #1:WINDOW #0,5,36,1,25:PAPER #0, 0:PEN #0,1:BUSES =5:CLS #0
370 Y=5:X=0:S=10
380 LOCATE 12,1:PEN 3:PRINT BUSES;"BUSES ":PEN 1
390 GOSUB 640
400 LOCATE X+1,Y+1:PEN 3:PRINT" ";CHR$(2 31); :PEN 1:SOUND 1,180,1
410 FOR F=1 TO S:NEXT
420 X=X+I:IF X=3I THEN LOCATE 32,Y+1:PRI NT" ":X=0:Y=Y+5
430 LOCATE X+2,Y+1:CALL 360:K=PEEK(367): IF K<>32 THEN 490