home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Game Pak / rerun-gamepak / taxman (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  171 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr
  2. 1 rem**********************************
  3. 2 rem*                                *
  4. 3 rem*      the taxman  (c) 1984  by  *
  5. 4 rem*      doug smoak                *
  6. 5 rem*      303 heyward st.           *
  7. 6 rem*      columbia, sc 29201        *
  8. 7 rem*      803 765 1189              *
  9. 8 rem*                                *
  10. 9 rem**********************************
  11. 10 print"[147][152]the[150]":poke53272,(peek(53272)and240)or10
  12. 20 dimtp(5),ho$(5),mn$(5):dw$="":ot=828:om=ot
  13. 30 tp(1)=55:tp(2)=110:tp(3)=165:tp(4)=165:tp(5)=165:c=253:dm=254:sp=32
  14. 40 m=1525:s=1104:db=80:ha=.5:bg=53281:bo=bg-1:pokebo,11:pokebg,0
  15. 50 r=40:rt=49152:tp=0:wl=209:hl=36:sid=54272:cd=sid:nw=sid+11:bn=2000
  16. 60 gosub1110:g$="      taxman!":gosub1530:printdw$:gosub820
  17. 70 gosub1560:print"[152]                   by"
  18. 80 print"               doug smoak"
  19. 90 ml=51200
  20. 100 reada:ifa>=0thenpokeml,a:ml=ml+1:goto100
  21. 110 sys51200
  22. 120 ml=49152
  23. 130 reada:ifa>=0thenpokeml,a:ml=ml+1:goto130
  24. 140 ml=49223
  25. 150 reada:ifa>=0thenpokeml,a:ml=ml+1:goto150
  26. 160 printdw$"          press any key to play[146]"
  27. 170 gosub590
  28. 180 getd$:on-(d$="")goto170:sys51253
  29. 190 gosub800:print"[147]":gosub370
  30. 200 lv=3:sc=0
  31. 210 poke49301,255:gosub820:sys49223:poke253,27
  32. 220 tp=0:me=m:om=me:ot=828:ch=27
  33. 230 pokeme,ch:pokeme+cd,1:gosub500
  34. 240 j=0:k%=ha+(me-s)/db:et=k%*db+s:de=1:e=90:ce=14
  35. 250 ifrnd(1)<.5thenet=et+39:de=-1:e=92:ce=14
  36. 260 ifpeek(me)=hlthentp=tp+1:sc=sc+10:gosub640:pokenw,128
  37. 270 ifpeek(et)=hlthentp=tp+1:sc=sc-10:gosub640
  38. 280 pokeom,sp:pokeme,ch:pokeme+cd,1
  39. 290 ifpeek(et)=chthenpokenw,129:lv=lv-1:gosub640:pokenw,128
  40. 300 pokeot,sp:pokeet+cd,ce:pokeet,e+(jand1)
  41. 310 sysrt:ch=peek(c)+(meand3)
  42. 320 iftp=>tp(sk)thensk=sk-(sk<5):gosub490:goto220
  43. 330 om=me:me=om+peek(dm)-r
  44. 340 ifpeek(me)<>spandpeek(me)<>hlthenme=om
  45. 350 ot=et:et=et+de:j=j+1:ifj=40then240
  46. 360 goto260
  47. 370 dn$="":ov$=""
  48. 380 mn$(3)="$ $  $ $  $ $$ $ $ $ $  $ $$ $"
  49. 390 mn$(4)="$ $  $ $  $ $$ $ $ $ $  $ $$ $"
  50. 400 mn$(5)="$ $  $ $  $ $$ $ $ $ $  $ $$ $"
  51. 410 mn$(2)="$ $   $  $   $   $   $ $  $  $"
  52. 420 mn$(1)="$     $      $       $       $"
  53. 430 ho$(3)="   "
  54. 440 ho$(2)="    "
  55. 450 ho$(1)="     "
  56. 460 ho$(4)="  "
  57. 470 ho$(5)=" "
  58. 480 return
  59. 490 pokeot,sp:pokeom,sp:pokeme,sp:pokeet,sp:return
  60. 500 print"";
  61. 510 fori=1to11:print"[151][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]":next
  62. 520 print"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]"
  63. 530 fori=4to22step2
  64. 540 printleft$(dn$,i)left$(ov$,rnd(0)*17+1)ho$(sk):next
  65. 550 fori=3to23step2
  66. 560 printleft$(dn$,i)left$(ov$,rnd(0)*8+1)mn$(sk):next
  67. 570 print"[151][158]score        "tab(17)"lives"tab(33)"skill[146]"
  68. 580 return
  69. 590 md=md+1:ifmd=38thenmd=0
  70. 600 et=1464+md:me=1466+md:pokeot,32:pokeet+cd,14:pokeet,90+(meand1)
  71. 610 pokeom,32:pokeme,59+(mdand3):pokeme+cd,1
  72. 620 om=me:ot=et:fori=1to60:next
  73. 630 return
  74. 640 ifsc>=bnthenifnl=0thenpokenw,33:nl=1:lv=lv+1
  75. 650 print"[155]"tab(5)sc" [157][157] ";tab(22)lv;tab(38)sk
  76. 660 iflv<>0thenreturn
  77. 670 pokeot,sp:pokeet,e:pokeet+cd,3:sys49287:gosub820:print"[147]";
  78. 680 g$=str$(sc):gs=len(g$)-1:gs=(40-4*gs)/2
  79. 690 print"[129]"dw$left$(ov$,gs-1);:gosub1530:printdw$""
  80. 700 ifsc>hsthenhs=sc:gosub770:goto720
  81. 710 g$="       whoops!":gosub1530:printdw$
  82. 720 print"[152]           play again   y or n[146]"
  83. 730 geta$:on-(a$="")goto730:sys51253
  84. 740 ifa$="n"thenprint"[147]":poke53272,(peek(53272)and240)or4:end
  85. 750 print"[147]"
  86. 760 gosub800:goto200
  87. 770 sys51200:g$="  a  new  high":gosub1530:printdw$"[154]"
  88. 780 g$="         score!":gosub1530:printdw$:gosub1560:gosub820
  89. 790 return
  90. 800 print"[147][152]starting skill level 1-5 ";:input"  1[157][157][157]";sk:ifsk<1orsk>5then800
  91. 810 print"[147]";:qx=fre(0)
  92. 811 return
  93. 820 fori=0to24:pokesi+i,0:next:pokesi+24,15:pokesi+5,9:pokesi+6,240
  94. 830 pokesi+13,240:pokesi+8,28:return
  95. 840 data25,30,60,18,209,60,15,210,60,18,209,60
  96. 850 data15,210,60,18,209,60,25,30,60
  97. 860 data18,209,60,15,210,60,18,209,60
  98. 870 data15,210,60,18,209,60,25,30,60
  99. 880 data17,195,60,18,209,60,21,31,60,23,181,60
  100. 890 data25,30,250,0,0,125,18,209,250,0,0,125,12,143,750
  101. 900 data 0,0,-1
  102. 910 data 120,169,200,141,21,3,169,18,141,20,3,169,6,141,52
  103. 920 data 3,88,96,206,52,3,240,3,76,49,234,169,5,141,52
  104. 930 data 3,160,26,169,226,153,151,5,230,2,165,2,41,15,153
  105. 940 data 151,217,136,16,239,76,49,234,120,169,49,141,20,3,169
  106. 950 data 234,141,21,3,88,96,-1
  107. 960 data 169,40,133,254,173,0,220,74,176,8,160,0,132,254,234
  108. 970 data234,234,234,74,176,8,160,80,132,254,234,234,234,234,74
  109. 980 data 176,8,160,39,132,254,160,27,132,253,74,176,8,160,41
  110. 990 data 132,254,160,59,132,253,96,-1
  111. 1000 data 120,169,84,141
  112. 1010 data 20,3,169,192,141,21,3,88,96,173,148,192,208,40,174
  113. 1020 data 149,192,232,224,64,208,2,162,0,189,150,192,141,0,212
  114. 1030 data 232,189,150,192,141,1,212,232,189,150,192,141,4,212,232
  115. 1040 data 189,150,192,141,148,192,142,149,192,206,148,192,76,49,234
  116. 1050 data 120,169,49,141,20,3,169,234,141,21,3,88,96,1,31
  117. 1060 data 97,8,17,15,143,12,17,15,195,16,17,15,48,11,17
  118. 1070 data 15,143,10,17,15,48,11,17,15,104,9,17,15,143,10
  119. 1080 data 17,15,97,8,17,15,233,7,17,15,97,8,17,15,104
  120. 1090 data 9,17,15,143,10,17,15,48,11,17,15,104,9,17,15
  121. 1100 data 143,10,17,15,-1
  122. 1110 rem ** alphabet **
  123. 1120 dima$(57)
  124. 1130 a$(1)="   [157][157][157]  [157][157][157] [146][183] [146][157][157][157][183] [183][145][145][145]"
  125. 1140 a$(2)="  [223][157][157][157]  [157][157][157] [146][183] [146][157][157][157][183][183][183][145][145][145]"
  126. 1150 a$(3)="   [157][157][157] [157] [157][146][183][183][183][145][145][145]"
  127. 1160 a$(4)="  [223][157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  128. 1170 a$(5)="   [157][157][157] [157] [146][183][157][157][146][183][183][183][145][145][145]"
  129. 1180 a$(6)="   [157][157][157] [157] [146][183][157][157][146][183][145][145][145]"
  130. 1190 a$(7)="   [157][157][157] [157]  [157][157][157][146][183][183][183][145][145][145]"
  131. 1200 a$(8)="  [157][157][157]  [157][157][157] [146][183] [146][157][157][157][183] [183][145][145][145]"
  132. 1210 a$(9)=" [157] [157] [157][146][183][145][145][145]"
  133. 1220 a$(10)=" [157] [157][157][157][184] [157][157][157][146][183][183][183][145][145][145]"
  134. 1230 a$(11)="  [157][157][157]  [157][157][157] [146][183][181][157][157][157][183] [183][145][145][145]"
  135. 1240 a$(12)=" [157] [157] [157][146][183][183][183][145][145][145]"
  136. 1250 a$(13)=" [223][169] [157][157][157][157] [146][223][169] [157][157][157][157]  [157][157][157][157][157][146][183]  [183][145][145][145]"
  137. 1260 a$(14)=" [223] [157][157][157] [146][223] [157][157][157]  [157][157][157][157][146][183] [183][145][145][145]"
  138. 1270 a$(15)="   [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  139. 1280 a$(16)="  [223][157][157][157]  [157][157][157] [146][183][183][157][157][157][183][145][145][145]"
  140. 1290 a$(17)="   [157][157][157]  [157][157][157] [146][172] [146][157][157][157][183][183][183][190][145][145][145]"
  141. 1300 a$(18)="  [223][157][157][157]  [157][157][157] [146][183][181][157][157][157][183] [183][145][145][145]"
  142. 1310 a$(19)="   [157][157][157] [157][146][183][183] [146][157][157][157][183][183][183][145][145][145]"
  143. 1320 a$(20)="   [157][157] [157] [157][146][183][145][145][145]"
  144. 1330 a$(21)="  [157][157][157]  [157][157][157]  [146][157][157][157][183][183][183][145][145][145]"
  145. 1340 a$(22)="  [157][157][157]  [157][157][157][146][223][164][169][157][157][157] [183] [145][145][145]"
  146. 1350 a$(23)="  [157][157][157][157] [169][223] [157][157][157][157] [146][169][223] [157][157][157][157][157][146][183]  [183][145][145][145]"
  147. 1360 a$(24)="  [157][157][157][187][184][172][157][157][157]  [