home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 August / 1987-08.d64 / bounty hunter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  10KB  |  287 lines
  1. 10 rem copyright 1987 compute! publications inc. - all rights reserved
  2. 20 poke53269,0:sp=53248:n=54272:sp$="               ":poke53281,6:poke53280,10
  3. 30 print"[147][150]    copyright 1987 compute! pub., inc.  ";
  4. 40 print"           all rights reserved          [146][155]";
  5. 50 dimst$(50),ca$(50),nb$(50),ab(50),pk(50),a$(50),sx(50),sy(50),cp(50),st(50)
  6. 60 c=c+1:ifc=49then80
  7. 70 readst$(c):readca$(c):readsx(c):readsy(c):readnb$(c):goto60
  8. 80 for x=13*64 to 15*64-1:poke x,0:next x
  9. 81 forx=842to881:reada:pokex,a:nextx
  10. 90 forx=906to945:reada:pokex,a:nextx
  11. 100 forx=970to1009:reada:pokex,a:nextx
  12. 110 poke2040,13:poke2041,14:pokesp+28,3
  13. 120 poke53285,10:poke53288,2:poke53287,9:pokesp+16,0
  14. 130 pokesp,120:pokesp+1,170:pokesp+2,240:pokesp+3,170:poke53269,3:xz=-1
  15. 140 printtab(214)"choose one:"spc(68)"1 - bounty hunter"spc(63)"2 - count down
  16. 150 [153][163]247)"bounty hunter"[166]6)"crook"
  17. 160 [161]a$:r[178][187](1):[139]a$[179]"1"[176]a$[177]"2"[167]160
  18. 170 f[178][197](a$):[139]f[178]1[167]210
  19. 180 [151]sp[170]3,250:[153]"load"[163]253)"minutes (1-5)"
  20. 190 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]190
  21. 200 sc[178][197](a$):sc[178]sc[172]60[170]1
  22. 210 [153]"load"[163]215)"choose one:"[166]69)"1 - states"[166]70)"2 - capitals"
  23. 220 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]220
  24. 230 [139]a$[178]"1"[167]250
  25. 240 [129]x[178]1[164]48:st$(x)[178]ca$(x):[130]x
  26. 250 [153]"load"[166]214)"1 - visible "[166]68)"2 - invisible
  27. 260 geta$:ifa$<"1"ora$>"2"then260
  28. 270 e=val(a$):iff=2then1480
  29. 280 printtab(93)"difficulty (1-3)
  30. 290 rc[178][181](48[172][187](1))[170]1:rr[178]rc
  31. 300 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]300
  32. 310 b[178][197](a$):b[178]4[171]b:[151]sp[170]1,250:[151]sp[170]3,250
  33. 320 [153]"loadopen"[163]205)"the crook is in "st$(rc):[129]x[178]1[164]2000:[130]x
  34. 330 [137]1480
  35. 340 [153]"loadopen";:[151]sp[170]3,250
  36. 350 sx(18)[178]290:sy(18)[178]173:sx(19)[178]275:sy(19)[178]70:sx(20)[178]290:sy(20)[178]140
  37. 360 sx(21)[178]280:sy(21)[178]106:sx(22)[178]285:sy(22)[178]200
  38. 370 [139]e[178]2[167]630
  39. 380 [153]" (NULL)usrusrusrusrusrusr(NULL)(NULL)usrusrusrusrusrusrusrusrusrusrusrusr(NULL)usrusrusrusrusrusr(NULL)usrusrusrusr(NULL)
  40. 390 print"[207][146][223]      [180][205]            [180]      [170]      [146][169]
  41. 400 [153]"sgn       sgn sgn           sgn      +     waitstep
  42. 410 print"[207][205][175][175][175][206][183][183][180] [205][175][175][175][175][175][175][175][175][175][175][175][207][183][183][183][183][183][183][183][180]    [146]
  43. 420 [153]"sgn       sgn    sgn        sgn       sgn    (NULL)
  44. 430 print"[180]       [180]    [180]        [180]       [180]     [223]
  45. 440 [153]"(NULL)andandandandandandand(NULL)andandandandsgn        (NULL)andandandandandand (NULL)usrusrusrusrusrusr
  46. 450 print"[180]  [170]      [180]  [180]        [180]      [205][180]      [208]
  47. 460 [153]"sgn  +      sgn  (NULL)andandandandandandandand(NULL)and      (NULL)      +
  48. 470 print"[180]  [170]      [180]    [180]        [180]     [170]      [146]
  49. 480 [153]"sgn  +      sgn    sgn        (NULL)andandandandandsqrusrusrusrusrusrusr
  50. 490 print"[180]   [205]     [180]    [180]        [180]      [205]     [146]
  51. 500 [153]"(NULL)    (NULL)    sgn    sgn        sgn      +      wait
  52. 510 print" [223]    [205]   [180]    [180]        [180]      [170]      [223]
  53. 520 [153]"  (NULL)    (NULL)(NULL)usrusrusrusrusrusr(NULL)usrusrusrusrusrusr(NULL)usrusrusrusrusrusrusrusrusr(NULL)andandandandandand
  54. 530 print"   [223]    [205]      [180]      [170][183][183][183][180]     [180]     [146][169]
  55. 540 [153]"    (NULL)   (NULL)      sgn      +   (NULL)     sgn     "
  56. 550 [153]"        (NULL)      sgn      +    usrusrusrusrusrsgn     wait
  57. 560 print"         [223]     [180][175][175][175][175][175][175][186]         [207][183][183][183][183][183]
  58. 570 [153]"move?open     (NULL)    (NULL)wait (NULL)              sgn     wait
  59. 580 print"                  [223]             [180]    [146][169]
  60. 590 [153]"def(NULL)usrusrusrusrusrusrusrusrusrusr(NULL)open sysscore:open(NULL)           (NULL)       wait
  61. 600 print"[150][180]          [170][159]        [223][169][223]    [146][169]         [223][223]
  62. 610 [153]"defsgn          +open           (NULL)  waitstep           (NULL)(NULL)wait";
  63. 620 [153]"def(NULL)andandandandandandandandandandsqropen            (NULL)step";
  64. 630 [139]f[178]2[167][141]2740:[153]la;
  65. 640 [139]f[178]2[176]rc[177]22[167]670
  66. 650 [139]sx(rc)[177]255[167]k[178]255:[151]sp[170]16,3:cx[178]2
  67. 660 [151]sp[170]2,sx(rc)[171]k:[151]sp[170]3,sy(rc):k[178]0
  68. 670 [141]1590:[137]1010
  69. 680 [153]"load";:[151]sp[170]3,250
  70. 690 sx(18)[178]57:sy(18)[178]174:sx(19)[178]40:sy(19)[178]55:sx(20)[178]60:sy(20)[178]138
  71. 700 sx(21)[178]44:sy(21)[178]93:sx(22)[178]57:sy(22)[178]205:[139]e[178]2[167]960
  72. 710 [153]"       waitstep                            (NULL)usr
  73. 720 print"      [206] [205][175]   [223][146]move?[159]                [169]  [146]
  74. 730 [153]"      sgn   (NULL)(NULL)wait step  (NULL)wait           sgn  sgn sgn+   (NULL)
  75. 740 print"      [205]     [146]    [146][169]           [180]  [180] [180][170] [146][169]
  76. 750 [153]"usrusrusrusrusrusrusrsgn    wait     wait       step      sgn(NULL) (NULL)
  77. 760 print"       [204]    [146]     [146]      [169]       [207][183][183] [146]
  78. 770 [153]"(NULL)       (NULL)usrusrusrwait usrusr(NULL)usr(NULL)wait stepusr(NULL)usrusrusrusrusrusrusr(NULL) (NULL)usr(NULL)(NULL)(NULL)waitfn
  79. 780 print"        [180]   [180]  [180]     [180]       [206][205][180] [170] [146]
  80. 790 [153]" andandandandandand(NULL)    sgn  sgn    (NULL)(NULL)andandandandandandand(NULL)
  81. 800 print" [223]     [205]    [180]  [204]   [206]  [204][175][175][175]  [170] [223]
  82. 810 [153]"  (NULL)     (NULL)   sgn (NULL) (NULL)and(NULL)    (NULL)  (NULL)(NULL)sgnusr(NULL)
  83. 820 print"         [180]  [204][206]    [205][175][175][206][183]     [183][183][208][146]  [158]score:[159]
  84. 830 [153]"         (NULL)and(NULL)      (NULL) to         +
  85. 840 print"         [206]  [162][184][183][183][183][183][183][183][206][183][183][183][183][183][183][183][183][183][183]
  86. 850 [153]"   (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)usrusr       (NULL)           wait
  87. 860 print"        [206][183][183][183][183][207][183][183][183][183][207][183][183][207][183][183][205][175][175][175][175]  [146]
  88. 870 [153]"        sgn    sgn    sgn  (NULL)       (NULL)waitstep
  89. 880 print"        [180]    [180]    [180]   [183][205][175]    [146][169]
  90. 890 [153]"   andandandandandsgn    sgn    sgn      (NULL)  waitstep
  91. 900 print"   [180]    [180]    [180]    [180]       [205][146][169][150][207][183][183][183][183][183][183][183][183][183][183][208][159]";
  92. 910 print"   [180]   [206]     [180] [175][175][175][204][175][175][175][175][175][175][175][146][169] [150][180]          [170][159]";
  93. 920 print"  [169]    [183][183][183][208]  [180] [180]          [223][146] [150][180]          [170][159]";
  94. 930 print"         [223][146]        [223]    [146] [223]  [146] [150][204][175][175][175][175][175][175][175][175][175][175][186][159]";
  95. 940 print"         [223][223][146]              [223] [223]
  96. 950 [153]"          (NULL)               (NULL) (NULL)wait";
  97. 960 cx[178]0:[151]sp[170]16,0:[139]f[178]2[167][141]2740:[153]la;
  98. 970 [139]f[178]2[176]rc[179]18[167]1000
  99. 980 [139]sx(rc)[177]255[167]k[178]255:[151]sp[170]16,2:cx[178]2
  100. 990 [151]sp[170]2,sx(rc)[171]k:[151]sp[170]3,sy(rc):k[178]0
  101. 1000 [141]1590
  102. 1010 [139]mp[178]1[167]yy[178]20:xx[178]0:[141]2450:[153]sp$:[153]"on";
  103. 1020 [139]mp[178]2[167][153]""[163]60)sp$:[153]""[163]60);
  104. 1030 y[178]0:r1[178]r
  105. 1040 [139]an$[179][177]""[167]da[178]1
  106. 1050 [139]g[178]1[167]g[178]0:[137]1360
  107. 1060 an$[178]""
  108. 1070 [139]da[178]1[167][142]
  109. 1080 [139]f[178]2[167]2610
  110. 1090 [137]2120
  111. 1100 [139]y[177]0[167]1200
  112. 1110 [139]a$[179][177]" "[167]1180
  113. 1120 [139]xz[177][195](nb$(r))[171]2[167]xz[178][171]1
  114. 1130 xz[178]xz[170]2:nm$[178][202](nb$(r),xz,2):nm[178][197](nm$):[153]st$(nm):x[178]0
  115. 1140 x[178]x[170]1
  116. 1150 [161]a$:[139]a$[178][199](13)[167]an$[178]st$(nm):g[178]1:[141]2810:[137]1170
  117. 1160 [139]x[179]30[167]1140
  118. 1170 da[178]1:[137]1010
  119. 1180 [139]a$[179][177][199](13)[167]1200
  120. 1190 [153]""st$(hm):[129]x[178]1[164]200:[130]x:[137]1010
  121. 1200 [139]a$[178]" "[175]a$(y)[178]" "[167][142]
  122. 1210 [139]