XProfan

Windowtitle "Cursor effects"
Cls:font 2:declarar 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 (como 5);\
Doppelpfeil (como 7);Verboten-Symbol;Sanduhr con Pfeil;Ayuda (Fragezeichen con Pfeil)", ";" )
imprimir "\n\n\n Mausklick schaltet el verwendeten Cursor más."
imprimir "\n Tastendruck schaltet para nächsten Effekt más."
waitinput 5000

whileloop 0,16

    UseCursor &Loop:locate 1,1:imprimir "\n"+mkstr$(" ",70);
    locate 1,1:imprimir "\n "+str$(&Loop)+": "+cursor$[&Loop];
    sound 700,8
    waitinput 5000
    caso %key>0:romper

endwhile

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

whileloop 30

    UseCursor 9:waitinput 90:caso %key>0:romper
    UseCursor 7:waitinput 90:caso %key>0:romper
    UseCursor 10:waitinput 90:caso %key>0:romper
    UseCursor 8:waitinput 90:caso %key>0:romper

endwhile

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

whileloop 30

    UseCursor 8:waitinput 90:caso %key>0:romper
    UseCursor 10:waitinput 90:caso %key>0:romper
    UseCursor 7:waitinput 90:caso %key>0:romper
    UseCursor 9:waitinput 90:caso %key>0:romper

endwhile

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

whileloop 30

    UseCursor 3:waitinput 250:caso %key>0:romper
    UseCursor 6:waitinput 250:caso %key>0:romper

endwhile

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

whileloop 15

    UseCursor 2:waitinput 500:caso %key>0:romper
    UseCursor 15:waitinput 500:caso %key>0:romper

endwhile

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

whileloop 30

    UseCursor 9:waitinput 1000:caso %key>0:romper
    UseCursor 5:waitinput 500:caso %key>0:romper
    UseCursor 10:waitinput 1000:caso %key>0:romper
    UseCursor 5:waitinput 500:caso %key>0:romper

endwhile

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

whileloop 30

    UseCursor 15:waitinput 800:caso %key>0:romper
    UseCursor 0:waitinput 800:caso %key>0:romper

endwhile

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

whileloop 30

    UseCursor 11:waitinput 500:caso %key>0:romper
    UseCursor 6:waitinput 500:caso %key>0:romper

endwhile

' ------------- Raum para propio Experimente ----------------
'-----------------------------------------------------------
cls:Imprimir "\n\n\n\n       Alles otra vez en NORMAL gestellt.\n\n       Bye!"
locate 1,1:imprimir "\n"+mkstr$(" ",70);
usecursor 0:showcursor 1
waitinput 2000
end