File HANGMN.FC (FOCAL source file)

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

C-PS/8 FOCAL, 1971
 1.01 C     HANGMAN BY TOM KLOOS
 1.02 C     OMSI SOFTWARE DEVELOPMENT GROUP
 1.03 C     LAST CHANGE: 7/3/71
 1.04 C
 1.05 C     THIS PROGRAM PLAYS THE GAME OF HANGMAN ON AN ORDINARY
 1.06 C TELETYPE.  IT WILL CHOOSE A WORD AUTOMATICALLY AND AT 
 1.07 C RANDOM AND ASK YOU TO GUESS LETTERS.  YOU GET ONLY 7 WRONG
 1.08 C GUESSES AND THEN YOUR MAN IS HUNG.  NO PICTURE IS DRAWN BY
 1.09 C THIS PROGRAM.
 1.10 
 1.11 I ((/7)-FITR(/7)) 1.12,2.05,1.12
 1.12 T !"YOU DO NOT HAVE ENOUGH FEATURES.",!
 1.13 T "RESTART FOCAL WITH FEATURE 4.",!;Q
 2.05 T !"PLEASE WAIT AS THE COMPUTER DECIDES ON A WORD."!!!
 2.10 O I HANGWD;T !;E
 2.15 S A=FITR(FRAN()*80+1)
 2.20 S Y=FIN();I (160-Y)2.2,2.25,2.2
 2.25 S B=B+1; I (B-A)2.2
 2.27 S C=C+1
 2.30 S D(C)=FIN()
 2.35 I (D(C)-160)2.37,2.5
 2.37 I (D(C)-187)2.4,2.5
 2.40 I (D(C)-141)2.45,2.3
 2.45 I (D(C)-138)2.27,2.3,2.27
 2.50 I (B-A)2.25
 2.55 S C=C-1;O I TTY:,E
 2.65 F Z=1,C;S E(Z)=173
 2.80 T "THE WORD HAS ", %3,C," LETTERS."!!!
 2.85 S G=0
 3.10 S G=G+1
 3.15 T !, "WHAT IS GUESS ",G," 
 "
 3.20 S H=FIN();I (H-141)3.25,3.15
 3.25 S Z=FIN();IF (Z-141)3.3,3.4
 3.30 I (Z-223)3.35,3.2
 3.35 I (Z-255)3.25;T "\";G 3.2
 3.40 I (218-H)3.45;I (193-H)3.5,3.5
 3.45 T !"
*
*
ILLEGAL INPUT"!!;G 3.15
 3.50 T !;S I=0
 3.55 F Z=1,C;D 5
 3.57 I (K-C)3.6,3.85,3.6
 3.60 I (I-2)3.65,3.7
 3.65 I (I)3.65,3.75,4.1
 3.70 T "YOU HAVE ALREADY GUESSED THAT LETTER.."!;G 3.15
 3.75 T " WRONG!"!;S J=J+1;S T(J)=H;I (J-7)4.1,4.1
 3.80 T !!"

 YOU HAVE HUNG YOUR MAN!  "!
 3.81 T "THE WORD WAS:  ";D 8;T !!!;G 10.1
 3.85 I (-J) 3.86;T !!"FANTASTIC!!  NOT ONE WRONG.  YOU HAVE EASILY SAVED"!;G 3.87
 3.86 T !!"CONGRATULATIONS!!  YOU HAVE GUESSED THE WORD AND SAVED"!
 3.87 T "YOUR MAN FROM THE GALLOWS."!
 3.88 T "AS YOU KNOW THE WORD WAS:  ";D 8
 3.90 T !!!;G 10.1
 4.10 T !"  ";D 6
 4.15 I (J),4.25;T "      WRONG GUESSES:  ";D 7;G 3.1
 4.25 T "      NO WRONG GUESSES",!;G 3.1
 5.10 I (H-D(Z))5.15,5.2
 5.15 R
 5.20 I (E(Z)-D(Z))5.25,5.3,5.25
 5.25 S E(Z)=D(Z);S I=1;S K=K+1
 5.26 R
 5.30 S I=2;R
 6.10 F Z=1,C;S Y=FOUT(E(Z))
 6.15 R
 7.10 F Z=1,J;S Y=FOUT(160);S Y=FOUT(T(Z))
 7.15 R
 8.10 F Z=1,C;S Y=FOUT(D(Z))
 8.15 R
10.10 Q



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