\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=Hangman
\FILE=HANGMAN.85P
:ClLCD
:0\->\W
:0\->\t
:1\->\P
:Lbl LNG
:InpST "Enter word: ",WORD
:If lngth WORD\>=\20
:Goto LNG
:Lbl AH
:Input "Tries: ",T
:If T>20
:Goto AH
:ClLCD
:"."\->\GOD
:">"\->\LL
:For(X,1,lngth WORD,1)
:GOD+" "\->\GOD
:End
:Lbl GUESS
:"."\->\GO
:For(X,1,lngth WORD,1)
:Outpt(7,X,"-")
:End
:Outpt(1,21,t)
:Outpt(8,1,LL)
:InpST "Letter: ",LETR
:0\->\C
:0\->\DD
:For(L,1,lngth WORD,1)
:If LETR==sub(WORD,L,1)
:Then
:DD+1\->\DD
:1\->\C
:GO+LETR\->\GO
:Else
:GO+sub(GOD,L+1,1)\->\GO
:End
:End
:If GO\<>\GOD
:DD+W\->\W
:ClLCD
:Outpt(6,1,sub(GO,2,(lngth GO)-1))
:If W==lngth WORD
:Then
:ClLCD
:Disp "YOU WIN!!!!!"
:Disp WORD
:Stop
:End
:If C==1
:Then
:GO\->\GOD
:Goto GUESS
:End
:t+1\->\t
:If t==T
:Then
:ClLCD
:Disp WORD
:Stop
:End
:LL+LETR\->\LL
:P+1\->\P
:Goto GUESS
\STOP85\