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

⟦b709daa82⟧ TextFile

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

Derivation

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

TextFile

ACCEPT 'PREFIX: ' TO PREFIX
STORE PREFIX-'.O' TO BACKFIX
STORE PREFIX-'.S' TO PREFIX
INPUT 'NUMBER: ' TO LAST

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)
      USE &MSOT
      STORE BACKFIX-STR(NUMBER,X) TO MBACK
      COPY TO &MBACK
      USE SOT_STRU
      COPY STRU TO &MSOT
      USE &MSOT
      APPEND FROM &MBACK
      REPLACE ALL REF:DES WITH 'SOT'-STR(NUMBER,X)
   ENDIF
   STORE NUMBER+1 TO NUMBER
ENDDO
RETURN

«eof»