Directory of image this file is from
This file as a plain text file
()0SBR2C-PS/8 FOCAL, 1971?MQ BBC OMSI SOFTWARE DEVELOPMENT GROUP?MB.BDC?MCOBEC THIS PROGRAM PLAYS THE GAME OF HANGMAN ON AN ORDINARY?MC.BFC TELETYPE. IT WILL CHOOSE A WORD AUTOMATICALLY AND AT ?MDOBGC RANDOM AND ASK YOU TO GUESS LETTERS. YOU GET ONLY 7 WRONG?MD0BHC GUESSES AND THEN YOUR MAN IS HUNG. NO PICTURE IS DRAWN BY?MD;BIC THIS PROGRAM.?MD>BJ?MERBKI ((/7)-FITR(/7)) 1.12,2.05,1.12?ME)BLT !"YOU DO NOT HAVE ENOUGH FEATURES.",!?ME?BMT "RESTART FOCAL WITH FEATURE 4.",!;Q?MF]DET !"PLEASE WAIT AS THE COMPUTER DECIDES ON A WORD."!!!?MF(DJO I HANGWD;T !;E?MF6DOS A=FITR(FRAN()*80+1)?MGIDTS Y=FIN();I (160-Y)2.2,2.25,2.2?MGVDYS B=B+1; I (B-A)2.2?MG]D[S C=C+1?MG&D^S D(C)=FIN()?MG3DI (D(C)-160)2.37,2.5?MHD%I (D(C)-187)2.4,2.5?MHMD(I (D(C)-141)2.45,2.3?MH D-I (D(C)-138)2.27,2.3,2.27?MH&D2I (B-A)2.25?MH2D7S C=C-1;O I TTY:,E?MH>EAF Z=1,C;S E(Z)=173?MITEPT "THE WORD HAS ", %3,C," LETTERS."!!!?MIZEUS G=0?MI!FJS G=G+1?MI3FOT !, "WHAT IS GUESS ",G," "?MJDFTS H=FIN();I (H-141)3.25,3.15?MJUFYS Z=FIN();IF (Z-141)3.3,3.4?MJ!F^I (Z-223)3.35,3.2?MJ1FI (Z-255)3.25;T "\";G 3.2?MKCF(I (218-H)3.45;I (193-H)3.5,3.5?MKXF-T !"?G*?G*?GILLEGAL INPUT"!!;G 3.15?MK F2T !;S I=0?MQ7F7F Z=1,C;D 5?MK4F<I (I-2)3.65,3.7?ML AI (I)3.65,3.75,4.1?ML\GFT "YOU HAVE ALREADY GUESSED THAT LETTER.."!;G 3.15?ML5GKT " WRONG!"!;S J=J+1;S T(J)=H;I (J-7)4.1,4.1?MMKGPT !!"?G?G YOU HAVE HUNG YOUR MAN! "!?MRDGQT "THE WORD WAS: ";D 8;T !!!;G 10.1?MNBGVT !!"CONGRATULATIONS!! YOU HAVE GUESSE THE WORD AND SAVED"!?MNUGWT "YOUR MAN FROM THE GALLOWS."!?MN*GXT "AS YOU KNOW THE WORD WAS: ";D 8?MN3GZT !!!;G 10.1?MN<HJT !" ";D 6?MOWHOI (J),4.25;T " WRONG GUESSES: ";D 7;G 3.1?MO+HYT " NO WRONG GUESSES",!;G 3.1?MO7JJI (H-D(Z))5.15,5.2?MO; OR?MPKJTI (E(Z)-D(Z))5.25,5.3,5.25?MP[JYS E(Z)=D(Z);S I=1;S K=K+1?MP JZR?MP&J^S I=2;R?MP4LJF Z=1,C;S Y=FOUT(E(Z))?MP8LOR?MQMNJF Z=1,J;S Y=FOUT(160);S Y=FOUT(T(Z))?MQQNOR?MQ PJF Z=1,C;S Y=FOUT(D(Z))?MQPOR?MTJQ?MB*BCC LAST CHANGE: 9/9/71?MK)F9I (K-C)3.6,3.83,3.6?MR^GSI (-J) 3.86;T !!"FNTASTIC!! NOT ONE WRONG. "?MM GTT "YOU HAVE EASILY SAVED"!;G 3.87?MBTBAC HANGMN BY TOM KLOOS?M?ML S HANGMN?M?M BY TOM KLOOS?WRONG. "?M 0GTT "YOU HAVE EASILY SAVED"!;G 3.87?M?ME 3.85?M?MHERROR.RE Z?MQZL G SUMCOM.R3E& 3NF C*M2I>I3U;HD L2/GH3N3D+ECR3ASD7ROES*M2IOD3A> 3UTN D2/GH3N3D+ECR7ESNR7Y2JRI+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