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 - metrics - download

⟦e22d287fd⟧ TextFile

    Length: 300 (0x12c)
    Types: TextFile
    Names: »ERROR.PAS«

Derivation

└─⟦505fbc898⟧ Bits:30002732 Turbo Pascal 5.0 for C-DOS Partner
    └─⟦this⟧ »DEMOS\ERROR.PAS«

TextFile


æ Copyright (c) 1985, 88 by Borland International, Inc. å

unit Error;
æ Sample unit for CIRCULAR.PAS å

interface

procedure ShowError(Msg : string);

implementation

uses
  Crt, Display;

procedure ShowError(Msg : string);
begin
  WriteXY(1, 25, 'Error: ' + Msg);
end;

end.
«eof»