%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:973
File Name:TRIPLE-W
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
" "
" "
"  TRIPLE-WORM (BETA)"
" "
"       BY OS98"
"       V. 0.9b\Disp\ClrGraph
\AxesOff
32\->A
9\->B
0\->C
1\->D
0\->E
1\->S
0\->P
50\->Q
50\->R
0\->W
3\->V
50\->T
\Text 1,1,W
\Lbl 1
\Getkey\->X
\If X=38
\Then E=1\=>0\->E
E=315\=>0\->C
E=315\=>1\->D
E=315\=>1\->E
E=270\=>1\->C
E=270\=>1\->D
E=270\=>315\->E
E=225\=>1\->C
E=225\=>0\->D
E=225\=>270\->E
E=180\=>1\->C
E=180\=>\(-)1\->D
E=180\=>225\->E
E=135\=>0\->C
E=135\=>\(-)1\->D
E=135\=>180\->E
E=90\=>\(-)1\->C
E=90\=>\(-)1\->D
E=90\=>135\->E
E=45\=>\(-)1\->C

E=45\=>0\->D
E=45\=>90\->E
E=0\=>\(-)1\->C
E=0\=>1\->D
E=0\=>45\->E

\IfEnd
\If X=27
\Then E=1\=>0\->E
E=45\=>0\->C
E=45\=>1\->D
E=45\=>1\->E
E=90\=>\(-)1\->C
E=90\=>1\->D
E=90\=>45\->E

E=135\=>\(-)1\->C
E=135\=>0\->D
E=135\=>90\->E
E=180\=>\(-)1\->C
E=180\=>\(-)1\->D
E=180\=>135\->E
E=225\=>0\->C
E=225\=>\(-)1\->D
E=225\=>180\->E
E=270\=>1\->C
E=270\=>\(-)1\->D
E=270\=>225\->E
E=315\=>1\->C
E=315\=>0\->D
E=315\=>270\->E
E=0\=>1\->C
E=0\=>1\->D
E=0\=>315\->E
\IfEnd
P=0\=>\Int 61\Ran#+2\->Q
P=0\=>\Int 125\Ran#+2\->R
P=0\=>1\->P
P=1\=>\Green \PxlOn Q,R
P=1\=>2\->P
P=2\=>T-1\->T
A+C\->A
B+D\->B
A>64\ Or A<1\=>\GotoS
B>128\ Or B<1\=>\GotoS
\If A\<>Q\ Or B\<>R
\Then \PxlTest A,B
\Ans=1\=>\GotoS
\IfEnd
\If T=0
\Then \PxlOff Q,R
0\->P
50\->T
\IfEnd
\If A=Q\ And B=R
\Then \PxlOff Q,R
W+1\->W
\Text 1,1,W
0\->P
\IfEnd
\If W=V
\Then V+3\->V
\ClrGraph
\Text 1,1,W
0\->P
\IfEnd
\PxlOn A,B
\Goto1
\Lbl S
\ClrText
\Locate 1,1,"GAME OVER"
\Locate 1,2,"POINTS:"
\Locate 9,2,W
\AxesOn
%End