_________________________________________________________________________

           Title: X-Wing Gold
         Version: v1.0
          Author: Derek Cross (derekcross@hotmail.com)
		Size: 2297 bytes
	     Model: 9850+
     Description: 

  Based off of Peter Pizzo's X-WING game.  The original was kinda' lame, so
I juiced it up a bit.  Now has a PAUSE feature, scoring/highscoring feature,
smoother animation, amongst other things.
  IMPORTANT: In List 1, you must enter 0's in the first 2 slots.  This
allows the highscore feature to work.

Controls:
 <  Arrow Key to move left
 >  Arrow Key to move right
 [SHIFT]  Key to Fire
 [OPTN]   Key to fire E.M. Pulse (freezes enemy's guns)
 [EXE]    Key to pause ([EXE] again to unpause)

_________________________________________________________________________

 Program :

ClrText
For 1 --> A To 250
Next
Locate 7,3,"D. Cross"
Locate 7,5,"PRESENTS"
For 1 --> A To 350
Next
For 1 --> A To 7
Locate 1,A,"*********************"        // 21 *'s
Next
For 1 --> A To 550
Next
Locate 3,4,"LONG,LONG AGO..."
For 1 --> A To 450
Next
Locate 3,4,"****************"             // 16 *'s
Locate 3,3,"IN A GALAXY FAR,"
Locate 6,4,"FAR AWAY..."
For 1 --> A To 450 Next
Locate 3,3,"****************"             // 16 *'s
Locate 6,4,"***********"                  // 11 *'s
For 7 --> A To 2 Step -1
Locate 7,A,"STAR WARS"
Locate 7,A,"*********"                    // 9 *'s
Next
Locaate 7.1."STAR WARS"
Foor 1 --> A To 7
Locate A,3,"*X-WING"
Next
For 21 --> A To 9 Step -1
Locate A,5,"GOLD*"
Next While Getkey =\= 31
Locate 6,7,"PRESS [EXE]"
Locate 6,7,"     *     "                  // 5 spaces to the '*'
WhileEnd
0 --> A~Z
ClrText
"     DIFFICULTY"                         // 5 spaces to the 'D'
Orange "    ~~~~~~~~~~~~"                 // 4 spaces to the '~'; 12 ~'s
"1 ==> LEIA"
"2 ==> HAN"
"3 ==> CHEWIE"? --> @                     // @ is the Theta symbol
If @=1
Then 8 --> B
7 --> Y
IfEnd
If @=2
Then 6 --> B
10 --> Y
IfEnd
If @=3
Then 4 --> B
15 --> Y
IfEnd
0 --> r
0 --> @
3 --> R
10 --> M
2500 --> E
ClrText
Lbl Q
0 --> D
0 --> P
0 --> H
0 --> I
0 --> U
0 --> V
0 --> Q
5 --> K
9 --> X
Int 17Ran#+2 --> A
A <= 2 ==> Goto Q
A >= 20 ==> Goto Q
A>9 ==> 1 --> D
A <= 9 ==> 0 --> D
While 1
Goto 1
Lbl P
1 --> K
Lbl 1
Q+1 --> Q
Locate A,1,"   "                          // 3 spaces between the ""
D=0 ==> A+1 --> A
D=1 ==> A-1 --> A
If A=19
Then 1 --> D
18 --> A
IfEnd
If A=2
Then 0 --> D
3 --> A
IfEnd
If V=0
Then Locate A,1,"[-]"
IfEnd
If Q=B And V=0
Then Locate A,2,"   "                     // 3 spaces between the ""
K=0 ==> Goto P
For 2 --> T To 6
Locate A,T,". ."
Locate A,T,". ."
Locate A,T,"   "                          // 3 spaces between the ""
Next
If A+1=X Or A+1=X+1 Or A+1=X+2
Then Locate X,7,"   "                     // 3 spaces between the ""
Goto 2
IfEnd
0 --> Q
IfEnd
If V=1 Then Int 17Ran#+2 --> A
0 --> V
0 --> Q
IfEnd
Locate X,7,">^<"
If Getkey=38
Then Locate X,7,"   "                     // 3 spaces between the ""
X =\= 1 ==> X-1 --> X
X=2 ==> 2 --> X
IfEnd
If GetKey=27
Then Locate X,7,"   "                     // 3 spaces between the ""
X =\= 19 ==> X=1 --> X
X=19 ==> 19 --> X
IfEnd
Locate X,7,">^<"
If Getkey=78
Then For 6 --> T To 2 Step -1
Locate X,T,"! !"
Locate X,T,"! !"
Locate X,T,"   "                          // 3 spaces between the ""
Next
If X+1=A Or X+1=A+1 Or X+1=A+2
Then Locate A,1," * "                     // 1 space on both sides of the *
Locate A,1,"***"
Locate A,1,"* *"
Locate A,1,"   "                          // 3 spaces between the ""
1 --> V
P+1 --> P
If X+1=A+1
Then S+2 --> S
Else S+1 --> S
IfEnd
IfEnd
P=Y ==> Goto W
IfEnd
If M=0 And H=0
Then 1 --> H
For 1 --> T To 3
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"                    "          // 20 spaces between the ""
Next
IfEnd
If Getkey=68 And M>0
Then For 1 --> T To 3
Locate X,6,"  @"
Locate X,6," @ "
Locate X,6,"@  "
Locate X,6," @ "
Next
Locate X,6,"   "                           // 3 spaces between the ""
0 --> K
M-1 --> M
M=0 ==> 0 -->H
Goto 1
IfEnd
If Getkey=31
Then for 1 --> T To 9
cos 5
Next
While Getkey =\= 31
Locate 8,4,"PAUSED"
WhileEnd
Locate 8,4,"      "                        // 8 spaces between the ""
IfEnd
If 130S >= E
Then R+1 --> R
For 1 --> T To 8
Locate 9,4,"1 UP"
Next
Locate 9,4,"    "                          // 4 spaces between the ""
2E --> E
IfEnd
WhileEnd
Lbl 2
X+1 --> V
For 0 --> X To 3
Locate V-X,7-X,"*"
Locate V+X,7-X,"*"
Locate V,7-X,"*"
Locate V+X,7,"*"
Locate V-X,7,"*"
Next
For 0 --> X To 3
Locate V-X,7-X," "
Locate V+X,7-X," "
Locate V,7-X," "
Locate V+X,7," "
Locate V-X,7," "
Next
R-1 --> R
R=0 ==> Goto E
ClrText
Locate 7,4,"LIVES:"
Locate 14,4,R
For 1 --> T To 350
Next
ClrText
Goto Q
Lbl W
Locate 4,4,"WAVE COMPLETE"_                // _ is the Disp symbol
ClrText
Locate 6,4,"NEXT WAVE"
For 1 --> T To 350
Next
ClrText
Locate 8,4,"READY"
For 1 --> T To 350
Next
ClrText
Locate 9,4,"GO!"
For 1 --> T To 150
Next
ClrText
I+1 --> I
I=3 ==> M+10 --> M
I=3 ==> 1 --> I
Goto Q
Lbl E
130S --> S
ClrText
Locate 1,3,"YOUR SCORE ==>"
Locate 13,1,S
Dim List 1 --> V
Locate 1,5,"HIGHSCORE ==>"
S --> List 1[(Dim List 1)-1]
SortA(List 1)
Dim List 1 --> S
Locate 12,5,List 1[V]_
If S=List 1[V]
Then For 1 --> T To 50
Locate 6,7,"             "                 // 13 spaces between the ""
Locate 4,7,"NEW HIGHSCORE"
Next
IfEnd
ClrText
_________________________________________________________________________