%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:87 File Name:P100101 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A 1\->B 1\->C \While A<5 \If B=C \Then 10C\->C \IfEnd B\x^2\->D C\Frac (D/C)\->D \If B=D \Then A+1\->A B\Disp\IfEnd B+1\->B \WhileEnd "Done" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:89 File Name:P1001011 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A 1\->B 1\->C \While B<1\EE5 \If B=C \Then 10C\->C \IfEnd B\x^2\->D C\Frac (D/C)\->D \If B=D \Then A+1\->A B\Disp\IfEnd B+1\->B \WhileEnd "Done" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:111 File Name:P1001012 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Do "Digit"?\->C \LpWhile C\<>5\ And C\<>6 1\->D \Do 10D\->D 0\->E \Do DE+C\->A E+1\->E \Prog "P100101A" \LpWhile 10D\Frac (B/(10D))\<>A A\DispA\->C \LpWhile D<1\EE9 "Done" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:77 File Name:P100101A Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 2\EE10\Int (A/1\EE5)\Frac (A/1\EE5)\->B 1\EE10\Frac (B/1\EE10)\->B 1\EE10(\Frac (A/1\EE5))\x^2+B\->B 1\EE10\Frac (B/1\EE10)\->B %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:124 File Name:P1001013 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Do "Digit"?\->A \LpWhile A\<>5\ And A\<>6 A\->B 10\->C \Do B\x^2\->D \Int (D/C)\->D 10\Frac (D/10)\->D \If A=6 \Then 10\Frac ((10-D)/10)\->D \IfEnd CD+B\->B B\Disp10C\->C \LpWhile C<1\EE10 "Done" %End