%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:898
File Name:PFACTGAM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\ClrText
0\->R
\ViewWindow 1,127,0,1,63,0
\Text 25,16,"The prime fact\or game."
\Text 40,42,"Beta v 1.0"
\Text 46,28,"Harradine - 2004."
\Text 56,16,"(Press EXE to continue.)"\Disp\ClrText
"All data in File 6"
"will be deleted."
"1: Continue."
"2:\Stop now."
?\->D
\If D=2
\Then \Stop
\Else \File6
\IfEnd
\ClrText
"WHICH LEVEL"
"1: COMPETENT"
"2: ADVANCED"?\->L
\For 1\->K \To 5
\If L=1
\Then (\Int (100\Ran#+5))\->N
\IfEnd
\If L=2
\Then \Int (950\Ran#+51)\->N
\IfEnd
0\->P
0\->Q
20\->\Dim \List 1
20\->\Dim \List 2
\Lbl 5
\ClrText
"Prime fact\or":N\Disp"How many individual"
"prime fact\ors"?\->H
\For 1\->S \To H
\ClrText
"Prime fact\or   "
\Locate 14,1,S\Disp?\->\List 2[S]
\Next 
(\Int \sqrtN)+1\->T
N\->X
\While \Frac (X/2)=0
P+1\->P
2\->\List 1[P]
X/2\->X
\WhileEnd
P\->Q
\For 3\->D \To T \Step 1
\Lbl 1
\If \Frac (X/D)=0
\Then Q+1\->Q
D\->\List 1[Q]
X/D\->X
\Goto1
\IfEnd
\Next 
Q+1\->Q
\If X=1
\Then \GotoZ
\Else X\->\List 1[Q]
\Lbl Z
\Sum \List 1\->E
\Sum \List 2\->F
\Prod \List 1\->G
\Prod \List 2\->J
\If E=F\ And G=J
\Then "C\orrect"
"  "
"Very well done."\DispR+1\->R
\Else "Ooops, try the next  one."\Disp\IfEnd
\Next 
\ClrText
"You got   out of 5"
\Locate 9,1,R
"c\orrect."\Disp\ClrText
\File1
"1: Yes"
"2: No"
"Would you like to"
"play again"?\->J
\If J=1
\Then \GotoA
\IfEnd
\If J=2
\Then "I'll take that as a"
"no."
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:394
File Name:PFACT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrGraph
\ClrText
0\->R
\ViewWindow 1,127,0,1,63,0
\Text 25,16,"The prime fact\or beast."
\Text 40,42,"Beta v 1.0"
\Text 46,28,"Harradine - 2004."
\Text 56,16,"(Press EXE to continue.)"\Disp\ClrText
\Lbl 5
\ClrText
"# to prime fact\or"?\->N
(\Int \sqrtN)+1\->T
\If N=0\ Or N=1
\Then "No prime fact\ors."\Disp\GotoZ
\IfEnd
\If N=2
\Then N\Disp\GotoZ
\IfEnd
\If N=3
\Then N\Disp\GotoZ
\IfEnd
\If N=4
\Then N/2\->K
K\DispK\Disp\GotoZ
\IfEnd
N\->X
\While \Frac (X/2)=0
2\DispX/2\->X
\WhileEnd
\For 3\->D \To T \Step 1
\Lbl 1
\If \Frac (X/D)=0
\Then D\DispX/D\->X
\Goto1
\IfEnd
\Next 
\If X=1
\Then \GotoZ
\Else X\Disp\Lbl Z
"That is all folks\!mark"
\Stop

%End