; casl2 outl_call0.casl outl.casl MAIN START LAD GR1,100 CALL OUTL RET END