14 lines
454 B
Plaintext
14 lines
454 B
Plaintext
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"
|