XProfan

Título de la ventana "Fensterbeweger"
Ventana de Estilo 24:font 2:declarar a$,a!,sum!,add!,n&

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

    - (%maxx*.01*&Loop),(%maxy*.01*&Loop)
    cls:imprimir "\n Aus welcher El número es el Quadratwurzel elaborado voluntad? ";:waitinput 25

endwhile

cls:imprimir "\n Aus welcher El número es el Quadratwurzel elaborado voluntad? \n\n Zahl: ";
input a$:a!=val(a$):imprimir "\n Ergebnis: ";sqrt(a!):waitinput 3000

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

    - (%maxx*.01*&Loop),(%maxy*.01*&Loop)
    cls:imprimir "\n Aus welcher El número es el Quadratwurzel elaborado voluntad? ";:waitinput 25
    endwhile :end

whileloop 0,3600/2

    Ventana %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
    caso %key>0:end

endwhile

waitinput