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

⟦a142d3707⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »TEX.RPT«

Derivation

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

TextFile

*     TEX.RPT     -REPORT PROGRAM
* FAST REPORT INDLAGT AF CORN 
STORE   '   '  TO MQ:RLPT
DO WHILE !(MQ:RLPT) <>  'J'  .AND. !(MQ:RLPT) <>  'N'
STORE  'J'  TO MQ:RLPT
@ 21,10 SAY 'TEKST UDSKRIFT PÅ PRINTER ?  (J/N)   '  GET MQ:RLPT
READ
ENDDO
*
STORE  'SKRIVTXT' 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:RFILE, MQ:RLPT, MQ:RPT
      RETURN
   ENDIF
ENDIF RLPT
*ERASE
IF !(OK) = 'OK'
   @ 23,10 SAY '--- TAST UDSKRIFTS DATO         ---' GET DAGSDATO
   READ
   STORE '5' TO SVARS
   @ 23,10 SAY '--- TEKST UDSKRIFT SKRIVES NU,            VENT !' 
   DO FSIDE
   SET CONSOLE OFF
   SET PRINT ON
   REPORT FORM &MQ:RPT
   DO LSIDE
   SET PRINT OFF
   SET CONSOLE ON
ENDIF OK
SET ALTERNATE OFF
RELEASE MQ:RLPT, MQ:RPT, SVARS, DAGSDATO
«eof»