:.GRILLE
:
:DiagnosticOff
:"appvGRILSCO"->Str1
:!If GetCalc(Str1)->theta
:GetCalc(Str1,16)->theta
:Return!If theta
:0->{theta}^^r
:0->{theta+2}^^r
:0->{theta+4}^^r
:0->{theta+6}^^r
:100->{theta+10}^^r
:0->{theta+12}^^r
:0->{theta+14}^^r
:End
:
:0->E->F
:0->I->J
:0->Z
:
:Data(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)->GDB1
:
:Goto AAA
:Lbl INI
:For(A,1,100
:0->{GDB1+(A-1)}
:End
:0->E->F->I->J->Z
:Return
:
:Lbl AAA
:ClrDraw
:ClrHome
:[0050205000000000]->Pic1
:[F8888888F8000000]->Pic2
:[F8D8A8D8F8000000]->Pic3
:[FEFEEED6EEFEFE00]->Pic5
:
:.SIGN
:ClrDrawClrHome
:Output(1,0,"B"
:Pause 100
:Output(2,0,"A"
:Output(3,1,"S"
:Pause 100
:Output(3,0,"P"
:Output(4,2,"A"
:Pause 100
:Output(4,0,"T"
:Output(5,3,"L"
:Pause 100
:Output(5,0,"I"
:Output(6,4,"A"
:Pause 100
:Output(6,0,"S"
:Output(7,5,"U"
:Pause 100
:Output(7,0,"T"
:Output(8,6,"N"
:Pause 100
:Output(8,0,"E"
:Text(5,56,"-> Baptystes"
:Pause 1000
:ClrHome
:
:Lbl MEN
:ClrHome
:ClrDraw
:Text(24,10,"MENU"
:Text(20,19,"JOUER"
:Text(20,27,"OPTION"
:Text(20,35,"QUITTE"
:Text(48,19,"Score"
:Text(80,57,"V 1.0"
:Text(74,19,{theta}^^r>Dec
:Text(51,35,28>Char
:Text(60,35,{theta+6}^^r>Dec
:Text(48,27,"Nb de parties"
:StoreGDB
:Line(17,14,17,46
:Line(9,14,9,46
:Line(45,14,45,46
:Line(69,14,69,26
:Line(90,14,90,46
:
:For(A,1,4
:Line(7,10+(A*8),92,10+(A*8)
:End
:Pt-On(10,19,Pic5
:Pxl-On(71,20
:DispGraph
:1->A
:
:0->K
:getKey->K
:4999->B
:Repeat (getKey(9))
:getKey->K
:B++
:If (B=5000)
:sub(PTS,1
:ElseIf (B=10000)
:sub(PTS,2
:ElseIf (B=15000)
:sub(PTS,3
:0->B
:End
:
:If (K=1) or (K=4)
:Pt-Change(10,19+((A-1)*8),Pic5
:B+10->B
:If (K=1)
:A++
:ElseIf (K=4)
:A--
:End
:If (A=4)
:1->A
:ElseIf (A=0)
:3->A
:End
:Pt-Change(10,19+((A-1)*8),Pic5
:DispGraph
:End
:End
:If (A=1)
:Goto GO
:ElseIf (A=2)
:Goto OPT
:ElseIf (A=3)
:Goto FIN
:End
:
:Lbl OPT
:getKey->K
:ClrDrawClrHome
:Text(20,3,"OPTIONS"
:Text(10,20,"EFFACER STATISTIQUES"
:Text(10,30,"RETOUR"
:Text(3,20,"*"
:20->B
:getKey->K
:0->K
:Repeat (K=9)
:getKey->K
:If (K=1) or (K=4)
:Text(3,B," "
:B+(((K=1) and (B<30))*10)-(((K=4) and (B>20))*10)->B
:Text(3,B,"*"
:End
:End
:If (B=30)
:Goto MEN
:ElseIf (B=20)
:ClrHome
:Output(1,1,"CONFIRMER ?"
:Output(4,3,"1.NON"
:Output(4,4,"2.OUI"
:Output(3,6,"APPUIE SUR"
:Output(4,7,"1 OU 2"
:getKey->K
:0->K
:Repeat (K)
:getKey->K
:End
:If (K=26)
:0->{theta}^^r
:0->{theta+2}^^r
:0->{theta+4}^^r
:0->{theta+6}^^r
:100->{theta+10}^^r
:0->{theta+12}^^r
:0->{theta+14}^^r
:End
:Goto MEN
:End
:
:Lbl GO
:
:sub(INI
:ClrHome
:ClrDraw
:Text(10,2,"Choisi le coin de départ"
:Text(6,10,"En appuyant sur 1,3,7 ou 9."
:Text(36,24,"7"
:Text(56,24,"9"
:Text(36,44,"1"
:Text(56,44,"3"
:StoreGDB
:Line(32,22,62,22
:Line(32,52,62,52
:Line(32,22,32,52
:Line(62,22,62,52
:Line(32,32,62,32
:Line(32,42,62,42
:Line(42,22,42,52
:Line(52,22,52,52
:DispGraph
:ClrDraw
:7->A
:sub(KEY
:If (K=36)
:0->E
:0->F
:ElseIf (K=20)
:9->E
:0->F
:ElseIf (K=34)
:0->E
:9->F
:ElseIf (K=18)
:9->E
:9->F
:End
:Z++
:1->L
:Data(0,0,0,0)->GDB2
:E->{GDB2+2}
:F->{GDB2+3}
:A->{GDB1+(F*10)+E}
:ClrDrawClrHome
:Text(65,30,"ANNUL :"
:Text(65,38,"QUITTER"
:StoreGDB
:sub(GRI
:sub(AFB
:sub(AFF
:
:DispGraph
:Text(70,20,Z>Dec
:While 1
:sub(AFB
:sub(A
:If (A=4)
:sub(EFF
:ElseIf (A=5)
:If (Z>=3)
:{theta+6}^^r++
:End
:{theta}^^r->A
:{theta+2}^^r->B
:{theta+4}^^r->C
:If (Z>=C) and (Z<B)
:Z->C
:ElseIf (Z>=B) and (Z<A)
:B->C
:Z->B
:ElseIf (Z>=A)
:B->C
:A->B
:Z->A
:End
:A->{theta}^^r
:B->{theta+2}^^r
:C->{theta+4}^^r
:
:Goto MEN
:End
:sub(AFF
:sub(AFB
:
:
:DispGraph
:Text(70,20,Z>Dec
:End
:
:Lbl PTS
:If ([r1]=1)
:Text(74,19," "
:Text(74,19,{theta}^^r>Dec
:StoreGDB
:Pxl-Off(71,24
:Pxl-On(71,20
:ElseIf ([r1]=2)
:Text(74,19," "
:Text(74,19,{theta+2}^^r>Dec
:StoreGDB
:Pxl-On(71,22
:Pxl-Off(71,20
:ElseIf ([r1]=3)
:Text(74,19," "
:Text(74,19,{theta+4}^^r>Dec
:StoreGDB
:Pxl-Off(71,22
:Pxl-On(71,24
:End
:DispGraph
:Return
:
:
:Lbl A
:0->A
:Repeat (A=1) or (A=4) or (A=5)
:2->A
:sub(KEY
:0->A
:E->I
:F->J
:If (K=36) and (E>=2) and (F>=2) and ({GDB1+((F-2)*10)+(E-2)}=0)
:E-2->E
:F-2->F
:1->A
:ElseIf (K=28) and (F>=3) and ({GDB1+((F-3)*10)+E}=0)
:F-3->F
:1->A
:ElseIf (K=20) and (E<=7) and (F>=2) and ({GDB1+((F-2)*10)+(E+2)}=0)
:E+2->E
:F-2->F
:1->A
:ElseIf (K=35) and (E>=3) and ({GDB1+(F*10)+(E-3)}=0)
:E-3->E
:1->A
:ElseIf (K=19) and (E<=6) and ({GDB1+(F*10)+(E+3)}=0)
:E+3->E
:1->A
:ElseIf (K=34) and (E>=2) and (F<=7) and ({GDB1+((F+2)*10)+(E-2)}=0)
:E-2->E
:F+2->F
:1->A
:ElseIf (K=26) and (F<=6) and ({GDB1+((F+3)*10)+E}=0)
:F+3->F
:1->A
:ElseIf (K=18) and (E<=7) and (F<=7) and ({GDB1+((F+2)*10)+(E+2)}=0)
:E+2->E
:F+2->F
:1->A
:ElseIf (K=27) and (L=0)
:1->L
:4->A
:ElseIf (K=15)
:5->A
:End
:End
:
:1->{GDB1+(F*10)+E}
:If (A=1)
:sub(REN
:Z++
:0->L
:End
:Return
:
:Lbl REN
:I->{GDB2+0}
:J->{GDB2+1}
:E->{GDB2+2}
:F->{GDB2+3}
:Return
:
:Lbl KEY
:getKey->K
:0->K
:Repeat (K=18) or (K=20) or (K=34) or (K=36) or (((K=28) or (K=35) or (K=19) or (K=26) or (K=27)) and (A=2)) or ((K=15) and (A!=7))
:getKey->K
:End
:
:Return
:
:
:
:Lbl AFF
:Pt-Change(2+(E*6),2+(F*6),Pic1
:Return
:Lbl AFB
:Pt-Change(2+(E*6),2+(F*6),Pic2
:Return
:
:Lbl EFF
:Z--
:sub(AFF
:
:0->{GDB1+(F*10)+E}
:{GDB2+0}->E
:{GDB2+1}->F
:sub(AFF
:Return
:
:Lbl GRI
:1->X
:For(A,1,11
:For(B,1,60
:Pxl-On(B,X
:End
:X+6->X
:End
:1->X
:For(A,1,11
:For(B,1,61
:Pxl-On(X,B
:End
:X+6->X
:End
:DispGraph
:Return
:
:Lbl FIN
:ClrDraw
:ClrHome
:Pause 200