home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / RUSH-HOUR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.6 KB  |  84 lines
  1. 9 MC=53281:BC=53280:V=53248:X=180:Y=70:LE=1:WI=1876:GOSUB670:GOSUB800:POKEBC,11:POKEMC,11:FORQ=828TO949:READA:POKEQ,A:NEXT:FORK=0TO447:READA:POKE15360+K,A:NEXT:FORZ=49152TO49528:READA:POKEZ,A:NEXT:POKE2040,240:POKE2043,243:POKE2044,244:X2=INT(225*RND(1)+24):X3=INT(225*RND(1)+24):X4=INT(225*RND(1)+24)
  2. 40 Y2=75:Y3=140:Y4=140:POKE2041,243:POKE2042,243:X5=124:Y5=228:POKEV+39,10:POKEV+28,31:POKEV+37,6:POKEV+38,7:POKEV+40,7:POKEV+41,7:POKEV+42,7:POKEV+43,2:POKEV+29,0:POKEV+23,0:POKEV+0,X:POKEV+1,Y:POKEV+2,X2:POKEV+3,Y2:POKEV+4,X3:POKEV+5,Y3:POKEV+6,X4:POKEV+7,Y4:POKEV+8,X5:POKEV+9,Y5:FR$="[176][208][208][208][208][146]":WH$="[144] [209] [209]
  3. 77 BW$[178]"(null)(null)(null)(null)^WAIT":WO$[178]"STOP(null)(null)(null)(null)":RO$[178]"POKESTEP  (null)WAIT":HO$[178]"PRINT#::WAIT":[153]""[163]48)"PRESS 'B' KEY TO BEGIN
  4. 86 GETA$:IFA$<>"B"THEN86
  5. 87 POKEV+21,31:LA$="[178][206][178][178][178][178][178][178][178][178][178][178][206][178][178]    ":LR$="[177][206][205][177][177][177][177][177][177][177][177][177][206][205][177]    
  6. 90 SC[178]0:PO[178]4:[141]220:[141]500:[141]205:[151]80,60:[151]V[170]31,0
  7. 180 [129]Z[178]1[164]5:[158](940):[141]191:[139][194](V[170]30)[177]1[167][141]300:[130]:[151]2040,240
  8. 181 [139][194](V[170]31)[177]16[167][151]2040,242:[141]350:[141]250
  9. 182 [139][194](V[170]30)[177]1[167][141]296
  10. 183 [158](49152):[141]220:[158](49152):[141]240:[158](49152):[141]245:[139][194](197)[178]60[167][141]195
  11. 186 [129]Z[178]1[164]5:[158](940):[141]191:[130]:[151]2040,240:[139]SC[177]6000[175]SC[179]15000[167]180
  12. 187 [139]SC[177]15500[167]180
  13. 188 [139]SC[177]15000[167]900
  14. 189 [139]SC[177]4950[167]900
  15. 190 [137]180
  16. 191 JY[178][194](56321)[175]15:[139]JY[179][177]15[167][151]2040,241
  17. 193 [142]
  18. 195 [151]V[170]21,30:[151]V[170]16,0:X[178]180:Y[178]70:[151]V[170]0,X:[151]V[170]1,Y:[151]V[170]21,31:[142]
  19. 200 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130]:[151]S[170]24,15:[151]S[170]12,40:[151]S[170]13,252:[151]S[170]8,80:[151]S[170]7,40:[151]S[170]11,129:[129]I[178]0[164]100:[130]:[151]S[170]11,128:[142]
  20. 205 [153]"STOP";[163]4)"ERNIES LEFT=";PO;[163]22)"SCORE ";SC:[142]
  21. 210 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130]:[151]S[170]18,128:[151]S,75:[151]S[170]5,0:[151]S[170]6,240:[151]S[170]14,12:[151]S[170]15,250:[151]S[170]24,207:[129]L[178]0[164]25:[151]S[170]4,17:[151]S[170]1,[194](S[170]27):[129]T[178]0[164]10:[130]:[130]:[151]S[170]4,0:[129]T[178]0[164]50:[130]:[129]I[178]0[164]22:[151]S[170]I,0:[130]:[142]
  22. 220 [151]49522,1:[151]49523,0:[151]49524,39:[151]49525,4:[151]49526,12:[151]49527,1:[142]
  23. 225 S[178]54272:[129]Z[178]0[164]24:[151]S[170]Z,0:[130]:[151]S[170]24,15:[151]S[170]5,85:[151]S[170]6,245:[151]S[170]1,33:[151]S,135:[151]S[170]4,17:[129]Z[178]1[164]75:[130]:[141]233:[151]S[170]1,39:[151]S,223:[151]S[170]4,17:[129]Z[178]1[164]150:[130]:[141]233:[151]S[170]1,33:[151]S,135:[151]S[170]4,17:[129]Z[178]1[164]75:[130]:[141]233:[151]S[170]1,35:[151]S,134:[151]S[170]4,17:[129]Z[178]1[164]200:[130]:[141]233:[151]S[170]1,39:[151]S,223:[151]S[170]4,17:[129]Z[178]1[164]150:[130]:[141]233:[142]
  24. 233 [151]S[170]4,16:[142]
  25. 240 [151]49522,2:[151]49523,0:[151]49524,39:[151]49525,13:[151]49526,19:[151]49527,1:[142]
  26. 245 [151]49522,1:[151]49523,0:[151]49524,39:[151]49525,20:[151]49526,22:[151]49527,1:[142]
  27. 250 [141]200:SC[178]SC[171]50:[139]SC[179]50[167]SC[178]0
  28. 251 [151]V[170]21,30:PO[178]PO[171]1:[151]V[170]16,0:X[178]180:Y[178]70:[151]V[170]0,X:[151]V[170]1,Y:[151]V[170]31,0:[151]V[170]21,31:[139]PO[179]0[167][137]270
  29. 255 [141]205:[142]
  30. 270 [153]"STOP"[163]240);[163]175)"GAME OVER!":[137]450
  31. 280 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130]:[151]S[170]24,143:[151]S[170]5,16:[151]S[170]19,16:[151]S[170]6,252:[151]S[170]20,249:[151]S[170]4,21:[151]S[170]18,17:[151]S[170]1,68:[151]S[170]15,42:[129]I[178]1[164]200:[130]:[151]S[170]4,20:[151]S[170]18,16:[129]I[178]1[164]400:[130]:[142]
  32. 296 X2[178][181](225[172][187](1)[170]24):X3[178][181](225[172][187](1)[170]24):X4[178][181](225[172][187](1)[170]24):[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]4,X3:[151]V[170]5,Y3:[151]V[170]6,X4:[151]V[170]7,Y4
  33. 300 [139][194](V[170]30)[178]3[167][151]V[170]21,29:SC[178]SC[170]50:[151]V[170]30,0:[141]225
  34. 301 [139][194](V[170]30)[178]5[167][151]V[170]21,27:SC[178]SC[170]250:[151]V[170]30,0:[141]225
  35. 302 [139][194](V[170]30)[178]9[167][151]V[170]21,23:SC[178]SC[170]100:[151]V[170]30,0:[141]225
  36. 303 [139][194](V[170]30)[178]17[167]X[178]180:Y[178]70:[151]V[170]21,30:[151]V[170]0,X:[151]V[170]1,Y:[137]305
  37. 304 [137]309
  38. 305 SC[178]SC[170]500:[141]210:[151]V[170]21,31
  39. 309 [141]205:[151]V[170]30,0:[142]
  40. 315 [153]"":[129]Z[178]1[164]20:[153]"ON";HO$;:[130]:[129]Z[178]1[164]20:[153]HO$;:[130]:[153][163]160)"";FR$;[163]13)"";FR$;[163]26)"";FR$:[153]WH$;[163]13)WH$;[163]26);WO$:[153][163]7)"SYS";FR$;[163]28)"STOP";FR$:[153][163]7)WH$;[163]28)WH$:[153]""FR$;[163]16)"";FR$:[153]WH$;[163]16)WO$:[153][163]80)"";BW$;[163]21)"CLR";BW$:[153]WH$;[163]21)WO$:[153][163]11)"SYS"BW$;[163]25)"STOP";BW$
  41. 325 [153][163]11)WH$;[163]25)WH$:[153]""BW$;[163]17)"";BW$:[153]WH$;[163]17)WO$:[153]""[163]112)RO$;RO$;[163]72)HO$;HO$;HO$;HO$:[153]"":[129]Z[178]1[164]21:[153]:[130]:[129]Z[178]1[164]19:[153]HO$;:[130]:[153]"":[129]Z[178]1[164]20:[153]:[130]:[129]Z[178]1[164]10:[153]RO$;:[130]:[151]WI,32:[151]WI[170]1,32:[151]WI[170]2,32:[151]WI[170]3,32:[151]WI[170]40,32:[151]WI[170]41,32:[151]WI[170]42,32:[151]WI[170]43,32:[151]WI[170]80,32:[151]WI[170]81,32
  42. 334 [151]WI[170]82,32:[151]WI[170]83,32:[151]2022,186:[151]2022[170]54272,12:[151]2023,186:[151]2023[170]54272,12:[153]""RO$;[163]18)RO$;[163]32)RO$;RO$:[142]
  43. 350 S[178]54272:[129]I[178]0[164]28:[151]S[170]I,0:[130]:[151]S[170]24,15:[151]S[170]2,72:[151]S[170]6,244:[151]S[170]1,12:[151]S,75:[151]S[170]4,33:[129]Z[178]1[164]300:[130]:[151]S[170]4,32:[151]S[170]24,15:[151]S[170]2,72:[151]S[170]6,244:[151]S[170]1,12:[151]S,75:[151]S[170]4,33:[129]Z[178]1[164]300:[130]:[151]S[170]4,32:[142]
  44. 450 [153]"STOP"[163]44)"WOULD YOU LIKE TO PLAY AGAIN? Y/NWAIT":[139]PO[179]0[167]PO[178]0
  45. 452 [141]205
  46. 455 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]455
  47. 460 [139]A$[178]"Y"[167][153]"LOAD":[137]90
  48. 461 [139]A$[178]"N"[167][151]MC,6:[151]BC,14:[151]V[170]21,0:[153]"LOADSTOPSEND E-MAIL TO MIKEPBWAIT"
  49. 462 [153]"CONTSEE YA LATER!":[128]
  50. 475 [151]MC,3:[151]BC,3:[153]"":[129]Z[178]1[164]9:[153]:[130]:[129]Z[178]1[164]2:[153]"SYS           FREFREFREFREFREFRE   ";:[130]:[153]"":[129]Z[178]1[164]16:[153]:[130]:[153][163]1)"DEF(null)";[163]12)"(null)";[163]20)"(null)";[163]31)"(null)":[153]LA$;LA$:[153]LR$;LR$:[142]
  51. 500 [151]BC,11:[151]MC,11:[153]"SYSLOAD"[163]84)"SCORE OVER 5000 POINTS AND ERNIE":[153][163]124)"GETS A HELICOPTER FOR 60 SECONDS.":[153][163]204)"TO PLAY THE EASY LEVEL PRESS 'E' ":[153][163]84)"TO PLAY THE HARD LEVEL PRESS 'H' ":[153][163]204)"DON'T TOUCH ANY BUILDING  EXCEPT
  52. 505 PRINTTAB(44)"THIS [192]>      (THE POLICESTATION)
  53. 507 [161]A$:[139]A$[179][177]"E"[175]A$[179][177]"H"[167]507
  54. 508 [139]A$[178]"E"[167][153]"LOAD":[151]BC,15:[151]MC,15:[141]315:[142]
  55. 509 [139]A$[178]"H"[167][153]"LOAD":[141]315:[141]475
  56. 510 [142]
  57. 670 [151]MC,14:[151]BC,14:[153]"LOAD":[153]"SYS"[163]131)"MADE IN AMERICA":[129]Z[178]1[164]3:[153]:[130]:SR$[178]"     * * * * * * * *                ":S2$[178]"      * * *   * * *                 ":[153]SR$:[153]S2$:[153]SR$:[153]S2$:[153]SR$:[153]S2$:[153]SR$:WI$[178]"                                    
  58. 681 RE$="                                    ":PRINTWI$:PRINTRE$:PRINTWI$:PRINTRE$:PRINTWI$:PRINTRE$:PRINTTAB(5)"[144][161]":PRINTTAB(5)"[144][161]":PRINTTAB(5)"[161]";TAB(11)"[158]HOLLY SPRINGS N.C.":FORZ=1TO2000:NEXT:PRINT"":FORZ=1TO22:PRINT:NEXT:PRINTTAB(6)"RUSH HOUR-BY MICHAEL BAILEY":FORZ=1TO2000:NEXT:PRINT"":FORZ=1TO22:PRINT:NEXT
  59. 708 PRINTTAB(6)"RUSH HOUR-BY MICHAEL BAILEY":FORZ=1TO2000:NEXT:PRINT"":FORZ=1TO22:PRINT:NEXT:PRINTTAB(6)"[144]RUSH HOUR-BY MICHAEL BAILEY":FORZ=1TO2000:NEXT:RETURN
  60. 800 PRINT"[147]"TAB(14)"RUSH HOUR[146]":PRINT"[158]"TAB(44)"THE BANK ROBBERS GOT AWAY BUT THEY":PRINTTAB(40)"DROPPED SOME MONEY BAGS  IN THE MIDDLE":PRINTTAB(40)"OF RUSH HOUR  TRAFFIC!  YOU ARE ERNIE;":PRINTTAB(40)"THE  POLICEMAN  WHO HAS TO RECOVER THE
  61. 809 [153][163]40)"STOLEN LOOT!! WATCH OUT!! THOSE TRUCKS":[153][163]40)"DON'T STOP COMING FOR ERNIE OR ANYONE!":[153][163]40)"PRINTUSE A JOYSTICK IN PORT ONE TO MOVE AND":[153]"THE FIREBUTTON TO JUMP OUT OF THE ROADWAIT":[153][163]40)"SYSYOU GET 50,100,OR 250 POINTS  FOR EACH
  62. 814 PRINTTAB(40)"MONEY BAG YOU 'RECOVER' AND 500 POINTS":PRINTTAB(40)"EACH TIME YOU GET BACK TO  THE STATION":RETURN
  63. 900 PRINT"[147][144]"TAB(240);TAB(175)"BONUS ROUND!":PRINTTAB(40)"FLY THE HELICOPTER AND GET ALL THE":PRINT"MONEY YOU CAN BEFORE TIME RUNS OUT!":TI$="000000":FORZ=1TO3000:NEXT:PRINT"[147]":GOSUB315:POKEV+29,1
  64. 920 FORZ=1TO5:SYS(940):POKE2040,245:IFPEEK(V+30)>1THENGOSUB300:NEXT
  65. 921 IFTI$>"000059"THENPRINT"[147]":GOSUB315:GOSUB475:POKEV+29,0:POKEV+31,0:GOTO180
  66. 922 SYS(49152):GOSUB220:FORZ=1TO5:SYS(940):POKE2040,246:IFPEEK(V+30)>1THENGOSUB300:NEXT
  67. 924 SYS(49152):GOSUB240:PRINT"[144]"TAB(85)"BONUS TIME  ";TI$:IFTI$="000030"THENGOSUB280
  68. 929 IFTI$>"000060"THENGOSUB280:GOSUB280
  69. 930 GOTO920:DATA173,1,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173,0,208,208,31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208,169,80,141,0,208,96,234,234,173,16,208,41,254,141,16,208,206
  70. 998 DATA0,208,96,234,234,74,176,32,238,0,208,240,30,169,80,205,0,208,208,20,173,16,208,41,1,240,13,173,16,208,41,254,141,16,208,169,0,141,0,208,96,234,234,173,16,208,9,1,141,16,208,96,234,234,32,60,3,32,60,3,32,60,3,32,60,3,96,0,84,0,1,85,0,0,168
  71. 1022 DATA0,2,102,0,2,170,0,1,137,0,1,85,0,0,168,0,5,85,64,21,119,84,17,87,68,17,117,68,49,85,76,33,117,72,3,255,192,1,85,64,1,65,64,1,65,64,1,65,64,1,65,64,5,69,64,1,0,84,0,1,85,0,0,168,0,1,154,0,2,170,0,2,41,0,1,85,0,0,168,0,5,85,64,21,221,80,17,93
  72. 1034 DATA16,81,213,16,193,85,48,129,213,128,3,255,0,1,85,0,5,5,0,20,20,0,5,20,0,21,5,0,0,21,0,1,255,255,255,119,93,213,119,125,221,87,93,213,119,125,223,119,93,95,255,255,255,8,130,32,204,0,12,32,84,224,49,85,19,0,168,4,85,230,4,66,170,4,66,138,20,66,86,16
  73. 1045 DATA16,168,16,21,169,80,1,221,0,65,93,1,85,213,85,85,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,63,0,0,247,192,3,85,112,3,119,240,3,85,112,3,247,112,3,247,112,3,85,112,3,247,240,0,255,192,1,170,170,170,170,170,170,170,170
  74. 1061 DATA170,130,130,190,130,130,190,130,130,190,170,170,170,170,170,170,170,170,170,190,130,130,190,130,130,190,130,130,170,170,170,170,170,170,170,170,170,130,150,130,130,150,130,130,150,130,170,150,170,170,150,170,170,150,170,1,80,0,0,21,64,0,1,84
  75. 1072 DATA0,0,21,64,0,48,80,85,112,21,64,112,0,68,112,0,72,112,1,72,112,5,119,127,212,101,85,112,95,223,220,93,221,212,95,221,213,29,95,212,5,215,80,12,195,48,207,255,255,192,195,0,255,255,255,255,0,16,0,0,16,0,0,16,0,0,16,0,0,16,0,85,80,0,64,80,0,68,80,0
  76. 1082 DATA72,80,1,72,80,5,119,95,212,101,85,112,95,223,220,93,221,213,95,221,212,29,95,213,5,215,80,12,195,48,207,255,255,192,195,0,255,255,255,255,174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  77. 2009 DATA118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10,169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204,116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200,204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  78. 2013 DATA145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104,76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116,193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  79. 2016 DATA169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240,16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240,236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  80. 2019 DATA177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208,234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172,116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
  81. 2022 DATA104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232,32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162,193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  82. 2025 DATA133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152,24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80,120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248,32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  83. 2029 DATA5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0,4,1,1
  84.