%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:427
File Name:FACTFIND
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\ClrText
0\->R
\ViewWindow 1,127,0,1,63,0
\Text 25,25,"The fact\or finder."
\Text 40,42,"Beta v 1.0"
\Text 46,20,"Schmude \@26 Harradine."
\Text 56,16,"(Press EXE to continue.)"\Disp\ClrText
\Lbl 5
\ClrText
"# to find fact\ors of"?\->N
\If N>999
\Then "Try a smaller one."\Disp\Goto5
\IfEnd
\ClrText
"    has fact\ors"
\Locate 1,1,N\DispN+1\->Y
0\->R
\Lbl 1
Y-1\->Y
Y=0\=>\Goto2
N/Y\<>\Int (N/Y)\=>\Goto1
N/Y\DispR+1\->R
\Goto1
\Lbl 2
\ClrText
"   fact\ors in total."
\Locate 1,1,R\Disp\ClrText
"\Do you have another"
"number to find"
"the fact\ors of,"
"1: Yes"
"2: No"?\->A
\If A=2
\Then \Stop
\Else \Goto5

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

%End