1!
	WORKSHEET COMPUTATIONS

5 DEF FNK$=NUM$(ASCII(RIGHT(SYS(CHR$(6)+CHR$(9)),2%))/2%)
6 OPEN "ENTRY." + FNK$ AS FILE 4:DIM#4,A(63,1)
8 OPEN "SAVE." + FNK$ FOR OUTPUT AS FILE 5:DIM#5,S(42)
9DIMA1(80)
57 V$=SYS(CHR$(7))
59 C9$=LEFT(V$,4):R9%=CVT$%(MID(V$,5,2))
61 K%=CVT$%(MID(V$,7,2)):V$=RIGHT(V$,9)
65 I%=INSTR(1%,V$,"/"):N$=LEFT(V$,I%-1%)
70 V$=RIGHT(V$,I%+1%):I%=INSTR(1%,V$,"/")
80 C1$=LEFT(V$,I%-1%):D1$=RIGHT(V$,I%+1%)
100 IF K% <=0% THEN 290
130A1(ABS(A(J%,0%)))=A1(ABS(A(J%,0%)))+A(J%,1%) FOR J%=1% TO K%
170 S (I%) = 0 FOR I % = 1% TO 40%
180 FOR J%=1% TO 80% STEP 2%
190 D5=A1(J%)-A1(J%+1%)
200 C5 = ABS (D5)
210 IF C5<.01 THEN 280
220 K1% = (J% + 1%) /2%
230 IF D5<=0 THEN 260
240 D=D+D5
250 S ( K1%) = -D5: GO TO 280
260 C = C + C5
270 S (K1%) = C5
280 NEXT J%
285 S(41)=D: S(42)=C
290 V$=SYS(CHR$(8)+CVT%$(K%)+N$+"/"+C1$+"/"+D1$):CLOSE 3,4,5:
	CHAIN"$"+C9$R9%
300 END