%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:5909
File Name:GALACTIX
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
0\->A~Z
\CoordOff
\GridOff
\AxesOff
\LabelOff
0\->M
\Norm
\Lbl 5
\Mat G[25,1]\->A
\Fill(0,\Mat G)
A\->\Mat G[25,1]
61\->\Mat G[11,1]
12\->\Mat G[46,1]
1\->\Mat G[1,1]
1\->\Mat G[29,1]
1\->\Mat G[36,1]
1\->\Mat G[7,1]
1\->\Mat G[49,1]
1\->\Mat G[4,1]
2\->\Mat G[20,1]
55\->\Mat G[9,1]
3\->\Mat G[26,1]
1\->\Mat G[19,1]
1\->\Mat G[42,1]
9\->\Mat G[16,1]
16\->\Mat G[39,1]
1\->\Mat G[41,1]
1\->\Mat G[15,1]
\If M\>=1
\Then M\->\Mat G[1,1]
N\->\Mat G[24,1]
O\->\Mat G[25,1]
P\->\Mat G[26,1]
\Goto2
\IfEnd
\ViewWindow 1,127,0,1,63,0
\For 1\->A \To 150
\PlotOn 127\Ran#,63\Ran#
\Next 
\For 1\->A \To 40
\Text 30,33,"JEAN-LUC VANIER"
\Next 
\For 1\->A \To 20
\Text 30,33,"                "
\Next 
\For 1\->A \To 40
\Text 30,33,"PROUDLY PRESENTS"
\Next 
\For 1\->A \To 20
\Text 30,33,"                 "
\Next 
\For 1\->A \To 5
\Text 30,14,"G"
\Next 
\For 1\->A \To 5
\Text 30,28,"A"
\Next 
\For 1\->A \To 5
\Text 30,42,"L"
\Next 
\For 1\->A \To 5
\Text 30,56,"A"
\Next 
\For 1\->A \To 5
\Text 30,70,"C"
\Next 
\For 1\->A \To 5
\Text 30,84,"T"
\Next 
\For 1\->A \To 5
\Text 30,98,"I"
\Next 
\For 1\->A \To 5
\Text 30,112,"X"
\Next 
\For 1\->A \To 5
\Next 
\Text 2,30,"(C) COPYRIGHT 1998"
\Do
\Text 58,45,"PUSH [EXE]"
\Text 58,45,"          "
\LpWhile \Getkey\<>31
\Lbl \r
\ViewWindow 1,127,0,1,63,0
\Lbl 1
\Vertical 33
\Vertical 95
\Orange \Text 2,1,"GALACTIX"
\Text 15,2,"(C) 1998"
\Text 28,5,"BY"
\Green \Text 28,16,"JLV"
\Text 45,1,"PRESS F1"
\Text 53,1,"FOR HELP"
\Text 1,100,"SCORE:"
\Text 18,100,"BEST:"
\Text 35,100,"LIVES:"
\Text 52,100,"WAVE:"
\StoPict 1
\Mat G[50,1]=1\=>\Goto2
\Mat G[51,1]=0\=>\GotoW
\Lbl 2
0\->\Mat G[50,1]
\If \Getkey=38
\Then \Mat G[9,1]-5\->\Mat G[9,1]
\Mat G[9,1]<35\=>35\->\Mat G[9,1]
\Text 56,\Mat G[9,1]+5,"   "
\IfEnd
\If \Getkey=27
\Then \Mat G[9,1]+5\->\Mat G[9,1]
\Mat G[9,1]>83\=>83\->\Mat G[9,1]
\Text 56,\Mat G[9,1]-5,"   "
\IfEnd
\Text 56,\Mat G[9,1],"^A^"
\Mat G[47,1]\<>1\=>\Int 5000\Ran#\->\Mat G[48,1]
\Mat G[3,1]\<>1\=>\Int 1000\Ran#\->\Mat G[2,1]
\Mat G[6,1]\<>1\=>\Int 4000\Ran#\->\Mat G[5,1]
\If \Mat G[48,1]\>=35\ And \Mat G[48,1]\<=90
\Then 1\->\Mat G[47,1]
\Orange \Text \Mat G[49,1],\Mat G[48,1]," "
\Mat G[49,1]+5\->\Mat G[49,1]
\Orange \Text \Mat G[49,1],\Mat G[48,1],"\Deg>"
\If \Mat G[49,1]>58
\Then 0\->\Mat G[47,1]
1\->\Mat G[49,1]
\IfEnd
\IfEnd
\If \Mat G[2,1]\>=35\ And \Mat G[2,1]\<=90
\Then 1\->\Mat G[3,1]
\Green \Text \Mat G[4,1],\Mat G[2,1]," "
\Mat G[4,1]+5\->\Mat G[4,1]
\Green \Text \Mat G[4,1],\Mat G[2,1],"O"
\If \Mat G[4,1]>58
\Then 0\->\Mat G[3,1]
1\->\Mat G[4,1]
\IfEnd
\IfEnd
\If \Mat G[5,1]\>=35\ And \Mat G[5,1]\<=90
\Then 1\->\Mat G[6,1]
\Orange \Text \Mat G[7,1],\Mat G[5,1]," "
\Mat G[7,1]+5\->\Mat G[7,1]
\Orange \Text \Mat G[7,1],\Mat G[5,1],"O"
\If \Mat G[7,1]>58
\Then 0\->\Mat G[6,1]
1\->\Mat G[7,1]
\IfEnd
\IfEnd
\Mat G[8,1]=0\=>\Mat G[9,1]\->\Mat G[10,1]
\Getkey=78\=>1\->\Mat G[8,1]
\If \Mat G[8,1]=1
\Then \Orange \Text \Mat G[11,1],\Mat G[10,1]+4," "
\Mat G[11,1]-10\->\Mat G[11,1]
\Orange \Text \Mat G[11,1],\Mat G[10,1]+4,"."
\IfEnd
\Mat G[12,1]\<>1\=>\Int 100\Ran#\->\Mat G[13,1]
\Mat G[14,1]\<>1\=>\Int 100\Ran#\->\Mat G[15,1]
\Mat G[37,1]\<>1\=>\Int 100\Ran#\->\Mat G[38,1]
\If \Mat G[38,1]\>=35\ And \Mat G[38,1]\<=83
\Then 1\->\Mat G[37,1]
\Text \Mat G[39,1],\Mat G[38,1],"   "
10\Ran#\->\Mat G[40,1]
\Mat G[40,1]<5\=>1\->\Mat G[41,1]
\Mat G[40,1]\>=5\=>\(-)1\->\Mat G[41,1]
\Int 10\Mat G[41,1]\Ran#\->\Mat G[42,1]
\Mat G[38,1]+\Mat G[42,1]\->\Mat G[38,1]
\Mat G[38,1]>83\=>83\->\Mat G[38,1]
\Mat G[38,1]<35\=>35\->\Mat G[38,1]
\Text \Mat G[39,1],\Mat G[38,1],"<O>"
\IfEnd
\If \Mat G[15,1]\>=35\ And \Mat G[15,1]\<=83
\Then 1\->\Mat G[14,1]
\Text \Mat G[16,1],\Mat G[15,1],"   "
10\Ran#\->\Mat G[17,1]
\Mat G[17,1]<5\=>1\->\Mat G[18,1]
\Mat G[17,1]\>=5\=>\(-)1\->\Mat G[18,1]
\Int 10\Mat G[18,1]\Ran#\->\Mat G[19,1]
\Mat G[15,1]+\Mat G[19,1]\->\Mat G[15,1]
\Mat G[15,1]>83\=>83\->\Mat G[15,1]
\Mat G[15,1]<35\=>35\->\Mat G[15,1]
\Text \Mat G[16,1],\Mat G[15,1],"<O>"
\IfEnd
\If \Mat G[13,1]\>=35\ And \Mat G[13,1]\<=83
\Then 1\->\Mat G[12,1]
\Text \Mat G[20,1],\Mat G[13,1],"   "
10\Ran#\->\Mat G[21,1]
\Mat G[21,1]<5\=>1\->\Mat G[22,1]
\Mat G[21,1]\>=5\=>-1\->\Mat G[22,1]
\Int 10\Mat G[22,1]\Ran#\->\Mat G[23,1]
\Mat G[13,1]+\Mat G[23,1]\->\Mat G[13,1]
\Mat G[13,1]>83\=>83\->\Mat G[13,1]
\Mat G[13,1]<35\=>35\->\Mat G[13,1]
\Text \Mat G[20,1],\Mat G[13,1],"<O>"
\IfEnd
\If \Mat G[43,1]\<>1
\Then 100\Ran#\->\Mat G[44,1]
\Mat G[38,1]\->\Mat G[45,1]
\IfEnd
\If \Mat G[44,1]<30\ And \Mat G[38,1]\<=83\ And \Mat G[38,1]\>=45
\Then 1\->\Mat G[43,1]
\Green \Text \Mat G[46,1],\Mat G[45,1]+3," "
\Mat G[46,1]+10\->\Mat G[46,1]
\Green \Text \Mat G[46,1],\Mat G[45,1]+4,"."
\If \Mat G[46,1]=62
\Then 0\->\Mat G[43,1]
12\->\Mat G[46,1]
\IfEnd
\IfEnd
\If \Mat G[32,1]\<>1
\Then 100\Ran#\->\Mat G[28,1]
\Mat G[15,1]\->\Mat G[31,1]
\IfEnd
\If \Mat G[28,1]<30\ And \Mat G[15,1]\>=45\ And \Mat G[15,1]\<=83
\Then 1\->\Mat G[32,1]
\Green \Text \Mat G[29,1],\Mat G[31,1]+3," "
\Mat G[29,1]+10\->\Mat G[29,1]
\Green \Text \Mat G[29,1],\Mat G[31,1]+3,"."
\If \Mat G[29,1]=61
\Then 0\->\Mat G[32,1]
1\->\Mat G[29,1]
\IfEnd
\IfEnd
\If \Mat G[49,1]\<=60\ And \Mat G[49,1]\>=54\ And \Mat G[48,1]\<=\Mat G[9,1]+10\ And \Mat G[48,1]\>=\Mat G[9,1]
\Then \Orange \Text \Mat G[49,1],\Mat G[48,1]," "
\Mat G[26,1]+1\->\Mat G[26,1]
\IfEnd
\If \Mat G[7,1]\<=60\ And \Mat G[7,1]\>=54\ And \Mat G[5,1]\<=\Mat G[9,1]+10\ And \Mat G[5,1]\>=\Mat G[9,1]
\Then \Orange \Text \Mat G[7,1],\Mat G[5,1]," "
\Mat G[24,1]+10000\->\Mat G[24,1]
\IfEnd
\If \Mat G[4,1]\<=60\ And \Mat G[4,1]\>=54\ And \Mat G[2,1]\<=\Mat G[9,1]+10\ And \Mat G[2,1]\>=\Mat G[9,1]
\Then \Green \Text \Mat G[4,1],\Mat G[2,1]," "
\Mat G[24,1]+1000\->\Mat G[24,1]
\IfEnd
\If \Mat G[33,1]\<>1
\Then 100\Ran#\->\Mat G[34,1]
\Mat G[13,1]\->\Mat G[35,1]
\IfEnd
\If \Mat G[34,1]<30\ And \Mat G[13,1]\>=45\ And \Mat G[13,1]\<=83
\Then 1\->\Mat G[33,1]
\Green \Text \Mat G[36,1],\Mat G[35,1]+3," "
\Mat G[36,1]+10\->\Mat G[36,1]
\Green \Text \Mat G[36,1],\Mat G[35,1]+3,"."
\If \Mat G[36,1]=61
\Then 0\->\Mat G[33,1]
1\->\Mat G[36,1]
\IfEnd
\IfEnd
\If \Mat G[11,1]\<=\Mat G[39,1]+10\ And \Mat G[11,1]\>=\Mat G[39,1]\ And \Mat G[10,1]\<=\Mat G[38,1]+4\ And \Mat G[10,1]\>=\Mat G[38,1]-4
\Then 1\->M
\GotoC
\IfEnd
\If \Mat G[11,1]\<=\Mat G[16,1]+10\ And \Mat G[11,1]\>=\Mat G[16,1]\ And \Mat G[10,1]\<=\Mat G[15,1]+4\ And \Mat G[10,1]\>=\Mat G[15,1]-4
\Then 2\->M
\GotoC
\IfEnd
\If \Mat G[11,1]\<=\Mat G[20,1]+10\ And \Mat G[11,1]\>=\Mat G[20,1]\ And \Mat G[10,1]\<=\Mat G[13,1]+4\ And \Mat G[10,1]\>=\Mat G[13,1]-4
\Then 3\->M
\GotoC
\IfEnd
\If \Mat G[11,1]=1
\Then 0\->\Mat G[8,1]
\Orange \Text \Mat G[11,1],\Mat G[10,1]+4," "
61\->\Mat G[11,1]
\IfEnd
\If \Mat G[46,1]\>=50\ And \Mat G[46,1]\<=59\ And \Mat G[45,1]+4\>=\Mat G[9,1]-1\ And \Mat G[45,1]+4\<=\Mat G[9,1]+10\ Or \Mat G[29,1]\>=50\ And \Mat G[29,1]\<=59\ And \Mat G[31,1]+4\>=\Mat G[9,1]-1\ And \Mat G[31,1]+4\<=\Mat G[9,1]+10\ Or \Mat G[36,1]\>=50\ And \Mat G[36,1]\<=59\ And \Mat G[35,1]+4\>=M
\Then \GotoG
\IfEnd
\Orange \Text 7,100,\Mat G[24,1]
\Mat G[24,1]>\Mat G[25,1]\=>\Mat G[24,1]\->\Mat G[25,1]
\Orange \Text 24,100,\Mat G[25,1]
\Orange \Text 41,100,\Mat G[26,1]
\Orange \Text 58,100,\Mat G[1,1]
\Getkey=79\=>\GotoH
\Getkey=29\=>\GotoP
\Getkey=47\=>\GotoS
\Mat G[27,1]+1\->\Mat G[27,1]
\Mat G[27,1]=75\=>\GotoQ
\Goto2
\Lbl C
\If M=1
\Then 39\->J
38\->K
37\->L
\IfEnd
\If M=2
\Then 16\->J
15\->K
14\->L
\IfEnd
\If M=3
\Then 20\->J
13\->K
12\->L
\IfEnd
\For 1\->A \To 5
\Text \Mat G[J,1],\Mat G[K,1],"**"
\Text \Mat G[J,1],\Mat G[K,1],"<O>"
\Next 
\Text \Mat G[J,1],\Mat G[K,1],"   "
\Orange \Text \Mat G[11,1],\Mat G[10,1]+4," "
0\->\Mat G[8,1]
61\->\Mat G[11,1]
0\->\Mat G[L,1]
\Mat G[24,1]+5000\->\Mat G[24,1]
\Goto2
\Lbl H
\Cls
\Text 2,42,"GALACTIX 1.0"
\Text 9,22,"(C) 1998 BY JL VANIER"
\Text 19,1,"COMMANDS:"
\Text 26,1,"[SHIFT] FIRE"
\Text 33,1,"[<-][->] MOVE"
\Text 40,1,"[F1] THIS HELP"
\Text 47,1,"[F6] PAUSE"
\Text 54,1,"[EXIT] QUIT"
\Text 19,60,"STUFFS:"
\Text 26,56,"^A^YOUR SPACESHIP"
\Text 33,56,"<O>ENEMY-5000PTS"
\Green \Text 40,60,"O BONUS-1000PTS"
\Orange \Text 47,60,"O BONUS-10000PTS"
\Orange \Text 54,60,"\Deg> LIFE BONUS-1UP"
\Horizontal 47
\Horizontal 4
\Do
\LpWhile \Getkey\<>31
1\->\Mat G[50,1]
\Goto\r
\Lbl P
\Do
\Text 30,53,"PAUSED"
\Text 30,53,"      "
\LpWhile \Getkey\<>31
\Goto2
\Lbl S
\ClrGraph
\ClrText
\Stop
\Lbl Q
\Cls
\RclPict 1
\For 1\->A \To 12
\Text 30,37,"WAVE COMPLETE"
\Next 
\Text 30,37,"              "
\Mat G[1,1]+1\->\Mat G[1,1]
\Mat G[24,1]+10000\->\Mat G[24,1]
0\->\Mat G[27,1]
\Lbl W
1\->\Mat G[51,1]
\For 1\->A \To 10
\Text 30,48,"ENTERING"
\Next 
\Text 30,48,"         "
\For 1\->A \To 8
\Text 30,52,"WAVE"
\Text 30,73,\Mat G[1,1]
\Next 
\Text 30,52,"         "
\Mat G[1,1]\->M
\Mat G[24,1]\->N
\Mat G[25,1]\->O
\Mat G[26,1]\->P
\Goto5
\Lbl E
\For 1\->A \To 10
\Orange \Text 30,47,"          "
\Orange \Text 30,47,"GAME OVER"
\Next 
\Stop
\Lbl G
\For 1\->A \To 5
\Text 56,\Mat G[9,1],"**"
\Text 56,\Mat G[9,1],"^A^"
\Next 
\Mat G[26,1]-1\->\Mat G[26,1]
\Mat G[26,1]<0\=>\GotoE
\Goto2
%End
%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:51
Columns:1
Variable Name:Mat G
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 0
Value : 2 1 0
Value : 3 1 0
Value : 4 1 0
Value : 5 1 0
Value : 6 1 0
Value : 7 1 0
Value : 8 1 0
Value : 9 1 0
Value : 10 1 0
Value : 11 1 0
Value : 12 1 0
Value : 13 1 0
Value : 14 1 0
Value : 15 1 0
Value : 16 1 0
Value : 17 1 0
Value : 18 1 0
Value : 19 1 0
Value : 20 1 0
Value : 21 1 0
Value : 22 1 0
Value : 23 1 0
Value : 24 1 0
Value : 25 1 0
Value : 26 1 0
Value : 27 1 0
Value : 28 1 0
Value : 29 1 0
Value : 30 1 0
Value : 31 1 0
Value : 32 1 0
Value : 33 1 0
Value : 34 1 0
Value : 35 1 0
Value : 36 1 0
Value : 37 1 0
Value : 38 1 0
Value : 39 1 0
Value : 40 1 0
Value : 41 1 0
Value : 42 1 0
Value : 43 1 0
Value : 44 1 0
Value : 45 1 0
Value : 46 1 0
Value : 47 1 0
Value : 48 1 0
Value : 49 1 0
Value : 50 1 0
Value : 51 1 0
%End