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

⟦ff3c02fc9⟧ TextFile

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

Derivation

└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
    └─⟦this⟧ »O5.MEN«

TextFile

*   O5.MEN  -SCREEN MENU FILE
STORE T TO MQ:UMORE
DO WHILE MQ:UMORE
   ERASE
@ 02,00 SAY '***       RC     ORG'
@ 02,20 SAY 'ANISATIONS PLAN'
@ 02,57 SAY 'UDSKRIFTER   O 5   *'
@ 02,77 SAY '**'
@ 03,00 SAY '--------------------'
@ 03,20 SAY '--------------------'
@ 03,40 SAY '--------------------'
@ 03,60 SAY '--------------------'
@ 05,11 SAY '0) SLUT MED UDSKRIFT'
@ 05,31 SAY 'ER OG RETUR'
@ 07,11 SAY '1) AFDELINGS KLADDE'
@ 09,11 SAY '2) KORTFATTET OVERSI'
@ 09,31 SAY 'GT'
@ 11,11 SAY '3) UDVIDET OVERSIGT'
@ 13,11 SAY '4) AFDELINGER OG MED'
@ 13,31 SAY 'ARBEJDERE'
@ 15,00 SAY '--------------------'
@ 15,20 SAY '--------------------'
@ 15,40 SAY '--------------------'
@ 15,60 SAY '--------------------'
@ 16,00 SAY 'TAST SVAR:'
   SET CONSOLE OFF
   WAIT TO MQ:DUMMY
   SET CONSOLE ON
IF !(MQ:DUMMY) = '0'
RELEASE MQ:DUMMY
RETURN
ELSE
IF !(MQ:DUMMY) = '1'
  DO LISTE1
ELSE
IF !(MQ:DUMMY) = '2'
  DO LISTE2
ELSE
IF !(MQ:DUMMY) = '3'
  DO LISTE3
ELSE
IF !(MQ:DUMMY) = '4'
  DO LISTE4
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDDO   WHILE MQ:UMORE«eof»