}}d## B(2),FNB(3),FNB(4),FNB(5), FNB(6),FNB(7) 660X1%=12:S$dd###% DIFF:###% RIGHT:###% EASY:###% VERY EASY:###%" 670 Z1%=41:%,USINGS$Kd}ddKKd2dKB(5) 680 X1%=17:S$=S9$+ "VERY SLOW:###% SLOW:###% RIGddKKdKd:###%" 690 Z1%=42:%,USINGS$,42,S8$(42),FNB(1),FNB(2),FNB(3),FNB(422(<222<<((2% ABV AVG:###% AVG:###% BEL AVG:###% VER LITL:###%" 710 Z1%=43 d2Kd2KKdKB(2),FNB(3),FNB(4),FNB(5) 720 X1%=45:S$=S9$+ "TOO MANY:###% dddKKK TOO FEW:###%" 730 Z1%=44:%,USINGS$,44,S8$(44),FNB(1),FNB(2),dd2dddTAB(114);C7$;TAB(122);:%,USING"###",(R1%+1)/2:RETURN 745 GOTO 13dd2dddR<>14THENRESUME 920 931SLEEP3:Z9=Z9+1:IFZ9<10THENRESUME 940 CLOSE 222TO950 950CLOSE4%960END dd0 ELSE F$=F$+ ".BAS":GO TO 300 200 IF I%=1 THEN 220 210 F$=LEFT(F1$,I%-1) 22(((<(<(Kd30 IF C%=83% THEN CLOSE 3%:GO TO 1100 240 IF C%=79% THEN CHAIN F$ 327KdKdKN CHAIN F$ 260 PRINT "ILL SWI!" 270 GO TO 170 280 PRINT "ERR #";ERR;"ON FIL222SUME 170 300 OPEN F$ FOR INPUT AS FILE 1 310 PRINT "*";:INPUT #3%,Z$ 320 Z%=INSTR(1222KKdK THEN Z$=Z$+"+":GO TO 320 340 S1%=VAL(LEFT(Z$,Z%-1)):S2%=VAL(RIGHT(Z$,Z%+1)) 350 IF S1 KK2d2K}ddKKKEN S2%=10% 370 ON ERROR GO TO 410 380 PRINT "PASS 1" 390 L1%= dKKKd2dKTO 390 410 IF ERR=11% THEN RESUME 420 ELSE 280 420 ON }dd}dF$ FOR INPUT AS FILE 1 440 PRINT "PASS 2" 450 OPEN "DK0:RESEQ.TMP" FOR O222KddL%:IF L1%=0% THEN 460 470 CHANGE L$ TO O% 480 T%=T%+1:N%=1:D%=FNP%(S2% }Kd}dKd%=0% 500 S$=" " 510 FOR O%=X% TO O%(0%) 520 C%=O%(O%) dKKdd2d% THEN N%(N%)=10%:N%(N%+1)=13%:N%(N%+2%)= 0%:O%=O%+2%:N%=N%+3%:GO TKddKdKd}KKKd2dK2 560 IF Q1% OR Q2% THEN 710 570 I}dKd}ddKKKKKd 640 580 IF C%=39% THEN Q1%=-1%:GO TO 640 590 IF C%=ddKK}Kd}dWKdWK0 610 S$=RIGHT(S$,2%)+CHR$(C%) 620 I dKKKd2dKR%=-1%:GO TO 640 630 IF INSTR(1%,"GOTO OSUB THEN ELSE SUME ERL= RL<>",S }dKdd2Kd0 N%=N%+1 660 NEXT O% 670 N%(0%)=N%-1 680 CHANGE N% TO N$690 PRIN22Kd 460 710 IF Q1% THEN IF C%=39% THEN Q1%=0% 720 IF Q2% THEN IF C%=3d}Kd2dO 640 740 IF C%>47% AND C%<58% THEN N8%=N8%*10%+C%-48%:O%=O%+1: C%=O%(O%N7%=-1%:KddTHEN N9%=0%:GO TO 530 760 N7%=0% 770 IF N8%=0% THEN D%=FNP%(0%GO TO 860 780 FOR X%=1 TO L% 790 IF L%(X%)=N8% THEN 850 800 NEXT X% 810 PRINT "LINE NUMBER";N8%;"NOT FOU dd"; S2%*(T%-1)+S1%;")" 820 N%(N%),N%(N%+1),N%(N%+2%)=ASCII("?") 830 N%=N%+3% Kd}ddKKd2dK 860 N8%=0%:C9%=-1%: GO TO 530 870 IF ERR<>11% THEN RESUddKKdKd); 890 CLOSE 1,2% 900 KILL F$ 910 NAME "DK0:RESEQ.TMP" AS F$ 920 T22dd2d22Kd40 DEF FNL% 950 L$="" 960 INPUT LINE #1,L1$:L$=L$+L1$:IF ASCII}ddK2K2(( < <(=0% 980 FOR X%=1 TO LEN(L$) 990 I%=INSTR(1," 0123456789",MID( KdKddOF POINTSZX,Y04:19 PM29-Oct-7404:21 PM29-Oct-74dddKKKdK2KKdK2KKdKd}dK2KdddKd}KdddK22 Kd}ddKKKKKdL|^ *4+ /Il\p22Kd(I5%)=32% 550 NEXT I5%: CHANGE A5% TO A5$:PRINT #2%,A5$:GOTO 532d580:PRINT #2%,CHR$(26%):CLOSE 1%,2%: GOTO 599 580 FOR I5%=1% TO 3%: PRINKdd%=1% TO 72%:PRINT #2%: NEXT I5%:RETURN 590 IF ERR=11% THEN RESUME 5222d0 599 GOTO 30000 600 ! EXPAND I SUBROUTINE 610 ONddKKdd}d2d2LEFT(A0$,66%) 630 PRINT #2%,CHR$(14%);A0$ FOR I6%=1% DK0:X,Y#OF PAIRS OF POINTSZEXITA1DK0:ALPH.DATDK0:01:35 PM26-Dec-74P 150 END dd2dd2d22Kd2KdDK0:ALPH.DATEXIT#OF PAIRS OF POINTSZX,Y08:31 AM27-Dec-74PddP