home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / freaks (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  10KB  |  81 lines
  1. 10 gosub1000:poke53265,11
  2. 20 poke49412,88:poke49413,27:poke53272,29:poke53281,0:poke716,3
  3. 30 poke724,0:poke725,0:poke715,0:gosub370
  4. 40 poke30812,0:poke30813,0:poke30834,3:poke30835,3:poke30836,4:poke30837,4
  5. 50 ti$="000000":poke29964,227:poke29965,231:poke29966,240:(NULL)
  6. 60 poke53265,27
  7. 70 h=0:m=0:l=1:goto760
  8. 80 ifpeek(715)>220thenh=h+1:(NULL)7:poke715,0:ifh=5then:(NULL):(NULL):goto330
  9. 90 ifq=0andrnd(0)>.95thenp=int(37*rnd(0)):pokep+1545,104:q=1
  10. 100 r=int(peek(700)+12)/4-6
  11. 110 ifqthenifr>pandr<p+2andpeek(708)=150thengosub240
  12. 120 ifqthenq=q+1:ifq>40thenq=0:poke1545+p,65:p=0
  13. 130 ifpeek(716)=0then330
  14. 140 ifpeek(716)=2thenpoke716,1
  15. 170 ifti$="000050"then700
  16. 180 ifti$="000140"then710
  17. 190 ifti$="000230"then720
  18. 200 ifti$="000320"then730
  19. 210 ifti$="000410"then740
  20. 215 ifti$="000500"then480
  21. 220 print"[153][160][160][160][160][160][160][160][160]score[146][160]";peek(725)*256+peek(724):goto80
  22. 240 (NULL)4:poke1545+p,65:p=0:q=0:r=0:a=peek(724):m=m+1
  23. 250 a=a+50:ifa>255thena=a-256:poke725,peek(725)+1
  24. 260 poke724,a:return
  25. 330 print"the[160]city[160]is[160]in[160]turmoil![146][160][160][160][160][160][160][160][160]":(NULL)6:(NULL) (NULL)
  26. 340 fort=1to999:(NULL)0:next
  27. 350 goto530
  28. 370 print"[147]      ^"spc(14)"^          ^"
  29. 380 print"[155]  ^ [\\\\\\\\\]"spc(14)"[150]^":print"     ddddedded"
  30. 390 print"     c[155]@a[155]@a[155]@a[155]@e      ^":print"   ^ cddddddee"
  31. 400 print"     c[155]@a[155]@a[158]%a[155]@e  [155]\\\\\\\\\  ^"
  32. 410 print" ^   cddddddee  [154][194][194][194][194][194][194][194][194][194]"
  33. 420 print"[152][\\\\a[158]%a[155]@a[155]@a[155]@a  c[155]@a[158]%a[155]@a[155]@a"
  34. 430 print" [150]dcdcacdkladee  cbddcbdbd  [152]xxxxxx"
  35. 440 print" [150]c[155]kl[150]ea[155]@aija[158]%aet c[155]@ad[155]kld[158]%at[152][w[155]('[152]w[158]%[152]w[ [ ["
  36. 450 print" [150]e[155]ij[150]eahh[155]mnhhhhs hbchijhchs[152]????????????[151]
  37. 460 [129]t[178]1[164]4:[153]"__________";:[130]:[129]t[178]1[164]40:[153]"atnatnatnatnatnatnatnatnatnatn";:[130]
  38. 470 [129]t[178]1[164]4:[153]"__________";:[130]:[142]
  39. 480 [153]"load":[151]53272,21:[223]:[205]
  40. 490 [153][163]10)"sysyou have succeeded!!"
  41. 500 [153][163]8)"printyou have beaten the odds"
  42. 510 [153][163]8)"and defprotected the city!"
  43. 520 [137]570
  44. 530 [223]:[205]
  45. 540 [153]"load":[151]53272,21:[151]214,5:[153]:[151]53270,200
  46. 550 [153]"def    what will be the fate of earth?"
  47. 560 [153]" will our hero be supper for the spawn?"
  48. 570 f$[178]"final score :"[170][196]([194](725)[172]256[170][194](724))[170]" "
  49. 580 [153]""[163]12)"contmen caught :";m
  50. 590 [129]t[178]1[164]91:b$[178][201](f$,1):f$[178]b$[170][200](f$,39):[153]"sys"f$:[130]
  51. 600 [153]"";
  52. 610 [153][163]8)"fortry your luck again? y<=forncmdcmdcmd";:n$[178]"=>cmdcmd":y$[178]"<=cmdcmd"
  53. 620 [139][194](56320)[178]123[167][153]y$;
  54. 630 [139][194](56320)[178]119[167][153]n$;
  55. 640 [139]([194](56320)[178]111)[167]660
  56. 650 [137]620
  57. 660 [139][194](1854)[178]60[167][151]53272,21:[156]:[151]198,0:[138]
  58. 670 [153]"load":[128]
  59. 700 [151]29966,242:[151]30812,70:[151]30835,5:l[178]2:[137]750
  60. 710 [151]30835,6:l[178]3:[137]750
  61. 720 [151]29965,250:[151]29966,244:[151]30813,70:l[178]4:[137]750
  62. 730 [151]30834,8:[151]30836,8:[151]30837,8:l[178]5:[137]750
  63. 740 l[178]6
  64. 750 q[178]0:[153]"pokeatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatnatn"
  65. 755 [129]t[178]0[164]37:[158]49152:[130]
  66. 760 [153]""[163]30)"contsectorwait"l:[137]80
  67. 1000 [153]"load";:[151]53280,0:[151]53281,0
  68. 1005 a$[178]"                                      ":[223]:[205]
  69. 1010 [153]a$:[129]t[178]1[164]13:[153]" "[166]36)" ":[130]:[153]a$
  70. 1030 [153]"print"[163]14)"freak defattack"
  71. 1040 [153]"sysfly your saucer to shoot the aliens
  72. 1042 print"through the streets of the city
  73. 1044 [153]"and surrounding country. do not let
  74. 1046 print"more than 5 bombs drop on the
  75. 1048 [153]"street! 6 levels of increasing
  76. 1050 print"difficulty. pick up men for points.
  77. 1070 [153]"cont made by kevin messerschmidtcont for
  78. 1072 printtab(5)"the gazette arcade challenge!"
  79. 1076 printtab(15)"hit a key"
  80. 1080 wait198,1:print"[147]";:return
  81.