DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

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

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦ea0ff907e⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »CREAFILE.SA«

Derivation

└─⟦e12db5ad4⟧ Bits:30009789/_.ft.Ibm2.50007357.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »CREAFILE.SA«

TextFile

 
æ*****************************************************************
                        Copyright 1984 by
                        NCR Corporation
                        Dayton, Ohio  U.S.A.
                        All Rights Reserved
******************************************************************
                        EOS Software produced by:
                        NCR Systems Engineering - Copenhagen
                        Copenhagen
                        DENMARK
*****************************************************************å
 
 
PROGRAM creaFile (input, output);
 
TYPE
  byte = -128..127;
  word = -32768..32767;
  long = integer;
  fName = stringÆ48Å;
  rec = ARRAY Æ1..256Å OF byte;
 
VAR
  outfile : FILE OF rec;
  block   : rec;
  fileName : fName;
  fSize, i, j : integer;
 
BEGIN
  writeln ('Type fileName, ex. EAR:2611..TEST1;C=3');
  readln (fileName);
  writeln ('Type fileSize (#sectors)');
  readln (fSize);
 
æcreate contiguous fileå
  rewrite (outfile, fileName);
 
æcreate fSize recordså
  FOR i := 1 TO fSize DO
  BEGIN
    FOR j := 1 TO 256 DO
      blockÆjÅ := i;
    write (outfile, block);
  END;
END.  æcreateFileå
«eof»