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

⟦919ac82de⟧ TextFile

    Length: 534 (0x216)
    Types: TextFile
    Names: »TEXT.S«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »OJG.D!TEXT.S«

TextFile






     %NOSUMMARY
     %NOLIST
     $@**GENS.D*PREFIX
     %LIST
     %EXECLEVEL = 2
   
     VAR
       CC: COMPLETION_CODE;
       OS: STREAM;

     BEGIN
       CONNECT(PARAM.OFILE, OUTPUT_MODE, OS, CC);
       IF CC <> IO_OK THEN TERMINATE(CC);

       OUTTEXT(OS, '(:12:)(:10:)(:10:)EXAMPLE 1:(:0:)', CC);
       OUTTEXT(OS, '(:10:)(:10:)WRITING A TEXT(:0:)', CC);
       OUTTEXT(OS, '(:10:)ON THE SCREEN(:0:)', CC);
       FLUSH(OS, CC);

       DISCONNECT(OS, PARAM.OFILE, CC);

       DISMANTLE(PARAM.PFILE, CC);
     END.