home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 January / 1987-01.d64 / decipede (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  67 lines
  1. 10 if peek(49152)=169 then30
  2. 20 ifl=0thenl=1:load"dec ml",8,1
  3. 30 print chr$(8):goto580
  4. 40 m=3:w=1:c=1:s=25:p=25
  5. 50 print"[147][158]guns";m;"     score";n;"         [144] [215][215][215][215][215][215][215][215][215][215]";
  6. 60 print"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][209][209][209][209][209][209][209][209][209][209]";
  7. 70 print"                                       [216]";
  8. 80 fori=1to21
  9. 90 print"[216]                                      [216]";
  10. 100 nexti
  11. 110 fori=1to150
  12. 120 r=rnd(1)*679+1
  13. 130 poke1144+r,88
  14. 140 nexti:poke1984,88:poke2023,60:poke1864,62
  15. 150 gosub190
  16. 160 sys 50572:poke251,211:poke252,7
  17. 170 sys 49152
  18. 180 goto240
  19. 190 sys 49680:sys 51432:poke49299,2
  20. 200 poke52994,c:poke52996,s
  21. 210 poke 52998,0:poke52997,0
  22. 220 poke52999,0:ss=2:poke53013,ss:poke53015,0:poke6,0
  23. 230 forxx=54272to54295:pokexx,0:next:poke54296,15:return
  24. 240 rem
  25. 250 ifpeek(52998)<10thenm=m-1:ifm=0thenprint"[147]":goto550
  26. 260 x=peek(52997):y=peek(52998):sp=peek(53015):si=peek(53002)
  27. 270 n=n+x*25+y*50+sp*200+si*1200
  28. 280 ifn=>12000*wthenm=m+1:w=w+1
  29. 290 print"[158]"tab(5);m;tab(17);n
  30. 300 print"[145][144][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][209][209][209][209][209][209][209][209][209][209]"
  31. 310 sys 50614
  32. 320 fori=1tox+y+13
  33. 330 r=rnd(1)*679+1
  34. 340 poke1144+r,88
  35. 350 nexti
  36. 360 poke1110+z,32
  37. 370 z=rnd(1)*31+1
  38. 380 poke1110+z,88
  39. 390 ifpeek(52998)<10thenp=p-1:goto490
  40. 400 c=c+1:ifc=15thenc=1
  41. 410 ifc/3<>int(c/3)then480
  42. 420 onc/3goto430,440,450,460,470
  43. 430 s=p-3:p=p-1:goto500
  44. 440 s=p-3:p=p-1:goto500
  45. 450 s=p-4:p=p-1:goto500
  46. 460 s=p-4:p=p-1:goto500
  47. 470 s=p-4:p=p-1:goto500
  48. 480 ifc<8thens=p:goto500
  49. 490 s=p-1
  50. 500 ifs<7thens=7
  51. 510 ifp=7thenp=13
  52. 520 gosub190
  53. 530 sys 50572:poke251,211:poke252,7:sys49152
  54. 540 goto240
  55. 550 print"[147]game over"
  56. 560 print:print:print"score";n
  57. 570 fors=1to4000:next
  58. 580 poke53280,0:poke53281,0:print"[147]";
  59. 590 print"      [223][146] [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146] [169] [223][146]   [223][146] [169] [223][146]"
  60. 600 print"     [146]  [146]  [146]    [146]     [146]   [146]  [146]  [146]    [146]  [146]  [146]"
  61. 610 print"     [146]  [146]   [146]   [146]     [146]    [146][169]   [146]   [146]  [146]   [146]"
  62. 620 print"     [146]  [146]  [146]    [146]     [146]   [146]    [146]    [146]  [146]  [146]"
  63. 630 print"      [146][169] [223] [146][169] [223] [146][169] [223] [146][169]  [146]   [223] [146][169]   [146][169] [223] [146][169]"
  64. 640 print:printspc(8)"press trigger to begin[146]"
  65. 650 ifpeek(56320)=111thenrun 40
  66. 660 goto650
  67.