|
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: 2688 (0xa80) Types: TextFile Names: »ONPRODU.FRM«
└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem └─⟦this⟧ »ONPRODU.FRM« └─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem └─⟦this⟧ »ONPRODU.FRM«
/PRODU // PROGRAM: ONPRODU.FRM ***************************************************************************** *** VEDLIGEHOLDELSE AF PRODUKT TEKST REGISTER M 30 *** ***************************************************************************** PRODUKT NUMMER ...........: (__) TEKST FRA PLS-SYSTEM .....: _____________________________ AJOURFØRINGS MARKERING ...: _ BEMÆRKNING ...............: __________ OK (J/N) .....: _ Hjælp findes. ***************************************************************************** /HELP1 ============================================================================= === HJÆLP TIL VEDLIGEHOLDELSE AF PRODUKT TEKST REGISTER === ============================================================================= PRODUKT NUMMER tast nøgle med værdi fra 01 til 99. TEKST FRA PLS-SYSTEMET kan rettes, max. 29 tegn. AJOURFØRINGS MARKERING O produkt er nyoprettet A data er ajourført U udgår da produkt ikke findes i PLS M manuelt behandlet tryk på en tast for RETUR til billed ============================================================================= /* FORMAT PRODU.4 ædisplayonlyå FORMAT PRODU.5 ænoput,capslock,check="JN"å OPEN PRODU ENTER PRODU IGEN: AUTOPAGE PRODU CLEAR PRODU ENTRY PRODU.PNR æautofindå DISPLAY ' ' TO PRODU.4 IF PRODU.PNR LT '01' BEGIN DISPLAY ' VÆRDI ! ' TO PRODU.4 GOTO IGEN END IF PRODU.PNR GT '40' BEGIN DISPLAY ' VÆRDI ! ' TO PRODU.4 GOTO IGEN END Æ FOUND Å DISPLAY ' FINDES ! ' TO PRODU.4 Æ FINDERR Å DISPLAY 'M' TO PRODU.3 ENTRY PRODU.PTEKST æretain,capslockå ENTRY PRODU.AJO æcapslock,check="MOAU"å RETURN // SLET RECORD vil anvende enter.delete & enter.edit // EDIT RECORD - - enter.edit & enter.save // OPRET RECORD - - enter.save ENTER.DELETE: DISPLAY '*SLETTET*' TO PRODU.4 RETURN // ENTER.EDIT: IF PRODU.4 EQ ' ' BEGIN DISPLAY '* RETTET *' TO PRODU.4 END RETURN // ENTER.SAVE: IF PRODU.4 EQ ' ' BEGIN DISPLAY '*OPRETTET*' TO PRODU.4 END DISPLAY 'J' TO PRODU.5 ACCEPT PRODU.5 IF PRODU.5 EQ 'N' GOTO IGEN RETURN // ENTEREND CHAIN "OVERSIGT" // KEYPROC KEY.HELP HELP ENTAGAIN RETURN // KEYPROC KEY.FIELD BACKFIELD RETURN // KEYPROC KEY.CLEAR CLEARFORM RETURN // KEYPROC KEY.ESCAPE CHAIN "OVERSIGT" «eof»