5 IFX=0THEN:POKE56,32:CLR:X=10:REM   LOAD"LOADCOL",8,1
7 IFX=10THENX=11:POKE53281,0:POKE53280,0:LOAD"NEWCHARS",8,1
15 IFX=11THENX=1:REM: POKE53272,30:LOAD"LOADSCR",8,1
20 IFX=1THENX=2:LOAD"TRUCKSPR",8,1
30 IFX=2THENX=3:LOAD"NEWSCR",8,1
40 IFX=3THENX=4:LOAD"CARDATA",8,1
45 IFX=4THENX=5:LOAD"CODE",8,1
50 IFX=5THENX=6:LOAD"BITMAP",8,1
55 IFX=6THENX=7:LOAD"COLOR",8,1
56 IFX=7THENX=8:LOAD"RACER DIR.O",8,1
1000 REM SET UP AND READ SCORES
1010 DIMSC$(11,1):CW$="[155][152][159][154][156][158][152]":GOSUB1470:POKE650,0
1020 REM ENTER SCORES AFTER GAME
1030 POKE198,0:POKE53272,23:PRINTCHR$(8);:POKE53280,0:POKE53281,0
1031 POKE53270,PEEK(53270)AND239:POKE25134,96
1040 PRINT"[147]":POKE214,8:PRINT"[145][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1050 FORI=1TO7:PRINT"[155]                                      ":NEXT
1060 PRINT"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1070 POKE214,10:PRINT"[145][155]         [200][201][199][200][160][211][195][207][210][197][211][160][212][193][194][204][197]"
1080 PRINT" [215]  TO WIPE HIGH SCORES  [209]  TO QUIT"
1090 PRINT" [197] TO EDIT WORD LIST       "
1100 PRINT" [211] [208] [193] [195] [197][160][160] [212] [207] [160] [208] [204] [193] [217] "
1110 GOSUB1310:LE=0
1120 GOSUB1410
1130 IFA$<>" "ANDA$<>"W"ANDA$<>"Q"ANDA$<>"E"THEN1110
1140 IFA$="W"THENCLOSE15:OPEN15,8,15,"S:TYPE SCORES":GOSUB1470:GOTO1030
1150 IFA$=" "THENSYS24576:GOTO1030
1160 IFA$="Q"THEN1185
1170 IFA$="E"THENPOKE53281,3:PRINT"[159][147]":SYS25550:GOTO1030
1180 GOTO1130
1185 POKE56,160:CLR
1190 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER<>63THENPRINT"[147]":END
1200 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":PRINT"P[207]2048,0:P[207]44,8:L[207]"Q$A$Q$",8
1210 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
1220 [160]15:[159]15,8,15,"S0:TYPE SCORES"
1230 [132]15,A$,A$,A$,A$
1240 [159]2,8,2,"TYPE SCORES,U,W":[129]I[178]1[164]10
1250 [152]2,[199](34)SC$(I,0)[199](13)SC$(I,1):[130]:[160]2:[160]15:[142]
1260 [159]2,8,2,"TYPE SCORES,U,R":[129]I[178]1[164]10
1270 [132]2,SC$(I,0),SC$(I,1):[130]:[160]2:[142]
1280 [159]2,8,2,"TYPE SCORES,U,W":[129]I[178]1[164]10
1290 SC$(I,0)[178]"(null)EVEL STR$":SC$(I,1)[178]"VALMPTY":[152]2,SC$(I,0)[199](13)SC$(I,1):[130]
1300 [160]2:[142]
1310 IT$[178]"(null)EVEL "[170][199]([194](26993)[170]192):[151]26993,1
1320 F[178]0:[129]I[178]1[164]10:[139]IT$[177]SC$(I,0)[167]F[178]I:I[178]10:[130]:[137]1350
1330 [130]:[142]
1340 [143] SORT THE SCORES
1350 [129]I[178]11[164]F[169][171]1:SC$(I,0)[178]SC$(I[171]1,0):SC$(I,1)[178]SC$(I[171]1,1):[130]
1360 SC$(F,1)[178]" ":SC$(F,0)[178]IT$
1370 [151]214,18:[151]211,1:[153]"ONLENONGRATS!  VALNTER YOUR NAME ";:[141]1490
1380 [139]W$[179][177]""[167]SC$(F,1)[178]W$
1390 [141]1220:[142]
1400 [143] PRINT HIGH SCORES
1410 [153]"":OF%[178]OF%[170]1:[139]OF%[177][195](CW$)[171]1[167]OF%[178]0
1420 [129]I[178]1[164]10:[139]I[178]6[167][151]214,18:[153]"ON"
1430 [153][202](CW$,[182](I[171]OF%)[171](I[178]OF%),1);
1440 [153]I"CMD."[163]5)SC$(I,1)[163]27)SC$(I,0):[130]
1450 [161]A$:[139]A$[178]""[167]1410
1460 [142]
1470 [160]15:[159]15,8,15:[141]1260:[132]15,A$,A$:[139]A$[179][177]"OK"[167][141]1280
1480 [160]15:[142]
1490 W$[178]"":T[178]0:LW[178]0:[139]LI[178]0[167]LI[178]10
1500 [161]A$:AS[178][198](A$[170][199](0)):[139]TI[177]15[167][141]1580
1510 [139](A$[179]" "[176]A$[177]"Z")[175](A$[179]"ATN"[176]A$[177]"(null)")[175]AS[179][177]13[175]AS[179][177]20[167]1500
1520 LW[178][195](W$):[139]AS[178]13[167]T[178][171]1:[141]1580:[151]781,[194](214):[158]59903:[142]
1530 [139]LW[178]LI[167][139]AS[179][177]20[175]AS[179][177]13[167]1500
1540 [139]AS[178]20[167][139]LW[178]0[167]1500
1550 [139]AS[178]20[167]W$[178][200](W$,[195](W$)[171]1):T[178]0:[141]1580:[141]1580:[153]"WAITCMD CMD";:[137]1500
1560 W$[178]W$[170]A$:LW[178][195](W$):[151]212,0:[153]"WAIT"A$;:[141]1580
1570 [137]1500
1580 T[178][168]T:[151]199,[171]T:[153]" CMD";:TI$[178]"000000":[142]