home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / STARWARS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.6 KB  |  127 lines
  1. 1 REM:STAR WARS
  2. 2 REM:FROM FRESNO 64 USERS GRP
  3. 3 REM:1984
  4. 5 PRINT"[147]":POKE214,10:PRINT:PRINTTAB(13)"STAR WARS":
  5. 6 PRINT"FROM FRESNO 64 USERS[146]":FOR J=1 TO999:NEXT
  6. 8 PRINT"[147]"
  7. 10 POKE53281,11:POKE53282,12:POKE53283,13:Z=53270:POKEZ,PEEK(Z)OR16:
  8. 20 POKE52,56:POKE56,56:CLR:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
  9. 30 IFPEEK(14336)<>60THENFORI=0TO511:POKEI+14336,PEEK(I+53248):NEXT
  10. 35 POKE1,PEEK(1)OR4:POKE53280,0:V=53248
  11. 40 POKE56334,PEEK(56334)OR1:POKE53272,(PEEK(53272)AND240)+14:POKE54296,0
  12. 50 FORJ=0TO7:POKE14336+27*8+J,170:POKE14336+29*8+J,85:READQ:POKE14848+J,Q
  13. 55 POKE14336+28*8+J,255:POKE14336+31*8+J,255-PEEK(14336+46*8+J):NEXT
  14. 57 DATA255,243,243,192,243,243,255,255
  15. 60 FORJ=0TO15:READQ:POKE14856+J,Q:NEXT:DATA254,254,252,240,232,156,235,247
  16. 61 DATA127,127,63,15,23,57,215,239
  17. 85 D=55296-1024:FORJ=1024TO1503:IFRND(1)>.9THENPOKEJ,31:POKEJ+D,8:J=J+1
  18. 87 POKEJ,28:POKEJ+D,8:NEXT:Q$="SCORE"
  19. 88 FORJ=1TO5:POKE1023+J,ASC(MID$(Q$,J,1))-64:POKE1023+J+D,0:NEXT:POKE1029,58
  20. 89 FORJ=1029TO1035:POKEJ+D,0:NEXT:NS=3:GOSUB5000:SC=0:GOSUB5010
  21. 90 FORJ=1TO10:READQ:POKEQ-47,64:NEXT
  22. 95 DATA1087,1090,1165,1212,1251,1290,1331,1297,1371,1413
  23. 110 FORJ=1TO16
  24. 113 G=0
  25. 115 IFJ>5THENIFJ/2=INT(J/2)THENF=F+40:G=40
  26. 120 READC
  27. 130 T=1+J
  28. 140 FORX=0TO18-T:M=1344+J*40+X:N=1344+J*40+39-X
  29. 150 Q=M:GOSUB500:Q=N:GOSUB500
  30. 160 NEXTX
  31. 170 FORI=1364+J*40TO1444+J*40+FSTEP40
  32. 180 Q=I-T-1:GOSUB500:Q=I+T:GOSUB500
  33. 190 NEXT:I=I-40
  34. 200 FORH=I-T-1 TOI+T
  35. 210 Q=H:GOSUB500:Q=H-G:GOSUB500:NEXT:NEXT:GOTO700
  36. 300 DATA32,27,29,32,27,29,29,32,32,27,27,29,29,29,32,32
  37. 500 IFQ<2024THENPOKEQ,C:POKEQ+D,8
  38. 501 RETURN
  39. 700 IFPEEK(832)=33THEN800
  40. 705 FORJ=0TO2:FORI=0TO62:READQ:POKE832+J*64+I,Q:NEXT:NEXT
  41. 710 DATA33,0,0,64,128,0,140,64,0,158,64,0,243,192,0,158,64,0,140,64,0
  42. 720 DATA64,128,0,33,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  43. 730 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  44. 735 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  45. 740 DATA0,8,0,0,8,0,0,28,0,0,28,0,1,255,192,3,255,224,127,127,127
  46. 750 DATA30,62,60,3,99,96,1,193,192,0,0,0,0,0,0,0,0,0,0,0,0
  47. 770 DATA0,128,0,32,32,0,0,2,0,10,128,2,40,2,0,152,130,128,96,128,130
  48. 780 DATA128,150,136,0,1,215,64,215,64,128,125,10,0,20,130,0,0,128,96,105,0
  49. 785 DATA0,128,128,130,128,128,41,0,64,6,0,64,10,2,128,128,8,2,0,8,0
  50. 790 FORJ=15232TO15296:POKEJ,0:NEXT:FORJ=15253TO15273:READQ:POKEJ,Q:NEXT
  51. 792 DATA0,112,0,0,136,0,1,36,0,1,116,0,1,36,0,0,136,0,0,112,0
  52. 800 V=53248:POKEV+21,0:POKE2040,14:POKEV+39,1:POKEV+28,0:POKEV+46,0
  53. 805 POKE2047,238:POKEV+16,0:POKEV+23,0:POKEV+29,0:FORJ=1TO6:POKE2040+J,13
  54. 810 POKEV+39+J,INT(RND(1)*3)+5:NEXT
  55. 815 FORJ=54272TO54299:POKEJ,0:NEXT
  56. 900 IFV<>53248THEN STOP
  57. 910 X=160:POKEV,X:POKEV+1,200:POKEV+29,1:POKEV+23,1:POKEV+21,1:LV=1:W=4:E=8
  58. 920 POKE2047,238:IFPEEK(49172)<>206THENGOSUB2000
  59. 925 POKE49152,6:POKE49153,6:POKEV+46,0
  60. 930 SYS53000
  61. 933 S=54272:POKES+24,15:POKES+5,1:POKES+6,128:POKES+4,129:POKES+1,12
  62. 980 A=0
  63. 990 IFA>11+LV*3THEN6000
  64. 995 IF(PEEK(56321)AND16)=0THENGOSUB6200
  65. 1000 FORJ=1TO6:IFRND(1)<(1-LV/20)ORX(J)<>0THEN1050
  66. 1005 POKE2040+J,13:X(J)=180:Y(J)=120:A=A+1
  67. 1010 M%(J)=RND(1)*(5+LV/2)-2-LV/4:POKEV+39+J,INT(RND(1)*3+0):R(J)=W
  68. 1020 POKEV+J*2,X(J):POKEV+1+J*2,Y(J):POKEV+21,PEEK(V+21)OR(2^J):GOTO1080
  69. 1050 NEXT
  70. 1080 FORJ=1TO6:IFX(J)=0THENNEXT:GOTO1110
  71. 1085 IFY(J)<160ORR(J)=ETHEN1095
  72. 1090 POKEV+29,PEEK(V+29)OR(2^J):POKEV+23,PEEK(V+23)OR(2^J):R(J)=E:M%(J)=M%(J)*2
  73. 1092 FORN=S+7TOS+13:POKEN,0:NEXT
  74. 1093 POKES+24,15:POKES+12,207:POKES+13,0:POKES+8,10:POKES+11,33
  75. 1095 Y(J)=Y(J)+R(J):X(J)=X(J)+M%(J)
  76. 1100 POKEV+J*2,X(J):POKEV+1+J*2,Y(J)
  77. 1104 IFY(J)<222ANDPEEK(2040+J)=13THEN1107
  78. 1105 X(J)=0:POKEV+21,PEEK(V+21)AND(255-2^J)
  79. 1106 POKEV+29,PEEK(V+29)AND(255-2^J):POKEV+23,PEEK(V+23)AND(255-2^J)
  80. 1107 NEXT
  81. 1110 IF(PEEK(V+30)AND1)<>1THEN990
  82. 1111 POKEV+21,1:POKES+11,0
  83. 1120 POKES+1,4:FORI=1TO10:POKES+24,15-ABS(6-I):FORJ=0TO7:POKEV+39,J
  84. 1130 FORH=1TO10:NEXT:NEXT:NEXT:POKES+24,15:POKES+1,12
  85. 1140 GOSUB5020:K=PEEK(V+30):GOTO1000
  86. 2000 J=0:READT:IFT<999THENSTOP
  87. 2002 READQ:IFQ>=0THENPOKEJ+T,Q:J=J+1:GOTO2002
  88. 2004 IFQ<>-99 THENGOTO2000
  89. 2006 RETURN
  90. 2020 DATA49172,206,0,192,173,0,192,240,3,76,100,192
  91. 2030 DATA173,1,192,141,0,192,162,1,254,32,208,189,32,208,41,255,233,253,48,9
  92. 2040 DATA222,32,208,222,32,208,222,32,208
  93. 2050 DATA232,224,4,208,230,76,100,192,-1
  94. 2080 DATA49252,173,1,220,41,4,208,15,173,0,208
  95. 2090 DATA233,105,48,8,173,0,208,233,4,141,0,208
  96. 3000 DATA173,1,220,41,8,208,15,173,0,208
  97. 3010 DATA233,218,16,8,173,0,208,105,4,141,0,208,76,49,234,-1
  98. 3050 DATA53000,120,169,20,141,20,3,169,192,141,21,3,88,96,-99
  99. 5000 IFNS>6THENNS=6:SC=SC+375:GOSUB5010
  100. 5001 FORJ=1062TO1065-NS*3STEP-3:POKEJ,65:POKEJ+1,66:POKEJ+D,0:POKEJ+1+D,0:NEXT
  101. 5002 RETURN
  102. 5010 S$=STR$(SC):FORJ=1TOLEN(S$):POKE1029+J,ASC(MID$(S$,J,1)):NEXT
  103. 5013 O=INT(SC/1000):IFO>PTHENP=O:NS=NS+1:GOSUB5000:GOSUB5050
  104. 5016 RETURN
  105. 5020 FORI=1TO2:POKE1064-NS*3+I,28:NEXT:NS=NS-1:IFNS>0THENRETURN
  106. 5030 PRINT"[147]GAME OVER"
  107. 5031 POKE56334,PEEK(56334)AND254
  108. 5032 POKE788,49:POKE789,234
  109. 5033 POKE56334,PEEK(56334)OR1:POKE198,0:POKE53249,0:POKE54296,0
  110. 5034 FORI=1TO2000:NEXT:SYS2048
  111. 5050 FORN=S+14TOS+20:POKEN,0:NEXT
  112. 5051 POKES+24,15:POKES+19,61:POKES+15,30:POKES+18,17:RETURN
  113. 6000 POKEV+21,1:FORJ=5TO1STEP-1:POKE49153,J:FORI=132-J*20TO142-J*20:POKES+1,I
  114. 6010 FORH=1TO40:NEXT:NEXT:NEXT:SC=SC+LV*75:GOSUB5010:FORJ=1TO3000:NEXT:LV=LV+1
  115. 6020 FORJ=2TO6:POKE49153,J:FORI=142-J*20TO132-J*20STEP-1:POKES+1,I:FORH=1TO40
  116. 6030 NEXT:NEXT:NEXT:W=W+1:E=E+2
  117. 6040 GOTO980
  118. 6200 M%=(166-PEEK(V))/7:POKEV+14,PEEK(V)+12+M%:POKEV+15,195:I=3
  119. 6210 POKEV+21,PEEK(V+21)OR128:FORJ=195TO130+LV*2STEP-3
  120. 6220 POKEV+15,J:I=I+1:IFI=5THENI=0:POKEV+14,PEEK(V+14)+M%
  121. 6230 K=PEEK(V+30):IF(KAND128)=0THENNEXT:GOTO6300
  122. 6234 FORN=S+14TOS+20:POKEN,0:NEXT
  123. 6235 POKES+24,15:POKES+19,14:POKES+15,2:POKES+18,129
  124. 6240 FORJ=1TO6:IF(KAND(2^J))=0THENNEXT
  125. 6250 POKE2040+J,15:SC=SC+25:GOSUB5010
  126. 6300 POKEV+21,PEEK(V+21)AND127:RETURN
  127.