%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:940 File Name:SPEEDKEY Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 0:0\->\theta:\Prog "I" "NOMBRE CARACTERES":"(DE 10 A 99)?" 7\->\theta:1\->W:\Prog "K":Z\->A~B B\<=9\=>\Goto0 "VITESSE (DE 1 A 9)?":\Prog "K" K\->C:C\<=0\=>\Goto0:30(10-C\->C "DIFFICULTE (DE 1 A 4)?" \Prog "K":K\->D:D\<=0\ Or D>4\=>\Goto0 \Lbl 1: 31+\Int 46\Ran#\->E 1+\Int 19\Ran#\->F:1+\Int 7\Ran#\->G \ClrText:E=34\ Or E=37\ Or E=38\ Or E=47\ Or E=48\ Or E=58\ Or E=68\ Or E=40\ Or E=50\ Or E=60\ Or E=70\ Or E=76\=>\Goto1 \If D=1:\Then 9\->F:4\->G:\IfEnd D=2\=>9\->F:D=3\=>4\->G E=31\=>\Locate F,G,"EXE":E=44\=>\Locate F,G,"DEL" E=32\=>\Locate F,G,"-":E=33\=>\Locate F,G,"" E=35\=>\Locate F,G,"":E=36\=>\Locate F,G,"cos" E=39\=>\Locate F,G,"F5":E=41\=>\Locate F,G,"" E=42\=>\Locate F,G,"+":E=43\=>\Locate F,G,"X" E=45\=>\Locate F,G,")":E=46\=>\Locate F,G,"sin" E=51\=>\Locate F,G,"\EE":E=52\=>\Locate F,G,"3" E=53\=>\Locate F,G,"6":E=54\=>\Locate F,G,"9" E=55\=>\Locate F,G,"(":E=56\=>\Locate F,G,"ln" E=57\=>\Locate F,G,"^":E=59\=>\Locate F,G,"F3" E=61\=>\Locate F,G,".":E=62\=>\Locate F,G,"2" E=63\=>\Locate F,G,"5":E=64\=>\Locate F,G,"8" E=65\=>\Locate F,G,"F\->D":E=66\=>\Locate F,G,"log" E=67\=>\Locate F,G,"\x^2":E=71\=>\Locate F,G,"0" E=72\=>\Locate F,G,"1":E=73\=>\Locate F,G,"4" E=74\=>\Locate F,G,"7":E=69\=>\Locate F,G,"F2" E=49\=>\Locate F,G,"F4" \For 0\->J \To C:\Getkey\->K:K=E\=>\Break:\Next K=E\=>\Isz I:\Dsz B:\Goto1 \ClrText:"SCORE=":\Locate 7,1,I \Locate 9,1,"\slash":\Locate 10,1,A \Locate 5,4,\Int ((D\10^x4-AC)(I/A) \Locate 5,6,"POINTS"\Disp\Goto0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:265 File Name:K Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->V:0\->Z \Lbl 0:\theta=6\=>\GotoK \If \theta=9 \Then \Locate 4,7,"0\-> NON, 1\-> OUI" \IfEnd \Do:\Getkey\->K \theta=7\=>K=31\=>\Return \LpWhileK<52\ Or K>74 \Lbl K K=71\=>0\->K:K=72\=>1\->K \theta\>=8\=>\Return K=52\=>3\->K:K=53\=>6\->K K=54\=>9\->K:K=63\=>5\->K K=64\=>8\->K:K=62\=>2\->K K=73\=>4\->K:K=74\=>7\->K K\<=9\=>\theta<7\=>\Return:K\->Z \If W=0\ And \theta=7 \Then Z+V\->Z:\Return \IfEnd \If \theta=7 \Then K\10^xW:\Ans+V\->V \Dsz W:\IfEnd \For 0\->K \To 9:\Next \Goto0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:63 File Name:I Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Deg \ViewWindow 0,126,1,1,63,0 \AxesOff:\CoordOff \ClrText:\Norm \theta\<=1\=>0\->A~V \theta=1\=>\Goto1 0\->\theta:\Return \Lbl 1 \AxesOn:\CoordOn %End