Listing of file='IDS2SUB7' on disk='vmedia/701-2715B.wvd.zip'
# Sector 830, program filename = 'IDS2SUB7' 0015 DEFFNJ(Q)=VAL(F9$,2)+Q 3803 D=MOD(P,1E3)+T*365+INT((T-1)/4) 3805 H=1 : T=INT(D/365.25) : P,R=D-INT(365.25*(T-1))-365 : T=MOD(T,100) : IF B=5THEN D=T*1E3+R : IF MOD(T,4)=0AND R>59THEN R=R-1 : CONVERT DTO E$,(#####) : F9$=BIN(R,2) : MAT SEARCH@E4$()<4>,>=STR(F9$,,2)TO F9$STEP 5 : M=FNJ(4)/5 : CONVERT TTO F9$,(##) : IF M=2THEN R=P : IF M>1THEN R=R-VAL(STR(@E4$(M-1),4),2) : CONVERT MTO E4$,(##) : F3$=STR(@E4$(M),,3) 3821 CONVERT R TO E7$,(##) : IF B=2THEN E$=E7$&E4$&F9$ : IF B=3THEN E$=F3$&" "&E7$&" "&F9$ : IF B=4THEN E$=E7$&" "&F3$&" "&F9$ : E4$=E4$&E7$&F9$ : IF B=1THEN E$=E4$ : Q=D : E4$()=E$ : RETURN 3831 DEFFN'56(E8$,A) : B=A : H=0 : GOSUB 3838 : IF E8$=E$AND E$>" "THEN H=1 : RETURN 3838 DEFFN'57(E8$,A,B) : S=B : B=A : IF A<5THEN 3850 : IF VER(E8$,"#####")<5THEN 3848 : IF A=5THEN 3846 : CONVERT E8$TO D : GOTO 3805 3846 $UNPACK(F=HEX(10021003))E8$TO T,P : GOTO 3803 3848 H,Q=0 : GOSUB '38(13,E8$) : RETURN 3850 IF A>2THEN 3866 : IF VER(E8$,"######")<6THEN 3848 : $UNPACK(F=HEX(100210021002))E8$TO M,P,T : ON AGOTO 3857 : R=M : M=P : P=R 3857 M=MOD(M-1,12)+1 : IF M>1THEN P=P+VAL(STR(@E4$(M-1),4),2) : IF M>2AND MOD(T,4)=0THEN P=P+1 : P=P+T*1E3 : GOSUB 3803 : IF E8$<>E$THEN 3848 : IF S=BTHEN RETURN : B=S : GOTO 3805 3866 E7$=" " : IF B=3THEN $UNPACK(F=HEX(A00410031002))E8$TO E7$,P,T : IF B=4THEN $UNPACK(F=HEX(1003A0041002))E8$TO P,E7$,T : MAT SEARCH@E4$(),=STR(E7$,,3)TO F9$STEP 5 : IF FNJ(0)=0THEN 3848 : M=FNJ(4)/5 : GOTO 3857