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

⟦1bf49e91f⟧ TextFile

    Length: 2432 (0x980)
    Types: TextFile
    Names: »FSIDE.CMD«

Derivation

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

TextFile

*****************************************************************************
*    COMMANDO FILE TIL  RC TIME OG OMKOSTNINGS OVERSIGT                     *
*    NAVN : FSIDE.CMD     SIDST ÆNDRET DATO: 86.01.16   KL..: 13.20         *
*    KALDES I LISTE UDSKRIFTER                                              *
*****************************************************************************
SET PRINT ON
? CHR(30)
SET FORMAT TO PRINT
STORE 02 TO LINIE
@ LINIE,08 SAY '***************'
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY ' ************* '
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '  ***********  '
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '   *********   '
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '    *******    '
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '     *****     '
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '      ***      '
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '       *       '
STORE LINIE + 10 TO LINIE
@ LINIE,08 SAY 'RC TIME OG OMKOSTNINGS OVERSIGT'
STORE LINIE + 02 TO LINIE
@ LINIE,08 SAY 'KVITTERING:'
STORE LINIE + 01 TO LINIE
@ LINIE,08 SAY '==========='
STORE LINIE + 04 TO LINIE
@ LINIE,08 SAY 'LISTE NR .................: '
@ LINIE,40 SAY SVARS USING 'X'
STORE LINIE + 02 TO LINIE
IF SVARS='1'
   @ LINIE,08 SAY 'INDHOLD ..................: '
   @ LINIE,40 SAY 'OVERSIGTS LISTE'
   STORE LINIE + 02 TO LINIE
   @ LINIE,08 SAY 'FRA PROJEKT GRUPPEKODE 2 .: '
   @ LINIE,40 SAY FRA USING 'XX'
   STORE LINIE + 02 TO LINIE
   @ LINIE,08 SAY 'TIL PROJEKT GRUPPEKODE 2 .: '
   @ LINIE,40 SAY TIL USING 'XX'
   STORE LINIE + 02 TO LINIE
ENDIF
IF SVARS='3'
   @ LINIE,08 SAY 'INDHOLD ..................: '
   @ LINIE,40 SAY 'PRODUKTLINIE OG PROJEKTER'
   STORE LINIE + 02 TO LINIE
   @ LINIE,08 SAY 'FRA PROJ. GRP.KODE 2 & 6 .: '
   @ LINIE,40 SAY BEGYN USING 'XXXX'
   STORE LINIE + 02 TO LINIE
   @ LINIE,08 SAY 'TIL PROJ. GRP.KODE 2 & 6 .: '
   @ LINIE,40 SAY TIL USING 'XXXX'
   STORE LINIE + 02 TO LINIE
ENDIF
IF SVARS='4'
   @ LINIE,08 SAY 'INDHOLD ..................: '
   @ LINIE,40 SAY 'BUDGET UDSKRIFT'
   STORE LINIE + 02 TO LINIE
ENDIF
IF SVARS='5'
   @ LINIE,08 SAY 'INDHOLD ..................: '
   @ LINIE,40 SAY 'TEKST  UDSKRIFT'
   STORE LINIE + 02 TO LINIE
ENDIF
@ LINIE,08 SAY 'KØRSELS DATO .............: '
@ LINIE,40 SAY DAGSDATO USING 'XXXXXX'
SET PRINT OFF
SET FORMAT TO SCREEN
RETURN
«eof»