%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:345
File Name:LCM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\ClrText
0\->R
\ViewWindow 1,127,0,1,63,0
\Text 25,25,"   LCM finder."
\Text 40,42,"Beta v 1.0"
\Text 46,20,"Schmude \@26 Harradine."
\Text 56,16,"(Press EXE to continue.)"\Disp\Lbl 1
\ClrText
"GCD OF TWO POSITIVE"
"INTEGERS."
"1ST INTEGER="?\->A
"2ND INTEGER="?\->B
\If A\<=0\ Or B\<=0
\Then \Goto1
\IfEnd
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,"LCM ="
\Locate 7,4,L

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3
File Name:LCMGAM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record

%End