[# Menu : Gateway of Tally] Add : Item : My TDL: Display : My Text [Report: My Text] Form : My Form [Form : My Form] Part: MyPart [Part: MyPart] Line: MyLine [Line: MyLine] Field: Short Prompt, MyNo Local: Field:Short Prompt : Info : "Natural Numbers" [Field: MyNo] Type: String Width: @@StringWidth Set as : $$PrintNumbers:20 [Function : PrintNumbers] Parameter: n : Number Return: String Variable : Counter : Number Variable : sNatNum : String 1 : SET : Counter : 0 2 : WHILE : ##Counter <##n 3 : INCREMENT : Counter 4: SET: sNatNum : ##sNatNum + $$String:##Counter + $$StrByCharCode:13 5 : ENDWHILE 6 : RETURN: ##sNatNum ;end
