Hangman  0  Hangman set up screen 0:7: #x=240:1000:draw man (-238,128:4,0:mouth d set up word nw$:word to guess xb=w$:v$=" " n=2b:v$=v$+" " n:v$=word guessed so far .c=0:d=0:guess & mistake counts n=0b-1 20,n;"-"; n:write-'s instead of letters "Guess a letter: ";g$ g$=""200 !g$=g$(1):1st letter only 0,c;g$ c=c+1:u$=v$ "n=1b:update guessed word w$(n)=g$v$(n)=g$ n 19,0;v$ " v$=w$500:word guessed ,#v$u$200:guess was right draw next part of gallows "d=8600X:man hanged  d=d+1  x0,y0,x,y  x0,y0:x,y  200  free man 1:rub out man x=240:1000 -238,128:4,0:mouth 0:redraw man &x=146:1000 07143,129:6,0,/2:smile : 800  X hang man b1:rub out floor l'255,65A:-480,0 v"0,-480:open trapdoor 5238,128:4,0:rub out mouth  move limbs >255,117u:-15,-15:-15,15  0 9236,81Q:4,21:4,-21 1:legs =255,66B:-15,15:-15,-15  0 9236,60<:4,21:4,-21 8237,127:6,0,-/2:frown 19,0;w$  "Again? ";a$ *a$=""850R 4a$=a$(1) > a$="n" Ha$(1)="N" R :5 draw man at column x head x,132,8 7x+4,134:x-4,134:x,131 body  x,123{:0,-20 $ x,101e:0,-19 .<x-15,66B:15,15:15,-15 8arms B=x-15,117u:15,-15:15,15 L J120x,65A,135,0,184,65A,0,91[ L168,65A,16,16,184,81Q,16,-16 L184,156,68D,0,184,140,16,16 O204,156,-20,-20,240,156,0,-16 xbcdAy[WlVlGlU A5i