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

⟦13ab87afd⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »UDSKRIV.CMD«

Derivation

└─⟦ae6bd3087⟧ Bits:30005879 RC Register-system generering
    └─⟦this⟧ »UDSKRIV.CMD«

TextFile

* UDSKRIV.CMD
store '    ' to xfra,xtil

STORE ' ' TO XLISTE
STORE T TO XLOOP
DO WHILE XLOOP
ERASE
@ 0,0 SAY 'RC                        REGISTER-SYSTEM'
@ 3,0 SAY '                        UDSKRIVNINGS-MODUL'
@ 4,0 SAY '-------------------------------------------------------------------'
@ 7,0 SAY '                   0.   TILBAGE TIL FORRIGE MENU'
@ 10,0 SAY '                   1.   LISTE 1 - &XRAP1'
@ 13,0 SAY '                   2.   LISTE 2 - &XRAP2'
STORE '                    ' TO XTXT
STORE ' ' TO XLISTE,XMEDIE
@ 18,0  SAY 'Tast dit menu-valg' GET XLISTE PICTURE '!'
READ
IF @(XLISTE,'120')=0 .OR. XLISTE='0'
   RETURN
ENDIF
@ 19,0 SAY 'EKSTRA OVERSKRIFTS-TEKST ' GET XTXT
@ 20,0 SAY 'SKAL LISTEN UD PÅ SKÆRM ELLER PRINT ? (S/P) ' GET XMEDIE
@ 21,0 SAY 'Postnr-interval  fra ' get xfra
@ 21,30 SAY ' til ' get xtil
READ
ERASE
STORE '&XRAP'+XLISTE TO LISTENAVN
SET HEADING &LISTENAVN          &XTXT
STORE 'LISTE'+XLISTE TO RAPPORT
IF !(XMEDIE)='P'
   STORE 'TO PRINT' TO XMEDIE
   ACCEPT '..... Tast enter/return når printeren er klar ..' TO XLISTE
   IF XLISTE='-'
      LOOP
   ELSE
      SET CONSOLE OFF
   ENDIF
ELSE
   STORE ' ' TO XMEDIE
ENDIF
REPORT FORM &RAPPORT &XMEDIE for postnr>=xfra .and. postnr<=xtil
SET PRINT OFF
SET CONSOLE ON
ACCEPT 'Tast enter/return når du vil fortsætte ..' to XLISTE
ENDDO





«eof»