Module Checkit {
      Rem : Dim beta(10)  ' remove Rem to get error when call beta() without Gosub
      Rem : Gosub beta() ' remove again Rem  and erase next line to use beta() correct
      'beta()
      sub beta()
            local i
            for i=1 to 10
                  alfa(i)
            next i
      end sub
      sub alfa(x)
      goto 100
      Print "no print"
      End Sub

      100 Print "ok this printed", x
              Return
}
Checkit