home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / ROAD-RALLY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  231 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  29. 150 UZ=1:UV%=PEEK(UT):GOTO300
  30. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,6
  31. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  32. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  33. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  34. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  35. 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,6:POKEUX,6
  36. 305 PRINT"                M E N U"
  37. 310 PRINT"    --------------------------------"
  38. 315 PRINT"       1.   BEGIN ROAD RALLY"
  39. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  40. 325 PRINT"       3.   TEACHER INSTRUCTIONS"
  41. 330 PRINT"       4.   QUIT"
  42. 335 PRINT"    --------------------------------"
  43. 340 PRINT"       PRESS A NUMBER KEY (1-4) ";
  44. 345 UL=1:US$="1234"
  45. 347 GOSUB35:US$=""
  46. 350 ONVAL(UR$)GOSUB1000,400,500,390
  47. 355 GOTO300
  48. 370 IFUZ=1THENSYSUP%:GOTO155
  49. 375 RETURN
  50. 390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,6:SYSUU,14
  51. 395 CLR:END
  52. 400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,6:POKEUX,6
  53. 405 UT$=" [210]OAD [210]ALLY":UH=1:UP=0:UG$="[211]TUDENT [201]NST.":GOSUB850
  54. 415 PRINT"  [212]HIS IS THE [206][201][204][197][211]-[194][197][210][210][201][197][206] [211][208][210][201][206][199][211]"
  55. 417 PRINT"             [210][207][193][196] [210][193][204][204][217]."
  56. 419 PRINT" [215]ELCOME TO THE FIRST ANNUAL [206]ILES TO"
  57. 421 PRINT" [194]ERRIEN [211]PRINGS [210]OAD [210]ALLY.  [217]OU'LL BE"
  58. 423 PRINT" DRIVING DOWN NOTORIOUS [210]T. 31-33,
  59. 425 [153]" TRYING TO WIN THE RACE AND STAY ALIVE"
  60. 427 [153]" IN THE BARGAIN.  CHR$(null)(null)STR$CLOSE(null)(null)LEN(null)!"
  61. 429 [153]" (null)OU HAVE YOUR CHOICE OF: 1) A (null)(null),"
  62. 431 [153]" 2) 283 (null)(null)(null)ATN, 3) (null)-28, OR 4) ASCVAL(null)(null)ATN(null)RIGHT$."
  63. 432 [141]835:[141]850
  64. 435 [153]" (null)EMEMBER, THE BETTER THE CAR, THE MORE"
  65. 437 [153]" GAS IT USES."
  66. 440 [153]" (null)OU WILL NEED TO TRAVEL 5 KILOMETERS"
  67. 442 [153]" WITH 0.5 LITERS OF GAS. (null)OUR STATUS"
  68. 444 [153]" WILL BE SHOWN EACH 10 SECONDS.  ATNFTER"
  69. 446 [153]" EACH STATUS CHECK YOU WILL BE ASKED
  70. 448 PRINT" FOR A NEW RATE OF GAS; +10 = HARD
  71. 450 [153]" ACCELERATION AND -10 = HARD BRAKING."
  72. 452 [153]" ATNNY WHOLE NUMBER IS ACCEPTABLE."
  73. 455 [141]835:[141]850
  74. 460 [153]" (null)OTE: ATNLWAYS PRESS THE <(null)VAL(null)(null)(null)(null)> KEY"
  75. 470 [153]" AFTER ENTERING AN ANSWER."
  76. 475 [153]" RIGHT$F AT ANY TIME YOU WISH TO RETURN"
  77. 480 [153]" TO THE (null)VAL(null)(null), PRESS 'LEFT$' <(null)VAL(null)(null)(null)(null)>."
  78. 485 [141]835
  79. 490 [139]UZ[178]1[167][158]UP%:[137]155
  80. 495 [142]
  81. 500 [153]"LOAD":[151]UT,UL%:[139]UW[178]0[167][151]UY,6:[151]UX,6
  82. 501 UT$[178]" (null)OAD (null)ALLY":UH[178]1:UP[178]0:UG$[178]"(null)EACHER RIGHT$NST.":[141]850
  83. 502 [153]"     (null)O THE BEST OF OUR KNOWLEDGE,"
  84. 503 [153]"     THIS PROGRAM IS IN THE PUBLIC"
  85. 504 [153]"     DOMAIN.  RIGHT$F THIS IS NOT TRUE,"
  86. 505 [153]"     PLEASE CONTACT:"
  87. 506 [153]" (null)RIGHT$VAL(null)STR$ATN(null)ATNCLOSELEN(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null)CLOSE(null)ASCCLOSEATN(null)VAL(null)RIGHT$LENATN, RIGHT$(null)LEN."
  88. 507 [153]"          1111 (null)INCOLN (null)OAD
  89. 508 PRINT"          [205]IAMI [194]EACH, [198]LORIDA  33139"
  90. 510 PRINT"          (305) 674-1444"
  91. 511 UH=1:GOSUB835:GOSUB850
  92. 512 PRINT"      [208]ROGRAM [206]AME: [210]OAD [210]ALLY
  93. 513 [153]"      (null)RITTEN BY  : (null)NKNOWN
  94. 514 PRINT"      [210]EVISED BY  : [205]IKE [196]EMMER
  95. 515 [153]"                    ASCOR LENPEEK(null)"
  96. 516 [153]"      (null)OLISHED BY : (null)ITA (null)ATES"
  97. 517 [153]"                    ASCOR (null)LENATN"
  98. 526 [141]835:UP[178]2:[141]850
  99. 530 [153]" RIGHT$N THIS GAME, THE STUDENT HAS TO TRY"
  100. 532 [153]" TO WIN THE RALLY BY SKILLFULLY"
  101. 534 [153]" CONTROLLING HIS/HER OWN CHOSEN CAR."
  102. 536 [153]" (null)HE STUDENT WILL BE PITTED AGAINST"
  103. 538 [153]" OBSTACLES SUCH AS CURVES AND CARS."
  104. 540 [153]" RIGHT$T IS UP TO THE USER TO CONTROL THE"
  105. 542 [153]" SPEED OF THE CAR AND SUCCESSFULLY"
  106. 543 [153]" USE GAS TO WIN THE RACE."
  107. 545 [153]" (null)(null)(null)VAL: (null)HIS GAME DOES NOT CONTAIN ANY"
  108. 546 [153]" GRAPHICS AT ALL."
  109. 585 [141]835
  110. 590 [139]UZ[178]1[167][158]UP%:[137]155
  111. 595 [142]
  112. 835 [151]UN,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  113. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  114. 845 [142]
  115. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  116. 855 [153]" --------------------------------------"
  117. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"HELP - PRESS   H <RETURN>"
  118. 865 UH[178]0:[153]"":[142]
  119. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  120. 900 UX$[178]"H":US[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UB[178]1024:UD[178]1084:UE[178]1105
  121. 901 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1158:UN[178]158:[151]50003,0:UW[178][194](50003):UF[178][194](53)
  122. 902 [139]UW[178]0[167]US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  123. 903 [139]UW[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  124. 904 UC$[178][199](155):UV[178]1214:[139]UW[178]0[167]UF[178]196:UV[178]2238
  125. 905 UD$[178]"":UP$[178]"                                      "
  126. 909 [142]
  127. 910 [141]900:[153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  128. 935 [153]"LOAD"UC$:[139]UW[178]0[167]965
  129. 940 [139]UF[178]60[176]UF[178]108[176]UF[178]124[167]950
  130. 945 [151]52,0:[151]53,UF[171]4:[156]:[141]900
  131. 950 [139]UW[178]160[167][151]1103,88:[151]1104,228:[151]1107,85:[151]1111,228:[137]965
  132. 965 [158]UD
  133. 970 [137]300
  134. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0
  135. 1001 [153]"LOAD"UC$;:[140]:[139]UW[178]0[167][151]UY,6:[151]UX,6
  136. 1020 [151]UT,UL%:UT$[178]" (null)OAD (null)ALLY":UG$[178]"":UP[178]0:[141]850
  137. 1030 [153]"  (null)ELCOME TO THE (null)ILES-PEEKERRIEN (null)PRINGS"
  138. 1040 [153]"              (null)OAD (null)ALLY!"
  139. 1100 [153]" (null)OU HAVE YOUR CHOICE OF: 1) A (null)(null),"
  140. 1110 [153]" 2) 283 (null)OVA, 3) (null)-28, OR 4) ASCERRARI."
  141. 1120 [153]" LENHOOSE THE CAR YOU WANT BY USING THE"
  142. 1130 [153]" NUMBER OF YOUR CHOICE. (null)EMEMBER, "
  143. 1140 [153]" THE BETTER THE CAR, THE MORE GAS IT"
  144. 1150 [153]" USES."
  145. 1160 [153]" (null)HICH CAR? ";:US$[178]"H1234":UL[178]1:[141]35:C1[178][197](UR$)
  146. 1165 [141]835:UP[178]1:[141]850
  147. 1170 [139] N2 [178]1 [167] 1220
  148. 1180 [153]" (null)OU NOW CHOOSE THE ROUTE ON WHICH YOU"
  149. 1190 [153]" WISH TO RACE.  (null)UMBER 1 IS THE EASIEST"
  150. 1200 [153]" COURSE. (null)UMBER 5 IS MOSTLY TURNS AND"
  151. 1210 [153]" TWISTS."
  152. 1220 [153]" (null)HICH COURSE DO YOU WANT? ";:US$[178]"H12345":UL[178]1:[141]35:C2[178][197](UR$)
  153. 1320 [129] I[178]1 [164] C1:[135] B,M,S
  154. 1330 B[178]B[173]10:[130] I
  155. 1340 A1[178].5:M1[178]0:C1[178]C1[173]2:V[178]0
  156. 1350 R1[178]0:T[178]0:D[178]0:Q1[178]0
  157. 1360 [141]835:UG$[178]"(null)IME (SEC)":UP[178]T[171]1:[141]850
  158. 1365 [153]" (null)RESENT VELOCITY ="V:[153]" (null)O. LITERS ="A1
  159. 1370 [153]" (null)O. KILOMETERS ="M1
  160. 1380 [139] M1[177][178]5 [167] 1950
  161. 1390 [153]" (null)HAT IS YOUR NEW GAS RATE (-/+)? ";
  162. 1400 US$[178]"H0123456789.-+":UL[178]3:[141]35:G[178][197](UR$)
  163. 1405 [129]X[178]1[164]1000:[130]X:UG$[178]"TIME (SEC)":UP[178]T[171]1:[141]850
  164. 1410 [139] G[179]9 [167] 1470
  165. 1420 Z[178]Z[170]1:[139] Z[177]4 [167]1440
  166. 1430 [137] 1480
  167. 1440 [153]" (null)OUR ENGINE BLEW. (null)OU GOT HIT BY A"
  168. 1450 [153]" PISTON. "
  169. 1460 [137] 1840
  170. 1470 Z[178]0
  171. 1480 V[178][181](B[172]G[171]M[172]V[170]V):T[178]T[170]10
  172. 1490 [153]" (null)OAD CONDITIONS: ";
  173. 1500 [139] V[177]0 [167] 1520
  174. 1510 V[178]0
  175. 1520 M1[178]M1[170]V[173]460
  176. 1530 [139] G[179]0 [167] 1560
  177. 1540 A1[178]A1[171](G[172]S)[173]5000
  178. 1550 [139] A1[179]0 [167] 1900
  179. 1560 [139] R1[178]1 [167]1700
  180. 1570 [139] Q1[178]1 [167]1640
  181. 1580 Q[178][181]((C2[170]1)[172][187](1))
  182. 1590 R[178][181]((3.75[171]C2)[172][187](1))
  183. 1600 [139] R[177]0 [167] 1860
  184. 1610 [139] Q[177]0 [167] 1880
  185. 1620 [153]" LENLEAR AND STRAIGHT"
  186. 1630 [137] 1360
  187. 1640 H[178][181](15[170]35[172][187](1))
  188. 1650 H[178]H[170]5[172]C1
  189. 1660 [139] V[177]H [167]1970
  190. 1670 [153]" (null)HROUGH CURVE"
  191. 1680 Q1[178]0
  192. 1690 [137] 1360
  193. 1700 E[178]E[171](V[171]D)[172]3
  194. 1710 [139] E[179]0 [167] 1740
  195. 1720 [153]" (null)EHICLE AHEAD"[181](E):[153]" METERS."
  196. 1730 [137] 1360
  197. 1740 [139] V[171]D[179]5 [167] 1790
  198. 1750 [153]" STR$OING"D"KM/H."
  199. 1760 D[178]V[171]D
  200. 1770 R1[178]0
  201. 1780 [137] 1360
  202. 1790 [153]" (null)EHICLE BEING PASSED."
  203. 1800 D[178][181](25[170]40[172][187](1))
  204. 1810 [153]" CHR$REYHOUND BUS IN THE OTHER LANE "
  205. 1820 [153]" DOING"D"KM/H."
  206. 1830 D[178]V[170]D:[153]" LENRASH VELOCITY ="D
  207. 1840 [153]" (null)HERE IS YOUR FUNERAL BEING HELD?"
  208. 1850 [137] 2020
  209. 1860 [153]" (null)EHICLE AHEAD 1000":[153]" METERS."
  210. 1870 D[178][181](25[170]35[172][187](1)):R1[178]1:[137]1360
  211. 1880 [153]" (null)ARNING: CURVE AHEAD."
  212. 1890 Q1[178]1:[137]1360
  213. 1900 [153]" VALXCELLENT, BUT WAIT!"
  214. 1910 [153]" (null)AN OUT OF GAS!"
  215. 1920 [137]2010
  216. 1930 [153]" PEEKUT SOMEHOW YOU MADE IT."
  217. 1940 R1[178]1:[137]1360
  218. 1950 [153]" (null)OU MADE IT(LUCKY)!"
  219. 1960 [137] 2020
  220. 1970 [153]" ATNRE TERRIBLE."
  221. 1980 [153]"";H"WAS THE SPEED THROUGH THE CURVE."
  222. 1990 [153]"";V"WAS YOUR SPEED, BY THE WAY."
  223. 2000 [137] 1840
  224. 2010 [153]" (null)OU WERE A LEAD-FOOTED DRIVER."
  225. 2020 [141]835:[156]:[141]900:[140]:[141]300
  226. 2070 [131]45,.53,10
  227. 2080 [131] 60,.5,13
  228. 2090 [131] 70,.41,15
  229. 2100 [131] 80,.39,18
  230. 2110 [128]
  231.