62 Word g ram
760 L(X)=1:GL=GL+1:MIDX(U$,GL,1)=A$:P(GL )=GL-FZ
770 FOR X=1 TO LW:B$=MID$(L$,X,1):IF L(X )=1 THEN B$=" "
780 LOCATE 2*X+1,12:PEN 2:PRINT B$;:PEN 1
790 NEXT X
Boo LOCATE 15+P(GL),9:PEN 2:PRINT MID$(U $,GL,1);:PEN 1
810 IF GL<>LW THEN 530
820 REM NEXT GUESS
830 GS=GS+1
840 GG=50
850 FOR X=1 TO LW:IF P(X)<=GG THEN GG=P(
X)-1
860 NEXT X
870 FOR X=1 TO LW 880 FOR Y=1 TO LW
890 IF P(Y)=X+GG THEN G$=G$+MID$(U$,Y,1) 900 NEXT Y,X
910 LOCATE 2,15: PRINT"
920 IF G$=W$ THEN 1100
930 FOR X=1 TO LW 940 B$=MID$(6$,X,1) 950 MID$(L$,X,1)=B$
960 LOCATE 2*X+1,12:PEN 2:PRINT MIDS(L$, X,1);:PEN 1
970 NEXT X
980 GOTO 480
990 REM WORD ENDING 1000 FZ=GL
1010 FOR X=1 TO GL 1020 P (X) =LW+X-GL 1030 NEXT X
1040 LOCATE 2,9:PRINT CHR$(18);
1050 FOR X= 1 TO GL:LOCATE 15+P(X),9:PEN 2:PRINT MID$(U$,X,1);:PEN 1
1060 NEXT X
1070 FY=1
1080 GOTO 530
1090 REM END GAME
1100 IF GU=1 THEN 1140
1110 RG=RG+1
1120 LOCATE 23,12:PEN 2:PRINT"CORRECT":P EN 1