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

⟦89eeb2122⟧ TextFile

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

Derivation

└─⟦07be67046⟧ Bits:30008916 LINDA1 75MC
    └─⟦this⟧ »UDSKRIV.CMD«

TextFile

* UDSKRIV.CMD
*-------------
* KALDES AF GEMENU.CMD
STORE ' ' TO XLISTE
STORE T TO XLOOP

DO WHILE XLOOP
ERASE
TEXT
RC                        REGISTER-SYSTEM                                 P3


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


                   0.   TILBAGE TIL FORRIGE MENU


                   1.   LISTE 1 - UDSKRIVES PÅ SKÆRM


                   2.   LISTE 2 - UDSKRIVES PÅ A4-HØJ







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»