home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SNOWJOB (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.6 KB  |  251 lines
  1. 0 PRINT"[147]":POKE53281,6:POKE53280,1:POKE53269,0:GOSUB700:GOTO20
  2. 1 U=U-8:POKE2040,193+Z:MT=200:GOSUB900:IFPEEK(V1)<112THENU=U+8:RETURN
  3. 2 RETURN
  4. 3 U=U+8:POKE2040,193+Z:MT=50:GOSUB900:IFPEEK(V1)>220THENU=U-8:RETURN
  5. 4 RETURN
  6. 5 L=L-8:POKE2040,192+Z:MT=150:GOSUB900:IFPEEK(V)<22THENL=L+8:RETURN
  7. 6 RETURN
  8. 7 L=L+8:POKE2040,192+Z:MT=100:GOSUB900:IFPEEK(V)>246THENL=L-8:RETURN
  9. 8 RETURN
  10. 9 IFPEEK(V1)=118ANDPEEK(V)=96THENZ=ABS(Z-2):POKE2040,192+Z:POKEV+39,XX-190
  11. 10 IFD>13ANDD<18THENPOKEVX,10:POKESC,12
  12. 11 GOSUB950:RETURN
  13. 12 BT=1:U=U+8:IFPEEK(V1)>220THENU=U-8:RETURN
  14. 13 RETURN
  15. 14 BT=1:L=L-8:IFPEEK(V)<22THENL=L+8:RETURN
  16. 15 RETURN
  17. 16 BT=1:L=L+8:IFPEEK(V)>246THENL=L-8:RETURN
  18. 17 RETURN
  19. 18 BT=1:U=U-8:IFPEEK(V1)<112THENU=U+8:RETURN
  20. 19 RETURN
  21. 20 FORJS=828TO848:READP:POKEJS,P:NEXT
  22. 21 DATA173,0,220,41,31,73,31,133,3,173
  23. 22 DATA1,220,73,255,133,2,5,3,133,144,96
  24. 24 V=53248:S=54272:V1=V+1:PH=96:PV=118:P=192:XX=192:Z=0:SC=53281:GOSUB1000
  25. 25 VX=V+43:MT=1:POKEV+21,0
  26. 30 DIMB(27):DIMC(27):DIMD(27)
  27. 31 FORA=1TO26:B(A)=1665+A:C(A)=1705+A:D(A)=1745+A:NEXT
  28. 45 GOSUB400:POKEV+21,17:POKE1434,148:POKES+1434,5
  29. 49 TI$="000000":POKE53281,1
  30. 50 SYS828:ONPEEK(3)GOSUB1,3,4,5,4,4,4,7,4,4,4,4,4,4,4,9,18,12,4,14,800,4,4,16
  31. 55 POKEV,PH+L:POKEV1,PV+U:GOSUB500:BT=0
  32. 65 GETA$:IFA$=<>""THENGOSUB350
  33. 69 POKEV+9,50+D
  34. 70 IFPEEK(V+9)>93THENPRINT"[129]SUNDOWN":POKESC,11:DS=1:FORT=1TO2000:NEXT:GOTO603
  35. 72 D=D+.03
  36. 99 GOTO50
  37. 250 POKES+4,84:POKE54293,0:POKE 54294,3
  38. 251 POKE 54295,32:POKE 54296,79
  39. 252 POKE 54272,49:POKE 54273,28
  40. 253 POKE 54274,0:POKE 54275,4
  41. 254 POKE 54277,39:POKE 54278,0
  42. 255 POKE 54279,69:POKE 54280,75
  43. 256 POKE 54281,164:POKE 54282,1
  44. 257 POKE 54284,22:POKE 54285,0
  45. 258 POKE 54286,60:POKE 54287,50
  46. 259 POKE 54288,80:POKE 54289,15
  47. 260 POKE 54291,23:POKE 54292,0
  48. 261 POKE 54290,17:POKE 54283,129:POKE 54276,21
  49. 270 POKE 54290,16:POKE 54283,128:POKE 54276,20
  50. 275 RETURN
  51. 300 POKES+4,84:POKE 54293,4:POKE 54294,215
  52. 301 POKE 54295,240:POKE 54296,15
  53. 302 POKE 54279,49:POKE 54280,28
  54. 303 POKE 54281,0:POKE 54282,4
  55. 304 POKE 54284,4:POKE 54285,0
  56. 305 POKE 54286,99:POKE 54287,56
  57. 306 POKE 54288,0:POKE 54289,4
  58. 307 POKE 54291,4:POKE 54292,0
  59. 308 POKE 54290,129:POKE 54283,129
  60. 310 FORT=1TO20:NEXT
  61. 320 POKE 54290,128:POKE 54283,128
  62. 325 RETURN
  63. 350 IFA$=CHR$(136)THENGOSUB600
  64. 352 IFA$=CHR$(133)THENGOSUB800
  65. 355 RETURN
  66. 400 PRINT"[155]"
  67. 401 PRINTTAB(11)"[166][220][175][175][175][175][175][175][175][175][175][175]"
  68. 402 PRINTTAB(11)"[166][220]         [206][205]"
  69. 405 PRINTTAB(10)"[206][183][183][183][183][183][183][183][183][183][183][183][205] [205]          [175][175][175][175]"
  70. 410 PRINTTAB(9)"[206]     102     [205][206][180]        [206]"
  71. 415 PRINTTAB(9)"[163][207][184][184][184][184][184][184][184][184][184][184][184][208][163][161][180]        [208][183][183][183][183]"
  72. 420 PRINTTAB(10)"[155][180][182][154][219][155][181] [182][154][219][155][181] [182][154][219][155][181][170]  [180]        [170]  [150] [146][155]"
  73. 425 PRINTTAB(2)"[163][163][163][163][163][163][163] [180]           [170] [161][180][163][163][163][163][163][163][163][163][170]"
  74. 430 PRINTTAB(10)"[155][180][182][129][219][155][181] [170][163][163][165][155][182][129][219][155][181][170] [206]         [170]   [146]"
  75. 435 PRINTTAB(4)"[169]*****[146][155][204][204][175][175][175][186][175][175][204][175][175][175][186][169]******[146][155]    [170][175][175][175][175]"
  76. 440 FORJ=1TO7:PRINTTAB(15)"****[146]"SPC(7-J)"[169]***[146][169]":NEXT
  77. 445 PRINT"[145][145]":FORJ=1TO28:PRINT"*";:NEXT:PRINT
  78. 447 FORJ=1TO28:PRINT"*";:NEXT:PRINT
  79. 448 FORJ=1TO28:PRINT"*";:NEXT:PRINT
  80. 450 FORJ=1TO5:PRINTTAB(10-J)"[169]**[146][169]":NEXT:PRINTTAB(25)"[145][155]F7 WHEN DONE"
  81. 451 PRINTTAB(25)"[155][145][145]F1 FOR TROWEL"
  82. 452 PRINT"":FORJ=1TO4:PRINTTAB(4-J)"[169]*****[146][169]":NEXT
  83. 454 FORJ=1TO3:PRINTTAB(1)"*****":NEXT
  84. 460 FORJ=1024TO1984STEP40:POKES+J,0:POKEJ,116:NEXT:POKE1024,79
  85. 462 POKE1984,76:FORJ=1985TO2023:POKES+J,0:POKEJ,111:NEXT
  86. 464 POKE2023,122:FORJ=1983TO1063STEP-40:POKES+J,0:POKEJ,106:NEXT
  87. 466 POKE1063,80:FORJ=1062TO1025STEP-1:POKES+J,0:POKEJ,119:NEXT
  88. 468 FORJ=1692TO1702:POKES+J,15:POKEJ,160:NEXT
  89. 470 FORJ=1732TO1742:POKES+J,15:POKEJ,160:NEXT
  90. 472 FORJ=1772TO1782:POKES+J,15:POKEJ,160:NEXT
  91. 475 POKE1408,42:POKE1410,42:POKE1430,42:POKE1627,42:POKE1628,42:POKE1728,42
  92. 477 POKE1768,42
  93. 480 FORA=1TO3:CI=INT(RND(1)*26)+1:POKEB(CI),42:NEXT
  94. 481 FORA=1TO3:CI=INT(RND(1)*26)+1:POKEC(CI),42:NEXT
  95. 482 FORA=1TO3:CI=INT(RND(1)*26)+1:POKED(CI),42:NEXT
  96. 484 FORA=1TO3:A1=RND(1)*4:A2=INT(RND(1)*5)*40:POKE1439+A1+A2,42:NEXT
  97. 499 PRINT"[144]":RETURN
  98. 500 HZ=INT((PEEK(V)-16)/8)+1024
  99. 501 IFBT=1THENRETURN
  100. 505 VT=INT((PEEK(V+1)-32)/8)*40
  101. 510 PZ=HZ+VT:IFZ=2THENGOTO525
  102. 511 IFPEEK(PZ)=42THENPOKES+PZ,3:POKEPZ,227:GOTO520
  103. 512 IFPEEK(PZ)<>170THENGOTO520
  104. 515 POKES+PZ,15:POKEPZ,160:GOTO530
  105. 520 IFPEEK(PZ)=160ORPEEK(PZ)=102THENPOKEPZ,170:POKES+PZ,1:GOTO530
  106. 522 IFPEEK(PZ)=76ORPEEK(PZ)=122THENGOSUB300:POKEPZ,86
  107. 525 IFZ=2ANDPEEK(PZ)=227THENPOKEPZ,102
  108. 527 IFZ=2ANDPEEK(PZ)=160THENGOSUB300:POKEPZ,206
  109. 528 IFPEEK(PZ)=233THENPOKES+PZ,15
  110. 529 IFPEEK(PZ)=105THENPOKES+PZ,15
  111. 530 IFPEEK(PZ)=227THENPOKES+8,200:POKES+13,3:POKES+11,129:POKES+11,128
  112. 532 RETURN
  113. 600 IFPEEK(V)=96ANDPEEK(V1)=118THEN603
  114. 601 POKES+18,65:PRINT"NOT IN PLACE!":BK=1:POKES+18,64
  115. 602 IFBK=1THENFORT=1TO2000:NEXT:BK=0:PRINT"             ":RETURN
  116. 603 TM=VAL(TI$):PRINT"CHECKING...":POKE1360,213:POKE1361,201:POKE1400,246
  117. 604 POKE1401,245:POKES+1360,7:POKES+1361,7:POKES+1400,7:POKES+1401,7
  118. 605 FORA=1384TO1960:IFPEEK(A)=170THENSN=SN+1:POKES+18,17:POKES+15,20:POKES+A,6
  119. 607 IFPEEK(A)=42ORPEEK(A)=227THENIC=IC+1:POKES+18,17:POKES+15,30:POKES+A,6
  120. 609 IFPEEK(A)=102THENSI=SI+1:POKES+18,17:POKES+15,40:POKES+A,6
  121. 611 IFPEEK(A)=206THENCR=CR+1:POKES+18,17:POKES+15,10:POKES+A,6
  122. 612 IFPEEK(A)=86THENHC=HC+1:POKES+18,17:POKES+18,5:POKES+A,6
  123. 615 POKES+18,16
  124. 620 NEXT:POKE53281,14:FORT=1TO2000:NEXT
  125. 625 PRINT"[147]TIME"TM
  126. 629 TL=((SI+SN)*.1)+(IC*.4)+(CR*2)+(HC*4)
  127. 630 PRINT"LET'S SEE, THAT'S $20.00"
  128. 631 IFTM<500THENPRINT"PLUS $2 FOR YOUR SPEED":WZ=2
  129. 632 IFSN>0THENPRINT"LESS $"(SI+SN)*.1"FOR UNSWEPT SNOW AND ICE"
  130. 634 IFIC>0THENPRINT"LESS $"IC*.4"FOR UNCHOPPED ICE"
  131. 636 IFCR>0THENPRINT"LESS $"CR*2"FOR PAVEMENT REPAIR"
  132. 637 IFHC>0THENPRINT"LESS $"HC*4"FOR REPAIR TO MY HOUSE!"
  133. 638 IFRP>1THENPRINT"LESS $"RP"FOR [158]TROWEL PATCHING!"
  134. 639 IFDS=1ANDPEEK(V1)<>118THENPRINT"LESS $"4"FOR NOT PUTTING TOOLS BACK":SD=4
  135. 640 IFTL+SD+RP>20+WZTHENPRINT"YOU OWE ME $"ABS((20+WZ)-(TL+SD)-RP):GOTO644
  136. 642 PRINT"I OWE YOU $"(20+WZ)-(TL+SD)-RP
  137. 644 IFTL+SD>0THENPRINT"YOU CAN DO BETTER"
  138. 645 POKEV+21,0:PRINT"TRY AGAIN?  Y/N[146]"
  139. 646 GETA$:IFA$<>""THEN646
  140. 647 GETA$:IFA$=""THEN647
  141. 648 IFA$="Y"THENRUN
  142. 649 END
  143. 700 PRINT"SNOWJOB[146][155]"
  144. 702 PRINT"OK, HERE'S THE DEAL...I'LL PAY"
  145. 705 PRINT"YOU $20 IF YOU CLEAN MY WALKS AND"
  146. 707 PRINT"DRIVEWAY BEFORE THE SUN GOES DOWN"
  147. 712 PRINT"YOU MAY USE MY PLOW AND MY ICE"
  148. 714 PRINT"CHOPPER...BUT PLEASE BE CAREFUL NOT"
  149. 715 PRINT"TO CRACK MY PAVEMENT OR MY HOUSE![155]"
  150. 716 PRINT"USE THE PLOW FIRST, THEN CHOPPER"
  151. 717 PRINT"AND PLOW TO CLEAN PLACES THAT PLOW
  152. 718 [153]"WON'T CLEAR ALONE. PUT THE TOOLS AWAY"
  153. 719 [153]"LISTI'LL PAY YOU THE $20 LESS WHAT YOU"
  154. 720 [153]"MISS...AND IT'LL COST YA $2 FOR"
  155. 722 [153]"EACH CRACKED PAVEMENT, BUD! SO":[153]"BE SYSDEFT OR YOU'LL OWE ME!
  156. 723 PRINT"USE THE TROWEL ONLY IF YOU MUST!"
  157. 724 PRINT"[155]BUTTON CHANGES PLOW/CHOPPER ONLY IF"
  158. 725 PRINT"[155]TOOL'S IN IT'S PROPER PLACE...USE F7"
  159. 726 PRINT"WHEN DONE.[158] BUTTON AND DIRECTION LIFTS"
  160. 727 PRINT"& MOVES THE TOOLS OVER FINISHED AREAS"
  161. 728 PRINT"[153]PRESS THE SPACE BAR IF IT'S A DEAL[145]"
  162. 730 GETA$:IFA$<>""THEN730
  163. 732 GETA$:IFA$=""THEN732
  164. 734 PRINT"[147]":RETURN
  165. 800 POKEV+21,48:POKEV+10,PH:POKEV+11,PV
  166. 805 SYS828
  167. 806 ONPEEK(3)GOSUB830,832,834,836,834,834,834,838
  168. 808 POKEV+10,PH+RT:POKEV+11,PV+TR
  169. 809 GETA$:IFA$=CHR$(133)THENPOKEV+21,17:RETURN
  170. 810 HZ=INT((PEEK(V+10)-12)/8)+1024:VT=INT((PEEK(V+11)-32)/8)*40:PZ=HZ+VT
  171. 812 IFPEEK(PZ)=206THENPOKES+11,129:POKEPZ,160:POKES+11,128:RP=RP+1
  172. 814 IFPEEK(PZ)=86THENPOKES+11,129:POKEPZ,160:POKES+PZ,1:POKES+11,128:RP=RP+1
  173. 815 IFPEEK(3)=16ANDPEEK(V+10)=104ANDPEEK(V+11)=118THENPOKEV+21,17:RETURN
  174. 819 GOTO805
  175. 830 TR=TR-8:IFTR<-72THENTR=-72
  176. 831 RETURN
  177. 832 TR=TR+8:IFTR>112THENTR=112
  178. 833 RETURN
  179. 834 RETURN
  180. 836 RT=RT-8:IFRT<-72THENRT=-72
  181. 837 RETURN
  182. 838 RT=RT+8:IFRT>136THENRT=136
  183. 839 RETURN
  184. 900 IFZ=2THENGOTO250
  185. 901 POKE 54293,0:POKE 54294,134
  186. 902 POKE 54295,225:POKE 54296,31
  187. 903 POKE 54272,MT:POKE 54273,3
  188. 904 POKE 54274,0:POKE 54275,4
  189. 905 POKE 54277,33:POKE 54278,255
  190. 906 POKE 54276,81
  191. 921 POKE 54276,80
  192. 925 RETURN
  193. 950 IFD>18THENPOKES+1356,7:POKE1356,160
  194. 951 IFD>22THENPOKES+1284,7:POKE1284,160:POKEV+39,0
  195. 952 IFD>28THENPOKEVX,2:POKESC,11:POKES+1301,7
  196. 953 IFD>25THENPOKES+1276,7:POKE1276,160
  197. 954 IFD>31THENPOKES+1280,7:POKE1280,160
  198. 955 RETURN
  199. 1000 FORA=12288TO12670:READA1:POKEA,A1:NEXT
  200. 1002 DATA 0,0,0,0,0,0,0,0
  201. 1003 DATA 0,0,0,0,0,0,0,0
  202. 1004 DATA 0,0,0,0,0,0,0,0
  203. 1005 DATA 0,0,0,0,0,0,0,0
  204. 1006 DATA 0,16,0,8,24,255,24,12
  205. 1007 DATA 255,48,14,235,112,15,255,240
  206. 1008 DATA 15,255,240,14,235,112,12,255
  207. 1009 DATA 48,24,255,24,16,0,8,0
  208. 1010 DATA 0,0,0,0,0,0,0,0
  209. 1011 DATA 0,0,0,0,0,0,0,0
  210. 1012 DATA 0,0,0,0,0,24,0,96
  211. 1013 DATA 15,255,192,1,254,0,0,120
  212. 1014 DATA 0,3,255,0,3,183,0,3
  213. 1015 DATA 255,0,3,255,0,3,183,0
  214. 1016 DATA 3,255,0,0,120,0,1,254
  215. 1017 DATA 0,15,255,192,24,0,96,0
  216. 1031 DATA 0,0,0,0,0,0,0,16
  217. 1032 DATA 0,0,16,0,0,16,0,0
  218. 1033 DATA 16,0,0,16,0,0,16,0
  219. 1034 DATA 0,16,0,0,16,0,0,16
  220. 1035 DATA 0,0,16,0,0,16,0,0
  221. 1036 DATA 16,0,0,20,0,0,60,0
  222. 1037 DATA 0,124,0,0,124,0,0,124
  223. 1038 DATA 0,0,124,0,0,120,0,0
  224. 1039 DATA 0,0,0,0,0,0,0,8
  225. 1040 DATA 0,0,8,0,0,8,0,0
  226. 1041 DATA 8,0,0,8,0,0,8,0
  227. 1042 DATA 0,8,0,0,8,0,0,8
  228. 1043 DATA 0,0,8,0,0,8,0,0
  229. 1044 DATA 8,0,0,40,0,0,60,0
  230. 1045 DATA 0,62,0,0,62,0,0,62
  231. 1046 DATA 0,0,62,0,0,30,0,0
  232. 1050 POKE2040,192:POKE2044,196:POKE2045,197:POKEV+43,7:POKEV+8,250:POKEV+9,50
  233. 1055 POKEV+39,2:POKEV,PH:POKEV1,PV:POKEV+44,6
  234. 1099 RETURN
  235. 1101 DATA 0,0,0,0,60,0,0,255
  236. 1102 DATA 0,3,255,192,7,255,224,15
  237. 1103 DATA 255,240,15,255,240,15,255,240
  238. 1104 DATA 15,255,240,7,255,224,3,255
  239. 1105 DATA 192,0,255,0,0,60,0,0
  240. 1106 DATA 0,0,0,0,0,0,0,0
  241. 1107 DATA 0,0,0,0,0,0,0,0
  242. 1108 DATA 0,0,0,0,0,0,0
  243. 1126 DATA 0,0,0,0,0,0,0,0
  244. 1127 DATA 0,0,0,0,0,0,0,0
  245. 1128 DATA 0,0,0,0,0,0,0,0
  246. 1129 DATA 0,0,0,0,0,0,0,0
  247. 1130 DATA 0,0,0,0,0,0,0,0
  248. 1131 DATA 0,0,0,0,126,0,0,64
  249. 1132 DATA 0,7,192,0,31,192,0,63
  250. 1133 DATA 128,0,127,0,0,252,0,0
  251.