%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:140
File Name:RADICAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"A\sqrtB"
"A"?\->D
"B"?\->X
0\->C
\For 2\->A \To X/2
A\x^2>X\=>\Break
X/A\x^2\->C
\If \Frac C=0
\Then X/A\x^2\->X
AD\->D
D=0\=>A\->D
1\->A
\IfEnd
\Next 
\ClrText
D=0\=>\Goto1
\Locate 1,2,D
\Lbl 1
X=1\=>\Stop
\Locate 1,3,"\sqrt"
\Locate 2,3,X
%End