%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:4597
File Name:TOPGUN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\CoordOff
\GridOff
\AxesOff
\LabelOff
0\->A~Z
4\->H
\ClrText
\Locate 7,4,"JL VANIER"
\For 1\->A \To 400
\Next 
\ClrText
\Locate 7,4,"PRESENTS"
\For 1\->A \To 400
\Next 
\Locate 7,4,"        "
\Locate 5,1,"============="
\Locate 1,2,">>> T O P   G U N <<<"
\Locate 5,3,"============="
\Locate 1,5,"*********************"
\Locate 1,7,"*********************"
\Lbl A
\If \Getkey=31
\Then \ClrText
\GotoE
\IfEnd
2\->Y~Z
\Lbl D
\Locate 1,6,"THE ULTIMATE FIGHTING"
Y-1\->Y
Y\<>0\=>\GotoD
\Lbl C
\Locate 1,6,"                     "
Z-1\->Z
Z\<>0\=>\GotoC
\GotoA
\Lbl E
0\->C~D
15000\->L
50\->U~V
O\->J~K
0\->S
0\->M~N
0\->\theta
0\->\r
2700\->P
127\Ran#\->E
96\Ran#\->F
\Locate 7,1,"MAIN MENU"
\Locate 7,2,"\aster\aster\aster\aster\aster\aster\aster\aster\aster"
\Locate 7,4,"PLAY NOW"
\Locate 7,5,"CREDITS"
\Locate 7,6,"HELP"
\Locate 7,7,"EXIT"
\Getkey\->\theta
\theta=28\=>H>4\=>H-1\->H
\theta=37\=>H<7\=>H+1\->H
\theta=31\=>H=4\=>\ClrText
\theta=31\=>H=4\=>\GotoW
\theta=31\=>H=5\=>\ClrText
\theta=31\=>H=5\=>\GotoX
\theta=31\=>H=6\=>\ClrText
\theta=31\=>H=6\=>\GotoY
\theta=31\=>H=7\=>\GotoZ
\For 1\->A \To 20+H
\Next 
\Locate 7,H,"        "
\GotoE
\Lbl X
\Locate 1,1,"~~~~~~~CREDITS~~~~~~~~"
\Locate 8,3,"TOP GUN"
\Locate 1,4,"THE ULTIMATE FIGHTING"
\Locate 3,5,"BY JEAN-LUC VANIER"
\Locate 6,6,"VERSION 2.0"
\Locate 2,7,"(C) COPYRIGHT 1998"
\If \Getkey=31
\Then \ClrText
\GotoE
\Else \GotoX
\IfEnd
\Lbl Y
\Locate 1,1,"~~~~~~~~~help~~~~~~~~~"
\Locate 1,3,"ARROWS\->MOVE  F6\->PAUSE"
\Locate 1,4,"+\slash-\->SPEED  OPTN\->FLARE"
\Locate 1,5,"SHIFT\->MISL ALPHA\->LOCK"
\Locate 1,6,"EXIT\->QUIT"
\If \Getkey=31
\Then \ClrText
\GotoE
\Else \GotoY
\IfEnd
\Lbl Z
\Cls
\ClrText
\Stop
\Lbl W
\Cls
\RclPict 1
\If B=0
\Then \ViewWindow 1,127,0,1,96,0
\F-Line 1,25,127,25
\F-Line 1,27,127,27
\F-Line 40,25,1,96
\F-Line 41,25,2,96
\F-Line 87,25,127,96
\F-Line 86,25,126,96
\F-Line 60,50,66,50
\F-Line 63,47,63,53
\F-Line 22,1,22,25
\F-Line 23,1,23,25
\F-Line 105,1,105,25
\F-Line 104,1,104,25
\F-Line 35,13,35,24
\F-Line 78,25,78,13
\F-Line 82,25,82,13
\F-Line 78,19,82,19
\F-Line 47,13,47,24
\F-Line 93,25,93,13
\F-Line 105,13,105,24
\F-Line 24,13,104,13
\Orange \F-Line 49,28,49,74
\Orange \F-Line 49,74,76,74
\Orange \F-Line 76,74,76,28
\Orange \F-Line 50,71,52,71
\Orange \F-Line 50,64,52,64
\Orange \F-Line 50,56,52,56
\Orange \F-Line 50,48,52,48
\Orange \F-Line 50,41,52,41
\Orange \F-Line 50,33,52,33
\Orange \F-Line 75,71,73,71
\Orange \F-Line 75,64,73,64
\Orange \F-Line 75,56,73,56
\Orange \F-Line 75,48,73,48
\Orange \F-Line 75,41,73,41
\Orange \F-Line 75,33,73,33
\Text 50,5,"ALT:"
\Text 50,110,"SPD:"
\Text 49,51,"STATUS"
\StoPict 1
1\->B
\IfEnd
\Lbl \r
\Orange \Text 49,26,K
\Orange \Text 49,38,O
\Orange \Text 49,84,M
\Orange \Text 49,95,S
\If C=1
\Then \Orange \F-Line 79,24,81,24
\Orange \F-Line 79,22,81,22
\Orange \F-Line 79,21,81,21
J+1\->J
\IfEnd
L<10000\=>\Orange \Text 58,17," "
L<1000\=>\Orange \Text 58,12,"     "
\Orange \Text 58,2,L
P<1000\=>\Orange \Text 58,108,"    "
\Orange \Text 58,108,P
\Green \F-Line 1,U,127,V
\If F>28
\Then \PlotOff E,F
\PlotOn E,F
\PlotOff E,F
\IfEnd
\Getkey\->G
G=28\=>U<90\=>U+10\->U
G=28\=>V<90\=>V+10\->V
G=28\=>\GotoW
G=37\=>U>30\=>U-10\->U
G=37\=>V>30\=>V-10\->V
G=37\=>\GotoW
G=38\=>U=30\=>V=30\=>U+10\->U
G=38\=>U=90\=>V=90\=>V-10\->V
G=38\=>U=30\=>V=90\=>V-10\->V
G=38\=>U>30\=>U<90\=>U+10\->U
G=38\=>V>30\=>V<90\=>V-10\->V
G=38\=>\GotoW
G=27\=>U=30\=>V=30\=>V+10\->V
G=27\=>U=90\=>V=90\=>U-10\->U
G=27\=>U=90\=>V=30\=>U-10\=>U
G=27\=>U>30\=>U<90\=>U-10\=>U
G=27\=>V>30\=>V<90\=>V+10\->V
G=27\=>\GotoW
\If U>50\ And V>50
\Then L-100\->L
F+4\Ran#+1\->F
\IfEnd
\If U<50\ And V<50\ And L<30000
\Then L+100\->L
F-4\Ran#-1\->F
\IfEnd
U>50\=>V<50\=>E+4\Ran#+1\->E
U<50\=>V>50\=>E-4\Ran#-1\->E
G=29\=>\GotoM
G=77\=>\GotoN
G=68\=>C=1\=>\GotoL
\If G=68\ And C=0
\Then \Orange \Text 58,30," FLARE LAUNCHED   "
\Orange \Text 58,30," FLARE LAUNCHED   "
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                  "
S+1\->S
0\->C
\IfEnd
\If G=78
\Then \Orange \Text 58,30,"MISSILE LAUNCHED"
\Orange \Text 58,30,"MISSILE LAUNCHED"
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                 "
M+1\->M
\IfEnd
G=47\=>\ClrText
G=47\=>\GotoR
G=42\=>P\<=3500\=>P+100\->P
G=32\=>P\>=800\=>P-100\->P
C\<>1\=>300\Ran#\->R
C\<>1\=>R\<=5\=>\GotoI
J=10\=>\GotoU
L\<=0\=>\GotoF
N+1000\->N
10\Ran#\->\r
\r\<=5\=>-1\->\r
\r>5\=>1\->\r
L<30000\=>L+\Int 25\r\Ran#\->L
P>700\=>P<3600\=>P+\Int 20\r\Ran#\->P
U<50\=>V<50\=>P\>=800\=>P-\Int 100\Ran#\->P
U>50\=>V>50\=>P\<=3500\=>P+\Int 50\Ran#\->P
E+6\Ran#-3\->E
F+6\Ran#-3\->F
\Goto\r
\Lbl K
\Cls
\Graph Y>0
\Graph Y<0
\Text 12,46,"GAME OVER"
\Text 22,47,"DESTROYED"
\Text 41,42,"SCORE:"
\Text 48,42,"BEST:"
N>\Mat T[1,1]\=>N\->\Mat T[1,1]
\Orange \Text 41,70,N
\Orange \Text 48,70,\Mat T[1,1]
\Stop
\Lbl M
\Orange \Text 58,30,"                 "
\Text 58,50,"PAUSED"
\Text 58,50,"      "
\If \Getkey=31
\Then \GotoW
\Else \GotoM
\IfEnd
\Lbl R
\Locate 1,1,"EXIT:"
\Locate 1,3,"1\->MAIN MENU"
\Locate 1,4,"2\->QUIT GAME"
\Locate 1,5,"3\->BACK TO GAME"
\If \Getkey=72
\Then \ClrText
4\->H
\GotoE
\IfEnd
\If \Getkey=62
\Then \ClrText
\Cls
0\->A~Z
\Stop
\IfEnd
\Getkey=52\=>\Goto\r
\GotoR
\Lbl F
\Cls
\Graph Y>0
\Graph Y<0
\Text 12,46,"GAME OVER"
\Text 22,50,"CRASHED"
\Text 41,42,"SCORE:"
\Text 48,42,"BEST:"
N>\Mat T[1,1]\=>N\->\Mat T[1,1]
\Orange \Text 41,70,N
\Orange \Text 48,70,\Mat T[1,1]
\Stop
\Lbl I
\Orange \Text 58,30,"MISSILE DETECTED   "
\Orange \Text 58,30,"MISSILE DETECTED   "
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                   "
1\->C
\Goto\r
\Lbl L
\Orange \Text 58,30," FLARE LAUNCHED "
\Orange \Text 58,30," FLARE LAUNCHED "
\For 1\->A \To 200
\Next 
0\->C
S+1\->S
\Int 20\Ran#\->A
A\<=4\=>\GotoU
\Orange \Text 58,30," MISSILE AVOIDED  "
\Orange \Text 58,30," MISSILE AVOIDED  "
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                  "
N+10000\->N
0\->J
\Goto2
\Lbl U
0\->C
0\->J
\ClrText
\Orange \Text 58,30,"  YOU ARE HIT   "
\Orange \Text 58,30,"  YOU ARE HIT   "
N-5000\->N
O+\Int 20\Ran#+10\->O
\For 1\->A \To 200
\Next 
O\>=100\=>\GotoK
\Orange \Text 58,30,"PLANE DAMAGE:"
\Orange \Text 58,88,O
\Orange \Text 58,88,O
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                 "
\Lbl 2
\PlotOff 79,24
\PlotOff 79,22
\PlotOff 79,21
\PlotOff 80,24
\PlotOff 80,22
\PlotOff 80,21
\PlotOff 81,24
\PlotOff 81,22
\PlotOff 81,21
\Goto\r
\Lbl N
\If E\>=60\ And E\<=66\ And F\>=47\ And F\<=53
\Then \Orange \Text 58,30,"  TARGET LOCKED   "
\Orange \F-Line 79,18,81,18
\Orange \F-Line 79,16,81,16
\Orange \F-Line 79,15,81,15
\Else \Goto\r
\IfEnd
\If \Getkey=78
\Then \Goto7
\Else \GotoN
\IfEnd
\Lbl 7
\Orange \Text 58,30,"MISSILE LAUNCHED"
\Orange \Text 58,30,"MISSILE LAUNCHED"
\For 1\->A \To 200
\Next 
\Int 10\Ran#\->A
\If A\<=6
\Then \Orange \Text 58,30,"TARGET DESTROYED  "
\Orange \Text 58,30,"TARGET DESTROYED  "
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                  "
M+1\->M
K+1\->K
N+50000\->N
127\Ran#\->E
96\Ran#\->F
\Goto3
\IfEnd
\If A>6
\Then \Orange \Text 58,30," TARGET MISSED   "
\Orange \Text 58,30," TARGET MISSED   "
\For 1\->A \To 200
\Next 
\Orange \Text 58,30,"                 "
M+1\->M
N-10000\->N
\Lbl 3
\PlotOff 79,18
\PlotOff 79,16
\PlotOff 79,15
\PlotOff 80,18
\PlotOff 80,16
\PlotOff 80,15
\PlotOff 81,18
\PlotOff 81,16
\PlotOff 81,15
\Goto\r
\IfEnd
%End