|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »UDSKRIV.BAK«
└─⟦ae6bd3087⟧ Bits:30005879 RC Register-system generering
└─⟦this⟧ »UDSKRIV.BAK«
* 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<=til
SET PRINT OFF
SET CONSOLE ON
ACCEPT 'Tast enter/return når du vil fortsætte ..' to XLISTE
ENDDO
«eof»