Module CheckIt {
      Module CheckSub {
            Read Z
            M=5000
            Module CheckThis {
                  Z=500
                  Hello("Bob")
            }
            Function CheckFun {
                   Z=50
                   Hello("Mary")
            }
            Call CheckFun()
            CheckThis
            Hello("George")
            Gosub label1
            \\ sub work as exit here
            Sub Hello(a$)
                  \\ any new definition erased at exit of sub
                  Local M=100
                  Print "Hello ";a$, Z, M
            End Sub
      label1:
            \\ this light subs have no "erased new definition mode"
            \\ they are like code of module
            Print Z, M
            Return
      }
      CheckSub 10
      Module CheckOther {
            Z=1000
            Hello("John")
      }
      \\ we can replace CheckThis with CheckOther
      CheckSub 20; CheckThis as CheckOther
}
Call Checkit
Module Alfa {
      x=1
      Thread {
            x++
      } as K interval 20
      Thread {
            PrintMe()
      } as J interval 20
      Main.Task 20 {
            if x>99 then exit
      }
      Wait 100
      Sub PrintMe()
            Print x
      End Sub
}
Call Alfa