1 DEF SEG=&H40:X=PEEK(&H17):X=X OR &H40:POKE &H17,X: 'Upper Case Letters
10 KEY OFF:CLS:WIDTH 40
12 LOCATE 7,1
14 PRINT "        Press 4 for 40 columns"
16 PRINT "        Press 8 for 80 columns";:LOCATE ,,0
18 X$ = INKEY$:IF X$<>"4" AND X$<>"8" THEN GOTO 18
20 IF X$ = "4" THEN GOTO 24
22 IF X$ = "8" THEN WIDTH 80
24 CLS:LOCATE 4,15,0:PRINT "HANGMAN"
25 LOCATE 6,5:PRINT"Original by CREATIVE COMPUTING"
26 LOCATE 8,1:PRINT"Modified for the IBM PC by Chris Jordan":PRINT:PRINT:PRINT
27 RANDOMIZE VAL(MID$(TIME$,7,2))
28 NUMWORDS%=66
30 DIM P$(13,12),L$(20),D$(20),N$(26),U(NUMWORDS%)
40 C=1:N=NUMWORDS%
42 LOCATE 23,7:COLOR 23,0:PRINT"Press SPACE BAR to continue.":COLOR 7,0:POKE 106,0
43 CMD$=INKEY$:IF CMD$<>" " THEN 43
45 LOCATE 23,7:COLOR 7,0:PRINT SPACE$(30);
50 FOR I=1 TO 20:D$(I)="-":NEXT I:M=0
60 FOR I=1 TO 26:N$(I)="":NEXT I
70 FOR I=1 TO 12:FOR J=1 TO 12:P$(I,J)=" ":NEXT J:NEXT I
80 FOR I=1 TO 13:P$(I,1)=CHR$(219):NEXT I
90 FOR I=1 TO 7:P$(1,I)=CHR$(220):NEXT:P$(2,7)=CHR$(179)
95 IF C<N THEN 100
97 PRINT "YOU DID ALL THE WORDS !!!":GOTO 999
100 Q=INT(N*RND(1))+1
110 IF U(Q)=1 THEN 100
115 U(Q)=1:C=C+1:RESTORE:T1=0
150 FOR I=1 TO Q:READ A$:NEXT I
160 L=LEN(A$):FOR I=1 TO LEN(A$):L$(I)=MID$(A$,I,1):NEXT I
170 CLS:LOCATE 3,1:PRINT "HERE ARE THE LETTERS YOU USED:"
180 FOR I=1 TO 26:PRINT N$(I);:IF N$(I+1)=""THEN 200
190 PRINT ",";:NEXT I
200 PRINT :PRINT :FOR I=1 TO L:PRINT D$(I);:NEXT I:PRINT :PRINT
210 INPUT "WHAT IS YOUR GUESS";G$:R=0
220 FOR I=1 TO 26:IF N$(I)=""THEN 250
230 IF G$=N$(I)THEN COLOR 23,0:PRINT :PRINT "YOU GUESSED THAT LETTER BEFORE !!":COLOR 7,0:FOR RR=1 TO 3000:NEXT RR:GOTO 170
240 NEXT I:PRINT "Program error. Run again.":STOP
250 N$(I)=G$:T1=T1+1
260 FOR I=1 TO L:IF L$(I)=G$ THEN 280
270 NEXT I:IF R=0 THEN 290
275 GOTO 300
280 D$(I)=G$:R=R+1:GOTO 270
290 M=M+1:GOTO 400
300 FOR I=1 TO L:IF D$(I)="-" THEN 320
310 NEXT I:GOTO 390
320 PRINT :FOR I=1 TO L:PRINT D$(I);:NEXT I:PRINT :PRINT
330 INPUT "WHAT IS YOUR GUESS FOR THE ** WORD ** ";B$
340 IF A$=B$ THEN 360
350 PRINT "WRONG. TRY ANOTHER LETTER.":PRINT :GOTO 170
360 PRINT :PRINT "RIGHT !!! IT TOOK YOU";T1;"GUESSES !!!"
370 PRINT :PRINT :INPUT "  WANT ANOTHER WORD ???";W$:IF W$="Y" OR W$="YES" THEN 50
380 CLS:LOCATE 10,10 :PRINT "IT'S BEEN FUN !    BYE FOR NOW.":GOTO 999
390 PRINT :PRINT "YOU FOUND THE WORD !!":GOTO 370
400 CLS:PRINT :PRINT "SORRY, THAT LETTER ISN'T IN THE WORD."
405 BEEP:FOR DELAY=1 TO 800:NEXT DELAY
410 ON M GOTO 415,420,425,430,435,440,445,450,455,460
415 PRINT "FIRST, WE DRAW A HEAD":PRINT:GOTO 470
420 PRINT "NOW WE DRAW A BODY.":PRINT:GOTO 470
425 PRINT "NEXT WE DRAW AN ARM.":PRINT:GOTO 470
430 PRINT "THIS TIME IT'S THE OTHER ARM.":PRINT:GOTO 470
435 PRINT "NOW, LET'S DRAW THE RIGHT LEG.":PRINT:GOTO 470
440 PRINT "THIS TIME WE DRAW THE LEFT LEG.":PRINT:GOTO 470
445 PRINT "NOW WE PUT UP A HAND.":PRINT:GOTO 470
450 PRINT "NEXT THE OTHER HAND.":PRINT:GOTO 470
455 PRINT "NOW WE DRAW ONE FOOT":PRINT:GOTO 470
460 PRINT "HERE'S THE OTHER FOOT -- YOU'RE HUNG !!!":SOUND 200,10:SOUND 80,10:PRINT
470 ON M GOTO 480,490,500,510,520,530,540,550,560,570
480 P$(3,6)=",":P$(3,7)=",":P$(3,8)=",":P$(4,5)="(":P$(4,6)="."
481 P$(4,8)=".":P$(4,9)=")":P$(5,6)=" ":P$(5,7)="-":P$(5,8)=" ":GOTO 580
490 FOR I=6 TO 9:P$(I,7)=":":NEXT I:GOTO 580
500 FOR I=4 TO 7:P$(I,I-1)="\":NEXT I:GOTO 580
510 P$(4,11)="/":P$(5,10)="/":P$(6,9)="/":P$(7,8)="/":GOTO 580
520 P$(10,6)="/":P$(11,5)="/":GOTO 580
530 P$(10,8)="\":P$(11,9)="\":GOTO 580
540 P$(3,11)="\":GOTO 580
550 P$(3,3)="/":GOTO 580
560 P$(12,10)="\":P$(12,11)="-":GOTO 580
570 P$(12,3)="-":P$(12,4)="/"
580 FOR I=1 TO 13:PRINT TAB(13);:FOR J=1 TO 12:PRINT P$(I,J);:NEXT J
590 PRINT :NEXT I
591 LOCATE 23,7:COLOR 23,0:PRINT"Strike any key to continue.":COLOR 7,0
594 IF INKEY$="" THEN 594
599 IF M<>10 THEN 170
600 CLS:LOCATE 10,1:PRINT "SORRY, YOU LOSE !!   THE WORD WAS ";A$:GOTO 370
700 DATA  "GUM","SIN","FOR","CRY","HID","BYE","FLY"
710 DATA  "DISK","HOST","WORK","TALK","DOWN","DRAW"
720 DATA  "GAMES","MODEM","INPUT","LEARN","RADIO","FAULT","ELBOW"
730 DATA  "BUDGET","ESCORT","QUAINT","PICKLE","FLOPPY","REMOVE","STICKY"
740 DATA  "UTILITY","INSTALL","TENSION","REPLICA","COMMAND","EXAMPLE","DISPLAY"
750 DATA  "INSTRUCT","SOFTWARE","COMPUTER","INFORMED","TERMINAL","PERSONAL"
760 DATA  "TECHNICAL","STRUCTURE","DELIVERED","IMPORTANT","PURCHASED","EXPANSION","TRANSMITTER"
770 DATA  "SIMULATION","MAGISTRATE","DICTIONARY","DOCUMENTED","PERIPHERAL","MAINTENANCE"
771 DATA  "INTERESTED","SUBROUTINE","PARAMETERS","TRANSMITTER","LOUDSPEAKER","INTEGRATOR"
772 DATA  "PARASYMPATHOMIMETIC"
780 DATA  "PROGRAMMING","INTRODUCTION","DOCUMENTATION","TRANSMITTED","SIMULATION","MAINTENANCE"
990 PRINT "BYE NOW"
999 END