-- version control marker $Id: cgtest50.occ,v 1.3 1995/10/11 10:04:29 djb1 Exp $

PROC cgtest50 (CHAN OF BYTE keyb, scr, err)
  
  #INCLUDE "cgmain.occ"
  #INCLUDE "cgreal.occ"

  INT key :
  BOOL x :
  SEQ
    init ("CG test 50", "MYTYPE: INT32 arithmetic")

    --{{{  Parameterising for MYINT
    DATA TYPE MYINT IS INT32 :
    
    MYINT FUNCTION id.MYINT(VAL MYINT x) IS x :
    PROC check.MYINT(VAL MYINT x, y, VAL []BYTE str)
      check.INT32(INT32 x, INT32 y, str)
    :
    
    VAL title.str IS "MYTYPE: INT32 arithmetic" :
    
    --}}}
    #INCLUDE "cg50myi.occ"

    finish ()
:
