! GO bn_enter_exit_GO
! Lines to allow trace of GO scripts:
!
! ! Enter_GO and ! Exit_GO lines written to the journal file
! or output file only if SET REDIRECT is turned on

! Check that we have the ! Enter_GO and ! Exit_GO lines

set redirect/tee/journal
go bn_shortgo

! Inside an IF
let a = 1
if `a gt 0` THEN GO bn_shortgo2

! Inside a REPEAT
define symbol ok = 0
repeat/L=1:3 (if ($ok) then go bn_shortgo; def sym ok = `($ok)+1`)

cancel redirect
