
Numeric Num1

For Num1 = 1 To 3
	SpeakNumber(Num1)
Next
Stop

Label SpeakNumber
	Numeric Num2
	Str1 = Num2
	SpeakString(Str1)
Return

Label SpeakString
	String Str1
	TTS SpeakWait Str1
Return


'BOOKMARKS 

'EDITEDLINES 0 10 11 10 6 10 19 10 

'EXEC K_Newton = 1.01
