|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: TextFile
Names: »APPMOD.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─ ⟦this⟧ »APPMOD.PRG«
******************************************************************************* * DESIGN:NIF/ASD/SPTEMBER 1985 * ******************************************************************************* * *PROCEDURE: APPMOD FILELAYER 4 * *PARAMETRS: MSOURCE,PRIM:CONFIGFILE,SECO:SELECTED DPLFILE *RETURNING: MSOTFLAG,MSOTPOINT ******************************************************************************* APPEND FROM &MSOURCE FOR .NOT.($(REF:CODE,1,3)$'DEL,SOT') *INITIATE COUNTER REPLACE COUNTER WITH NVALUE*P.NUMBER,NVALUE WITH 0,CVALUE WITH ' '; FOR COUNTER=0.AND.$(REF:CODE,1,2)='64' GO BOTTOM STORE #+1 TO MSOTPOINT APPEND FROM &MSOURCE FOR $(REF:CODE,1,3)='SOT' GO BOTTOM IF #=MSOTPOINT-1 STORE F TO MSOTFLAG ELSE STORE T TO MSOTFLAG ENDIF REPLACE ALL COUNTER WITH P.NUMBER FOR COUNTER=0 RETURN «eof»