"VERSION 1.4

"BY JEREMY KARUNARATNE 3/19/03,4/7/03,LAST MOD 7/5/03

5üA:10üB:15üC:20üD:25üE:30üF:35üG:40üH:45üI:50üJ:55üK:60üL:65üM:70üN:75üO:80üP:85üQ:90üR:95üS
100üT:105üU:110üV:115üW:120üX:125üY:130üZ

ClrHome
Lbl 2
Menu("CODER OPTIONS","ENCODE",E,"DECODE",F,"OUTPUT",C,"INPUT",G,"GET",3,"CLRLST",89,"PRIPUBKEY",1
Lbl 89
ClrList áCODE
Lbl 3
GetCalc(áCODE)
Goto 2
Lbl 1
Input "PRIVATE KEY: ",K
K+13üK
KÜüK
K/7üK
K-8üK
Kürand
K*randüK
K/3üK
int(KüK
ClrHome
Disp K
Stop
Lbl E
DelVar áCODE
DelVar áCODEA
DelVar T
0üáCODEA(1)
DelVar Á
ClrHome
5üA:10üB:15üC:20üD:25üE:30üF:35üG:40üH:45üI:50üJ:55üK:60üL:65üM:70üN:75üO:80üP:85üQ:90üR:95üS
100üT:105üU:110üV:115üW:120üX:125üY:130üZ
Input "PUBPRI KEY: ",K
ClrHome
DelVar T
Input "BIT: ",I
ClrHome
Kürand
ClrHome
Lbl A
Output(5,8,T
áCODEA(1)+1üáCODEA(1)
Lbl B
getKeyüÁ
If Á=0
Goto B
If Á=105
Goto 2
int(Irand)üK
Á-40üÁ
Á+KüÁ
T+1üT
ÁüáCODE(T)
Goto A
Lbl C
DelVar X
1üO
randInt(1,500üK
randInt(1,500üI
Lbl D
X+1üX
Disp áCODE(X)
If X=dim(áCODE)
Then
Pause 
ClrHome
Goto 2
End
If X=7O
Then
Pause 
ClrHome
O+1üO
End
Goto D
Lbl G
DelVar A
DelVar áCODE
Lbl H
A+1üA
Input B
BüáCODE(A)
Goto H
Lbl F
ClrHome
5üA:10üB:15üC:20üD:25üE:30üF:35üG:40üH:45üI:50üJ:55üK:60üL:65üM:70üN:75üO:80üP:85üQ:90üR:95üS
100üT:105üU:110üV:115üW:120üX:125üY:130üZ

Input "PRIVATE KEY: ",K
If K=0
Goto DD
K+13üK
KÜüK
K/7üK
K-8üK
Kürand
K*randüK
K/3üK
int(KüK
Goto DE
Lbl DD
Input "PRIVATE KEY",K
Lbl DE
ClrHome
Input "BIT: ",I
ClrHome
Kürand
ClrHome
DelVar T
DelVar X
1üY
ClrHome
dim(áCODEüÁ
For(X,1,Á
int(Irand)üK
T+1üT
If Y=9
Then
Pause 
ClrHome
1üX
1üY
End
áCODE(T)-KüU
If U=1:Output(Y,X,"A
If U=2:Output(Y,X,"B
If U=3:Output(Y,X,"C
If U=11:Output(Y,X,"D
If U=12:Output(Y,X,"E
If U=13:Output(Y,X,"F
If U=14:Output(Y,X,"G
If U=15:Output(Y,X,"H
If U=21:Output(Y,X,"I
If U=22:Output(Y,X,"J
If U=23:Output(Y,X,"K
If U=24:Output(Y,X,"L
If U=25:Output(Y,X,"M
If U=31:Output(Y,X,"N
If U=32:Output(Y,X,"O
If U=33:Output(Y,X,"P
If U=34:Output(Y,X,"Q
If U=35:Output(Y,X,"R
If U=41:Output(Y,X,"S
If U=42:Output(Y,X,"T
If U=43:Output(Y,X,"U
If U=44:Output(Y,X,"V
If U=45:Output(Y,X,"W
If U=51:Output(Y,X,"X
If U=52:Output(Y,X,"Y
If U=53:Output(Y,X,"Z
If U=65:Output(Y,X," "

If X=16
Y+1üY
If X=16
0üX
End
Output(Y,X,"."
Pause 
ClrHome
Goto 2