%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1625
File Name:X-WING
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{20,14,17,7,3,5,30,35,40,0,0,0,0,0,0,0,0,0}\->\List 1
\ClrGraph
\ViewWindow 1,127,0,1,63,0
0\->C:100\->D
\For 1\->M \To 15
M<11\ Or M>13\=>\Horizontal M
\Next 
\For 1\->M \To 3
\F-Line 15,10+M,42,10+M
\F-Line 86,10+M,113,10+M
\Next 
\For 2\->M \To 114 \Step 112
\Text 49,M,"   "
\Text 49,M+1,"   "
\Next 
\F-Line 1,11,1,16
\F-Line 127,11,127,16
\F-Line 1,17,15,17
\F-Line 113,17,127,17
\PlotOn 113,16
\PlotOn 15,16
\Text 57,21,"                      "
\Text 56,21,"                      "
\F-Line 18,16,2,56
\F-Line 17,16,1,56
\F-Line 110,16,126,56
\F-Line 111,16,127,56
\StoPict 1
\Text 20,51,"X-WING"
\Text 57,47,"PRESS EXE"
\Text 1,1,""
\Do:\LpWhile \Getkey\<>31
\Text 20,51,"       "
\Lbl 2
28+\Int (\Ran#*60)\->A
9+\Int (\Ran#*20)\->B
\Int (\Ran#*3)\->E
A\->U:B\->V
\List 1[E+1]\->J
\List 1[E+4]\->K
\F-Line 44,12,64-J,12
\F-Line 84,12,64+J,12
J\->I
\RclPict 1
\Text 49,11-(\Int \log D)*4,D
\Text 49,123-(\Int \log (C+0.9))*4,C
\Text 57,28,"TARGET APPROACHING"
0\->Z
\Lbl 1
I-1\->I
I=0\=>\Goto6
\PxlOn 52,64+I
\PxlOn 52,64-I
A+\Int (\Ran#*K)-(K-1)/2\->A
B+\Int (\Ran#*K)-(K-1)/2\->B
B<1\ Or B>43\ Or A<16\ Or A>102\=>\Goto7
\Text V,U,"   "
E=0\=>\Text B,A,">+<"
E=1\=>\Text B,A,"\>=*\<="
E=2\=>\Text B,A,"I+I"
A\->U:B\->V
\F-Line 62,41,66,45
\F-Line 62,45,66,41
\Getkey-63\->M
A+(\Abs M=10)*M/2\->A
B-(\Abs M=1)*M*4\->B
M=0\=>\Goto8
\Goto1
\Lbl 8
\F-Line 17,28,64,43
\F-Line 111,28,64,43
\If \Abs (59-U)<6\ And \Abs (19-V)<3
\Then \Text 57,25,"  TARGET DESTROYED  "
C+1\->C:1\->Z
\List 1[E+10]+1\->\List 1[E+10]
\IfEnd
Z=1\=>\Goto9
\Text 31,17,"     "
\Text 31,92,"     "
\Text 25,35,"     "
\Text 25,74,"     "
\Text 19,53,"      "
\Goto1
\Lbl 7
\Text 57,27,"    TARGET LOST    "
\List 1[E+13]+1\->\List 1[E+13]
\Goto9
\Lbl 6
\Text 57,26,"    YOU CRASHED    "
\List 1[E+16]+1\->\List 1[E+16]
D-\List 1[E+7]+\Int (\sqrt((A-59)\x^2+(B-19)\x^2)/5)\->D
D<1\=>\Text 40,46,"GAME OVER"
\Lbl 9
\Text 1,1,""
0\->M
\While M\<>31\ And M\<>47
\Getkey\->M
\WhileEnd
\Cls
M=31\ And D>0\=>\Goto2
\Text 8,44,"STATISTICS"
\F-Line 20,49,107,49
\Text 18,53,"DEST LOST CRSH"
\Text 25,20,">+<"
\Text 32,20,"\>=*\<="
\Text 39,20,"I+I"
\For 0\->Q \To 6 \Step 3
\For 0\->M \To 2
\List 1[Q+M+10]\->N
\Text M*7+25,65+Q*20/3-(\Int \log (N+0.9))*4,N
\Next 
\Next 
\Text 49,20,"SHIELD"
D<0\=>0\->D
\Text 49,105-(\Int \log (D+0.9))*4,D
\F-Line 20,18,107,18
\Text 1,1,""
0\->M
\While M=0
\Getkey\->M
\WhileEnd
\ClrGraph
\ClrText

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:753
File Name:README
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
NAME  : X-WINGSIZE  : 1639AUTHOR: J\RdRG ROCKSTROH  X-WING is a space shooter with no deeper st\ory. You are facingthree different enemies, each with different skills (agility,speed, arm\or). Use 8,4,6,2 to steer your ship, 5 fires yourweapon. (Press the keys until something happens, fast "clicks"don't w\ork.)  Your cockpit has two number displays f\or shields (left) \andkilled enemies (right). The two lines in the middle are yourradar. \If the meet, you are crashed. (Because of graphicallimitations the enemies have always the same size.) In the caseof a crash the shield lowering depends on the arm\or of youropponent \and where he hits you (a write-off \or just dents...).  After something happened (destroyed, crashed, lost) press EXEto continue \or EXIT to leave.
%End