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 C10 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