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

⟦59f720c89⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »O3.MEN«

Derivation

└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
    └─⟦this⟧ »O3.MEN«

TextFile

*   O3.MEN  -SCREEN MENU FILE
*
USE ORG INDEX ORG PLAN
*
STORE T TO MQ:UMORE
DO WHILE MQ:UMORE
   ERASE
@ 02,00 SAY '***       RC  ORGANI'
@ 02,20 SAY 'SATIONS PLAN'
@ 02,50 SAY 'ONLINE FUNKTIONER'
@ 02,70 SAY 'O 3   ***'
@ 04,00 SAY '--------------------'
@ 04,20 SAY '--------------------'
@ 04,40 SAY '--------------------'
@ 04,60 SAY '--------------------'
@ 06,10 SAY '0) SLUT MED ONLINE O'
@ 06,30 SAY 'G RETUR'
@ 08,10 SAY '1) OPRET'
@ 10,10 SAY '2) SØG, VIS, RET, SL'
@ 10,30 SAY 'ET'
@ 12,10 SAY '3) UDSKRIVE I LABELS'
@ 12,31 SAY 'FORM'
@ 14,00 SAY '--------------------'
@ 14,20 SAY '--------------------'
@ 14,40 SAY '--------------------'
@ 14,60 SAY '--------------------'
@ 15,00 SAY 'TAST SVAR:'
   SET CONSOLE OFF
   WAIT TO MQ:DUMMY
   SET CONSOLE ON
IF !(MQ:DUMMY) = '0'
RELEASE MQ:DUMMY
USE
RETURN
ELSE
IF !(MQ:DUMMY) = '1'
  DO ORG.ADD
ELSE
IF !(MQ:DUMMY) = '2'
  DO ORG.GET
ELSE
IF !(MQ:DUMMY) = '3'
  DO ORG.LBL
ENDIF
ENDIF
ENDIF
ENDIF
ENDDO   WHILE MQ:UMORE«eof»