100 REMC
110 REM:FOCAL-11S V1  (RT-11) 19-NOV-74
120 REM
130 PRINT
140 REM
150 REM    BY ANDREW LAYMAN
160 REM E
170 LET C=0
180 LET T=0
190 LET P=0
200 LET M=0
210 LET G=0
220 REM;O C,X
230 REM PRINT!%2
240 PRINT"HANGMAN"
242 PRINT"ASK A FRIEND TO INPUT A WORD"
250 REM 
260 INPUT L$
270 REM IF((ABS(L-150.5)-9.5)^2)GO TO 360
280 LET M=M+1
290 LET A(M)=L
300 IF(ABS(L-205.5)-13) 260
310 LET M=M-1
320 IF(-(L-255)^2) 260
330 LET M=M-1
340 PRINT"\"
350 GO TO 260
360 IF(M-4) 770
370 REM;O I
380 PRINT"RIP OFF PAPER."
389 PRINT"THERE ARE"M
390 PRINT" LETTERS IN THE WORD."
400 FOR N=1,M
410 LET B(N)=170
420 REM O C
430 LET R=1
440 PRINT
450 FOR N=1,M
460 PRINT B(N)
470 PRINT"DO YOU WISH TO GUESS THE ENTIRE WORD?"
490 INPUT L2$
500 IF(13-ABS(L-205.5)) 490
510 IF((L-217)^2) 820
520 IF(-(L-206)^2) 570
530 INPUT S
540 IF((S-141)^2) 570
550 INPUT"INPUT LETTER"L
570 IF(ABS(L-205.5)-13) 600
580 INPUT L
590 GO TO 570
600 LET P=1
610 FOR N=1,T
620 GO SUB 1230
630 IF(P) 790
640 LET T=T+1
650 LET C(T)=L
660 FOR N=1,M
670 GO SUB 1180
680 LET P=-1
690 FOR N=1,M
700 GO SUB 1550
710 IF(P) 1020
720 IF(R) 420
730 PRINT
740 LET G=G+1
750 GOSUB 1260
760 GO TO 420
770 PRINT"MINIMUM WORD= 4 LETTERS."
780 GO TO 160
790 PRINT"YOU'VE ALREADY TRIED "L
800 GO TO 550
820 INPUT S
830 IF((S-141)^2) 600
840 INPUT S
850 LET G=0
860 PRINT"INPUT WORD "
880 INPUT L
890 IF((ABS(L-150.5)-9.5)^2) 980
900 LET G=G+1
910 LET B(G)=L
920 IF(ABS(L-205.5)-13) 880
930 LET G=G-1
940 IF(-(L-255)^2) 880
950 LET G=G-1
960 PRINT"\"
970 GO TO  880
980 IF(G-1) 880
990 IF(M-G) 1150
1000 FOR N=1,M
1010 GOSUB 2000
1020 GOSUB 3000
1030 LET G=0
1040 GOSUB 1260
1050 INPUT"YOU WIN.  GO AGAIN? "S
1060 IF(-(S-217)^2) 1090
1070 INPUT L,L,L
1080 GO TO 130
1090 INPUT S
1100 IF(-(S-141)^2) 1090
1110 PRINT"FINK"
1120 REM ;Q
1130 IF((B(N)-A(N))^2),
1140 GO TO 1150
1150 LET G=9
1160 GOSUB 1260
1180 IF(-(A(N)-L)^2)
1190 LET B(N)=L
1200 LET R=-1
1210 PRINT"CORRECT."
1220
1230 IF(-(L-C(N))^2)
1240 LET P=-1
1250 RETURN
1260 PRINT"I======="
1270 PRINT"I      '"
1270 PRINT"I"
1280 IF(G-1) 1300
1290 PRINT "0"
1300 PRINT"I"
1310 IF(G-2) 1410
1320 PRINT "="
1330 IF(G-3) 1350
1340 PRINT"="
1350 IF(G-4) 1370
1360 PRINT"I"
1370 IF(G-5) 1390
1380 PRINT"="
1390 IF(G-6) 1410
1400 PRINT"="
1410 PRINT"I"
1420 IF(G-7) 1440
1430 PRINT "/"
1440 IF(G-8) 1460
1450 PRINT" \"
1460 PRINT"I"
1465 PRINT"IIIIIIII"
1470 IF(G-8)
1480 PRINT"THE WORD WAS "
1490 REMO C
1500 FOR N=1,M
1510 PRINT A(N)
1520 PRINT".    YOU HAVE LOST."
1530 REM Q
1540 RETURN
1550 IF(-(B(N)-170)^2)
1560 LET P=1
1570 RETURN
2000 IF((B(N)-A(N))^2),
2010 GO TO 1150
2020 LET G=9
2030 GOSUB 1260
2040 RETURN
3000 REMO C
3010 LET R=1
3020 PRINT
3040 FOR N=1,M
3050 PRINT B(N)
3060 PRINT"DO YOU WISH TO GUESS THE ENTIRE WORD?  "
3070 RETURN