' Empty ThinBASIC CONSOLE file template
' my first console script
, 16.+17.februar2009
uses "console"
Dim x, y, z As ext
Dim i As Integer
Console_SetScreenBufferSize(80, 65)
Console_WriteLine(" Simple Logarithmus example for CONSOLE by lionheart ")
Console_WriteLine("----------------")
Console_WriteLine("Title : " + Console_GetTitle())
Console_WriteLine("---push key to go forward---")
For i=1 To 20
x = i
y = Log( x )
z = Exp( y )
Console_WriteLine format$("##: ",i)
Console_WriteLine y, "is the log result: ",
Console_WriteLine z
Next
Console_WriteLine("Press any key to exit this example")
sleep 1500
Console_WriteLine("Key pressed " + Console_Waitkey(12))
Console_SetCursorPosition(25, 85)
Console_WaitKey
Bookmarks