XProfan

WindowTitle "Fensterbeweger"
WindowStyle 24:font 2:declare a$,a!,sum!,add!,n&

whileloop 6,70,2:Window %maxx*(.5-.005*&Loop),%maxy*(.5-.005*&Loop)\

    - (%maxx*.01*&Loop),(%maxy*.01*&Loop)
    cls:print "\n Aus welcher Zahl soll die Quadratwurzel gezogen werden? ";:waitinput 25

endwhile

cls:print "\n Aus welcher Zahl soll die Quadratwurzel gezogen werden? \n\n Zahl: ";
input a$:a!=val(a$):print "\n Ergebnis: ";sqrt(a!):waitinput 3000

whileloop 70,6,-2:Window %maxx*(.5-.005*&Loop),%maxy*(.5-.005*&Loop)\

    - (%maxx*.01*&Loop),(%maxy*.01*&Loop)
    cls:print "\n Aus welcher Zahl soll die Quadratwurzel gezogen werden? ";:waitinput 25
    endwhile :end

whileloop 0,3600/2

    Window %maxx/2-200*sin(&Loop*Pi()/180),(%maxy/2-200*cos(&Loop*Pi()/180))\
    - abs(200*sin(&Loop*Pi()/180)),abs(200*cos(&Loop*Pi()/180))
    waitinput 20
    case %key>0:end

endwhile

waitinput