home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / PURE_P_2.LZH / PURE_P_2.MSA / INTRFACE / TOS.INT < prev   
Text File  |  1992-08-13  |  16KB  |  760 lines
  1. unit    tos;
  2.  
  3. interface
  4.  
  5. (* -------------------------------------------------------------------- *)
  6. (*        constants, types & variables                                    *)
  7. (* -------------------------------------------------------------------- *)
  8.  
  9. const
  10.     FO_READ        = 0;
  11.     FO_WRITE    = 1;
  12.     FO_RW        = 2;
  13.  
  14.     FA_RDONLY    = $1;
  15.     FA_HIDDEN    = $2;
  16.     FA_SYSTEM    = $4;
  17.     FA_LABEL    = $8;
  18.     FA_DIREC    = $10;
  19.     FA_ARCH        = $20;
  20.     FA_ATTRIB    = $17;
  21.  
  22. type
  23.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  24.             (*                    BIOS                    *)
  25.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  26.  
  27.     MDPtr = ^MD;
  28.     MD = record
  29.         m_link :        MDPtr;
  30.         m_start :        Pointer;
  31.         m_length :        LongInt;
  32.         m_own :            PDPtr;
  33.     end;
  34.  
  35.     MPBPtr = ^MPB;
  36.     MPB = record
  37.         mp_mfl :        MDPtr;
  38.         mp_mal :        MDPtr;
  39.         mp_rover :        MDPtr;
  40.     end;
  41.  
  42.     BPBPtr = ^BPB;
  43.     BPB = record
  44.         recsiz :        Integer;
  45.         clsiz :            Integer;
  46.         clsizb :        Integer;
  47.         rdlen :            Integer;
  48.         fsiz :            Integer;
  49.         fatrec :        Integer;
  50.         datrec :        Integer;
  51.         numcl :            Integer;
  52.         bflags :        Integer;
  53.     end;
  54.  
  55.  
  56.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  57.             (*                    GEMDOS                    *)
  58.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  59.  
  60.     DTAPtr = ^DTA;
  61.     DTA = record
  62.         d_reserved :        Array[1..21] of Byte;
  63.         d_attrib :            Byte;
  64.         d_time :            Integer;
  65.         d_date :            Integer;
  66.         d_length :            LongInt;
  67.         d_fname :            String[12];
  68.     end;
  69.  
  70.     DISKINFOPtr = ^DISKINFO;
  71.     DISKINFO = record
  72.         b_free :            LongInt;
  73.         b_total :            LongInt;
  74.         b_secsiz :            LongInt;
  75.         b_clsiz :            LongInt;
  76.     end;
  77.  
  78.     DOSTIMEPtr = ^DOSTIME;
  79.     DOSTIME = record
  80.         time :                Word;
  81.         date :                Word;
  82.     end;
  83.  
  84.     LINEPTR = ^LINE;
  85.     LINE = record
  86.         maxlen :            Byte;
  87.         buffer :            String;
  88.     end;
  89.  
  90.     MSGTYPEPTR = ^MSGTYPE;
  91.     MSGTYPE = record
  92.         msg1 :                LongInt;
  93.         msg2 :                LongInt;
  94.         pid :                Integer;
  95.     end;
  96.  
  97.     XATTRPTR = ^XATTR;
  98.     XATTR = record
  99.         mode :                Word;
  100.         index :                LongInt;
  101.         dev :                Word;
  102.         reserved1 :            Word;
  103.         nlink :                Word;
  104.         uid :                Word;
  105.         gid :                Word;
  106.         size :                LongInt;
  107.         blksize :            LongInt;
  108.         nblocks :            LongInt;
  109.         mtime :                Integer;
  110.         mdate :                Integer;
  111.         atime :                Integer;
  112.         adate :                Integer;
  113.         ctime :                Integer;
  114.         cdate :                Integer;
  115.         attr :                Integer;
  116.         reserved2 :            Integer;
  117.         reserved3 :            Array[0..1] of LongInt;
  118.     end;
  119.  
  120.  
  121.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  122.             (*                    XBIOS                    *)
  123.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  124.  
  125.     MOUSEPtr = ^MOUSE;
  126.     MOUSE = record
  127.         topmode :        Byte;
  128.         buttons :        Byte;
  129.         x_scale :        Byte;
  130.         y_scale :        Byte;
  131.         x_max :            Integer;
  132.         y_max :            Integer;
  133.         x_start :        Integer;
  134.         y_start :        Integer;
  135.     end;
  136.  
  137.     IORECORDPtr = ^IORECORD;
  138.     IORECORD = record
  139.         ibuf :            Pointer;
  140.         ibufsiz :        Integer;
  141.         ibufhd :        Integer;
  142.         ibuftl :        Integer;
  143.         ibuflow :        Integer;
  144.         ibufhi :        Integer;
  145.     end;
  146.  
  147.     KEYTABPtr = ^KEYTAB;
  148.     KEYTAB = record
  149.         unshift :        Pointer;
  150.         shift :            Pointer;
  151.         capslock :        Pointer;
  152.     end;
  153.  
  154.     KBDVECSPtr = ^KBDVECS;
  155.     KBDVECS = record
  156.         midivec :        Pointer;
  157.         vkbderr :        Pointer;
  158.         vmiderr :        Pointer;
  159.         statvec :        Pointer;
  160.         mousevec :        Pointer;
  161.         clockvec :        Pointer;
  162.         joyvec :        Pointer;
  163.         midisys :        Pointer;
  164.         ikdbsys :        Pointer;
  165.         drvstat :        Integer;
  166.     end;
  167.  
  168.     PBDEFPtr = ^PBDEF;
  169.     PBDEF = record
  170.         pb_scrptr :        Pointer;
  171.         pb_offset :        Integer;
  172.         pb_width :        Integer;
  173.         pb_height :        Integer;
  174.         pb_left :        Integer;
  175.         pb_right :        Integer;
  176.         pb_screz :        Integer;
  177.         pb_prrez :        Integer;
  178.         pb_colptr :     Pointer;
  179.         pb_prtype :        Integer;
  180.         pb_prport :        Integer;
  181.         pb_mask :        Pointer;
  182.     end;
  183.  
  184.     METAINFOPtr = ^METAINFO;
  185.     METAINFO = record
  186.         drivemap :        LongInt;
  187.         version :        Pointer;
  188.         reserved :        Array[1..2] of LongInt;
  189.     end;
  190.  
  191.     IARRAY_2    = ARRAY[0..1] of Integer;
  192.     IARRAY_16    = ARRAY[0..15] of Integer;
  193.  
  194.     LARRAY_2    = ARRAY[0..1] of LongInt;
  195.     LARRAY_8    = ARRAY[0..7] of Integer;
  196.  
  197.     LongIntFunc = Function : LongInt;
  198.  
  199.  
  200. (* -------------------------------------------------------------------- *)
  201. (*        functions & procedures                                            *)
  202. (* -------------------------------------------------------------------- *)
  203.  
  204.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  205.             (*                    BIOS                    *)
  206.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  207.  
  208.     procedure    Getmpb( var p_mpb : MPB );
  209.     external;
  210.  
  211.     function    Bconstat( dev : Integer ) : Integer;
  212.     external;
  213.  
  214.     function    Bconin( dev : Integer ) : LongInt;
  215.     external;
  216.  
  217.     procedure    Bconout( dev, c : Integer );
  218.     external;
  219.  
  220.     function    Rwabs( rwflag : Integer; buf : Pointer;
  221.                         count, recno, dev : Integer;
  222.                         lrecno : LongInt ) : LongInt;
  223.     external;
  224.  
  225.     function    Setexc( vecnum : Integer; vec : Pointer ) : Pointer;
  226.     external;
  227.  
  228.     function    Tickcal : LongInt;
  229.     external;
  230.  
  231.     function    Getbpb( dev : Integer ) : BPBPtr;
  232.     external;
  233.  
  234.     function    Bcostat( dev : Integer ) : LongInt;
  235.     external;
  236.  
  237.     function    Mediach( dev : Integer ) : LongInt;
  238.     external;
  239.  
  240.     function    Drvmap : LongInt;
  241.     external;
  242.  
  243.     function    Kbshift( mode : Integer ) : LongInt;
  244.     external;
  245.  
  246.  
  247.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  248.             (*                    GEMDOS                    *)
  249.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  250.  
  251.     procedure    Pterm0;
  252.     external;
  253.  
  254.     function    Cconin : LongInt;
  255.     external;
  256.  
  257.     procedure    Cconout( c : Integer );
  258.     external;
  259.  
  260.     function    Cauxin : Integer;
  261.     external;
  262.  
  263.     procedure    Cauxout( c : Integer );
  264.     external;
  265.  
  266.     function    Cprnout( c : Integer ) : Integer;
  267.     external;
  268.  
  269.     function    Crawio( w : Integer ) : LongInt;
  270.     external;
  271.  
  272.     function    Crawcin : LongInt;
  273.     external;
  274.  
  275.     function    Cnecin : LongInt;
  276.     external;
  277.  
  278.     procedure    Cconws( str : String );
  279.     external;
  280.  
  281.     procedure    Cconrs( var buf : LINE );
  282.     external;
  283.  
  284.     function    Cconis : Integer;
  285.     external;
  286.  
  287.     function    Dsetdrv( drv : Integer ) : LongInt;
  288.     external;
  289.  
  290.     function    Cconos : Integer;
  291.     external;
  292.  
  293.     function    Cprnos : Integer;
  294.     external;
  295.  
  296.     function    Cauxis : Integer;
  297.     external;
  298.  
  299.     function    Cauxos : Integer;
  300.     external;
  301.  
  302.     function    Maddalt( start : Pointer; size : LongInt ) : LongInt;
  303.     external;
  304.  
  305.     function    Dgetdrv : Integer;
  306.     external;
  307.  
  308.     procedure    Fsetdta( newDta : DTAPtr );
  309.     external;
  310.  
  311.     function    Super( stack : Pointer ) : LongInt;
  312.     external;
  313.  
  314.     function    Tgetdate : Word;
  315.     external;
  316.  
  317.     function    Tsetdate( date : Word ) : Integer;
  318.     external;
  319.  
  320.     function    Tgettime : Word;
  321.     external;
  322.  
  323.     function    Tsettime( time : Word ) : Integer;
  324.     external;
  325.  
  326.     function    Fgetdta : DTAPtr;
  327.     external;
  328.  
  329.     function    Sversion : Integer;
  330.     external;
  331.  
  332.     procedure    Ptermres( keep : LongInt; ret : Integer );
  333.     external;
  334.  
  335.     function    Dfree( var buf : DISKINFO; drv : Integer ) : LongInt;
  336.     external;
  337.  
  338.     function    Dcreate( pathname : String ) : Integer;
  339.     external;
  340.  
  341.     function    Ddelete( pathname : String ) : Integer;
  342.     external;
  343.  
  344.     function    Dsetpath( path : String ) : Integer;
  345.     external;
  346.  
  347.     function    Fcreate( fname : String; attribs : Integer ) : LongInt;
  348.     external;
  349.  
  350.     function    Fopen( fname : String; mode : Integer ) : LongInt;
  351.     external;
  352.  
  353.     function    Fclose( handle : Integer ) : Integer;
  354.     external;
  355.  
  356.     function    Fread( handle : Integer; count : LongInt;
  357.                         buffer : Pointer ) : LongInt;
  358.     external;
  359.  
  360.     function    Fwrite( handle : Integer; count : LongInt;
  361.                         buffer : Pointer ) : LongInt;
  362.     external;
  363.  
  364.     function    Fdelete( fname : String ) : Integer;
  365.     external;
  366.  
  367.     function    Fseek( offset : LongInt;
  368.                         handle, seekmode : Integer ) : LongInt;
  369.     external;
  370.  
  371.     function    Fattrib( fname : String;
  372.                             wflag, attribs : Integer ) : Integer;
  373.     external;
  374.  
  375.     function    Mxalloc( amount : LongInt; mode : Integer ) : Pointer;
  376.     external;
  377.  
  378.     function    Fdup( handle : Integer ) : LongInt;
  379.     external;
  380.  
  381.     function    Fforce( stdh, nonstdh : Integer ) : Integer;
  382.     external;
  383.  
  384.     function    Dgetpath( var buf : String; driveno : Integer ) : Integer;
  385.     external;
  386.  
  387.     function    Malloc( amount : LongInt ) : Pointer;
  388.     external;
  389.  
  390.     function    Mfree( saddr : Pointer ) : Integer;
  391.     external;
  392.  
  393.     function    Mshrink( zero : Integer; block : Pointer;
  394.                             newsize : LongInt ) : Integer;
  395.     external;
  396.  
  397.     function    Pexec( mode : Integer;
  398.                         prgfile, cmdline : String;
  399.                         envptr : Pointer ) : LongInt;
  400.     external;
  401.  
  402.     procedure    Pterm( retcode : Integer );
  403.     external;
  404.  
  405.     function    Fsfirst( fspec : String; attribs : Integer ) : Integer;
  406.     external;
  407.  
  408.     function    Fsnext : Integer;
  409.     external;
  410.  
  411.     function    Frename( oldname, newname : String ) : Integer;
  412.     external;
  413.  
  414.     procedure    Fdatime( var timeptr : DOSTIME; handle, wflag : Integer );
  415.     external;
  416.  
  417.     function    Flock( handle, mode : Integer;
  418.                         start, length : LongInt ) : LongInt;
  419.     external;
  420.  
  421.     function    Syield : Integer;
  422.     external;
  423.  
  424.     function    Fpipe( var usrh : IARRAY_2 ) : Integer;
  425.     external;
  426.  
  427.     function    Fcntl( f : Integer; arg : LongInt; cmd : Integer ) : Integer;
  428.     external;
  429.  
  430.     function    Finstat( f : Integer ) : LongInt;
  431.     external;
  432.  
  433.     function    Foutstat( f : Integer ) : LongInt;
  434.     external;
  435.  
  436.     function    Fgetchar( f, mode : Integer ) : LongInt;
  437.     external;
  438.  
  439.     function    Fputchar( f : Integer; c : LongInt; mode : Integer ) : LongInt;
  440.     external;
  441.  
  442.     function    Pwait : LongInt;
  443.     external;
  444.  
  445.     function    Pnice( delta : Integer ) : Integer;
  446.     external;
  447.  
  448.     function    Pgetpid : Integer;
  449.     external;
  450.  
  451.     function    Pgetppid : Integer;
  452.     external;
  453.  
  454.     function    Pgetpgrp : Integer;
  455.     external;
  456.  
  457.     function    Psetpgrp( pid, newgrp : Integer ) : Integer;
  458.     external;
  459.  
  460.     function    Pgetuid : Integer;
  461.     external;
  462.  
  463.     function    Psetuid( id : Integer ) : Integer;
  464.     external;
  465.  
  466.     function    Pkill( pid, sig : Integer ) : Integer;
  467.     external;
  468.  
  469.     function    Psignal( sig : Integer; handler : Pointer ) : Pointer;
  470.     external;
  471.  
  472.     function    Pvfork : Integer;
  473.     external;
  474.  
  475.     function    Pgetgid : Integer;
  476.     external;
  477.  
  478.     function    Psetgid( id : Integer ) : Integer;
  479.     external;
  480.  
  481.     function    Psigblock( mask : LongInt ) : LongInt;
  482.     external;
  483.  
  484.     function    Psigsetmask( mask : LongInt ) : LongInt;
  485.     external;
  486.  
  487.     function    Pusrval( arg : LongInt ) : LongInt;
  488.     external;
  489.  
  490.     function    Pdomain( newdom : Integer ) : Integer;
  491.     external;
  492.  
  493.     procedure    Psigreturn;
  494.     external;
  495.  
  496.     function    Pfork : LongInt;
  497.     external;
  498.  
  499.     function    Pwait3( flag : Integer; var rusage : LARRAY_2 ) : LongInt;
  500.     external;
  501.  
  502.     function    Fselect( timeout : Word; var rfds, wfds,
  503.                                         xfds : LongInt ) : Integer;
  504.     external;
  505.  
  506.     procedure    Prusage( var r : LARRAY_8 );
  507.     external;
  508.  
  509.     function    Psetlimit( lim : Integer; value : LongInt ): LongInt;
  510.     external;
  511.  
  512.     function    Talarm( secs : LongInt ): LongInt;
  513.     external;
  514.  
  515.     procedure    Pause;
  516.     external;
  517.  
  518.     function    Sysconf( n : Integer ): LongInt;
  519.     external;
  520.  
  521.     function    Psigpending : LongInt;
  522.     external;
  523.  
  524.     function    Dpathconf( name : String ; n : Integer ) : LongInt;
  525.     external;
  526.  
  527.     function    Pmsg( mode : Integer; mbox : LongInt; var msg : MSGTYPE ) : LongInt;
  528.     external;
  529.  
  530.     function    Fmidipipe( pid, inp, outp : Integer ) : LongInt;
  531.     external;
  532.  
  533.     function    Prenice( pid, delta : Integer ) : Integer;
  534.     external;
  535.  
  536.     function    Dopendir( name : String ; flag : Integer ) : LongInt;
  537.     external;
  538.  
  539.     function    Dreaddir( buflen : Integer; dir : LongInt; var buf : String ) : LongInt;
  540.     external;
  541.  
  542.     function    Drewinddir( dir : LongInt ) : LongInt;
  543.     external;
  544.  
  545.     function    Dclosedir( dir : LongInt ) : LongInt;
  546.     external;
  547.  
  548.     function    Fxattr( flag : Integer; name : String; var buf : XATTR ) : LongInt;
  549.     external;
  550.  
  551.     function    Flink( oldname, newname : String ) : LongInt;
  552.     external;
  553.  
  554.     function    Fsymlink( oldname, newname : String ) : LongInt;
  555.     external;
  556.  
  557.     function    Freadlink( size : Integer; var buf : String; name : String ) : LongInt;
  558.     external;
  559.  
  560.     function    Dcntl( cmd : Integer; name : String; arg : LongInt ) : LongInt;
  561.     external;
  562.  
  563.     function    Fchown( name : String; uid, gid : Integer ) : LongInt;
  564.     external;
  565.  
  566.     function    Fchmod( name : String; mode : Integer ) : LongInt;
  567.     external;
  568.  
  569.     function    Pumask( mode : Word ) : LongInt;
  570.     external;
  571.  
  572.     function    Psemaphore( mode : Integer; id, timeout : LongInt ) : LongInt;
  573.     external;
  574.  
  575.  
  576.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  577.             (*                    XBIOS                    *)
  578.             (* ++++++++++++++++++++++++++++++++++++++++ *)
  579.  
  580.     procedure    Initmous( typ : Integer;
  581.                             var param : MOUSE; vec : Pointer );
  582.     external;
  583.  
  584.     function    Ssbrk( amount : Integer ) : Pointer;
  585.     external;
  586.  
  587.     function    Physbase : Pointer;
  588.     external;
  589.  
  590.     function    Logbase : Pointer;
  591.     external;
  592.  
  593.     function    Getrez : Integer;
  594.     external;
  595.  
  596.     procedure    Setscreen( logLoc, physLoc : Pointer; res : Integer );
  597.     external;
  598.  
  599.     procedure    Setpalette( var palettePtr : IARRAY_16 );
  600.     external;
  601.  
  602.     function    Setcolor( colorNum, color : Integer ) : Integer;
  603.     external;
  604.  
  605.     function    Floprate( drive, seekrate : Integer ) : Integer;
  606.     external;
  607.  
  608.     function    Floprd( buf, filler : Pointer;
  609.                         devno, sectno, trackno,
  610.                         sideno, count : Integer ) : Integer;
  611.     external;
  612.  
  613.     function    Flopwr( buf, filler : Pointer;
  614.                         devno, sectno, trackno,
  615.                         sideno, count : Integer ) : Integer;
  616.     external;
  617.  
  618.     function    Flopfmt( buf, filler : Pointer;
  619.                             devno, spt, trackno,
  620.                             sideno, interlv : Integer;
  621.                             magic : LongInt;
  622.                             virgin : Word ) : Integer;
  623.     external;
  624.  
  625.     procedure    Midiws( cnt : Integer; ptr : Pointer );
  626.     external;
  627.  
  628.     procedure    Mfpint( interno : Integer; vec : Pointer );
  629.     external;
  630.  
  631.     function    Iorec( devno : Integer ) : IORECORDPtr;
  632.     external;
  633.  
  634.     function    Rsconf( speed, flowctl, ucr,
  635.                         rsr, tsr, scr : Integer ) : LongInt;
  636.     external;
  637.  
  638.     function    Keytbl( unshift, shift, capslock : Pointer ) : KEYTABPtr;
  639.     external;
  640.  
  641.     function    Random : LongInt;
  642.     external;
  643.  
  644.     procedure    Protobt( buf : Pointer; serialno : LongInt;
  645.                             disktype, execflag : Integer );
  646.     external;
  647.  
  648.     function    Flopver( buf, filler : Pointer;
  649.                         devno, sectno, trackno,
  650.                         sideno, count : Integer ) : Integer;
  651.     external;
  652.  
  653.     procedure    Scrdmp;
  654.     external;
  655.  
  656.     function    Cursconf( mode, operand : Integer ) : Integer;
  657.     external;
  658.  
  659.     procedure    Settime( datetime : LongInt );
  660.     external;
  661.  
  662.     function    Gettime : LongInt;
  663.     external;
  664.  
  665.     procedure    Bioskeys;
  666.     external;
  667.  
  668.     procedure    Ikbdws( cnt : Integer; ptr : Pointer );
  669.     external;
  670.  
  671.     procedure    Jdisint( intno : Integer );
  672.     external;
  673.  
  674.     procedure    Jenabint( intno : Integer );
  675.     external;
  676.  
  677.     function    Giaccess( data : Byte; regno : Integer ) : Byte;
  678.     external;
  679.  
  680.     procedure    Offgibit( bitno : Integer );
  681.     external;
  682.  
  683.     procedure    Ongibit( bitno : Integer );
  684.     external;
  685.  
  686.     procedure    Xbtimer( timer, control, data : Integer; vec : Pointer );
  687.     external;
  688.  
  689.     procedure    Dosound( ptr : Pointer );
  690.     external;
  691.  
  692.     function    Setprt( config : Integer ) : Integer;
  693.     external;
  694.  
  695.     function    Kbdvbase : KBDVECSPtr;
  696.     external;
  697.  
  698.     function    Kbrate( initial, speed : Integer ) : Integer;
  699.     external;
  700.  
  701.     procedure    Prtblk( var defptr : PBDEF );
  702.     external;
  703.  
  704.     procedure    Vsync;
  705.     external;
  706.  
  707.     function    Supexec( codeptr : LongIntFunc ) : LongInt;
  708.     external;
  709.  
  710.     procedure    Puntaes;
  711.     external;
  712.  
  713.     function    DMAread( sector : LongInt; count : Integer;
  714.                             buffer : Pointer;
  715.                             devno : Integer ) : LongInt;
  716.     external;
  717.  
  718.     function    DMAwrite( sector : LongInt; count : Integer;
  719.                             buffer : Pointer;
  720.                             devno : Integer ) : LongInt;
  721.     external;
  722.  
  723.     function    Bconmap( devno : Integer ) : LongInt;
  724.     external;
  725.  
  726.     function    Blitmode( mode : Integer ) : Integer;
  727.     external;
  728.  
  729.     function    EsetShift( shftmode : Integer ) : Integer;
  730.     external;
  731.  
  732.     function    EgetShift : Integer;
  733.     external;
  734.  
  735.     function    EsetBank( bankNum : Integer ) : Integer;
  736.     external;
  737.  
  738.     function    EsetColor( colorNum, color : Integer ) : Integer;
  739.     external;
  740.  
  741.     procedure    EsetPalette( colorNum, count : Integer;
  742.                                 palettePtr : Pointer );
  743.     external;
  744.  
  745.     procedure    EgetPalette( colorNum, count : Integer;
  746.                                 palettePtr : Pointer );
  747.     external;
  748.  
  749.     function    EsetGray( switch : Integer ) : Integer;
  750.     external;
  751.  
  752.     function    EsetSmear( switch : Integer ) : Integer;
  753.     external;
  754.  
  755.     procedure    Metainit( var buffer : METAINFO );
  756.     external;
  757.  
  758.  
  759. (* =================================================================== *)
  760.