17 lines
553 B
Plaintext
17 lines
553 B
Plaintext
Module UseEvery {
|
|
Window 16, 6000,4000;
|
|
Print "Animation"
|
|
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))
|
|
}
|
|
Every 200 {
|
|
Cls #225577,1
|
|
Print @(2,height/2),rotating$(direction)
|
|
if mouse=1 then direction~
|
|
if mouse=2 then exit
|
|
}
|
|
}
|
|
UseEvery
|