=I:ARMSTFIX.BAS, A/R MASTER FILE FIX, WAM, 02/06/79 REV. AR CP/M 2.0, 2/14/79oI  :COPYRIGHT 1978 RETAIL SCIENCES INC.|I AZ: IPN$"MASTER FILE FIX"I I"A:ARMSTFIX.BAS": I : MONTH DATAI -1,30,59,90,120,151,181,212,243,273,304,334 J: FIELD POSITION IN MASTERJJ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4lJ: FIELD POSITION IN EXTENTJ 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4J1: EXTENT NAME DATAK2 "ACCOUNT ID","TRANS. DATE","DUE DATE","INVOICE NUM.","TERMS OR REF"JK3 "CODE (0-9)","G/L FLAG","SALES","FREIGHT","TAXES","SER. CH."K4 "MISC. DB"," TOTAL DB","PAYMENTS","CREDITS","RETURNS","DISCOUNT"K5 "MISC. CR"," TOTAL CR"," TRANS. BALANCE"KP:h:@KD0u:LN:"THIS PROCESS MAY TAKE A FEW MINUTES.":2LXu :TRANS FILESMLby :CREATE NEW MSTfLl} :OPEN OLD MSTqLqXLvJ:4:N%:#,:XT%((XT$)) :PASS 1LIN%XT%::I:zL #:HM$"M"ώL KE$K1$:OP:`L ER%M ER%K:Є:T1M K:Є: HM BF$BU$:#,OS:jMzJ:4:N%:#, :PASS 2MIN%XT%::I:M #:HM$"E"ώM KE$K1$:OP:` :READ MASTERM ER%K:Є:NOSOL: OP : `: ER% IV$X$ KN ER% IV$X$ DT$Z$ OSOL: OP : `: cNOLOS: OP : `NER%BF$BU$:#,OS:NK:Є:TNJ:4:NN:"INSERT PROGRAM DISC INTO DRIVE 0"N:N0u:SETUP(O:u:"INSERT A BLANK FORMATTED DISK INTO DRIVE 1"bODu:"INSERT THE DATA DISK TO BE REPAIRED INTO DRIVE 0"mONu:OXuYESNu::Ou:COPY OTHER FILESPuVV$()"A:ARSYS.DAT":VV$()"B:ARSYS.DAT":VV$()"A:ARDATE.DAT": VV$()"B:ARDATE.DAT":VV$()"A:ARGLT.DAT":VV$()"B:ARGLT.DAT"-PuPP%:vbPuZ1%ϑ"TRANSFERRING SYSTEM FILE TO DRIVE 1":4vwPuPP%:Z1%:vPuZ1%PP%:Z1%:v:uPuZ1%ϑ"TRANSFERRING AR DATE FILE TO DRIVE 1":CvPuPP%:Z1%:vQuZ1%PP%:Z1%:v:uvI:#,A$:#,Q$;A$;Q$;:I::RCv"O",,"B:ARDATE.DAT":#,TD$::Rfv"R",,VV$(PP%):"R",,VV$(PP%):#,ASA$:#,ASB$RpvI():#,I:B$A$:#,I:I::RyFI$"ARCF.DAT" S"y6yS,y"B:"FI$:@y1S6y5ϩ@y:TLPώMVHLC<ύdVR:H$(J):LCLC:vVW:ERROR TRAPVX9ϩ:V?: PROGRAM INITIALIZATIONV@NR%(V$()): 0V|F1$"#######.##"V(M$(),H$()+W2M$()"* OUT OF ROOM ON DESTINATION DISK WHEN COPYING \ \ *"UW