%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1979 File Name:TEXT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Cls \S-Gph2 \DrawOff \S-Gph3 \DrawOff \For 1\->Z \To \Dim \List 1 \S-Gph1 \DrawOn,\xyLine,\List2,\List3,1,\Dot \List 1[Z \Ans\>=50\=>\Goto5 \Ans\>=40\=>\Goto4 \Ans\>=30\=>\Goto3 \Ans\>=20\=>\Goto2 \Ans\>=10\=>\Goto1 \If \Ans=0 \Then {1,2,2,1,0,0\->\List 2 {0,1,3,4,3,1\->\List 3 \IfEnd \If \Ans=1 \Then {0,1,1,2,0\->\List 2 {1,0,4,4,4\->\List 3 \IfEnd \If \Ans=2 \Then {0,2,0,0,2\->\List 2 {0,1,3,4,4\->\List 3 \IfEnd \If \Ans=3 \Then {0,2,1,2,0\->\List 2 {0,1,2,3,4}\->\List 3 \IfEnd \If \Ans=4 \Then {0,0,2,2\->\List 2 {0,2,1,4\->\List 3 \IfEnd \If \Ans=5 \Then {2,0,0,2,0\->\List 2 {0,0,2,3,4\->\List 3 \IfEnd \If \Ans=6 \Then {2,1,0,0,2,2,0\->\List 2 {0,0,1,4,4,2,2\->\List 3 \IfEnd \If \Ans=7 \Then {0,2,2,0,0\->\List 2 {0,0,1,3,4\->\List 3 \IfEnd \If \Ans=8 \Then {0,2,2,0,0,1\->\List 2 {0,0,4,4,0,2\->\List 3 \IfEnd \If \Ans=9 \Then {0,2,2,0,0,1\->\List 2 {4,3,0,0,2,2\->\List 3 \IfEnd \Goto0 \Lbl 1 \If \Ans=10 \Then \S-Gph1 \DrawOff \IfEnd \If \Ans=11 \Then {2,2,1,0,0,1\->\List 2 {4,1,0,1,4,2\->\List 3 \IfEnd \If \Ans=12 \Then {2,0,0,2,1\->\List 2 {1,0,4,3,2\->\List 3 \IfEnd \If \Ans=13 \Then {2,1,0,0,1,2\->\List 2 {0,0,1,3,4,4\->\List 3 \IfEnd \If \Ans=14 \Then {0,2,2,0,0\->\List 2 {0,1,3,4,0\->\List 3 \IfEnd \If \Ans=15 \Then {2,0,0,1,0,2\->\List 2 {0,0,2,2,4,4\->\List 3 \IfEnd \If \Ans=16 \Then {2,0,0,1\->\List 2 {0,0,4,2\->\List 3 \IfEnd \If \Ans=17 \Then {2,1,0,0,1,2,2\->\List 2 {0,0,1,3,4,4,2\->\List 3 \IfEnd \If \Ans=18 \Then {0,0,0,2,2,2\->\List 2 {0,4,2,2,0,4\->\List 3 \IfEnd \If \Ans=19 \Then {0,2,1,2,0\->\List 2 {0,0,2,4,4\->\List 3 \IfEnd \Goto0 \Lbl 2 \If \Ans=20 \Then {2,2,0,0\->\List 2 {0,4,4,3\->\List 3 \IfEnd \If \Ans=21 \Then {0,0,1,2,2,2,1,2,2\->\List 2 {0,4,2,1,0,1,2,3,4\->\List 3 \IfEnd \If \Ans=22 \Then {0,0,2\->\List 2 {0,4,4\->\List 3 \IfEnd \If \Ans=23 \Then {0,0,2,2\->\List 2 {0,4,0,4\->\List 3 \IfEnd \If \Ans=24 \Then {0,0,2,2\->\List 2 {4,0,1,4\->\List 3 \IfEnd \If \Ans=25 \Then {0,0,2,2,0\->\List 2 {4,0,0,4,4\->\List 3 \IfEnd \If \Ans=26 \Then {0,0,2,0\->\List 2 {4,0,1,2\->\List 3 \IfEnd \If \Ans=27 \Then {1,2,2,0,0,1\->\List 2 {4,4,0,0,3,3\->\List 3 \IfEnd \If \Ans=28 \Then {0,0,2,1,2,2\->\List 2 {4,0,1,2,3,4\->\List 3 \IfEnd \If \Ans=29 \Then {2,1,0,2,0\->\List 2 {0,0,1,3,4\->\List 3 \IfEnd \Goto0 \Lbl 3 \If \Ans=30 \Then {0,2,1,1\->\List 2 {0,0,0,4\->\List 3 \IfEnd \If \Ans=31 \Then {0,0,2,2\->\List 2 {0,4,4,0\->\List 3 \IfEnd \If \Ans=32 \Then {0,1,2,2\->\List 2 {0,4,1,0\->\List 3 \IfEnd \If \Ans=33 \Then {0,0,1,2,2\->\List 2 {0,4,3,4,0\->\List 3 \IfEnd \If \Ans=34 \Then {0,1,0,1,2,2,2,1,2,2\->\List 2 {0,2,4,2,1,0,1,2,3,4\->\List 3 \IfEnd \If \Ans=35 \Then {0,1,1,2\->\List 2 {0,3,4,0\->\List 3 \IfEnd \If \Ans=36 \Then {0,2,2,1,0,2\->\List 2 {0,0,1,2,4,4\->\List 3 \IfEnd \If \Ans=37 \Then {0,1,1,0\->\List 2 {3,3,4,4\->\List 3 \IfEnd \If \Ans=38 \Then {1,1\->\List 2 {3,4\->\List 3 \IfEnd \If \Ans=39 \Then \S-Gph1 \DrawOn,\Scatter {1,1\->\List 2 {1,4\->\List 3 \IfEnd \Goto0 \Lbl 4 \If \Ans=40 \Then {0,2\->\List 2 {2,2\->\List 3 \IfEnd \If \Ans=41 \Then \IfEnd \If \Ans=42 \Then \IfEnd \If \Ans=43 \Then \IfEnd \If \Ans=44 \Then \IfEnd \If \Ans=45 \Then \IfEnd \If \Ans=46 \Then \IfEnd \If \Ans=47 \Then \IfEnd \If \Ans=48 \Then \IfEnd \If \Ans=49 \Then \IfEnd \Goto0 \Lbl 5 \Lbl 0 \List 2+X\->\List 2 \List 3+Y\->\List 3 \DrawStat X+4\->X \Next \Plot 0,0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:216 File Name:TEXT.VAR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Ans<0\->S \Abs \Ans\->W \Int \log W\->V V<0\=>0\->V \If \Frac W \Then 0\->T \Do \Isz T 10\Ans \LpWhile \Frac \Ans V+T+S+2\->\Dim \List 1 \Else V+S+1\->\Dim \List 1 \IfEnd S\=>40\->\List 1[1 10^V\->U \For 1\->Z \To V+1 \Int (W/U \Ans\->\List 1[Z+S W-\AnsU\->W .1U\->U \Next \If W \Then 37\->\List 1[Z+1+S \For 1\->U \To T 10W\->W \Int W \Ans\->\List 1[V+U+S+2 W-\Ans\->W \Next \IfEnd \Prog "TEXT" %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:260 File Name:TST TXT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ViewWindow 1,127,0,63,1,0 1\->X 1\->Y {0,1,2,3,4,5,6,7,8,9\->\List 1 \Prog "TEXT" 1\->X 7\->Y {11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36\->\List 1 \Prog "TEXT" \Lbl 1 {12,19,15,24,32,15,24,31,15,10,29,31,28,10,30,15,34,30,10,2,5\->\List 1 22\->X 40\->Y \Prog "TEXT" \F-Line 20,46,107,46 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:131 File Name:TST TXTV Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText "ENTRE UN NOMBRE"?\->A {22,15,10,24,25,23,12,28,15,10,15,29,30,39\->\List 1 20\->X 20\->Y \ViewWindow 1,127,0,63,1,0 \Prog "TEXT" A 10\->X 27\->Y \Prog "TEXT.VAR" %End