&gPROGRAMsystemPFACT  0R 1,127,0,1,63,0 25,16,"The prime fact beast." 40,42,"Beta v 1.0" 46,28,"Harradine 2004." 56,16,"(Press EXE to continue.)"  5  "# to prime fact"?N (N)1T N=0N=1 "No prime facts." Z  N=2 N Z  N=3 N Z  N=4 N2K K K Z  NX (X2)=0 2 X2X 3DT1 1 (XD)=0 D XDX 1   X=1 Z X Z "That is all folks!"  PROGRAMsystemPFACTGAM  0R 1,127,0,1,63,0 25,16,"The prime fact game." 40,42,"Beta v 1.0" 46,28,"Harradine 2004." 56,16,"(Press EXE to continue.)"  "All data in File 6" "will be deleted." "1: Continue." "2: now." ?D D=2     "WHICH LEVEL" "1: COMPETENT" "2: ADVANCED"?L 1K5 L=1 ((1005))N  L=2 (95051)N  0P 0Q 20FQ1 20FQ2 5  "Prime fact":N "How many individual" "prime facts"?H 1SH  "Prime fact " 14,1,S ?Q2[S]  (N)1T NX (X2)=0 P1P 2Q1[P] X2X PQ 3DT1 1 (XD)=0 Q1Q DQ1[Q] XDX 1   Q1Q X=1 Z XQ1[Q] Z LQ1E LQ2F MQ1G MQ2J E=FG=J "Crect" " " "Very well done." R1R "Ooops, try the next one."    "You got out of 5" 9,1,R "crect."  "1: Yes" "2: No" "Would you like to" "play again"?J J=1 A  J=2 "I'll take that as a" "no."