Module CheckIt {
      Def aName$="No Name", Num$
      \\ we open a new stack, and hold old
      Stack New {
            If Ask$("Give your name:",,,,,aName$)="OK" Then Read aName$
            If Ask$("Give a Number: (75000)",,,,,"")="OK" Then Read Num$
            if  Num$<>"75000" or aName$="" Then loop
      }
      \ now old stack came back
      Print Num$, aName$
      Print Letter$    \\ Letter$ pop a string from stack
}
CheckIt "Thank You"