DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦8732ac85e⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »IDENTIFI.HLP«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »IDENTIFI.HLP«

TextFile

PROGRAM identifi (* IDENTIFI.HLP *);

  TYPE
    str10 = STRING(.10.);
    fil = FILE OF str10;
  
  VAR
    indfil : fil;
    identifier : str10;
    i : INTEGER;
  
  BEGIN
    ASSIGN(indfil, 'IDENTIFI.DAT');
    REWRITE(indfil);
    WRITE(CLRHOM);
    WRITELN('Standardidentifierne indtastes nu i alfabetisk rækkefølge.');
    WRITELN('Benyt STORE bogstaver -  ''#'' stopper:');
    WRITELN;
    REPEAT
      WRITE(': ');
      BUFLEN := 10;
      READLN(identifier);
      IF identifier <> '#'
        THEN WRITE(indfil, identifier);
    UNTIL identifier = '#';
    CLOSE(indfil);
  END.
    «eof»