DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e138745ab⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »COMPSOT.PRG«

Derivation

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─ ⟦this⟧ »COMPSOT.PRG«

TextFile

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»