10 CLS
20 PRINT"HANGMAN!"
30 PRINT"CAN YOU SPELL"
40 PRINT"THE HIDDEN WORD?"
50 T=VAL(RIGHT$(TIME$,2))
60 RANDOMIZE T
70 DIMA(8,10,4),K(26)
80 DIMW$(30)
90 P=1:E=0
100 READN
110 IF N=0 THEN 220
120 IF N>0 THEN 160
130 N(E)=P
140 E=E+1:P=1
150 GOTO100
160 A(E,P,1)=N
170 FOR Z=2 TO 4
180 READ A(E,P,Z)
190 NEXT
200 P=P+1
210 GOTO100
220 W=1:N(8)=P-1
230 READ W$(W)
240 IF W$(W)="END" THEN 260
250 W=W+1:GOTO 230
260 CLS
270 GOTO 350
280 FOR Y=1 TO N(X)
290 FOR Z=1 TO 4
300 D(Z)=A(X,Y,Z)
310 NEXTZ
320 LINE(D(1),D(2))-(D(3),D(4)),PSET
330 NEXT
340 RETURN
350 REM
360 LOCATE0,0
370 PRINT"HANGMAN!!"
380 FOR X=1 TO 8
390 GOSUB 280
400 NEXT
410 PRINT:PRINT"PRESS ANY"
420 PRINT"KEY TO START";
430 IF INKEY$="" THEN 430
440 CLS:FORX=1TO26:K(X)=0:NEXT
450 ER=0:CQ=0
460 PRINT"HANGMAN!!"
470 GOSUB 1190
480 LOCATE0,3
490 FOR X=1 TO LEN(W$)
500 PRINT"_";
510 NEXT
520 I$=INKEY$
530 IF I$="" THEN 520
540 W=ASC(I$)-64
550 IF W>26 OR W<1 THEN520
560 CA=0
570 IF K(W)=1 THEN 700
580 FOR X=1TO LEN(W$)
590 IF I$=MID$(W$,X,1)THEN 630
600 NEXT
610 IF CA=1 THEN520
620  K(W)=1:GOTO 790
630 LOCATEX-1,3
640 K(W)=1
650 PRINT I$;
660 CA=1
670 CQ=CQ+1
680 IF CQ=LEN(W$) THEN 1220
690 GOTO600
700 REM
710 LOCATE0,1
720 PRINT"YOU PICKED"
730 SOUND 2,2
740 PRINT"THAT ONE!";
750 FOR T=1 TO200:NEXT
760 LOCATE0,1:PRINT"          "
770 PRINT"         ";
780 GOTO520
790 LOCATE0,2
800 PRINT"WRONG!"
810 SOUND 2,2
820 FORT=1TO 200:NEXT
830 LOCATE0,2
840 PRINT"      "
850 ER=ER+1:X=ER:GOSUB280
860 IF ER=8 THEN 1290
870 GOTO 520
880 REM*R LEG
890 DATA -1,100,22,100,29
900 DATA 101,22,101,29
910 DATA-2,81,22,81,29
920 DATA 82,22,82,29
930 DATA-3,81,22,101,22
940 DATA 81,21,101,21
950 DATA-4,102,29,109,29
960 DATA 102,28,109,28
970 DATA 102,27,107,27
980 DATA 102,26,107,26
990 DATA 102,25,105,25
1000 DATA 102,24,105,24
1010 DATA 102,23,103,23
1020 DATA 102,22,103,22
1030 DATA -5,86,6,86,21
1040 DATA 87,6,87,21
1050 DATA -6,86,5,96,5
1060 DATA 86,4,96,4
1070 DATA -7,95,6,95,8
1080 DATA-8,93,9,95,9
1090 DATA 93,9,93,11
1100 DATA95,9,95,11
1110 DATA93,11,95,11
1120 DATA 94,12,94,17
1130 DATA 93,13,90,15
1140 DATA 95,13,98,15
1150 DATA 95,13,98,15
1160 DATA 93,17,92,19
1170 DATA 95,17,96,19
1180 DATA0
1190 P=INT(RND(1)*W)+1
1200 W$=W$(P)
1210 RETURN
1220 REM**WIN
1230 LOCATE0,2
1240 PRINT"YOU LIVE!"
1250 FOR T=1 TO 8:SOUND T,1:NEXT
1260 COPY
1270 FOR T=1 TO1500:NEXT
1280 GOTO440
1290 REM**LOSE
1300 LOCATE0,1
1310 PRINT"YOU DIE!!"
1320 FOR T=8 TO 1 STEP-1:SOUND T,1:NEXT
1330 PRINTW$;
1340 COPY
1350 FOR T=1 TO1500:NEXT
1360 GOTO 440
1370 DATA EPSON,COMPUTER,SPELLING
1380 DATA CHAIR,SCHOOL,PAPER
1390 DATA BOOK,CASSETTE,PICTURE
1400 DATA FIREPLACE,MOTHER,RADIO
1410 DATAMEMORY,SYNTHESIS,CHARACTER
1420 DATACOLOR,SPEECH,SPECIAL
1430 DATAFUTURE,ESCAPE,SOFTWARE
1440 DATAADVENTURE,ARTSCI,VICTORY
1450 DATAPROGRAM,DYNAMIC,FACTORY
1460 DATA END