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

⟦7ccb7eefb⟧ TextFile

    Length: 1664 (0x680)
    Types: TextFile
    Names: »BUD.RPT«

Derivation

└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
    └─⟦this⟧ »BUD.RPT«

TextFile

*     BUD.RPT     -REPORT PROGRAM
* FAST RAPPORT INDLAGT AF CORN 
STORE   '   '  TO MQ:RLPT
DO WHILE !(MQ:RLPT) <>  'J'  .AND. !(MQ:RLPT) <>  'N'
STORE  'J'  TO MQ:RLPT
@ 21,10 SAY 'BUDGET UDSKRIFT PÅ PRINTER ?  ( J/N ) '  GET MQ:RLPT
READ
ENDDO
  STORE  ' '  TO MQ:RDSK
  DO WHILE !(MQ:RDSK) <>  'J'  .AND. !(MQ:RDSK) <>  'N'
  STORE  'N'  TO MQ:RDSK
@ 21,10 SAY 'BUDGET UDSKRIFT PÅ DISK FILE ? ( N/J )'  GET MQ:RDSK
READ
ENDDO
IF !(MQ:RDSK)= 'J'
STORE  '            '  TO MQ:RFILE
DO WHILE MQ:RFILE =  '          '
@ 22,10 SAY 'TAST FILE NAVN OG TYPE  (NAVN.TYP)    'GET MQ:RFILE
READ
ENDDO
STORE TRIM(MQ:RFILE) TO MQ:RFILE
ENDIF  RDSK
STORE  'SKRIVBUD' TO MQ:RPT
STORE '      ' TO DAGSDATO
STORE '  ' TO OK
IF !(MQ:RLPT) =  'J'
   @ 22,10 SAY 'ER PRINTER KLAR ?? (A4-HØJ) ??     '
   @ 23,10 SAY 'SÅ TAST OK  ELLERS TAST RETUR      ' GET OK
   READ
   IF !(OK) <> 'OK'
      RELEASE MQ:RDSK, MQ:RFILE, MQ:RLPT, MQ:RPT
      RETURN
   ENDIF
ENDIF RLPT
IF !(MQ:RDSK) =  'J'
   SET ALTERNATE TO &MQ:RFILE
   SET ALTERNATE ON
ENDIF RDSK
*ERASE
IF !(OK) = 'OK'
   @ 23,10 SAY '--- TAST UDSKRIFTS DATO         ---' GET DAGSDATO
   READ
   STORE '4' TO SVARS
   @ 23,10 SAY '--- BUDGET UDSKRIFT SKRIVES NU,           VENT !'
   DO FSIDE
   SET CONSOLE OFF
   SET PRINT ON
   ? CHR(29)
   REPORT FORM &MQ:RPT
   ? CHR(30)
   EJECT
   DO LSIDE
   SET PRINT OFF
   SET CONSOLE ON
ENDIF OK
SET ALTERNATE OFF
IF !(MQ:RDSK) = 'J'
  RELEASE MQ:RDSK,MQ:RFILE
ENDIF
STORE '  ' TO OK
RELEASE MQ:RLPT, MQ:RPT, SVARS, DAGSDATO
«eof»