1 REM  STRINGS.2
80 POKE53281,15:POKE63280,6
100 PRINT"[147]"TAB(14)"HANGMAN II"TAB(50)"BY MATTHEW OLDHAM"CHR$(142)
110 DIMBB$(21),NS(42),WP(42,6),WC(42),CK(20),AL(25),HN(11),LN(11),DR(11)
120 FORI=1TO21:READBB$(I):NEXTI
130 FORI=1TO42:READNS(I):FORJ=1TONS(I):READWP(I,J):NEXTJ:NEXTI
140 S=54272:POKES+5,0:POKES+6,240:POKES+24,15
150 FORI=0TO25:AL(I)=1230+I:NEXTI
160 FORI=1TO11:READHN(I),LN(I),DR(I):NEXTI
170 POKE53281,15
180 PRINTCHR$(31)
190 PRINTCHR$(147)
200 REM     MAIN LOOP
210 PV=0:FL=0:BW=0:TL=0:WD$=""
220 IFAC>37THENGOSUB370:GOTO250
230 RN=INT(RND(1)*42+1)
240 IFWC(RN)<>0THEN230
250 AC=AC+1:FORJ=1TONS(RN):WD$=WD$+BB$(WP(RN,J)):NEXTJ:TL=LEN(WD$)
260 WC(RN)=1:FORJ=1TOTL:CK(J)=0:NEXTJ
270 PS=1884-INT(TL/2):FORJ=0TOTL-1:POKEPS+J,45:NEXTJ
280 FORJ=0TO39:POKE1784+J,111:NEXTJ
290 PRINT"     WORD";AC;"START"
300 GETLT$:IFLT$=""THEN300
310 PV=ASC(LT$):IFPV<65ORPV>90THEN300
320 GOTO400
330 GOTO300
340 PRINT"     CONGRATULATIONS! YOU ESCAPED!!":FORJ=1TO1500:NEXTJ
350 PRINT"     DO YOU WANT TO PLAY AGAIN?";
352 POKE198,0:WAIT198,1:GETAG$:IFAG$<>"Y"ANDAG$<>"N"THEN352
353 PRINTAG$
354 IFAG$="Y"THEN190
360 :
364 LOAD"STRINGS MENU",8:END
370 IFAC=42THENPRINT"[147]     SORRY, WE'RE ALL OUT OF WORDS."
372 IFAC=42THENFORDL=1TO500:NEXT:GOTO360
380 FORJ=1TO42:IFWC(J)=OTHENRN=J:RETURN
390 NEXTJ:RETURN
400 L$=LEFT$(WD$,1)
410 IFASC(L$)=PVANDCK(1)=0THENCK(1)=1:FL=1:POKEPS,PV-64
420 FORJ=2TOTL-1
430 M$=MID$(WD$,J,1)
440 IFASC(M$)=PVANDCK(J)=0THENCK(J)=1:FL=1:POKEPS+J-1,PV-64
450 NEXTJ
460 R$=RIGHT$(WD$,1)
470 IFASC(R$)=PVANDCK(TL)=0THENCK(TL)=1:FL=1:POKEPS+TL-1,PV-64
475 FORJ=1TOTL:IFCK(J)=OTHEN480
476 NEXTJ:GOTO340
480 IFFL=1THENFL=0:GOTO300
490 SB=PV-65:POKEAL(SB),PV-64:BW=BW+1
495 ONBWGOTO500,510,520,530,540,550,560,570
500 FORJ=1TO10:POKE1800+J,76:NEXTJ:GOTO300
510 FORJ=1TO9:POKE1760+J,160:NEXTJ:POKE1770,101:GOTO300
520 FORJ=1TO6:POKE1722+J,67:NEXTJ:POKE1722,107:POKE1729,115:GOTO300
530 POKE1682,66:POKE1689,66:GOTO300
540 POKE1642,66:POKE1649,66:GOTO300
550 FORJ=1TO6:POKE1602+J,67:NEXTJ:POKE1602,112:POKE1609,110:GOTO300
560 POKE1605,114:POKE1645,93:GOTO300
570 POKE1646,81:POKE1686,91:POKE1726,91
580 FORJ=1TO11:POKES+1,HN(J):POKES,LN(J):POKES+4,17:FORK=1TODR(J):NEXTK
590 POKES+4,16:NEXTJ:PRINT"     THE WORD WAS... ";WD$"         ":GOTO350
600 DATAIN,RE,CO,PRE,I,CA,D,T,S,E,F,R,N,EN,ION,ABLE,CE,A,ANY,M,OU
610 DATA5,6,20,10,12,18,5,4,20,5,10,12,3,20,1,17,3,2,9,8,4,20,5,9,8
620 DATA4,7,2,9,9,3,2,13,8,5,11,12,5,14,7,4,4,9,14,8,4,20,21,9,10,2,20,19
630 DATA3,13,5,17,2,3,1,3,3,9,8,6,2,11,10,12,14,17,5,9,8,2,10,8,3,8,2,10,4
640 DATA4,8,14,7,5,3,13,17,7,10,2,2,1,2,11,16,5,11,5,9,9,15,3,9,3,2,3,9,6
650 DATA13,3,12,5,17,4,18,3,12,13,2,6,2,3,20,5,2,3,8,21,12,4,12,21,8,10
660 DATA4,17,20,14,8,3,11,1,10,4,4,11,10,12,3,3,20,18,4,9,14,9,10,3,6,9
670 DATA8,2,20,14,3,8,14,16,6,4,6,12,5,21,9,5,11,12,18,6,9,4,9,1,17,2,5
680 DATA3,13,9,8,16,22,96,400,22,96,400,22,96,150,22,96,400,28,49
690 DATA400,25,30,150,25,30,400,22,96,150,22,96,400,22,96,150,22,96,400