DataMuseum.dk

top - metrics - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »O2.MEN«

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

TextFile

*   O2.MEN  -SCREEN MENU FILE SIDST ÆNDRET DATO : 86.01.07  KL..:14.35
STORE T TO MQ:UMORE
DO WHILE MQ:UMORE
   ERASE
@ 02,00 SAY '***       RC     ORG'
@ 02,20 SAY 'ANISATIONS PLAN'
@ 02,57 SAY 'OPDATERING   O 2   *'
@ 02,77 SAY '**'
@ 03,00 SAY '--------------------'
@ 03,20 SAY '--------------------'
@ 03,40 SAY '--------------------'
@ 03,60 SAY '--------------------'
@ 06,10 SAY '0) SLUT MED OPDATERI'
@ 06,30 SAY 'NG OG RETUR'
@ 08,10 SAY '1) HENT MEDARBEJDER'
@ 08,30 SAY 'OPLYSNINGER'
@ 10,10 SAY '2) OPDATERING MED NU'
@ 10,30 SAY 'LSTILLING'
@ 12,10 SAY '3) VEDLIGEHOLD EKSIS'
@ 12,30 SAY 'TERENDE DB'
@ 14,10 SAY '4) OPDATER PLAN OPLY'
@ 14,30 SAY 'SNINGER'
@ 16,00 SAY '--------------------'
@ 16,20 SAY '--------------------'
@ 16,40 SAY '--------------------'
@ 16,60 SAY '--------------------'
@ 17,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 HENT
ELSE
IF !(MQ:DUMMY) = '2'
  DO OPDAT
ELSE
IF !(MQ:DUMMY) = '3'
  DO VEDLIG
ELSE
IF !(MQ:DUMMY) = '4'
  DO PLAN
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDDO   WHILE MQ:UMORE«eof»