home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BIX01.ZIP / COMMON.DEC next >
Encoding:
Text File  |  1986-07-07  |  1.3 KB  |  22 lines
  1. { ***** From COMMON.DEC ***** }
  2.  
  3. Procedure SwitchVar(var Arg1,Arg2; Size:Integer);forward;
  4.  
  5. Function  Intpower(number,exponent:Integer):integer;forward;
  6.  
  7. Procedure Wait;forward;
  8.  
  9. Function  KeyWait:Byte;forward;
  10.  
  11. Procedure Set_Cursor(c:byte);forward;
  12.  
  13. Procedure WhereScr(var x,y:Byte);forward;
  14.  
  15. Procedure Flush_keyboard;forward;
  16.  
  17. Function  SaveKbd:Byte;forward;
  18.  
  19. Procedure SetKbd(Status:Byte);forward;
  20.  
  21. Procedure Lock_Detect;forward;
  22.  
  23. Function  Stringof(ascii,len:Byte):AnyStr;forward;
  24.  
  25. Procedure Whichline(LineType:Byte;
  26.  
  27.           var hl,vl,tl,tr,bl,br,lj,rj,tj,bj,isect:Byte);forward;
  28.  
  29. Procedure VLine(col,row,ascii,limit:Byte);forward;
  30.  
  31. Procedure Highlight(s:AnyStr);forward;
  32.  
  33. Procedure Dim(s:AnyStr);forward;
  34.  
  35. Procedure WriteAt(col,row:Integer;Attrib:DspAtt;s:AnyStr);forward;
  36.  
  37. Function  FKeyResp(Lowlmt,Uplmt:Byte):Byte;forward;
  38.  
  39. Procedure NumInput(col,row,len:Byte;HiLo:DspAtt;var ReturnStr:AnyStr);forward;
  40.  
  41. Procedure AlphaInput(col,row,len:Byte;HiLo:DspAtt;var ReturnStr:AnyStr);forward;
  42.  
  43.