%Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:A Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:B Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:C Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:D Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:E Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:F Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:G Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:H Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:I Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:J Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:K Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:L Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:M Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:N Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:O Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:P Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Q Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:R Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:S Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:T Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:U Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:V Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:W Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:X Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Y Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Z Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\r Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\theta Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:106 File Name:FUNCPLOT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Do \Do \PlotChg X,Y \Getkey\->J \PlotChg X,Y \LpWhile J=0 J=28\=>Y-1\->Y J=37\=>Y+1\->Y J=38\=>X-1\->X J=27\=>X+1\->X \If J=47 \Then 1\->S \IfEnd \LpWhile \Getkey\<>31\ And \Getkey\<>47 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1729 File Name:SPRITEMK Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Deg \CoordOff \AxesOff \ViewWindow 1,127,0,63,1,0 \ClrText \Locate 5,4,"SPRITE MAKER"\Disp\ClrText \Locate 5,4,"F1:NOUVEAU" \Locate 5,5,"F2:OUVRIR" \Do \LpWhile \Getkey\<>79\ And \Getkey\<>69 \ClrText \If \Getkey=79 \Then \Locate 3,1,"Dimensions" \Locate 10,2,"du sprite:" \Locate 4,4,"*" \For 1\->W \To 6 \Step 5 0\->A \Do \Locate W,4,"\@5F " \If A=0 \Then \For 1\->V \To 80 \Next \Locate W,4," " \Else \Locate W,4,A \IfEnd \Getkey=28\=>A+1\->A \Getkey=37\=>A-1\->A \If \Getkey=28\ Or \Getkey=37 \Then \For 1\->V \To 200 \Next \IfEnd A=51\=>0\->A A=-1\=>50\->A \LpWhile \Getkey\<>31\ Or A=0 W=1\=>A\->B \Next \ClrText \Cls AB\->D \Vertical 60 (60-B)/2\->E 60-E+1\->F (60-A)/2\->G 60-G+1\->H \F-Line E,G,F,G \F-Line F,G,F,H \F-Line F,H,E,H \F-Line E,H,E,G \Text 1,78,"Outils:" \Text 9,76,"crayon" \Text 15,76,"point" \Text 21,76,"ligne" \Text 27,76,"cercle" \Text 33,76,"gomme" \Text 39,76,"rectangle" \Text 52,66,"F1:enregistrer" \Text 58,66,"F2:generer" 9\->\theta \Else "\@F9\femto partir de quelle memoire"?\->K \RclPict K \ClrText \IfEnd E+1\->X G+1\->Y \Text \theta,68,"\->" \Do \Do 0\->J \Do \Getkey\->J \LpWhile J=0 \Text \theta,66," " J=28\ And \theta>9\=>\theta-6\->\theta J=37\ And \theta<39\=>\theta+6\->\theta \If J=79 \Then \ClrText "Sur quelle memoire"?\->K \StoPict K \IfEnd J=69\=>\GotoG \Text \theta,68,"\->" \LpWhile J\<>31 0\->S \If \theta=9 \Then \Prog "FUNCPLOT" \PlotOn X,Y \Do \Do \Getkey\->J \LpWhile J=0 J=28\=>Y-1\->Y J=37\=>Y+1\->Y J=38\=>X-1\->X J=27\=>X+1\->X \PlotOn X,Y \LpWhile J\<>31\ And J\<>47 \IfEnd \If \theta=15 \Then \Prog "FUNCPLOT" S=0\=>\PlotOn X,Y \IfEnd \If \theta=21 \Then \Prog "FUNCPLOT" \If S=0 \Then X\->M Y\->N \Prog "FUNCPLOT" S=0\=>\F-Line M,N,X,Y \IfEnd \IfEnd \If \theta=27 \Then \Prog "FUNCPLOT" \If S=0 \Then X\->M Y\->N \Prog "FUNCPLOT" \sqrt((N-Y)\x^2+(M-X)\x^2\->R S=0\=>\Circle M,N,R \IfEnd \IfEnd \If \theta=33 \Then \Prog "FUNCPLOT" S=0\=>\Text Y-2,X-1," " \IfEnd \If \theta=39 \Then \Prog "FUNCPLOT" \If S=0 \Then X\->M Y\->N \Prog "FUNCPLOT" \If S=0 \Then \F-Line M,N,M,Y \F-Line M,N,X,N \F-Line X,N,X,Y \F-Line X,Y,M,Y \IfEnd \IfEnd \IfEnd \LpWhile 1 \Lbl G 1\->L \Do \ClrText "LANGAGE:" L=2\=>"C\slashLua..." L=1\=>"Basic" \Do \Getkey \LpWhile \Ans\<>37\ And \Ans\<>28\ And \Getkey\<>31 \If \Getkey\<>31 \Then \If L=1 \Then 2\->L \Else 1\->L \IfEnd \For 1\->W \To 100 \Next \IfEnd \LpWhile \Getkey\<>31 \ClrText \If L=1 \Then \If D<255 \Then D\->\Dim \List 1 D\->\Dim \List 2 \Else 255\->\Dim \List 1 255\->\Dim \List 2 \IfEnd \Else B\->\Dim \List 1 \IfEnd 1\->T 0\->S \Locate 1,3,"\@F9\Oct>" \For \Int (G+1)\->W \To \Int (H-1) 0\->Q \For \Int E+1\->V \To \Int F-1 \Isz S \Locate 1,1,"GENERATION EN COURS" \Int (S/D\ab/c21)\->P P>0\ And P<22\=>\Locate P,3,"\@F9\Oct>" \If L=1 \Then \PxlTest W,V \If \Ans=1 \Then \Int (V-E+1)\->\List 1[T] \Int (W-G)\->\List 2[T] \Isz T \IfEnd \IfEnd \If L=2 \Then \PxlTest W,V Q+\Ans*2^(\Int F-\Int V-1)\->Q \IfEnd \Next Q\->\List 1[T] \Isz T \Next \ClrText \List 1\DispL=1\=>\List 2\Disp %End