XProfan

Windowtitle "Cursor effects"
Cls:font 2:declare cursor$[]
Cursor$[]=explode("Zeiger (standard);Texteingabe (senkr. Strich);Sanduhr (Please Waiting ...);\
Fadenkreuz;Großer senkrechter arrow;Vierfach-arrow (+);Icon16bit;semidetached-arrow (\\);\
semidetached-arrow (/);semidetached-arrow (-);semidetached-arrow (|);printer;Vierfach-arrow (How 5);\
Doppelpfeil (How 7);prohibited-symbol;Sanduhr with arrow;Help (question mark with arrow)", ";" )
print "\n\n\n Click toggles whom verwendeten Cursor moreover."
print "\n Tastendruck toggles to that next effect moreover."
waitinput 5000

whileloop 0,16

    UseCursor &Loop:locate 1,1:print "\n"+mkstr$(" ",70);
    locate 1,1:print "\n "+st$(&Loop)+": "+cursor$[&Loop];
    sound 700,8
    waitinput 5000
    case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect Rechtsdrehender Doppelpfeil"

whileloop 30

    UseCursor 9:waitinput 90:case %key>0:break
    UseCursor 7:waitinput 90:case %key>0:break
    UseCursor 10:waitinput 90:case %key>0:break
    UseCursor 8:waitinput 90:case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect Linksdrehender Doppelpfeil"

whileloop 30

    UseCursor 8:waitinput 90:case %key>0:break
    UseCursor 10:waitinput 90:case %key>0:break
    UseCursor 7:waitinput 90:case %key>0:break
    UseCursor 9:waitinput 90:case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect Blinkendes Cursorkreuz"

whileloop 30

    UseCursor 3:waitinput 250:case %key>0:break
    UseCursor 6:waitinput 250:case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect Zoomblinkende Sanduhr"

whileloop 15

    UseCursor 2:waitinput 500:case %key>0:break
    UseCursor 15:waitinput 500:case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect 9-5-10-5"

whileloop 30

    UseCursor 9:waitinput 1000:case %key>0:break
    UseCursor 5:waitinput 500:case %key>0:break
    UseCursor 10:waitinput 1000:case %key>0:break
    UseCursor 5:waitinput 500:case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect 15-0"

whileloop 30

    UseCursor 15:waitinput 800:case %key>0:break
    UseCursor 0:waitinput 800:case %key>0:break

endwhile

sound 2000,8:locate 1,1:print "\n"+mkstr$(" ",70);
locate 1,1:print "\n effect Printerblinker"

whileloop 30

    UseCursor 11:waitinput 500:case %key>0:break
    UseCursor 6:waitinput 500:case %key>0:break

endwhile

' ------------- space for Own Experimente ----------------
'-----------------------------------------------------------
cls:Print "\n\n\n\n       everything again on NORMAL set.\n\n       Bye!"
locate 1,1:print "\n"+mkstr$(" ",70);
usecursor 0:showcursor 1
waitinput 2000
end