This code has been declared by its author to be Public Domain code.
Download source code
| This is a sort of smooth function that animates the AppTitle and can put the text into the document at the same time|
Click here to download current versions of all my codes and games including this one: http://n8r2k.deviousbytes.com/
Graphics 800,600,16,2 Global apptime = 0 Global apptext$ = app1$ Global appnum = 0 Global texttime = 0 Global appdir = 0 Const app1$ = "If you like you could" ;change these lines Const app2$ = "Mess with this code and" Const app3$ = "Add more messages" SeedRnd(MilliSecs()) While Not KeyHit(1) AppletTitle() Flip Wend Function AppletTitle() AppTitle apptext$ Cls apptext$ = " " + apptext$ apptime = apptime + 1 If apptime = 100 ;mess with this var If appnum = 0 apptext$ = app2$ apptime = 0 appnum = 1 ElseIf appnum = 1 apptext$ = app3$ apptime = 0 appnum = 2 ElseIf appnum = 2 apptext$ = app1$ apptime = 0 appnum = 0 EndIf EndIf Color Rand(0,255),Rand(0,255),Rand(0,255) Text 0,500,apptext$ End Function
Code Archives Forum