Dec 062017
 
Handy quick reference sheet for Turbo Professional 5.0 users.
File TPREF.ZIP from The Programmer’s Corner in
Category Pascal Source Code
Handy quick reference sheet for Turbo Professional 5.0 users.
File Name File Size Zip Size Zip Type
TPREF.TXT 10240 2324 deflated

Download File TPREF.ZIP Here

Contents of the TPREF.TXT file


Turbo Pascal Runtime Errors

DOS Errors Critical Errors (continued)
2 File not found. 153 Unknown command.
3 Path not found. 154 CRC error in data.
4 Too many open files. 155 Bad drive request structure length.
5 File access denied. 156 Disk seek error.
6 Invalid file handle. 157 Unknown media type.
12 Invalid file access code. 158 Sector not found.
15 Invalid drive number. 159 Printer out of paper.
16 Cannot remove current directory. 160 Device write fault.
17 Cannot rename accross drives. 161 Device read fault.
162 Hardware fault.
I/O Errors
100 Disk read error. Fatal Errors
101 Disk write error. 200 Division by zero.
102 File not assigned. 201 Range check error.
103 File not opened. 202 Stack overflow error.
104 File not open for input. 203 Heap overflow error.
105 File not open for output. 204 Invalid pointer operation.
106 Invalid numeric format. 205 Floating point overflow.
206 Floating point underflow.
Critical Errors 207 Invalid floating point operation.
150 Disk is write-protected. 208 Overlay manager not installed.
151 Unknown unit. 209 Overlay file read error.
152 Drive not ready.


TPENTRY ROUTINES:

function EditScreen(var ESR: ESrecord; StartField: Word; ReadOnly: Boolean): EStype;
procedure EditString(Prompt: string; Row, Col: Byte; EditLen: Byte; Picture: string;
HelpIndex: Word; var Escaped: Boolean; var EditSt: string);
procedure DisposeEditScreen(var ESR: ESrecord);
procedure AddStringField(var ESR: ESrecord; Prompt: string; pRow, pCol: Word; Picture: string;
eRow, eCol: Word; EditLen: Byte; HelpIndex: Word; Validation: Pointer; var EditSt: string);
procedure AddIntField(var ESR: ESrecord; Prompt: string; pRow, pCol: Word; Picture: string;
eRow, eCol: Word; HelpIndex: Word; IntLo: Integer; IntHi: Integer; var EditInt: Integer);
procedure AddChoiceField(var ESR: ESrecord; Prompt: string; pRow, pCol: Word; Picture: string;
eRow, eCol: Word; HelpIndex: Word; DataSize: Byte; Increment: Pointer; var EditVar);
procedure SetWrapMode(var ESR: ESrecord; WrapMode: WrapModeType);
procedure SetEntryWindow(var ESR: ESrecord; XLow, YLow, XHigh, YHigh: Byte; Framed: Boolean;
BackAttr, FrameAttr: Byte);
procedure ChangeProtection(var ESR: ESrecord; FieldID: Word; OnOff: Boolean);
procedure ChangePromptAttr(var ESR: ESrecord; FieldID: Word; A: Byte);
procedure ClearEntryWindow(var ESR: ESrecord);procedure ChangeFieldAttr(var ESR: ESrecord; FieldID: Word; A: Byte);
procedure ChangeStringAttr(var ESR: ESrecord; FieldID: Word; A: Byte);
function AddEntryCommand(Cmd: EStype; NumKeys: Byte; Key1, Key2: Word): Boolean;

procedure InitESrecord(var ESR: ESrecord); procedure DrawEditScreen(var ESR: ESrecord);
procedure SetNumeric(On: Boolean); procedure SetExitOnSecondClick(On: Boolean);
procedure SetAutoAdvance(On: Boolean); procedure EnableEntryMouse;
procedure SetCursorToEnd(On: Boolean); procedure DisableEntryMouse;
procedure SetTrimBlanks(On: Boolean); procedure SetPromptAttr(A: Byte);
procedure SetRightJustify(On: Boolean); procedure SetFieldAttr(A: Byte);
procedure SetPadChar(Ch: Char); procedure SetStringAttr(A: Byte);
procedure SetClearFirstChar(On: Boolean); procedure SetCtrlAttr(A: Byte);
procedure SetInsertPushes(On: Boolean); procedure SetProtectAttrs(PromptA, FieldA: Byte);
procedure SetAutoNumLock(On: Boolean); procedure SetBeepOnError(var ESR: ESrecord; On: Boolean);
procedure SetRequired(On: Boolean); procedure SetPreEditPtr(var ESR: ESrecord; P: Pointer);
procedure SetPasswordMode(On: Boolean); procedure SetPostEditPtr(var ESR: ESrecord; P: Pointer);
procedure SetProtection(On: Boolean); procedure SetErrorPtr(var ESR: ESrecord; P: Pointer);
procedure SetForceMode(Force, OverType: Boolean);


TPMENU ROUTINES:

function NewMenu(SelectKeys: MenuCharSet; UserFunc: Pointer): Menu;
procedure SubMenu(XLP, YLP, YhelpP: Byte; OrientP: Orientation; FrameP: FrameArray; ColorsP: MenuColorArray; HeaderStr: string);
procedure PopSubLevel;
procedure MenuItem(NameStr: string; DisplayPosP: Byte; SelectPosP: Byte; KeyP: MenuKey; HelpStr: string);
procedure MenuMode(Explode, Shadow, Noise: Boolean);
procedure SetMenuMode(Mnu: Menu; Explode, Shadow, Noise: Boolean);
procedure SetMenuDelay(Mnu: Menu; ExpDelay: Word);
procedure DisposeMenu(Mnu: Menu);
procedure ResetMenu(Mnu: Menu);
function MenuChoice(Mnu: Menu; var SelectKey: Char): MenuKey;
procedure EraseMenu(Mnu: Menu; ResetSelections: Boolean);
function AddMenuCommand(Cmd: MKType; NumKeys: Byte; Key1, Key2: Word): Boolean;
procedure EnableMenuItem(Mnu: Menu; MKey: MenuKey);
procedure DisableMenuItem(Mnu: Menu; MKey: MenuKey);
procedure EnableMenuMouse;
procedure DisableMenuMouse;
procedure WriteMenuLib(Mnu: Menu; Fname: string; ID: string);
function ReadMenuLib(Fname: string; ID: string; UserFunc: Pointer): Menu;
procedure PackMenuLib(Iname, Oname: string);


TPSTRING ROUTINES:

function HexB(B: Byte): string; function Str2Int(S: string; var I: Integer): Boolean;
function HexW(W: Word): string; function Str2Word(S: string; var I: Word): Boolean;
function HexL(L: LongInt): string; function Str2Long(S: string; var I: LongInt): Boolean;
function HexPtr(P: Pointer): string; function Str2Real(S: string; var R: Float): Boolean;
function BinaryB(B: Byte): string; function Long2Str(L: LongInt): string;
function BinaryW(W: Word): string; function Real2Str(R: Float; Width, Places: Byte): string;
function BinaryL(L: LongInt): string; function UpCaseMac(Ch: Char): Char;
function OctalB(B: Byte): string; function LoCaseMac(Ch: Char): Char;
function OctalW(W: Word): string; function Upcase(Ch: Char): Char;
function OctalL(L: LongInt): string; function StUpcase(S: string): string;
function Form(Mask: string; R: Float): string; function LoCase(Ch: Char): Char;
function CharStr(Ch: Char; Len: Byte): string; function StLocase(S: string): string;
function DefaultExtension(Name, Ext: string): string; procedure UpCasePrim;
function ForceExtension(Name, Ext: string): string; procedure LoCasePrim;
function JustFilename(PathName: string): string; function PadCh(S: string; Ch: Char; Len: Byte): string;
function JustExtension(Name: string): string; function Pad(S: string; Len: Byte): string;
function JustPathname(PathName: string): string; function LeftPadCh(S: string; Ch: Char; Len: Byte): string;
function AddBackSlash(DirName: string): string; function LeftPad(S: string; Len: Byte): string;
function CleanPathName(PathName: string): string; function TrimLead(S: string): string;
function FullPathName(FName: string): string; function TrimTrail(S: string): string;
function Entab(S: string; TabSize: Byte): string; function Trim(S: string): string;
function Detab(S: string; TabSize: Byte): string; function StringToHeap(S: string): Pointer;
function Soundex(S: string): string; function StringFromHeap(P: Pointer): string;
function MakeLetterSet(S: string): LongInt; procedure DisposeString(P: Pointer);
function CompareLetterSets(Set1, Set2: LongInt): Word; function CenterCh(S: string; Ch: Char; Width: Byte): string;
function CompString(S1, S2: string): CompareType; function Center(S: string; Width: Byte): string;
function CompUCString(S1, S2: string): CompareType; function WordCount(S: string; WordDelims: CharSet): Byte;
function CompStruct(var S1, S2; Size: Word): CompareType;

function ExtractWord(N: Byte; S: string; WordDelims: CharSet): string;
procedure WordWrap(InSt: string; var OutSt, Overlap: string; Margin: Byte; PadToMargin: Boolean);
function Search(var Buffer; BufLength: Word; var Match; MatLength: Word): Word;
function SearchUC(var Buffer; BufLength: Word; var Match; MatLength: Word): Word;
procedure BMMakeTable(MatchString: string; var BT: BTable);
function BMSearch(var Buffer; BufLength: Word; BT: BTable; MatchString: string): Word;
function BMSearchUC(var Buffer; BufLength: Word; BT: BTable; MatchString: string): Word;





















 December 6, 2017  Add comments

Leave a Reply