home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TJ50DSK2.ZIP / PROCLIST.TXT < prev    next >
Encoding:
Text File  |  1989-01-31  |  7.5 KB  |  217 lines
  1. FASTTTT5 (22)
  2.  
  3. ColorScreen:boolean;
  4. Attr(F,B:byte):byte;
  5. FastWrite(Col,Row,Attr:byte; St:StrScreen);
  6. PlainWrite(Col,Row:byte; St:StrScreen);
  7. ColWrite(Col,Row:byte; St:StrScreen);
  8. FWrite(St:StrScreen);
  9. FWriteLN(St:StrScreen);
  10. Attrib(X1,Y1,X2,Y2,F,B:byte);
  11. Clickwrite(Col,Row,F,B:byte; St:StrScreen);
  12. Replicate(N:byte; Character:char):StrScreen;
  13. Box(X1,Y1,X2,Y2,F,B,boxtype:integer);
  14. FBox(X1,Y1,X2,Y2,F,B,boxtype:integer);
  15. GrowFBox(X1,Y1,X2,Y2,F,B,boxtype:integer);
  16. HorizLine(X1,X2,Y,F,B,lineType:byte);
  17. VertLine(X,Y1,Y2,F,B,lineType:byte);
  18. ClearText(x1,y1,x2,y2,F,B:integer);
  19. ClearLine(Y,F,B:integer);
  20. WriteAT(X,Y,F,B:integer; St:StrScreen);
  21. WriteBetween(X1,X2,Y,F,B:byte; St:StrScreen);
  22. WriteCenter(LineNO,F,B:integer; St:StrScreen);
  23. WriteVert(X,Y,F,B:integer; St:StrScreen);
  24. EGAVGASystem: boolean;
  25.  
  26. WINTTT5  (33)
  27.  
  28. SizeCursor(Top,Bot:byte);
  29. FindCursor(var X,Y,Top,Bot:byte);
  30. PosCursor(X,Y: integer);
  31. Fullcursor;
  32. HalfCursor;
  33. OnCursor;
  34. OffCursor;
  35. GetScreenChar(X,Y:byte):char;
  36. GetScreenAttr(X,Y:byte):byte;
  37. GetScreenStr(X1,X2,Y:byte;var  St:StrScreen);
  38. CreateScreen(Page:byte;Lines:byte);
  39. SaveScreen(Page:byte);
  40. RestoreScreen(Page:byte);
  41. PartRestoreScreen(Page,X1,Y1,X2,Y2,X,Y:byte);
  42. SlideRestoreScreen(Page:byte;Way:Direction);
  43. PartSlideRestoreScreen(Page:byte;Way:Direction;X1,Y1,X2,Y2:byte);
  44. DisposeScreen(Page:byte);
  45. SetCondensedLines;
  46. Set25Lines;
  47. CopyScreenBlock(X1,Y1,X2,Y2,X,Y:byte);
  48. MoveScreenBlock(X1,Y1,X2,Y2,X,Y:byte);
  49. Scroll(Way:direction;X1,Y1,X2,Y2:byte);
  50. Mkwin(x1,y1,x2,y2,F,B,boxtype:integer);
  51. GrowMkwin(x1,y1,x2,y2,F,B,boxtype:integer);
  52. Rmwin;
  53. FillScreen(X1,Y1,X2,Y2:byte; F,B:byte; C:char);
  54. TempMessageCh(X,Y,F,B:integer;St:strscreen;var Ch : char);
  55. TempMessage(X,Y,F,B:integer;St:strscreen);
  56. TempMessageBoxCh(X1,Y1,F,B,BoxType:integer;St:strscreen;var Ch : char);
  57. TempMessageBox(X1,Y1,F,B,BoxType:integer;St:strscreen);
  58. Activate_Visible_Screen;
  59. Activate_Virtual_Screen(Page:byte);
  60. Reset_StartUp_Mode;
  61.  
  62. KEYTTT5  (23)
  63.  
  64. Assign_Pressed_Hook(PassedProc : Key_pressed_Type);
  65. Assign_Idle_Hook(PassedProc : Key_Idle_Type);
  66. Mouse_Installed:Boolean;
  67. Show_Mouse_Cursor;
  68. Hide_Mouse_Cursor;
  69. Get_Mouse_Action(var But: button; var Hor,Ver: integer);
  70. Move_Mouse(Hor,Ver: integer);
  71. Confine_Mouse_Horiz(Left,Right:integer);
  72. Confine_Mouse_Vert(Top,Bot:integer);
  73. Set_Mouse_Cursor_Style(OrdChar: integer);
  74. Alt_Pressed:Boolean;
  75. Ctrl_Pressed:Boolean;
  76. LeftShift_Pressed: Boolean;
  77. RightShift_Pressed: Boolean;
  78. Shift_Pressed: Boolean;
  79. CapsOn: Boolean;
  80. NumOn: Boolean;
  81. ScrollOn: Boolean;
  82. Set_Caps(On : boolean);
  83. Set_Num(On : boolean);
  84. Set_Scroll(On : boolean);
  85. GetKey : Char;
  86. DelayKey(Time : integer);
  87.  
  88. MENUTTT5 (3)
  89.  
  90. No_Hook(var Ch:char; Choice:integer; var Ecode : integer);
  91. Menu_Set(var M : Menu_record);
  92. DisplayMenu(MenuDef: Menu_record;Window:Boolean;var Choice,Ecode:integer);
  93.  
  94. PULLTTT5 (2)
  95.  
  96. No_Hook(var Ch: char; Main, Sub :byte);
  97. Pull_Menu( Definition:Pull_Array; var PickM, PickS:byte);
  98.  
  99. NESTTTT5 (12)
  100.  
  101. Assign_Despatcher(D:Despatcher_Proc);
  102. Initialize_Menu(var Menu:Nest_Menu;Tit: menuStr;Width: byte;Display_Lines: word);
  103. Add_Topic(var Menu:Nest_Menu;Nam:MenuStr;Activ:boolean;HKey:char;Code:integer;Sub: MenuPtr);
  104. Modify_Topic(var Menu:Nest_Menu;TopicNo:word;Nam:MenuStr;Activ:boolean;HKey :char;Code:integer;Sub: MenuPtr);
  105. Modify_Topic_Name(var Menu:Nest_Menu;TopicNo:word;Nam:MenuStr);
  106. Modify_Topic_Active(var Menu:Nest_Menu;TopicNo:word;Activ:Boolean);
  107. Modify_Topic_HotKey(var Menu:Nest_Menu;TopicNo:word;HKey:char);
  108. Modify_Topic_RetCode(var Menu:Nest_Menu;TopicNo:word;Code:integer);
  109. Modify_Topic_SubMenu(var Menu:Nest_Menu;TopicNo:word;Sub:MenuPtr);
  110. Delete_A_Topic(var Menu:Nest_Menu;TopicNo: word);
  111. Delete_All_Topics(var Menu:Nest_Menu);
  112. Show_Nest(var Menu:Nest_Menu);
  113.  
  114. LISTTTT5 (1)
  115.  
  116. Show_List(var StrArray;StrLength:Byte;TotalPicks:byte);
  117.  
  118. DIRTTT5 (1)
  119.  
  120. Display_Directory(DirFullFileName: StrScreen;var Retcode:integer): StrScreen;
  121.  
  122. READTTT5 (11)
  123.  
  124. Read_String(X,Y,L:byte;Prompt:StrScreen; BoxType: byte;Var Txt:StrScreen);
  125. Read_String_Upper(X,Y,L:byte;Prompt:StrScreen;BoxType: byte;Var Txt:StrScreen);
  126. Read_Password(X,Y,L:byte;Prompt:StrScreen;BoxType: byte;Var Txt:StrScreen);
  127. Read_Alpha(X,Y,L:byte;Prompt:StrScreen;BoxType: byte;Var Txt:StrScreen);
  128. Read_YN(X,Y:byte;Prompt:StrScreen;BoxType: byte;Var Yes:Boolean);
  129. Read_Byte(X,Y,L:byte; Prompt:StrScreen;BoxType: byte;Var B : Byte;Min, Max : Byte);
  130. Read_Word(X,Y,L:byte; Prompt:StrScreen;BoxType: byte;Var W : word;Min, Max : word);
  131. Read_Int(X,Y,L:byte;Prompt:StrScreen;BoxType: byte;Var W : integer;Min, Max : integer);
  132. Read_LongInt(X,Y,L:byte;Prompt:StrScreen;BoxType: byte;Var W : longint;Min, Max : longint);
  133. Read_Real(X,Y,L:byte;Prompt:StrScreen;BoxType: byte;Var W : real;Min, Max : real);
  134. Read_Select(X,Y:byte;Pmt,Txt:StrScreen;var Choice:byte);
  135.  
  136. IOTTT5 (26)
  137.  
  138. Create_Tables(No_Of_Tables:byte);
  139. Activate_Table(Table_no:byte);
  140. Assign_LeaveFieldHook(Proc:Move_Field_Proc);
  141. Assign_EnterFieldHook(Proc:Move_Field_Proc);
  142. Assign_CharHook(Proc:Char_Hook_Proc);
  143. Assign_InsHook(Proc:Insert_Proc);
  144. Create_Fields(No_of_fields:byte);
  145. Define_Colors(HiF,HiB,LoF,LoB,MsgF,MsgB:byte);
  146. Add_Message(DefID,DefX,DefY : byte; DefString : string);
  147. Add_Field(DefID,DefU,DefD,DefL,DefR,DefX,DefY:byte);
  148. String_Field(DefID:byte;var Strvar:String;DefFormat:string);
  149. Assign_Finish_Char(Ch : char);
  150. Byte_Field(DefID:byte;var ByteVar:Byte;DefFormat:string;Min,Max:byte);
  151. Word_Field(DefID:byte;var Wordvar:Word;DefFormat:string;Min,Max:word);
  152. Integer_Field(DefID:byte;var Integervar:Integer;DefFormat:string;Min,Max:integer);
  153. LongInt_Field(DefID:byte;var LongIntvar:LongInt;DefFormat:string;Min,Max:LongInt);
  154. Date_Field(DefID:byte;var Datevar:Dates;DateFormat:byte;DefFormat:string;Min,Max : Dates);
  155. Real_Field(DefID:byte;var Realvar:Real;DefFormat:string;Min,Max:real);
  156. Set_Default_Rules(Rules:word);
  157. Field_Rules(DefID:byte;Rules:word;AChar:IOcharset;DChar:IOcharset);
  158. Display_All_Fields;
  159. Allow_Esc(OK:boolean);
  160. Allow_Beep(OK:boolean);
  161. Dispose_Fields;
  162. Dispose_Tables;
  163. Process_Input(StartField:byte);
  164.  
  165. STRNTTT5  (23)
  166.  
  167. Squeeze(L:char;Str:string;Width:byte): string;
  168. First_Capital_Pos(Str:string): byte;
  169. First_Capital(Str:string): char;
  170. PadLeft(Str:string;Size:byte;Pad:char):string;
  171. PadCenter(Str:string;Size:byte;Pad:char):string;
  172. PadRight(Str:string;Size:byte;Pad:char):string;
  173. Last(N:byte;Str:string):string;
  174. First(N:byte;Str:string):string;
  175. Upper(Str:string):string;
  176. Lower(Str:string):string;
  177. Proper(Str:string):string;
  178. OverType(N:byte;StrS,StrT:string):string;
  179. Strip(L,C:char;Str:string):string;
  180. LastPos(C:Char;Str:string):byte;
  181. PosWord(Wordno:byte;Str:string):byte;
  182. WordCnt(Str:string):byte;
  183. ExtractWords(StartWord,NoWords:byte;Str:string):string;
  184. Str_to_Int(Str:string):integer;
  185. Str_to_Long(Str:string):Longint;
  186. Str_to_Real(Str:string):real;
  187. Real_to_str(Number:real;Decimals:byte):string;
  188. Int_to_Str(Number:longint):string;
  189. Real_to_SciStr(Number:real; D:byte):string;
  190.  
  191. MISCTTT5 (22)
  192.  
  193. Exist(Filename:string):boolean;
  194. CopyFile(SourceFile, TargetFile:string): byte;
  195. File_Size(Filename:string): longint;
  196. File_Drive(Full:string): string;
  197. File_Directory(Full:string): string;
  198. File_Name(Full:string): string;
  199. File_Ext(Full:string): String;
  200. Time: string;
  201. Clock;
  202. Date: String;
  203. PrintScreen;
  204. Beep;
  205. Printer_Status:byte;
  206. Printer_ready:boolean;
  207. FlushKeyBuffer;
  208. Reset_Printer;
  209. Date_To_Julian(InDate:string;format:byte): dates;
  210. Julian_to_Date(J:dates;format:byte):string;
  211. Today_in_Julian: dates;
  212. Date_Within_Range(Min,Max,Test:dates):boolean;
  213. Valid_Date(Indate:string;format:byte): boolean;
  214. Future_Date(InDate:string;format:byte;Days:word): string;
  215.  
  216.  
  217.