ptn2_call.casl

   1 MAIN    START
   2         LAD     GR1,5
   3         CALL    PTN2
   4         RET
   5         END