24 lines
601 B
Plaintext
24 lines
601 B
Plaintext
Module UseThread {
|
|
Def boolean direction=True
|
|
rotating$ =lambda$ a$="Hello World! " (direction as boolean)->{
|
|
=a$
|
|
a$=if$(direction->right$(a$,1)+mid$(a$,1, len(a$)-1), mid$(a$,2)+left$(a$,1))
|
|
}
|
|
Declare MyForm Form
|
|
Layer MyForm {
|
|
Thread {
|
|
Cls #225577,0
|
|
Print @(2,height/2),rotating$(direction)
|
|
} as M interval 200
|
|
}
|
|
Function MyForm.Click {
|
|
direction~
|
|
}
|
|
|
|
With MyForm, "Title", "Animation"
|
|
|
|
Method MyForm, "Show", 1
|
|
Threads Erase
|
|
}
|
|
UseThread
|