60 Wordgram
240 LOCATE 1,24:PRINT CHR$(18);:LOCATE 1 ,24:INPUT G$:G$=UPPER$(6$):IF G$=W$ THEN
FOR X=1 TO LW:L(X)=1:NEXT:GOTO 100
250 FOR X=1 TO LEN(G$):IF MID$(G$,X,1)<" A" OR MID$(6$,X,1)>"Z" THEN 240
260 NEXT X:LOCATE 1,19:PEN 2:PRINT" WRON G WORD-KEEP TRYING ";:PEN 1:GOTO 1 80
270 IF A$="?" OR A$="/" THEN FOR X=1 TO LW:LOCATE 2*X+3,10:PRINT MID$(L$,X,1);:N EXT X:GU=1:GOTO 1100
280 PRINT A$
290 LOCATE 1,19:PRINT STRING$(27,32)
300 IF A$‹"A" OR A$›"Z" THEN LOCATE 1,19 :PRINT"	LETTERS ONLY PLEASE	":GO
TO 190
310 FOR X=1 TO LW:IF A$<>MIDS(L$,X,1) TH EN 340
320 IF L(X)=1 THEN SOUND 1,100,3:LOCATE 1,19:PEN 2:PRINT"ALREADY GUESSED CORRECT LY	";:PEN 1:GOTO 190
330 L(X)=1:R=1
340 NEXT X
350 IF R=1 THEN SOUND 1,200,3:LOCATE 1,1 9:PEN 2:PRINT "*** YES ***";:PEN 1:R=0:G S=GS+1:GOTO 90
360 FOR X=1 TO LEN(I$):B$=MIDS(I$,X,1):I F B$=A$ THEN SOUND I,128,3:LOCATE 1,19:P EN 2:PRINT"ALREADY GUESSED WRONGLY
";:PEN 1:GOTO 190
370 NEXT X
380 GS=GS+1:SOUND 1,100,3:LOCATE 1,19:PE N 3:PRINT"*** NO ***":PEN 1:1$=I$+A$:LOC ATE 2,14:PRINT I$;:GOTO 190
390 REM
400 CLS:FOR X=1 TO LW:L(X)=0:NEXT:G$="" 410 L$=""
420 FOR X=1 TO LW
430 Q=INT(RND*LW+0.999):IF L(Q)=1 THEN 4 30
440 L(Q)=1:L$=L$+MIDS(W$,G1,1)
450 LOCATE X*2+1,12:PEN 2:PRINT MIDS-(L$, X,1);:PEN 1
460 SOUND 1,165,3