%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:693
File Name:TANKS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 1,127,1,63,1
0\->I
\Int 63\Ran#+1\->A
\Int 63\Ran#+63\->B
63-\Int 30\Ran#\->C
63-\Int 30\Ran#\->D
\Int 10\Ran#\->E
\Int 2\Ran#\->F
\Lbl 1
\Cls
\Rad
'\Graph Y>=10\sin .1X+50
\Text 58,A,"*"
\Text 58,B,"+"
\F-Line 40,63,40,C
\F-Line 60,63,60,D
\Text 5,45,"WIND="
\Text 15,37,"DIRECTION="
E<0\=>\(-)E\->E
\Text 5,69,E
F=0\=>\Text 15,80,"<-"\DispF=1\=>\Text 15,80,"\->"\Disp\ClrText
"ANGLE="?\->\theta
"POWER="?\->\r
\Deg
\r\sin \theta\->G
\r\cos \theta\->H
F=0\=>\(-)E\->E
58\->K
\If I=0
\Then A\->J
\Else B\->J
\(-)H\->H
\IfEnd
\While K\<=58
J<127\=>J>1\=>K>1\=>\PxlOn \Int K,\Int J
K\->N:J\->O
G-2\->G
K-G\->K
H+E*.2\->H
\Int H\->H
J+H\->J
J\<>O\=>(K-N)/(J-O)\->P
P\<>0\=>J\<>0\=>K-(PJ)\->Q
\If O<40\ And J\>=40\ Or J<40\ And O\>=40
\Then 40P+Q\->R
38\->S
R>C\=>\Break
\IfEnd
\If O<60\ And J\>=60\ Or J<60\ And O\>=60
\Then 60P+Q\->R
58\->S
R>D\=>\Break
\IfEnd
J\->S
\WhileEnd
\If K>58
\Then J=O\=>J-3\->S
J=O\=>\Goto0
(58-Q)/P\->J
58\->K:J-3\->S
\IfEnd
\Lbl 0
K>58\=>58\->K
S<127\=>S>1\=>\Text \Int K,\Int S,"\aster"
I=0\=>B\->M
I=1\=>A\->M
\If J\>=M-5\ And J\<=M+5\ And K\>=58
\Then \Text 58,M-6,"##":\Text 54,M-6,"\aster\aster"\Disp\Stop
\Else \Isz I
I=2\=>0\->I
\Goto1
\IfEnd
%End