home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 15 / Dimension_64_Nr.15_19xx_-_de_Side_B.d64 / t.racer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  226 lines
  1. 1000 rem##############################
  2. 1001 rem# turbo racer           main #
  3. 1002 rem#----------------------------#
  4. 1003 rem# copyright 1986  by mr-soft #
  5. 1004 rem#----------------------------#
  6. 1005 rem#        ronald mayer        #
  7. 1006 rem#         thening 24         #
  8. 1007 rem#   a-4062 thening/austria   #
  9. 1008 rem##############################
  10. 1009 x=peek(186):ifa=0thena=1:poke53265,0:load"turbo",x,1
  11. 1010 poke56,64:clr:poke648,64:poke56576,2:poke53272,15:print"[147]"
  12. 1011 v=53248:s=54272:p=17400:m=33536
  13. 1012 fori=0to3:hi$(i)="ronald     90:00":next
  14. 1013 l1$="[                                      ]"
  15. 1014 l2$= "=))))))))))))))))))))))))))))))))))))))>"
  16. 1015 l3$="*((((((((((((((((((((((((((((((((((((((,"
  17. 1016 l4$="[      ;(((<;((((((((((((((<;(((<      ]"
  18. 1017 l5$="[      ]   [129][]              []   [129][      ]"
  19. 1018 l6$="[      /)))+/))))))))))))))+/)))+      ]"
  20. 1019 l7$=";((((((((((((((((((<;((((((((((((((((((<"
  21. 1020 l8$= "/))))))))))))))))))+/))))))))))))))))))+"
  22. 1021 l9$= "[129]] [144]----------------[129] [] [144]----------------[129] ["
  23. 1022 c$="^[157]"
  24. 1023 fori=0to3:readtr(i),tl(i),th(i):next
  25. 1024 data114,225,128,118,83,129,134,201,129,152,79,130
  26. 1025 goto1051
  27. 1026 rem##############################
  28. 1027 rem#title                       #
  29. 1028 rem##############################
  30. 1029 pokev+17,0:pokev+21,0:pokev+22,216
  31. 1030 pokev+32,15:pokev+33,15:pokev+34,12:pokev+35,1
  32. 1031 print"[147][129]"l2$l1$l1$;
  33. 1032 print"[  ;(((((<;(<;(<;((((< ;((((< ;((((<   ]";
  34. 1033 print"[  /)> =)+] [] [] => [ ] => [ ] => [   ]";
  35. 1034 print"[    ] [  ] [] [] *, *<] *, *<] [] [   ]";
  36. 1035 print"[    ] [  ] [] [] =)> [] =)> [] [] [   ]";
  37. 1036 print"[    ] [  ] *, [] [ ] [] *(, [] *, [   ]";
  38. 1037 print"[    /)+  /))))+/)+ /)+/)))))+/))))+   ]"l1$;
  39. 1038 print"[   ;((((< ;((((<;((((<;((((<;((((<    ]";
  40. 1039 print"[   ] => [ ] => [] =))+] =))+] => [    ]";
  41. 1040 print"[   ] *, *<] *, [] [   ] *(< ] *, *<   ]";
  42. 1041 print"[   ] =)> [] => [] [   ] =)+ ] =)> [   ]";
  43. 1042 print"[   ] [ ] [] [] [] *((<] *((<] [ ] [   ]";
  44. 1043 print"[   /)+ /)+/)+/)+/))))+/))))+/)+ /)+   ]"l1$l1$;
  45. 1044 print"[  ;((((((((((((((((((((((((((((((((<  ]";
  46. 1045 print"[  ][144]@ copyright 1986 by ronald mayer[129][  ]";
  47. 1046 print"[  /))))))))))))))))))))))))))))))))+  ]"l1$l1$;
  48. 1047 printl3$;
  49. 1048 pokev+17,27
  50. 1049 ifpeek(56320)=127then1049
  51. 1050 return
  52. 1051 rem##############################
  53. 1052 rem#menu                        #
  54. 1053 rem##############################
  55. 1054 sysm+3:gosub1026
  56. 1055 pokev+17,0:print"[147][129]"l2$l1$l1$;
  57. 1056 print"[     ;(((((((<;((((<;((((< ;(<;(<     ]";
  58. 1057 print"[     ] => => [] =))+] => *<] [] [     ]";
  59. 1058 print"[     ] [] [] [] *(< ] [/> [] [] [     ]";
  60. 1059 print"[     ] [/)+] [] =)+ ] [ ] [] [] [     ]";
  61. 1060 print"[     ] [   ] [] *((<] [ ] [] *, [     ]";
  62. 1061 print"[     /)+   /)+/))))+/)+ /)+/))))+     ]";
  63. 1062 printl1$l1$l1$l4$l5$l6$l4$l5$l6$l4$l5$l6$l1$l1$l3$;
  64. 1063 print"[144][145][145][145][145][145][145][145][145][145][145][145]start race"
  65. 1064 printtab(16)"track:"tr+1
  66. 1065 printtab(15)"best times"
  67. 1066 pokev+17,27:x=0:y=0:j=0:goto1071
  68. 1067 j=peek(56320):ifj=127then1067
  69. 1068 ifj=126theny=x:x=x-120:ifx<0thenx=240
  70. 1069 ifj=125theny=x:x=x+120:ifx>240thenx=0
  71. 1070 poke16913+y,32:poke16934+y,32
  72. 1071 poke16913+x,30:poke16934+x,31
  73. 1072 ifj=111andx=000then1127
  74. 1073 ifj=111andx=120thengosub1093:goto1055
  75. 1074 ifj=111andx=240thengosub1077:goto1055
  76. 1075 wait56320,2,0:wait56320,1,0
  77. 1076 goto1067
  78. 1077 rem##############################
  79. 1078 rem#best times                  #
  80. 1079 rem##############################
  81. 1080 print"[147][129]"l2$;:pokev+17,0
  82. 1081 print"[ ;((<;((<;((<    ;((<;<;((((<;((<;((< ]";
  83. 1082 print"[ />=+]=>[]=>[    />=+][]=>=>[]=)+]=)+ ]";
  84. 1083 print"[  ][ ][][]*,[;(((<][ ][][][][]*< ]*(< ]";
  85. 1084 print"[  ][ ][][]=)+/)))+][ ][][][][]=+ /)>[ ]";
  86. 1085 print"[  ][ ]*,[][       ][ ][][][][]*(<;(,[ ]";
  87. 1086 print"[  /+ /))+/+       /+ /+/+/+/+/))+/))+ ]"l3$
  88. 1087 printl7$l9$"] track 1          [129][]          track 2 [129]["l9$;
  89. 1088 print"] "hi$(0)" [129][] "hi$(1)"[129] ["l9$l8$;
  90. 1089 printl7$l9$"] track 3          [129][]          track 4 [129]["l9$;
  91. 1090 print"] "hi$(2)" [129][] "hi$(3)"[129] ["l9$l8$;
  92. 1091 pokev+17,27
  93. 1092 wait56320,16,16:wait56320,16,0:return
  94. 1093 rem##############################
  95. 1094 rem#practice                    #
  96. 1095 rem##############################
  97. 1096 pokev+17,0:pokev+32,15:pokev+33,15:pokev+34,12:pokev+35,1
  98. 1097 print"[147][129]"l7$;
  99. 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][";
  100. 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][";
  101. 1100 print"] [193]      [197][195][198]  [193]  [193] [129][]  [204][205][197][210]  [204][192][192][192][208][196]    [129][";
  102. 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][";
  103. 1102 print"] [193]    [193][199][202]      [213][212] [129][] [211][196][199][201][205] [199][201][200][198][216][213]  [199][202] [129][";
  104. 1103 print"] [203][198]   [193][211][196]       [193] [129][] [193][199][194][196][193] [211][196][197][210]   [199][194][196] [129][";
  105. 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][";
  106. 1105 print"]       [206][192][192][208][196] [197][209][192][207] [129][] [206][207]  [206][208][196]  [197][209][192][208][196]   [129][";
  107. 1106 print"]         =))))))))+/))))))))>         [";
  108. 1107 print"] [144]track 1 [129][;((((((((((((((((<] [144]track 2 [129][";
  109. 1108 print"/)))))))))+] [144] select track[129]  [/)))))))))+";
  110. 1109 print";(((((((((<]   1  2  3  4  [129] [;(((((((((<";
  111. 1110 print"] [144]track 3 [129][/))))))))))))))))+] [144]track 4[129] [";
  112. 1111 print"]         *((((((((<;((((((((,         [";
  113. 1112 print"]    [204][192][200][198]      [199][201][205] [129][] [204][200][198]  [199][201][192][192][192][192][192][192][200][198]  [129][";
  114. 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][";
  115. 1114 print"] [193]    [204][192][192][207]  [199][194][196][199][202] [129][] [193] [197][210] [193]    [193][197][209][205][193]  [129][";
  116. 1115 print"] [193]    [206][192][192][192][214][192][208][196][199][194][196] [129][] [203][198][204][207] [193]    [193]  [193][193]  [129][";
  117. 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][";
  118. 1117 print"] [197][195][198]  [193] [203][198]   [211][196]   [129][]  [203][198][197][209][192][205] [216][213]  [211][196][193]  [129][";
  119. 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][";
  120. 1119 print"]   [197][209][192][207]  [206][192][208][196]     [129][]      [206][192][192][192][192][192][192][192][208][196]  [129]["l8$;
  121. 1120 pokev+17,27:tr=0:x=55791:y=0
  122. 1121 pokex+y*3,2:pokex+tr*3,5:ifpeek(56320)<>127then1121
  123. 1122 j=peek(56320):ifj=127then1122
  124. 1123 ifj=123theny=tr:tr=tr-1:iftr<0thentr=3
  125. 1124 ifj=119theny=tr:tr=tr+1:iftr>3thentr=0
  126. 1125 ifj=<111thenwait56320,16,0:return
  127. 1126 goto1121
  128. 1127 rem##############################
  129. 1128 rem#race                        #
  130. 1129 rem##############################
  131. 1130 pokev+17,0:gosub1149:gosub1141:sysm
  132. 1131 fori=828to1000:pokei,0:next:pokev+17,27
  133. 1132 poke251,tr(tr):poke252,tl(tr):poke253,th(tr)
  134. 1133 fori=0to24:pokes+i,0:next:pokes+6,240:pokes+24,31:pokes+4,65:pokes+1,3
  135. 1134 pokes+22,130:pokes+23,241:pokes+2,200:pokes+3,160
  136. 1135 pokes+13,242:pokes+8,3
  137. 1136 fori=10to13step3:forj=1to1000:nextj
  138. 1137 forj=0to3:poke56114+j,i:poke56154+j,i:nextj,i
  139. 1138 sysm+6:pokes+24,0:wait56320,16,16:wait56320,16,0
  140. 1139 x=peek(828):onxgoto1174,1175,1176,1177
  141. 1140 end
  142. 1141 rem##############################
  143. 1142 rem#set up                      #
  144. 1143 rem##############################
  145. 1144 pokev+21,0:pokev+33,12
  146. 1145 pokev,161:pokev+1,230:pokev+2,185:pokev+3,230:pokep,148:pokep+1,150
  147. 1146 pokev+21,3:pokev+28,255:pokev+39,6:pokev+40,6:pokev+37,0:pokev+38,14
  148. 1147 pokev+41,7:pokev+42,7:pokev+16,0
  149. 1148 return
  150. 1149 rem##############################
  151. 1150 rem#game screen                 #
  152. 1151 rem##############################
  153. 1152 pokev+32,15:pokev+17,0
  154. 1153 print"[147][129]"l7$"] [144]time       00:00 [129][] [144]laps  5  [144]to go 4 [129]["l8$;
  155. 1154 printl7$"] [144]gear   1 2 3 4 5 [129][] [144]temp  [153]'''''''[150]''' [129]["l8$;
  156. 1155 printl7$"] [144]tires [150]###[153]####### [129][] [144]rpm   [153]'''''''[150]''' [129]["l8$;
  157. 1156 printl7$"] [144]fuel  [150]###[153]####### [129][] [144]speed [153]'''''''[150]''' [129]["l8$
  158. 1157 print
  159. 1158 print"[176][173][177]                 [176][174]        [176][173][175][173][174]     ";
  160. 1159 print"     [176][177]       [176][173][173][174]        [176][177]          [176][174]";
  161. 1160 print"[129]         [171][172]                             ";
  162. 1161 print"[129]      [217][161] [165][166] [178][183][179][178][183][179]      [171][169][169][172]      [171][172]  [171][172]";
  163. 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]";
  164. 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]";
  165. 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]";
  166. 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]";
  167. 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]";
  168. 1167 print"[153][207][207][207][207][207][207][207][207]debc                nors[207][207][207][207][207][207][207][207]";
  169. 1168 print"[153][207][207][207][207][207][207]@abc                    nopq[207][207][207][207][207][146]";
  170. 1169 poke17383,207:poke56295,13
  171. 1170 return
  172. 1171 rem##############################
  173. 1172 rem#game over                   #
  174. 1173 rem##############################
  175. 1174 t$="":fori=0to4:t$=t$+chr$(peek(16437+i)):next:goto1186
  176. 1175 a$="sorry-but you are out of fuel!":goto1178
  177. 1176 a$="sorry-but you damaged your tires!":goto1178
  178. 1177 a$="sorry-but you destroyed your engine!"
  179. 1178 print"[146][144]";:gosub1182
  180. 1179 a$="press button to restart!":gosub1182
  181. 1180 wait56320,16,16:wait56320,16,0
  182. 1181 goto1051
  183. 1182 rem##############################
  184. 1183 rem#string output               #
  185. 1184 rem##############################
  186. 1185 fori=1tolen(a$):forj=1to100:next:printmid$(a$,i,1);:next:print:return
  187. 1186 rem##############################
  188. 1187 rem#final results               #
  189. 1188 rem##############################
  190. 1189 pokev+17,0:sysm+3:pokev+33,15:pokev+34,12:pokev+35,1:pokev+22,216
  191. 1190 pokev+21,0:print"[147][129]"l2$;
  192. 1191 print"[;<        ;((<;<;((< ;((<;<         ;<]";
  193. 1192 print"[/+        ]=)+][]=>*<]=>[][         /+]";
  194. 1193 print"[          ]*< ][][/>[]*,[][           ]";
  195. 1194 print"[          ]=+ ][][ ][]=>[][           ]";
  196. 1195 print"[          ][  ][][ ][][][]*(<         ]";
  197. 1196 print"[          /+  /+/+ /+/+/+/))+         ]";
  198. 1197 print"[       ;((< ;((<;((<;<;<;< ;((<       ]";
  199. 1198 print"[       ]=>[ ]=)+]=)+][][][ />=+       ]";
  200. 1199 print"[       ]*,*<]*< ]*(<][][][  ][        ]";
  201. 1200 print"[       ]=)>[]=+ /)>[][][][  ][        ]";
  202. 1201 print"[;<     ][ ][]*(<;(,[]*,[]*(<][      ;<]";
  203. 1202 print"[/+     /+ /+/))+/))+/))+/))+/+      /+]"l3$l7$;
  204. 1203 print"] top-time track"tr+1"[129][] your time[129]        [";l9$;
  205. 1204 print"] "hi$(tr)" [129][] ?????????? "t$" [129]["l8$;l2$;
  206. 1205 print"[                                      ]";
  207. 1206 print"[                                      ]";
  208. 1207 print"[                                      ]"l3$;
  209. 1208 pokev+17,27:ift$<right$(hi$(tr),5)then1212
  210. 1209 print"[145][145][145][145]";:a$="[144]sorry-this is no new top-time!":gosub1182
  211. 1210 a$="press button to restart!":gosub1182:wait56320,16,16
  212. 1211 wait56320,16,0:goto1051
  213. 1212 print"[145][145][145][145]";:a$="[144]congratulations-you are a great driver":gosub1182
  214. 1213 a$="please enter your name!":gosub1182
  215. 1214 print"[145][145][145][145][145][145][145]"c$;:gosub1216
  216. 1215 hi$(tr)=left$(n$+"          ",11)+t$:gosub1077:goto1051
  217. 1216 rem##############################
  218. 1217 rem#input name                  #
  219. 1218 rem##############################
  220. 1219 n$="":x=0
  221. 1220 poke198,0:wait198,1:geta$:ifa$=chr$(13)andx>0thenprint" ":return
  222. 1221 ifa$<"a"ora$>"z"then1220
  223. 1222 printa$c$;
  224. 1223 x=x+1:n$=n$+a$:ifx=10thenprint" ":return
  225. 1224 goto1220
  226.