|
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: 3456 (0xd80) Types: TextFile Names: »LIPRODU.RPT«
└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem └─⟦this⟧ »LIPRODU.RPT« └─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem └─⟦this⟧ »LIPRODU.RPT«
/PROMPT // PROGRAM: LIPRODU.RPT ****************************************************************************** *** UDSKRIFT AF PRODUKT REGISTER (PRODU) M 31 *** ****************************************************************************** UDSKRIFT tast OK, SLUT så tast UD .................: __ INDTAST START NUMMER MED 2 CIFRE ..................: __ INDTAST SLUT NUMMER MED 2 CIFRE ..................: __ INDTAST S FOR SKÆRM, ELLER P FOR PRINTER .......: _ TAST OK, HVIS PRINTER ER KLAR .....................: __ ___________________________________ ___________________________________ _ ****************************************************************************** /HEADER ____________________ UDGAVE: ___. PR.: __/__/__ SIDE __. UDSKRIFT AF PRODUKT REGISTER (PRODU) DEN: __/__/__ ---------------------------------------------------------------------------- PNR. PRODUKT BETEGNELSE REC.NR. AJOUR.MARK. /SUBHEADER1 /BODY RESIDENT __ _____________________________ ______. _ /SUBTOTAL1 /TOTAL *** SLUT PÅ LISTE *** /* OPEN PRODU 1 OPEN OPLYS // FORMAT PROMPT.1 ænoput,capslockå FORMAT PROMPT.2 ænoputå FORMAT PROMPT.3 ænoputå FORMAT PROMPT.4 ænoput,capslock,check="SP"å FORMAT PROMPT.5 ænoput,capslockå FORMAT PROMPT.6 ædisplayonlyå FORMAT PROMPT.7 ædisplayonlyå FORMAT PROMPT.8 ænoput,capslock,check="S "å // IGEN: CLEARFORM PROMPT.1 THRU PROMPT.5 BLANKFORM PROMPT.6 THRU PROMPT.8 ACCEPT PROMPT.1 IF PROMPT.1 EQ "UD" BEGIN CHAIN "OVERSIGT" END IF PROMPT.1 NE "OK" BEGIN GOTO IGEN END // DISPLAY '00' TO PROMPT.2 DISPLAY '40' TO PROMPT.3 ACCEPT PROMPT.2 IF PROMPT.2 LT '00' BEGIN GOTO IGEN END // ACCEPT PROMPT.3 IF PROMPT.3 GT '40' BEGIN GOTO IGEN END IF PROMPT.2 GT PROMPT.3 BEGIN GOTO IGEN END // ACCEPT PROMPT.4 IF PROMPT.4 EQ "S" BEGIN OUTFILE "CON:" MOVE 22 TO PAGEEND MOVE -1 TO PAGEFEED GOTO HOP END IF PROMPT.4 EQ "P" BEGIN OUTFILE "LST:" MOVE 72 TO PAGEFEED MOVE 62 TO PAGEEND ACCEPT PROMPT.5 IF PROMPT.5 NE "OK" BEGIN GOTO IGEN END END // KLARGØR FILER HOP: MOVE PROMPT.2 TO PRODU.PNR REPORT PRODU BY INDEX.1 INDICATE SELECT AS PRODU.PNR LE PROMPT.3 Æ NOT SELECT Å RETURN END.OF.REPORT // START HOVEDET SECTION HEADER PRINT OPLYS.NAVN TO HEADER.1 PRINT OPLYS.UDGAVE TO HEADER.2 PRINT OPLYS.PRDATO TO HEADER.3 PRINT PAGECOUNT TO HEADER.4 PRINT OPLYS.AKDATO TO HEADER.5 OUTPUT HEADER // START SUBHEADER 1 SECTION SUBHEADER1 OUTPUT SUBHEADER1 // START DETAIL LINIE SECTION BODY PRINT PRODU.PNR PRINT PRODU.PTEKST PRINT PRODU.RECNUM PRINT PRODU.AJO OUTPUT BODY // START SUBTOTAL 1 SECTION SUBTOTAL1 OUTPUT SUBTOTAL1 // START TOTAL SECTION TOTAL OUTPUT TOTAL FORMFEED MOVE 0 TO PAGECOUNT RETURN // PAUSE RPT.KEYPRESS: DISPLAY "DU HAR STOPPET LISTEN !" TO PROMPT.6 DISPLAY "Tast S for STOP ellers tast RETUR !" TO PROMPT.7 ACCEPT PROMPT.8 IF PROMPT.8 IN "Ss" RETURN END$OF$REPORT BLANKFORM PROMPT.6 THRU PROMPT.8 RETURN RPT.LOOP // REPORTEND CHAIN "OVERSIGT" «eof»