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