track = 1
miles = 0

10 SCREEN 9

move = 0
left = 0
right = 0
up = 0

CLS

DRAW "bd90"
car$ = "l10dr10dl10dr10dl10l4u2d4lu4ld4lu4d4r3u2r14r4u2d4ru4rd4ru4d4l3u2l4dl10dr10dl10dr10dl11r12drl14dr14dl14dr14dl14dr14r4u3d6ru6rd6ru6rd6l4u3l4l18u3d6lu6ld6lu6ld6r4u3r4dr14dl14r1dr12l3dul6du"
DRAW "c15x" + VARPTR$(car$)

LOCATE 1, 1
PRINT "-- TURBO RACER(C) --"
LOCATE 3, 1
PRINT "MILES DRIVEN:"; miles; ""
LOCATE 4, 48
PRINT "......"
            
DRAW "bl27bd15"
track$ =  _
"u5r5d5l5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u5r5u5l5d5u5r5u5r5d5l5u5r5u5r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10r5d5l5r5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5u10r5d5u10l5d5" _

DRAW "c15x" + VARPTR$(track$)
DRAW "bl28bd285"
DRAW "c15x" + VARPTR$(track$)
DRAW "bd252bl107"
DRAW "c15x" + VARPTR$(car$)

IF miles = 0 THEN GOTO 11
IF miles > 0 THEN GOTO USERKEYS

11 SLEEP 1
SCALE$ = "DGA-5 DGGGDGA-2"
PLAY "L14"
FOR I% = 0 TO .1
PLAY "O" + STR$(I%)
PLAY "X" + VARPTR$(SCALE$)
NEXT

SLEEP 2
LOCATE 5, 1
PRINT "TIME (1)"
BEEP
SLEEP 1
LOCATE 5, 1
PRINT "TIME (2)"
BEEP
SLEEP 1
LOCATE 5, 1
PRINT "TIME (3)"
BEEP
SLEEP 1
LOCATE 5, 1
PRINT "TIME GO "
BEEP
SLEEP 1
SLEEP 1
LOCATE 5, 1
PRINT "                           "
LOCATE 1, 1

USERKEYS: DO
user.key$ = INKEY$
SELECT CASE user.key$
CASE "8": IF up = 26 AND left = 0 THEN GOTO FCRASH
        : IF up = 25 AND right = 1 THEN GOTO FCRASH
        : IF up = 22 AND left = 1 THEN GOTO FCRASH
        : IF up = 24 AND right = 2 THEN GOTO FCRASH
        : IF up = 29 THEN GOTO FCRASH
        : IF up = 30 THEN GOTO FCRASH
        : IF up = 31 AND right = 3 THEN GOTO FCRASH
        : IF up = 31 AND right = 4 THEN GOTO FCRASH
        : IF up = 32 AND right = 5 THEN GOTO FCRASH
        : IF up = 33 AND right = 5 THEN GOTO FCRASH
        : IF up = 34 AND right = 6 THEN GOTO FCRASH
        : IF up = 35 AND right = 7 THEN GOTO FCRASH
        : IF up > 38 AND up > 39 AND right > 5 AND right < 13 THEN GOTO FCRASH
        : DRAW "bu18br8": DRAW "c0x" + VARPTR$(car$): DRAW "bu21br8": DRAW "c15x" + VARPTR$(car$): up = up + 1: EXIT DO
CASE "4": IF up < 25 AND left = 1 THEN GOTO LCRASH
        : IF up = 25 AND left = 0 THEN GOTO LCRASH
        : IF up = 26 AND left = 0 THEN GOTO LCRASH
        : IF up = 27 AND right = 1 THEN GOTO LCRASH
        : IF up = 28 AND right > -1 AND right < 14 THEN GOTO LCRASH
        : IF up < 45 AND right > -1 AND right < 14 THEN GOTO LCRASH
        : IF up > 48 AND up < 62 AND left > 1 AND right < 18 THEN GOTO LCRASH
        : IF up > 39 AND up < 67 AND right >= 13 THEN GOTO LCRASH
        : IF up > 63 AND right > 16 AND right < 24 THEN GOTO LCRASH
        : DRAW "bu18br8": DRAW "c0x" + VARPTR$(car$): DRAW "bu21bl1": DRAW "c15x" + VARPTR$(car$): up = up + 1: left = left + 1: IF right > 0 THEN right = right - 1: EXIT DO
CASE "6": IF up < 27 AND right = 2 THEN GOTO RCRASH
        : IF up < 33 AND right > 5 THEN GOTO RCRASH
        : IF up = 38 AND right = 11 THEN GOTO RCRASH
        : IF up > 38 AND up < 46 AND right > 13 THEN GOTO RCRASH
        : IF up > 46 AND right > 16 THEN GOTO RCRASH
        : DRAW "bu18br8": DRAW "c0x" + VARPTR$(car$): DRAW "bu21br12": DRAW "c15x" + VARPTR$(car$): up = up + 1: right = right + 1: IF left > 0 THEN left = left - 1: EXIT DO

END SELECT
LOOP UNTIL up = 69
IF up = 69 THEN GOTO ENDTRACK
IF up < 70 THEN GOTO USERKEYS

LCRASH: DRAW "bu18br8": DRAW "c0x" + VARPTR$(car$): DRAW "bu21bl16": DRAW "c15x" + VARPTR$(car$): FOR n = 37 TO 60 STEP 5: SOUND n, 1: NEXT
SLEEP 1: SLEEP 1: GOTO CRASH
RCRASH: DRAW "bu18br8": DRAW "c0x" + VARPTR$(car$): DRAW "bu21br27": DRAW "c15x" + VARPTR$(car$): FOR n = 37 TO 60 STEP 5: SOUND n, 1: NEXT
SLEEP 1: SLEEP 1: GOTO CRASH
FCRASH: DRAW "bu18br8": DRAW "c0x" + VARPTR$(car$): DRAW "bu33br8": DRAW "c15x" + VARPTR$(car$): FOR n = 37 TO 60 STEP 5: SOUND n, 1: NEXT
SLEEP 1: SLEEP 1: GOTO CRASH

ENDTRACK: track = track + 1: miles = miles + 10: GOTO 10

CRASH: CLS
PRINT "Number of miles travelled:"; miles; ""

QUIT: LOCATE 2, 1
INPUT "Would you like to play again (Y/N)"; a$
IF a$ = "Y" OR a$ = "y" THEN GOTO 10
IF a$ = "N" OR a$ = "n" THEN GOTO ABSOLUTEEND
LOCATE 2, 1: PRINT  _
"                                                                                                                                                                                                                                                                                                                                                                                                      " _
: GOTO QUIT
ABSOLUTEEND: CLS : END