%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:50
Columns:2
Variable Name:Mat E
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 0
Value : 1 2 2.5\EE+1
Value : 2 1 0
Value : 2 2 0
Value : 3 1 0
Value : 3 2 0
Value : 4 1 0
Value : 4 2 0
Value : 5 1 0
Value : 5 2 0
Value : 6 1 0
Value : 6 2 0
Value : 7 1 0
Value : 7 2 0
Value : 8 1 0
Value : 8 2 0
Value : 9 1 0
Value : 9 2 0
Value : 10 1 0
Value : 10 2 0
Value : 11 1 0
Value : 11 2 0
Value : 12 1 0
Value : 12 2 0
Value : 13 1 0
Value : 13 2 0
Value : 14 1 0
Value : 14 2 0
Value : 15 1 0
Value : 15 2 0
Value : 16 1 0
Value : 16 2 0
Value : 17 1 0
Value : 17 2 0
Value : 18 1 0
Value : 18 2 0
Value : 19 1 0
Value : 19 2 0
Value : 20 1 0
Value : 20 2 0
Value : 21 1 0
Value : 21 2 0
Value : 22 1 0
Value : 22 2 0
Value : 23 1 0
Value : 23 2 0
Value : 24 1 0
Value : 24 2 0
Value : 25 1 0
Value : 25 2 0
Value : 26 1 0
Value : 26 2 0
Value : 27 1 0
Value : 27 2 0
Value : 28 1 0
Value : 28 2 0
Value : 29 1 0
Value : 29 2 0
Value : 30 1 0
Value : 30 2 0
Value : 31 1 0
Value : 31 2 0
Value : 32 1 0
Value : 32 2 0
Value : 33 1 0
Value : 33 2 0
Value : 34 1 0
Value : 34 2 0
Value : 35 1 0
Value : 35 2 0
Value : 36 1 0
Value : 36 2 0
Value : 37 1 0
Value : 37 2 0
Value : 38 1 0
Value : 38 2 0
Value : 39 1 0
Value : 39 2 0
Value : 40 1 0
Value : 40 2 0
Value : 41 1 0
Value : 41 2 0
Value : 42 1 0
Value : 42 2 0
Value : 43 1 0
Value : 43 2 0
Value : 44 1 0
Value : 44 2 0
Value : 45 1 0
Value : 45 2 0
Value : 46 1 0
Value : 46 2 0
Value : 47 1 0
Value : 47 2 0
Value : 48 1 0
Value : 48 2 0
Value : 49 1 0
Value : 49 2 0
Value : 50 1 0
Value : 50 2 0
%End
%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:4
Columns:2
Variable Name:Mat F
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 0
Value : 1 2 0
Value : 2 1 0
Value : 2 2 0
Value : 3 1 0
Value : 3 2 0
Value : 4 1 0
Value : 4 2 0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:11426
File Name:XTREME
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Getkey=79\=>\Goto0
'\Mat E,50,2,\Mat F,4,2
'"MAKE AGILITY ACTUALLY DO SOMETHING"
\Prog "GRIFSOFT"
0\->N
\ClrGraph
\Lbl A
N=1\=>\ClrGraph
N=0\=>\ViewWindow \(-)3.2,\(-).9,0,\(-).1,1.9,0
'X
\F-Line \(-)2.5,.5,\(-)2.2,.9
\F-Line \(-)2.2,.9,\(-)2,1.1
\F-Line \(-)2,1.1,\(-)1.7,1.4
\F-Line \(-)1.7,1.4,\(-)1.4,1.6
\F-Line \(-)1.4,1.6,\(-)1.2,1.6
\F-Line \(-)1.2,1.6,\(-).9,1.5
\F-Line \(-).9,1.5,\(-)1,1.8
\F-Line \(-)1,1.8,\(-)1.2,1.9
\F-Line \(-)1.2,1.9,\(-)1.5,1.9
\F-Line \(-)1.5,1.9,\(-)1.8,1.7
\F-Line \(-)1.8,1.7,\(-)2.1,1.4
\F-Line \(-)2.1,1.4,\(-)2.4,.9
\F-Line \(-)2.4,.9,\(-)2.6,.6
\F-Line \(-)2.6,.6,\(-)2.9,.9
\F-Line \(-)2.9,.9,\(-)2.9,1.1
\F-Line \(-)2.9,1.1,\(-)3,.9
\F-Line \(-)3,.9,\(-)2.8,.6
\F-Line \(-)2.8,.6,\(-)2.8,.5
\F-Line \(-)2.8,.5,\(-)2.9,.3
\F-Line \(-)2.9,.3,\(-)3.1,.1
\F-Line \(-)3.1,.1,\(-)3.2,.1
\F-Line \(-)3.2,.1,\(-)3.2,\(-).1
\F-Line \(-)3.2,\(-).1,\(-)3,\(-).1
\F-Line \(-)3,\(-).1,\(-)3,0
\F-Line \(-)3,0,\(-)2.8,.2
\F-Line \(-)2.8,.2,\(-)2.6,.3
\F-Line \(-)2.6,.3,\(-)2.5,.3
\F-Line \(-)2.5,.3,\(-)2.2,.1
\F-Line \(-)2.2,.1,\(-)2,.2
\F-Line \(-)2,.2,\(-)2.2,.2
\F-Line \(-)2.2,.2,\(-)2.5,.5
'T
\If N=0
\Then \For 0\->W \To 150
\Next 
\ViewWindow \(-)1.6,\(-).4,0,0,1.3,0
\IfEnd
\F-Line \(-)1.6,.6,\(-)1.6,.8
\F-Line \(-)1.6,.8,\(-)1.1,.8
\F-Line \(-)1.1,.8,\(-).7,.9
\F-Line \(-).7,.9,\(-).5,1.1
\F-Line \(-).5,1.1,\(-).4,1.3
\F-Line \(-).4,1.3,\(-).4,1
\F-Line \(-).4,1,\(-).6,.7
\F-Line \(-).6,.7,\(-).9,.6
\F-Line \(-).9,.6,\(-).9,.4
\F-Line \(-).9,.4,\(-)1.1,0
\F-Line \(-)1.1,0,\(-)1.1,.5
\F-Line \(-)1.1,.5,\(-)1.2,.6
\F-Line \(-)1.2,.6,\(-)1.6,.6
'R
\If N=0
\Then \For 0\->W \To 150
\Next 
\ViewWindow \(-).2,.7,0,\(-).2,.9,0
\IfEnd
\F-Line \(-).1,.9,.3,.9
\F-Line .3,.9,.5,.8
\F-Line .5,.8,.5,.5
\F-Line .5,.5,.3,.4
\F-Line .3,.4,.5,.2
\F-Line .5,.2,.6,0
\F-Line .6,0,.7,\(-).2
\F-Line .7,\(-).2,.4,0
\F-Line .4,0,.3,.2
\F-Line .3,.2,.1,.3
\F-Line .1,.3,.1,.1
\F-Line .1,.1,.2,0
\F-Line .2,0,\(-).2,0
\F-Line \(-).2,0,\(-).1,.1
\F-Line \(-).1,.1,\(-).1,.9
\F-Line .1,.7,.3,.7
\F-Line .3,.7,.1,.5
\F-Line .1,.5,.1,.7
'E
\If N=0
\Then \For 0\->W \To 150
\Next 
\ViewWindow .9,1.5,0,0,.9,0
\IfEnd
\F-Line .9,.9,1.5,.9
\F-Line 1.5,.9,1.3,.7
\F-Line 1.3,.7,1.1,.7
\F-Line 1.1,.7,1.1,.5
\F-Line 1.1,.5,1.4,.5
\F-Line 1.4,.5,1.1,.3
\F-Line 1.1,.3,1.1,.2
\F-Line 1.1,.2,1.3,.2
\F-Line 1.3,.2,1.5,0
\F-Line 1.5,0,.9,0
\F-Line .9,0,.9,.9
'M
\If N=0
\Then \For 0\->W \To 150
\Next 
\ViewWindow 1.7,2.6,0,\(-).5,.9,0
\IfEnd
\F-Line 1.7,.9,2,.9
\F-Line 2,.9,2.2,.7
\F-Line 2.2,.7,2.4,.9
\F-Line 2.4,.9,2.6,.9
\F-Line 2.6,.9,2.6,.1
\F-Line 2.6,.1,2.6,\(-).5
\F-Line 2.6,\(-).5,2.4,.2
\F-Line 2.4,.2,2.4,.6
\F-Line 2.4,.6,2.2,.4
\F-Line 2.2,.4,2,.6
\F-Line 2,.6,2,.3
\F-Line 2,.3,1.8,0
\F-Line 1.8,0,1.8,.7
\F-Line 1.8,.7,1.7,.9
'E
\If N=0
\Then \For 0\->W \To 150
\Next 
\ViewWindow 2.9,3.5,0,0,.9,0
\IfEnd
\F-Line 2.9,.9,3.5,.9
\F-Line 3.5,.9,3.3,.7
\F-Line 3.3,.7,3.1,.7
\F-Line 3.1,.7,3.1,.5
\F-Line 3.1,.5,3.4,.5
\F-Line 3.4,.5,3.1,.3
\F-Line 3.1,.3,3.1,.2
\F-Line 3.1,.2,3.3,.2
\F-Line 3.3,.2,3.5,0
\F-Line 3.5,0,2.9,0
\F-Line 2.9,0,2.9,.9
N=2\=>\Goto9
\If N=0
\Then 1\->N
\For 0\->W \To 150
\Next 
\GotoA
\IfEnd
'SWOOSH
\F-Line \(-)2.3,\(-)2.4,\(-)2.9,\(-)2.6
\F-Line \(-)2.9,\(-)2.6,\(-)2.6,\(-)2.3
\F-Line \(-)2.6,\(-)2.3,\(-)4.3,\(-)2.5
\F-Line \(-)4.3,\(-)2.5,\(-)3,\(-)1.9
\F-Line \(-)3,\(-)1.9,\(-)4,\(-)1.8
\F-Line \(-)4,\(-)1.8,\(-)3,\(-)1.4
\F-Line \(-)3,\(-)1.4,\(-)3.9,\(-)1.3
\F-Line \(-)3.9,\(-)1.3,4,\(-).1
\F-Line 4,\(-).1,3.9,\(-).4
'F
\F-Line \(-)1,\(-)1.4,\(-)1.7,\(-)1.6
\F-Line \(-)1.7,\(-)1.6,\(-)2.3,\(-)2.8
\F-Line \(-)2,\(-)2.2,\(-)1.4,\(-)2.1
'I
\F-Line \(-).8,\(-)1.6,\(-).2,\(-)1.4
\F-Line \(-).5,\(-)1.5,\(-).9,\(-)2.4
\F-Line \(-).5,\(-)2.3,\(-)1.2,\(-)2.5
'G
\F-Line .6,\(-)1.6,.3,\(-)1.7
\F-Line .5,\(-)1.6,.3,\(-)1.9
\F-Line .3,\(-)1.9,.1,\(-)2.1
\F-Line .1,\(-)2.1,0,\(-)2.1
\F-Line 0,\(-)2.1,\(-).1,\(-)2
\F-Line \(-).1,\(-)2,\(-).1,\(-)1.8
\F-Line \(-).1,\(-)1.8,0,\(-)1.5
\F-Line 0,\(-)1.5,.2,\(-)1.3
\F-Line .2,\(-)1.3,.4,\(-)1.2
\F-Line .4,\(-)1.2,.5,\(-)1.2
\F-Line .5,\(-)1.2,.5,\(-)1.3
'H
\F-Line .9,\(-)1.1,.7,\(-)1.8
\F-Line .8,\(-)1.4,1.3,\(-)1.3
\F-Line 1.4,\(-).9,1.2,\(-)1.6
'T
\F-Line 1.6,\(-).9,2,\(-).7
\F-Line 1.8,\(-).8,1.6,\(-)1.4
'E
\F-Line 2.6,\(-).5,2.2,\(-).6
\F-Line 2.2,\(-).6,2,\(-)1.2
\F-Line 2,\(-)1.2,2.4,\(-)1
\F-Line 2.1,\(-).9,2.4,\(-).8
'R
\F-Line 2.8,\(-).5,3.1,\(-).4
\F-Line 3.1,\(-).4,3.2,\(-).4
\F-Line 3.2,\(-).4,3.2,\(-).5
\F-Line 3.2,\(-).5,3,\(-).6
\F-Line 3,\(-).6,3.2,\(-).7
\F-Line 3,\(-).6,2.8,\(-).7
\F-Line 2.7,\(-).9,2.8,\(-).5
'S
\F-Line 3.7,\(-).2,3.6,\(-).3
\F-Line 3.6,\(-).2,3.4,\(-).4
\F-Line 3.4,\(-).4,3.7,\(-).5
\F-Line 3.7,\(-).5,3.4,\(-).7
'GLINT
\For 0\->W \To 200
\Next 
\F-Line \(-)1.1,2,\(-)1.3,1.8
\F-Line \(-)1,1.9,\(-)1.4,2.1
\F-Line \(-)1,2.1,\(-)1.4,1.7
\F-Line \(-).9,2.2,\(-)1.4,1.6
\PxlOff 15,50
\PxlOff 15,51
\PxlOff 10,55
\PxlOff 10,56
\PxlOff 14,51
\PxlOff 14,52
\PxlOff 13,54
\PxlOff 11,54
\PxlOff 11,50
\PxlOff 11,51
\PxlOff 12,52
\PxlOff 12,53
\PxlOff 1,127
\For 0\->W \To 600
\Next 
\Lbl 0
\ClrGraph
\F-Line 2.7,3.1,\(-)2.7,3.1
\F-Line 2.9,2.9,2.9,2.5
\F-Line \(-)2.9,2.9,\(-)2.9,2.5
\F-Line 2.7,2.3,\(-)2.7,2.3
\Plot 2.9,3.1
\Plot 2.9,2.3
\Plot \(-)2.9,3.1
\Plot \(-)2.9,2.3
\Plot 2.8,3
\Plot \(-)2.8,3
\Plot \(-)2.8,3
\Text 3,37,"SELECT FIGHTER"
\Plot 2.8,2.4
\Plot \(-)2.8,2.4
\Plot \(-)2.8,2.4
\Text 17,1,"NAME:"
\Text 25,1,"STRENGTH:"
\Text 33,1,"AGILITY:"
\Text 41,1,"SPECIAL:"
\Text 49,1,"TAUNT:"
\Text 3,27,"<"
\Text 3,29,"I"
\F-Line \(-)3.2,2.9,\(-)3.2,2.5
\Text 3,97,"I"
\Text 3,99,">"
\F-Line 3.2,2.9,3.2,2.5
Q<1\ Or Q>5\ Or Q\<>\Int Q\=>1\->Q
\GotoC
\Lbl B
\If Q=P
\Then \ClrGraph
\Text 3,27,"<"
\Text 3,29,"I"
\F-Line \(-)3.2,2.9,\(-)3.2,2.5
\Text 3,97,"I"
\Text 3,99,">"
\F-Line 3.2,2.9,3.2,2.5
\IfEnd
\If M=27
\Then \Text 3,99," "
\Text 3,97,">"
\F-Line 3.2,2.9,3.2,2.5
\IfEnd
\If M=38
\Then \Text 3,25," "
\Text 3,29,"<"
\F-Line \(-)3.2,2.9,\(-)3.2,2.5
\IfEnd
\If Q\<>P
\Then \Text 3,40,"              "
\For 15\->W \To 57 \Step 6
\Text W,1,"                              "
\Text W,121,"    "
\Text W,123,"   "
\Next 
\IfEnd
\If Q=1
\Then \Text 3,49,"JIM\(-)BOB"
\Text 15,1,"THE PRODUCT OF TEN GENERATIONS"
\Text 21,1,"OF MOTHER\slashSON IN\(-)BREEDING,"
\Text 27,1,"JIM\(-)BOB'S FIGHTING STYLE IS"
\Text 33,1,"BEST DESCRIBED AS MESSED\(-)UP."
\Text 39,1,"THE OWNER OF A FARM, HE ENTERS"
\Text 45,1,"THE TOURNAMENT PURELY FOR THE"
\Text 51,1,"MONEY, SPENDING IT ON SHEEP."
\IfEnd
\If Q=2
\Then \Text 3,40,"UROTSUKIDOJI"
\Text 15,1,"SHROUDED IN MYSTERY, LITTLE IS"
\Text 21,1,"KNOWN ABOUT THE LONG\(-)NAMED"
\Text 27,1,"FREAK.  HIS STYLE IS A STRANGE"
\Text 33,1,"MIX OF SAMURAI AND GIRLY"
\Text 39,1,"BALLET DANCING.  AN EXTREMELY"
\Text 45,1,"EFFEMINATE BUT DEADLY FIGHTER,"
\Text 51,1,"HE IS FEARED WHEREVER HE GOES."
\IfEnd
\If Q=3
\Then \Text 3,44,"LARA CROFT"
\Text 15,1,"WITH A CHEST THE SIZE OF ST."
\Text 21,1,"PAUL'S CATHEDRAL, LARA IS AS"
\Text 27,1,"AGILE AS A CAT.  USING HER"
\Text 33,1,"ASSETS TO HER ADVANTAGE, FEW"
\Text 39,1,"MEN HAVE SURVIVED HER"
\Text 45,1,"SUFFOCATION MOVE.  ONLY THE"
\Text 51,1,"BRAVEST TAKE HER ON."
\IfEnd
\If Q=4
\Then \Text 3,42,"DARTH VADER"
\Text 15,1,"DARK LORD OF THE SITH, VADER'S"
\Text 21,1,"ONLY WEAKNESS IS HIS LUNGS, AS"
\Text 27,1,"HE DOESN'T HAVE ANY. USING THE"
\Text 33,1,"EVIL FORCES OF THE DARK SIDE,"
\Text 39,1,"THIS JEDI MASTER RARELY LOSES."
\Text 45,1,"HAS THE ABILITY TO IRRITATE"
\Text 51,1,"FOES TO DEATH WITH HIS STUPID"
\Text 57,1,"BREATHING NOISES."
\IfEnd
\If Q=5
\Then \Text 3,44,"JAMES BOND"
\Text 15,1,"ALCOHOLIC SECRET AGENT 007"
\Text 21,1,"LIKES NOTHING BETTER THAN A"
\Text 27,1,"VODKA\(-)MARTINI, SHAKEN NOT"
\Text 33,1,"STIRRED, AND A QUICK SHAG OFF"
\Text 39,1,"A FIT BIRD.  SAYS HE'S AN"
\Text 45,1,"EARLY RISER, WHICH IS JUST HIS"
\Text 51,1,"TRADEMARK STYLE OF INNUENDO."
\Text 57,1,"SECRETELY IN LOVE WITH Q."
\IfEnd
\PxlOff 1,127
Q\->P
\If M=27
\Then \Text 3,97,"I"
\Text 3,99,">"
\PxlOff 1,127
\IfEnd
\If M=38
\Then \Text 3,27,"<"
\Text 3,29,"I"
\F-Line \(-)3.2,2.9,\(-)3.2,2.5
\IfEnd
\Do
\Getkey\->M
M=27\=>Q+1\->Q
M=38\=>Q-1\->Q
Q=6\=>1\->Q
Q=0\=>5\->Q
M=27\ Or M=38\=>\GotoB
\LpWhile M\<>47
\Goto0
\Lbl 1
Q\->P
\Do
\Getkey\->M
M=78\=>\GotoB
\LpWhile M\<>27\ And M\<>38\ And M\<>31
M=31\=>1\->Q
M=31\=>\Goto2
M=27\=>Q+1\->Q
M=38\=>Q-1\->Q
Q>5\=>1\->Q
Q<1\=>5\->Q
\If M=27
\Then \Text 3,99," "
\Text 3,97,">"
\F-Line 3.2,2.9,3.2,2.5
\IfEnd
\If M=38
\Then \Text 3,25," "
\Text 3,29,"<"
\F-Line \(-)3.2,2.9,\(-)3.2,2.5
\IfEnd
\If P\<>Q
\Then \For 17\->W \To 49 \Step 8
\Text W,45,"                    "
\Next 
\PxlOff 1,127
\IfEnd
\Lbl C
\If Q=1
\Then \Text 17,45,"JIM\(-)BOB"
\Text 25,45,"5\slash10"
\Text 33,45,"6\slash10"
\Text 41,45,"BIG STICK"
\Text 49,45,"YOU MAD SPONG"
\IfEnd
\If Q=2
\Then \Text 17,45,"UROTSUKIDOJI"
\Text 25,45,"9\slash10"
\Text 33,45,"4\slash10"
\Text 41,45,"THROWING STARS"
\Text 49,45,"YOU WILL DIE"
\IfEnd
\If Q=3
\Then \Text 17,45,"LARA CROFT"
\Text 25,45,"5\slash10"
\Text 33,45,"9\slash10"
\Text 41,45,"PISTOLS"
\Text 49,45,"COME GET SOME, BABY"
\IfEnd
\If Q=4
\Then \Text 17,45,"DARTH VADER"
\Text 25,45,"8\slash10"
\Text 33,45,"6\slash10"
\Text 41,45,"LIGHT SABRE"
\Text 49,45,"KHUUUUUR\(-)CHK"
\IfEnd
\If Q=5
\Then \Text 17,45,"JAMES BOND"
\Text 25,45,"7\slash10"
\Text 33,45,"6\slash10"
\Text 41,45,"WALTHER PPK"
\Text 49,45,"LICENCED TO KILL!"
\IfEnd
\If M=27
\Then \Text 3,97,"I"
\Text 3,99,">"
\IfEnd
\If M=38
\Then \Text 3,27,"<"
\Text 3,29,"I"
\F-Line \(-)3.2,2.9,\(-)3.2,2.5
\IfEnd
\PxlOff 1,127
\Goto1
\Lbl 2
\Fill(0,\Mat E
\Fill(0,\Mat F
1\->Z
1\->\theta
\ClrGraph
\If P=1
\Then \Text 1,26,"JIM\(-)BOB"
5\->S
6\->A
10\->L
\IfEnd
\If P=2
\Then \Text 1,5,"UROTSUKIDOJI"
9\->S
4\->A
14\->L
\IfEnd
\If P=3
\Then \Text 1,14,"LARA CROFT"
5\->S
9\->A
15\->L
\IfEnd
\If P=4
\Then \Text 1,11,"DARTH VADER"
8\->S
6\->A
17\->L
\IfEnd
\If P=5
\Then \Text 1,14,"JAMES BOND"
7\->S
6\->A
15\->L
\IfEnd
\Text 4,61,"VS"
\F-Line \(-).5,3,.5,3
\F-Line .5,3,.5,2.2
\F-Line .5,2.2,\(-).5,2.2
\F-Line \(-).5,2.2,\(-).5,3
\If Q=1
\Then \Text 1,74,"JIM\(-)BOB"
5\->I
6\->J
10\->K
\IfEnd
\If Q=2
\Then \Text 1,74,"UROTSUKIDOJI"
9\->I
4\->J
14\->K
\IfEnd
\If Q=3
\Then \Text 1,74,"LARA CROFT"
5\->I
9\->J
15\->K
\IfEnd
\If Q=4
\Then \Text 1,74,"DARTH VADER"
8\->I
6\->J
17\->K
\IfEnd
\If Q=5
\Then \Text 1,74,"JAMES BOND"
7\->I
6\->J
15\->K
\IfEnd
\F-Line \(-)6,2.1,\(-)6,2.3
\F-Line \(-)6,2.3,\(-).8,2.3
\F-Line \(-).8,2.3,\(-).8,2.1
\F-Line \(-).8,2.1,\(-)6,2.1
\F-Line 6,2.1,6,2.3
\F-Line 6,2.3,.8,2.3
\F-Line .8,2.3,.8,2.1
\F-Line .8,2.1,6,2.1
\For 5\->W \To 55
\PxlOn 10,W
\PxlOn 10,128-W
\Next 
50\->E~F
\Text 17,10,"PUNCH"
\Text 25,10,"KICK"
\Text 33,10,"SPECIAL"
\Text 41,10,"TAUNT"
\PxlOff 1,127
33\->U
0\->M~N
\Lbl 3
\Text 33,80,"       "
\Do
M=79\ Or M=69\ Or M=59\ Or M=49\ Or M=0\=>M\->N
\Int (4\Ran#)=0\=>\Goto5
\Getkey\->M
\If M=29
\Then \Text 33,80,"! PAUSED !"
\PxlOff 1,127
\Do
\Getkey\->M
\LpWhile M\<>31
\Text 33,80,"               "
\IfEnd
M=79\=>17\->U
M=69\=>25\->U
M=59\=>33\->U
M=49\=>41\->U
\Text U,3,"\->"
\PxlOff U+2,7
\Text U,3," "
\LpWhile M\<>79\ And M\<>69\ And M\<>59\ And M\<>49
N=0\=>\Goto4
\Goto3
\Lbl 4
E\->G
F\->H
\If U=17
\Then \Int (A\Ran#+1)\->R
\If R=1
\Then \Text 33,80,"BLOCK!"
\Goto3
\Else \Text 33,80,"HIT!"
F-(S/2)\->F
\IfEnd
\IfEnd
U=25\=>E\<=10\=>\Goto3
\If U=25\ And E>10
\Then \Int ((A+2)\Ran#+1)\->R
\If R=1
\Then \Text 33,80,"BLOCK!"
\Goto3
\Else \Text 33,80,"HIT!"
F-S\->F
\IfEnd
\IfEnd
U=33\=>E\<=30\=>\Goto3
\If U=33\ And E>30
\Then \Int (2A\Ran#+1)\->R
\If R=1
\Then \Text 33,80,"BLOCK!"
\Goto3
\Else \Text 33,80,"HIT!"
F-L\->F
\IfEnd
\IfEnd
\If U=41
\Then \If P=1
\Then \Text 49,1,"YOU MAD SPONG"
E+2\->E
F-2\->F
\IfEnd
\If P=2
\Then \Text 49,1,"YOU WILL DIE"
E+2\->E
F-3\->F
\IfEnd
\If P=3
\Then \Text 49,1,"COME GET SOME, BABY"
E+3\->E
F+5\->F
\IfEnd
\If P=4
\Then \Text 49,1,"KHUUUUUR\(-)CHK"
E+3\->E
F-1\->F
\IfEnd
\If P=5
\Then \Text 49,1,"LICENSED TO KILL!"
E+4\->E
F-2\->F
\IfEnd
\IfEnd
U\->\Mat E[Z,1]
Z+1\->Z
\Goto6
\Lbl 5
E\->G
F\->H
(8(\Int (4\Ran#)))+17\->V
\If V=17
\Then \Text V,80,"PUNCH"
\PxlOff 1,127
\For 0\->W \To 2A
\Getkey\->M
M=39\=>\Goto6
\Next 
E-(I/2)\->E
\IfEnd
V=25\=>F\<=10\=>\Goto3
\If V=25\ And F>10
\Then \Text V,80,"KICK"
\PxlOff 1,127
\For 0\->W \To 16
\Getkey\->M
M=39\=>\Goto6
\Next 
E-I\->E
\IfEnd
V=33\=>F\<=33\=>\Goto3
\If V=33\ And F>30
\Then \Text V,80,"SPECIAL"
\PxlOff 1,127
\For 0\->W \To 16
\Getkey\->M
M=39\=>\Goto6
\Next 
E-K\->E
\IfEnd
\If V=41
\Then \If Q=1
\Then \Text 49,45,"YOU MAD SPONG"
E-2\->E
F+2\->F
\IfEnd
\If Q=2
\Then \Text 49,45,"YOU WILL DIE"
E-3\->E
F+2\->F
\IfEnd
\If Q=3
\Then \Text 49,45,"COME GET SOME, BABY"
E+5\->E
F+3\->F
\IfEnd
\If Q=4
\Then \Text 49,45,"KHUUUUUR\(-)CHK"
E-1\->E
F+3\->F
\IfEnd
\If Q=5
\Then \Text 49,45,"LICENSED TO KILL!"
F+4\->F
E-2\->E
\IfEnd
\PxlOff 1,127
\IfEnd
V\->\Mat E[\theta,2
\theta+1\->\theta
\Goto6
\Lbl 6
M=39\=>V\<>41\=>\Text 49,10,"BLOCK"
\PxlOff 1,127
E>50\=>50\->E
F>50\=>50\->F
E<0\=>0\->E
F<0\=>0\->F
\Int E\->E
\Int F\->F
\If E>G
\Then \For G\->W \To E \Step 1
\PxlOn 10,W+5
\Next 
\IfEnd
\If E<G
\Then \For G\->W \To E \Step \(-)1
\PxlOff 10,W+5
\Next 
\IfEnd
\If F>H
\Then \For H\->W \To F \Step 1
\PxlOn 10,123-W
\Next 
\IfEnd
\If F<H
\Then \For H\->W \To F \Step \(-)1
\PxlOff 10,123-W
\Next 
\IfEnd
V\>=17\=>V\<=49\=>\Text V,80,"        "
\Text 33,80,"       "
\Text 49,1,"                                           "
\PxlOff 1,127
E=0\ Or F=0\=>\Goto7
\Goto3
\Lbl 7
1\->\r
\Do
\Mat E[\r,1]=17\=>\Mat F[1,1]+1\->\Mat F[1,1]
\Mat E[\r,1]=25\=>\Mat F[2,1]+1\->\Mat F[2,1]
\Mat E[\r,1]=33\=>\Mat F[3,1]+1\->\Mat F[3,1]
\Mat E[\r,1]=41\=>\Mat F[4,1]+1\->\Mat F[4,1]
\r+1\->\r
\LpWhile \Mat E[\r,1]\<>0
1\->\r
\Do
\Mat E[\r,2]=17\=>\Mat F[1,2]+1\->\Mat F[1,2]
\Mat E[\r,2]=25\=>\Mat F[2,2]+1\->\Mat F[2,2]
\Mat E[\r,2]=33\=>\Mat F[3,2]+1\->\Mat F[3,2]
\Mat E[\r,2]=41\=>\Mat F[4,2]+1\->\Mat F[4,2]
\r+1\->\r
\LpWhile \Mat E[\r,2]\<>0
\For 17\->W \To 41 \Step 8
\Text W,10,"       "
\Next 
\If F=0
\Then E=50\=>U\<>33\=>U\<>41\=>\Mat F[3,1]\<>0\ Or \Mat F[4,1]\<>0\=>\Text 17,50,"ULTIMATE"
U=33\=>E<50\=>\Text 17,52,"SPECIAL"
U=41\=>E<50\=>\Text 17,50,"TAUNTING"
E<50\=>\Mat F[3,1]=0\=>\Mat F[4,1]=0\=>\Text 17,48,"EXCELLENT"
E=50\=>U=33\=>\Text 17,42,"SPECTACULAR"
E=50\=>U=41\=>\Mat F[3,1]\<>0\=>\Text 17,54,"SUPERB"
\If E=50\ And \Mat F[3,1]=0
\Then 2\->N
\GotoA
\IfEnd
\Text 25,52,"VICTORY"
\Lbl 9
\IfEnd
\If F=0
\Then \If P=1
\Then \If Q=1
\Then \Text 41,1,"SHIT I KILLED MYSELF!"
\IfEnd
\If Q=2
\Then \Text 41,1,"YOU WILL DIE YOU SILLY FOOL"
\IfEnd
\If Q=3
\Then \Text 41,1,"HERE I COME, BABY!!!"
\IfEnd
\If Q=4
\Then \Text 41,1,"YOU FELT THE FORCE OF JIM\(-)BOB"
\IfEnd
\If Q=5
\Then \Text 41,1,"THE NAME'S BOB."
\PxlOff 1,127
\For 0\->W \To 500
\Next 
\Text 47,1,"JIM\(-)BOB"
\IfEnd
\IfEnd
\If P=2
\Then \If Q=1
\Then \Text 41,1,"YOU CRAZY IN\(-)BRED FOOL!"
\IfEnd
\If Q=2
\Then \Text 41,1,"HMMMM, PARADOXICAL."
\IfEnd
\If Q=3
\Then \Text 41,1,"SO MUCH FOR YOUR ASSETS"
\IfEnd
\If Q=4
\Then \Text 41,1,"COME TO THE DARKER SIDE...."
\IfEnd
\If Q=5
\Then \Text 41,1,"JAMES BOND?"
\PxlOff 1,127
\For 0\->W \To 500
\Next 
\Text 47,1,"JAMES SPONG MORE LIKE!"
\IfEnd
\IfEnd
\If P=3
\Then \If Q=1
\Then \Text 41,1,"DOES MY BUM LOOK BIG IN THIS?"
\IfEnd
\If Q=2
\Then \Text 41,1,"UROT WHAT?  STUPID NAME"
\IfEnd
\If Q=3
\Then \Text 41,1,"DON'T MESS WITH ME, BABY"
\IfEnd
\If Q=4
\Then \Text 41,1,"YOU FELT MY FORCE, BABY!"
\IfEnd
\If Q=5
\Then \Text 41,1,"COME ON, LET'S SHAG!!!"
\IfEnd
\IfEnd
\If P=4
\Then \If Q=1
\Then \Text 41,1,"WELCOME TO THE DARK SIDE"
\IfEnd
\If Q=2
\Then \Text 41,1,"THAT WAS EASIER THAN BREATHING"
\For 0\->W \To 250
\Next 
\Text 49,1,"WHICH AIN'T EASY, BELIEVE ME."
\IfEnd
\If Q=3
\Then \Text 41,1,"I KILLED YOU AND YOU AREN'T"
\Text 49,1,"EVEN REAL!!  THATS HOW GOOD I AM!"
\IfEnd
\If Q=4
\Then \Text 41,1,"WE WOULD'VE MADE A GREAT TEAM"
\IfEnd
\If Q=5
\Then \Text 41,1,"BOND:"
\Text 47,1,"DO YOU EXPECT ME TO TALK?"
\PxlOff 1,127
\For 0\->W \To 700
\Next 
\Text 47,1,"                               "
\Text 41,1,"VADER:"
\Text 47,1,"NO MR BOND, I EXPECT YOU"
\Text 53,1,"TO DIE!!!"
\PxlOff 1,127
\For 0\->W \To 500
\Next 
\Text 41,1,"        "
\Text 47,1,"                               "
\Text 53,1,"              "
\Text 41,1,"BOND:"
\Int (2\Ran#)\->W
W=0\=>\Text 47,1,"CHEERS THEN."
W=1\=>\Text 47,1,"SHIT."
\IfEnd
\IfEnd
\If P=5
\Then \If Q=1
\Then \Text 41,1,"THE NAME'S BOND."
\PxlOff 1,127
\For 0\->W \To 500
\Next 
\Text 47,1,"JAMES BOND"
\IfEnd
\If Q=2
\Then \Text 41,1,"UROTSUKI\(-)DEAD\(-)JI"
\IfEnd
\If Q=3
\Then \Text 41,1,"LET ME RAID YOUR TOMB."
\PxlOff 1,127
\For 0\->W \To 500
\Next 
\Text 47,1,"BABY!"
\IfEnd
\If Q=4
\Then \Text 41,1,"I'VE WAITED A LONG TIME"
\Text 47,1,"FOR THIS MOMENT..."
\IfEnd
\If Q=5
\Then \Text 41,1,"HALF OF EVERYTHING IS"
\Text 47,1,"LUCK, JAMES."
\IfEnd
\IfEnd
\IfEnd
'\If E=0
'\Then 
'\IfEnd
\PxlOff 1,127
\For 0\->W \To 700
\Next 
\Lbl 8
\If F=0
\Then Q+1\->Q
Q=6\=>"BOSS"
\IfEnd
\Goto2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1096
File Name:GRIFSOFT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrGraph:\PxlOn 21,15:\PxlOn 21,14:\PxlOn 22,13:\PxlOn 23,14:\PxlOn 23,15:\PxlOn 24,16:\PxlOn 24,17:\PxlOn 23,17
\PxlOn 22,17:\PxlOn 21,17:\PxlOn 20,17:\PxlOn 20,16:\PxlOn 19,16:\PxlOn 19,15:\PxlOn 19,14:\PxlOn 19,13:\PxlOn 19,12:\PxlOn 20,12:\PxlOn 20,11:\PxlOn 21,11:\PxlOn 22,11:\PxlOn 23,11:\PxlOn 24,11:\PxlOn 24,12:\PxlOn 25,12:\PxlOn 25,13:\PxlOn 25,14:\PxlOn 25,15:\PxlOn 25,16:\PxlOn 24,16:\Text 20,20,"COPYRIGHT 1998 GRIFFSOFT":\F-Line \(-)1,.4,\(-)1,\(-)1.9:\F-Line \(-).9,\(-)2,.9,\(-)2:\F-Line 1,\(-)1.9,1,.4:\F-Line .9,.5,\(-).9,.5:\F-Line \(-).8,.2,\(-).8,\(-)1.7:\F-Line \(-).7,\(-)1.8,.7,\(-)1.8:\F-Line .8,\(-)1.7,.8,.2:\F-Line .7,.3,\(-).7,.3:'G:\F-Line .5,\(-).4,.3,0:\F-Line .3,0,\(-).3,0:\F-Line \(-).3,0,\(-).5,\(-).5:\F-Line \(-).5,\(-).5,\(-).5,\(-)1:\F-Line \(-).5,\(-)1,\(-).3,\(-)1.5:\F-Line \(-).3,\(-)1.5,.3,\(-)1.5:\F-Line .3,\(-)1.5,.5,\(-)1:\F-Line .5,\(-)1,.5,\(-).8:\F-Line .5,\(-).8,0,\(-).8:\F-Line 0,\(-).8,0,\(-)1:\F-Line 0,\(-)1.1,.2,\(-)1.1:\F-Line .1,\(-)1.2,.1,\(-)1.1:\F-Line 0,\(-)1,0,\(-)1.2:\F-Line \(-).1,\(-)1.2,\(-).2,\(-)1:\F-Line \(-).2,\(-)1,\(-).2,\(-).5:\F-Line \(-).2,\(-).5,\(-).1,\(-).3:\F-Line \(-).1,\(-).3,.1,\(-).3:\F-Line .1,\(-).3,.2,\(-).5:\F-Line .2,\(-).5,.5,\(-).5:\PxlOn 21,14:\For 0\->W \To 200:\Next :\F-Line 1,.5,1,.5:\F-Line 1.1,.4,.9,.6:\F-Line .8,.3,1.1,.6:\F-Line 1.2,.3,.8,.7:\PlotOff 1.2,.3:\PlotOff .8,.7:\PlotOff .9,.4:\PlotOff 1.1,.6:\PlotOff .8,.3:\PlotOff 1.1,.4:\PlotOff .9,.6:\PlotOff 1,.5:\PlotOff 1,.5:\For 0\->W \To 50:\Next :\Plot \(-).8,\(-)1.8:\F-Line \(-).7,\(-)1.7,\(-).9,\(-)1.9:\F-Line \(-).6,\(-)1.6,\(-)1,\(-)2:\F-Line \(-).9,\(-)1.7,\(-).7,\(-)1.9:\F-Line \(-).5,\(-)1.5,\(-)1.1,\(-)2.1:\PlotOff \(-).5,\(-)1.5:\PlotOff \(-)1.1,\(-)2.1:\PlotOff \(-).9,\(-)1.7:\PlotOff \(-).7,\(-)1.9:\PlotOff \(-).6,\(-)1.6:\PlotOff \(-)1,\(-)2:\PlotOff \(-).7,\(-)1.7:\PlotOff \(-).9,\(-)1.9:\PlotOff \(-).8,\(-)1.8:\PlotOff \(-).8,\(-)1.8:\For 0\->W \To 200:\Next :\Return
%End