1# format=pipe 2arc||(X: SmallInt, Y: SmallInt, StAngle: Word, EndAngle: Word, Radius: Word)| 3assigncrt||(File: Text)| 4bar||(x1: SmallInt; y1: SmallInt; x2: SmallInt; y2: SmallInt)| 5bar3d||(x1: SmallInt; y1: SmallInt; x2: SmallInt; y2: SmallInt; depth: Word; top: Boolean)| 6begin||| 7black||| 8blink||| 9blue||| 10brown||| 11cleardevice||| 12closegraph||| 13clreol||| 14clrscr||| 15const||| 16cursorbig||| 17cursoroff||| 18cursoron||| 19cyan||| 20darkgray||| 21delay||(MS: Word)| 22delline|||(X: Byte, Y: Byte)| 23detectgraph||(GraphDriver: SmallInt; var GraphMode: SmallInt)| 24drawpoly||(NumPoints: Word; var polypoints)| 25ellipse||(X: SmallInt; Y: SmallInt; stAngle: Word; EndAngle: Word; XRadius: Word; YRadius: Word)| 26fillellipse||(X: SmallInt; Y: SmallInt; XRadius: Word; YRadius: Word)| 27fillpoly||(NumPoints: Word; var PolyPoints)| 28floodfill||(x: SmallInt; y: SmallInt; Border: Word)| 29fpioperm|cInt|(From: Cardinal; Num: Cardinal; Value: cInt)| 30fpiopl|cInt|(Level: cInt|) 31getarccoords||(var ArcCoords: ArcCoordsType)| 32getaspectratio||(Xasp: Word; Yasp: Word)| 33getbkcolor|word|| 34getcolor|word|| 35getdefaultpalette||(var Palette: PaletteType)| 36getdirectvideo|bool|| 37getdrivername|String|| 38getfillpattern||(var FillPattern: FillPatternType)| 39getfillsettings||(var Fillinfo: FillSettingsType)| 40getgraphmode|Smallint|| 41getlinesettings||(var ActiveLineInfo: LineSettingsType)| 42getmaxcolor|Word|| 43getmaxmode|Smallint|| 44getmaxx|Smallint|| 45getmaxy|Smallint|| 46getmodename|String|(ModeNumber: SmallInt)| 47getmoderange||(GraphDriver: SmallInt; var LoMode: SmallInt; var HiMode: SmallInt)| 48getpalette||(var Palette: PaletteType)| 49getpalettesize|Smallint|| 50gettextsettings||(var TextInfo: TextSettingsType)| 51getviewsettings||(var viewport: ViewPortType)| 52getx|Smallint|| 53gety|Smallint|| 54gotoxy||(x: Smallint, y: Smallint)| 55graphdefaults||| 56grapherrormsg|String|(ErrorCode: SmallInt)| 57graphresult|Smallint|| 58green||| 59highvideo||| 60initgraph||(var GraphDriver: SmallInt; var GraphMode: SmallInt; const PathToDriver: String) 61insline||| 62installuserdriver|Smallint|(Name: String; AutoDetectPtr: Pointer)| 63installuserfont|Smallint|(const FontFileName: String)| 64keypressed|bool|| 65lightblue||| 66lightcyan||| 67lightgray||| 68lightgreen||| 69lightmagenta||| 70lightred||| 71linerel||(Dx: SmallInt; Dy: SmallInt)| 72lineto||(X: SmallInt; Y: SmallInt)| 73lowvideo||| 74magenta||| 75moverel||(Dx: SmallInt; Dy: SmallInt)| 76moveto||(X: Smallint, Y: Smallint)| 77normvideo||| 78nosound||| 79operator||(**(float, float): float)| 80operator||(**(int64, int64): int64)| 81outtext||(const TextString: String)| 82pieslice||(X: SmallInt; Y: SmallInt; stangle: SmallInt; endAngle: SmallInt; Radius: Word)| 83procedure||| 84program||(Title)| 85queryadapterinfo|PModeInfo|| 86read||(Identifier)| 87readln||(Identifier)| 88readkey|char|| 89readport||(Port: LongInt; var Value: Byte)| 90readport||(Port: LongInt; var Value: LongInt)| 91readport||(Port: LongInt; var Value: Word)| 92readportb|Byte|(Port: LongInt)| 93readportb||(Port: LongInt; var Buf; Count: LongInt)| 94readportl|LongInt|(Port: LongInt)| 95readportl||(Port: LongInt; var Buf; Count: LongInt)| 96readportw|Word|(Port: LongInt)| 97readportw||(Port: LongInt; var Buf; Count: LongInt)| 98rectangle||(x1: SmallInt; y1: SmallInt; x2: SmallInt; y2: SmallInt)| 99red||| 100registerbgidriver|Smallint|(driver: pointer)| 101registerbgifont|Smallint|(font: pointer)| 102restorecrtmode||| 103sector||(x: SmallInt; y: SmallInt; StAngle: Word; EndAngle: Word; XRadius: Word; YRadius: Word)| setaspectratio||(Xasp: Word; Yasp: Word)| 104setbkcolor||(Color: Word)| 105setcolor||(Color: Word)| 106setdirectvideo||(DirectAccess: Boolean)| 107setfillpattern||(Pattern: FillPatternType; Color: Word)| 108setfillstyle||(Pattern: Word; Color: Word)| 109setgraphmode||(Mode: SmallInt)| 110setlinestyle||(LineStyle: Word; Pattern: Word; Thickness: Word)| 111setpalette||(ColorNum: Word; Color: ShortInt)| 112settextjustify||(horiz: Word; vert: Word)| 113settextstyle||(font: Word; direction: Word; charsize: Word)| 114setusercharsize||(Multx: Word; Divx: Word; Multy: Word; Divy: Word)| 115setviewport||(X1: SmallInt; Y1: SmallInt; X2: SmallInt; Y2: SmallInt; Clip: Boolean)| 116setwritemode||(WriteMode: SmallInt)| 117sound||(Hz: Word)| 118textbackground||(Color: Byte)| 119textcolor||(Color: Byte)| 120textheight|Word|(const TextString: String)| 121textmode||(Mode: Integer)| 122textwidth|Word|(const TextString: String)| 123uses||(Unitlist)| 124var||| 125wherex|Byte|| 126wherey|Byte|| 127white||| 128window||(X1: Byte, Y1: Byte, X2: Byte, Y2: Byte)| 129write||(Output)| 130writeln||(Output)| 131writeport||(Port: LongInt; Value: Byte)| 132writeport||(Port: LongInt; Value: LongInt)| 133writeport||(Port: LongInt; Value: Word)| 134writeportb||(Port: LongInt; Value: Byte)| 135wrtieportb||(Port: LongInt; var Buf; Count: LongInt)| 136writeportl||(Port: LongInt; Value: LongInt)| 137wrtieportl||(Port: LongInt; var Buf; Count: LongInt)| 138writeportw||(Port: LongInt; Value: Word)| 139wrtieportw||(Port: LongInt; var Buf; Count: LongInt)| 140yellow||| 141