Back to Main page.
Back to Main tapes page.
5  REM*****BY BILL MCFADDEN ON 12/1/76*****
6  REM*****LAST ACCESS 12/8/76*****
7  REM*****HELPS FIGURE OUT CROSSWORD PUZZLES*****
10  DIM A$[72],B$[72],C$[72]
20  FILES CROSWD
30  IF  END #1 THEN 370
40  READ #1;B$
50  IF  END #1 THEN 110
60  PRINT "INPUT YOUR WORDS"
70  LINPUT A$
80  IF A$="" THEN 120
90  PRINT #1;A$
100  GOTO 70
110  PRINT "MAXIMUM HAS BEEN REACHED"
120  PRINT "."'7" ";
130  LINPUT A$
140  IF A$[1,2]="R:" THEN 270
150  IF A$="" THEN 390
160  READ #1,1
170  IF  END #1 THEN 120
180  READ #1;B$
190  IF LEN(A$)#LEN(B$) THEN 180
200  FOR A=1 TO LEN(A$)
210  IF A$[A,A]="-" THEN 230
220  IF A$[A,A]#B$[A,A] THEN 180
230  NEXT A
240  IF B$[1,1]=" " THEN 180
250  PRINT B$
260  GOTO 180
270  READ #1,1
280  IF  END #1 THEN 370
290  READ #1;B$
300  IF A$[3,LEN(A$)]#B$ THEN 290
310  I=ITM(1)
320  READ #1,1
330  ADVANCE #1;I-1,B
340  IF B#0 THEN 370
350  UPDATE #1;""
360  GOTO 120
370  PRINT "IT CANNOT BE REMOVED"
380  GOTO 120
390  END