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

⟦391fc8e83⟧ TextFile

    Length: 2176 (0x880)
    Types: TextFile
    Names: »ONVARER.FRM«

Derivation

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

TextFile

/PROMPT                                             //  PROGRAM: ONVARER.FRM
*****************************************************************************
***   O N L I N E   V E D L I G E H O L D E L S E   V A R E R      M 40   ***
*****************************************************************************


                0 = RETUR TIL HOVEDMENU

                1 = VEDLIGEHOLD DANSKE PRISER, SLET OG OPRET VARER.

                2 = VEDLIGEHOLD ENGELSKE PRISER.

                3 = VEDLIGEHOLD TYSKE PRISER.

                4 = VEDLIGEHOLD SVENSKE PRISER.

                5 = VEDLIGEHOLD NORSKE PRISER.


TAST SVAR....:  _   Hjælp findes.
*****************************************************************************
/HELP1
=============================================================================
===               OPLYSNINGER  OM  VALG  MULIGHEDER                       ===
=============================================================================

VALG 0   anvendes når du vil tilbage til hovedmenuen.

VALG 1   anvendes til al vedligeholdelse af varer UNDTAGEN EKSPORT priser.
         Opret og slet KAN KUN foretages her.

VALG 2   kun vedligeholdelse af ENGELSKE priser.

VALG 3   kun vedligeholdelse af TYSKE priser.

VALG 4   kun vedligeholdelse af SVENSKE priser.

VALG 5   kun vedligeholdelse af NORSKE priser.

Online forespørgsel med bladring i poster muligt i valg 1 til 5.

tryk på en tast for RETUR til billed !
=============================================================================
/*
ENTERGROUP
//
OM:
DISPLAY ' ' TO PROMPT.1
ACCEPT PROMPT.1
//
//  valg af vedligeholdelse    *****
//
IF PROMPT.1 MATCH '1' CHAIN "ONVARERD"
IF PROMPT.1 MATCH '2' CHAIN "ONVARERE"
IF PROMPT.1 MATCH '3' CHAIN "ONVARERT"
IF PROMPT.1 MATCH '4' CHAIN "ONVARERS"
IF PROMPT.1 MATCH '5' CHAIN "ONVARERN"
//
// så skal svaret være 0 (NUL) ellers gå til om           *****
//
IF NOT PROMPT.1 MATCH '0' GOTO OM
//
CHAIN "OVERSIGT"
//
KEYPROC KEY.HELP:
    HELP
    ENTAGAIN
RETURN
ENDGROUP
«eof»