%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:420
File Name:TRANSLAT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM SHIFTS A TRIANGLE IN THE X AND/OR Y DIRECTION."
"ENTER THE VERTICES."
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
" "
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Lbl 1
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"HORIZONTAL SHIFT     X DIRECTION"?\->Q
A+Q\->G
"VERTICAL SHIFT       Y DIRECTION"?\->U
B+U\->R
\Orange \Plot G,R
C+Q\->I
D+U\->J
\Orange \Plot I,J:\Orange \Line
E+Q\->K
F+U\->L
\Orange \Plot K,L:\Orange \Line
\Orange \Plot G,R:\Orange \Line\Disp\Cls:\Plot C,D:\Plot E,F:\Goto1
%End