hangman C p1=0:p2=24 p3=32 :p4=16 p5=p1:p6=p2+p4 p7=128  p8=p6+p7 # p9=72H ( p10=p5+p9 -p11=24 2p12=8:p13=p8-p11-p12 7p14=p13-p12:p15=32 <p16=p13-2*p12 Ap17=24:p18=8 F p19=p14-p15 Kp20=24:p21=40( lz=3000 z$(lz+2) ez=0 nz=0 4"RED","BLUE","GREEN","ORANGE","WHITE","PINK","END" x$ %z$(ez+x$+1)=z$(ez)+±x$+x$ ez=ez+x$+1 nz=nz+1 "x$"END"250 :,,12 ;"HANGMAN" ,,,,"Increase vocabulry";31;"IZX Spectrum guesses a word";31;"GYou guess a word";31;"YSave vocabulary";31;"SLoad vocabulary";31;"LHalt hangman";31;"H" !y$:y$=(y$-32 *(y$>"`")) 1100L+400*(y$="I")+900*(y$="Z")+1900l*(y$="Y")+1400x*(y$="S")+2400` *(y$="L")+2900T *(y$="H") L""Press ""ENTER"" to continue";y$ V 1000 ",,6;"Increase vocabulary" ,,"Current vocabulary is :"   pw=1  z$(pw+1̯z$(pw)+pw);","; pw=pw+1+z$(pw) pw"`")) ri |%z$(ez+1+x$)=Z$(ez)+±x$+x$ ez=ez+1+x$ nz=nz+1  1600@ ):3;"ZX Spectrum guesses a word" "How many letters?";nl +nl<0.2~L,24:2010  5,16;nl;"letters" "20,(32 -nl)/2; i=1nl  "-"; i   * s=0 4sub=7900 > m(26) Hn=1+(26*) Rm(n)=12120H \m(n)=1 fx$=(64@+n) z221,4;"Does the word contain";x$;"?" 0y$:y$<1.2~L,24:2180 -y$(1)="Y"y$(1)="y"2400` sub=sub+100d sub sub<8900"2120H (7,16;1;"Well done"  300, "What is the word?";x$ 'x$nl.2~L,24:2250  pw=1 =i=1nl:x$(1)=(x$(i)-32 *(x$(i)>"`")):i *x$=z$(pw+1pw+z$(pw))1100L pw=pw+z$(pw)+1 pwnl.2~L,24:2400` t m=0 ~M"Enter position of letter";i:i<1i>nl.2~L,24:2430~ .20,(32 -nl)/2+i-1;x$ m=m+1:m7,16;1;"Bad luck":300,:1100L ,,6;"Save vocabulary" "Enter name ";y$ -y$>10 .1}L,24:2510 0z$(lz+1)=(ez-256*(ez/256)) #z$(lz+2)=((ez/256)) y$z$() #"Rewind tape - press""ENTER""";x$ y$z$()  1100L n=1+(nz*) :,,12 ;"HANGMAN" nw=1:pw=1 nw=n3100 &nw=nw+1:pw=pw+z$(pw)+1 3030  nl=z$(pw) & 5,16;nl;"letters" 0"26,(32 -nl)/2; :i=1nl D" -"; Ni X bx$=z$(pw+1pw+z$(pw)) ll(x$) vsub=7900 "Enter a letter";y$ y$=(y$-32 *(y$>"`")) in=0:s=0 i=1̱x$ hl(i)=0x$(i)=y$(1)l(i)=1:20,(32 -nl)/2+i-1;y$:in=1 s=s+l(i) i $in=0sub=sub+100d:sub Ƥs=x$7,16;1;"Well done":1;9 ,16;89Y-sub/100d;"points":20,(32 -nl)/2;1;x$:1100L sub<8900"3200 Y7,16;1;"Bad luck";0;9 ,14;1;"the word is" 300, 87,16;" ";9 ,14;" " -20,(32 -nl)/2;1;x$ 300, $20,(32 -nl)/2;x$ 1100L ,,6;"Load vocabulary" ,,"Enter name" 1y$:y$>10 .2~L,24:3520 y$z$() /ez=z$(lz+1)+256+z$(lz+2) pw=1 nw=0 pw=pw+1+z$(pw) "pw0,-p15 !H ! p10,p16 ! -p17,-p18 ! ! p10,p16 " p17,-p18 " "` p10,p19 "j -p20,-p21 "t " p10,p19 " p20,-p21 "