|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2176 (0x880) Types: TextFile Names: »AJPRODU.TXT«
└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem └─⟦this⟧ »AJPRODU.TXT« └─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem └─⟦this⟧ »AJPRODU.TXT«
// PROGRAM: AJPRODU.FRM ***************************************************************************** *** P R I S L I S T E S Y S T E M M 21 *** ***************************************************************************** PROGRAM NAVN ............: AJOURFØR PRODUKT REGISTER MED PLS DATA. START= Ja, SLUT= Nej .....: _ HJÆLP FINDES HER ! GAMLE PRODUKT OPLYSNINGER.: ___________ NYE PRODUKT OPLYSNINGER...: ___________ BEMÆRKNING ...............: ______________________________ ______________________________ SVAR TIL BEMÆRKNING ......: _ HJÆLP FINDES HER ! ***************************************************************************** ============================================================================= === OPLYSNINGER OM PROGRAMMET === ============================================================================= START Hvis du svarer N (nej) udføres programmet IKKE, og du kommer tilbage til menu-billedet. Hvis du derimod svarer J (ja) så sættes programmet igang og gør følgende: 1. Ajourførings markeringen sættes lig med 'U' i PRODU. 2. fra OVPRODU.TXT læses nye data over i PRODU, hvis det er en ny record sættes markeringen = 'O', ellers med 'A' for opdateret. Ikke opdaterede record er 'U'. AJOUFØRT PRODUKT dato i OPLYS opdateres med aktuel dato. AFBRYD Du kan afbryde programmet ved at trykke på et tilfældigt bogstav under kørsel, og ENTEN vælge S for stop, men så kan du ikke anvende SYSTEMET, før du har startet forfra, ELLER tryk RETUR, og så vil programmet fortsætte. tryk på en tast for RETUR til billed. ============================================================================= /* «eof»