%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:313
File Name:DRAWLINE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRSAVFJ"
A\->F
B\->G
C\->H
D\->I
\If F>H
\Then F\->J
H\->F
J\->H
G\->J
I\->G
J\->I
\IfEnd
F>\Xmax\=>\Goto0
H<\Xmin\=>\Goto0
\If F<\Xmin
\Then G+(I-G)(\Xmin-F)/(H-F)\->G
\Xmin\->F
\IfEnd
\If H>\Xmax
\Then I-(G-I)(H-\Xmax)/(H-F)\->I
\Xmax\->H
\IfEnd
\If G>I
\Then F\->J
H\->F
J\->H
G\->J
I\->G
J\->I
\IfEnd
G>\Ymax\=>\Goto0
I<\Ymin\=>\Goto0
\If G<\Ymin
\Then F+(H-F)(\Ymin-G)/(I-G)\->F
\Ymin\->G
\IfEnd
\If I>\Ymax
\Then H-(H-F)(I-\Ymax)/(I-G)\->H
\Ymax\->I
\IfEnd
\Plot F,G
\Plot H,I
\Line
\Lbl 0
\Prog "VRRESFJ"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:375
File Name:DRAW9850
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRSAVFJ"
A\->F
B\->G
C\->H
D\->I
\If F>H
\Then F\->J
H\->F
J\->H
G\->J
I\->G
J\->I
\IfEnd
F>\Xmax\=>\Goto0
H<\Xmin\=>\Goto0
\If F<\Xmin
\Then G+(I-G)(\Xmin-F)/(H-F)\->G
\Xmin\->F
\IfEnd
\If H>\Xmax
\Then I-(G-I)(H-\Xmax)/(H-F)\->I
\Xmax\->H
\IfEnd
\If G>I
\Then F\->J
H\->F
J\->H
G\->J
I\->G
J\->I
\IfEnd
G>\Ymax\=>\Goto0
I<\Ymin\=>\Goto0
\If G<\Ymin
\Then F+(H-F)(\Ymin-G)/(I-G)\->F
\Ymin\->G
\IfEnd
\If I>\Ymax
\Then H-(H-F)(I-\Ymax)/(I-G)\->H
\Ymax\->I
\IfEnd
\If E=0
\Then \Plot F,G
\Plot H,I
\Line
\Else \If E=1
\Then \Orange \Plot F,G
\Orange \Plot H,I
\Orange \Line
\Else \Green \Plot F,G
\Green \Plot H,I
\Green \Line
\IfEnd
\IfEnd
\Lbl 0
\Prog "VRRESFJ"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:209
File Name:UTDRAWLI
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "VRPRE"
\ViewWindow 0,2,1,0,1,1
\For 0\->F \To 2
0\->A
F/2\->B
2\->C
F/2\->D
0\->E
\Prog "DRAWLINE"
\Next 
\For 0\->F \To 4
F/2\->A
\(-)1\->B
A\->C
2\->D
1\->E
\Prog "DRAWLINE"
\Next 
\For 0\->F \To 15
0\->A
1-F/15\->B
F/15\->C
0\->D
\(-)1\->E
\Prog "DRAWLINE"
1+F/15\->A
0\->B
2\->C
F/15\->D
\Prog "DRAWLINE"
\Next 
%End