Wordgram 61
470 NEXT X
480 FOR X=1 TO LW:L(X)=0:P(X)=0:NEXT X:U $=SPACE$(LW)
490 FY=0
500 LOCATE 1,19:PEN 3:PRINT"RE-ARRANGE T HE LETTERS NOW	LEFT ARROW TO RETURN
LETTER		RIGHT ARROW FOR WORD ENDING
:?' TO RESIGN.":PEN 1
510 LOCATE 2,9:PRINT CHR$(18);
520 G$="":GL=0:FZ=0
530 IF INKEY$<>"" THEN 530
540 A$=INKEY$:IF A$="" THEN 540 ELSE A$= UPPER$(A$):SOUND 1,200,3
550 LOCATE 2,11:PRINT CHR$(18);
560 LOCATE 1,10:PRINT SPACE$(64);; 570 IF GL=0 THEN FY=0
580 IF A$=CHR$(242) THEN IF GL<1 THEN 53 0 ELSE 630
590 IF A$=CHR$(243) THEN IF FY=0 THEN 1 000 ELSE 530
600 IF A$="?" OR A$="/" THEN LOCATE 2,14 :PRINT "WORD WAS "04$;:GU=1:GOTO 1100 610 LOCATE 2,14:PRINT"(";AW)";
620 GOTO 690
630 FOR X=1 TO LW:IF MID$(L$,X,1)<>MID$( U$,GL,1) OR L(X)<>1 THEN NEXT X
640 L(X)=0:MID$(U$,GL,1)=" ":LOCATE 15+P (GL),9:PRINT " ";:P(GL)=0:GL=GL-1
650 FOR Y=1 TO LW:B$=MID$(L$,Y,1):IF L(Y )=1 THEN B$=" "
660 LOCATE 2*Y+1,12:PEN 2:PRINT B$;:PEN 1
670 NEXT
680 GOTO 530
690 IF A$‹"A" OR A$›"Z" THEN LOCATE 6,11 :PRINT"AGAIN!";:GOTO 530
700 FOR X=1 TO LW
710 IF MID$(L$,X,1)=A$ AND L(X)=0 THEN 7 60
720 NEXT X
730 LOCATE 2,11:PRINT"NO ";A$;" AMONGST REMAINING LETTERS"
740 GOTO 530
750 REM MOVE LETTERS