DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

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

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦9a54881e4⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »PPLEDIT.PRG«

Derivation

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

TextFile

SET EXACT ON
SET SCREEN ON
SET TALK OFF
STORE 'R     ' TO MREF
SET FORMAT TO SCREEN
DO WHILE MREF<>'Q'
   ERASE
   @ 2,5 SAY 'REFERENCE CODE TO BE EDITED: ' GET MREF PICTURE 'XXXXXX'
   READ
   LOCATE FOR REF:CODE=MREF
   IF .NOT.EOF
      EDIT #
   ENDIF
ENDDO

«eof»