DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦e76f65215⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »UDSKRIV.CMD«

Derivation

└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
    └─⟦this⟧ »UDSKRIV.CMD«

TextFile

* UDSKRIV.CMD
*-------------
STORE ' ' TO XLISTE
STORE T TO XLOOP

DO WHILE XLOOP
ERASE
TEXT
RC                        REGISTER-SYSTEM                                 P3


                        UDSKRIVNINGS-MODUL
-------------------------------------------------------------------------------


                   0.   SLUT PÅ UDSKRIVNING


                   1.   LISTE 1 - PRIMO-/PERIODE-/ULTIMO-TOTAL PR. PROJEKT/KTO


                   2.   LISTE 2 - TRANSAKTIONSLISTE







ENDTEXT
STORE ' ' TO XLISTE
@ 18,0  SAY 'Tast dit menu-valg' GET XLISTE PICTURE '!'
READ

IF @(XLISTE,'120')=0 .OR. XLISTE='0'
   RETURN
ENDIF

ERASE

IF XLISTE='1'
   REPORT FORM DEMO1
   ACCEPT '--> tast enter/return når du har læst færdigt...' TO XLISTE
ENDIF

IF XLISTE='2'
   ACCEPT '...... Tast enter/return når printeren er klar ..' TO XLISTE
   REPORT FORM DEMO2 TO PRINT
   EJECT
   SET PRINT OFF
ENDIF

ENDDO

«eof»