64 Wordgram
1320 SOUND 1,120,3
1330 IF A$<>"P" THEN 1380
1340 LOCATE 1,19:PEN 2:PRINT CHR$(24);" ENTER YOUR WORD NOW	";CHR$(24);:
PEN 1
1350 LOCATE 1,24:PRINT CHR$(18);:LOCATE 1,24:INPUT W$:IF W$="" THEN 1350 ELSE W$ =UPPER$(W$):LOCATE 4,21:PRINT CHR$(18); 1360 FOR X=1 TO LEN(W$):IF MID$(W$,X,1)< "A" OR MID$(W$,X,1)>"Z" THEN LOCATE 4,21 :PRINT CHR$(24);"PLEASE REDO";CHR$(24);: GOTO 1350
1370 NEXT X:GOTO 1460
13s0 IF A$="S" THEN S=INT(RND*3)+1:GOTO 1430
1390 IF A$<"0" OR A$>"9" THEN 1300 1400 S=VAL(A$)-3
1410 IF S<1 THEN S=1
1420 IF S=6 THEN S=S+INT(RND+0.5)
1430 N=INT(RND*12+1)
1440 W$=MIDS(AS(S),(N-1)*(S+3)+1,S+3) 1450 CLS #1
1460 LOCATE I,19:PEN 3:PRINT"PRESS J (JU MBLED) OR N (NORMAL)";:PEN 1:LW=LEN (WS) 1470 IF INKEY$<>"" THEN 1470
1480 REM
1490 A$=INKEY$:IF A$="" THEN 1490 ELSE A S=UPPERS(A$)
1500 IF A$="J" THEN 390 ELSE IF A$<>"N" THEN 1470
1510 GOTO 60