RETURN CODE

This field is returned whenever a CALL or RUN statement is completed. Its value is determined by the process that was called or run.

          RUN          /appx/deal                                    END? N FAIL 0
          IF       --- RETURN CODE                EQ     52
    T     GOSUB        :ACE OF SPADES

Assuming that the directory /appx contains the following sample C program, this program will be executed and a return code of 1 to 52 will be passed back to the APPX process that executed the RUN statement.

/* deal.c */

#include <stdlib.h>

#include <time.h>

int main( int argc, char ** argv )

{

/*

** Initialize the random number generator

*/

       srand(( unsigned ) time(0) );

/*

** Return a random number between 1 and 52

*/

       return( rand() % 52 + 1 );

}