196 Wordsum
650 LOCATE #1,23-2*LEN(T$),7:PRINT #1,; 660 FOR X=1 TO LEN(TS)
670 PRINT #1, MID$(T$,X,1);"
680 NEXT
690 SD= 120:GOSUB 1060
700 LOCATE #0, 1,20:PRINT #0,"	PRESS
[SPACE] TO REVEAL THE WORD";
710 IF INKEYS<>" THEN 710
720 KS=INKEYS:IF K$="" THEN 720
730 IF K$<>" " THEN 720
740 LOCATE #1,7-LEN(I$),2:PRINT #1, STR$ (I);
750 LOCATE #1,7-LEN(S$),4:PRINT #1,STRS( S);
760 SD= 90:GOSUB 1060
770 LOCATE #1,1,5:PRINT #1,"	
780 LOCATE #1,7-LEN(T$),7:PRINT #1,STRS( T )
790 LOCATE #1,25,7:PRINT #1,;
800 FOR X=1 TO LEWIS)
810 PRINT #1,AS(X);" ";
820 NEXT
830 SD= 120:GOSUB 1060
840 LOCATE #0,1,20:PRINT #0,"	PRESS C
17 FOR ANOTHER WORDSUM
850 IF INKEYS<>"1" THEN 850
860 FOR I= 1 TO 6:C(I)=0:NEXT
e70 GOTO BO
eeo REM INITIALISE SECTION
890 DIM A(10),C(10),A$(10),W$(60)
900 BS=SPACE$(8)
910 LOCATE #0,11,11:PRINT"5 SECONDS TO G 0..."
920 FOR I=1 TO 60
930 WS(I)="
940 NEXT
950 N=1
960 READ W$(N):IF W$(N)="!" THEN N=N-1:R ETURN
970 N=N+1:GOTO 960
980 DATA HEARTH,YELLOW,ENGINE,RABBIT,CAR PET,CLEVER,FEASTS,SHADES,POTATO,RADIOS 990 DATA THAMES,CARROT,TOMATO,CHEESE,BUT TER,RUDDER,HEATER,PLINTH,FARMER,TROPHY