.DL R_ROW ADDCOL M ;I;L [1] R_((1+.ROROW),1+.ROCOL).RO0 [2] I_1 [3] B1: .GO(0=+/L_ROW[I]=M[;1])/B2 [4] R[I;.IO.ROCOL]_(L/M[;3])+.#(L/M[;2]).SO.=COL [5] B2: .GO((.ROROW).GEI_I+1)/B1 [6] .GO(0=+/L_.NTM[;1].EPROW)/B3 [7] R[1+.ROROW;.IO.ROCOL]_(L/M[;3])+.#(L/M[;2]).SO.=COL [8] B3: R[1+.ROROW;1+.ROCOL]_+/(L&.NTM[;2].EPCOL)#M[;3] [9] .GO(0=+/L_.NTM[;2].EPCOL)/0 [10] R[.IO.ROROW;1+.ROCOL]_(L/M[;3])+.#(L/M[;1]).SO.=ROW .DL BYT_5 .RO 1 2 1 4 8 .DL R_ROW CNTCOL M ;D;I;S [1] R_(1+(.ROROW),.ROCOL).RO0 [2] .GO(0=1^.ROM)/0 [3] I_(COL.IOM[;2])+(1+.ROCOL)#.NG1+ROW.IOM[;1] [4] I_I[.GUI] [5] D_(1.DA(I.NE.NG1.RVI),1)/.IO.ROI [6] R_(#/S_1+(.ROROW),.ROCOL).RO0 [7] R[I[D]]_D-.NG1.DA0,D [8] R_S.ROR .DL DAYS_13 .RO 31 29 31 30 31 30 31 31 30 31 30 31 .NG1 .DL R_CM EPSI M ;J [1] J_1 [2] R_(1^.ROCM).RO0 [3] .GO(2=.RO.ROCM)/B1 [4] CM_(1,.ROCM).ROCM [5] R_1.RO0 [6] B1: R[J]_.OR/M&.=CM[J;] [7] .GO((.ROR).GEJ_J+1)/B1 [8] .GO(1<.ROR)/0 [9] R_(.IO0).ROR .DL .DL CM FRES VF [1] PR_1 [2] RF_VF[2] [3] TSTR_2 4.ROVF[1],0 1 25,STR[RF;] [4] VF_2.DAVF [5] ROR_.IO0 [6] CM_(2^(.IO1=,.RO.ROCM),(.ROCM),1 1).ROCM [7] PL_1,STR[VF[1];2] [8] .GO(3.GE.ROVF)/B20 [9] PL_.NG2^VF [10] VF_,(0.NEVF)/VF_.NG2.DAVF [11] B20: P_PL[1] [12] BL_(1+PL[2]-PL[1]).FL.FLSIZ%+/STR[VF;3]#8-6#STR[VF;1]=3 [13] B30: .GOB30+4-.ROVF [14] .GO(0=1^.ROC_GET VF[3],P,BL)/0 [15] .GO(0=1^.ROB_GET VF[2],P,BL)/0 [16] .GO(0=1^.ROA_GET VF[1],P,BL)/0 [17] LCR_1 [18] B40: FP_0/.EPCM[LCR;] [19] .GO((LCR_LCR+1).LE1^.ROCM)/B40 [20] .EP')ERASE A B C' [21] .GO(0=#/1,.ROFR)/B70 [22] ROR_.ROFR [23] STR[RF;]_TSTR[1;] [24] FR PUT RF,PR [25] STR[RF;]_TSTR[2;] [26] PR_PR+#/1,ROR [27] .EP')ERASE FR' [28] .GO(.NTRF.EPVF)/B70 [29] .GO(.NT(PR#BYT[TSTR[1;1]])>PF#STR[RF;3]#BYT[STR[RF;1]])/B70 [30] 'FRES WARNING: POSSIBLE WRITE BEFORE READ' [31] B70: .GO(PL[2]>.NG1+BL+P_P+BL)/B30 [32] .GO(0DAYS[DAT[;1]])/.IO1^.RODAT)]_0 [9] JLN[((DAT[;2]<1)/.IO1^.RODAT)]_0 .DL MONT_13 .RO 0 31 59 90 120 151 181 212 243 273 304 334 500 .DL R PUT VCS [1] FP_STR[VCS[1];4]+BYT[STR[VCS[1];1]]#STR[VCS[1];3]#.NG1+VCS[2] [2] FP_.EP(.ENVCS[1]),'.PTFP' [3] FP_0/.EP(.ENVCS[1]),'.OQ[STR[VCS[1];1]]R' .DL .DL CM RES VF [1] VF_,VF [2] CM_(2^(.IO1=,.RO.ROCM),(.ROCM),1 1).ROCM [3] PL_1,STR[VF[1];2] [4] .GO(3.GE.ROVF)/B20 [5] PL_.NG2^VF [6] VF_,(0.NEVF)/VF_.NG2.DAVF [7] B20: P_PL[1] [8] BL_(1+PL[2]-PL[1]).FL.FLSIZ%+/STR[VF;3]#8-6#STR[VF;1]=3 [9] B30: .GOB30+4-.ROVF [10] .GO(0=1^.ROC_GET VF[3],P,BL)/0 [11] .GO(0=1^.ROB_GET VF[2],P,BL)/0 [12] .GO(0=1^.ROA_GET VF[1],P,BL)/0 [13] LCR_1 [14] B40: FP_0/.EPCM[LCR;] [15] .GO((LCR_LCR+1).LE1^.ROCM)/B40 [16] .EP')ERASE A B C' [17] B70: .GO(PL[2]>.NG1+BL+P_P+BL)/B30 [18] .GO(0