home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / DEVIL.SFX / devil' (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-10-11  |  4.1 KB  |  109 lines
  1. 1 REM ZOUNDS!
  2. 2 OT=8:POKE52,48:POKE56,48:CLR
  3. 3 NB$="[159][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  4. 4 BN$="[155]BONUS:":POKE53272,21
  5. 5 TM$="[158]":POKE54296,0:POKE53269,0
  6. 6 IFPEEK(784)=0THEN10
  7. 7 IFPEEK(784)=1THENPOKE784,2:GOSUB1000:LOAD"DCHAR",8,1
  8. 8 IFPEEK(784)=2THENGOTO16
  9. 10 POKE53280,13:POKE53281,5:PRINT"[147]";
  10. 11 PRINT"  [153]PLEASE WAIT WHILE I LOAD IN MY DATA."
  11. 15 POKE784,1:LOAD"DEVIL.ML",8,1
  12. 16 POKE53272,28:POKE53280,0:POKE53281,0
  13. 17 GOSUB3000:PRINT"[147]";
  14. 20 PRINT" [160][160]* USE SHIFT-KEY[160]FOR PAUSING GAME[160]*[160][160]"
  15. 25 BT=1193
  16. 26 POKE824,0:POKE53269,0
  17. 30 PRINT"[159][160] [160][160] [160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] "
  18. 32 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  19. 33 PRINT"[159][160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] "
  20. 34 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  21. 35 PRINT"[160] [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] "
  22. 36 PRINT"[159][160][160][160][160][160][160][160][160][160][160][129][207][183][208][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  23. 40 PRINT"[159][160] [160][160] [160][160] [160][160][129][180]#[170][159][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] "
  24. 41 POKE53280,0:POKE53281,0
  25. 45 POKE54296,15:POKE54278,37:POKE54277,57
  26. 50 PRINT"[159][160][160][160][160][160][160][160][160][160][160][129][180]#[170][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  27. 60 PRINT"[159][160] [160][160] [160][160] [160][160][129][180]##[205][159][160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] [160][160] "
  28. 70 PRINT"[159][160][160][160][160][160][160][160][160][160][129][206]###[170][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  29. 80 PRINT"[159][160] [160][160] [160][160] [160][129][180]#[206]#[170][159][160][160][160][160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] "
  30. 90 PRINT"[159][160][160][160][160][160][160][160][160][129][206]####[170][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  31. 100 PRINT"[159][160] [160][160] [160][160][129][207]##[205]###[205][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] "
  32. 110 PRINT"[159][160][160][160][160][160][160][129][206]###[206][205]##[170][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  33. 120 PRINT"[159][160] [160][160][160][160][129][180]##[207]##[205]##[205][159][160][160][160][160][160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] "
  34. 130 PRINT"[159][160][160][160][160][160][129][207]#[180]#####[180]##[205][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  35. 140 PRINT"[159][160] [160][160][160][129][180]#[205]######[207]##[183][183][205][159][160][160][160][160][160][160][160][160][160][160][160][160] [160][160] [160][160] "
  36. 150 PRINT"[159][160][160][160][160][129][206]#########[205]####[170][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  37. 160 PRINT"[159][160][160][160][160][129][180]###############[205][159][160][160][160][160][160][160][160][160][129][206][183][208][159][160][160][160][160][160][160][160]"
  38. 165 POKE830,0:POKE827,0
  39. 170 PRINT"[159][160][160][160][160][129][180]##[175][206][183][183][208]#####[207]###[208][159][160][160][160][160][160][160][129][206]#[206]#[205][159][160][160][160][160][160][160]"
  40. 174 REM HELLO SKA! 3-0333
  41. 180 PRINT"[160][160][160][129][206]########[205]#########[183][183][183][183][183][183]#[206][205]##[205][160][160][160][160][160]"
  42. 190 PRINT"[183][183][183]###############################[183][183][183][183][183]";
  43. 200 PRINT"[159] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  44. 210 POKE1943,119:POKE1943+54272,8
  45. 211 FORJ=1063TO1903STEP40:POKEJ,96:POKEJ+54272,3:NEXT
  46. 220 PRINT"[156]SCORE:[153][154]INVADERS:[158]";
  47. 221 PRINT"A. MA[155]NI[152]KA[151]S"
  48. 222 IFPEEK(1991)<>32THEN230
  49. 223 PRINT"[156]SCORE:[153]0000[154]INVADERS:[158]00";
  50. 230 V=53248:POKEV+21,3:POKEV+23,0:POKEV+29,0:POKEV+39,7
  51. 240 POKE53276,1:POKE53285,13:POKE53286,14
  52. 250 POKE53248,100:POKE53249,88:POKE2040,15:N=6
  53. 262 BC=0:POKE53280,BC
  54. 263 H=0:POKE53269,0
  55. 300 REM DEVIL'S TOWER
  56. 301 GOSUB2000:PRINT"  PRESS JOYSTICK FIREBUTTON TO START  [146]"
  57. 302 K=PEEK(56320)AND16:IFK=0THEN302
  58. 303 K=PEEK(56320)AND16:IFK=16THEN303
  59. 304 PRINT"[159][160] [160][160] [160][160][160][160][160][160][160][160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] [160][160] "
  60. 305 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  61. 310 SYS 49152
  62. 320 PRINT"":POKE53281,2:FORJ=54272TO54295:POKEJ,0:NEXT
  63. 330 POKE54296,15:POKE54277,8:POKE54278,255:POKE54276,85
  64. 340 F1=70:F2=220:FORZ=1TO50:POKE54272,F1:POKE54287,F2:F2=F2-3:F1=F1*.97:NEXT
  65. 350 POKE54278,15:FORJ=54272TO54295:POKEJ,0:NEXT:POKE54296,15:POKE54278,255
  66. 355 POKE54277,8
  67. 360 POKE54276,21:F1=2:FORZ=1TO18:F2=80:POKE54273,F1:FORY=1TO3:POKE54287,F2
  68. 370 F2=F2/1.2:NEXT:F1=F1+10:NEXT:POKE54278,15
  69. 380 GOTO20
  70. 728 REM HAPPY BIRTHDAY ASM
  71. 1000 REM
  72. 1010 FORJ=244*64TO244*64+63:READA:POKEJ,A:NEXT
  73. 1020 FORJ=245*64TO245*64+63:POKEJ,0:NEXT
  74. 1030 POKE17+245*64,255
  75. 1060 RETURN
  76. 2000 POKE54296,15:FORJ=54273TO54295:POKEJ,0:NEXT:POKE53281,0:POKE53280,0
  77. 2010 POKE54277,8:POKE54278,255:POKE54276,23:F1=10:FORZ=1TO15:F2=45
  78. 2015 PRINT"  PRESS JOYSTICK FIREBUTTON TO START  [146]"
  79. 2020 POKE54273,F1:FORY=1TO5:POKE54287,F2:F2=F2*1.1:NEXT:F1=F1+12
  80. 2025 POKE646,INT(RND(1)*15)+1:NEXT
  81. 2030 POKE54278,15:RETURN
  82. 3000 POKE53280,0:POKE53281,0:POKE198,0
  83. 3005 PRINT"[147]";CHR$(142);CHR$(8);
  84. 3010 PRINT"[158]  [201][196][201][201][196][201][201] [213][213][178][201][201]  [209][213][196][201]  [213][178][201][213][196][201][201][201][213][201][196][201][201][196][201]"
  85. 3011 PRINT"  [200] [200][171][201] [200] [199] [200][160][200]   [202][198][201]   [199] [199] [200][199][200][200][171][201] [171][198][203]"
  86. 3012 PRINT"[156]  [203][198][203][203][196][203][202][198][203][202][177][203][203][196][203][160][202][198][203]  [160][203][160][202][198][203][202][177][203][203][198][203][203][160][205]"
  87. 3020 FORJ=1TO20:PRINT"[192][192]";:NEXT
  88. 3030 PRINT
  89. 3040 PRINT"[154]  MANUEVER YOUR SHIP WITH THE JOYSTICK"
  90. 3050 PRINT"PLUGGED IN PORT-2.  SHOOT INVADERS ([209][154])"
  91. 3060 PRINT"BY PRESSING THE [150]FIRE-BUTTON[146][154].  YOU WILL"
  92. 3070 PRINT"RECEIVE [153]1[154] POINT PER INVADER SHOT.  AVOID"
  93. 3080 PRINT"HITTING THE MOUNTAIN OR INVADERS:  IF"
  94. 3090 PRINT"YOU DO, YOUR GAME IS ENDED.  ALSO, IF"
  95. 3100 PRINT"[153]30[154] INVADERS APPEAR AROUND THE TOWER"
  96. 3110 PRINT"AT ONE TIME, EARTH WILL BE INVADED AND"
  97. 3120 PRINT"YOUR GAME WILL BE ENDED."
  98. 3130 PRINT:PRINT"[192][192][192][192][192][192][192][192][155]PRESS ANY KEY TO BEGIN.[146][192][192][192][192][192][192][192][192]"
  99. 3140 FORJ=54272TO54295:POKEJ,0:NEXT:POKE54296,15
  100. 3150 POKE54277,8:POKE54278,255:POKE54276,23:F2=4:FORZ=1TO3:POKE54287,F2
  101. 3160 FORF1=1TO200STEP1.5:POKE54273,F1:F2=F2+.013:NEXT:GETT$
  102. 3170 IFT$=""THENNEXT:POKE54278,15:GOTO3140
  103. 3180 FORJ=54272TO54296:POKEJ,0:NEXT
  104. 3190 RETURN
  105. 5000 DATA0,0,0,64,1,128,80,7,240,84,31,252,85,31,252,170
  106. 5010 DATA170,170,42,170,168,10,170,128,0,0,0,0,0,0,0,0,0
  107. 5020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  108. 5030 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  109.