|  "HIDDEN WORDS II"2NU$"": No spaces between quotes<SL$" ": One space between quotesFEC$" ": One space between quotesPLC$"#":ZQT$("): Double quoteYd "How many rows(1-50)";MR|n "How many columns (1-50)";MCx MR MR2 MC MC2 dNCMRMCNW WD$ WD$"/" NWNW  ND8 M$(MR,MC), RI(ND), CI(ND), SQ(NC), WD$(NW), WU(NW), WQ(NW)>M J NWZ WD$(J)b Jl WD$u ND J ND RI(J),CI(J)" J, "Erasing the puzzle grid."6 J MR@ K MCJ M$(J,K)EC$ M$(J,K)LC$T K^ J)h "Puzzle design menu"Jr " 1-Print current design"r| " 2-Change design from keyboard" " 3-Load new design from disk" " 4-Save design to disk" " 5-Generate a puzzle" " 6-End" CH CH CH h* CH ,,,p,, q ( :  : Let user specify alternate output device & select it}MG$NU$    : Restore normal output device h "Enter starting row (SR) and ending row (ER)"  "1 <= SR <=ER <=";MR' "(Enter 0,0 for Menu)"3 SR,ERK& ER SR hl0 SR ERMR ERSR : "Enter starting column (SC) and ending column (EC)"D "1 <= SC <= EC <=";MCN SC,ECX SC ECMC ECSC :b "Fill area with: 1-blanks 2-letters"4l "Select 1 or 2";BLNv BL BL bc BL FC$EC$x BL FC$LC$ JSR ER KSC ECM$(J,K)FC$ K J FI$NU$ "Name the input file: ";FI$ FI$NU$ h "I",,FI$% J MR4 K MCF> #, M$(J,K)NH KVR J^\ hf htpFO$NU$z "Name the output file: ";FO$ FO$NU$ h "O",,FO$ J MR K MC #,QT$;M$(J,K);QT$ K J  ; "The design is stored in disk file ";FO$E hc "Sorting the word list"r J NW~WQ(J)J JSF J NW$ (WD$(WQ(J))) (WD$(WQ(J))) V.TWQ(J)8WQ(J)WQ(J)BWQ(J)TLSF V J` SF ?j "Shuffling the cell numbers"Nt J NCZ~SQ(J)b Jq J NCQ(()NC) SQ(Q) O SQ(Q)J J J NWWU(J) J "Filling in the puzzle"PQP WANW# DI(()ND)4 "Pass #";P@QPQPI(NFW2CPSQ(QP)n<CR((CP)MC)FCCCP(CR)MCP M$(CR,CC)EC$ (P M$(CR,CC)LC$) XZ WA dn "Used all the words"x >QWWQ(Q)W$WD$(W)!WL(W$)*DKBRXCR(WL)RI(DI)ZCXCC(WL)CI(DI) RX RXMR CX CXMC NFPRCRPCCC L WLT$M$(PR,PC) T$EC$ , T$LC$ @L$(W$,L,) " L$T$ @,LWL6NF,@PRPRRI(DI)=JPCPCCI(DI)ET LV^ NF `hPRCRjrPCCCy| L WLM$(PR,PC)(W$,L,)PRPRRI(DI)PCPCCI(DI) L QWA  JQ WAWQ(J)WQ(J) JWAWAWU(W)(DI)NCCP)DIDI< DIND DIF XX DKND :dDKDKpDIDI& DIND DI0 : QWA XDQQN X NF "C";b NF "W";l QPNC  v {K$ K$NU$ 2 "Puzzle-in-Progress Menu"S "1-Continue 2-Show puzzle"} "3-Show unused words 4-Random fill" CH CN CH  CH ,,,>MG$NU$    JJ NW WU(JJ) WD$(JJ) JJ  . P >6 P?*QPI4 v> "Filling in the empty cells at random"H CR MRR CC MC\ M$(CR,CC)LC$ pfM$(CR,CC)(()A)p CCz CR "Puzzle completed."7 ( : Ask user to specify output devicec "Press RETURN when ready to print";D$  : Select alternate output deviceMG$SL$    : Restore normal output device  "Press return for hidden word directory ";D$4   : Select alternate output device: X  "The hidden words are:"  "Word"; ); "Row"; ); "Col.";  ); "Direction"  J NW $ WU(J) ` . DI(WU(J)NC) 8 CPWU(J)(DI)NC B CR((CP)MC)!L CCCP(CR)MC" TCD" M" TRS" x"( "OUTPUT TO 1-CRT 2-PRINTER";DV"2 DV DV ( "< " DV ();" " DV ();" " KIRK, TEDDY, MATTHEW, BILL, GINI## PAT, MIKE, SAM, MERF, FRISKY, CURIOUSZ# PACKWOOD, JOSEPH, DAVID, MARY, WILLIAM, THEODOREb# /j#p 8#z 0,1, 1,1, 1,0, 1,-1, 0,-1, -1,-1, -1,0, -1,1SZ# PACKWOOD, JOSEPH, DAVID, MARY, WILLIAM, THEODOREb# /j#p 8#z 0