home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / ALLPROCS.SRT < prev    next >
Encoding:
Text File  |  1992-11-23  |  8.8 KB  |  182 lines
  1.   procedure addchar(ch :char);
  2.   procedure addchar(ch: char);
  3.   procedure addinsert(var t :textbuffer;  pos :textnodeptr;  line :string);
  4.   procedure addinsert(var t :textbuffer;  pos :textnodeptr;  line :string);
  5.   procedure addonedaytodate(var thedaterecord : daterecord);
  6.   procedure addtoend(var t :textbuffer;  line :string);
  7.   procedure addtoend(var t :textbuffer;  line :string);
  8.   procedure addtogethertwotimerecords(
  9.   procedure changeattr(col,row,attr: byte; number: word);
  10.   procedure changeattr(col,row,attr:byte; number:word); external;
  11.   procedure deletebuffer(var t :textbuffer);
  12.   procedure deletebuffer(var t :textbuffer);
  13.   procedure determinelengthbetweentwodatetimes(
  14.   procedure eco_lib_init;
  15.   procedure findfirst(path : pathstr;attr : word;var f : searchrec);
  16.   procedure findfirst(path : pathstr;attr : word;var f : searchrec); external;
  17.   procedure findnext(var f : searchrec);
  18.   procedure findnext(var f : searchrec); external;
  19.   procedure finishline;
  20.   procedure finishline;
  21.   procedure fsplit(
  22.   procedure fsplit(
  23.   procedure getdate(var year,month,day,dayofweek : word);
  24.   procedure getdate(var year,month,day,dayofweek : word); external;
  25.   procedure getfattr(var f;var attr : word);
  26.   procedure getfattr(var f;var attr : word); external;
  27.   procedure getftime(var f;var time : longint);
  28.   procedure getftime(var f;var time : longint); external;
  29.   procedure getintvec(intno: byte;var vector: pointer);
  30.   procedure getintvec(intno: byte;var vector: pointer); external;
  31.   procedure getnextdir(
  32.   procedure gettime(var hour,minute,second,sec100 : word);
  33.   procedure gettime(var hour,minute,second,sec100 : word); external;
  34.   procedure hilite;
  35.   procedure intr(intno : byte;var regs : registers); external;
  36.   procedure intr(intno: byte; var regs: registers);
  37.   procedure modifytextline(var t: textbuffer;  pos :textnodeptr;  line :string);
  38.   procedure modifytextline(var t: textbuffer; pos: textnodeptr; line: string);
  39.   procedure movebar;
  40.   procedure newbuffer(var t :textbuffer);
  41.   procedure newbuffer(var t :textbuffer);
  42.   procedure packtime(var t : datetime;var p : longint);
  43.   procedure packtime(var t : datetime;var p : longint); external;
  44.   procedure putnextdir(
  45.   procedure redraw(up: boolean; start, stop : word);
  46.   procedure restarttimer (whichclock : byte);
  47.   procedure restarttimer(whichclock : byte);
  48.   procedure setdate(year,month,day : word);
  49.   procedure setdate(year,month,day : word); external;
  50.   procedure setfattr(var f;attr : word);
  51.   procedure setfattr(var f;attr : word); external;
  52.   procedure setftime(var f; time : longint); external;
  53.   procedure setftime(var f;time : longint);
  54.   procedure setselerror__(error : word);
  55.   procedure settime(hour,minute,second,sec100 : word);
  56.   procedure settime(hour,minute,second,sec100 : word); external;
  57.   procedure starttimer (whichclock : byte);
  58.   procedure starttimer(whichclock : byte);
  59.   procedure subtractonedayfromdate(var thedaterecord : daterecord);
  60.   procedure swapvectors;
  61.   procedure swapvectors; external;
  62.   procedure tab;
  63.   procedure unpacktime(p : longint;var t : datetime);
  64.   procedure unpacktime(p : longint;var t : datetime); external;
  65.   procedure unwrapbuffer(var t,w :textbuffer);
  66.   procedure unwrapbuffer(var t,w :textbuffer);
  67.   procedure uptwnsel__(pickptr : _pickptr);
  68.   procedure wait_1000; { 01:57:22.13 }
  69.   procedure wait_100; { 01:57:22.13 }
  70.   procedure wait_250; { 01:57:22.13 }
  71.   procedure wrapbuffer(var t :textbuffer;  margin :byte);
  72.   procedure wrapbuffer(var t: textbuffer; margin: byte);
  73.   procedure __app(var st: string; aps: string);
  74.   procedure __app(var st: string; aps: string);
  75.   procedure __app1024(var app: ar1024; s: string);
  76.   procedure __app1024(var app: ar1024; s: string);
  77.   procedure __attrib(x1, y1, x2, y2, f, b: byte);
  78.   procedure __attrib(x1, y1, x2, y2, f, b: byte);
  79.   procedure __bandwin(del: boolean; x1, y1, x2, y2, f, b, bt: byte);
  80.   procedure __bandwin(del: boolean; x1,y1,x2,y2,f,b,bt: byte);
  81.   procedure __betwscn(x1, x2, y, f, b: byte; st: string);
  82.   procedure __betwscn(x1, x2, y, f, b: byte; st: string);
  83.   procedure __boxscn(x1,y1,x2,y2,boxtype,fore,back : byte);
  84.   procedure __boxscn(x1,y1,x2,y2,boxtype,fore,back : byte);
  85.   procedure __clr1024(var a: ar1024);
  86.   procedure __clr1024(var a: ar1024);
  87.   procedure __clrscn(x1, y1, x2, y2, f, b: byte; c: char);
  88.   procedure __clrscn(x1, y1, x2, y2, f, b: byte; c: char);
  89.   procedure __cls;
  90.   procedure __cls;
  91.   procedure __copyscn(x1, y1, x2, y2, x, y: byte);
  92.   procedure __copyscn(x1, y1, x2, y2, x, y: byte);
  93.   procedure __del1024(var a: ar1024; b, l: word);
  94.   procedure __del1024(var a: ar1024; b, l: word);
  95.   procedure __delay(w: word);
  96.   procedure __delay(w: word);
  97.   procedure __delaykey(w:word);
  98.   procedure __delaykey(w:word);
  99.   procedure __dptrsup (var p : pointer; n : longint);
  100.   procedure __dptrsup(var p : pointer; n : longint);
  101.   procedure __drvparm(drv: char);
  102.   procedure __drvparm(drv: char);
  103.   procedure __equipscn;
  104.   procedure __equipscn;
  105.   procedure __erasefil(filename : pathstr; var errorcode : word);
  106.   procedure __erasefil(filename : pathstr; var errorcode : word);
  107.   procedure __erasefiles(s: string);
  108.   procedure __erasefiles(s: string);
  109.   procedure __expandnum(
  110.   procedure __expandnum(
  111.   procedure __fcallsup(procptr : pointer; var reg : registers);
  112.   procedure __filapp(fil, s : string);
  113.   procedure __filapp(fil, s : string);
  114.   procedure __fillbsup(var target; count : longint; fillbyte : byte);
  115.   procedure __fillbsup(var target; count : longint; fillbyte : byte); external;
  116.   procedure __fillwsup(var target; count : longint; fillword : word);
  117.   procedure __fillwsup(var target; count : longint; fillword : word); external;
  118.   procedure __flushkey;
  119.   procedure __flushkey;
  120.   procedure __hwrite(x, y, f, b, h: byte; st: string);
  121.   procedure __hwrite(x, y, f, b, h: byte; st: string);
  122.   procedure __initfstr(var fmtfil : text);
  123.   procedure __initfstr(var fmtfil : text);
  124.   procedure __ins1024(var a: ar1024; b : word; s: string);
  125.   procedure __ins1024(var a: ar1024; b : word; s: string);
  126.   procedure __iptrsup (var p : pointer; n : longint);
  127.   procedure __iptrsup(var p : pointer; n : longint);
  128.   procedure __itemsel(pickptr: _pickptr; fore, back: byte; itemno: word);
  129.   procedure __itemsel(pickptr: _pickptr; fore, back: byte; itemno: word);
  130.   procedure __jl2dtutl(julian: longint; var year, month, day, weekday: word);
  131.   procedure __jl2dtutl(julian: longint; var year, month, day, weekday: word);
  132.   procedure __logapp(s: string);
  133.   procedure __logapp(s: string);
  134.   procedure __loginit;
  135.   procedure __loginit;
  136.   procedure __logpurge;
  137.   procedure __logpurge;
  138.   procedure __longint2datetime(d : longint; var dt : datetime);
  139.   procedure __longint2datetime(d: longint; var dt : datetime);
  140.   procedure __movescn(
  141.   procedure __ncallsup(procptr : pointer; var reg : registers);
  142.   procedure __parsefil(name: filestr; var nam: namestr; var ext: extstr);
  143.   procedure __parsefil(name: filestr; var nam: namestr; var ext: extstr);
  144.   procedure __renamfil(prevname,newname : pathstr; var errorcode : word);
  145.   procedure __renamfil(prevname,newname : pathstr; var errorcode : word);
  146.   procedure __repmsup (var target,source; count : longint; sourcesize : word);
  147.   procedure __repmsup(var target,source; count : longint; sourcesize : word);
  148.   procedure __resscn(sc: _scnimageptr);
  149.   procedure __resscn(sc: _scnimageptr);
  150.   procedure __savscn(sc: _scnimageptr);
  151.   procedure __savscn(sc: _scnimageptr);
  152.   procedure __scn(col, row, attr: byte; st: str80);
  153.   procedure __scn(col,row,attr:byte; st: str80); external;
  154.   procedure __setblwin(blinkon : boolean);
  155.   procedure __setblwin(blinkon : boolean);
  156.   procedure __setpurge(b: byte);
  157.   procedure __setpurge(b: byte);
  158.   procedure __speedscn(
  159.   procedure __speedscn(
  160.   procedure __splitfil(
  161.   procedure __splitfil(
  162.   procedure __st2dtstr(st: string; var year, month, day: word; datefmt: word);
  163.   procedure __st2dtstr(st: string; var year, month, day: word; datefmt: word);
  164.   procedure __stdio;
  165.   procedure __stdio;
  166.   procedure __str2arr(s: anystr; var a; length_a: integer );
  167.   procedure __str2arr(s: anystr; var a; length_a: integer);
  168.   procedure __str2az(s : string; var a : asciiz);
  169.   procedure __str2az(s: string; var a : asciiz);
  170.   procedure __str2obj(s: anystr; var a; length_a: integer );
  171.   procedure __str2obj(s: anystr; var a; length_a: integer);
  172.   procedure __uniquefil(               { i.s.o. __tempfil, an unique textfile }
  173.   procedure __uniquefil(               { i.s.o. __tempfil, an unique textfile }
  174.   procedure __vert(x, y, f, b: byte; s: string);
  175.   procedure __vert(x, y, f, b: byte; s: string);
  176.   procedure __vid(col, row:       byte; st: str80);
  177.   procedure __vid(col,row:     byte; st: str80); external;
  178.   procedure __write(col, row, f, b: byte; st: str80);
  179.   procedure __write(col, row, f, b: byte; st: str80);
  180.   procedure __write1024(var a: ar1024);
  181.   procedure __write1024(var a: ar1024);
  182.