ZXTape!Enigma  ( :23658j\,8  2000 x=07:m,n "a"+x,m:"b"+x,n x guess=1:w(5):z(5):g$="":w$(5):q$="":z$(5):r(5):s(5):s$(5):a(5):a$(5) n=(*26)+1000 n #x=15 (w(x) 7x <r=(*26)+1000 >r @x=15 Bz(x) Ex Fx=15 K w$(x)=w(x) L z$(x)=z(x) M g$=g$+w$(x) N q$=q$+z$(x) Px Zk=15 _r(k)=(*5)+1 dk f p=0 g p=p+1 is=(*2)+1 ns=1150 ss(p)=w(p)+r(p) ua(p)=z(p)+r(p) }p5250 103g s(p)=w(p)-r(p) a(p)=z(p)-r(p) p5250 103g x=15 s$(x)=s(x)  a$(x)=a(x) x "1;10 ;"ENIGMA"''''' 2;"In a certain code:" 'g$;" ";s$ '2;"In the same code"  'q$;" ";1;"?????" n=0:x=3 x$ &Lx$a$guess=guess+1:x,20;x$;1;" WRONG ":n=n+1 +x$=a$700 0Pn520,10 ;3;"The word was ";a$:0::19 :x=x+2:540 /z=17:x=07:x:x:z xx=010 :.2~L,x:x:20,0;1;"Correct in ";guess;" guess(es)":9999'::19 0,8,0,4,255,254,0,1,255,254,0,4,0,8,0,0 .79O,85U,71G,72H,84T .82R,69E,73I,71G,78N .82R,69E,77M,73I,84T .82R,69E,80P,69E,76L .70F,76L,79O,85U,82R .77M,79O,84T,72H,83S .83S,85U,80P,69E,82R .83S,80P,73I,78N,83S .83S,80P,73I,69E,83S .83S,84T,69E,69E,76L .83S,84T,73I,76L,84T .83S,84T,73I,70F,70F .83S,84T,82R,73I,80P .83S,84T,79O,78N,69E .84T,82R,85U,78N,75K .84T,85U,76L,73I,80P .84T,85U,82R,78N,83S .83S,84T,69E,80P,83S .70F,73I,82R,83S,84T .70F,76L,79O,80P,83S .80P,82R,73I,78N,84T .76L,73I,78N,69E,83S .76L,73I,77M,73I,84T .77M,73I,71G,72H,84T .71G,78N,79O,77M,69E .78N,79O,73I,83S,69E 7:0:0: 0,10 ;"ENIGMA" '''  "The program will present you" '"with a word and its coded" "'"version. Using the same code,"  #'"enter the coded version of the"  '"second word. Five tries are"  +'"allowed - the computer keeps"''"score." *+9999':0:7:7::