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

⟦57bbb6888⟧ TextFile

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »OPLYS.FRM«

Derivation

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

TextFile

/OPLYS                                  //  PROGRAM: OPLYS.FRM
*****************************************************************************
***        SYSTEM OPLYSNINGER TIL PRISLISTE SYSTEM                 M 10   ***
*****************************************************************************

Ved ok slut: TRYK ESCape       ellers ret data eller tryk RETUR

SYSTEM NAVN ..............:    ____________________   HÆLP FINDES !

DAGS DATO MED DG/MD/ÅR ...:    __/__/__

PR.  DATO MED DG/MD/ÅR ...:    __/__/__

AJOURFØRT PRODUKT REG. ...:    __/__/__

AJOURFØRT VARER REG. .....:    __/__/__

UDGAVE NUMMER TIL LISTER .:    ___.

HUSK .....................:    ______________________________

*****************************************************************************
/HELP1
=============================================================================
===               HJÆLP 1 TIL SYSTEM OPLYSNINGER                          ===
=============================================================================
SYSTEM NAVN                 navnet er til interne lister.

DAGS DATO MED DG/MD/ÅR      aktuelle kalender dato.

PR.  DATO MED DG/MD/ÅR      PR.DATO til prislister.

AJOURFØRT PRODUKT REG.      systemet ajourfører denne dato ved opdatering fra
                            PLS-systemet, og anvender dags dato.

AJOURFØRT VARER REG.        systemet ajourfører denne dato ved opdatering fra
                            PLS-systemet, og anvender dags dato.

UDGAVE NUMMER TIL LISTER    aktuelt prisliste udgavenummer på max 4 cifre.

HUSK                        hvad du evt. skal huske til næste gang.

tryk på en tast for RETUR til billed, ELLER tast hjælp for flere oplysninger.
=============================================================================
/HELP2
=============================================================================
=============     DATAFLEX FUNKTIONSTASTER 1 :           ====================
=============================================================================

  RETURN ELLER ENTER                den store RETUR tast
  EXIT, ud af program               ESCAPE tast
  HJÆLP                             "?" 

  FIND EN POST                      PA1  tasten
  SUPERFIND                         PA2  tasten
  FOREGÅENDE POST (SEKVENTIEL)      PA3  tasten
  NÆSTE POST (SEKVENTIEL)           PA4  tasten
  REGNEFUNKTION                     PA5  tasten

  BRUGERDEFINERET FUNKTION          PF10 tasten
  GEM EN POST                       PF12 tasten
  SLET EN POST                      PF14 tasten


tryk på en tast for RETUR til billed, ELLER tast hjælp for flere oplysninger
=============================================================================
/HELP3
=============================================================================
=============     DATAFLEX FUNKTIONSTASTER 2 :           ====================
=============================================================================

  SLET DATAFELTER PÅ SKÆRM          CLEAR tasten
  SLET TEGN                         SLET TEGN tasten
  SLET TEGN TIL VENSTRE             "PIL til venstre" under slet tegn tast
  INDSÆT TEGN                       TEGN IND

  FOREGÅENDE FELT                   PIL OP
  VENSTREPIL                        PIL TIL VENSTRE
  OPPIL                             PIL OP 
  NEDPIL                            PIL NED 
  HØJREPIL                          PIL TIL HØJRE

  PRINT AF SKÆRM                    *** IKKE INSTALLERET ***


tryk på en tast for RETUR til billed
=============================================================================
/*
OPEN OPLYS
FORMAT OPLYS.1 æcapslockå
FORMAT OPLYS.2 ærange=01/10/85,31/12/86å
FORMAT OPLYS.3 ærange=01/10/85,31/12/86å
FORMAT OPLYS.4 ædisplayonlyå
FORMAT OPLYS.5 ædisplayonlyå
FORMAT OPLYS.6 ærange=01,9999å
FORMAT OPLYS.7 æcapslockå

// VIS GL. OPLYSNING
IGEN:
  DISPLAY OPLYS.NAVN    TO OPLYS.1
  DISPLAY OPLYS.AKDATO  TO OPLYS.2
  DISPLAY OPLYS.PRDATO  TO OPLYS.3
  DISPLAY OPLYS.OVPRODU TO OPLYS.4
  DISPLAY OPLYS.OVVARER TO OPLYS.5
  DISPLAY OPLYS.UDGAVE  TO OPLYS.6
  DISPLAY OPLYS.HUSK    TO OPLYS.7
// HENT NY OPLYSNING
  ACCEPT OPLYS.1 TO OPLYS.NAVN
  ACCEPT OPLYS.2 TO OPLYS.AKDATO
  ACCEPT OPLYS.3 TO OPLYS.PRDATO
  ACCEPT OPLYS.6 TO OPLYS.UDGAVE
  ACCEPT OPLYS.7 TO OPLYS.HUSK
//
SAVE OPLYS
GOTO IGEN
CHAIN "OVERSIGT"
//
KEYPROC   KEY.HELP
          HELP
          ENTAGAIN
//
KEYPROC   KEY.FIELD
          RETURN
//
KEYPROC   KEY.ESCAPE
          CLEARSCREEN
CHAIN "OVERSIGT"
«eof»