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

⟦0b1606d65⟧ TextFile

    Length: 1664 (0x680)
    Types: TextFile
    Names: »FSIDE.CMD«

Derivation

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

TextFile

*****************************************************************************
*    COMMANDO FILE TIL  RC    ORGANISATIONS PLAN                            *
*    NAVN : FSIDE.CMD     SIDST ÆNDRET DATO: 86.01.07   KL..: 15.35         *
*****************************************************************************
SET PRINT ON
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 + 25 TO LINIE
@ LINIE,08 SAY 'RC  ORGANISATIONS  PLAN'
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 PLIST USING 'XX'
STORE LINIE + 02 TO LINIE
@ LINIE,08 SAY 'INDHOLD ..................: '
@ LINIE,40 SAY PTEX1
STORE LINIE + 02 TO LINIE
@ LINIE,08 SAY PTEX2
@ LINIE,40 SAY BEGYN USING 'XXXX'
STORE LINIE + 02 TO LINIE
@ LINIE,08 SAY PTEX3
@ LINIE,40 SAY TIL USING 'XXXX'
STORE LINIE + 02 TO LINIE
@ LINIE,08 SAY 'KØRSELS DATO .............: '
@ LINIE,40 SAY DAGSDATO USING 'XXXXXX'
SET PRINT OFF
SET FORMAT TO SCREEN
RETURN
«eof»