|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: TextFile
Names: »COMPSOT.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─ ⟦this⟧ »COMPSOT.PRG«
ACCEPT 'PREFIX: ' TO PREFIX
STORE PREFIX-'.O' TO BACKFIX
STORE PREFIX-'.S' TO PREFIX
INPUT 'NUMBER: ' TO LAST
SET EXACT ON
STORE 1 TO NUMBER
USE SOT_STRU
COPY STRU TO SOTPLL
USE SOTPLL
DO WHILE NUMBER<=LAST
IF NUMBER<10
STORE 1 TO X
ELSE
STORE 2 TO X
ENDIF
STORE PREFIX-STR(NUMBER,X) TO MSOT
IF FILE(MSOT)
APPEND FROM &MSOT
ENDIF
STORE NUMBER+1 TO NUMBER
ENDDO
*SET STEP ON
STORE 'SOTPLL' TO OPERDBF
STORE 'HIP1' TO PPLNAME
STORE 'PLL' TO MDBASE
STORE $(PREFIX,1,4) TO CONFIGNAME
DO COMPLETE
DO CONVERT
STORE 1 TO NUMBER
DO WHILE NUMBER<=LAST
IF NUMBER<10
STORE 1 TO X
ELSE
STORE 2 TO X
ENDIF
STORE PREFIX-STR(NUMBER,X) TO MSOT
IF FILE(MSOT)
COPY TO &MSOT FOR REF:DES='SOT'-STR(NUMBER,X)
ENDIF
STORE NUMBER+1 TO NUMBER
ENDDO
RETURN
«eof»