()0R=BTC-PS/8 FOCAL, 1971?MB$BAC     HANGMAN BY TOM KLOOS?MB:BBC     OMSI SOFTWARE DEVELOPMENT GROUP?MCJBCC     LAST CHANGE: 7/3/71?MCNBDC?MC/BEC     THIS PROGRAM PLAYS THE GAME OF HANGMAN ON AN ORDINARY?MDNBFC TELETYPE.  IT WILL CHOOSE A WORD AUTOMATICAL
Y AND AT ?MD/BGC RANDOM AND ASK YOU TO GUESS LETTERS.  YOU GET ONLY 7 WRONG?MEPBHC GUESSES AND THEN YOUR MAN IS HUNG.  NO PICTURE IS DRAWN BY?ME[BIC THIS PROGRAM.?ME^BJ?ME2BKI ((/7)-FITR(/7)) 1.12,2.05,1.12?MFIBLT !"YOU DO NOT HAVE ENOUGH FEATURES.",!?MF
BMT "RESTART FOCAL WITH FEATURE 4.",!;Q?MF=DET !"PLEASE WAIT AS THE COMPUTER DECIDES ON A WORD."!!!?MGHDJO I HANGWD;T !;E?MGVDOS A=FITR(FRAN()*80+1)?MG)DTS Y=FIN();I (160-Y)2.2,2.25,2.2?MG6DYS B=B+1; I (B-A)2.2?MG=D[S C=C+1?MHFD^S D(C)=FIN()?MHSDI (D(C)-1
0)2.37,2.5?MH D%I (D(C)-187)2.4,2.5?MH-D(I (D(C)-141)2.45,2.3?MH=D-I (D(C)-138)2.27,2.3,2.27?MIFD2I (B-A)2.25?MIRD7S C=C-1;O I TTY:,E?MI^EAF Z=1,C;S E(Z)=173?MI4EPT "THE WORD HAS ", %3,C," LETTERS."!!!?MI:EUS G=0?MJAFJS G=G+1?MJSFOT !, "WHAT IS GUESS ",G,
 
 "?MJ$FTS H=FIN();I (H-141)3.25,3.15?MJ5FYS Z=FIN();IF (Z-141)3.3,3.4?MKAF^I (Z-223)3.35,3.2?MKQFI (Z-255)3.25;T "\";G 3.2?MKF(I (218-H)3.45;I (193-H)3.5,3.5?MK8F-T !"?G*?G*?GILLEGAL INPUT"!!;G 3.15?MLF2T !;S I=0?MLIF7F Z=1,C;D 5?MLVF9I (K-C)3.6,3.85,3.6?
L!F<I (I-2)3.65,3.7?ML-GAI (I)3.65,3.75,4.1?MMIGFT "YOU HAVE ALREADY GUESSED THAT LETTER.."!;G 3.15?MM"GKT " WRONG!"!;S J=J+1;S T(J)=H;I (J-7)4.1,4.1?MM8GPT !!"?G?G YOU HAVE HUNG YOUR MAN!  "!?MNMGQT "THE WORD WAS:  ";D 8;T !!!;G 10.1?MN6GUI (-J) 3.86;T !
"FANTASTIC!!  NOT ONE WRONG.  YOU HAVE EASILY SAVED"!;G 3.87?MOXGVT !!"CONGRATULATIONS!!  YOU HAVE GUESSED THE WORD AND SAVED"!?MO+GWT "YOUR MAN FROM THE GALLOWS."!?MPGXT "AS YOU KNOW THE WORD WAS:  ";D 8?MPIGZT !!!;G 10.1?MPRHJT !"  ";D 6?MP-HOI (J),4.25
T "      WRONG GUESSES:  ";D 7;G 3.1?MQAHYT "      NO WRONG GUESSES",!;G 3.1?MQMJJI (H-D(Z))5.15,5.2?MQQJOR?MQ!JTI (E(Z)-D(Z))5.25,5.3,5.25?MQ1JYS E(Z)=D(Z);S I=1;S K=K+1?MQ5JZR?MQ<J^S I=2;R?MRJLJF Z=1,C;S Y=FOUT(E(Z))?MRNLOR?MRNJF Z=1,J;S Y=FOUT(160);S Y
FOUT(T(Z))?MR	NOR?MR5PJF Z=1,C;S Y=FOUT(D(Z))?MR9POR?MTJQ?MQ?L S HANGMN?M?ML G INDEX.RE?MSRP2G 2.1?MS"P<S Z1=1.98;L G FUNCT1.RE Z?MS-QFL G FUNCT2.RE Z?MS8QPL G HERROR.RE Z?MQZL G SUMCOM.R3E& 3NF C*M2I>I3U;HD	L2/GH3N3D+ECR3ASD7ROES*M2IOD3A> 3UTN	D2/GH3N3D+
CR7ESNR7Y2JRI+CCA3E[BL	G2/3C7EKA2 GB7CWK3PZ 3L
A"M&J3TSA2 3FN&I2/GM3X7I+UCM3F3I3E2 3E
NT7H2JRI+CCA3OGM3X;L"M&J3TSA6 SS3B/L6IN/7TKA3T;I3GJ 3LOOK*M2IOD3A> 3B/L"M&J3TSA2 R(7ECCU	T

Note: Lines longer than 256 characters were wrapped