1000 REM##############################
1001 REM# TURBO RACER           MAIN #
1002 REM#----------------------------#
1003 REM# COPYRIGHT 1986  BY MR-SOFT #
1004 REM#----------------------------#
1005 REM#        RONALD MAYER        #
1006 REM#         THENING 24         #
1007 REM#   A-4062 THENING/AUSTRIA   #
1008 REM##############################
1009 X=PEEK(186):IFA=0THENA=1:POKE53265,0:LOAD"TURBO",X,1
1010 POKE56,64:CLR:POKE648,64:POKE56576,2:POKE53272,15:PRINT"[147]"
1011 V=53248:S=54272:P=17400:M=33536
1012 FORI=0TO3:HI$(I)="RONALD     90:00":NEXT
1013 L1$="[                                      ]"
1014 L2$= "=))))))))))))))))))))))))))))))))))))))>"
1015 L3$="*((((((((((((((((((((((((((((((((((((((,"
1016 L4$="[      ;(((<;((((((((((((((<;(((<      ]"
1017 L5$="[      ]   [129][]              []   [129][      ]"
1018 L6$="[      /)))+/))))))))))))))+/)))+      ]"
1019 L7$=";((((((((((((((((((<;((((((((((((((((((<"
1020 L8$= "/))))))))))))))))))+/))))))))))))))))))+"
1021 L9$= "[129]] [144]----------------[129] [] [144]----------------[129] ["
1022 C$="^[157]"
1023 FORI=0TO3:READTR(I),TL(I),TH(I):NEXT
1024 DATA114,225,128,118,83,129,134,201,129,152,79,130
1025 GOTO1051
1026 REM##############################
1027 REM#TITLE                       #
1028 REM##############################
1029 POKEV+17,0:POKEV+21,0:POKEV+22,216
1030 POKEV+32,15:POKEV+33,15:POKEV+34,12:POKEV+35,1
1031 PRINT"[147][129]"L2$L1$L1$;
1032 PRINT"[  ;(((((<;(<;(<;((((< ;((((< ;((((<   ]";
1033 PRINT"[  /)> =)+] [] [] => [ ] => [ ] => [   ]";
1034 PRINT"[    ] [  ] [] [] *, *<] *, *<] [] [   ]";
1035 PRINT"[    ] [  ] [] [] =)> [] =)> [] [] [   ]";
1036 PRINT"[    ] [  ] *, [] [ ] [] *(, [] *, [   ]";
1037 PRINT"[    /)+  /))))+/)+ /)+/)))))+/))))+   ]"L1$;
1038 PRINT"[   ;((((< ;((((<;((((<;((((<;((((<    ]";
1039 PRINT"[   ] => [ ] => [] =))+] =))+] => [    ]";
1040 PRINT"[   ] *, *<] *, [] [   ] *(< ] *, *<   ]";
1041 PRINT"[   ] =)> [] => [] [   ] =)+ ] =)> [   ]";
1042 PRINT"[   ] [ ] [] [] [] *((<] *((<] [ ] [   ]";
1043 PRINT"[   /)+ /)+/)+/)+/))))+/))))+/)+ /)+   ]"L1$L1$;
1044 PRINT"[  ;((((((((((((((((((((((((((((((((<  ]";
1045 PRINT"[  ][144]@ COPYRIGHT 1986 BY RONALD MAYER[129][  ]";
1046 PRINT"[  /))))))))))))))))))))))))))))))))+  ]"L1$L1$;
1047 PRINTL3$;
1048 POKEV+17,27
1049 IFPEEK(56320)=127THEN1049
1050 RETURN
1051 REM##############################
1052 REM#MENU                        #
1053 REM##############################
1054 SYSM+3:GOSUB1026
1055 POKEV+17,0:PRINT"[147][129]"L2$L1$L1$;
1056 PRINT"[     ;(((((((<;((((<;((((< ;(<;(<     ]";
1057 PRINT"[     ] => => [] =))+] => *<] [] [     ]";
1058 PRINT"[     ] [] [] [] *(< ] [/> [] [] [     ]";
1059 PRINT"[     ] [/)+] [] =)+ ] [ ] [] [] [     ]";
1060 PRINT"[     ] [   ] [] *((<] [ ] [] *, [     ]";
1061 PRINT"[     /)+   /)+/))))+/)+ /)+/))))+     ]";
1062 PRINTL1$L1$L1$L4$L5$L6$L4$L5$L6$L4$L5$L6$L1$L1$L3$;
1063 PRINT"[144][145][145][145][145][145][145][145][145][145][145][145]START RACE"
1064 PRINTTAB(16)"TRACK:"TR+1
1065 PRINTTAB(15)"BEST TIMES"
1066 POKEV+17,27:X=0:Y=0:J=0:GOTO1071
1067 J=PEEK(56320):IFJ=127THEN1067
1068 IFJ=126THENY=X:X=X-120:IFX<0THENX=240
1069 IFJ=125THENY=X:X=X+120:IFX>240THENX=0
1070 POKE16913+Y,32:POKE16934+Y,32
1071 POKE16913+X,30:POKE16934+X,31
1072 IFJ=111ANDX=000THEN1127
1073 IFJ=111ANDX=120THENGOSUB1093:GOTO1055
1074 IFJ=111ANDX=240THENGOSUB1077:GOTO1055
1075 WAIT56320,2,0:WAIT56320,1,0
1076 GOTO1067
1077 REM##############################
1078 REM#BEST TIMES                  #
1079 REM##############################
1080 PRINT"[147][129]"L2$;:POKEV+17,0
1081 PRINT"[ ;((<;((<;((<    ;((<;<;((((<;((<;((< ]";
1082 PRINT"[ />=+]=>[]=>[    />=+][]=>=>[]=)+]=)+ ]";
1083 PRINT"[  ][ ][][]*,[;(((<][ ][][][][]*< ]*(< ]";
1084 PRINT"[  ][ ][][]=)+/)))+][ ][][][][]=+ /)>[ ]";
1085 PRINT"[  ][ ]*,[][       ][ ][][][][]*(<;(,[ ]";
1086 PRINT"[  /+ /))+/+       /+ /+/+/+/+/))+/))+ ]"L3$
1087 PRINTL7$L9$"] TRACK 1          [129][]          TRACK 2 [129]["L9$;
1088 PRINT"] "HI$(0)" [129][] "HI$(1)"[129] ["L9$L8$;
1089 PRINTL7$L9$"] TRACK 3          [129][]          TRACK 4 [129]["L9$;
1090 PRINT"] "HI$(2)" [129][] "HI$(3)"[129] ["L9$L8$;
1091 POKEV+17,27
1092 WAIT56320,16,16:WAIT56320,16,0:RETURN
1093 REM##############################
1094 REM#PRACTICE                    #
1095 REM##############################
1096 POKEV+17,0:POKEV+32,15:POKEV+33,15:POKEV+34,12:POKEV+35,1
1097 PRINT"[147][129]"L7$;
1098 PRINT"]    [199][201][192][200][198]    [199][201][192][205] [129][]  [204][192][192][192][200][198] [199][201][192][192][192][192][205]  [129][";
1099 PRINT"] [204][192][192][208][196] [197][195][198]   [211][196] [193] [129][]  [206][192][200][198][197][209][192][208][196] [199][201][192][207]  [129][";
1100 PRINT"] [193]      [197][195][198]  [193]  [193] [129][]  [204][205][197][210]  [204][192][192][192][208][196]    [129][";
1101 PRINT"] [193]    [204][192][205][197][209][192][192][207] [215][193] [129][] [199][202][206][192][207]  [206][192][192][192][214][192][192][192][205] [129][";
1102 PRINT"] [193]    [193][199][202]      [213][212] [129][] [211][196][199][201][205] [199][201][200][198][216][213]  [199][202] [129][";
1103 PRINT"] [203][198]   [193][211][196]       [193] [129][] [193][199][194][196][193] [211][196][197][210]   [199][194][196] [129][";
1104 PRINT"] [197][209][192][192][192][207][193]  [199][201][192][200][198] [193] [129][] [193][211][196] [193][199][202]  [203][198] [199][194][196]  [129][";
1105 PRINT"]       [206][192][192][208][196] [197][209][192][207] [129][] [206][207]  [206][208][196]  [197][209][192][208][196]   [129][";
1106 PRINT"]         =))))))))+/))))))))>         [";
1107 PRINT"] [144]TRACK 1 [129][;((((((((((((((((<] [144]TRACK 2 [129][";
1108 PRINT"/)))))))))+] [144] SELECT TRACK[129]  [/)))))))))+";
1109 PRINT";(((((((((<]   1  2  3  4  [129] [;(((((((((<";
1110 PRINT"] [144]TRACK 3 [129][/))))))))))))))))+] [144]TRACK 4[129] [";
1111 PRINT"]         *((((((((<;((((((((,         [";
1112 PRINT"]    [204][192][200][198]      [199][201][205] [129][] [204][200][198]  [199][201][192][192][192][192][192][192][200][198]  [129][";
1113 PRINT"] [204][192][192][207] [197][209][192][205]   [199][194][196][193] [129][] [193][197][195][198] [211][196]   [204][200][198][197][210]  [129][";
1114 PRINT"] [193]    [204][192][192][207]  [199][194][196][199][202] [129][] [193] [197][210] [193]    [193][197][209][205][193]  [129][";
1115 PRINT"] [193]    [206][192][192][192][214][192][208][196][199][194][196] [129][] [203][198][204][207] [193]    [193]  [193][193]  [129][";
1116 PRINT"] [203][198]   [204][192][205][216][213]  [199][194][196]  [129][] [197][210][206][200][198][206][192][192][192][192][207] [199][202][193]  [129][";
1117 PRINT"] [197][195][198]  [193] [203][198]   [211][196]   [129][]  [203][198][197][209][192][205] [216][213]  [211][196][193]  [129][";
1118 PRINT"]  [197][195][198] [193] [197][210] [199][201][207]    [129][]  [197][209][192][192][205][206][192][192][214][192][192][207][199][202]  [129][";
1119 PRINT"]   [197][209][192][207]  [206][192][208][196]     [129][]      [206][192][192][192][192][192][192][192][208][196]  [129]["L8$;
1120 POKEV+17,27:TR=0:X=55791:Y=0
1121 POKEX+Y*3,2:POKEX+TR*3,5:IFPEEK(56320)<>127THEN1121
1122 J=PEEK(56320):IFJ=127THEN1122
1123 IFJ=123THENY=TR:TR=TR-1:IFTR<0THENTR=3
1124 IFJ=119THENY=TR:TR=TR+1:IFTR>3THENTR=0
1125 IFJ=<111THENWAIT56320,16,0:RETURN
1126 GOTO1121
1127 REM##############################
1128 REM#RACE                        #
1129 REM##############################
1130 POKEV+17,0:GOSUB1149:GOSUB1141:SYSM
1131 FORI=828TO1000:POKEI,0:NEXT:POKEV+17,27
1132 POKE251,TR(TR):POKE252,TL(TR):POKE253,TH(TR)
1133 FORI=0TO24:POKES+I,0:NEXT:POKES+6,240:POKES+24,31:POKES+4,65:POKES+1,3
1134 POKES+22,130:POKES+23,241:POKES+2,200:POKES+3,160
1135 POKES+13,242:POKES+8,3
1136 FORI=10TO13STEP3:FORJ=1TO1000:NEXTJ
1137 FORJ=0TO3:POKE56114+J,I:POKE56154+J,I:NEXTJ,I
1138 SYSM+6:POKES+24,0:WAIT56320,16,16:WAIT56320,16,0
1139 X=PEEK(828):ONXGOTO1174,1175,1176,1177
1140 END
1141 REM##############################
1142 REM#SET UP                      #
1143 REM##############################
1144 POKEV+21,0:POKEV+33,12
1145 POKEV,161:POKEV+1,230:POKEV+2,185:POKEV+3,230:POKEP,148:POKEP+1,150
1146 POKEV+21,3:POKEV+28,255:POKEV+39,6:POKEV+40,6:POKEV+37,0:POKEV+38,14
1147 POKEV+41,7:POKEV+42,7:POKEV+16,0
1148 RETURN
1149 REM##############################
1150 REM#GAME SCREEN                 #
1151 REM##############################
1152 POKEV+32,15:POKEV+17,0
1153 PRINT"[147][129]"L7$"] [144]TIME       00:00 [129][] [144]LAPS  5  [144]TO GO 4 [129]["L8$;
1154 PRINTL7$"] [144]GEAR   1 2 3 4 5 [129][] [144]TEMP  [153]'''''''[150]''' [129]["L8$;
1155 PRINTL7$"] [144]TIRES [150]###[153]####### [129][] [144]RPM   [153]'''''''[150]''' [129]["L8$;
1156 PRINTL7$"] [144]FUEL  [150]###[153]####### [129][] [144]SPEED [153]'''''''[150]''' [129]["L8$
1157 PRINT
1158 PRINT"[176][173][177]                 [176][174]        [176][173][175][173][174]     ";
1159 PRINT"     [176][177]       [176][173][173][174]        [176][177]          [176][174]";
1160 PRINT"[129]         [171][172]                             ";
1161 PRINT"[129]      [217][161] [165][166] [178][183][179][178][183][179]      [171][169][169][172]      [171][172]  [171][172]";
1162 PRINT"[129][217][218][217][218][164][219][221][221][161][167][168] [165][169][169][169][169][166] [223][164][218][162] [167][170][170][168][217][161][223][164][218][162][167][170][169][169][170][168]";
1163 PRINT"[153][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]DLMZ[S[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]";
1164 PRINT"[153][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]@KC[146][155][186][187][186][187][153]NYQ[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]";
1165 PRINT"[153][207][207][207][207][207][207][207][207][207][207][207][207]HIJC  [146][155][188][189][188][189][153]  NVWX[207][207][207][207][207][207][207][207][207][207][207][207]";
1166 PRINT"[153][207][207][207][207][207][207][207][207][207][207]DFGC            NTUS[207][207][207][207][207][207][207][207][207][207]";
1167 PRINT"[153][207][207][207][207][207][207][207][207]DEBC                NORS[207][207][207][207][207][207][207][207]";
1168 PRINT"[153][207][207][207][207][207][207]@ABC                    NOPQ[207][207][207][207][207][146]";
1169 POKE17383,207:POKE56295,13
1170 RETURN
1171 REM##############################
1172 REM#GAME OVER                   #
1173 REM##############################
1174 T$="":FORI=0TO4:T$=T$+CHR$(PEEK(16437+I)):NEXT:GOTO1186
1175 A$="SORRY-BUT YOU ARE OUT OF FUEL!":GOTO1178
1176 A$="SORRY-BUT YOU DAMAGED YOUR TIRES!":GOTO1178
1177 A$="SORRY-BUT YOU DESTROYED YOUR ENGINE!"
1178 PRINT"[146][144]";:GOSUB1182
1179 A$="PRESS BUTTON TO RESTART!":GOSUB1182
1180 WAIT56320,16,16:WAIT56320,16,0
1181 GOTO1051
1182 REM##############################
1183 REM#STRING OUTPUT               #
1184 REM##############################
1185 FORI=1TOLEN(A$):FORJ=1TO100:NEXT:PRINTMID$(A$,I,1);:NEXT:PRINT:RETURN
1186 REM##############################
1187 REM#FINAL RESULTS               #
1188 REM##############################
1189 POKEV+17,0:SYSM+3:POKEV+33,15:POKEV+34,12:POKEV+35,1:POKEV+22,216
1190 POKEV+21,0:PRINT"[147][129]"L2$;
1191 PRINT"[;<        ;((<;<;((< ;((<;<         ;<]";
1192 PRINT"[/+        ]=)+][]=>*<]=>[][         /+]";
1193 PRINT"[          ]*< ][][/>[]*,[][           ]";
1194 PRINT"[          ]=+ ][][ ][]=>[][           ]";
1195 PRINT"[          ][  ][][ ][][][]*(<         ]";
1196 PRINT"[          /+  /+/+ /+/+/+/))+         ]";
1197 PRINT"[       ;((< ;((<;((<;<;<;< ;((<       ]";
1198 PRINT"[       ]=>[ ]=)+]=)+][][][ />=+       ]";
1199 PRINT"[       ]*,*<]*< ]*(<][][][  ][        ]";
1200 PRINT"[       ]=)>[]=+ /)>[][][][  ][        ]";
1201 PRINT"[;<     ][ ][]*(<;(,[]*,[]*(<][      ;<]";
1202 PRINT"[/+     /+ /+/))+/))+/))+/))+/+      /+]"L3$L7$;
1203 PRINT"] TOP-TIME TRACK"TR+1"[129][] YOUR TIME[129]        [";L9$;
1204 PRINT"] "HI$(TR)" [129][] ?????????? "T$" [129]["L8$;L2$;
1205 PRINT"[                                      ]";
1206 PRINT"[                                      ]";
1207 PRINT"[                                      ]"L3$;
1208 POKEV+17,27:IFT$<RIGHT$(HI$(TR),5)THEN1212
1209 PRINT"[145][145][145][145]";:A$="[144]SORRY-THIS IS NO NEW TOP-TIME!":GOSUB1182
1210 A$="PRESS BUTTON TO RESTART!":GOSUB1182:WAIT56320,16,16
1211 WAIT56320,16,0:GOTO1051
1212 PRINT"[145][145][145][145]";:A$="[144]CONGRATULATIONS-YOU ARE A GREAT DRIVER":GOSUB1182
1213 A$="PLEASE ENTER YOUR NAME!":GOSUB1182
1214 PRINT"[145][145][145][145][145][145][145]"C$;:GOSUB1216
1215 HI$(TR)=LEFT$(N$+"          ",11)+T$:GOSUB1077:GOTO1051
1216 REM##############################
1217 REM#INPUT NAME                  #
1218 REM##############################
1219 N$="":X=0
1220 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)ANDX>0THENPRINT" ":RETURN
1221 IFA$<"A"ORA$>"Z"THEN1220
1222 PRINTA$C$;
1223 X=X+1:N$=N$+A$:IFX=10THENPRINT" ":RETURN
1224 GOTO1220