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

⟦552b1df53⟧ TextFile

    Length: 2176 (0x880)
    Types: TextFile
    Names: »BUD.IO«

Derivation

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

TextFile

*     BUD.IO -INPUT/OUTPUT SCREEN
@ 01,000 SAY '--------------------'
@ 01,020 SAY '--------------'
@ 01,036 SAY MQ:MODE
@ 01,046 SAY '--------------------'
@ 01,066 SAY '--------------'
@ 02,000 SAY '***    RC  TIME  OG'
@ 02,021 SAY 'OMKOSTNINGS  OVERSIG'
@ 02,041 SAY 'T        BUDGET'
@ 02,076 SAY '***'
@ 03,000 SAY '--------------------'
@ 03,020 SAY '--------------------'
@ 03,040 SAY '--------------------'
@ 03,060 SAY '--------------------'
@ 04,007 SAY 'KODE2  .............'
@ 04,027 SAY '.'
IF MQ:MODE <> ' RET '
@ 04,031 GET MKODE2
ELSE
@ 04,031 SAY MKODE2
ENDIF
@ 05,007 SAY 'KONTOGRP ...........'
@ 05,027 SAY '.'
IF MQ:MODE <> ' RET '
@ 05,031 GET MKONTOGRP
ELSE
@ 05,031 SAY MKONTOGRP
ENDIF
@ 07,007 SAY 'JANUAR   ...........'
@ 07,027 SAY '.'
@ 07,031 GET MBUBEL01 PICTURE '99999999'
@ 08,007 SAY 'FEBRUAR  ...........'
@ 08,027 SAY '.'
@ 08,031 GET MBUBEL02 PICTURE '99999999'
@ 09,007 SAY 'MARTS    ...........'
@ 09,027 SAY '.'
@ 09,031 GET MBUBEL03 PICTURE '99999999'
@ 10,007 SAY 'APRIL    ...........'
@ 10,027 SAY '.'
@ 10,031 GET MBUBEL04 PICTURE '99999999'
@ 11,007 SAY 'MAJ      ...........'
@ 11,027 SAY '.'
@ 11,031 GET MBUBEL05 PICTURE '99999999'
@ 12,007 SAY 'JUNI     ...........'
@ 12,027 SAY '.'
@ 12,031 GET MBUBEL06 PICTURE '99999999'
@ 13,007 SAY 'JULI     ...........'
@ 13,027 SAY '.'
@ 13,031 GET MBUBEL07 PICTURE '99999999'
@ 14,007 SAY 'AUGUST   ...........'
@ 14,027 SAY '.'
@ 14,031 GET MBUBEL08 PICTURE '99999999'
@ 15,007 SAY 'SEPTEMBER...........'
@ 15,027 SAY '.'
@ 15,031 GET MBUBEL09 PICTURE '99999999'
@ 16,007 SAY 'OKTOBER  ...........'
@ 16,027 SAY '.'
@ 16,031 GET MBUBEL10 PICTURE '99999999'
@ 17,007 SAY 'NOVEMBER ...........'
@ 17,027 SAY '.'
@ 17,031 GET MBUBEL11 PICTURE '99999999'
@ 18,007 SAY 'DECEMBER ...........'
@ 18,027 SAY '.'
@ 18,031 GET MBUBEL12 PICTURE '99999999'
@ 20,000 SAY '--------------------'
@ 20,020 SAY '--------------------'
@ 20,040 SAY '--------------------'
@ 20,060 SAY '--------------------'
«eof»