home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 July / 1993-07.d64 / scud (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  154 lines
  1. 10 rem scud
  2. 20 rem by wm. f. snow
  3. 30 gosub1020
  4. 40 clr:dim q$(35),a$(35),co$(35),ca$(35),y(35):v=53248:sn=54272:pokesn+24,15
  5. 50 poke53280,7:poke53281,7:pokev+31,0
  6. 60 pokesn+4,0:print"[147]"spc(14)"please wait":print"   our spies are";
  7. 70 print" checking on the enemy"
  8. 80 for qa=1to35:readq$(qa),a$(qa):next
  9. 90 for s=12288 to 12351:readsp:pokes,sp:next
  10. 100 fors=12352to 12415:readsp:pokes,sp:next
  11. 110 fors=12416 to 12479:read sp:pokes,sp:next
  12. 120 fors=12480to12543:readsp:pokes,sp:next
  13. 130 fors=12544 to 12607:read sp:pokes,sp:next
  14. 140 fors=12608 to 12671:readsp:pokes,sp:next
  15. 150 for i=1 to 35
  16. 160 x=int(rnd(.)*35)+1
  17. 170 for ck=1 to35:if x=y(ck)then160
  18. 180 nextck:y(i)=x
  19. 190 co$(x)=q$(i):ca$(x)=a$(i):nexti
  20. 200 sc=0:fori=1to4:pokev+i,0:next:pokev+21,0:p=p+1:if p>35thenp=35:goto1140
  21. 210 poke53280,13:poke53281,1
  22. 220 jr=int(rnd(.)*10)+2
  23. 230 print"[147]    scuds have been launched at the
  24. 240 [153][166]9)"capital of stop"co$(p)
  25. 250 [153]:[153][166]12)"should you go to"
  26. 260 q[178][181]([187](.)[172]10)[170]1:[139] q[178]p [167]260
  27. 270 r[178][181]([187](.)[172]10)[170]1:[139] r[178]p [176] r[178]q [167]270
  28. 280 [151]2040,192:[151]v[170]29,1:[151]v[170]40,1
  29. 290 s[178][181]([187](.)[172]3)[170]1:[145] s [137]300,340,380
  30. 300 [153]:[153][166]9)"stopa)"ca$(p):[153]:[153][166]9)"stopb)"ca$(q)
  31. 310 [153]:[153][166]9)"stopc)"ca$(r):[153][166]9)"openhit q to end game"
  32. 320 [141]680:[139] b$[178]"a"[167]420
  33. 330 [141]820:[137]200
  34. 340 [153]:[153][166]9)"stopa)"ca$(q):[153]:[153][166]9)"stopb)"ca$(p)
  35. 350 [153]:[153][166]9)"stopc)"ca$(r):[153][166]9)"openhit q to end game"
  36. 360 [141]680:[139] b$[178]"b"[167]420
  37. 370 [141]820:[137]200
  38. 380 [153]:[153][166]9)"stopa)"ca$(r):[153]:[153][166]9)"stopb)"ca$(q)
  39. 390 [153]:[153][166]9)"stopc)"ca$(p):[153][166]9)"openhit q to end game"
  40. 400 [141]680:[139] b$[178]"c"[167]420
  41. 410 [141]820:[137]200
  42. 420 [153]"load":[151]53280,13:[151]53281,13
  43. 430 [153]""[166]8)"stoppeek":[153][166]7)"clr(NULL)(NULL)   wait"
  44. 440 [153]"   stop sgnorright$(NULL)(NULL)tan (NULL)(NULL)":[153]"    clr(NULL)(NULL)tab( wait+peek(NULL)to(NULL)(NULL)"
  45. 450 [153]"   stop(NULL) +  wait+peekclr(NULL) (NULL)+":[141]1120
  46. 460 [151]v[170]21,3:xa[178]75:ya[178]200:[151]2041,194:[151]v[170]39,11:[151]v[170]40,6
  47. 470 sc[178]sc[170]1:[139]sc[177]3 [167] [141]970:[137]200
  48. 480 ps[178][181]([187](.)[172]3)[170]1:[145] ps [137]490,720,770
  49. 490 [151]2040,192:[151]v[170]39,11:x[178]60:xx[178]255:[129]a[178]1[164]25:xx[178]xx[171]3:[151]v,xx
  50. 500 [151]v[170]1,x:[141]570
  51. 510 [151]v[170]2,xa:[151]v[170]3,ya:[130]
  52. 520 [151]v[170]30,0
  53. 530 [151]2040,193:[129]a[178]1[164]50:xx[178]xx[171]3:x[178]x[170]3:[151]v,xx:[151]v[170]1,x:[141]570
  54. 540 [139]fb[178]0[175][194](v[170]30)[175]2[178]2[167] [141]630:[137]470
  55. 550 [151]v[170]2,xa:[151]v[170]3,ya:[139]([194](v[170]31)[175]1)[178]1[167]910
  56. 560 [130]:[137]200
  57. 570 jy[178][194](56320)[175]15:fb[178][194](56320)[175]16:[143] read stick and button
  58. 580 [139]jy[178]7[167]xa[178]xa[170]jr:[139] xa[177]255[167] xa[178]255
  59. 590 [139]jy[178]11[167]xa[178]xa[171]jr:[139]xa[179]1 [167] xa[178]1
  60. 600 [139]jy[178]13[167]ya[178]ya[170]jr:[139] ya[177]250 [167] ya[178]250
  61. 610 [139]jy[178]14[167]ya[178]ya[171]jr:[139] ya[179]1 [167] ya[178]1
  62. 620 [142]
  63. 630 [151]2040,195:[151]v[170]39,2:[141]1100:[151]v[170]23,1:[151]v[170]29,1
  64. 640 [129]ec[178]1[164]8:[151]v[170]39,ec:[129]de[178]1[164]70:[130]:[130]:[151]v,0:[151]v[170]1,0
  65. 650 [151]v[170]31,0:[151]v[170]23,0:[142]
  66. 660 [161] b$:[139] b$[178]"" [167]660
  67. 670 [142]
  68. 680 [161] b$:[139]b$[178]""[167]680
  69. 690 [139] b$[178]"a"[176]b$[178]"c"[176]b$[178]"b"[167][142]
  70. 700 [139] b$[178]"q"[167]1140
  71. 710 [137]680
  72. 720 [151]2040,196:[151]v[170]39,11:[151]v,60:[129]vs[178]0[164]200[169]5:[141]570
  73. 730 [151]v[170]1,vs:[151]v[170]30,0:[151]v[170]2,xa
  74. 740 [151]v[170]3,ya:[139]fb[178]0[175][194](v[170]30)[175]2[178]2[167][141]630:[137]470
  75. 750 [139] ([194](v[170]31)[175]1)[178]1 [167]910
  76. 760 [130]:[137]200
  77. 770 [151]2040,197:[151]v[170]39,11:[151]v,255:[151]v[170]1,220
  78. 780 [129]x[178]255[164]0[169][171]3:[141]570:[151]v,x:[151]v[170]30,0
  79. 790 [151]v[170]2,xa:[151]v[170]3,ya:[139]fb[178]0[175][194](v[170]30)[175]2[178]2[167][141]630:[137]470
  80. 800 [139] ([194](v[170]31)[175]1)[178]1 [167]910
  81. 810 [130]:[137]200
  82. 820 [153]"load(NULL)(NULL) sgn +  sgn  sgn  (NULL)usr usr(NULL)usrusr peek +(NULL)  sgn"
  83. 830 [153]"(NULL)(NULL) sgn +  sgn  sgn  (NULL)and  +   peek + (NULL) sgn"
  84. 840 [153]"sgn(NULL) sgn +  sgn  sgn  sgn   +   peek +  (NULL)sgn"
  85. 850 [153]"(NULL)(NULL) (NULL)and(NULL)  (NULL)and (NULL)and (NULL)and  +   peek +   sgn"
  86. 860 [153] "stop"[166]4)ca$(p):[153]" the capital ofstop":[153][166]4)co$(p)
  87. 870 [153]"  has been destroyed ";
  88. 880 [153]"by scud missles.   the person who could have saved the citydid";
  89. 890 [153]" not have enough information to get  to the right city in time."
  90. 900 [153]"printhit any key to continue":[141]660:[142]
  91. 910 [151]v[170]21,0:[153]""[166]4)"(NULL) rnd     (NULL) (NULL)":[141]1100
  92. 920 [153][166]4)"(NULL) (NULL)    (NULL) (NULL)(NULL)(NULL) (NULL)"
  93. 930 [153][166]3)"(NULL)(NULL) (NULL)-right$peekpeek(NULL)spc((NULL)notnot(NULL)":[151]sn[170]4,0
  94. 940 [129]de[178]1 [164]500:[130]:[129]cl[178]1704[164]1903:[151]cl,32:[130]
  95. 950 [153][166]3)"onstop*pos getnotnewnew(NULL)= (NULL)notsqrspc(cont":[129]de[178]1[164]1000:[130]
  96. 960 [151]v,0:[151]v[170]1,0:[151]v[170]31,0:[137]200
  97. 970 [151]v[170]21,0
  98. 980 [153]"loadstopthank you!!":[153]:[153]"your knowledge and marksmanship";
  99. 990 [153]" have    savedstop":[153]:[153]ca$(p):[153]:[153]"the capital ofstop"
  100. 1000 [153]:[153] co$(p):[153]""
  101. 1010 [153]"hit any key to continue":[141]660:ss[178]ss[170]1:[142]
  102. 1020 [151]53280,10:[151]53281,10
  103. 1030 [153]"loadstop"[166]12)"(NULL)tab(tab(  (NULL)tab(tab(  fn then  (NULL)(NULL)":[153][166]12)"(NULL)to   fn    fn then  fnthen"
  104. 1040 [153][166]14)"(NULL)  fn    fn then  fnthen":[153][166]12)"toto(NULL)  (NULL)toto  (NULL)to(NULL)  (NULL)(NULL)"
  105. 1050 [153]"   the enemy is launching scud missiles at national capitals";
  106. 1060 [153]" in the americas.   your job is to get to the capital under attack";
  107. 1070 [153]" and destroy the missiles. use a  joystick in port two,";
  108. 1080 [153]" but be careful theequipment in different cities does not ";
  109. 1090 [153]" always respond with the same speed.":[141]900:[142]
  110. 1100 [151]sn[170]4,129:[151]sn[170]5,92:[151]sn[170]1,1:[151]sn,100:[129]f[178]1[164]999:[130]:[151]sn[170]4,0
  111. 1110 [142]
  112. 1120 [151]sn[170]14,5:[151]sn[170]18,16:[151]sn[170]3,1:[151]sn[170]6,240:[151]sn[170]4,65
  113. 1130 [151]sn,240:[151]sn[170]1,20:[151]v[170]30,0:[142]
  114. 1140 [153]"loadyou saved "ss" out of the "p
  115. 1150 [153]:[153]"cities that were attacked"
  116. 1160 [153]"would you like to try again (y/n)":[141]660
  117. 1170 [139] b$[178]"n"[167] [128]
  118. 1180 [139]b$[178]"y"[167] [138] 40
  119. 1190 [137]1140
  120. 1200 [131]antigua & barbuda,st. johns,bahamas,nassau,belize,belmopan
  121. 1210 [131]canada,ottawa,costa rica,san jose,cuba,havana,dominica,roseau
  122. 1220 [131]dominican republic,santo domingo,el salvador,san salvador,grenada
  123. 1230 [131]st. george's,guatemala,guatemala,haiti,port-au-prince,honduras
  124. 1240 [131]tegucigalpa,jamaica,kingston,mexico,mexico city,nicaragua,managua
  125. 1250 [131]panama,panama city,saint lucia,castries,saint vincent & the grenadines
  126. 1260 [131]kingstown,trinidad & tobago,port of spain,united states,washington d.c.
  127. 1270 [131]argentina,buenos aires,bolivia,la paz,brazil,brasilia,chile,santiago
  128. 1280 [131]colombia,bogota,ecuador,quito,guyana,georgetown,paraguay,asuncion
  129. 1290 [131]peru,lima,suriname,paramaribo,uruguay,montivideo,venezuela,caracas
  130. 1300 [131]barbados,bridgetown,st. kitts & nevis,basseterre
  131. 1310 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  132. 1320 [131]001,000,000,003,000,000,007,000,024,015,000,104,127,000,143,255,000
  133. 1330 [131]143,255,000,104,127,000,024,015,000,000,007,000,000,003,000,000,001
  134. 1340 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
  135. 1350 [131]000,000,000,000,000,000,000,000,000,000,000,000,000,000,004,000,000
  136. 1360 [131]006,000,000,007,000,000,007,128,000,007,192,000,007,224,000,007,240
  137. 1370 [131]000,007,248,000