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

⟦bae0b2cca⟧ TextFile

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

Derivation

└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
    └─⟦this⟧ »T3.MEN«

TextFile

*   T3.MEN  -SCREEN MENU FILE
use dbudget index dkode2gr
*
STORE T TO MQ:UMORE
DO WHILE MQ:UMORE
   ERASE
@ 02,00 SAY '***       RC  TIME'
@ 02,20 SAY 'OG  OMKOSTNINGS  OVE'
@ 02,40 SAY 'RSIGT        BUDGET'
@ 02,70 SAY 'T3    ***'
@ 03,00 SAY '--------------------'
@ 03,20 SAY '--------------------'
@ 03,40 SAY '--------------------'
@ 03,60 SAY '--------------------'
@ 05,10 SAY '0) SLUT MED BUDGET'
@ 07,10 SAY '1) OPRET'
@ 09,10 SAY '2) SØG, VIS, RET, SL'
@ 09,30 SAY 'ET'
@ 11,10 SAY '3) UDSKRIVE  HELE BU'
@ 11,30 SAY 'DGETTET'
@ 13,10 SAY '4) SLETTE    HELE BU'
@ 13,30 SAY 'DGETTET'
@ 15,10 SAY '5) OPDATER   BUDGET'
@ 15,30 SAY 'INDEKS'
@ 17,00 SAY '--------------------'
@ 17,20 SAY '--------------------'
@ 17,40 SAY '--------------------'
@ 17,60 SAY '--------------------'
@ 18,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 BUD.ADD
ELSE
IF !(MQ:DUMMY) = '2'
  DO BUD.GET
ELSE
IF !(MQ:DUMMY) = '3'
  DO BUD.RPT
ELSE
IF !(MQ:DUMMY) = '4'
  DO SLETBUDG
ELSE
IF !(MQ:DUMMY) = '5'
  DO BUD.GO
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDDO   WHILE MQ:UMORE«eof»