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