dCODE n 1100L x"ENTER SECRET MESSAGE" :2200 S=0 L=(K$) 1200 C(26) J(L) M(L) N=1 26 C(N)=N+64@ N N=25 2 -1 1300 T=C(N+1) C(N+1)=C(R) C(R)=T N "P=1 L , 2700 6M(P)=A @A=32 J(P)=A J!A32 J(P)=C(A-64@) T"R=J(P)-64@:2500 :R$; ^P h X=0 r Y=F+2 | 1700 P=1 L M(P)=32 " "; M(P)32 "-"; P  Y=F+4  1700 "YOU HAVE ";(S);" POINTS" :" " Y=F+6:1700  1500 "TRY ";G$;" STANDS FOR "; H$=G$:2200  Y=F+2  1700  H=0 P=1 L &$R=J(P)-64@:2500 :X$=R$ 0$R=M(P)-64@:2500 :Y$=R$ :%H$=X$ K$=Y$ H=1:590N D 600X N)X=P-1:1700:K$;:X=0 XP bH=0 S=S+2 l 430 SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$): d