PgrmTCHATCH2.4
Édité par LOCLAMOR
Pour TI 83+ et ultérieures
éspace mémoire : environ 1830
ClrHome
{8,16}→dim([J]
Fill(0,[J])
Output(2,4,”TCHATCH2.4”
Output(5,3,”PRESS ENTER”
Output(8,1,”EDIT BY LOCLAMOR”
Repeat K=105
GetKey→K
Output(5,3,”PRESS ENTER”
69!:69!:69!:69!
Output(5,3,” ”
69!:69!:69!:69!
End
ClrHome
1→B
1→A
1→C
1→L
Lbl4
Fill(0,[J])
Lbl 0
0→K
If B<1
Then
16→B
A-1→A
End
If A<1:1→A
Output(8,13,”QUIT”
Output(8,1,”EN”
Output(A,B,”▫ “
Repeat K≠0
GetKey→K
End
If K=11
Then
0→C
Output(8,1,”PR.ENT.”
Pause
Goto 3
End
Lbl 1
If A=1 and B=1:ClrHome
If K=15 or L=15
Then
ClrHome
Stop
End
If K≠11 or K≠15 or K≠13:K→[J](A,B)
If K=32:Output(A,B,”,”
If K=33:Output(A,B,”’”
If K=41:Output(A,B,”A”
If K=42:Output(A,B,”B”
If K=43:Output(A,B,”C”
If K=51:Output(A,B,”D”
If K=52:Output(A,B,”E”
If K=53:Output(A,B,”F”
If K=54:Output(A,B,”G”
If K=55:Output(A,B,”H”
If K=61:Output(A,B,”I”
If K=62:Output(A,B,”J”
If K=63:Output(A,B,”K”
If K=64:Output(A,B,”L”
If K=65:Output(A,B,”M”
If K=71:Output(A,B,”N”
If K=72:Output(A,B,”O”
If K=73:Output(A,B,”P”
If K=74:Output(A,B,”Q”
If K=75:Output(A,B,”R”
If K=81:Output(A,B,”S”
If K=82:Output(A,B,”T”
If K=83:Output(A,B,”U”
If K=84:Output(A,B,”V”
If K=85:Output(A,B,”W”
If K=91:Output(A,B,”X”
If K=92:Output(A,B,”Y”
If K=93:Output(A,B,”Z”
If K=94:Output(A,B,”!”
If K=95:Output(A,B,”:”
If K=102:Output(A,B,” ”
If K=103:Output(A,B,”.”
If K=104:Output(A,B,”?”
If K=24:B-2→B
If K=102:Output(A,B,” “
If K=45
Then
ClrHome
1→A
0→B
End
If K=105
Then
0→[J](A,B)
Pause
1→A
1→B
Output(1,1,”
“
(en gros efface tt l'écran sauf la ligne du bas : 112 espaces)
Goto 4
End
B+1→B
If B>16
Then
1→B
A+1→A
End
If A=8 and B=1:1→A
Lbl 3
If C=1:Goto 0
Output(8,1,”RE “
0→K
0→D
Repeat D≠0 or K≠0 or J=15
GetCalc([J])
[J](1,1) →D
GetCalc(K)
GetKey→J
End
ClrHome
If K=11
Then
1→C
1→A
1→B
Goto 0
End
If K=15 or J=15
Then
ClrHome
Stop
End
1→A
1→B
Repeat K=0
[J](A,B) →K
If K=32:Output(A,B,”,”
If K=33:OutputA,B,”’”
If K=41:Output(A,B,”A”
If K=42:Output(A,B,”B”
If K=43:Output(A,B,”C”
If K=51:Output(A,B,”D”
If K=52:Output(A,B,”E”
If K=53:Output(A,B,”F”
If K=54:Output(A,B,”G”
If K=55:Output(A,B,”H”
If K=61:Output(A,B,”I”
If K=62:Output(A,B,”J”
If K=63:Output(A,B,”K”
If K=64:Output(A,B,”L”
If K=65:Output(A,B,”M”
If K=71:Output(A,B,”N”
If K=72:Output(A,B,”O”
If K=73:Output(A,B,”P”
If K=74:Output(A,B,”Q”
If K=75:Output(A,B,”R”
If K=81:Output(A,B,”S”
If K=82:Output(A,B,”T”
If K=83:Output(A,B,”U”
If K=84:Output(A,B,”V”
If K=85:Output(A,B,”W”
If K=91:Output(A,B,”X”
If K=92:Output(A,B,”Y”
If K=93:Output(A,B,”Z”
If K=94:Output(A,B,”!”
If K=95:Output(A,B,”:”
If K=102:Output(A,B,” ”
If K=103:Output(A,B,”.”
If K=104:Output(A,B,”?”
0→[J](A,B)
B+1→B
If B>16
Then
1→B
A+1→A
End
End
Goto 3
[right]
LABEL GOOD PRGM aposed by The Best Program Corporation[/right]