RI:ARCF.BAS, ACCOUNTS RECEIVABLE CUSTOMER FILE MAINTENANCE, SSM, 2/06/79 REV. AR CP/M 2.0, 2/14/79I p :COPYRIGHT 1979 RETAIL SCIENCES INC.I AZ: IPN$"CUSTOMER FILE MAINTENANCE"I dI"A:ARCF.BAS": I : MONTH DATAJ -1,30,59,90,120,151,181,212,243,273,304,334vHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:yv: CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) v:FI%,OE:OL$(OS):FI%,OE: FI%,OL:OE$(OS):FI%,OL:FI%,OS:OE$(OE): OL$(OL):OM$"E":FI%,OS:ER%:2w: DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) VwFI%,OS:OM$"E"ER%::wFI%,OE:OL$(OL):FI%,OE: FI%,OL:OE$(OE):FI%,OL:ER%:ws: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) xtFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%x~)x/: SETUP (NR%)