10 REM    PLANET RAIDERS-BY JC HILTY
12 GOSUB1000
16 GOSUB800
18 GOSUB1033
20 GOSUB850
44 PRINT"[147]"
45 FORX=1904TO1983:POKEX,160:NEXT:FORX=56176TO56255:POKEX,6:NEXT
51 POKEV+21,124:POKE50432,124
52 GOSUB400
60 PRINT""TAB(6)"          ":PRINTTAB(6)"   NEW    "
61 PRINTTAB(6)" MISSION  ":FORX=0TO1:PRINTTAB(6)"          ":NEXT
62 GOSUB420
63 PRINT"":FORX=0TO1:PRINTTAB(24)"        ":NEXT
64 PRINTTAB(22)"  PRESS   ":PRINTTAB(22)" ANY KEY  "
65 FORX=1TO2:PRINTTAB(22)"          ":NEXT
66 GET JK$:IFJK$<>""THEN66
67 GETA$:IFA$=""THEN67
68 GOSUB400
70 PRINT" [159]POWER";P;TAB(12)"PLANET  RAIDERS[159]    SHIPS";M
72 PRINT"TIME";TM;TAB(12)"SCORE";SC;TAB(24)"HIGH SCORE";HS
74 POKEV+21,255:FORT=0TO500:NEXT
78 W1=PEEK(V+30):W2=PEEK(V+31)
79 POKE50432,127
80 GOSUB100
81 W1=PEEK(V+30):IFW1>128THEN450
82 IFPEEK(V+1)>185THENPOKE50434,255:POKE50688,1
83 IFPEEK(V+1)<85THENPOKE50434,1:POKE50688,1
84 GOSUB100
85 IFPEEK(V+3)<85THENPOKE50436,2:POKE50688,2
86 IFPEEK(V+3)>185THENPOKE50436,255:POKE50688,2
88 FB=-((PEEK(56320)AND16)=0):IFFB=1THEN200
89 TM=TM-5:PRINT""TAB(5)"     ":PRINT""TAB(5);TM:IFTM=0THEN500
90 GOSUB100
91 P=P-5:IFP<0THENP=0
92 PRINT""TAB(7)"    ":PRINT""TAB(6);P
94 GOTO80
100 SYS828:IFST=0THENRETURN
102 IFPEEK(3)=1THENY1=Y1-4:IFY1<82THENY1=82
103 IFPEEK(3)=2THENY1=Y1+4:IFY1>200THENY1=200
104 POKEV+15,Y1:RETURN
199 REM    FIRE PHASER
200 Q=INT(PEEK(V+15)/8-5)
202 PRINT"":FORX=1TOQ:PRINT:NEXT:PRINTTAB(9)"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
204 P=P+100:PRINT""TAB(6);P:IFP>500THEN300
205 W2=PEEK(V+31):IFW2AND1THEN250
206 IFW2AND2THEN260
207 PRINT"":FORX=1TOQ:PRINT:NEXT
208 PRINTTAB(9)"                              "
209 W2=PEEK(V+31)
210 GOTO80
250 POKE50432,124:PRINT"":FORX=1TOQ:PRINT:NEXT
252 PRINTTAB(9)"                              "
254 POKE2040,205:POKES+12,160:POKES+13,252:POKES+8,80:POKES+7,40:POKES+11,129
255 POKES+24,15:FORT=0TO80:NEXT:FORL=0TO24:POKES+L,0:NEXT
256 POKEV,5:POKEV+1,90:POKEV+16,PEEK(V+16)AND254:POKE2040,203:W2=PEEK(V+31)
258 GOTO270
260 POKE50432,124:PRINT"":FORX=1TOQ:PRINT:NEXT
262 PRINTTAB(9)"                              "
264 POKE2041,205:POKES+12,160:POKES+13,252:POKES+8,80:POKES+7,40:POKES+11,129
265 POKES+24,15:FORT=0TO80:NEXT:FORL=0TO24:POKES+L,0:NEXT
266 POKEV+2,0:POKEV+3,150:POKE2041,204:W2=PEEK(V+31)
268 GOTO270
270 SC=SC+10:PRINT""TAB(17);SC:POKE50432,127:GOTO80
299 REM    POWER SURGE
300 GOSUB400
301 POKE50432,124:PRINT"":PRINTTAB(6)"          "
302 PRINTTAB(6)"          ":PRINTTAB(6)"  POWER   "
304 PRINTTAB(6)"  SURGE   ":PRINTTAB(6)"          "
305 GOSUB600
308 GOSUB400:GOTO450
400 PRINT"":FORX=1TO17:PRINT"                                       ":NEXT
402 RETURN
419 REM STARDATE WINDOW
420 PRINT""TAB(16)"[158]        ":PRINTTAB(16)"        "
424 PRINTTAB(14)" STARDATE ":PRINTTAB(14)"  "TI$;TAB(22)"  "
425 PRINTTAB(14)"          ":RETURN
449 REM    STARSHIP COLLISION
450 POKE50432,124:POKE2047,205
452 POKES+12,160:POKES+13,252:POKES+8,80:POKES+7,40:POKES+11,129
454 POKES+24,15:FORT=0TO850:NEXT:POKEV+21,124:FORL=0TO24:POKES+L,0:NEXT
456 M=M-1:PRINT""TAB(36);M:IFM=0THEN470
457 P=0:Y1=140
458 IFM=2THENQ=1:GOTO485
459 IFM=1THENQ=2:GOTO485
460 POKEV+14,65:POKEV+15,Y1 :POKEV+0,88:POKEV+1,80:POKEV+2,240:POKEV+3,200
462 POKEV+21,255:POKE50432,127:POKE2047,200:W1=PEEK(V+30):GOTO80
469 REM    3 SHIPS LOST
470 POKEV+21,124:PRINT"":PRINTTAB(6)"[159]         "
471 PRINTTAB(6)"         ":PRINTTAB(6)" ENTIRE  "
472 PRINTTAB(6)"  FLEET  ":PRINTTAB(6)"  LOST!  "
473 PRINTTAB(6)"         ":GOSUB420
475 PRINT"[145]"TAB(25)"[156]        "
476 PRINTTAB(23)"  BETTER  ":PRINTTAB(23)"   LUCK   "
478 PRINTTAB(23)"   NEXT   ":PRINTTAB(23)"  TIME!!  "
480 PRINTTAB(23)"          ":GOSUB620:GOTO520
485 PRINT"":PRINTTAB(6)"          ":PRINTTAB(6)" STARSHIP "
486 IFQ=1THENPRINTTAB(6)" REGULAS  ":PRINTTAB(6)"   LOST!  "
487 IFQ=2THENPRINTTAB(6)"  OLYMPUS ":PRINTTAB(6)"   LOST!  "
488 PRINTTAB(6)"          "
489 GOSUB420
490 PRINT"[145]"TAB(24)"         ":PRINTTAB(24)"         "
492 PRINTTAB(23)"   BE     ":PRINTTAB(23)" CAREFUL  "
493 FORX=0TO1:PRINTTAB(23)"          ":NEXT
494 GOSUB620:GOSUB400:GOTO460
499 REM    GAME OVER
500 POKE50432,124:POKEV+21,124
501 PRINT"":PRINTTAB(6)"          "
502 PRINTTAB(6)"   TIME   ":PRINTTAB(6)"   RAN    "
503 PRINTTAB(6)"   OUT    "
504 PRINTTAB(6)"          ":PRINTTAB(6)"          "
505 GOSUB420:GOSUB600
520 GOSUB400
521 PRINT""TAB(16)"[159]GAME OVER":GOSUB640
524 PRINT:PRINTTAB(8)"PRESS F1 TO PLAY AGAIN":PRINT
526 PRINTTAB(8)"PRESS F8 TO RETURN TO UPTIME"
527 GET A$
528 IFA$="[133]" THEN 532
529 IFA$="[140]" THEN 1500
530 GOTO527
532 PRINT"[147]":POKEV+21,0
534 IFSC>HSTHENHS=SC
536 SC=0:M=3:TM=2500:P=0:Y1=140:GOTO20
599 REM    POWER SOUND
600 POKES+24,15:POKES+5,8:POKES+6,255:POKES+4,21
604 FORZ=1TO5
606 F1=10:FORY=1TO5:F2=40:POKES+1,F1
608 FORX=1TO5:POKES+15,F2:F2=F2*1.01:NEXTX:F1=F1*1.3:NEXTY:NEXTZ
610 FORL=0TO24:POKES+L,0:NEXT
612 RETURN
619 REM SOUND
620 POKES+24,15:POKES+5,8:POKES+6,255:POKES+4,21
622 FORZ=1TO6:F1=10:FORY=1TO5:F2=40:POKES+1,F1:FORX=1TO5:POKES+15,F2
624 F2=F2*1.10:NEXTX:F1=F1*0.8:NEXTY:NEXTZ:FORL=0TO24:POKES+L,0:NEXT
626 RETURN
639 REM SOUND
640 POKES+24,15:POKES+5,68:POKES+6,68:POKES+12,68:POKES+13,68:POKES+19,68
642 POKES+20,68
643 FORX=0TO16
644 POKES+4,33:POKES+11,33:POKES+18,33:POKES+1,120:POKES,250:POKES+7,250
645 POKES+8,120:POKES+14,64:POKES+15,64:POKES+4,32:POKES+11,32:POKES+18,32
646 FORT=0TO20:NEXT:NEXT
648 FORL=0TO24:POKES+L,0:NEXT:RETURN
800 V=53248:HS=0:SC=0:P=0:TM=2500:M=3:S=54272:Y1=140
803 FORL=0TO24:POKES+L,0:NEXT
804 FORX=828TO848:READA:POKEX,A:NEXT
806 FORX=12800TO13182:READA:POKEX,A:NEXT
808 FORX=50880TO51116:READA:POKEX,A:NEXT:POKE50432,0:SYS51104
810 POKE50433,1:POKE50434,1:POKE50435,255:POKE50436,255:POKE50437,255
812 POKE50438,0:POKE50439,255:POKE50440,0:POKE50441,255:POKE50442,0
814 POKE50443,254:POKE50444,0:POKE50445,254:POKE50446,0:POKE50688,127
816 RETURN
850 POKE2047,200:POKE2040,203:POKE2041,204:POKE2042,201:POKE2043,201
852 POKE2044,201:POKE2045,202:POKE2046,202:POKEV+39,13:POKEV+40,10:POKEV+41,6
854 POKEV+42,6:POKEV+43,6:POKEV+44,14:POKEV+45,14:POKEV+46,15:POKEV+23,124
856 POKEV+29,124:POKEV,88:POKEV+1,80:POKEV+4,30:POKEV+5,184:POKEV+6,200
858 POKEV+7,184:POKEV+10,60:POKEV+11,184:POKEV+14,65:POKEV+15,Y1:POKEV+16,82
860 POKEV+2,50:POKEV+3,185:POKEV+8,10:POKEV+9,184:POKEV+12,40:POKEV+13,184
862 RETURN
896 REM    JOYSTICK DATA
898 DATA 173,0,220,41,31,73,31,133,3,173,1,220,73,255,133,2,5,3,133,144,96
900 REM    SPRITE DATA
902 DATA 0,0,0,0,0,0,0,0,0,0,240,0,15,240,0,127,240,0,31,240,112,12,0,248,14,7
904 DATA 255,7,0,192,3,129,128,0,195,0,0,198,0,1,254,0,7,254,0,0,127,0,0,30,0
906 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0,64,0,0,96
908 DATA 0,0,96,2,0,96,3,0,224,3,129,240,3,129,248,7,195,248,7,195,248,7,231
910 DATA 248,7,231,248,15,255,248,31,255,248,63,255,252,127,255,254,255,255,255
912 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0
914 DATA 129,128,0,129,128,0,129,128,0,195,192,1,199,224,1,207,224,17,239
916 DATA 228,57,255,238,127,255,254,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
918 DATA 255,128,0,112,0,0,120,0,0,124,0,0,126,0,0,127,0,0,255,255,192,192,0
920 DATA 240,255,255,255,255,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
922 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,0,0,14,0,0,30,0,0,62,0,0,126,0,0
924 DATA 254,3,255,255,15,0,3,255,255,255,0,31,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0
926 DATA 0,0,0,0,0,0,0,0,76,1,0,0,128,4,32,4,32,0,48,0,8,0,0,0,32,48,80,0,130
928 DATA 3,12,0,0,0,4,32,0,128,0,36,0,0,0,192,201,0,4,0,0,0,19,32,192
930 DATA 0,4,0,32,0,1,4,192,0,0,4,8,0,0,0
932 REM    SPRITE MOVEMENT
934 DATA 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0
936 DATA 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80
938 DATA 197,45,0,197,240,3,76,243,198,232,232,14,80,197,208,238,76,49,234
940 DATA 169,0,29,0,197,208,3,76,97,199,169,128,61
942 DATA 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80
944 DATA 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
946 DATA 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
948 DATA 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80
950 DATA 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
952 DATA 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
954 DATA 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0
956 DATA 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0
958 DATA 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198
960 DATA 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199
962 DATA 120,169,192,141,20,3,169,198,141,21,3,88,96
999 REM    INSTRUCTIONS
1000 POKE147,0:SYS57812"PLANET.FONT",8,1:SYS62631:POKE53272,31
1002 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(12)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1004 PRINTTAB(12)"[194]PLANET  RAIDERS[194]":PRINTTAB(12)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1006 PRINT"   DEFEND YOUR PLANET AGAINST MARAUDING"
1008 PRINT"RAIDERS.  USE A JOYSTICK IN PORT 2 TO"
1010 PRINT"MOVE YOUR STARSHIP UP AND DOWN.  PRESS"
1012 PRINT"THE FIREBUTTON TO FIRE YOUR PHASER.":PRINT
1014 PRINT"   EACH TIME YOUR PHASER IS FIRED YOUR"
1016 PRINT"POWER USAGE GOES UP BY 100 UNITS.  IF"
1018 PRINT"YOUR POWER USAGE GOES ABOVE 500, A SHIP"
1020 PRINT"IS LOST.  COLLIDING WITH AN INVADING"
1022 PRINT"CRAFT ALSO COSTS YOU A SHIP.":PRINT
1024 PRINT"   THE GAME ENDS WHEN THE TIMER REACHES"
1026 PRINT"ZERO, OR WHEN YOU LOSE ALL THREE OF":PRINT"YOUR STARSHIPS.":PRINT
1028 PRINT"   BEWARE OF SHIPS APPROACHING YOU FROM"
1030 PRINT"BEHIND.  BEWARE OF THE MOUNTAINS ON THE"
1032 PRINT"SURFACE OF THE PLANET.":RETURN
1033 PRINTTAB(15)"[213][192][192][192][192][192][192][192][192][201]"
1036 PRINTTAB(15)"[194]PRESS F1[194]":PRINTTAB(15)"[202][192][192][192][192][192][192][192][192][203]"
1040 GET A$:IF A$<>"[133]" THEN 1040
1042 RETURN
1500 SYS 65412:SYS 65418:POKE 808,234
1510 SYS 65409:POKE 53281,0:POKE 53280,0
1520 PRINT"[144][147]LOAD"CHR$(34)"UPT.REBOOT"CHR$(34)",8:"
1530 PRINT"RUN:"
1540 POKE 631,19:POKE 632,13:POKE 633,13
1550 POKE 198,3
1560 NEW