TI-92 PlusTI-89TI-89 TitaniumTI-Voyage 200

Programme de codage et de décodage selon un language que j'ai inventé.


()
Prgm
1»w
ClrDraw
ClrIO
Output 0,8,"Traducteur->codix"
Output 10,8,"Traducteur->normal"
Output 20,8,"Table"
0»x
0»k
While k13
Output x,1,"-"
getKey()»k
If k>0
Output x,1," "
If k=338 and x0
x-10»x
If k=344 and x20
x+10»x
EndWhile
ClrIO
If x=20
Goto tab
If x=10
Goto tra
InputStr b
0»deb
Lbl abc
ª1»o
For y,0+deb,ceiling(dim(b)/17)+deb,w
For x,0,17
o+1»o
If o>dim(b)
Goto end
mid(b,o+1,1)»a
If w=2 Then
PxlText a,(y+1)*10,x*8
If y>0
PxlHorz y*10-2
PxlHorz (y+1)*10-2
EndIf
If a="a" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
EndIf
If a="b" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="c" Then
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
EndIf
If a="d" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="e" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="f" Then
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="g" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
EndIf
If a="h" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="i" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
EndIf
If a="j" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="k" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="l" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,1+y*10,5+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
EndIf
If a="m" Then
PxlLine 1+y*10,1+8x,1+y*10,5+8x
EndIf
If a="n" Then
PxlLine 5+y*10,1+8x,5+y*10,5+8x
EndIf
If a="o" Then
PxlLine 1+y*10,1+8x,1+y*10,5+8x
PxlLine 5+y*10,1+8x,5+y*10,5+8x
EndIf
If a="p" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
EndIf
If a="q" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
If a="r" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
If a="s" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
EndIf
If a="t" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="u" Then
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
EndIf
If a="v" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
EndIf
If a="w" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
EndIf
If a="x" Then
PxlLine 1+y*10,5+8x,5+y*10,1+8x
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,1+8x,5+y*10,1+8x
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,5+8x,5+y*10,5+8x
EndIf
If a="y" Then
PxlLine 1+y*10,3+8x,5+y*10,3+8x
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
If a="z" Then
PxlLine 1+y*10,2+8x,5+y*10,2+8x
PxlLine 1+y*10,4+8x,5+y*10,4+8x
PxlLine 1+y*10,1+8x,5+y*10,5+8x
PxlLine 1+y*10,5+8x,5+y*10,1+8x
EndIf
EndFor
EndFor
Lbl end
If deb=3
Goto trab
Stop
Lbl tab
Disp "1"
"abcdefghijklmnopqrstuvwxyz"»b
2»w
0»deb
Goto abc
Lbl tra
"abcdefghijklmnopqrstuvwxyz"»b
1»w
3»deb
Goto abc
Lbl trab
4»x
0»y
0»k
" "»a
Lbl bou
While k13 and k257
If k=264 Then
ClrDraw
DispHome
Stop
EndIf
getKey()»k
If k>0 Then
PxlLine x*10-2,y*8,x*10+7,y*8,0
PxlLine x*10-2,y*8,x*10-2,y*8+7,0
PxlLine x*10+7,y*8+7,x*10+7,y*8,0
PxlLine x*10-2,y*8+7,x*10+7,y*8+7,0
EndIf
If k=337
y-1»y
If k=340
y+1»y
If k=338
x-1»x
If k=344
x+1»x
PxlLine x*10-2,y*8,x*10+7,y*8
PxlLine x*10-2,y*8,x*10-2,y*8+7
PxlLine x*10+7,y*8+7,x*10+7,y*8
PxlLine x*10-2,y*8+7,x*10+7,y*8+7
EndWhile
PxlText " ",0,0

If k=257 Then
left(a,dim(a)-1)»a
PxlText a,0,0
0»k
Goto bou
EndIf

If x=3
a&mid(b,y+1,1)»a
If x=4 Then
y+19»e
a&mid(b,e,1)»a
EndIf
PxlText a,0,0
0»k
Goto bou
EndPrgm