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

⟦199f94120⟧ TextFile

    Length: 2225 (0x8b1)
    Types: TextFile
    Names: »CRT.DOC«

Derivation

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

TextFile


æ*****************************************************************å
æ                                                                 å
æ          Turbo Pascal Version 5.0                               å
æ          CRT Interface Unit for Piccoline/Partner               å
æ                                                                 å
æ          Copyright (C) 1988 Dansk Center for P▶91◀dagogik          å
æ                             og Informatik, CPI                  å
æ                                                                 å
æ*****************************************************************å

unit Crt;

interface

uses DOS;

const

  BW40          = 0;
  CO40          = 1;
  BW80          = 2;
  CO80          = 3;
  Mono          = 7;
  Font8x8       = 0;
  Last          =-1;

  C40           = CO40;
  C80           = CO80;

  Black         = 0;
  Blue          = 1;
  Green         = 2;
  Cyan          = 3;
  Red           = 4;
  Magenta       = 5;
  Brown         = 6;
  LightGray     = 7;
  DarkGray      = 8;
  LightBlue     = 9;
  LightGreen    = 10;
  LightCyan     = 11;
  LightRed      = 12;
  LightMagenta  = 13;
  Yellow        = 14;
  White         = 15;
  Blink         = 128;

var
  CheckBreak,
  CheckEOF,
  DirectVideo,
  CheckSnow     : Boolean;
  LastMode      : Word;
  TextAttr      : Byte;

  WindMinX,
  WindMinY,
  WindMaxX,
  WindMaxY      : Byte;

  WindMin       : Word absolute WindMinX;
  WindMax       : Word absolute WindMaxX;

  SaveInt1B     : Pointer;
  VPC           : Boolean;


procedure TextMode(Mode: word);
procedure Window(XLow, YLow, XHigh, YHigh: byte);
procedure ClrScr;
procedure ClrEol;
procedure InsLine;
procedure DelLine;
procedure GotoXY(X, Y: byte);
function  WhereX: byte;
function  WhereY: byte;
procedure TextColor(Color: byte);
procedure TextBackground(Color: byte);
procedure RcChars;
procedure IbmChars;
procedure LowVideo;
procedure HighVideo;
procedure NormVideo;
function  KeyPressed: boolean;
function  ReadKey: CHAR;
procedure AssignCrt(var f: text);
procedure Delay(MS: word);
procedure Sound(Hz: word);
procedure NoSound;
procedure ResetPalette;«eof»