"Saisissez votre message en espacant avec des points"
?→Str 1

Do

"Saisissez votre clef de chiffrement (10)"
?→Str 2

ClrText          
StrLen(Str 2)→A
LpWhile A≠10           

10→Dim List 1                               
1→B

Do
StrLeft(Str 2,1)→Str 4              
StrShift(Str 2,1)→Str 2        
StrSrc(Str 3,Str 4)→C             
C→List 1[B]                          
Isz B
LpWhile B<11                       

Str 3→Str 4              
StrLeft(Str 1,1)→Str 2      
StrShift(Str 1,1)→Str 1     
StrSrc(Str 3,Str 2)→E     
E+List 1[1]→G             
G>27⇒G-27→G
StrRotate(Str 4,G)→Str 4
StrLeft(Str 4,1)→Str 6      

2→F
Do                           
Str 3→Str 4
StrLeft(Str 1,1)→Str 2
StrShift(Str 1,1)→Str 1
StrSrc(Str 3,Str 2)→E
E+List 1[F]→G
G>27⇒G-27→G
StrRotate(Str 4,G)→Str 4
StrLeft(Str 4,1)→Str 5
StrJoin(Str 6,Str 5)→Str 6   
F=10⇒0->F            
F<10⇒Isz F
StrLen(Str 6)→H
LpWhile H>0             
StrLeft(Str 6,21)→Str 7
StrShift(Str 6,21)→Str 6       
StrLeft(Str 6,21)→Str 8
StrShift(Str 6,21)→Str 6

ClrText
"Message encodé! <DEL>"
Locate 1,2,Str 7               
Locate 1,3,Str 8
Locate 1,4,Str 6

Do                      
0→Z                       
Getkey→A
A=44⇒Goto 1
LpWhile Z=1
Lbl 1

0→A~Z          
""→Str 6
""→Str 7
""→Str 8
ClrList 1
ClrText
Stop