|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Types: TextFile
Names: »TEX.IO«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »TEX.IO«
* TEX.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 TEKSTER' @ 02,076 SAY '***' @ 03,000 SAY '--------------------' @ 03,020 SAY '--------------------' @ 03,040 SAY '--------------------' @ 03,060 SAY '--------------------' @ 05,007 SAY 'KODE2 .............' @ 05,027 SAY '.' IF MQ:MODE <> ' RET ' @ 05,031 GET MKODE2 ELSE @ 05,031 SAY MKODE2 ENDIF @ 07,007 SAY 'KODE6 .............' @ 07,027 SAY '.' IF MQ:MODE <> ' RET ' @ 07,031 GET MKODE6 ELSE @ 07,031 SAY MKODE6 ENDIF @ 10,007 SAY 'TEKST .............' @ 10,027 SAY '.' @ 10,031 GET MTEKST @ 13,000 SAY 'produktlinie .......' @ 13,020 SAY '.......: kode2 = p' @ 13,040 SAY 'roduktlinie & kode' @ 13,060 SAY '6 = 00 (2 nuller) ' @ 15,000 SAY 'omkostnings gruppe .' @ 15,020 SAY '.......: kode2 = 0' @ 15,040 SAY '0 (2 nuller) & kode' @ 15,060 SAY '6 = omk.gruppe nr.' @ 17,000 SAY '--------------------' @ 17,020 SAY '--------------------' @ 17,040 SAY '--------------------' @ 17,060 SAY '--------------------'«eof»