DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦3262393de⟧ TextFile

    Length: 624 (0x270)
    Types: TextFile
    Names: »TYPE_VAR.I«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V0401.D!PASCAL.D!TEST.D!TYPE_VAR.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!TEST.D!TYPE_VAR.I« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V0401.D!PASCAL.D!TEST.D!TYPE_VAR.I« 
    └─ ⟦this⟧ »PREFIXES.D!XAMOS.D!KA.D!V04CT.D!PASCAL.D!TEST.D!TYPE_VAR.I« 

TextFile

"
**************************************************************************
*                                                                        *
*                        TYPES  AND  VARIABLES                           *
*                                                                        *
**************************************************************************
"

TYPE BUFFER     = ARRAY [0..200] OF INTEGER;

VAR  FCB        : KA_FCB_T;
     REC        : KEYED_ENTRY;
     SI, SO     : STREAM;
     CH         : CHAR;
     EXIT_MAIN  : INTEGER;
     I, J       : INTEGER;
     CC         : COMPLETION_CODE;