5 REM****ROBERT L.
6 REM****COPPEDGE
340 FOR X9=53250 TO 54268
345 POKE X9,32
350 NEXT X9
351 Q=53776
352 PRINT"DESTROY ENEMY(/O\)"
353 PRINT"1-UP; 2-DN; 3-LFT; 4-RGT; 5-STOP; 6-FIRE"
360 PRINT"ENTER SEED #";
365 INPUT Z1
370 FOR Z2=53960 TO 54145
380 POKE Z2,32
390 NEXT Z2
391 FOR Q5=1 TO 100
392 Q4=INT(920*RND(Z1)+53348)
393 POKE Q4,46
394 NEXT Q5
403 C3=471:C4=15
410 A2=INT(920*RND(Z1)+53348)
420 A3=INT(A2/32):A4=A2-(A3*32):IF A4>26 THEN 410
430 GOTO 460
440 Q1=Q-1:Q2=Q+1: POKE Q1,40:POKE Q2,41
445 F2=100*RND(Z1)
446 IF F2<2 THEN 860
447 D2=RND(Z1)
450 IF D2<.5 THEN 550
455 GOTO 481
460 B2=A2-1:C2=A2+1
461 Q1=Q-1:Q2=Q+1
462 POKE Q1,40:POKE Q2,41
470 POKE B2,47:POKE A2,79:POKE C2,92
480 B9=B2:A9=A2:C9=C2
481 Q3=PEEK(57343)
485 GOTO 1100
495 ON Q9 GOTO 1200,500,1400,1500,500,1700
500 GOTO 440
550 E2=INT(9*RND(1))
560 ON E2 GOTO 580,600,620,640,660,680,700,720
580 A2=A2-33
590 GOTO 740
600 A2=A2-32
610 GOTO 740
620 A2=A2-31
630 GOTO 740
640 A2=A2+1
650 GOTO 740
660 A2=A2+32
670 GOTO 740
680 A2=A2+31
690 GOTO 740
700 A2=A2-1
710 GOTO 740
720 A2=A2+33
730 GOTO 740
740 GOTO 744
744 A7=(INT((A2-53346)/32))*32
745 IF A2-53346-A7<2 GOTO 720
750 IF A2-53346-A7>26 GOTO 700
751 IF A2<53280 GOTO 720
752 IF A2>54250 GOTO 600
755 POKE A9,32:POKE B9,32:POKE C9,32
761 GOTO 460
860 F5=B2:F6=C2
870 W=INT(8*RND(Z1))
871 F1=A2:ON W GOTO 900,905,910,915,920,925,930,935
872 F1=F1+S:POKE F1,40
873 FOR M7=1 TO 25
874 G1=F1:F1=F1+S:F2=F1+S:F3=F2+S:F4=F3+S
875 F5=F4+S:F6=F5+S:POKE F1,39:POKE F2,39:POKE F3,39:POKE F4,39
876 POKE F5,39:POKE F6,39:POKE G1,32
877 IF W<>2 GOTO 879
878 IF F1>54244 GOTO 1005
879 NEXT M7
895 POKE F1,32:POKE F2,32:POKE F3,32
898 GOTO 975
900 S=31:GOTO 872
905 S=32:GOTO 872
910 S=33:GOTO 872
915 S=1:F1=F1+S:GOTO 872
920 S=-31:GOTO 872
925 S=-32:GOTO 872
930 S=-33:GOTO 872
935 S=-1:F1=F1+S:GOTO 872
975 J8=B2-32:J7=A2-32:J9=C2-32
976 POKE J8,32:POKE J7,32:POKE J9,32
980 GOTO 440
1005 FOR Z4=1 TO 170
1010 POKE F1,Z4
1020 NEXT Z4
1040 FOR N9=1 TO 8
1045 N8=F1+N9:N7=F1-N9:N6=F1-(N9*32):N5=F1-(N9*33):N4=F1-(N9*31)
1050 POKE N8,42:POKE N7,42:POKE N6,42:POKE N5,42:POKE N4,42
1055 O5=N5:O6=N4
1056 O7=N6:O8=O7
1060 FOR O9=N9 TO 1 STEP -1
1064 O7=O7-1:O8=O8+1
1065 O5=O5+32:O6=O6+32
1069 POKE O7,42:POKE O8,42
1070 POKE O5,42:POKE O6,42
1071 NEXT O9:NEXT N9
1080 FOR X9=53260 TO 54268
1090 POKE X9,32:NEXT X9
1096 GOTO 2500
1100 IF Q3=177 GOTO 1700
1110 IF Q3=178 GOTO 1200
1120 IF Q3=179 GOTO 1400
1130 IF Q3=180 GOTO 1500
1140 IF Q3=181 GOTO 1600
1150 IF Q3=182 GOTO 1300
1160 GOTO 495
1200 POKE Q1,32:POKE Q2,32
1210 Q=Q+32:Q9=1
1250 GOTO 500
1300 GOTO 2000
1340 Q9=2
1350 GOTO 500
1400 POKE Q1,32:POKE Q2,32
1410 Q=Q-1:Q9=3
1450 GOTO 500
1500 POKE Q1,32:POKE Q2,32
1510 Q=Q+1:Q9=4
1550 GOTO 500
1600 POKE Q1,40:POKE Q2,41
1610 Q3=128:Q9=5
1650 GOTO 500
1700 POKE Q1,32:POKE Q2,32
1710 Q=Q-32:Q9=6
1750 GOTO 500
2000 FOR Q8=1 TO 200
2010 POKE Q,Q8: NEXT Q8
2025 POKE Q,32
2030 IF Q=A2 GOTO 2150
2040 IF Q=A2-1 GOTO 2150
2050 IF Q=A2+1 GOTO 2150
2100 GOTO 1340
2101 GOTO 2500
2150 POKE A2,32:POKE B2,32:POKE C2,32
2160 POKE Q1,40:POKE Q2,41
2170 Y5=Y5+1: IF Y5=8 GOTO 2600
2171 PRINT"NEW TARGET APPROACHING."
2175 FOR Z4=1 TO 300
2176 NEXT Z4
2180 FOR Z3=54080 TO 54145
2190 POKE Z3,32
2200 NEXT Z3
2210 POKE Q1-32,32:POKE Q2-32,32
2220 GOTO 403
2500 PRINT"TURRET KNOCKED OUT."
2505 PRINT"DESTROYED ";:PRINTY5;:PRINT" ENEMY"
2508 PRINT"IN THE PROCESS."
2510 GOTO 2650
2600 PRINT"YOU HAVE SUCCESSFULLY"
2610 PRINT"PUT AN END TO THEIR"
2620 PRINT"MAD DREAMS OF"
2630 PRINT"TOTAL DOMINATION OF THE"
2635 PRINT"FREE UNIVERSE!"
2640 PRINT"AND YOU'RE STILL ALIVE!"
2650 END