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

⟦c81eb5c46⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »AJVARER3.FRM«

Derivation

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

TextFile

/PROMS                                 // PROGRAM: AJVARER3.FRM
*****************************************************************************
***              P R I S L I S T E     S Y S T E M                 M 23-3 ***
*****************************************************************************

PROGRAM NAVN  ............:    AJOURFØR DATO I OPLYS REGISTER.


BEHANDLET ................:    ___________


OPLYS OPDATERET MED DATO .:    __/__/__


BEMÆRKNING ...............:    ______________________________

                               ______________________________

SVAR TIL BEMÆRKNING ......:    _         Hjælp findes her

*****************************************************************************
/HELP1
=============================================================================
===               OPLYSNINGER  OM  PROGRAMMET                             ===
=============================================================================


                  Hvis ANTAL opdaterede varer er større end 0 (nul),
                  så bliver OVERFØRT VARER I OPLYS opdateret med den
                  den aktuelle dato.


                  Hvis ANTAL opdaterede varer er 0 (nul),
                  så bliver OVERFØRT VARER I OPLYS ikke
                  opdateret.


tryk på en tast for RETUR til billed.
=============================================================================
/*
FORMAT PROMS.1 ædisplayonlyå
FORMAT PROMS.2 ædisplayonlyå
FORMAT PROMS.3 ædisplayonlyå
FORMAT PROMS.4 ædisplayonlyå
FORMAT PROMS.5 æcapslock,check="S "å
INTEGER LAST
OPEN OPLYS
ENTERGROUP
//
//         3. RUNDE   opdater OPLYS med dags dato      ***
//
IF LAST GT 0 BEGIN
   MOVE OPLYS.AKDATO TO OPLYS.OVVARER
   DISPLAY OPLYS.OVVARER TO PROMS.2
   SAVE OPLYS
   DISPLAY LAST TO PROMS.1
   DISPLAY 'PROGRAMMET ER FÆRDIGT  !' TO PROMS.3
   DISPLAY 'VARER OK, TRYK RETUR   !' TO PROMS.4
   DISPLAY ' ' TO PROMS.5
   ACCEPT PROMS.5
   CHAIN "AJPROVA"
END
DISPLAY LAST TO PROMS.1
DISPLAY 'PROGRAMMET ER FÆRDIGT  !' TO PROMS.3
DISPLAY 'VARER EJ OK, TRYK RETUR!' TO PROMS.4
DISPLAY ' ' TO PROMS.5
ACCEPT PROMS.5
CHAIN "OVERSIGT"
//
KEYPROC KEY.HELP:
   HELP
   ENTAGAIN
   RETURN
//
ENDGROUP
«eof»