%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:212
File Name:GCDLCM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"GCD AND LCM OF TWO   POSITIVE INTEGERS"
"1ST INTEGER="?\->A
"2ND INTEGER="?\->B
A\->P
B\->R
\Do
P\->D
R\->P
D-P\Int (D/P)\->R
\LpWhile R>0
AB/P\->L
\ClrText
\Locate 1,1,"FOR"
\Locate 5,1,A
\Locate 1,2,"AND"
\Locate 5,2,B
\Locate 1,4,"GCD ="
\Locate 7,4,P
\Locate 1,6,"LCM="
\Locate 7,6,L
%End