Return to stop.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/stop.c, revision 1.1.1.1

1.1       root        1: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      2: 
                      3:  *     ***********************************
                      4:  *     ***********************************
                      5:  *     ********** STOP AND END ***********
                      6:  *     *** R. B. Drake WH 8C-005 X4163 ***
                      7:  *     **** Sun Aug 26 11:37:50 1979 *****
                      8:  *     ***********************************
                      9:  *     ***********************************
                     10:  * In BITE, 'stop' and 'end' both stop the program execution however 
                     11:  * unlike many BASICS, the 'end' statement is optional. Simply hitting the
                     12:  * end of the program buffer will stop the program without error.
                     13: 
                     14: */
                     15: /*   "@(#) stop.c:  V 1.1  12/21/80" */
                     16: 
                     17: #include "bas.h"
                     18: extern int stpflg;
                     19: stop()
                     20: {
                     21:        printf("STOP %d\n",inst.thing.linno);
                     22:        stpflg = 1;
                     23:        return(0);
                     24: }
                     25: __end()
                     26: {
                     27:        stpflg = 1;
                     28:        return(0);
                     29: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.