home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_09_(08-1984).d64 / fighter (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  157 lines
  1. 10 POKE53280,2:POKE53281,0:GOSUB1200:GOSUB4000
  2. 20 FORI=0TO5:HI$(I)="":NEXTI
  3. 30 X=254:Y=222:V=53248
  4. 40 POKE2040,251:POKE2041,252:FORI=2042TO2047:POKEI,253:NEXTI
  5. 50 POKEV,X:POKEV+16,0:POKEV+1,255
  6. 60 POKEV+28,255:POKEV+27,0:POKEV+23,0:POKEV+29,0:POKEV+40,1:POKEV+38,14
  7. 70 POKEV+39,14:POKEV+37,0:POKEV+21,253:FORI=V+41TOV+46:POKEI,7:NEXTI
  8. 80 FORI=V+4TOV+14STEP2:POKEI,0:NEXTI
  9. 90 FORI=V+5TOV+15STEP2:POKEI,(I-V-5)*19.9:NEXTI
  10. 100 POKE54280,8:POKE54279,0:POKE54282,0:POKE54281,0:POKE54284,25:POKE54285,0
  11. 130 PRINT"[147]";:SYS49321:GOSUB1300:POKEV+1,Y
  12. 140 POKE54296,15:POKE54277,9:POKE54278,0
  13. 145 POKE54273,16:POKE54272,0
  14. 180 SYS49152:I=PEEK(53278):POKE251,0
  15. 190 SYS49374:SYS65418
  16. 195 FORI=0TO15:POKEV+I,0:NEXTI
  17. 200 SC$=""
  18. 210 FORI=1176TO1182:SC$=SC$+CHR$(PEEK(I)):NEXT
  19. 220 POKE53269,0:PRINT"[147]"CHR$(142)CHR$(8):GOSUB3000
  20. 230 PRINT""TAB(15)"SCORE "VAL(SC$)
  21. 240 FORI=0TO4
  22. 250 IFSC$<HI$(I)THEN300
  23. 260 FORJ=5TOI+1STEP-1
  24. 270 HI$(J)=HI$(J-1)
  25. 280 NEXTJ
  26. 290 HI$(I)=SC$:I=4
  27. 300 NEXTI
  28. 310 PRINT""TAB(15)"HIGH SCORES"
  29. 320 FORI=0TO4
  30. 330 PRINTTAB(14)I+1VAL(HI$(I))
  31. 340 NEXTI
  32. 460 PRINT""TAB(10)"(PRESS FIRE TO PLAY)"
  33. 470 IF(PEEK(56320)AND16)<>0THEN470
  34. 480 GOTO30
  35. 500 POKE56334,0:POKE1,51
  36. 510 OF=53248-12288
  37. 520 FORI=12288TO12288+250*8-1
  38. 530 POKEI,PEEK(I+OF)
  39. 540 NEXTI
  40. 550 POKE1,55:POKE56334,1
  41. 560 FORI=12288+250*8TO12288+256*8-1:POKEI,0:NEXTI
  42. 570 POKE12288+253*8,8
  43. 580 POKE53272,29
  44. 590 RETURN
  45. 900 I=251*64
  46. 910 READA:IFA=-1THEN5000
  47. 920 POKEI,A:I=I+1:GOTO910
  48. 999 REM********************************
  49. 1000 DATA0,32,0,0,32,0,0,32,0
  50. 1001 DATA0,32,0,0,152,0,0,152,0
  51. 1002 DATA0,152,0,0,152,0,0,168,0
  52. 1003 DATA2,170,0,130,170,8,138,170,136
  53. 1004 DATA41,169,160,166,170,104,154,170,152
  54. 1005 DATA160,168,40,0,168,0,0,168,0
  55. 1006 DATA2,170,0,10,170,128,10,34,128,0
  56. 1007 DATA0,32,0,0,32,0,0,32,0
  57. 1008 DATA0,32,0,0,32,0,0,32,0
  58. 1009 DATA0,32,0,0,32,0,0,0,0
  59. 1010 DATA0,0,0,0,0,0,0,0,0
  60. 1011 DATA0,0,0,0,0,0,0,0,0
  61. 1012 DATA0,0,0,0,0,0,0,0,0
  62. 1013 DATA0,0,0,0,0,0,0,0,0,0
  63. 1014 DATA8,0,128,10,154,128,2,154,0
  64. 1015 DATA0,152,0,0,152,0,2,170,0
  65. 1016 DATA1,169,0,9,169,128,41,169,160
  66. 1017 DATA169,169,168,160,168,40,128,152,8
  67. 1018 DATA128,152,8,0,152,0,0,152,0
  68. 1019 DATA0,48,0,0,48,0,0,48,0
  69. 1020 DATA0,48,0,0,48,0,0,48,0,0
  70. 1021 DATA0,0,0,0,0,0,0,32,0
  71. 1022 DATA0,8,0,0,0,0,0,2,0
  72. 1023 DATA0,128,0,8,0,0,0,8,0
  73. 1024 DATA2,32,128,0,8,0,0,32,32
  74. 1025 DATA0,130,0,8,0,0,0,0,128
  75. 1026 DATA0,32,0,0,0,0,2,2,0
  76. 1027 DATA0,32,0,0,0,0,0,0,0,0
  77. 1028 DATA0,128,0,0,0,128,0,32,0
  78. 1029 DATA8,0,8,0,0,0,0,128,2
  79. 1030 DATA130,0,0,0,160,32,0,136,0
  80. 1031 DATA32,136,2,2,138,0,128,8,136
  81. 1032 DATA32,128,2,0,32,0,32,32,32
  82. 1033 DATA0,0,32,8,0,0,0,2,0
  83. 1034 DATA0,128,0,0,0,32,0,8,0,-1
  84. 1200 PRINT"[147]"CHR$(142)CHR$(8):GOSUB3000
  85. 1210 PRINT""TAB(10)"BY ROBERT L. SMITH"
  86. 1215 PRINT""TAB(20)"PLEASE WAIT...."
  87. 1220 GOSUB900:RETURN
  88. 1300 PRINT"";:FORI=0TO20:PRINTSPC(28)"[161]           [146]";:NEXTI
  89. 1302 PRINTSPC(32)"[223]       [146]";
  90. 1305 FORI=22TO23:PRINTSPC(33)"       [146]";:NEXTI
  91. 1310 PRINTSPC(32)"[169]      [146]";
  92. 1320 POKE56295,2:POKE2023,160
  93. 1330 PRINT"[154]"TAB(31)"[161] SCORE [161][146]"TAB(71)"[161]0000000[161][146]"
  94. 1340 PRINT""TAB(31)"[161] SHIPS [161][146]"TAB(71)"[161]   2   [161][146]"
  95. 1380 RETURN
  96. 3000 PRINT"[154]   [178][195][195][195][174]"
  97. 3010 PRINT"   [221]     [178] [213][195][195][201] [178]  [178] [176][195][178][195][174] [178][195][195][174] [178][192][195][201]"
  98. 3020 PRINT"   [221]     [221] [221]    [221]  [221]   [221]   [221]    [221]  [221]"
  99. 3030 PRINT"   [171][195][195]   [221] [221] [195][178] [171][195][195][179]   [221]   [171][195][195]  [171][192][178][203]"
  100. 3040 PRINT"   [221]     [221] [221]  [221] [221]  [221]   [221]   [221]    [221] [202][201]"
  101. 3050 PRINT"   [221]     [221] [221]  [221] [221]  [221]   [221]   [221]    [221]  [221]"
  102. 3060 PRINT"   [177]     [177] [202][195][195][203] [177]  [177]   [177]   [177][195][195][189] [177]  [177]"
  103. 3070 RETURN
  104. 4000 FORI=16384TO17383:POKEI,32:NEXTI
  105. 4005 GOSUB500
  106. 4010 FORJ=16385TO16423STEP2
  107. 4015 I=INT(RND(1)*6)+250
  108. 4020 FORK=0TO960STEP40
  109. 4030 POKEJ+K,I:I=I+1:IFI=256THENI=250
  110. 4040 NEXTK,J
  111. 4050 FORI=1TO250:POKE16384+INT(RND(1)*1000),32:NEXTI
  112. 4060 RETURN
  113. 5000 REM*******************************
  114. 5010 READA:IFA>255THENI=A:GOTO5010
  115. 5020 IFA=-1THENRETURN
  116. 5030 POKEI,A:I=I+1:GOTO5010
  117. 5040 REM*******************************
  118. 5090 DATA49152,162,13,160,192,120,142,20,3,140,21,3,88,96,160,255,185,0,55,153
  119. 6000 DATA1,55,136,192,207,208,245,173,0,56,141,208,55,160,2,173,0,220,41,4,208
  120. 6010 DATA11,174,0,208,202,224,25,144,3,142,0,208,173,0,220,41,8,208,11,174,0
  121. 6020 DATA208,232,224,254,176,3,142,0,208,162,0,254,5,208,232,232,224,12,208
  122. 6030 DATA247,136,208,206,165,251,208,9,165,162,41,1,208,3,76,49,234
  123. 6040 DATA162,0,173,0,208,201,230,176
  124. 6050 DATA46,189,4,208,201,25,144,33,189,4,208,201,230,176,26,189,4,208,105,20
  125. 6060 DATA205,0,208,176,3,254,4,208,189,4,208,233,20,205,0,208,144,3,222,4,208
  126. 6070 DATA232,232,224,12,208,210
  127. 6080 DATA234,234,234,162,0,254,5,208,232,232,224,12,208,247,76,49,234
  128. 6085 REM*******************************
  129. 6090 DATA169,1,162,0,157,0,216,157,250,216,157,244,217,157,238,218
  130. 6100 DATA232,224,250,208,239,162,0,189,0,64,157,0,4,189,250,64,157,250,4
  131. 6110 DATA189,244,65,157,244,5,189,238,66,157,238,6,232,224,250,208,227,96
  132. 6130 REM*******************************
  133. 6140 DATA173,139,5,201,47,208,1,96,32,133,193,162,0,189,5,208,201,30,176
  134. 6150 DATA18,169,128,109,18,208,42,42,201,25,144,7,201,230,176,3,157,4,208,232
  135. 6160 DATA232,224,12,208,225,173,0,208,201,240,176,62,173,0,220,41,16,208,55
  136. 6170 DATA174,0,208,142,2,208,160,210,140,3,208,173,21,208,9,2,141,21
  137. 6180 DATA208,169,128,141,4,212,169,129,141,4,212,162,224,206,3,208
  138. 6190 DATA32,133,193,202,208,253,172,3,208,192,60,208,238
  139. 6200 DATA173,21,208,41,253,141,21,208,76,222,192
  140. 6210 REM*******************************
  141. 6220 DATA169,128,141,11,212,169,129,141,11,212,162,151
  142. 6230 DATA160,4,134,253,132,254,160,5,177,253
  143. 6240 DATA170,232,224,58,208,19,162,48,138,145,253,192,4,208,7,238,139,5
  144. 6250 DATA165,1,133,251,136,208,229,138,145,253,96
  145. 6260 REM*******************************
  146. 6270 DATA173,30,208,133,2,201,0,208,1,96,32,82,193
  147. 6280 DATA169,253,141,21,208,162,0,165,2,41,1,240,5,169,254,157,248,7,102,2
  148. 6290 DATA232,224,1,240,249,224,8,208,234,160,32,162,0,202,208,253,136
  149. 6300 DATA208,248,162,0,189,248,7,201,254,208,5,169,255,157,248,7
  150. 6310 DATA232,224,1,240,251,224,8,208,235,160,16,162,0,202,208,253,136
  151. 6320 DATA208,248,162,0,160,0,189,250,7,201,255,208,5,169,0,153,4,208,200
  152. 6330 DATA200,232,224,6,208,237,173,248,7,201,255,208,9,141,0,208
  153. 6340 DATA206,0,208,206,139,5
  154. 6350 DATA162,0,160,251,189,248,7,201,255,208,4,152,157,248,7,160,253,232,224,1
  155. 6360 DATA240,251,224,8,208,234,160,16,162,0,202,208,253,136,208,248
  156. 6370 DATA160,60,140,3,208,173,30,208,96,-1
  157.