home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 April / 1985-04.d64 / apple_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  67 lines
  1. 10 poke55,152:poke56,28:clr
  2. 20 fori=1to95:reada:x=x+a:next:ifx<>12828thenprint"error in data statements.":stop
  3. 30 restore:fori=828to866:reada:pokei,a:next
  4. 40 data 173,5,144,41,3,10,10
  5. 50 data 105,16,133,254,169,128
  6. 60 data 133,252,169,0,133,251,133
  7. 70 data 253,168,162,2,177,251,145,253
  8. 80 data 200,208,249,230,252,230,254
  9. 90 data 202,208,242,96
  10. 100 poke36878,15:dimn(16):fori=1to16:readn(i):next
  11. 110 data135,163,175,195,207,209,215,225,231,232,235,240,237,235,237,240
  12. 120 poke36879,25:print"[147]"chr$(142)chr$(8)spc(6)"[144]welcome to"
  13. 130 printspc(5)"[144]*a[159]p[156]ple [158]h[144]un[159]t[156]*":gosub600
  14. 140 print"     do you need"spc(10)"instructions?"spc(11)"[146](y or n)"
  15. 150 gety$:ify$=""or(y$<>"y"andy$<>"n")then150
  16. 160 y=(y$="y"):print"[147]":poke36869,255:sys828:gosub500:ifnot y then440
  17. 170 print"[147]":poke36879,251
  18. 180 printspc(5)"[156]you are:[146][144]s":printspc(5)"[156]monster:[146]!":printspc(5)"[156]apple:[146]v"
  19. 190 printspc(5)"[156]tree:[146]u":printspc(5)"[156]ruby:[218]"
  20. 200 print"[144]scoring:":print"v:50-500 points":print"!:1000 points"
  21. 210 print"[156][218]:3000 points"
  22. 220 gosub640
  23. 230 print"[147][144]s must grab 5 [146]v       before the time is up"
  24. 240 print"[144]the [146]![144] eats the [146]v[144] and  the[146] u[144]"
  25. 250 print"[144]every wave there are  more [146]u[144]
  26. 260 [153]"use the joystick to   move waitstops in 4 directions"
  27. 270 [141]640
  28. 280 [153]"loadstops will lose if he"
  29. 290 [153][166]4)"hits a waitu or is"
  30. 300 [153][166]2)"touched by thewait !stop"
  31. 310 [153]"your game is over if stopwaits":[153][166]4)"takes too long"
  32. 320 [141]640
  33. 330 [153]"loadextra waitstops & zap after   waves 5,10,15,20 & 25"
  34. 340 [153]"when waitstops is running out of time, the screen   will turn red"
  35. 350 [153]"the faster waitstops finishes a wave, the more bonuspoints are awarded
  36. 360 gosub640
  37. 370 print"[147]pressing the joystick button releases a zap"
  38. 380 print"[144]s may only fire a zap when stationary"
  39. 390 print"a zap destroys [146]u      surrounding it in 8   directions and resets time
  40. 400 [153]"stopusing a zap chases the";
  41. 410 [153]"wait!stop to another place in the forest or makes   the wait! stopdisappear"
  42. 420 [153]"hit any key to start"
  43. 430 [161]a$:[139]a$[178]""[167]430
  44. 440 [153]"load":[151]36879,25:[151]36869,240
  45. 450 [153]"stopfor tape, press play"
  46. 460 [153]"stop  just a few moments     while i load the        second part"
  47. 470 s$[178]"l(NULL)"[170][199](34)[170]"p2"[170][199](34)[170]",8:"[170][199](131)
  48. 480 [143] change 1 to 8 in prior line if you are using a disk drive
  49. 490 [129]i[178]1[164][195](s$):[151]630[170]i,[198]([202](s$,i)):[130]:[151]198,i:[128]
  50. 500 [129]c[178]7320[164]7327:[135]a:[151]c,a:[130]
  51. 510 [131]60,66,165,129,165,153,66,60
  52. 520 [129]c[178]7432[164]7439:[135]a:[151]c,a:[130]
  53. 530 [131]195,34,20,156,126,29,8,119
  54. 540 [129]c[178]7328[164]7335:[135]a:[151]c,a:[130]
  55. 550 [131]60,66,165,129,153,165,66,60
  56. 560 [129]c[178]7336[164]7343:[135]a:[151]c,a:[130]
  57. 570 [131]0,28,62,127,127,62,8,8
  58. 580 [129]c[178]7344[164]7351:[135]a:[151]c,a:[130]:[142]
  59. 590 [131]6,8,60,126,126,126,60,24
  60. 600 [151]36878,15:[129]o[178]0[164]8:[129]l[178]1[170]o[164]8[170]o:n[178]n(l)
  61. 610 [151]36876,n:[129]t[178]1[164]50:[130]:[130]:[130]:[129]v[178]15[164]0[169][171]1:[151]36878,v:[129]t[178]1[164]300:[130]
  62. 620 [151]36878,0:[151]36876,0
  63. 630 [142]
  64. 640 [153]"stophit any key"
  65. 650 [161]a$:[139]a$[178]""[167]650
  66. 660 [142]
  67.