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

⟦31f00d2db⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »BRUKAT.RPT«

Derivation

└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
    └─⟦this⟧ »BRUKAT.RPT«

TextFile

*     brukat.RPT     -REPORT PROGRAM
* IF REPORT DOESNT EXIST, GO INTO dBASE
STORE   '   '  TO MQ:RLPT
DO WHILE !(MQ:RLPT) <>  'Y'  .AND. !(MQ:RLPT) <>  'N'
STORE  'Y'  TO MQ:RLPT
@ 21,10 SAY  ' WANT REPORT SENT TO THE PRINTER? '  GET MQ:RLPT
READ
ENDDO
  STORE  ' '  TO MQ:RDSK
  DO WHILE !(MQ:RDSK) <>  'Y'  .AND. !(MQ:RDSK) <>  'N'
  STORE  'N'  TO MQ:RDSK
@ 21,10 SAY  ' WANT REPORT SENT TO A FILE ?       '  GET MQ:RDSK
READ
ENDDO
IF !(MQ:RDSK)= 'Y'
STORE  '                                                    '  TO MQ:RFILE
DO WHILE MQ:RFILE =  '          '
@ 22,10 SAY  ' ENTER FILE NAME '  GET MQ:RFILE
READ
ENDDO
STORE TRIM(MQ:RFILE) TO MQ:RFILE
ENDIF  RDSK
STORE  '        '  TO MQ:RPT
  DO WHILE MQ:RPT =  '   '
@ 23,10 SAY  ' ENTER REPORT NAME '  GET MQ:RPT
READ
ENDDO
IF !(MQ:RLPT) =  'Y'
@ 23,10 SAY  ' PLEASE SET UP PRINTER           '
SET CONSOLE OFF
WAIT
SET CONSOLE ON
SET PRINT ON
ENDIF RLPT
IF !(MQ:RDSK) =  'Y'
SET ALTERNATE TO &MQ:RFILE
SET ALTERNATE ON
ENDIF RDSK
ERASE
REPORT FORM &MQ:RPT
SET PRINT OFF
SET ALTERNATE OFF
IF !(MQ:RDSK) = 'Y'
  RELEASE MQ:RDSK,MQ:RFILE
ENDIF
RELEASE MQ:RLPT, MQ:RPT«eof»