XProfan

Windowtitle "Cursor effects"
Cls:font 2:declare cursor$[]
Cursor$[]=explode("Zeiger (Standard);Texteingabe (senkr. Strich);Sanduhr (Bitte warten ...);\
Fadenkreuz;Großer senkrechter Pfeil;Vierfach-Pfeil (+);Icon16bit;Doppel-Pfeil (\\);\
Doppel-Pfeil (/);Doppel-Pfeil (-);Doppel-Pfeil (|);Drucker;Vierfach-Pfeil (wie 5);\
Doppelpfeil (wie 7);Verboten-Symbol;Sanduhr mit Pfeil;Aiuto (Fragezeichen mit Pfeil)", ";" )
print "\n\n\n Mausklick schaltet den verwendeten Cursor weiter."
print "\n Tastendruck schaltet zum nächsten Effekt weiter."
waitinput 5000

whileloop 0,16

    UseCursor &Loop:locate 1,1:print "\n"+mkstr$(" ",70);
    locate 1,1:print "\n "+str$(&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 Effekt 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 Effekt 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 Effekt 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 Effekt 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 Effekt 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 Effekt 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 Effekt Printerblinker"

whileloop 30

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

endwhile

' ------------- Raum per eigene Experimente ----------------
'-----------------------------------------------------------
cls:Print "\n\n\n\n       Alles wieder auf NORMAL gestellt.\n\n       Bye!"
locate 1,1:print "\n"+mkstr$(" ",70);
usecursor 0:showcursor 1
waitinput 2000
end