82 char * _pchar(string255 s);

    82 char * _pchar(string255 s);

    83 

    83 

    84 int Length(string255 a);

    84 int Length(string255 a);

    85 string255 copy(string255 a, int s, int l);

    85 string255 copy(string255 a, int s, int l);

    86 string255 delete(string255 a, int s, int l);

    86 string255 delete(string255 a, int s, int l);

    87 

    88 

    88 #define STRINIT(a) {.len = sizeof(a) - 1, .str = a}

    89 #define STRINIT(a) {.len = sizeof(a) - 1, .str = a}

    89 

    90 

    90 

    91 

    91 int length_ar(void * a);

    92 int length_ar(void * a);

    95 extern int FileMode;

    96 extern int FileMode;

    96 extern int IOResult;

    97 extern int IOResult;

    97 

    98 

    98 #define assign(a, b) assign_(&(a), b)

    99 #define assign(a, b) assign_(&(a), b)

    99 void assign_(int * f, string255 fileName);

   100 void assign_(int * f, string255 fileName);

   101 #define BlockRead(a, b, c, d) BlockRead_(a, &(b), c, &(d))

   103 #define BlockRead(a, b, c, d) BlockRead_(a, &(b), c, &(d))

   102 void BlockRead_(int f, void * p, int size, int * sizeRead);

   104 void BlockRead_(int f, void * p, int size, int * sizeRead);

   103 #define BlockWrite(a, b, c) BlockWrite_(a, &(b), c)

   105 #define BlockWrite(a, b, c) BlockWrite_(a, &(b), c)

   104 void BlockWrite_(int f, void * p, int size);

   106 void BlockWrite_(int f, void * p, int size);

   105 void close(int f);

   107 void close(int f);

   134 

   136 

   135 #define val(a, b) _val(a, (LongInt*)&(b))

   137 #define val(a, b) _val(a, (LongInt*)&(b))

   136 void _val(string255 str, LongInt * a);

   138 void _val(string255 str, LongInt * a);

   137 

   139 

   138 extern double pi;

   140 extern double pi;