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

⟦5725699f9⟧ TextFile

    Length: 4352 (0x1100)
    Types: TextFile
    Names: »SALGKODE.FRM«

Derivation

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

TextFile

/VARAR                                  // PROGRAM: SALGKODE.FRM
*****************************************************************************
***    VEDLIGEHOLDELSE AF VARE REGISTER  SALGSBARHEDSKODE          M 40D  ***
*****************************************************************************
VARENUMMER ......:   (___________)     SORT..: (_)        SHGRUP..: (_)
PLS TEKST .......:   _____________________________
DANSK TEKST .....:   ________________________________________
                     *   VALUTA      D.KR     BIDRAG      D.GRAD      RABAT
                     -   ------    ------     ------      ------     ------
KOST ............:   _             _____.
LISTE ...........:   _             _____.     _____.      ___.__
FORHANDLER ......:   _             _____.     _____.      ___.__     ___.__
DISTRIBUTØR .....:   _             _____.     _____.      ___.__     ___.__
ENGLAND .........:   _   _____.    _____.     _____.      ___.__
TYSKLAND ........:   _   _____.    _____.     _____.      ___.__
SVERIGE .........:   _   _____.    _____.     _____.      ___.__
NORGE ...........:   _   _____.    _____.     _____.      ___.__

PROD.GRUPPE 01-40    0000000001111111111222222222233333333334
indgår i hvis (.)    1234567890123456789012345678901234567890
ellers blank ....:   ________________________________________
AJOURF.MARK......:   _  SKODE..: _   __________    OK (J/N) .: _ Hjælp findes
*****************************************************************************
/HELP1
==============================================================================
===       HJÆLP TIL VEDLIGEHOLDELSE AF SALGSVARE REGISTER SALGSBARHEDSKODE ===
==============================================================================


SKODE           Salgsbarhedskode, VÆRDITEST ved indtastning udføres ikke !

Tryk på en tast for retur til billed !
===============================================================================
/*
OPEN VARER
FORMAT VARAR.45 ædisplayonlyå
FORMAT VARAR.46 ænoput,capslock,check="JN"å
//
ENTER VARER
//
HOP:
AUTOPAGE VARAR
  CLEAR VARER
  ENTRY VARER.VNR æcapslock,autofindå
  DISPLAY ' ' TO VARAR.45
  Æ FINDERR Å GOTO HOP
  ENTRY VARER.SNR      ænoenterå
  ENTRY VARER.SHG      ænoenterå
  ENTRY VARER.PLSBETG  ænoenterå
  ENTRY VARER.DANSKET  ænoenterå
  ENTRY VARER.SKOKOR   ænoenterå
  ENTRY VARER.SKOPRIS  ænoenterå
  ENTRY VARER.LISKOR   ænoenterå
  ENTRY VARER.LISPRIS  ænoenterå
  ENTRY VARER.LISDB    ænoenterå
  ENTRY VARER.LISDG    ænoenterå
  ENTRY VARER.FORKOR   ænoenterå
  ENTRY VARER.FORPRIS  ænoenterå
  ENTRY VARER.FORDB    ænoenterå
  ENTRY VARER.FORDG    ænoenterå
  ENTRY VARER.FORRABAT ænoenterå
  ENTRY VARER.DISKOR   ænoenterå
  ENTRY VARER.DISPRIS  ænoenterå
  ENTRY VARER.DISDB    ænoenterå
  ENTRY VARER.DISDG    ænoenterå
  ENTRY VARER.DISRABAT ænoenterå
  ENTRY VARER.ENGKOR   ænoenterå
  ENTRY VARER.ENGVALU  ænoenterå
  ENTRY VARER.ENGPRIS  ænoenterå
  ENTRY VARER.ENGDB    ænoenterå
  ENTRY VARER.ENGDG    ænoenterå
  ENTRY VARER.TYSKOR   ænoenterå
  ENTRY VARER.TYSVALU  ænoenterå
  ENTRY VARER.TYSPRIS  ænoenterå
  ENTRY VARER.TYSDB    ænoenterå
  ENTRY VARER.TYSDG    ænoenterå
  ENTRY VARER.SVEKOR   ænoenterå
  ENTRY VARER.SVEVALU  ænoenterå
  ENTRY VARER.SVEPRIS  ænoenterå
  ENTRY VARER.SVEDB    ænoenterå
  ENTRY VARER.SVEDG    ænoenterå
  ENTRY VARER.NORKOR   ænoenterå
  ENTRY VARER.NORVALU  ænoenterå
  ENTRY VARER.NORPRIS  ænoenterå
  ENTRY VARER.NORDB    ænoenterå
  ENTRY VARER.NORDG    ænoenterå
  ENTRY VARER.INDGARI  ænoenterå
  ENTRY VARER.AJO      ænoenterå
OM:
AUTOPAGE VARAR 44
  ENTRY VARER.SKODE
//
RETURN
// SLET  RECORD er ikke tilladt 
// EDIT  RECORD  -     -    enter.edit & enter.save
// OPRET RECORD  -     -    enter.save
ENTER.DELETE:
   GOTO HOP
RETURN
//
ENTER.EDIT:
  IF VARAR.45 EQ ' ' BEGIN
     DISPLAY '* RETTET *' TO VARAR.45
  END
RETURN
//
ENTER.SAVE:
  DISPLAY 'J' TO VARAR.46
  ACCEPT VARAR.46
  IF VARAR.46 EQ 'N' GOTO OM
RETURN
//
ENTEREND
CHAIN "ONVARER"
//
KEYPROC KEY.HELP
        HELP
        ENTAGAIN
RETURN
//
KEYPROC KEY.DELETE
        ENTAGAIN
RETURN
//
KEYPROC KEY.FIELD
        BACKFIELD
RETURN
//
KEYPROC KEY.CLEAR
        CLEARFORM
RETURN
//
KEYPROC KEY.ESCAPE
CHAIN "ONVARER"
«eof»