home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol237 / pilot-p.lbr / PILOT_P.HDR < prev    next >
Encoding:
Text File  |  1986-02-10  |  2.6 KB  |  58 lines
  1. {$L-,C-,M-,F-,P+ <Pascal/Z compiler options}
  2. LABEL 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,
  3. 17,18,19,20,21,22,23,24,25,26,27,28,29,30;
  4. TYPE
  5.  byte=0..255;        {SINGLE BYTE INTEGER}
  6.  charset=SET OF CHAR;    {GLOBAL CHARACTER SET}
  7.  string0=string 0;    {SPECIAL STRING FOR PASCAL/Z}
  8.  string255=string 255;    {MAXIMUM LENGTH STRING}
  9.  strng=string 80;    {STANDARD STRING}
  10. VAR
  11.  ch    : char;        {GLOBAL CHARACTER}
  12.  ans,            {SYSTEM STRING}
  13.  temp    : strng;    {TEMP USAGE UTILITY STRING}
  14.  done,            {GLOBAL GENERAL PURPOSE BOOLEAN FLAG}
  15.  flag    : BOOLEAN;    {GLOBAL BOOLEAN FLAG}
  16.  F1,F2,            {GENERAL PURPOSE TEXT FILES}
  17.  output,input:TEXT;    {INPUT AND OUTPUT TEXT FILES}
  18.  #a,#b,#c,#d,#e,#f,#g,#h,#i,#j,#k,#l,#m,
  19.  #n,#o,#p,#q,#s,#t,#u,#v,#w,#x,#y,#z: INTEGER;
  20.  #r: INTEGER;
  21. {#r: REAL; }{IF NEED REAL NUMBERS}
  22.  $a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,
  23.  $n,$o,$p,$q,$r,$s,$t,$u,$v,$w,$x,$y,$z: strng;
  24. FUNCTION vlength(var source:string0):integer;external;
  25. FUNCTION memavail:integer;external;
  26. PROCEDURE setlength(var source:string0;leng:integer);external;
  27. FUNCTION length(source:string255):integer;external;
  28. FUNCTION index(SOURCE,PATTERN:string255):integer;external;
  29. FUNCTION pos(PATTERN,SOURCE:string255):integer;external;
  30. PROCEDURE match(patterns:string255;delim:char;source:string255;
  31.         var status:boolean);external;
  32. PROCEDURE wait(timer:integer; var c:char);external;
  33. PROCEDURE ucase(var source:string0);external;
  34. PROCEDURE lcase(var source:string0);external;
  35. PROCEDURE delete(var source:string0;start,count:integer);external;
  36. PROCEDURE copy(var sub:string0;source:string255;here,count:integer);external;
  37. PROCEDURE insert(pattern:string255;var dest:string0;posn:integer);external;
  38. PROCEDURE replace(pattern:string255;var source:string0;idx:integer);external;
  39. PROCEDURE concat(var new:string0;a1,a2:string255);external;
  40. PROCEDURE str(t:integer;var dest:string0);external;
  41. FUNCTION ivalue(buf:string255;posn:integer):integer;external;
  42. PROCEDURE halt(message:string255);external;
  43. FUNCTION isalpha(c:char):boolean;external;
  44. FUNCTION isupper(c:char):boolean;external;
  45. FUNCTION islower(c:char):boolean;external;
  46. FUNCTION isdigit(c:char):boolean;external;
  47. FUNCTION isspace(c:char):boolean;external;
  48. FUNCTION toupper(c:char):char;external;
  49. FUNCTION tolower(c:char):char;external;
  50. PROCEDURE keyin(var c:char);external;
  51. FUNCTION keyboard(var c:char):boolean;external;
  52. PROCEDURE dwrite(c:char);external;
  53. FUNCTION constat:boolean;external;
  54. FUNCTION conchar:byte;external;
  55. PROCEDURE gotoxy(column,row:integer);external;
  56. FUNCTION val(c:char):integer;external;
  57. PROCEDURE initialize;
  58. BEGIN END;