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

⟦f08b56b4f⟧ TextFile

    Length: 436 (0x1b4)
    Types: TextFile
    Names: »DISPLAY.PAS«

Derivation

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

TextFile


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

unit Display;
æ Sample unit for CIRCULAR.PAS å

interface

procedure WriteXY(x, y : integer; s : string);

implementation
uses
  Crt, Error;

procedure WriteXY(x, y : integer; s : string);
begin
  if (x in Æ1..80Å) and (y in Æ1..25Å) then
  begin
    GoToXY(x, y);
    Write(s);
  end
  else
    ShowError('Invalid WriteXY coordinates');
end;

end.
«eof»