Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0020/hangmn.gam
There are 2 other files named hangmn.gam in the archive. Click here to see a list.
100'  NAME--HANGMAN
110'
120'  DESCRIPTION--PLAYS HANGMAN
130'
140'  SOURCE--UNKNOWN
150'
160'  INSTRUCTIONS--TYPE "RUN" AND FOLLOW INSTRUCTIONS.
170'
180'
190'  *  *  *  *  *  *  *  MAIN PROGRAM  *  *  *  *  *  *  *  *  *  *
200'
210 RANDOMIZE
220 PRINT"DO YOU WANT TO SEE THE INSTRUCTIONS";
230 INPUT N7$
240 IF N7$="NO" THEN 330
250 PRINT
260 PRINT"THIS GAME IS SOMETHING LIKE HANGMAN.  THE MACHINE CHOOSES"
270 PRINT"A WORD OUT OF ITS STORAGE AND YOU ARE REQUIRED TO GUESS THE"
280 PRINT"WORD LETTER BY LETTER.  AFTER EACH MISTAKE, YOU WILL BE ASKED"
290 PRINT"WHETHER YOU WANT TO SEE A PICTURE OF YOURSELF.  THE MORE"
300 PRINT"MISTAKES YOU MAKE, THE LESS OF YOU THERE WILL BE. UNTIL"
310 PRINT"AFTER 9 MISTAKES, YOU WILL BE ALL GONE, AND YOU WILL"
320 PRINT"LOSE."
330 LET T2=0
340 PRINT
350 PRINT"WOULD YOU LIKE TO SEE THE WHOLE PICTURE BEFORE THE GAME STARTS";
360 INPUT Q9$
370 IF Q9$="YES" THEN 1150
380 LET T2=1
390 LET Q=0
400 LET L=1
410 DIM S(200)
420 DIM F$(2000)
430 DIM A$(20)
440 DIM B$(20)
450 DIM I(200)
460 LET O1=1
470 READ S(O1)
480 IF S(O1)<0 THEN 570
490 LET I(O1)=L
500 FOR O=L TO L+S(O1)-1
510 READ F$(O)
520 NEXT O
530 LET Q=Q+1
540 LET L=L+S(O1)
550 LET O1=O1+1
560 GO TO 470
570 LET O1=O1-1
580 LET R=INT(1+O1*RND)
590 LET S=S(R)
600 LET O6=I(R)
610 FOR Z2=1 TO S(R)
620 LET O6=I(R)
630 LET A$(Z2)=F$(O6+Z2-1)
640 NEXT Z2
650 DIM U$(26)
660 DIM E$(26)
670 LET V=1
680 FOR I=1 TO S
690 LET B$(I)=" - "
700 NEXT I
710 GO TO 890
720 PRINT
730 PRINT"WHAT IS YOUR GUESS";
740 LET K=1
750 INPUT G$
760 FOR Y=1 TO S
770 IF G$=A$(Y) THEN 790
780 GO TO 800
790 LET K=0
800 NEXT Y
810 IF K=0 THEN 840
820 LET E$(V)=G$
830 LET V=V+1
840 FOR T=1 TO S 
850 IF G$=A$(T) THEN 870
860 GO TO 880
870 LET B$(T)=G$
880 NEXT T
890 PRINT
900 FOR I=1 TO S
910 PRINT B$(I);
920 NEXT I
930 PRINT " ",
940 FOR G6=1 TO V-1
950 PRINT E$(G6);
960 NEXT G6
970 PRINT
980 LET E1=V-1
990 IF E1<9 THEN 1100
1000 PRINT"I WIN..."
1010 PRINT"THE CORRECT ANSWER IS ";
1020 FOR Z2=1 TO S
1030 PRINT A$(Z2);
1040 NEXT Z2
1050 PRINT
1060 PRINT" DO YOU WANT TO PLAY AGAIN";
1070 INPUT T$
1080 IF T$="YES" THEN 580
1090 STOP
1100 PRINT
1110 IF K=0 THEN 1490
1120 PRINT"DO YOU WANT TO SEE THE PICTURE";
1130 INPUT T2$
1140 IF T2$="NO" THEN1490
1150 PRINT"       *-:-*"
1160 PRINT"     %&     &%"
1170 PRINT"    #         #"
1180 IF E1=8 THEN 1490
1190 PRINT"   ^  (.) (.)  ^"
1200 IF E1=7 THEN 1490
1210 PRINT" <<<           >>>"
1220 IF E1=6 THEN 1490
1230 PRINT"   !    :?:    !"
1240 IF E1=5 THEN 1490
1250 PRINT"   *  -     -  *"
1260 PRINT"   '   +++++   '"
1270 PRINT"   &           &"
1280 PRINT"    %%%     %%%"
1290 PRINT"      :!#$#!:"
1300 IF E1=4 THEN 1490
1310 PRINT"         I"
1320 PRINT"         I"
1330 PRINT"         I"
1340 IF E1=3 THEN 1490
1350 PRINT"???????????????????"
1360 IF E1=2 THEN 1490
1370 PRINT"         @"
1380 PRINT"         @"
1390 PRINT"         @"
1400 IF E1=1 THEN 1490
1410 PRINT"        ( )"
1420 PRINT"       (   )"
1430 PRINT"      (     )"
1440 PRINT"     (       )"
1450 PRINT"    (         )"
1460 PRINT"   (           )"
1470 PRINT"  (#$%&     &%$#)"
1480 IF T2=0 THEN 380
1490 FOR I=1 TO S
1500 IF A$(I)=B$(I) THEN 1520
1510 GO TO 730
1520 NEXT I
1530 PRINT"VERY GOOD! YOU WIN!"
1540 PRINT"DO YOU WANT TO PLAY AGAIN";
1550 INPUT H8$
1560 IF H8$="YES" THEN 580
1570 DATA 10,I,M,P,O,S,S,I,B,L,E,  5,I,D,I,O,T
1580 DATA 9,A,P,A,T,H,E,T,I,C
1590 DATA10,W,A,T,E,R,F,R,O,N,T
1600 DATA11,C,O,L,L,E,C,T,I,O,N,S
1610 DATA 9,Y,E,S,T,E,R,D,A,Y
1620 DATA12,K,I,N,D,E,R,G,A,R,T,E,N
1630 DATA14,A,D,M,I,N,I,S,T,R,A,T,I,O,N
1640 DATA 8,E,M,P,H,A,S,I,S
1650 DATA 9,E,D,U,C,A,T,I,O,N
1660 DATA 10,R,E,C,I,P,R,O,C,A,L
1670 DATA  11,D,E,C,L,A,R,A,T,I,O,N
1680 DATA 7,P,I,T,C,H,E,R
1690 DATA 10,S,U,P,E,R,S,O,N,I,C
1700 DATA 11,C,O,M,M,E,N,D,A,B,L,E
1710 DATA 7,P,A,S,S,A,G,E
1720 DATA 10,P,E,R,C,E,N,T,A,G,E
1730 DATA 5,J,O,I,N,T
1740 DATA8,G,O,V,E,R,N,O,R
1750 DATA 7,P,R,O,G,R,A,M
1760 DATA 13,D,I,S,A,P,P,E,A,R,A,N,C,E
1770 DATA 8,S,E,C,U,R,I,T,Y
1780 DATA 7,W,E,L,C,O,M,E
1790 DATA 4,Z,E,R,O
1800 DATA9,P,O,T,E,N,T,I,A,L
1810 DATA 8,C,O,M,P,O,S,E,D
1820 DATA 11,P,O,S,S,I,B,I,L,I,T,Y
1830 DATA 8,D,I,R,E,C,T,O,R
1840 DATA 6,R,E,S,U,L,T
1850 DATA 8,C,H,I,L,D,R,E,N
1860 DATA 9,C,L,A,S,S,R,O,O,M
1870 DATA 8,E,C,O,N,O,M,I,C
1880 DATA 9,E,Q,U,I,V,O,C,A,L
1890 DATA 7,H,O,S,T,I,L,E
1900 DATA 7,R,O,G,U,I,S,H
1910 DATA 9,M,I,G,R,A,T,I,O,N
1920 DATA 13,A,U,T,H,O,R,I,Z,A,T,I,O,N
1930 DATA 7,C,U,R,S,O,R,Y
1940 DATA 5,M,O,N,E,Y
1950DATA 7,A,B,S,O,L,V,E
1960 DATA 12,P,R,E,R,E,Q,U,I,S,I,T,E
1970 DATA 7,I,N,S,I,P,I,D
1980 DATA 14 ,C,O,N,G,L,O,M,E,R,A,T,I,O,N
1990 DATA 10,N,E,G,O,T,I,A,B,L,E
2000 DATA 7,D,E,P,O,S,I,T
2010 DATA 4,L,A,M,P
2020 DATA 9,Q,U,A,L,I,F,I,E,D
2030 DATA 11,M,A,I,N,T,E,N,A,N,C,E
2040 DATA 7,F,U,N,E,R,A,L
2050 DATA 9,C,A,R,P,E,N,T,E,R
2060 DATA 5,F,U,G,U,E
2070 DATA 11,M,A,N,U,F,A,C,T,U,R,E
2080 DATA 6,B,A,K,E,R,Y
2090 DATA 8,M,I,L,I,T,A,R,Y
2100 DATA 5,G,U,A,R,D
2110 DATA 9,T,E,C,H,N,I,C,A,L
2120 DATA 8,S,Y,M,P,H,O,N,Y
2130 DATA 7,A,D,V,A,N,C,E
2140 DATA 7,M,I,N,I,M,U,M
2150 DATA 9,A,L,E,R,T,N,E,S,S
2160 DATA 7,Q,U,A,R,T,E,T
2170 DATA 6,P,O,L,I,S,H
2180 DATA 7,B,E,N,E,F,I,T
2190 DATA 8,C,O,M,P,O,S,E,R
2200 DATA 4,H,E,R,O
2210 DATA 6,D,E,S,I,S,T
2220 DATA 6,C,I,T,I,E,S
2230 DATA 4,S,L,U,M
2240 DATA 6,R,E,G,I,M,E
2250 DATA 5,D,O,U,B,T
2260 DATA 4,J,O,K,E
2270 DATA 9,P,R,O,T,E,S,T,E,R
2280 DATA 7,S,I,M,I,L,A,R
2290 DATA 4,C,U,R,B
2300 DATA 5,E,L,I,T,E
2310 DATA 8,M,E,D,I,C,A,R,E
2320 DATA 5,M,A,Y,O,R
2330 DATA 4,F,U,N,D
2340 DATA 6,A,C,T,I,O,N
2350 DATA 6,C,L,O,U,D,Y
2360 DATA 4,N,E,W,S
2370 DATA 5,Y,O,U,N,G
2380 DATA 5,M,A,F,I,A
2390 DATA 9,G,U,E,R,R,I,L,L,A
2400 DATA 7,R,E,Q,U,E,S,T
2410 DATA 7,G,O,U,R,M,E,T
2420 DATA 3,P,U,B
2430 DATA 8,S,K,I,R,M,I,S,H
2440 DATA 5,B,L,A,C,K
2450 DATA 5,W,H,I,T,E
2460 DATA 7,H,I,S,T,O,R,Y
2470 DATA 6,P,O,L,I,C,Y
2480 DATA 9,G,Y,M,N,A,S,I,U,M
2490 DATA 7,V,E,H,I,C,L,E
2500 DATA 9,A,U,T,O,M,O,T,O,N
2510 DATA 6,B,L,I,G,H,T
2520 DATA 3,S,I,X
2530 DATA 4,C,A,L,L
2540 DATA 9,P,S,Y,C,H,O,T,I,C
2550 DATA 8,N,E,U,R,O,T,I,C
2560 DATA 7,A,N,X,I,E,T,Y
2570 DATA 7,S,Y,M,P,T,O,M
2580 DATA13,H,Y,P,O,C,H,O,N,D,R,I,A,C
2590 DATA 6,P,H,O,B,I,A
2600 DATA 9,O,B,S,E,S,S,I,O,N
2610 DATA10,C,O,M,P,U,L,S,I,O,N
2620 DATA 8,H,Y,S,T,E,R,I,A
2630 DATA 7,A,M,N,E,S,I,A
2640 DATA13,S,C,H,I,Z,O,P,H,R,E,N,I,A
2650 DATA 9,P,R,O,G,N,O,S,I,S
2660 DATA 8,P,A,R,A,N,O,I,D
2670 DATA 9,C,A,T,A,T,O,N,I,C
2680 DATA 7,A,L,C,O,H,O,L
2690 DATA -103
2700 END