File HANGE.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

()0SDR	C-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?MR7DET !"PLEASE WAIT AS
THE COMPUTER DECIDES ON A WORD."!!!?MF+DOS A=FITR(FRAN()*80+1)?MF>DTS Y=FIN();I (160-Y)2.2,2.25,2.2?MGKDYS B=B+1; I (B-A)2.2?MGRD[S C=C+1?MG[D^S D(C)=FIN()?MG(DI (D(C)-160)2.37,2.5?MG5D%I (D(C)-187)2.4,2.5?MHBD(I (D(C)-141)2.45,2.3?MHRD-I (D(C)-138)2.27,2
3,2.27?MH[D2I (B-A)2.25?MH	D7S C=C-1;O I TTY:,E?MH3EAF Z=1,C;S E(Z)=173?MIIEPT "THE WORD HAS ", %3,C," LETTERS."!!!?MIOEUS G=0?MIVFJS G=G+1?MI(FOT !, "WHAT IS GUESS ",G," 
 "?MI9FTS H=FIN();I (H-141)3.25,3.15?MJJFYS Z=FIN();IF (Z-141)3.3,3.4?MJVF^I (Z-223)3.35,3.2?MJ&FI (Z-255)3.25;T "\";G 3.2?MJ8F(I (218-H)3.45;I (193-H)3.5,3.5?MKMF-T !"?G*?G*?GILLEGAL INPUT"!!;G 3.15?MKUF2T !;S I=0?MQ,F7F Z=1,C;D 5?MK)F<I (I-2)3.65,3.7?MK
GAI (I)3.65,3.75,4.1?MLQGFT "YOU HAVE ALREADY GUESSED THAT LETTER.."!;G 3.15?ML*GKT " WRONG!"!;S J=J+1;S T(J)=H;I (J-7)4.1,4.1?MMGPT !!"?G?G YOU HAVE HUNG YOUR MAN!  "!?MQ9GQT "THE WORD WAS:  ";D 8;T !!!;G 10.1?MM7GVT !!"CONGRATULATIONS!!  YOU HAVE GUESSE
 THE WORD AND SAVED"!?MNJGWT "YOUR MAN FROM THE GALLOWS."!?MN
GXT "AS YOU KNOW THE WORD WAS:  ";D 8?MN(GZT !!!;G 10.1?MN1HJT !"  ";D 6?MOLHOI (J),4.25;T "      WRONG GUESSES:  ";D 7;G 3.1?MO HYT "      NO WRONG GUESSES",!;G 3.1?MO,JJI (H-D(Z))5.15,5.2?MO0JOR?MPJTI (E(Z)-D(Z))5.25,5.3,5.25?MPPJYS E(Z)=D(Z);S I=1;S K=
+1?MPTJZR?MP[J^S I=2;R?MP)LJF Z=1,C;S Y=FOUT(E(Z))?MP-LOR?MQBNJF Z=1,J;S Y=FOUT(160);S Y=FOUT(T(Z))?MQFNOR?MQTPJF Z=1,C;S Y=FOUT(D(Z))?MQXPOR?MTJQ?MB*BCC     LAST CHANGE: 9/9/71?MK^F9I (K-C)3.6,3.83,3.6?MRSGSI (-J) 3.86;T !!"FNTASTIC!! NOT ONE WRONG.  "?M
UGTT "YOU HAVE EASILY SAVED"!;G 3.87?MBTBAC     HANGMN BY TOM KLOOS?MF]DJO I S: HANGWD;T !;E?MO L S S:HANGE?M?!;E?KLOOS?WRONG.  "?MM0GTT "YOU HAVE EASILY SAVED"!;G 3.87?M?ME 3.85?M?MHERROR.RE Z?MQZL G SUMCOM.RWBVYU7CX%4*
*R*KH6IJ< %6I]X02I][2A)?%,H0XH%5PSH5?%8%3)?%8X7*UI\XY-!F!I[XUI[XSHSXIH79!%:<(*6>X*7HSXU%8< *&<HR"HS8AXOXP."FTX?HHFK/H6<(+NH=X6HVI>(%).<X8 *>HV> +VI>(8AY*=IH+ESLPP+%HQARX6H6IC>(+KH6K./X%<XQ8 XPHQ9J8J8J+\? >!B82ILU\0H0\UH1< \HHH8AX02A/0/0J+

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search