DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦cafd4ad43⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tgetchar    «

Derivation

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »tgetchar    «

TextFile

external integer procedure getchar(ra,p,c);
  real array ra; integer p,c;
begin
  integer array field iaf;
  iaf:= 0;
  getchar:= læstegn(ra.iaf,p,c);
end;
end
▶EOF◀