RANDOMIZE TIMER X=7 Y=7 MX=100 SHP$="*" H=0 EN=100 SH=100 WP=100 HL=100 F=100 BX=-10 BY=0 RAND: PX=INT(RND*20) PY=INT(RND*20) PX2=INT(RND*20) PY2=INT(RND*20) PX3=INT(RND*20) PY3=INT(RND*20) KEYBOARD ON WORLD: DO CLS BG SOURCE ROM(3) BG COPY 0,0,32,32 TO 0,0 IF H=1 THEN PRINT"HIDING" IF H=1 THEN ATTR(3) IF H=0 THEN ATTR(0) TEXT PX,PY,"O" TEXT PX2,PY2,"O" TEXT PX3,PY3,"O" TEXT BX,BY,"(=+=)" TEXT X,Y,SHP$ A$=INKEY$ IF A$="W" THEN Y=Y-1 H=0 END IF IF A$="S" THEN Y=Y+1 H=0 END IF IF A$="A" THEN X=X-1 H=0 END IF IF A$="D" THEN X=X+1 H=0 END IF IF A$="I" THEN GOSUB STATUS IF A$="?" THEN GOSUB HOW IF A$="P" THEN GOSUB HD IF A$="H" AND F>0 THEN H=1 IF A$="E" AND X=PX AND Y=PY THEN GOSUB PLANET1 IF A$="E" AND X=PX2 AND Y=PY2 THEN GOSUB PLANET1 IF A$="E" AND X=PX3 AND Y=PY3 THEN GOSUB PLANET1 IF X>=20 THEN X=0 IF X<=-1 THEN X=19 IF Y<=0 THEN Y=15 IF Y>=16 THEN Y=1 WAIT VBL LOOP STATUS: CLS PRINT"STATUS:" PRINT"ENGINE:"+STR$(EN)+"" PRINT"SHIELD:"+STR$(SH)+"" PRINT"WEAPON:"+STR$(WP)+"" PRINT"HULL:"+STR$(HL)+"" PRINT"FUEL:"+STR$(F) PRINT"" PRINT"PRESS ENTER" INPUT"";A RETURN HOW: CLS PRINT"W - UP" PRINT"A - LEFT" PRINT"S - DOWN" PRINT"D - RIGHT" PRINT"" PRINT"S - SHOOT" PRINT"I - STATUS" PRINT"T - TALK" PRINT"P - PAY" PRINT"H - HIDE" PRINT"P - HYPERDRIVE" PRINT"E - ENTER" PRINT"X - EXIT" PRINT"B - TELEPORT TO BASE / CREATE BASE" PRINT"" PRINT"PRESS ENTER" INPUT"";A RETURN HD: CLS V=0 MUSIC 0 F=F-15 DO X=INT(RND*20) Y=INT(RND*20) TEXT X,Y,"-" PX=INT(RND*19) PY=INT(RND*18) PX2=INT(RND*12) PY2=INT(RND*15) PX3=INT(RND*10) PY3=INT(RND*18) V=V+1 IF V>=300 THEN RETURN WAIT VBL LOOP PLANET1: A=INT(RND*4) IF A=0 THEN BGN=4 IF A=1 THEN BGN=5 IF A=2 THEN BGN=6 IF A=3 THEN BGN=7 BG SOURCE ROM(BGN) DO CLS BG COPY 0,0,32,32 TO 0,0 C=CELL.C(X,Y) U=CELL.C(X,Y-1) L=CELL.C(X-1,Y) D=CELL.C(X,Y+1) R=CELL.C(X+1,Y) TEXT X,Y,"@" IF C=3 THEN X=X+1 Y=Y+1 END IF A$=INKEY$ IF A$="W" AND U<>3 THEN Y=Y-1 H=0 END IF IF A$="S" AND D<>3 THEN Y=Y+1 H=0 END IF IF A$="A" AND L<>3 THEN X=X-1 H=0 END IF IF A$="D" AND D<>3 THEN X=X+1 H=0 END IF IF X>=20 THEN X=0 IF X<=-1 THEN X=19 IF Y<=0 THEN Y=15 IF Y>=16 THEN Y=1 IF A$="X" THEN RETURN WAIT VBL LOOP #1:MAIN PALETTES 003F3F0000303000000C0C0000151500 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 00000000001818000000000000000000 00000000001818000000000000000000 00000000001818000000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 00000000001818000000000000000000 00000000001818000000000000000000 00000000001818000000000000000000 003C666E6E603C000000000000000000 00183C667E6666000000000000000000 007C667C66667C000000000000000000 003C666060663C000000000000000000 00786C66666C78000000000000000000 007E607860607E000000000000000000 007E6078606060000000000000000000 003C606E66663C000000000000000000 0066667E666666000000000000000000 003C181818183C000000000000000000 001E060606663C000000000000000000 00666C78786C66000000000000000000 0060606060607E000000000000000000 00000000001818000000000000000000 00000000001818000000000000000000 00000000001818000000000000000000 007C667C606060000000000000000000 003C66666A6C3E000000000000000000 007C667C786C66000000000000000000 003E603C06067C000000000000000000 007E1818181818000000000000000000 0066666666663C000000000000000000 00666666663C18000000000000000000 0066667E7E6642000000000000000000 00663C183C6666000000000000000000 0066663C181818000000000000000000 007E0C1830607E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 #3:MAIN BG 00001410000000000000000000000000 0E000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000E00000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000E0000000000000000000E000000 00000000000000000000000000000000 0E000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000E00000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000E00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000E00000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000E00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000E00 000000000E0000000000000000000E00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0E0000000000000000000E000E000000 0000000000000000000000000E000000 00000000000000000000000000000E00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #4:BG 000014100D000D000D000D000D000D00 0E000D000D000E000D000D000E000D00 0D000D000D000D000E000F001D001D00 1D001D001D001D001E001D001D003E00 1D003E001E001D001D001D001D001D00 0D000E002D002D002D002D002D002D00 2E002D002D002E002D002D002E002D00 2D002D000D000E000F000F002D002D00 2E002F002F002F002F002E002F002F00 2E002F002F0000000D000E000F001E00 0D000D002D001D001D003E000D000D00 0E001D001D000D000D000E000D000E00 0D000D003E000F000E000F003E002D00 0D000E000F000E000F000D000E000F00 0D000E000F000E000F001D001E001F00 1E000D000D000E000F001E001F001E00 1F001D001E001F000D000E000F000D00 0E000D000E000F000F000F000D000D00 0E000F002F002E002F002D002E002F00 1D001E001F000D000D000E000F000F00 1F001F001D001D000D000D000D000D00 0E000F003E003E003E000D000D001D00 0D000E000F001F002F002F002D002D00 0D000D000E000F000E000F000E000F00 2E000D000D002D001D000D000E000F00 1D002D000D000D000E000F001E001F00 1E001F001E001F000E001D001D001D00 2D001D001E001F002D002D001D001D00 0D000E000D000E000D000E000F000D00 0E002D002D002D002E002D002E002F00 2E002F002D002D001D001E003E001E00 1D001E001F001D001E001D000D000E00 1D003E001D001E002D002D000D000D00 0D000D000D000D000D000D000D000D00 0D000D000D000D000D000D000D000D00 0D000D001D001D001D001D001D001D00 1D001D001D001D001D001D001D001D00 1D001D001D001D001D001D002D002D00 2D002D002D002D002D002D002D002D00 2D002D002D002D002D002D002D002D00 2D002D00 #5:BG 000014100D000D000D000D000E000D00 0D000E000D000E000D000E000D000E00 0D000E000D000D000D000E001D001D00 1D000D000E000F000F000F000F000F00 0F000E000F000F000E000F000F000F00 0D000E000D000E000F000F000F001F00 1F001F001F001F001F001E001F001F00 0D000E000F000F000F001E000D000E00 0F001F001F002F002F002F002F002F00 2F002E000D000E000F000F001F001F00 1F000F000D000E000F000D000E000F00 0F000E000F000F000F000E000F000F00 1F001F002F002F002F001F000D000D00 0E000F000F001F001F001E001F001F00 0E000F001F000F002F002F002E002F00 2F002F000D000D000E000F001F002F00 2F002E002F002F001E001F002F001F00 0F002F002E002F002F002E000D001D00 0D000D000E000D000D000E000F002F00 2E002F002E002F001F002F002F002E00 2F001F001D002D001D001D001E001D00 1D001E001F002F002E002F002D002E00 2F001F001E001F002E002F002D000D00 2D002D002E002D002D002E002F002D00 2E002F002D002E002F002F002E002F00 1E001F000D000D000E000F000E001D00 1D001E001D002D002E002F002D002E00 2F002F001E001F002E002F001D001D00 0D000D000E002D002D002E002D002E00 2F002D002E002F002F002D002E002F00 1F002E002D002D001D001D001E001D00 1D002D002D002E002D002E002F002E00 2F002E002F002E002F002D000D000E00 0F002D002E002D002D002E002D002D00 2E001D001E001F001D001D002D002E00 2F002F001D000D000D000D000D000D00 0D000D000D000D000D000D000D000D00 0D000D000D000D000D000D002D001D00 1D001D001D001D001D001D001D001D00 1D001D001D001D001D001D001D001D00 1D001D00 #6:BG 000014100D000D000D000E000D000E00 0D000D000E000F000F000F000E000F00 0E000D000E000F000D000E001D001D00 1D001E001D001E001D001D000D000300 0300030003000E000D000D000E000F00 0D000E002D002D002D002E002D002E00 03000300030003001D001E0003000300 03000D000E000F000D000E002D002D00 2D000D000E00030003000F000D000E00 030003000F000D000E0003001E001F00 1D001E000D000E000F000F0003000300 1E001F001D001E001F000F001F000E00 0F00030003002F002D002E000D000300 0300030003000F000E000F002D002E00 0D000E000F000E000F000F0003000D00 0E000F00030003000300030003001F00 1E000D000E000F000F001E001F001E00 1F001F0003000E000F001F0003000E00 0F001F0003000D000D001D001E001F00 0F002E002F002E000D000E0003000F00 1F002F0003000E000F002F000D000E00 1D002D002E002F000F001E002D002D00 0D000E0003001F002F002D0003001E00 0D000D000D000D002D002D002E002F00 0E000D000E000D001D000D0003000F00 0E000F0003000E000F000D000D001D00 2D002E002F000F000F000F000D000300 03000F0003001F001E001F0003000E00 0F000D001D002D002E002F002F001F00 1F000F001D0003000300030003000E00 0F000F00030003000D001D002D002E00 2F002E002F002F002F001F002D002E00 030003000F001E001F001F0003000D00 0D002D002E002F002F002E002F002D00 2E002F001D002D002E0003000D000D00 0D000D0003001D001D002D002E002F00 2F002F000D000D000D000D000D000D00 0D000300030003001D001D0003000300 2D002E002F0003000300030003000300 03000300030003000300030003000300 2D002D00 #7:BG 000014100D000D000E000D000E000F00 0F000D000E000F000E000F000E000F00 0D000E000F000D000D000D000D000D00 0E000D00030003000300030003000300 030003000300030003001E001F000F00 0F000F001D001D001E000D0003000F00 1F001E001F003E002E002F002E002F00 03000E000F000F000F001F002D002D00 0D000E001E000F002F000D000E000F00 0F000F000F000F0003000F001F000F00 1F000F000D000E000F000F001E001F00 0D000E000F001F001F001F001F001F00 03001F002F001F002F001F000D000E00 0D000E0003000F000D000E000F002F00 1E002F002F002F0003000F002E000300 2E002F001D000D000E000F0003000300 030003000E000D001E00030003000300 03001F002E0003002E0003000D000E00 0F001F0003000300030003001E001D00 1E0003000300030003002F002E002F00 1E001F000D000E000F002F002D002E00 2F0003002E002D002D0003002F001E00 03002F001E001F0003002F000D000E00 0F000F000D002D002E0003000D002D00 2E0003002D002E002F0003002E002F00 1F001F000D000D000E000F001D002D00 2E0003001D002D001E00030003000300 030003000D000300030003000D000E00 3E000F000F000F000E000D002D001E00 1E001E001E002D002E002F001F001E00 1F0003000D000D000D000E000D000E00 1E0003002D001E001E001E001E002E00 2F002E002F002E002F0003000D000E00 0F001E001D000D000D000D000D000D00 0D000E000E002E002F002E002F002E00 2F0003001D000D000D000D000D003E00 1E0003000D000D001D001E003E000E00 0D000D000D000D000D0003002D001D00 1D001D001D001D001E00030003000300 03000300030003000300030003000300 03000300 #15:MAIN SOUND 2800303A000450001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00014040404040404040404040404040 40404040020304404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 190F0000000000000000000000000000 0000250F000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000FF0000 490F00FF00004A0F00FF00004C0F00FF 00004E0F00FF0F00500F00FF0F00520F 00000000000000000000FF0000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 430F00FF0000FF000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 400F00FF000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 250F00000000FF000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000