Wordg ram 63
1130 LOCATE 1,14:PRINT CHR$(18);
1140 LOCATE 1,19:PRINT CHR$(20);
1150 LOCATE 1,19:PRINT MID$(STR$(GS),2); " GUESSES ";MIDS(STR$(RG),2);" WO RDS RIGHT";:LOCATE 3,21:PEN 2:PRINT"PRES S ANY KEY FOR NEXT WORD";:PEN 1
1160 IF INKEY$<>"" THEN 1160
1170 IF INKEY$="" THEN 1170 ELSE I$="":6 U=0:GS=0: CLS:GOTO 1270
1180 REM INITIALISE
1190 GS=0:GU=0:R=0:RG=0:S=0: 1$=" " 1200 A$(1)="GATELINKBUSHEDGEPLANAUNTPINE LEAFWITHMILESTEPPEST"
1210 A$(2)="CHAIRNIECEGRASSPIANOCELLORAD IONYLONMANORBRICKAPPLERIVERSPICE"
1220 A$(3)="FAMILYPALACEPLAQUECINEMAWIND OWFLOWERFATHERSISTERFRIENDPEANUTMINUTEMI DDLE"
1230 A$(4)="PENDANTOMNIBUSCARAVANFEATHER DIAMONDMASONRYCHIMNEYPACKAGEMUSTARDSWALL OWBICYCLEBISCUIT"
1240 A$(5)="CHILDRENNECKLACEPOSTCARDPANO RAMAMATERIALFARMYARDBLUEBELLTHOUSANDPROS PECTELECTIONMULTIPLYDIVIDEND"
1250 A$(6)="WATERFALLFURNITUREBOOKSHELFA EROPLANEPINEAPPLENEWSPAPERGRAPEVINEDESTI TUTEFANTASTICPHOTOCOPYDORMITORYTELEPHONE
1260 A$(7)="BENEFACTORHEREDITARYPARLIAME NTELEMENTARYGREENHOUSESTRAWBERRYSOMERSAU LTSUPPLEMENTHENCEFORTHELECTRICALCOMPENSA TEGRADUATION"
1270 CLS #1:WINDOW #0,5,36,1,25:PAPER #0 ,0:PEN #0,1:CLS #0
1280 LOCATE 9,2:PEN 2:PRINT"W O R D G R A M":PEN 1
1290 LOCATE 1,5:PRINT"Press any number u p to nine for the MINIMUM number of lett ers	which you want in the word";:PEN 3
:LOCATE 1,10:PRINT"Or press 'S' for six-
or-less	letters";:PEN 1:LOCATE 1,14:P
RINT"Press 'P' to enter your own word" 1300 IF INKEY$<>"" THEN 1300
1310 A$=INKEY$:IF A$="" THEN 1310 ELSE A $=UPPER$(A$)