Wordgram
Two versions are included here of a very popular word game. Watch the letters move about the screen as you try to solve the jumbled version of the game. The program allows you to select word endings — a technique frequently used by crossword experts. You may also enter your own words for solution by someone else.
10 REM WORDGRAM
20 REM MICHAEL BEWS
70 MODE 1: BORDER 0: INK. 0,0: INK 1,24: INK 2,20: INK 3,6:WINDOW #1,1,40,1,25:PAPER 1,0:PEN #0,1:CLS #1
40 DIM A$(7) ,L(16) ,P(16)
GOTO 1190
60 REM NORMAL GAME
70 CLS: LOCATE 6,1: PEN 2: PRINT CHR$ (24) ; " W O R D G R A M" ; CHR$ (24) ; : PEN 1
80 FOR X=1 TO LW: L (X) =0: NEXT: LS=W$ 90 REM
100 FOR X=1 TO LW:IF L ( X ) =1 THEN LOCATE X*2+3,10:PRINT MIDS(L$,X,1);
110 NEXT X
120 FOR X= 1 TO LW:LOCATE 24-X+3,11. PRINT "	; : NEXT
130 FOR X=1 TO LW:IF L (X) =0 THEN 160 140 NEXT X
150 GOTO 1100: REM GAME COMPLETE
160 LOCATE 1,13: PEN 3: PR INT"WRONG GUESSE S: " ; : PEN 1
170 LOCATE 2,14:PRINT 1$;
180 LOCATE 1,21: PRINT"PRESS SPACE TO GUE SS THE WORD	AND ' ? ' KEY TO RESIGN";
190 LOCATE 2,16: PR INT"?"
200 IF INKEY$< .>" " THEN 200
210 A$=INKEYS: IF A$="" THEN 210 ELSE A$= UFF'ER$ (A$)
220 IF As< > " " THEN 270
230 LOCATE 1,19: PRINT"ENTER YOUR GUESS W ORD NOW