testcall.cos

   1 DBG: OUTS "1..n"
   2
   3 NEW: SIMP 3 2 1 "bluebell" 1 0 0
   4 TICK 1
   5
   6 SCRP 3 2 1 9
   7     SETV OV00 0
   8     CALL 42 "hello, world" TARG
   9     DOIF OV00 eq 0
  10         DBG: OUTS "not ok 3 - CALL blocks"
  11     ELSE
  12         DBG: OUTS "ok 3 - CALL blocks"
  13     ENDI
  14     TICK 0
  15 ENDM
  16
  17 SCRP 3 2 1 42
  18     DBG: OUTS "ok 1 - CALL"
  19     DOIF _P1_ ne "hello, world"
  20         DBG: OUTS "not ok 2 - _P1_"
  21     ELSE
  22         DBG: OUTS "ok 2 - _P1_"
  23     ENDI
  24     SETV OV00 1
  25 ENDM