|
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 - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »MODCSOT.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »MODCSOT.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »MODCSOT.PRG«
ACCEPT 'DISK: ' TO DISK
ACCEPT 'PREFIX: ' TO PREFIX
STORE PREFIX-'.O' TO BACKFIX
STORE PREFIX-'.S' TO PREFIX
INPUT 'NUMBER: ' TO LAST
STORE 1 TO NUMBER
STORE 'TOP' TO RECORD
USE SOT_STRU
COPY STRU TO SOTPLL
USE SOTPLL
APPEND BLANK
REPLACE REF:CODE WITH 'DEL'
DO WHILE NUMBER<=LAST
IF NUMBER<10
STORE 1 TO X
ELSE
STORE 2 TO X
ENDIF
STORE PREFIX-STR(NUMBER,X) TO MSOT
SET DEFA TO &DISK
IF FILE(MSOT)
STORE BACKFIX-STR(NUMBER,X) TO MBACK
RENAME &MSOT TO &MBACK
SET DEFA TO E
STORE DISK-MBACK TO MBACK
APPEND FROM &MBACK
GO &RECORD
SKIP
IF .NOT.EOF
REPLACE NEXT 9999 REF:DES WITH 'SOT'-STR(NUMBER,X)
STORE STR(#,5) TO RECORD
ENDIF
ENDIF
SET DEFA TO E
STORE NUMBER+1 TO NUMBER
ENDDO
SET EXACT ON
STORE 1 TO NUMBER
*SET STEP ON
STORE 'SOTPLL' TO OPERDBF
STORE 'E:HIP1' TO PPLNAME
STORE 'PLL' TO MDBASE
STORE DISK-$(PREFIX,1,4) TO CONFIGNAME
DO COMPLETE
DO CONVERT
STORE 1 TO NUMBER
SET DEFA TO DISK
DO WHILE NUMBER<=LAST
IF NUMBER<10
STORE 1 TO X
ELSE
STORE 2 TO X
ENDIF
STORE PREFIX-STR(NUMBER,X) TO MSOT
STORE BACKFIX-STR(NUMBER,X) TO MBACK
IF FILE(MBACK)
COPY TO &MSOT FOR REF:DES='SOT'-STR(NUMBER,X)
ENDIF
STORE NUMBER+1 TO NUMBER
ENDDO
SET DEFA TO E
RETURN
«eof»