'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
DECLARE SUB track2 (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
DECLARE SUB controls (up$, dwn$, lft$, rght$, asi$)
DECLARE SUB intro (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$)
DECLARE SUB options (option$, mcc%, mcsc%, mcfc%, asi$)
DECLARE SUB gamemenu (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
DECLARE SUB track1 (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
DECLARE SUB trackmenu (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$, rtn%, trt1$)
   
    mcc% = 4
    mcsc% = 1
    mcfc% = 15
    up$ = "8"    'asc
    dwn$ = "2"
    lft$ = "4"
    rght$ = "6"
    rtn% = 1
enter:
  CALL intro(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$)
    IF option$ = "O" THEN
  CALL options(option$, mcc%, mcsc%, mcfc%, asi$)
   GOTO enter
    END IF
    IF option$ = "SC" THEN
  CALL controls(up$, dwn$, lft$, rght$, asi$)
   GOTO enter
    END IF
    IF option$ = "P" THEN
aftertrackmenu:
  CALL gamemenu(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
    IF option$ = "r1e" OR option$ = "r1h" THEN
aftertrackmenu2:
  CALL trackmenu(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$, rtn%, trt$)
    IF rtn% = 1 THEN
  CALL track1(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
  CALL trackmenu(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$, rtn%, trt$)
    END IF
    IF rtn% = 2 THEN
  CALL track2(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
  CALL trackmenu(option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$, rtn%, trt$)
   ELSE
    GOTO aftertrackmenu
    END IF
    END IF
   GOTO aftertrackmenu2
    END IF
IntSet:
    i% = 500
    ssc% = 0
    LOCATE 12, 20
    r% = CSRLIN
    c% = POS(0)

SUB controls (up$, dwn$, lft$, rght$, asi$)
    asi$ = "y"
    earth% = 0
conmen:
    COLOR 2, earth%
    CLS
    DO
    LOCATE 10, 26: COLOR 10, 1: PRINT "         Your Controls         "
    LOCATE 11, 26: COLOR 7, earth%: PRINT "press   to change button for UP"
    LOCATE 11, 32: COLOR 12, earth%: PRINT up$
    LOCATE 12, 26: COLOR 7, earth%: PRINT "press   to change button for DOWN"
    LOCATE 12, 32: COLOR 12, earth%: PRINT dwn$
    LOCATE 13, 26: COLOR 7, earth%: PRINT "press   to change button for LEFT"
    LOCATE 13, 32: COLOR 12, earth%: PRINT lft$
    LOCATE 14, 26: COLOR 7, earth%: PRINT "press   to change button for RIGHT"
    LOCATE 14, 32: COLOR 12, earth%: PRINT rght$
    a$ = INKEY$
    LOOP UNTIL a$ <> ""
    IF a$ = up$ THEN GOTO eup
    IF a$ = dwn$ THEN GOTO edwn
    IF a$ = lft$ THEN GOTO elft
    IF a$ = rght$ THEN GOTO erght
    IF a$ = CHR$(27) THEN GOTO conenf
    IF a$ = CHR$(32) THEN GOTO conenf
    GOTO conmen
eup:
    DO
    a$ = INKEY$
    LOOP UNTIL a$ <> ""
    up$ = a$
    GOTO conmen
edwn:
    DO
    a$ = INKEY$
    LOOP UNTIL a$ <> ""
    dwn$ = a$
    GOTO conmen
elft:
    DO
    a$ = INKEY$
    LOOP UNTIL a$ <> ""
    lft$ = a$
    GOTO conmen
erght:
    DO
    a$ = INKEY$
    LOOP UNTIL a$ <> ""
    rght$ = a$
    GOTO conmen
conenf:
PLAY "l8o1g.ggo2l4c"
END SUB

SUB gamemenu (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
    asi$ = "y"
    mcsr% = 12
    msc% = 10
    earth% = 7
    earth3% = 7
    COLOR 1, earth%
    CLS
gmmove:
    a$ = INKEY$
    IF a$ = up$ THEN CLS : mcsr% = mcsr% - 1
    IF a$ = dwn$ THEN CLS : mcsr% = mcsr% + 1
    IF a$ = lft$ THEN CLS : msc% = msc% - 3
    IF a$ = rght$ THEN CLS : msc% = msc% + 3
    IF msc% < 20 AND mcsr% < 14 AND a$ = CHR$(32) THEN option$ = "r1e": GOTO gamemenenf
    IF msc% < 20 AND mcsr% = 14 AND a$ = CHR$(32) THEN option$ = "r1h": GOTO gamemenenf
    IF a$ = CHR$(27) THEN END
    IF mcsr% = 11 THEN mcsr% = 12
    IF mcsr% = 15 THEN mcsr% = 14
    IF msc% = 7 THEN msc% = 10
    IF msc% = 61 THEN msc% = 58
   
    LOCATE mcsr%, msc%: COLOR earth3%, 4: PRINT "Ü"
    LOCATE mcsr%, (msc% + 1): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE (mcsr% + 1), msc%: COLOR 8, 0: PRINT " (¾ "  '14     Ü      \Ü¿
    LOCATE (mcsr% + 1), (msc% + 3): COLOR 7, 0: PRINT "¾"      '15  àßßßÜ==ÞÜ/\ßß
    LOCATE (mcsr% + 1), (msc% + 10): COLOR 8, 0: PRINT " () "
    LOCATE (mcsr% + 1), (msc% + 11): COLOR 7, 0: PRINT "Ô"     '16    (¾ ßßßß  ()
    LOCATE (mcsr% + 2), (msc% + 1): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 4): COLOR mcfc%, mcsc%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 3): COLOR mcfc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% + 2), (msc% + 11): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE (mcsr% + 1), (msc% + 5): COLOR mcc%, earth3%: PRINT "ßßßß"
    LOCATE mcsr%, (msc% + 5): COLOR 8, mcsc%: PRINT "ÎØ"
    LOCATE mcsr%, (msc% + 7): COLOR mcc%, mcsc%: PRINT "ÞÜ"
    LOCATE mcsr%, (msc% + 9): COLOR mcfc%, earth3%: PRINT "Ü\"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 14): COLOR mcfc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 11): COLOR mcc%, earth3%: PRINT "ÜÜ"
    LOCATE (mcsr% - 1), (msc% + 13): COLOR 6, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 10): COLOR mcsc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 9): COLOR mcsc%, earth3%: PRINT "͸"
    LOCATE 12, 15: COLOR 8: PRINT "RACE"
    LOCATE 12, 37: COLOR 8: PRINT "MAKE TRACK"
    LOCATE 12, 63: COLOR 8: PRINT "EXIT"
    IF msc% > 48 THEN LOCATE 12, 63: COLOR 12: PRINT "EXIT"
    IF msc% > 21 AND msc% < 47 THEN LOCATE 12, 37: COLOR 12: PRINT "MAKE TRACK"
    IF msc% < 20 THEN LOCATE 12, 15: COLOR 12: PRINT "RACE"
    IF msc% < 20 AND mcsr% = 13 AND tcgfs$ = "t1cws" THEN LOCATE 13, 27: COLOR 8: PRINT "#"
    IF msc% < 20 AND mcsr% = 13 AND tcgfs$ = "t1cwg" THEN LOCATE 13, 27: COLOR 14: PRINT "#"
    IF msc% < 20 AND mcsr% = 13 THEN LOCATE 13, 15: COLOR 12: PRINT "SLOW (easy)"
    IF msc% < 20 AND mcsr% = 14 AND tcgff$ = "t1cwsf" THEN LOCATE 14, 27: COLOR 8: PRINT "#"
    IF msc% < 20 AND mcsr% = 14 AND tcgff$ = "t1cwgf" THEN LOCATE 14, 27: COLOR 14: PRINT "#"
    IF msc% < 20 AND mcsr% = 14 THEN LOCATE 14, 15: COLOR 12: PRINT "FAST (hard)"
    GOTO gmmove
gamemenenf:
END SUB

SUB intro (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$)
    COLOR 1, 0
    row2% = 1
    col2% = 37
    c% = 1
    row% = 12
    col% = 10
    musr1% = 1
    musr% = 0
    earth% = 0
    earth2% = 0
    wrdc% = 10
    wrdshc% = 2
    IF asi$ = "y" GOTO demo
    CLS
pr:
    b% = 8
    'PLAY "t200l16o1cco0aal16o1cco0bec"
    DO
    CLS
    IF y$ = "y" THEN col% = col% - 3
    IF y$ = "y" THEN b% = b% + 1
    IF b% = 15 THEN b% = b% - 14
    LOCATE (row%), (col%): COLOR b%: PRINT "Glen Barratt"
    row2% = row2% + 1
    IF y$ = "y" THEN GOTO ne
    LOCATE (row2%), (col2%): COLOR 8: PRINT "Glen Barratt"
ne:
    FOR time1% = 10 TO 13
    IF row2% = time1% THEN LOCATE 13, 33: COLOR 8: PRINT "     PRODUCTION  "
    IF row2% = time1% THEN LOCATE 11, 33: COLOR 8: PRINT "         A       "
    NEXT time1%
    FOR time1% = 14 TO 17
    IF row2% = time1% THEN LOCATE 13, 33: COLOR 7: PRINT "     PRODUCTION  "
    IF row2% = time1% THEN LOCATE 11, 33: COLOR 7: PRINT "         A       "
    NEXT time1%
    FOR time1% = 18 TO 90
    IF row2% = time1% THEN LOCATE 13, 33: COLOR 15: PRINT "     PRODUCTION  "
    IF row2% = time1% THEN LOCATE 11, 33: COLOR 15: PRINT "         A       "
    NEXT time1%
    FOR time1% = 90 TO 93
    IF row2% = time1% THEN LOCATE 12, 33: COLOR 7: PRINT "    Glen Barratt"
    IF row2% = time1% THEN LOCATE 13, 33: COLOR 7: PRINT "     PRODUCTION  "
    IF row2% = time1% THEN LOCATE 11, 33: COLOR 7: PRINT "         A       "
    NEXT time1%
    FOR time1% = 94 TO 97
    IF row2% = time1% THEN LOCATE 12, 33: COLOR 8: PRINT "    Glen Barratt"
    IF row2% = time1% THEN LOCATE 13, 33: COLOR 8: PRINT "     PRODUCTION  "
    IF row2% = time1% THEN LOCATE 11, 33: COLOR 8: PRINT "         A       "
    NEXT time1%
    FOR time1% = 98 TO 100
    IF row2% = time1% THEN LOCATE 12, 33: COLOR 0: PRINT "    Glen Barratt              "
    IF row2% = time1% THEN LOCATE 13, 33: COLOR 8: PRINT "                 "
    IF row2% = time1% THEN LOCATE 11, 33: COLOR 8: PRINT "              "
    NEXT time1%

    IF row2% = 11 THEN PLAY "l16o1ac.co0a."
    IF row2% = 11 THEN y$ = "y"
    PLAY "t100p30"
    col% = col% + 3
    IF col% = 58 THEN col% = col% - 45: y$ = "": row2% = row% - 9: b% = 7
    c% = c% + 1
    IF c% = 15 THEN c% = c% - 15
    IF row2% = 100 GOTO enf
    LOOP WHILE INKEY$ = ""
enf:                   'asc ÝÞÛÜßͺij°±²
    COLOR 5, earth%
    CLS
    DO
    'IF musr% > 19 THEN
    'wrdc% = wrdc% + 1
    'IF wrdc% = 16 THEN wrdc% = 9
    'wrdshc% = wrdshc% + 1
    'IF wrdshc% = 8 THEN wrdshc% = 1
    'END IF
    IF musr1% > 1 THEN LOCATE (musr1% - 1), 25: COLOR 1, earth2%: PRINT "      "
    IF musr1% = 11 THEN musr1% = musr1% - 1
    musr1% = musr1% + 1
     LOCATE (musr1% - 1), 25: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÜ"
     LOCATE (musr1%), 25: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÜ "
     LOCATE (musr1% + 1), 25: COLOR wrdc%, wrdshc%: PRINT "Û "
     LOCATE (musr1% + 2), 25: COLOR wrdc%, wrdshc%: PRINT "ßßßß "
     LOCATE (musr1% - 1), 30: COLOR earth%, wrdshc%: PRINT "ß"
     LOCATE (musr1% + 1), 29: COLOR wrdc%, wrdshc%: PRINT "Û "
     LOCATE (musr1% + 1), 27: COLOR wrdc%, earth%: PRINT "  "
     LOCATE (musr1% + 2), 30: COLOR wrdshc%, earth%: PRINT "ß"
    IF musr% > 13 THEN
     LOCATE 10, 32: COLOR wrdc%, wrdshc%: PRINT "ßßßÜ"
     LOCATE 10, 31: COLOR wrdc%, earth%: PRINT "Ü"
     LOCATE 10, 36: COLOR earth%, wrdshc%: PRINT "ß"
     LOCATE 11, 31: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÛ "
     LOCATE 12, 31: COLOR wrdc%, wrdshc%: PRINT "ß "
     LOCATE 12, 35: COLOR wrdc%, wrdshc%: PRINT "ß "
    END IF
    IF musr% > 14 THEN
     LOCATE 10, 37: COLOR wrdc%, wrdshc%: PRINT "ÛÜ"
     LOCATE 10, 39: COLOR wrdshc%, earth%: PRINT "Ü"
     LOCATE 11, 37: COLOR wrdc%, wrdshc%: PRINT "Û ßÜ"
     LOCATE 12, 38: COLOR wrdc%, wrdshc%: PRINT " "
     LOCATE 12, 37: COLOR wrdc%, wrdshc%: PRINT "ß"
     LOCATE 10, 41: COLOR wrdc%, wrdshc%: PRINT "Û "
     LOCATE 11, 41: COLOR wrdc%, wrdshc%: PRINT "Û "
     LOCATE 12, 41: COLOR wrdc%, wrdshc%: PRINT "ß "
     LOCATE 12, 40: COLOR wrdshc%, earth%: PRINT " "
     LOCATE 12, 40: COLOR wrdshc%, earth%: PRINT "ß"
    END IF
    IF musr% > 15 THEN
     LOCATE 10, 43: COLOR wrdc%, wrdshc%: PRINT "ßßßÛ "
     LOCATE 11, 44: COLOR wrdc%, wrdshc%: PRINT "ßß "
     LOCATE 11, 43: COLOR wrdc%, 0: PRINT "Ü"
     LOCATE 12, 43: COLOR wrdc%, wrdshc%: PRINT "ßßßß "
     LOCATE 11, 47: COLOR wrdshc%, earth%: PRINT "ß"
    END IF
    IF musr% > 16 THEN
     LOCATE 10, 49: COLOR wrdc%, wrdshc%: PRINT "ßßßÜ"
     LOCATE 10, 48: COLOR wrdc%, earth%: PRINT "Ü"
     LOCATE 10, 53: COLOR earth%, wrdshc%: PRINT "ß"
     LOCATE 11, 48: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÛ "
     LOCATE 12, 48: COLOR wrdc%, wrdshc%: PRINT "ß "
     LOCATE 12, 52: COLOR wrdc%, wrdshc%: PRINT "ß "
    END IF
    IF musr% > 17 THEN
     LOCATE 10, 54: COLOR wrdc%, wrdshc%: PRINT "ßÛß "
      LOCATE 11, 55: COLOR wrdc%, wrdshc%: PRINT "Û "
     LOCATE 12, 54: COLOR wrdc%, wrdshc%: PRINT "ßßß "
    END IF
    IF musr% > 18 THEN
    LOCATE 13, 35: COLOR 15, 0: PRINT " BIKE TRAILS "
    END IF
    musr% = musr% + 1
    IF musr% = 999 THEN GOTO demo
    IF musr% = 1 THEN PLAY "T125 L32 o1b-c"
    IF musr% = 2 THEN PLAY "cc"
    IF musr% = 3 THEN PLAY "cc"
    IF musr% = 4 THEN PLAY "ccc"
    IF musr% = 5 THEN PLAY "b-c"
    IF musr% = 6 THEN PLAY "cc"
    IF musr% = 7 THEN PLAY "cc"
    IF musr% = 8 THEN PLAY "ccg-"
    IF musr% = 9 THEN PLAY "g-g-"
    IF musr% = 10 THEN PLAY "g-fe-"
    IF musr% = 11 THEN PLAY "o0b-b-b-"
    IF musr% = 14 THEN PLAY "g-fe-"
    IF musr% = 15 THEN PLAY "o0b-b-b-"
    IF musr% = 15 THEN PLAY "g-fe-"
    IF musr% = 17 THEN PLAY "o0b-b-b-"
    IF musr% = 18 THEN PLAY "o0b-b-b-o1l8c"
    LOOP WHILE INKEY$ = ""
    COLOR 5, 3
    earth% = 3
    CLS
demo:
    COLOR 5, 3
    earth% = 3
    CLS
    earth3% = 3
    mcsr% = 15
    msc% = 20
    mscc$ = ""
    aNL$ = "c"
doer:
    'IF mscc$ = "" THEN
    a$ = INKEY$
    IF a$ = up$ THEN aNL$ = "": CLS : mcsr% = mcsr% - 2
    IF a$ = dwn$ THEN aNL$ = "": CLS : mcsr% = mcsr% + 2
    IF a$ = CHR$(32) THEN mscc$ = "y"
    IF a$ = CHR$(27) THEN END
    IF mscc$ = "y" THEN msc% = msc% + 1
    IF mscc$ = "y" THEN GOTO bprntr
    IF mcsr% = 21 THEN mcsr% = mcsr% - 2
    IF mcsr% = 13 THEN mcsr% = mcsr% + 2
    PLAY "t255l64o0cda"
    'END IF
    COLOR 8, earth3%

    LOCATE 10, 25: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÜ"
    LOCATE 11, 25: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÜ "
    LOCATE 12, 25: COLOR wrdc%, wrdshc%: PRINT "Û "
    LOCATE 13, 25: COLOR wrdc%, wrdshc%: PRINT "ßßßß "
    LOCATE 10, 30: COLOR earth%, wrdshc%: PRINT "ß"
    LOCATE 12, 29: COLOR wrdc%, wrdshc%: PRINT "Û "
    LOCATE 12, 27: COLOR wrdc%, earth%: PRINT "  "
    LOCATE 13, 30: COLOR wrdshc%, earth%: PRINT "ß"
    LOCATE 10, 32: COLOR wrdc%, wrdshc%: PRINT "ßßßÜ"
    LOCATE 10, 31: COLOR wrdc%, earth%: PRINT "Ü"
    LOCATE 10, 36: COLOR earth%, wrdshc%: PRINT "ß"
    LOCATE 11, 31: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÛ "
    LOCATE 12, 31: COLOR wrdc%, wrdshc%: PRINT "ß "
    LOCATE 12, 35: COLOR wrdc%, wrdshc%: PRINT "ß "
    LOCATE 10, 37: COLOR wrdc%, wrdshc%: PRINT "ÛÜ"
    LOCATE 10, 39: COLOR wrdshc%, earth%: PRINT "Ü"
    LOCATE 11, 37: COLOR wrdc%, wrdshc%: PRINT "Û ßÜ"
    LOCATE 12, 38: COLOR wrdc%, wrdshc%: PRINT " "
    LOCATE 12, 37: COLOR wrdc%, wrdshc%: PRINT "ß"
    LOCATE 10, 41: COLOR wrdc%, wrdshc%: PRINT "Û "
    LOCATE 11, 41: COLOR wrdc%, wrdshc%: PRINT "Û "
    LOCATE 12, 41: COLOR wrdc%, wrdshc%: PRINT "ß "
    LOCATE 12, 40: COLOR wrdshc%, earth%: PRINT " "
    LOCATE 12, 40: COLOR wrdshc%, earth%: PRINT "ß"
    LOCATE 10, 49: COLOR wrdc%, wrdshc%: PRINT "ßßßÜ"
    LOCATE 10, 43: COLOR wrdc%, wrdshc%: PRINT "ßßßÛ "
    LOCATE 11, 44: COLOR wrdc%, wrdshc%: PRINT "ßß "
    LOCATE 11, 43: COLOR wrdc%, earth%: PRINT "Ü"
    LOCATE 12, 43: COLOR wrdc%, wrdshc%: PRINT "ßßßß "
    LOCATE 11, 47: COLOR wrdshc%, earth%: PRINT "ß"
    LOCATE 10, 48: COLOR wrdc%, earth%: PRINT "Ü"
    LOCATE 10, 53: COLOR earth%, wrdshc%: PRINT "ß"
    LOCATE 11, 48: COLOR wrdc%, wrdshc%: PRINT "ÛßßßÛ "
    LOCATE 12, 48: COLOR wrdc%, wrdshc%: PRINT "ß "
    LOCATE 12, 52: COLOR wrdc%, wrdshc%: PRINT "ß "
    LOCATE 10, 54: COLOR wrdc%, wrdshc%: PRINT "ßÛß "
    LOCATE 11, 55: COLOR wrdc%, wrdshc%: PRINT "Û "
    LOCATE 12, 54: COLOR wrdc%, wrdshc%: PRINT "ßßß "
    IF aNL$ = "" THEN LOCATE 13, 35: COLOR 15, 3: PRINT " BIKE TRAILS "
    IF aNL$ = "c" THEN LOCATE 13, 35: COLOR 15, 3: PRINT " Press   or   "
    IF aNL$ = "c" THEN LOCATE 13, 42: COLOR 14, 3: PRINT up$
    IF aNL$ = "c" THEN LOCATE 13, 47: COLOR 14, 3: PRINT dwn$
    IF mcsr% = 15 THEN w116% = 9
    IF mcsr% > 15 THEN w116% = 0
    IF mcsr% < 17 THEN w118% = 0
    IF mcsr% = 17 THEN w118% = 9
    IF mcsr% > 17 THEN w118% = 0
    IF mcsr% = 19 THEN w120% = 9
    IF mcsr% < 19 THEN w120% = 0
    LOCATE 16, 35: COLOR w116%, 3: PRINT " BEGIN GAME"
    LOCATE 18, 35: COLOR w118%, 3: PRINT " SET CONTROLS"
    LOCATE 20, 35: COLOR w120%, 3: PRINT " OPTIONS"
    LOCATE mcsr%, msc%: PRINT "               " 'asc
bprntr:
    IF a$ = CHR$(27) THEN END
    IF mscc$ = "y" THEN msc% = msc% + 1
    IF mscc$ = "y" THEN CLS
    IF mscc$ = "y" THEN PLAY "t255l64o2c"
    IF mcsr% = 15 THEN option$ = "P"
    IF mcsr% = 17 THEN option$ = "SC"
    IF mcsr% = 19 THEN option$ = "O"
    IF msc% = 60 THEN GOTO introenf
    LOCATE mcsr%, msc%: COLOR earth3%, 4: PRINT "Ü"
    LOCATE mcsr%, (msc% + 1): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE (mcsr% + 1), msc%: COLOR 8, 0: PRINT " (¾ "  '14     Ü      \Ü¿
    LOCATE (mcsr% + 1), (msc% + 3): COLOR 7, 0: PRINT "¾"      '15  àßßßÜ==ÞÜ/\ßß
    LOCATE (mcsr% + 1), (msc% + 10): COLOR 8, 0: PRINT " () "
    LOCATE (mcsr% + 1), (msc% + 11): COLOR 7, 0: PRINT "Ô"     '16    (¾ ßßßß  ()
    LOCATE (mcsr% + 2), (msc% + 1): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 4): COLOR mcfc%, mcsc%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 3): COLOR mcfc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% + 2), (msc% + 11): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE (mcsr% + 1), (msc% + 5): COLOR mcc%, earth3%: PRINT "ßßßß"
    LOCATE mcsr%, (msc% + 5): COLOR 8, mcsc%: PRINT "ÎØ"
    LOCATE mcsr%, (msc% + 7): COLOR mcc%, mcsc%: PRINT "ÞÜ"
    LOCATE mcsr%, (msc% + 9): COLOR mcfc%, earth3%: PRINT "Ü\"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 14): COLOR mcfc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 11): COLOR mcc%, earth3%: PRINT "ÜÜ"
    LOCATE (mcsr% - 1), (msc% + 13): COLOR 6, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 10): COLOR mcsc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 9): COLOR mcsc%, earth3%: PRINT "͸"
    GOTO doer
introenf:
END SUB

SUB options (option$, mcc%, mcsc%, mcfc%, asi$)
    earth3% = 7
    mcsr% = 16
    msc% = 32
mcb:
    COLOR 7, earth3%
    CLS
    DO
    LOCATE 10, 25: COLOR 0: PRINT "   Paint your own bike style!"
    LOCATE 11, 25: COLOR 5: PRINT " Press 1 to change frame color"
    LOCATE 12, 25: COLOR 5: PRINT " Press 2 to change engine color"
    LOCATE 13, 25: COLOR 5: PRINT " Press 3 to change fender color"
    LOCATE 14, 25: COLOR 5: PRINT " Press Esc when you are finished"
    LOCATE mcsr%, msc%: COLOR earth3%, 4: PRINT "Ü"
    LOCATE mcsr%, (msc% + 1): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE (mcsr% + 1), msc%: COLOR 8, 0: PRINT " (¾ "  '14     Ü      \Ü¿
    LOCATE (mcsr% + 1), (msc% + 3): COLOR 7, 0: PRINT "¾"      '15  àßßßÜ==ÞÜ/\ßß
    LOCATE (mcsr% + 1), (msc% + 10): COLOR 8, 0: PRINT " () "
    LOCATE (mcsr% + 1), (msc% + 11): COLOR 7, 0: PRINT "Ô"     '16    (¾ ßßßß  ()
    LOCATE (mcsr% + 2), (msc% + 1): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 4): COLOR mcfc%, mcsc%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 3): COLOR mcfc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% + 2), (msc% + 11): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE (mcsr% + 1), (msc% + 5): COLOR mcc%, earth3%: PRINT "ßßßß"
    LOCATE mcsr%, (msc% + 5): COLOR 8, mcsc%: PRINT "ÎØ"
    LOCATE mcsr%, (msc% + 7): COLOR mcc%, mcsc%: PRINT "ÞÜ"
    LOCATE mcsr%, (msc% + 9): COLOR mcfc%, earth3%: PRINT "Ü\"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 14): COLOR mcfc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 11): COLOR mcc%, earth3%: PRINT "ÜÜ"
    LOCATE (mcsr% - 1), (msc% + 13): COLOR 6, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 10): COLOR mcsc%, earth3%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 9): COLOR mcsc%, earth3%: PRINT "͸"

    a$ = INKEY$
    IF a$ = "1" GOTO mcc
    IF a$ = "2" GOTO mcsc
    IF a$ = "3" GOTO mcfc
    IF a$ = CHR$(27) THEN PLAY "l8o1g.ggl4o2c": option$ = "": asi$ = "y": GOTO optenf
    IF a$ = CHR$(32) THEN PLAY "l8o1g.ggl4o2c": option$ = "": asi$ = "y": GOTO optenf
    LOOP
mcc:
    LOCATE 19, 15: COLOR mcc%: PRINT "Please type the frame color of your choice (0-15)"
    INPUT mcc%
    GOTO mcb
mcsc:
    LOCATE 19, 15: COLOR mcsc%: PRINT "Please type the engine color of your choice (0-15)"
    INPUT mcsc%
    GOTO mcb
mcfc:
    LOCATE 19, 15: COLOR mcfc%: PRINT "Please type the fender color of your choice (0-15)"
    INPUT mcfc%
    GOTO mcb
optenf:
END SUB

SUB track1 (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
    IF option$ = "Gvict1" THEN GOTO vict1
    asi$ = "y"
    mcsr% = 15
    msc% = 10
    earth% = 2
    earth3% = 7
    life% = 10
    i% = 78
    i2% = 17
    lght% = 0
    PLAY "t100"
    t$ = "100"
    COLOR 1, earth%
    CLS
hlight1:
    lght% = lght% + 1
    IF lght% < 100 THEN LOCATE 12, 39: COLOR 14, 0: PRINT "Û()Û" 'asc
    IF lght% < 400 THEN LOCATE 13, 39: COLOR 14, 0: PRINT "Û()Û"
    IF lght% < 700 THEN LOCATE 14, 39: COLOR 14, 0: PRINT "Û()Û"

    IF lght% = 100 THEN PLAY "l8o1a"
    IF lght% = 400 THEN PLAY "l8o1a"
    IF lght% = 700 THEN PLAY "l4o2a"

    IF lght% > 100 THEN LOCATE 12, 40: COLOR 12, 12: PRINT "²²"
    IF lght% > 400 THEN LOCATE 13, 40: COLOR 14, 14: PRINT "²²"
    IF lght% > 700 THEN LOCATE 14, 40: COLOR 10, 10: PRINT "²²"
   
    IF lght% = 900 THEN CLS : GOTO t1move
    GOTO hlight1
t1move:
    IF mcsr% < 15 THEN earth2% = 2
    IF mcsr% > 14 THEN earth2% = 7
    IF mcsr% < 14 THEN earth4% = 2
    IF mcsr% > 13 THEN earth4% = 7
    IF option$ = "r1h" THEN PLAY "o0l64a"
    IF option$ = "r1e" THEN PLAY "o0l16c"
   
    LOCATE 19, 1: COLOR 1, 3: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
    LOCATE 20, 1: COLOR 1, 3: PRINT "º                                                                              º"
    LOCATE 21, 1: COLOR 1, 3: PRINT "º                                                                              º"
    LOCATE 22, 1: COLOR 1, 3: PRINT "º                                                                              º"
    LOCATE 23, 1: COLOR 1, 3: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
   
                                                 'asc
    LOCATE 20, 30: COLOR 14, 3: PRINT "CONDITION"
    IF life% = 10 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²²²²"
    IF life% = 9 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²²²  "
    IF life% = 8 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²²   "
    IF life% = 7 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²    "
    IF life% = 6 THEN LOCATE 20, 40: COLOR 14, 0: PRINT "²²²²²²     "
    IF life% = 5 THEN LOCATE 20, 40: COLOR 14, 0: PRINT "²²²²²      "
    IF life% = 4 THEN LOCATE 20, 40: COLOR 14, 0: PRINT "²²²²       "
    IF life% = 3 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "²²²        "
    IF life% = 2 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "²²         "
    IF life% = 1 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "²          "
    IF life% = 0 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "           "
    IF life% = -1 THEN option$ = "dead": PLAY "t200l4o1bl8aa-gl32dd-dd-dd-dd-d": GOTO t1enf
    IF i% > 0 AND i3% < 10 THEN LOCATE (i2%), (i%): COLOR 4, 0: PRINT "Á" '1
    i% = i% - 3
    IF i% = 3 THEN i% = 78: i2% = i2% + 1
    IF i2% = 18 THEN i2% = 15: i3% = i3% + 1
    IF i3% = 10 AND i2% = 17 THEN
    PLAY "t255l63o1cdefgabo2cdefgabo3cdefgabo4cdefgab"
    i3% = 11
    END IF
    a$ = INKEY$
    IF a$ = up$ THEN COLOR 4, 2: CLS : mcsr% = mcsr% - 1
    IF a$ = dwn$ THEN COLOR 4, 2: CLS : mcsr% = mcsr% + 1     'asc
    IF a$ = lft$ THEN COLOR 4, 2: CLS : msc% = msc% - 3
    IF a$ = rght$ THEN COLOR 4, 2: CLS : msc% = msc% + 3
    IF a$ = "g" THEN GOTO vict1
   
    IF a$ = rght$ AND t$ = "200" THEN COLOR 4, 2: CLS : PLAY "t250": t$ = "250"
    IF a$ = rght$ AND t$ = "100" THEN COLOR 4, 2: CLS : PLAY "t150": t$ = "150"
    IF a$ = rght$ AND t$ = "150" THEN COLOR 4, 2: CLS : PLAY "t200": t$ = "200"
    IF a$ = rght$ AND t$ = "50" THEN COLOR 4, 2: CLS : PLAY "t100":  t$ = "100"

    IF a$ = lft$ AND t$ = "250" THEN COLOR 4, 2: CLS : PLAY "t200": t$ = "150"
    IF a$ = lft$ AND t$ = "100" THEN COLOR 4, 2: CLS : PLAY "t50":   t$ = "150"
    IF a$ = lft$ AND t$ = "150" THEN COLOR 4, 2: CLS : PLAY "t100":  t$ = "100"
    IF a$ = lft$ AND t$ = "200" THEN COLOR 4, 2: CLS : PLAY "t150":  t$ = "150"
   
    IF msc% > 48 AND a$ = CHR$(32) THEN option$ = "r1"
    IF a$ = CHR$(27) THEN END
    IF mcsr% = 12 THEN mcsr% = 13
    IF mcsr% = 16 THEN mcsr% = 15
    IF msc% = 7 THEN msc% = 10
    IF msc% = 61 THEN msc% = 58

    LOCATE 15, 1: COLOR earth3%, 3: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
    LOCATE 16, 1: COLOR earth3%, 3: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
    LOCATE 17, 1: COLOR earth3%, 3: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
    
    LOCATE mcsr%, msc%: COLOR earth2%, 4: PRINT "Ü"
    LOCATE mcsr%, (msc% + 1): COLOR mcfc%, 0: PRINT "ßßß"
    IF i3% = 11 THEN GOTO vict1
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE (mcsr% + 1), msc%: COLOR 8, 0: PRINT " (¾ "  '14     Ü      \Ü¿
    LOCATE (mcsr% + 1), (msc% + 3): COLOR 7, 0: PRINT "¾"      '15  àßßßÜ==ÞÜ/\ßß
    LOCATE (mcsr% + 1), (msc% + 10): COLOR 8, 0: PRINT " () "
    LOCATE (mcsr% + 1), (msc% + 11): COLOR 7, 0: PRINT "Ô"     '16    (¾ ßßßß  ()
    LOCATE (mcsr% + 2), (msc% + 1): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 4): COLOR mcfc%, mcsc%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 3): COLOR mcfc%, earth%: PRINT "Ü"
    LOCATE (mcsr% + 2), (msc% + 11): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE (mcsr% + 1), (msc% + 5): COLOR mcc%, earth4%: PRINT "ßßßß"
    LOCATE mcsr%, (msc% + 5): COLOR 8, mcsc%: PRINT "ÎØ"
    LOCATE mcsr%, (msc% + 7): COLOR mcc%, mcsc%: PRINT "ÞÜ"
    LOCATE mcsr%, (msc% + 9): COLOR mcfc%, earth2%: PRINT "Ü\"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    IF i3% > 10 THEN LOCATE (mcsr% - 1), (msc% + 2): COLOR 7, earth%: PRINT "  ": GOTO t1move
    LOCATE mcsr%, (msc% + 14): COLOR mcfc%, earth2%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 11): COLOR mcc%, earth%: PRINT "ÜÜ"
    LOCATE (mcsr% - 1), (msc% + 13): COLOR 6, earth%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 10): COLOR mcsc%, earth%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 9): COLOR mcsc%, earth%: PRINT "͸"
    IF i3% < 10 AND i2% - 2 = mcsr% AND msc% + 8 = i% THEN PLAY "l8o1c": life% = life% - 1
    IF i% = 2 THEN i% = 5
    LOCATE (i2%), (i% + 2): COLOR 7, earth3%: PRINT "  "
    GOTO t1move
vict1:
    CLS
    c2% = 0
    t% = 1
vict1c:
    COLOR c%
    c% = c% + 1
    IF c% = 16 THEN c% = 1: c2% = c2% + 1
    LOCATE 8, 7: PRINT "  CONGRULATIONS! You have successfully completed the first course!"
    a$ = INKEY$
    IF a$ = CHR$(32) THEN GOTO t1enf 'asc
    IF a$ = CHR$(27) THEN END
    IF c2% = 5 AND c% = 15 THEN PLAY "t100l16o2g.go3l8cl16dcdl8e"
    IF tfly$ = "y" THEN t% = t% + 1
    IF tfly$ = "y" AND t% = 37 THEN t% = 1
    IF c2% = 10 AND c% = 15 THEN tfly$ = "y"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 10, t%: COLOR 14: PRINT "ÛÛÛ"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 11, t%: COLOR 14: PRINT "ÔÛ¾"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 12, t%: COLOR 14: PRINT "ßßß"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 10, t% + 36: COLOR 14: PRINT "ÛÛÛ"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 11, t% + 36: COLOR 14: PRINT "ÔÛ¾"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 12, t% + 36: COLOR 14: PRINT "ßßß"
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% + 35: COLOR 14: PRINT " "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% + 36: COLOR 14: PRINT "   "
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 10, t%: COLOR 7: PRINT "ÛÛÛ"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 11, t%: COLOR 7: PRINT "ÔÛ¾"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 12, t%: COLOR 7: PRINT "ßßß"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 10, t% + 36: COLOR 7: PRINT "ÛÛÛ"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 11, t% + 36: COLOR 7: PRINT "ÔÛ¾"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 12, t% + 36: COLOR 7: PRINT "ßßß"
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% + 35: COLOR 14: PRINT " "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% + 36: COLOR 14: PRINT "   "

    IF option$ = "r1h" AND life% = 10 THEN LOCATE 14, 33: COLOR c%: PRINT "     PERFECT!": tcgff$ = "g"
    IF option$ = "r1h" AND life% < 10 THEN LOCATE 14, 33: COLOR c%: PRINT "    GOOD JOB!": tcgff$ = "s"
    IF option$ = "r1e" AND life% = 10 THEN LOCATE 14, 33: COLOR c%: PRINT "     PERFECT!": tcgfs$ = "g"
    IF option$ = "r1e" AND life% < 10 THEN LOCATE 14, 33: COLOR c%: PRINT "    GOOD JOB!": tcgfs$ = "s"
    GOTO vict1c
t1enf:
END SUB

SUB track2 (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$)
    IF option$ = "Gvict1" THEN GOTO vict2
    asi$ = "y"
    mcsr% = 15
    msc% = 10
    earth% = 2
    earth3% = 7
    life% = 10
    i% = 78
    i2% = 17
    lght% = 0
    PLAY "t100"
    t$ = "100"
    COLOR 1, earth%
    CLS
hlight2:
    lght% = lght% + 1
    IF lght% < 100 THEN LOCATE 12, 39: COLOR 14, 0: PRINT "Û()Û" 'asc
    IF lght% < 400 THEN LOCATE 13, 39: COLOR 14, 0: PRINT "Û()Û"
    IF lght% < 700 THEN LOCATE 14, 39: COLOR 14, 0: PRINT "Û()Û"

    IF lght% = 100 THEN PLAY "l8o1a"
    IF lght% = 400 THEN PLAY "l8o1a"
    IF lght% = 700 THEN PLAY "l4o2a"

    IF lght% > 100 THEN LOCATE 12, 40: COLOR 12, 12: PRINT "²²"
    IF lght% > 400 THEN LOCATE 13, 40: COLOR 14, 14: PRINT "²²"
    IF lght% > 700 THEN LOCATE 14, 40: COLOR 10, 10: PRINT "²²"
  
    IF lght% = 900 THEN CLS : GOTO t2move
    GOTO hlight2
t2move:
    IF mcsr% < 15 THEN earth2% = 2
    IF mcsr% > 14 THEN earth2% = 7
    IF mcsr% < 14 THEN earth4% = 2
    IF mcsr% > 13 THEN earth4% = 7
    IF option$ = "r1h" THEN PLAY "o0l64a"
    IF option$ = "r1e" THEN PLAY "o0l16c"
  
    LOCATE 19, 1: COLOR 1, 3: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
    LOCATE 20, 1: COLOR 1, 3: PRINT "º                                                                              º"
    LOCATE 21, 1: COLOR 1, 3: PRINT "º                                                                              º"
    LOCATE 22, 1: COLOR 1, 3: PRINT "º                                                                              º"
    LOCATE 23, 1: COLOR 1, 3: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
  
                                                 'asc
    LOCATE 20, 30: COLOR 14, 3: PRINT "CONDITION"
    IF life% = 10 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²²²²"
    IF life% = 9 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²²²  "
    IF life% = 8 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²²   "
    IF life% = 7 THEN LOCATE 20, 40: COLOR 2, 0: PRINT "²²²²²²²    "
    IF life% = 6 THEN LOCATE 20, 40: COLOR 14, 0: PRINT "²²²²²²     "
    IF life% = 5 THEN LOCATE 20, 40: COLOR 14, 0: PRINT "²²²²²      "
    IF life% = 4 THEN LOCATE 20, 40: COLOR 14, 0: PRINT "²²²²       "
    IF life% = 3 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "²²²        "
    IF life% = 2 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "²²         "
    IF life% = 1 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "²          "
    IF life% = 0 THEN LOCATE 20, 40: COLOR 4, 0: PRINT "           "
    IF life% = -1 THEN option$ = "dead": PLAY "t200l4o1bl8aa-gl32dd-dd-dd-dd-d": GOTO t2enf
    IF i% > 0 AND i3% < 10 THEN LOCATE (i2%), (i%): COLOR 4, 0: PRINT "Á" '1
    i% = i% - 3
    IF i% = 3 THEN i% = 78: i2% = i2% + 1
    IF i2% = 18 THEN i2% = 15: i3% = i3% + 1
    IF i3% = 10 AND i2% = 17 THEN
    PLAY "t255l63o1cdefgabo2cdefgabo3cdefgabo4cdefgab"
    i3% = 11
    END IF
    a$ = INKEY$
    IF a$ = up$ THEN COLOR 4, 2: CLS : mcsr% = mcsr% - 1
    IF a$ = dwn$ THEN COLOR 4, 2: CLS : mcsr% = mcsr% + 1     'asc
    IF a$ = lft$ THEN COLOR 4, 2: CLS : msc% = msc% - 3
    IF a$ = rght$ THEN COLOR 4, 2: CLS : msc% = msc% + 3
    IF a$ = "l" THEN GOTO vict2
  
    IF a$ = rght$ AND t$ = "200" THEN COLOR 4, 2: CLS : PLAY "t250": t$ = "250"
    IF a$ = rght$ AND t$ = "100" THEN COLOR 4, 2: CLS : PLAY "t150": t$ = "150"
    IF a$ = rght$ AND t$ = "150" THEN COLOR 4, 2: CLS : PLAY "t200": t$ = "200"
    IF a$ = rght$ AND t$ = "50" THEN COLOR 4, 2: CLS : PLAY "t100":  t$ = "100"

    IF a$ = lft$ AND t$ = "250" THEN COLOR 4, 2: CLS : PLAY "t200": t$ = "150"
    IF a$ = lft$ AND t$ = "100" THEN COLOR 4, 2: CLS : PLAY "t50":   t$ = "150"
    IF a$ = lft$ AND t$ = "150" THEN COLOR 4, 2: CLS : PLAY "t100":  t$ = "100"
    IF a$ = lft$ AND t$ = "200" THEN COLOR 4, 2: CLS : PLAY "t150":  t$ = "150"
  
    IF msc% > 48 AND a$ = CHR$(32) THEN option$ = "r1"
    IF a$ = CHR$(27) THEN END
    IF mcsr% = 12 THEN mcsr% = 13
    IF mcsr% = 16 THEN mcsr% = 15
    IF msc% = 7 THEN msc% = 10
    IF msc% = 61 THEN msc% = 58

    LOCATE 15, 1: COLOR earth3%, 3: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
    LOCATE 16, 1: COLOR earth3%, 3: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
    LOCATE 17, 1: COLOR earth3%, 3: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
   
    LOCATE mcsr%, msc%: COLOR earth2%, 4: PRINT "Ü"
    LOCATE mcsr%, (msc% + 1): COLOR mcfc%, 0: PRINT "ßßß"
    IF i3% = 11 THEN GOTO vict2
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    LOCATE (mcsr% + 1), msc%: COLOR 8, 0: PRINT " (¾ "  '14     Ü      \Ü¿
    LOCATE (mcsr% + 1), (msc% + 3): COLOR 7, 0: PRINT "¾"      '15  àßßßÜ==ÞÜ/\ßß
    LOCATE (mcsr% + 1), (msc% + 10): COLOR 8, 0: PRINT " () "
    LOCATE (mcsr% + 1), (msc% + 11): COLOR 7, 0: PRINT "Ô"     '16    (¾ ßßßß  ()
    LOCATE (mcsr% + 2), (msc% + 1): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE mcsr%, (msc% + 4): COLOR mcfc%, mcsc%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 3): COLOR mcfc%, earth%: PRINT "Ü"
    LOCATE (mcsr% + 2), (msc% + 11): COLOR 0, earth3%: PRINT "ßßß"
    LOCATE (mcsr% + 1), (msc% + 5): COLOR mcc%, earth4%: PRINT "ßßßß"
    LOCATE mcsr%, (msc% + 5): COLOR 8, mcsc%: PRINT "ÎØ"
    LOCATE mcsr%, (msc% + 7): COLOR mcc%, mcsc%: PRINT "ÞÜ"
    LOCATE mcsr%, (msc% + 9): COLOR mcfc%, earth2%: PRINT "Ü\"
    LOCATE mcsr%, (msc% + 11): COLOR mcfc%, 0: PRINT "ßßß"
    IF i3% > 10 THEN LOCATE (mcsr% - 1), (msc% + 2): COLOR 7, earth%: PRINT "  ": GOTO t2move
    LOCATE mcsr%, (msc% + 14): COLOR mcfc%, earth2%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 11): COLOR mcc%, earth%: PRINT "ÜÜ"
    LOCATE (mcsr% - 1), (msc% + 13): COLOR 6, earth%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 10): COLOR mcsc%, earth%: PRINT "Ü"
    LOCATE (mcsr% - 1), (msc% + 9): COLOR mcsc%, earth%: PRINT "͸"
    IF i3% < 10 AND i2% - 2 = mcsr% AND msc% + 8 = i% THEN PLAY "l8o1c": life% = life% - 1
    IF i% = 2 THEN i% = 5
    LOCATE (i2%), (i% + 2): COLOR 7, earth3%: PRINT "  "
    GOTO t2move
vict2:
    CLS
    c2% = 0
    t% = 1
vict2c:
    COLOR c%
    c% = c% + 1
    IF c% = 16 THEN c% = 1: c2% = c2% + 1
    LOCATE 8, 7: PRINT "  CONGRULATIONS! You have successfully completed the first course!"
    a$ = INKEY$
    IF a$ = CHR$(32) THEN GOTO t2enf 'asc
    IF a$ = CHR$(27) THEN END
    IF c2% = 5 AND c% = 15 THEN PLAY "t100l16o2g.go3l8cl16dcdl8e"
    IF tfly$ = "y" THEN t% = t% + 1
    IF tfly$ = "y" AND t% = 37 THEN t% = 1
    IF c2% = 10 AND c% = 15 THEN tfly$ = "y"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 10, t%: COLOR 14: PRINT "ÛÛÛ"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 11, t%: COLOR 14: PRINT "ÔÛ¾"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 12, t%: COLOR 14: PRINT "ßßß"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 10, t% + 36: COLOR 14: PRINT "ÛÛÛ"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 11, t% + 36: COLOR 14: PRINT "ÔÛ¾"
    IF life% = 10 AND tfly$ = "y" THEN LOCATE 12, t% + 36: COLOR 14: PRINT "ßßß"
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% + 35: COLOR 14: PRINT " "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% + 36: COLOR 14: PRINT "   "
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 10, t%: COLOR 7: PRINT "ÛÛÛ"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 11, t%: COLOR 7: PRINT "ÔÛ¾"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 12, t%: COLOR 7: PRINT "ßßß"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 10, t% + 36: COLOR 7: PRINT "ÛÛÛ"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 11, t% + 36: COLOR 7: PRINT "ÔÛ¾"
    IF life% < 10 AND tfly$ = "y" THEN LOCATE 12, t% + 36: COLOR 7: PRINT "ßßß"
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% - 1: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 10, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 11, t% + 35: COLOR 14: PRINT " "
    IF t% > 1 AND tfly$ = "y" THEN LOCATE 12, t% + 35: COLOR 14: PRINT " "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% - 1: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 10, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 11, t% + 36: COLOR 14: PRINT "   "
    IF tfly$ = "y" AND t% = 36 THEN LOCATE 12, t% + 36: COLOR 14: PRINT "   "

    IF option$ = "r1h" AND life% = 10 THEN LOCATE 14, 33: COLOR c%: PRINT "     PERFECT!": tcgff$ = "g"
    IF option$ = "r1h" AND life% < 10 THEN LOCATE 14, 33: COLOR c%: PRINT "    GOOD JOB!": tcgff$ = "s"
    IF option$ = "r1e" AND life% = 10 THEN LOCATE 14, 33: COLOR c%: PRINT "     PERFECT!": tcgfs$ = "g"
    IF option$ = "r1e" AND life% < 10 THEN LOCATE 14, 33: COLOR c%: PRINT "    GOOD JOB!": tcgfs$ = "s"
    GOTO vict2c
t2enf:

END SUB

SUB trackmenu (option$, mcc%, mcsc%, mcfc%, asi$, up$, dwn$, lft$, rght$, tcgfs$, tcgff$, rtn%, trt1$)
    IF tcgff$ = "g" OR tcgff$ = "s" THEN rtn% = rtn% + 1
    IF tcgfs$ = "g" OR tcgfs$ = "s" THEN rtn% = rtn% + 1
    IF rtn% > 1 THEN GOTO trophycase
trackchoose:
    LOCATE 5, 25:
    CLS
    IF rtn% > 1 THEN LOCATE 15, 25: PRINT "Are you ready for the next course?"
    IF rtn% = 1 THEN LOCATE 15, 20: PRINT "Are you ready for your first biking challenge"
    a$ = ""
tmin:
    a$ = INKEY$
    IF a$ = up$ THEN code$ = "s1": GOTO tmin
    IF code$ = "s1" AND a$ = "g" THEN code$ = "s2": GOTO tmin
    IF code$ = "s2" AND a$ = "l" THEN code$ = "s3": GOTO tmin
    IF code$ = "s3" AND a$ = "e" THEN code$ = "s4": GOTO tmin
    IF code$ = "s4" AND a$ = "n" THEN
      CLS
      LOCATE 10, 27: COLOR 13, 3: PRINT "CODE ENTERED: Course Select"
      PLAY "l6o2ce-fl8gfgfg.l4e-.c"
      LOCATE 11, 38: COLOR 13, 3: INPUT "", rtn%
      GOTO trackmenenf
      END IF
    IF a$ = CHR$(27) THEN END
    IF a$ = "y" OR a$ = "Y" OR a$ = CHR$(32) THEN GOTO trackmenenf
    GOTO tmin
trophycase:
    IF rtn% = 2 AND tcgff$ = "g" THEN trt1$ = "fg"
    IF rtn% = 2 AND tcgfs$ = "g" THEN trt1$ = "sg"
    IF rtn% = 3 AND tcgff$ = "s" THEN trt2$ = "fs"
    IF rtn% = 3 AND tcgfs$ = "s" THEN trt2$ = "ss"
   
    COLOR 15, 1
    CLS
    LOCATE 5, 28: COLOR 12, 7: PRINT "    Your Trophy Case    "
   
    IF trt1$ = "fg" THEN LOCATE 8, 35: COLOR 14, 1: PRINT "Ü"
    IF trt1$ = "fg" THEN LOCATE 9, 35: COLOR 14, 1: PRINT "Ð"
    IF trt1$ = "fs" THEN LOCATE 8, 35: COLOR 7, 1: PRINT "Ü" 'asc
    IF trt1$ = "fs" THEN LOCATE 9, 35: COLOR 7, 1: PRINT "Ð"
   
    IF trt1$ = "sg" THEN LOCATE 8, 35: COLOR 7, 1: PRINT "Ü"
    IF trt1$ = "sg" THEN LOCATE 9, 35: COLOR 3, 1: PRINT "Û"
    IF trt1$ = "ss" THEN LOCATE 8, 35: COLOR 7, 1: PRINT "Ü" 'asc
    IF trt1$ = "ss" THEN LOCATE 9, 35: COLOR 4, 1: PRINT "Û"
   
    IF trt2$ = "fg" THEN LOCATE 11, 35: COLOR 14, 1: PRINT "Ü"
    IF trt2$ = "fg" THEN LOCATE 12, 35: COLOR 14, 1: PRINT "Ð"
    IF trt2$ = "fs" THEN LOCATE 11, 35: COLOR 7, 1: PRINT "Ü" 'asc
    IF trt2$ = "fs" THEN LOCATE 12, 35: COLOR 7, 1: PRINT "Ð"
    DO
    LOOP UNTIL INKEY$ = CHR$(32) OR INKEY$ = CHR$(27)
    GOTO trackchoose
trackmenenf:
END SUB