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

⟦c20657ca0⟧ TextFile

    Length: 3456 (0xd80)
    Types: TextFile
    Names: »LIPRODU.RPT«

Derivation

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

TextFile

/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»