/* 
 *  ST GEM Shell
 *  (c) 1986 Antic Publishing
 *  Version 072486  Thursday
 *  Written by Patrick Bass
 *
 *---- Alcyon Include File ----------------------------*/

#include       "osbind.h"

#define   TRUE           (1)
#define   FALSE          (0)
#define   begin          {
#define   end            }
#define   wend           }
#define   repeat         }
#define   next           }
#define   endif          }
#define   not            !
#define   equals         ==
#define   does_not_equal !=
#define   then

/*---------------- Alcyon Declarations/Equates --------*/
int  contrl[ 12 ],
     intin[ 256 ],  ptsin[ 256 ],
     intout[ 256 ], ptsout[ 256 ],
     workin[]={ 1,1,1,1,1,1,1,1,1,1,2 }, workout[ 57 ],
     i, j, k, l, finished, gem_handle;

/*-----------------------------------------------------*/
main()
begin
     initialize();

     do begin

          your_work();

     repeat while( not finished );

     terminate();     
end

/*-----------------------------------------------------*/
initialize()
begin
     appl_init();
     gem_handle=graf_handle( &i, &i, &i, &i );
     v_opnvwk( workin, &gem_handle, workout );

     finished=FALSE;
end

/*-----------------------------------------------------*/
your_work()
begin

     finished=TRUE;

end

/*-----------------------------------------------------*/
terminate()
begin
     v_clsvwk( gem_handle );
     appl_exit();
end

---

Back to previous page