home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / ge.basic game (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.8 KB  |  439 lines
  1. 10 GOSUB 10000 : REM *VARIABLES*
  2. 20 GOSUB 9000  : REM *BOARD*
  3. 99 REM * START *
  4. 100 SC$="WELCOME TO GALACTIC ENCOUNTER: "
  5. 110 TE=0:SL=11:Z=866:GOSUB 3000
  6. 120 SC$="DO YOU WISH TO SETUP  Y/N?":GOSUB 4010
  7. 130 IF PO=0 THEN 160
  8. 140 GOTO 6000
  9. 150 GOSUB 9010
  10. 160 P=0:TE=0:Z=866:SL=11
  11. 199 REM * MAIN LOOP *
  12. 200 EN=0:GOSUB 2000:GOSUB 2300
  13. 210 SC$="GAME ON:  "+BR$(2+P)+". "
  14. 220 GOSUB 3000
  15. 230 SYS CS,185+320*P,13,30,0
  16. 240 SYS SR,5
  17. 250 SYS SP,X,Y,1
  18. 260 BR=BO%(X,Y):GOSUB 2500
  19. 270 GOSUB 3300
  20. 280 IF F=0 THEN 310
  21. 290 IF ED THEN 8400
  22. 300 GOSUB 4000: IF PO THEN MV(P)=1:MO=1:GOSUB 2200:GOTO 200
  23. 310 IF S AND ED THEN GOSUB 8100
  24. 320 IF S AND ED=0 THEN 400
  25. 330 Y=Y+D*(Y<6)-U*(Y>0)
  26. 340 X=X+R*(X<6)-L*(X>0)
  27. 350 GOTO 250
  28. 399 REM * CHECK *
  29. 400 BR=BO%(X,Y)
  30. 410 IF BR>1+P*5 AND BR<7+P*5 THEN SYS FX,0:GOTO 500
  31. 420 SYS FX,1:SC$="YOU CAN'T SELECT THAT "+BR$(2+P)+". "
  32. 430 GOSUB 3000:GOTO 260
  33. 499 REM * SELECT *
  34. 500 SYS SE,P3
  35. 510 MO=0:GOSUB 3300
  36. 520 IF BR<>6 AND BR<>11 THEN 570
  37. 530 DY=U-D:DX=L-R
  38. 540 IF DX+DY THEN U=1:GOTO 600
  39. 550 IF F THEN D=1:GOTO 620
  40. 560 GOTO 640
  41. 570 DR=BR-2-P*5
  42. 580 DX=(DRAND1)*(DR-2)
  43. 590 DY=((DRAND1)-1)*(1-DR)
  44. 600 IF U THEN GOSUB 700:GOTO 650
  45. 610 IF R+L THEN GOSUB 900:GOTO 650
  46. 620 IF D THEN GOSUB 1000:GOTO 650
  47. 630 IF F THEN SYS AT,Z,"[144]DE-SELECT !":GOTO 510
  48. 640 IF S THEN SYS SE,P3:GOTO 260
  49. 650 IF MO THEN GOSUB 2200:IF EN=1 THEN 200
  50. 660 GOTO 510
  51. 699 REM * FORWARD *
  52. 700 AX=X+DX:AY=Y+DY
  53. 710 IF AX<0 OR AX>6 OR AY<0 OR AY>6 THEN S$="THERE ":GOTO 790
  54. 720 AR=BO%(AX,AY)
  55. 730 IF AR>0 THEN S$="ON TO THAT SQUARE ":GOTO 790
  56. 740 MO=1
  57. 750 BO%(X,Y)=0: SYS CH,X,Y,0
  58. 760 Y=AY:X=AX:  SYS CH,X,Y,BR
  59. 770 BO%(X,Y)=BR:SYS SP,X,Y,0
  60. 780 RETURN
  61. 790 SC$="YOU CAN'T MOVE "+S$+BR$(2+P)+". "
  62. 800 SYS FX,1:GOSUB 3000:RETURN
  63. 899 REM * ROTATE *
  64. 900 BR=((DR+R-L)AND3)+2+5*P
  65. 910 BO%(X,Y)=BR:MO=1
  66. 920 SYS CH,X,Y,BR
  67. 930 IF PEEK(J1)<>127 THEN 930
  68. 940 RETURN
  69. 999 REM * FIRE *
  70. 1000 SC$="CANNONS PRIMED........FIRE:  Y/N?"
  71. 1010 GOSUB 4010: IF PO THEN 1030
  72. 1020 SYS AT,Z," NO FIRING ";:RETURN
  73. 1030 IF BR<>6 AND BR<>11 THEN 1070
  74. 1040 SC$="DIRECTION ?  MOVE JOYSTICK. ":GOSUB 3000
  75. 1050 GOSUB 3300:IF S+F THEN 1050
  76. 1060 DY=U-D:DX=L-R
  77. 1070 TE=1:SC$="HOW MANY SHOTS:    ?":GOSUB 3000
  78. 1080 GET K$:MO=VAL(K$):IF MO<1 OR MO>MV(P) THEN 1080
  79. 1090 FOR C1=1 TO MO
  80. 1100 BX=X:BY=Y:TE=0:M=0
  81. 1110 POKE V+21,0
  82. 1120 BX=BX+DX:BY=BY+DY
  83. 1130 IF BX<0ORBX>6ORBY<0 OR BY>6 THEN R=0:BX=BX-(BX<0):BY=BY-(BY<0):GOTO 1180
  84. 1140 AR=BO%(BX,BY)
  85. 1150 IF AR=0 OR AR>11 THEN 1120
  86. 1160 R=0-(AR=1)-2*(AR>1 AND AR<6)-3*(AR>6 AND AR<11)-4*(AR=6)-5*(AR=11)
  87. 1170 Q=0-(AR>6)
  88. 1180 SYS BM,BX,BY,1:IF R<2 THEN 1250
  89. 1190 SYS FX,3:IF R<4 THEN 1230
  90. 1200 SYS AT,391+320*Q+D(Q)," "
  91. 1210 D(Q)=D(Q)-1
  92. 1220 IF D(Q)>0 THEN M=1:GOTO1250
  93. 1230 SYS EX,BX,BY,P2
  94. 1240 BO%(BX,BY)=12
  95. 1250 SC$=SP$+R$(R)
  96. 1260 IF R<2 THEN 1360
  97. 1270 IF M THEN SC$=SC$+" HIT!! ":GOTO 1360
  98. 1280 SC$=SC$+" DESTROYED!!! "
  99. 1290 S(Q)=S(Q)-1:POKE 646,C(Q)
  100. 1300 SYS AT,312+Q*320,S(Q);
  101. 1310 IF S(Q)>0 THEN 1360
  102. 1320 TE=0:SC$="WOW!!! "+BR$(3-Q)+" HAS WON!!! ":GOSUB 3000
  103. 1330 SC$="HOW ABOUT ANOTHER GAME   Y/N?"
  104. 1340 GOSUB 4010:IF PO THEN RUN
  105. 1350 SYS 64738
  106. 1360 GOSUB 3000
  107. 1370 SYS SP,X,Y,0
  108. 1380 NEXT C1
  109. 1390 POKE V+21,1:RETURN
  110. 1999 REM * DEBRIS *
  111. 2000 FOR Y=0 TO 6:FOR X=0 TO 6
  112. 2010 BR=BO%(X,Y):IF BR<12 THEN 2040
  113. 2020 BR=BR+1:IF BR=18 THEN BR=0
  114. 2030 BO%(X,Y)=BR
  115. 2040 NEXT X,Y:SYS PB
  116. 2050 RETURN
  117. 2199 REM * REDUCE TURNS *
  118. 2200 MV(P)=MV(P)-MO:GOSUB 2250
  119. 2210 IF MV(P)>0 THEN RETURN
  120. 2220 SC$="YOUR TURN HAS ENDED "+BR$(2+P)+". ":TE=0
  121. 2230 POKE V+21,0:GOSUB 3000
  122. 2240 MV(P)=MV:EN=1:P=1-P
  123. 2250 POKE 646,C(P):SYS AT,272+P*320,MV(P);"[157] "
  124. 2260 RETURN
  125. 2299 REM * FIND PLAYER *
  126. 2300 FOR Y=0 TO 6:FOR X=0 TO 6
  127. 2310 BR=BO%(X,Y)
  128. 2320 IF BR>1+P*5 AND BR<7+P*5 THEN RETURN
  129. 2330 NEXT X,Y
  130. 2499 REM * COMMENTS *
  131. 2500 DR=BR:IF BR>1 AND BR<6 OR BR>6 AND BR<11 THEN DR=10+(BR<7):GOTO 2530
  132. 2510 IF BR=6 OR BR=11 THEN DR=6+(BR=6):GOTO 2530
  133. 2520 IF BR>11 THEN DR=7
  134. 2530 SYS AT,Z,"[144]";BR$(DR)
  135. 2540 RETURN
  136. 2999 REM * SCROLL *
  137. 3000 PRINT"[144]"
  138. 3010 IF Z=866 THEN SYS CS,785,13,30,1
  139. 3020 SYS 46374:SYS SC,SC,Z,SL,P1,TE
  140. 3030 RETURN
  141. 3299 REM * KEY/JOY *
  142. 3300 GET K$:J=PEEK(J1)
  143. 3310 IF K$="" AND J=127 THEN 3300
  144. 3320 U=J=UP OR K$=UP$
  145. 3330 D=J=DO OR K$=DO$
  146. 3340 L=J=LE OR K$=LE$
  147. 3350 R=J=RI OR K$=RI$
  148. 3360 S=J=FI OR K$=FI$
  149. 3370 F=K$=" " OR K$=CHR$(13)
  150. 3380 IF U+D+L+R+F+S=0 THEN 3300
  151. 3390 RETURN
  152. 3999 REM * Y/N? *
  153. 4000 SC$="FINISHED  ?"
  154. 4010 TE=1:GOSUB 3000
  155. 4020 GET K$:IF K$=" " OR K$=CHR$(13) OR K$="Y" OR PEEK(J1)=111 THEN PO=1:RETURN
  156. 4030 IF K$<>"N" THEN 4020
  157. 4040 PO=0:RETURN
  158. 5999 REM * SETUP *
  159. 6000 SYS WP
  160. 6010 SYS AT,Z,SP$
  161. 6020 W=145:SYS AT,W,"[146][144]SCREEN BORDER"
  162. 6030 W=W+40:SYS AT,W,"SCRN BACKGRND"
  163. 6040 W=W+40:SYS AT,W,"BOARD BORDER "
  164. 6050 W=W+40:SYS AT,W,"BOARD        "
  165. 6060 W=W+40:SYS AT,W,"PLAYER 1     "
  166. 6070 W=W+40:SYS AT,W,"PLAYER 2     "
  167. 6080 W=W+40:SYS AT,W,"BLACKHOLE    "
  168. 6090 W=W+40:SYS AT,W,"DEBRIS CLOUD "
  169. 6100 W=W+40:SYS AT,W,"MOVES: ";MV
  170. 6110 W=W+39:SYS AT,W,DH;"HITS TO ZAP"
  171. 6120 W=W+41:SYS AT,W,"   DESTROYER "
  172. 6130 W=W+40:SYS AT,W,"SCROLL SPEED "
  173. 6140 W=W+40:SYS AT,W,"REDEFINE KEYS"
  174. 6150 W=W+40:SYS AT,W,"EDIT PIECES  "
  175. 6160 W=W+40:SYS AT,W,"LOAD SAVE DEF"
  176. 6200 LI=14
  177. 6210 W=145+LI*40
  178. 6220 SYS RV,W,13:SYS PU,W,13,20,0
  179. 6230 GOSUB 3300:IF L+R THEN 6230
  180. 6240 IF F THEN 6900
  181. 6250 IF S THEN POKE W+55296,2:SYS CS,W,13,30,0:GOTO 6400
  182. 6260 O=LI:O1=W
  183. 6270 LI=LI+D*(LI<14)-U*(LI>0)
  184. 6280 LI=LI+(D-U)*(LI=10)
  185. 6290 IF O=LI THEN 6230
  186. 6300 SYS RV,O1,13
  187. 6310 GOTO 6210
  188. 6400 ON LI GOTO 6440,6470,6500,6530,6540,6550,6560,6610,6640,,6670,8700,8000,7000
  189. 6410 SYS AT,Z,CO$(BD):VA=BD
  190. 6420 GOSUB 6730:IF F+S THEN 6800
  191. 6430 BD=VA:POKE 53280,BD:GOTO 6410
  192. 6440 SYS AT,Z,CO$(BK):VA=BK
  193. 6450 GOSUB 6730:IF F+S THEN 6800
  194. 6460 BK=VA:POKE 53281,BK:GOTO 6440
  195. 6470 SYS AT,Z,CO$(BB):VA=BB
  196. 6480 GOSUB 6730:IF F+S THEN 6800
  197. 6490 BB=VA:SYS B1,BB:GOTO 6470
  198. 6500 SYS AT,Z,CO$(BI):VA=BI
  199. 6510 GOSUB 6730:IF F+S THEN 6800
  200. 6520 BI=VA:SYS B2,BI:GOTO 6500
  201. 6530 C=0:GOTO 6570
  202. 6540 C=1:GOTO 6570
  203. 6550 C=2:GOTO 6570
  204. 6560 C=3
  205. 6570 SYS AT,Z,"[144]";CO$(C(C)):VA=C(C)
  206. 6580 GOSUB 6730:IF F+S THEN 6800
  207. 6590 C(C)=VA:POKE 704+C,C(C):SYS PB
  208. 6600 GOTO 6570
  209. 6610 POKE 30169,MV+176:VA=MV:GOSUB 6730
  210. 6620 IF F+S THEN MV(0)=MV:MV(1)=MV:GOTO 6800
  211. 6630 MV=VA-(VA<1)+(VA>9):GOTO 6610
  212. 6640 POKE 30201,DH+176:VA=DH:GOSUB 6730
  213. 6650 IF F+S THEN D(0)=DH:D(1)=DH:GOTO 6800
  214. 6660 DH=VA-(VA<1)+(VA>5):GOTO 6640
  215. 6670 SC$=SP$(VI):P1=SP(VI)
  216. 6680 TE=0:GOSUB 3000
  217. 6690 FOR C1=1 TO 200:NEXT
  218. 6700 SYS AT,Z,SP$(VI);
  219. 6710 VA=VI:GOSUB 6730:IF F+S THEN 6800
  220. 6720 VI=VA-(VA<1)+(VA>3):GOTO 6670
  221. 6730 GOSUB 3300:VA=(VA-D-R+L+U)AND15
  222. 6740 RETURN
  223. 6800 SYS AT,866,"[146]";SP$
  224. 6810 POKE W+55296,0:SYS CS,W,13,30,0
  225. 6820 GOTO 6230
  226. 6900 SYS RV,W,13
  227. 6910 GOSUB 4000
  228. 6920 IF PO=1 THEN GOTO 150
  229. 6930 SYS AT,Z,"CONTINUE..."
  230. 6940 GOTO 6210
  231. 7000 SC$="LOAD, SAVE, OR DEFAULT BOARD: ":TE=0:GOSUB 3000
  232. 7010 SC$="L,S,D, OR N"
  233. 7020 SYS AT,Z,"L,S,D, OR N"
  234. 7030 GET K$:IF K$="" THEN 7030
  235. 7040 IF K$="L" THEN 7200
  236. 7050 IF K$="S" THEN 7500
  237. 7060 IF K$="D" THEN 7600
  238. 7070 IF K$="N" THEN 6000
  239. 7080 GOTO 7030
  240. 7200 GOSUB 7700:OPEN 15,8,15,"I"
  241. 7205 OPEN 2,8,2,PR$+"R"
  242. 7207 INPUT#15,A,B$:IF A<20 THEN 7210
  243. 7208 TE=0:SC$=B$+"...TRY AGAIN":GOSUB 3000
  244. 7209 GOTO 7330
  245. 7210 FOR Y=0 TO 6:FOR X=0 TO 6
  246. 7220 GET#2,BO$:BO%(X,Y)=ASC(BO$+CHR$(0))
  247. 7230 NEXT X,Y
  248. 7240 FOR C1=0 TO 3:INPUT#2,C(C1)
  249. 7250 POKE 704+C1,C(C1):NEXT C1
  250. 7260 INPUT#2,BB,BK,BI,BD,P1
  251. 7270 INPUT#2,UP$,DO$,LE$,RI$,FI$
  252. 7280 INPUT#2,MV,DH,S(0),S(1),M1,M2
  253. 7285 MD=0:GOSUB 8600
  254. 7290 MV(0)=MV:MV(1)=MV:LO=0
  255. 7310 SYS B1,BB:SYS B2,BI
  256. 7320 SYS PB:GOSUB 10400
  257. 7330 CLOSE 2:CLOSE 15:GOTO 6000
  258. 7500 GOSUB 7700:OPEN 2,8,2,PR$+"W"
  259. 7510 FOR Y=0 TO 6:FOR X=0 TO 6
  260. 7520 PRINT#2,CHR$(BO%(X,Y));
  261. 7530 NEXT X,Y
  262. 7540 FOR C1=0 TO 3:PRINT#2,C(C1)
  263. 7550 NEXT C1
  264. 7560 PRINT#2,BB;Z$;BK;Z$;BI;Z$;BD;Z$;P1;Z$;UP$;Z$;DO$;Z$;LE$;Z$;RI$;Z$;FI$
  265. 7570 PRINT#2,MV;Z$;DH;Z$;S(0);Z$;S(1);Z$;M1;Z$;M2
  266. 7580 CLOSE 2
  267. 7590 GOTO 6000
  268. 7600 SYS AT,Z,"PLEASE WAIT":CLR
  269. 7610 GOSUB 10010:Z=866:SL=11
  270. 7620 GOTO 7310
  271. 7700 SYS AT,Z,"FILE (0-9):":Z$=CHR$(13)
  272. 7710 GET K$:IF K$<"0" OR K$>"9" THEN 7710
  273. 7720 PR$="@0:GE.CONFIG "+K$+",S,"
  274. 7730 RETURN
  275. 7999 REM * EDIT PIECES *
  276. 8000 SYS WP:X=3:Y=3:ED=-1:TE=1:SL=11
  277. 8010 SYS AT,106,"[146][164][164][164][164][164][164][164][164][164][164][164]"
  278. 8020 Z=145:SYS AT,Z,"(           )";
  279. 8030 Z=Z+1:SC$="EDIT PIECES":GOSUB 3020:SYS PU,Z-1,SL+2,60,1
  280. 8040 Z=866:SL=11
  281. 8050 GOSUB 8530:GOTO 240
  282. 8100 IF BR THEN 8300
  283. 8110 BR=1:ED=0:MD=1:SYS SE,P3:SYS FX,0
  284. 8120 SYS AT,Z,"CREATING...";
  285. 8130 GOTO 8200
  286. 8140 GOSUB 3300:IF F THEN 8140
  287. 8150 IF S THEN 8210
  288. 8160 BR=BR+L-R
  289. 8170 BR=BR-(L-R)*((BR=6 AND M1)OR(BR=11 AND M2))
  290. 8180 BR=BR-(L-R)*(BR=13 OR BR=15)
  291. 8190 BR=BR-(BR<1)+(BR>16)
  292. 8200 SYS CH,X,Y,BR:GOTO 8140
  293. 8210 SYS SE,P3:BO%(X,Y)=BR:ED=-1
  294. 8220 GOSUB 8600:GOSUB 8530
  295. 8230 RETURN
  296. 8300 MD=-1:GOSUB 8600:GOSUB 8530
  297. 8310 BO%(X,Y)=0:SYS CH,X,Y,0
  298. 8320 RETURN
  299. 8400 IF S(0)>0 AND S(1)>0 THEN 8500
  300. 8410 SC$="EACH PLAYER MUST HAVE AT LEAST ONE SHIP!!! ":TE=0:GOSUB 3000
  301. 8420 GOTO 270
  302. 8500 GOSUB 4000
  303. 8510 IF PO THEN SYS SI,5:ED=0:GOTO 6000
  304. 8520 GOTO 240
  305. 8530 SYS AT,265,"[144][146]SHIPS PL.1:   [157][157][157]";S(0)
  306. 8540 SYS AT,345,"SHIPS PL.2:   [157][157][157]";S(1)
  307. 8550 RETURN
  308. 8600 S(0)=S(0)-(BR>1 AND BR<7)*MD
  309. 8610 S(1)=S(1)-(BR>6 AND BR<12)*MD
  310. 8620 M1=M1+(BR=6)*MD :D(0)=-M1*DH
  311. 8630 M2=M2+(BR=11)*MD:D(1)=-M2*DH
  312. 8640 RETURN
  313. 8699 REM * KEYS *
  314. 8700 SYS WP:SYS AT,Z,SP$
  315. 8710 SYS AT,109,"[146][164][164][164][164]"
  316. 8720 Z=148:SYS AT,Z,"(    )";
  317. 8730 Z=Z+1:SC$="KEYS":SL=4:TE=1:GOSUB 3020:SYS PU,Z-1,SL+2,60,1
  318. 8740 Z=866:SL=11
  319. 8750 W=265:SYS AT,W,"[146][144]UP        : ?[157]";
  320. 8760 GOSUB 8900:UP$=K$
  321. 8770 W=W+80:SYS AT,W,"DOWN/FIRE : ?[157]";
  322. 8780 GOSUB 8900:DO$=K$
  323. 8790 W=W+80:SYS AT,W,"LEFT      : ?[157]";
  324. 8800 GOSUB 8900:LE$=K$
  325. 8810 W=W+80:SYS AT,W,"RIGHT     : ?[157]";
  326. 8820 GOSUB 8900:RI$=K$
  327. 8830 W=W+80:SYS AT,W,"SELECT    : ?[157]";
  328. 8840 GOSUB 8900:FI$=K$
  329. 8850 IF UP$=DO$ OR UP$=LE$ OR UP$=RI$ OR UP$=FI$ OR DO$=LE$ THEN 8950
  330. 8860 IF DO$=RI$ OR DO$=FI$ OR LE$=RI$ OR LE$=FI$ OR RI$=FI$ THEN 8950
  331. 8870 SC$="IS THIS OK?":GOSUB 4000
  332. 8880 IF PO THEN 6000
  333. 8890 GOTO 8750
  334. 8900 POKE 198,0
  335. 8910 GET K$:IF K$="" THEN 8910
  336. 8920 IF ASC(K$)>95 OR ASC(K$)<46 THEN 8900
  337. 8930 PRINT K$:RETURN
  338. 8950 SC$="*BAD KEYS!*":TE=1:GOSUB 3000
  339. 8960 FOR C1=0 TO 3:SYS PU,Z,SL,40,0
  340. 8970 NEXT C1
  341. 8980 SYS AT,Z,"PLEASE REDO":GOTO 8750
  342. 8999 REM *PRINT BOARD*
  343. 9000 PRINT"[147]";:SYS B1,BB:SYS B2,BI
  344. 9010 SYS WP:SYS PB
  345. 9020 PRINT"(          )(           )[146][152]"
  346. 9030 POKE 646,C(0):SYS AT,225,C$
  347. 9040 POKE 646,C(1):SYS AT,545,C$
  348. 9050 SYS AT,865,"[144]([146]           )[146]"
  349. 9060 SYS AT,905," "+C$
  350. 9070 SYS AT,946,"[144]";M$
  351. 9080 SYS AT,785,"             "
  352. 9090 SYS AT,745,"[146][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  353. 9100 Z=48:SC$="THE  BOARD":TE=1:SL=10:GOSUB 3020:SYS PU,Z-1,SL+2,60,0
  354. 9110 Z=66:SC$="THE  ACTION":SL=11:   GOSUB 3020:SYS PU,Z-1,SL+2,60,0
  355. 9120 PRINT"";
  356. 9130 Z=785:SC$="STATUS REPORT":SL=13:GOSUB 3020:SYS PU,Z,SL,60,1
  357. 9140 PRINT"[146]";:P=0:POKE 646,C(P)
  358. 9150 Z=185:SC$=BR$(2)+":":SL=11:GOSUB3020
  359. 9160 GOSUB 9200:P=1:POKE 646,C(P)
  360. 9170 Z=505:SC$=BR$(3)+":":GOSUB 3020
  361. 9200 Z=Z+80:SYS AT,Z,"TURNS: ";MV(P)
  362. 9210 Z=Z+40:SYS AT,Z,"SHIPS: ";S(P)
  363. 9220 IF D(P)=0 THEN 9250
  364. 9230 Z=Z+40:SYS AT,Z,BR$(4)
  365. 9240 Z=Z+47:SYS AT,Z,LEFT$(BR$(8),2*DH+1);"[146]"
  366. 9250 RETURN
  367. 9999 REM * VARIABLES *
  368. 10000 POKE 56,115:SYS49155,5:PRINT"[147]"
  369. 10010 DIM BO%(6,6),SC$,SC,SL,BR,Z,X,Y,J,J1,BR$(10),MV(1),D(1),S(1),R$(5),C(3)
  370. 10020 DIM AT,MV,P,UP,LE,RI,DO,FI,UP$,DO$,LE$,RI$,FI$,U,L,D,R,S,F,V
  371. 10030 DIM SP$,P1,P2,P3,DR,MO,C1,C2,C3,P,M$,C$,CO$(15),SP$(3),SP(3)
  372. 10040 M1=0:M2=0:MD=1
  373. 10050 FOR Y=0 TO 6:FOR X=0 TO 6
  374. 10060 READ BR:BO%(X,Y)=BR
  375. 10070 GOSUB 8600
  376. 10080 NEXT X,Y
  377. 10090 READ MV,DH,SP(1),SP(2),SP(3),P2,P3
  378. 10100 MV(0)=MV:MV(1)=MV
  379. 10110 D(0)=5:D(1)=5
  380. 10120 VI=1:P1=SP(VI)
  381. 10130 UP=126:DO=125:LE=123:RI=119
  382. 10140 J1=56320:FI=111
  383. 10150 READ UP$,DO$,LE$,RI$,FI$
  384. 10160 SP$="           "
  385. 10170 M$= " [215][216] [209][210][211][212][213][214] "
  386. 10180 C$= "[163][163][163][163][163][163][163][163][163][163][163]"
  387. 10190 BR$(0)=SP$
  388. 10200 FOR C1=1 TO 10:READ BR$(C1)
  389. 10210 NEXT C1
  390. 10220 READ R$(0),R$(1)
  391. 10230 R$(2)=BR$(2)+" SHIP"
  392. 10240 R$(3)=BR$(3)+" SHIP"
  393. 10250 R$(4)=BR$(2)+" "+BR$(4)
  394. 10260 R$(5)=BR$(3)+" "+BR$(4)
  395. 10270 FOR C1=0 TO 15:READ CO$(C1)
  396. 10280 NEXT C1
  397. 10290 READ SP$(1),SP$(2),SP$(3)
  398. 10300 READ C(0),C(1),C(2),C(3)
  399. 10310 POKE704,C(0):POKE705,C(1):POKE706,C(2):POKE707,C(3)
  400. 10320 AT=49152
  401. 10330 SI=AT+3:CH=SI+3:SP=CH+3:SE=SP+3
  402. 10340 FX=SE+3:B1=FX+3:B2=B1+3
  403. 10350 PU=B2+3:CS=PU+3:BM=CS+3:SR=BM+3
  404. 10360 WP=SR+3:RV=WP+3:SC=RV+3:EX=SC+3
  405. 10370 PB=EX+3
  406. 10390 READ BD,BK,BB,BI
  407. 10400 V=53248
  408. 10410 POKE V+32,BD:POKE V+33,BK:POKE 54296,15
  409. 10420 RETURN
  410. 10999 REM *BOARD DATA*
  411. 11000 DATA 5,0,4,0,4,0,3
  412. 11010 DATA 0,0,6,0,0,0,0
  413. 11020 DATA 0,0,4,0,4,0,0
  414. 11030 DATA 1,15,1,15,1,15,1
  415. 11040 DATA 0,0,7,0,7,0,0
  416. 11050 DATA 0,0,0,0,11,0,0
  417. 11060 DATA 10,0,7,0,7,0,8
  418. 11070 DATA 9,5,10,30,55,100,40:REM *MV,DH,SPEEDS,P2,P3
  419. 11080 DATA S,X,".","/",A
  420. 11090 DATA " BLACKHOLE ","PLAYER ONE"
  421. 11100 DATA "PLAYER TWO","DESTROYER:"
  422. 11110 DATA "DESTROYER:1","DESTROYER:2"
  423. 11120 DATA "   DEBRIS  "
  424. 11130 DATA "+,[129]-./" , "SHIP: PLR.1"
  425. 11140 DATA "SHIP: PLR.2"
  426. 11150 DATA " -MISSED- ","SUCKED INTO A BLACKHOLE... "
  427. 11160 DATA"   BLACK   ","   WHITE   "
  428. 11170 DATA"    RED    ","    CYAN   "
  429. 11180 DATA"   PURPLE  ","   GREEN   "
  430. 11190 DATA" DARK BLUE ","   YELLOW  "
  431. 11200 DATA"   ORANGE  ","   BROWN   "
  432. 11210 DATA" LIGHT RED "," DARK GREY "
  433. 11220 DATA" MID  GREY ","LIGHT GREEN"
  434. 11230 DATA"LIGHT  BLUE","LIGHT  GREY"
  435. 11240 DATA"    FAST   ","   MEDIUM  "
  436. 11250 DATA"    SLOW   "
  437. 11260 DATA 2,6,0,11
  438. 11270 DATA 0,15,14,0
  439.