%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1427 File Name:FUEGO Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->\theta:\Prog "I":10\->B:5\->L \For 18\->A \To 26 \Step 2 \If C<7:\Then \Plot A,14+C \Plot A+B,Y:\Line:\Plot 68-C,Y \Plot X+B,Y:\Line:\IfEnd \Plot 20+C,12-C:\Plot X+B,Y:\Line \Plot 68-C,12-C:\Plot X+B,Y:\Line C+2\->C:\Next 37\->A:59\->B:20\->C:14\->D:65\->E \Plot A,C:\Plot B,C:\Line \Plot E,D:\Line:\Plot B,8:\Line \Plot A,8:\Line:\Plot 31,D:\Line:\Plot A,C:\Line \Plot 31,D:\Plot E,Y:\Line \Plot A,C:\Plot X,23:\Line \Plot B,Y:\Line:\Plot C,Y:\Line \Plot X,25:\Line:\Plot A,Y:\Line \Plot X,23:\Line \Plot B,Y:\Plot B,25:\Line \Plot 76,Y:\Line:\Plot X,23:\Line \Plot B,Y:\Line:\Plot B,C:\Line 38\->A:28\->B:58\->C \PlotOn A,26:\PlotOn X,27:\PlotOn C,Y \PlotOn X,26:\Plot A,B:\Plot C,Y:\Line \Plot 41,B:\Plot 43,35:\Line:\Plot 46,Y:\Line \Plot X,30:\Plot X,40:\Line \Plot 47,Y:\Plot X,30:\Line \Plot 49,Y:\Plot X,40:\Line \Plot 50,Y:\Plot X,30:\Line \Plot X,35:\Plot 53,Y:\Line:\Plot 55,B:\Line \PlotOn 48,41:\PlotOn X,39 \Text 8,A,"FUEGO \!mark"\Disp\Lbl 0 2+21\Ran#\->A:6+11\Ran#\->B A+15+76\Ran#\->C:B+5+32\Ran#\->D \Cls:\Graph Y=3+3\Ran# \Plot A,B:\Plot X+8,B:\Line \Plot X,B+4:\Plot A,Y:\Line \Plot A-1,Y-1:\Plot X,B+1:\Line \PlotOn A-2,B+2 \Plot A+9,B+1:\Plot X,B+3:\Line \PlotOn A+10,B+2:\PlotOn A+1,Y:\PlotOn A+7,Y \Plot X+9,B+6:\Plot A+4,Y:\Line:\Plot X,B+9:\Line \Plot A,B+5:\Plot A+6,Y:\Line \Plot A+3,B+9:\Plot X,B+4:\Line \Plot X,Y:\Plot X-1,B+7:\Line \PlotOn C+2,D:\PlotOn C+8,D \Plot C+1,D+1:\Plot C+3,Y:\Line \Plot C+7,Y:\Plot C+9,Y:\Line \Plot C,D+2:\Plot C+10,Y:\Line \Plot C,D+3:\Plot C+9,Y:\Line \Plot C,Y:\Plot C,D+6:\Line:\Plot C+3,Y:\Line \Plot X,D+3:\Line:\Plot C+4,Y:\Plot X,D+7:\Line \Plot C+9,Y:\Line:\Plot X,D+3:\Line \Plot C,D+4:\Plot C+3,Y:\Line\Disp\Lbl 1:9\->\theta "ARRETER PARTIE ET":"AFFICHER SCORE" \Prog "K":K=1\=>\Goto3 \ClrText:"CHARGE DE POUDRE":"(DE 1 A 9 KG)" 0\->\theta:\Prog "K":K\->E:E=0\=>\Goto1 A+14+10E\->E "ANGLE CANON":"(DE 0 A 60\Deg>)" 1\->W:7\->\theta:\Prog "K":Z\->F:F>60\=>\Goto1 \Int (F/15:15\Ans\->F "ANGLE DE TIR":"(DE 0 A 90\Deg>)" 1\->W:\Prog "K":Z\->G:G>90\=>\Goto1 \ClrText \If F\<>0:\Then \For A+5\->H \To A+16 \PlotOff H,B+6:\Next \Plot A+4,B+6:\Plot X+14\cos F,Y+11\sin F:\Line X\->I:Y\->J \Else A+15\->I:B+6\->J:\IfEnd 1.3+0.01E\->M \For I\->H \To E \PlotOn H,(J+((H-I)\cos (G-H))/M) H>C\=>HY>D+1\=>Y\Goto2:\Next \Text 5,2," RATE \!mark"\Disp\Dsz L:\Goto0 \Lbl 3:\ClrText:"FIN DE PARTIE" \Locate 4,4,"SCORE=":\Locate 11,4,L:\Stop \Lbl 2:\Plot C-5,D-3:\Plot C+15,D+12:\Line \Plot X,D-3:\Plot C-5,D+12:\Line \Text 9,3,"BRAVO \!mark"\DispL+2\->L:\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 %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