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 - metrics - download

⟦cdafff8b3⟧ TextFile

    Length: 2688 (0xa80)
    Types: TextFile
    Names: »ONPRODU.FRM«

Derivation

└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem
    └─⟦this⟧ »ONPRODU.FRM« 
└─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem
    └─⟦this⟧ »ONPRODU.FRM« 

TextFile

/PRODU                                  // PROGRAM: ONPRODU.FRM
*****************************************************************************
***        VEDLIGEHOLDELSE AF PRODUKT TEKST REGISTER               M 30   ***
*****************************************************************************


PRODUKT NUMMER ...........:   (__)


TEKST FRA PLS-SYSTEM .....:    _____________________________


AJOURFØRINGS MARKERING ...:    _ 


BEMÆRKNING ...............:    __________  OK (J/N) .....: _

Hjælp findes.
*****************************************************************************
/HELP1

=============================================================================
===      HJÆLP TIL VEDLIGEHOLDELSE AF PRODUKT TEKST REGISTER              ===
=============================================================================


PRODUKT NUMMER              tast nøgle med værdi fra 01 til 99.


TEKST FRA PLS-SYSTEMET      kan rettes, max. 29 tegn. 


AJOURFØRINGS MARKERING      O  produkt er nyoprettet
                            A  data er ajourført
                            U  udgår da produkt ikke findes i PLS
                            M  manuelt behandlet


tryk på en tast for RETUR til billed
=============================================================================
/*
FORMAT PRODU.4 ædisplayonlyå
FORMAT PRODU.5 ænoput,capslock,check="JN"å
OPEN PRODU
ENTER PRODU
IGEN:
AUTOPAGE PRODU
  CLEAR PRODU
  ENTRY PRODU.PNR æautofindå
  DISPLAY ' ' TO PRODU.4
  IF PRODU.PNR LT '01' BEGIN 
     DISPLAY ' VÆRDI ! ' TO PRODU.4
     GOTO IGEN
  END
  IF PRODU.PNR GT '40' BEGIN
     DISPLAY ' VÆRDI ! ' TO PRODU.4
     GOTO IGEN
  END
  Æ FOUND Å DISPLAY ' FINDES ! ' TO PRODU.4
  Æ FINDERR Å DISPLAY 'M' TO PRODU.3
  ENTRY PRODU.PTEKST æretain,capslockå
  ENTRY PRODU.AJO æcapslock,check="MOAU"å
  RETURN
//  SLET  RECORD vil anvende enter.delete & enter.edit
//  EDIT  RECORD  -     -    enter.edit & enter.save
//  OPRET RECORD  -     -    enter.save
ENTER.DELETE:
   DISPLAY '*SLETTET*' TO PRODU.4
RETURN
//
ENTER.EDIT:
  IF PRODU.4 EQ ' ' BEGIN
     DISPLAY '* RETTET *' TO PRODU.4
  END
RETURN
//
ENTER.SAVE:
  IF PRODU.4 EQ ' ' BEGIN
     DISPLAY '*OPRETTET*' TO PRODU.4
  END
  DISPLAY 'J' TO PRODU.5
  ACCEPT PRODU.5
  IF PRODU.5 EQ 'N' GOTO IGEN
RETURN
//
ENTEREND
CHAIN "OVERSIGT"
//
KEYPROC KEY.HELP
        HELP
        ENTAGAIN
RETURN
//
KEYPROC KEY.FIELD
        BACKFIELD
RETURN
//
KEYPROC KEY.CLEAR
        CLEARFORM
RETURN
//
KEYPROC KEY.ESCAPE
CHAIN "OVERSIGT"
«eof»