
  PROCEDURE [XREF] syp$get_token (text: string ( * );
        upper_case: boolean;
    VAR index: 0 .. 255;
    VAR token: ost$string;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc OST$STATUS
*copyc OST$STRING
?? POP ??
