1 ESC$ = CHR$(255)
10 PRINT ESC$;PF;
20 PRINT CHR$(12);ESC$;VF;ESC$;CCHR$(7);CHR$(3);
30 T$=STRING$(43,HCE)
40 PRINT TAB(18);CHR$(HEB)+T$+CHR$(HEC)
50 T$=CHR$(HC6)
60 PRINT TAB(18);T$;SPC(43);T$
70 PRINT TAB(18);T$;             'S T A R W A R S'             ;T$
80 PRINT TAB(18);T$;SPC(43);T$
90 PRINT TAB(18);T$;     This program presented courtesy of    ;T$
100 PRINT TAB(18);T$;SPC(43);T$
110 PRINT TAB(18);T$;ESC$;AE; C U S T O M   S O F T W A R E   G R O U P ;
120 PRINT ESC$;AA;T$
130 PRINT TAB(18);T$;SPC(43);T$
140 PRINT TAB(18);T$;   Specializing in custom programming for  ;T$
150 PRINT TAB(18);T$;         HEATHZENITH DATA SYSTEMS         ;T$
160 PRINT TAB(18);T$;SPC(43);T$
170 PRINT TAB(18);T$;           CUSTOM SOFTWARE GROUP           ;T$
180 PRINT TAB(18);T$;              POST OFFICE BOX              ;T$
190 PRINT TAB(18);T$;            BELLEVUE, NE  68005            ;T$
200 PRINT TAB(18);T$;              PHONE 2914622               ;T$
210 PRINT TAB(18);T$;                    2915819               ;T$
220 PRINT TAB(18);T$;SPC(43);T$
230 T$=STRING$(43,HCE)
240 PRINT TAB(18);CHR$(HE9)+T$+CHR$(HEA)
250 PRINT TAB(28);PRESS RETURN TO CONTINUE
260 A$=INPUT$(1)
270 H$=C+CHR$(0)+CHR$(0)
280 PRINT ESC$+H$+CHR$(12)+ESC$+VF
290 PRINT ESC$+C+CHR$(1)+CHR$(25)
300 PRINT ,   ********   **********    ******    *********
310 PRINT ,  **      **      **       **    **   **      **
320 PRINT ,  **              **      **      **  **      **
330 PRINT ,   ********       **      **********  *********
340 PRINT ,          **      **      **      **  **    **
350 PRINT ,  **      **      **      **      **  **     **
360 PRINT ,   ********       **      **      **  **      **
370 PRINT:PRINT
380 PRINT ,  **      **    ******    *********    ********
390 PRINT ,  **      **   **    **   **      **  **      **
400 PRINT ,  **      **  **      **  **      **  **
410 PRINT ,  **  **  **  **********  *********    ********
420 PRINT ,  **  **  **  **      **  **    **            **
430 PRINT ,   ********   **      **  **     **   **      **
440 PRINT ,    **  **    **      **  **      **   ********
450 FOR I=1 TO 1000:NEXT I
460 PRINT
470 PRINT ,A LONG TIME AGO IN A GALAXY FAR, FAR AWAY, A GREAT
480 FOR I=1 TO 1000:NEXT I:PRINT
490 PRINT ,ADVENTURE TOOK PLACE. IT IS A PERIOD OF CIVIL WAR.
500 FOR I=1 TO 1000:NEXT I:PRINT
510 PRINT ,REBEL SPACE SHIPS STRIKING FROM A HIDDEN BASE HAVE
520 FOR I=1 TO 1000:NEXT I:PRINT
530 PRINT ,WON THEIR FIRST VICTORY AGAINST THE EVIL  GALACTIC
540 FOR I=1 TO 1000:NEXT I:PRINT
550 PRINT ,EMPIRE.  DURING THE BATTLE, REBEL SPYS  MANAGED TO
560 FOR I=1 TO 1000:NEXT I:PRINT
570 PRINT ,STEAL SECRET PLANS TO THE EMPIRE'S ULITMATE WEAPON
580 FOR I=1 TO 1000:NEXT I:PRINT
590 PRINT ,THE DEATH STAR, AN ARMOURED SPACE STATION WITH THE
600 FOR I=1 TO 1000:NEXT I:PRINT
610 PRINT ,FIRE POWER TO DESTROY AN ENTIRE PLANET. 
620 FOR I=1 TO 1000:NEXT I:PRINT:PRINT
630 PRINT ,     YOUR MISSION AS ONE OF THE REBEL PILOTS IS TO
640 FOR I=1 TO 1000:NEXT I:PRINT
650 PRINT ,ATTACK AND DESTROY THE 'DEATH STAR'.  WHILE MAKING
660 FOR I=1 TO 1000:NEXT I:PRINT
670 PRINT ,YOUR ATTACK YOU HAVE ENCOUNTERED 'DARTH VADER' AND
680 FOR I=1 TO 1000:NEXT I:PRINT
690 PRINT ,HIS IMPERIAL STORM TROOPERS IN THEIR TIE FIGHTERS.
700 FOR I=1 TO 1000:NEXT I:PRINT
710 PRINT ,YOU MUST DESTROY THEM BEFORE THEY CAN DESTROY YOU.
720 FOR I=1 TO 1000:NEXT I:PRINT:PRINT
730 PRINT ,    GOOD LUCK AND MAY THE 'FORCE' BE WITH YOU     
740 FOR I=1 TO 2000:NEXT I
750 RA=PEEK(W,MAKEPOINTER(576,0))
760 SA=PEEK(W,MAKEPOINTER(578,0))
770 A =PEEK(W,MAKEPOINTER(RA,SA))
780 RANDOMIZE (A)
790 DEFINT AZ
800 ERC = 0
810 KBDPORT = 0
820 CT = 0
830 PRINT:PRINT:PRINT, PRESS ANY KEY TO CONTINUE.;
840 A$=INPUT$(1)
850 REM
860 REM                         INSTRUCTIONS ROUTINE
870 REM
880 PRINT ESC$+H$+CHR$(12)+ESC$+C+CHR$(15)+CHR$(10);DO YOU NEED::PRINT
890 PRINT TAB(30);FULL INSTRUCTIONS <F>?
900 PRINT TAB(30);BRIEF INSTRUCTIONS <B>?
910 PRINT TAB(30);NO INSTRUCTIONS <N>?
920 A$=INPUT$(1):IF A$=F THEN 1000
930 IF A$=B THEN 1400
940 IF A$=N THEN 950 ELSE 880
950 PRINT:PRINT TAB(29);WHAT IS YOUR SKILL RATING?
960 A$=INPUT$(1):IF A$<1 OR A$>9 THEN 980
970 A$=A$+0:A9=CVI(A$):A9=A912336:GOTO 1730
980 PRINT:PRINT TAB(26);EVIDENTLY YOU NEED INSTRUCTIONS
990 FOR I=1 TO 500:NEXT I:PRINT
1000 PRINT ESC$+H$;+CHR$(12);ESC$+C+CHR$(0)+CHR$(0)
1010 PRINT YOU HAVE BEEN EQUIPPED WITH AN XWING   ;
1020 PRINT   AS IN A REAL DOGFIGHT YOU MUST  LEAD
1030 PRINT FIGHTER BY THE REBEL ALLIANCE.   YOUR   ;
1040 PRINT   THE TARGET WHEN FIRING YOUR LASER. IF
1050 PRINT FIGHTER IS COMPUTER CONTROLLED BY THE   ;
1060 PRINT   YOU WAIT UNTIL HE IS EXACTLY CENTERED
1070 PRINT NUMERIC KEYPAD ON YOUR KEY BOARD. THE   ;
1080 PRINT   TO FIRE, THEN YOU WILL MISS HIM.  YOU
1090 PRINT DISPLAY YOU WILL SEE IS YOUR  ONBOARD   ;
1100 PRINT   MAY CONTINUE TO FIRE AT HIM, BUT WHEN
1110 PRINT SCANNER.  IN ORDER TO KILL  AN  ENEMY   ;
1120 PRINT   YOU ARE FIRING YOUR WEAPON, YOUR CON
1130 PRINT FIGHTER HE MUST RECEIVE A DIRECT  HIT   ;
1140 PRINT   TROL OF DIRECTION IS NOT AS  GOOD  AS
1150 PRINT OR MULTIPLE DAMAGING HITS.   HE  WILL   ;
1160 PRINT   WHEN YOU AREN'T FIRING AND THE TARGET
1170 PRINT RECEIVE DAMAGE IF HIT WHEN HE IS  +   ;
1180 PRINT   MAY FLY OUT OF YOUR SIGHTS.          
1190 PRINT 10 DEGREES IN ELEVATION AND HE IS +   ;
1200 PRINT 
1210 PRINT 9 DEGREES IN BEARING.  IN ADDITION TO   ;
1220 PRINT   IN ORDER TO CENTER YOUR TARGET ON THE
1230 PRINT THIS HE MUST BE WITHIN 6500 KMS.        ;
1240 PRINT   SCANNER YOU MUST FLY TOWARDS HIM.  TO
1250 PRINT                                         ;
1260 PRINT   TO DO THIS YOU PRESS THE KEY  ON  THE
1270 PRINT WARNING:  THE 'TIE' FIGHTER  HAS  THE   ;
1280 PRINT   NUMERIC KEY PAD THAT IS IN HIS DIREC
1290 PRINT CAPABILITY TO POP IN AND OUT OF  HYP   ;
1300 PRINT   TION. IE: IF HE IS IN THE UPPERRIGHT
1310 PRINT ERSPACE.  THEREFORE HE MAY  DISAPPEAR   ;
1320 PRINT   QUADRANT YOU WOULD PRESS KEY 9 TO FLY
1330 PRINT RIGHT FROM BEFORE YOUR SIGHTS.          ;
1340 PRINT   TOWARDS HIM. IF HE IS BELOW, PRESS 2.
1350 PRINT 
1360 PRINT
1370 PRINT       MAY THE FORCE BE WITH YOU;
1380 PRINT       PRESS RETURN TO CONTINUE;
1390 LINE INPUT A$
1400 T$=CHR$(HEB)+STRING$(5,HCE)+CHR$(HEC)+ 
1410 T1$=CHR$(HE9)+STRING$(5,HCE)+CHR$(HEA)+ 
1420 T2$=T$+T$+T$
1430 T3$=T1$+T1$+T1$
1440 T4$=  +CHR$(HC6)
1450 T5$=CHR$(HC6)+  
1460 PRINT ESC$+H$;
1470 PRINT CHR$(12)+ESC$+C+CHR$(10)+CHR$(10);
1480 PRINT ,     UP               UP             UP 
1490 PRINT ,     LEFT   T2$;   RIGHT
1500 PRINT ,            ;T5$;7;T4$; ;T5$;8;T4$; ;T5$;9;T4$
1510 PRINT ,            ;T3$
1520 PRINT ,            ;T2$
1530 PRINT ,     LEFT   ;T5$;4;T4$; ;T5$;5;T4$; ;T5$;6;T4$;   RIGHT
1540 PRINT ,            ;T3$
1550 PRINT ,            ;T2$
1560 PRINT ,            ;T5$;1;T4$; ;T5$;2;T4$; ;T5$;3;T4$
1570 PRINT ,     DOWN   ;T3$;   RIGHT
1580 PRINT ,     LEFT   ;T$;  DOWN            DOWN
1590 PRINT ,            ;T5$;0;T4$
1600 PRINT ,            ;T1$
1610 PRINT ,              FIRE
1620 PRINT TAB(18) <<PRESS '5' TO STOP ANY TURNS OR CLIMBS.>>:PRINT
1630 PRINT TAB(23) ENTER A SKILL RATING FROM 1 TO 9
1640 PRINT TAB(27) NOVICE.................1
1650 PRINT TAB(27) EXPERT.................9:PRINT
1660 PRINT ,AFTER SCANNER CONSTRUCTION IS COMPLETE,
1670 PRINT ,PRESS ANY CONTROL KEY TO START YOUR SCAN.
1680 A$=INPUT$(1):IF A$<1 OR A$>9 THEN 1680
1690 A$=A$+0:A9=CVI(A$):A9=A912336
1700 REM
1710 REM GRID CONSTRUCTION ROUTINE
1720 REM
1730 PRINT ESC$+H$;CHR$(12);
1740 PRINT TAB(16);RANGE:g9999 KM    ELEVATION:g90 DEG  BEARING:g90 DEG
1750 PRINT:ED=0
1760 PRINT TAB(8) 90  75  60  45  30  15   0   +15  +30  +45  +60  +75  +90
1770 T$=CHR$(HC3)+STRING$(4,HCC):T1$=T$+T$+T$+T$+T$+T$+T$+T$+T$+T$+T$+T$+CHR$(HC3)
1780 PRINT TAB(5);+90 ;T1$; +90
1790 T$=CHR$(HC3):T1$=CHR$(HC4):T2$=CHR$(HC5)
1800 PRINT TAB(9);T1$;SPC(59);T2$:PRINT TAB(9);T1$;SPC(59);T2$
1810 PRINT TAB(5);+60 ;T$;SPC(59);T$; +60
1820 PRINT TAB(9);T1$;SPC(59);T2$:PRINT TAB(9);T1$;SPC(59);T2$
1830 PRINT TAB(5);+30 ;T$;SPC(59);T$; +30
1840 PRINT TAB(9);T1$;SPC(59);T2$:PRINT TAB(9);T1$;SPC(59);T2$
1850 PRINT TAB(6);0  ;T$;SPC(59);T$;  0
1860 PRINT TAB(9);T1$;SPC(59);T2$:PRINT TAB(9);T1$;SPC(59);T2$
1870 PRINT TAB(5);30 ;T$;SPC(59);T$; 30
1880 PRINT TAB(9);T1$;SPC(59);T2$:PRINT TAB(9);T1$;SPC(59);T2$
1890 PRINT TAB(5);60 ;T1$;SPC(59);T2$; 60
1900 PRINT TAB(9);T1$;SPC(59);T2$:PRINT TAB(9);T1$;SPC(59);T2$
1910 T$=CHR$(HC3)+STRING$(4,HCD)
1920 T1$=T$+T$+T$+T$+T$+T$+T$+T$+T$+T$+T$+T$+CHR$(HC3)
1930 PRINT     90 ;T1$; 90
1940 PRINT TAB(8) 90  75  60  45  30  15   0   +15  +30  +45  +60  +75  +90
1950 REM
1960 REM INPUT CONTROL SCAN ROUTINE
1970 REM
1980 CD=400+INT(400*RND):FL$=5
1990 IF CT=CD THEN 3250 ELSE CT=CT+1
2000 ERC=READKBDDIRECT(1,PTR(KBDPORT))
2010 IF ERC = 602 THEN 2120
2020 IF KBDPORT=49 AND FL$ <> 1 THEN FL$=CHR$(KBDPORT):GOTO 2120
2030 IF KBDPORT=50 AND FL$ <> 2 THEN FL$=CHR$(KBDPORT):GOTO 2120
2040 IF KBDPORT=51 AND FL$ <> 3 THEN FL$=CHR$(KBDPORT):GOTO 2120
2050 IF KBDPORT=52 AND FL$ <> 4 THEN FL$=CHR$(KBDPORT):GOTO 2120
2060 IF KBDPORT=53 AND FL$ <> 5 THEN FL$=CHR$(KBDPORT):GOTO 2120
2070 IF KBDPORT=54 AND FL$ <> 6 THEN FL$=CHR$(KBDPORT):GOTO 2120
2080 IF KBDPORT=55 AND FL$ <> 7 THEN FL$=CHR$(KBDPORT):GOTO 2120
2090 IF KBDPORT=56 AND FL$ <> 8 THEN FL$=CHR$(KBDPORT):GOTO 2120
2100 IF KBDPORT=57 AND FL$ <> 9 THEN FL$=CHR$(KBDPORT):GOTO 2120
2110 IF KBDPORT=48 THEN GOTO 2260
2120 GOSUB 2680          '.FIGHTER UPDATE
2130 PRINT ESC$;C;CHR$(19);CHR$(6) ;CHR$(219);
2140 PRINT ESC$;C;CHR$(19);CHR$(18);CHR$(219);
2150 PRINT ESC$;C;CHR$(29);CHR$(9) ;CHR$(219);
2160 PRINT ESC$;C;CHR$(29);CHR$(15);CHR$(219);
2170 PRINT ESC$;C;CHR$(38);CHR$(12);CHR$(219);
2180 PRINT ESC$;C;CHR$(47);CHR$(9) ;CHR$(219);
2190 PRINT ESC$;C;CHR$(47);CHR$(15);CHR$(219);
2200 PRINT ESC$;C;CHR$(57);CHR$(6) ;CHR$(219);
2210 PRINT ESC$;C;CHR$(57);CHR$(18);CHR$(219);
2220 GOTO 1990
2230 REM
2240 REM .......................FIRE WEAPON ROUTINE........................
2250 REM
2260 FOR I=8 TO 1 STEP 1
2270 PRINT ESC$;C;CHR$(38I);CHR$(12+I);;
2280 PRINT ESC$;C;CHR$(38+I);CHR$(12+I);\;
2290 IF I > 6 THEN 2320
2300 PRINT ESC$;C;CHR$(36I);CHR$(14+I); ;
2310 PRINT ESC$;C;CHR$(40+I);CHR$(14+I); ;
2320 NEXT I
2330 PRINT ESC$;C;CHR$(36);CHR$(14); ;
2340 PRINT ESC$;C;CHR$(40);CHR$(14); ;
2350 PRINT ESC$;C;CHR$(37);CHR$(13); ;
2360 PRINT ESC$;C;CHR$(39);CHR$(13); ;
2370 IF FX <> 44 OR FY <> 70 THEN 2530
2380 IF KM > 5000 THEN 2120
2390 PRINT ESC$;RN;ESC$;C;CHR$(30);CHR$(24); ENEMY DESTROYED :DG=0
2400 PRINT ESC$;RN;:ED=ED+1
2410 PRINT ESC$;C;CHR$(FY32);CHR$(FX33);CHR$(127);CHR$(127);CHR$(127);
2420 PRINT ESC$;C;;CHR$(FY33);CHR$(FX32);     ;
2430 PRINT ESC$;RF;ESC$;C;CHR$(FY32);CHR$((FX+1)32);CHR$(127);CHR$(127);CHR$(127);
2440 PRINT CHR$(7);
2450 PRINT ESC$;C;CHR$(FY32);CHR$(FX32);ESC$;ESC$;ESC$;ESC$;ESC$;ESC$;
2460 FOR I=1 TO 25: NEXT I
2470 PRINT ESC$;C;CHR$(FY32);CHR$(FX33);   ;
2480 PRINT ESC$;C;CHR$(FY33);CHR$(FX32); ;ESC$;ESC$;ESC$;ESC$;ESC$;ESC$; ;
2490 PRINT ESC$;C;CHR$(FY32);CHR$((FX+1)32);   ;
2500 FOR I=1 TO 25: NEXT I
2510 PRINT ESC$;C;CHR$(FY32);CHR$(FX32);   ;
2520 FQ=0:IF ED=5 THEN 3200 ELSE 2120
2530 IF FX<43 OR FX>45 THEN 2650
2540 IF FY<68 OR FY>72 THEN 2650
2550 DG=DG+1:IF DG=3 THEN 2390
2560 PRINT ESC$;C;CHR$(FY32);CHR$(FX33);ESC$;ESC$;ESC$;ESC$;ESC$;ESC$;
2570 PRINT ESC$;C;CHR$(FY33);CHR$(FX32);ESC$;ESC$;
2580 PRINT ESC$;C;CHR$((FY+3)32);CHR$(FX32);ESC$;ESC$;
2590 PRINT ESC$;C;CHR$(FY32);CHR$((FX+1)32);ESC$;ESC$;ESC$;ESC$;ESC$;ESC$;
2600 FOR I=1 TO 250: NEXT I
2610 PRINT ESC$;C;CHR$(FY32);CHR$(FX33);   ;
2620 PRINT ESC$;C;CHR$(FY33);CHR$(FX32); ;
2630 PRINT ESC$;C;CHR$((FY+3)32);CHR$(FX32); ;
2640 PRINT ESC$;C;CHR$(FY32);CHR$((FX+132));   ;:GOTO 2120
2650 PRINT ESC$;C;CHR$(0);CHR$(24);ESC$;EL;
2660 GOTO 2120
2670 REM
2680 REM ..................FIGHTER POSITION UPDATE ROUTINE................
2690 REM
2700 IF FQ=1 THEN 2770 ELSE FQ=1
2710 FX=INT(100*RND)
2720 IF FX < 36 OR FX > 52 THEN 2710
2730 FY=INT(200*RND)
2740 IF FY < 44 OR FY > 97 THEN 2730
2750 KM=INT(10000*RND)
2760 FZ=INT(16*RND)
2770 IF INT(100*RND)>6 THEN 2790
2780 FZ=INT (16*RND)
2790 IF INT(10*RND)<A9 THEN 2800 ELSE X=FX:Y=FY:GOTO 2960
2800 IF FZ<>0 THEN 2810 ELSE X=FX1:Y=FY+1
2810 IF FZ<>1 THEN 2820 ELSE X=FX:Y=FY+1
2820 IF FZ<>2 THEN 2830 ELSE X=FX+1:Y=FY+1
2830 IF FZ<>3 THEN 2840 ELSE X=FX+1:Y=FY
2840 IF FZ<>4 THEN 2850 ELSE X=FX+1:Y=FY1
2850 IF FZ<>5 THEN 2860 ELSE X=FX:Y=FY1
2860 IF FZ<>6 THEN 2870 ELSE X=FX1:Y=FY1
2870 IF FZ<>7 THEN 2880 ELSE X=FX1:Y=FY
2880 IF FZ<>8 THEN 2890 ELSE X=FX1:Y=FY+2
2890 IF FZ<>9 THEN 2900 ELSE X=FX1:Y=FY+3
2900 IF FZ<>10 THEN 2910 ELSE X=FX+1:Y=FY+3
2910 IF FZ<>11 THEN 2920 ELSE X=FX+1:Y=FY+2
2920 IF FZ<>12 THEN 2930 ELSE X=FX+1:Y=FY2
2930 IF FZ<>13 THEN 2940 ELSE X=FX+1:Y=FY3
2940 IF FZ<>14 THEN 2950 ELSE X=FX1:Y=FY3
2950 IF FZ<>15 THEN 2960 ELSE X=FX1:Y=FY2
2960 IF FL$<>1 THEN 2970 ELSE X=X1:Y=Y+1
2970 IF FL$<>2 THEN 2980 ELSE X=X2:Y=Y
2980 IF FL$<>3 THEN 2990 ELSE X=X1:Y=Y1
2990 IF FL$<>4 THEN 3000 ELSE X=X:Y=Y+2
3000 IF FL$<>6 THEN 3010 ELSE X=X:Y=Y2
3010 IF FL$<>7 THEN 3020 ELSE X=X+1:Y=Y+1
3020 IF FL$<>8 THEN 3030 ELSE X=X+2:Y=Y
3030 IF FL$<>9 THEN 3040 ELSE X=X+1:Y=Y1
3040 IF X>39 AND X<50 AND Y>55 AND Y<87 THEN 3080
3050 IF SGN(KM)=+1 THEN KM=KM+INT(200*RND)
3060 IF SGN(KM)=1 THEN KM=KMINT(200*RND)
3070 IF KM<10000 THEN 3100 ELSE 3170
3080 IF SGN(KM)=+1 THEN KM=KMINT(200*RND)
3090 IF SGN(KM)=1 THEN KM=KM+INT(200*RND)
3100 IF X<36 OR X>52 OR Y<42 OR Y>97 THEN 3170
3110 IF X=FX AND Y=FY THEN RETURN
3120 PRINT ESC$;C;CHR$(FY32);CHR$(FX32);   ;:FX=X:FY=Y
3130 PRINT ESC$;C;CHR$(FY32);CHR$(FX32);CHR$(192);CHR$(27);CHR$(193);
3140 PRINT ESC$+C+CHR$(21)+CHR$(0);:PRINT KM;
3150 EV=10*(44FX):PRINT ESC$+C+CHR$(42)+CHR$(0);:PRINT EV;
3160 BR=3*(FY70):PRINT ESC$+C+CHR$(60)+CHR$(0);:PRINT BR;:RETURN
3170 PRINT ESC$;C;CHR$(FY32);CHR$(FX32);   ;
3180 FQ=0:RETURN
3190 PRINT ESC$;Y;CHR$(0);CHR$(24);ESC$;EL;:RETURN
3200 FOR I=1 TO 500:NEXT I:PRINT ESC$;PF;CHR$(12)
3210 PRINT ESC$;RF;ESC$;C;CHR$(0);CHR$(8);
3220 PRINT ,CONGRATULATIONS ON A JOB WELL DONE.  YOU HAVE
3230 PRINT ,DESTROYED DARTH VADER AND HIS STORM TROOPERS 
3240 PRINT ,AND HAVE SAVED THE REBELLION.:GOTO 3290
3250 PRINT CHR$(12);ESC$;C;CHR$(0);CHR$(8)
3260 PRINT ,YOU HAVE ONLY DESTROYED;ED;TIE FIGHTERS AND
3270 PRINT ,YOU LET DARTH VADER GET AWAY. OH WELL, I GUESS
3280 PRINT ,WE WANT HIM AROUND FOR THE SEQUEL ANYWAY
3290 PRINT:PRINT ,DO YOU WANT TO PLAY AGAIN <Y or N>?
3300 A$=INPUT$(1)
3310 IF A$=Y THEN 750 ELSE IF A$ <> N THEN 3300 ELSE SYSTEM
