XProfan

Título de la ventana "LIEBENSBAROMETER"
'(CL) Copyleft 2018-01 by P.Pájaro carpintero/Wien, völlig sin Gewähr y Gewehr!
Ventana de Estilo 24
Declarar Usted!,Yo!,Orakel!,Kuss!,Love!
Cls
usepen 0,5,255

Repeat

    Love!=Love!+0.3
    MoveTo 310,120

    whileloop 0,360

        Orakel!=0.7+rnd()/3
        Kuss! = 0.01745329*&Loop
        Usted!  = Love!*sin(Kuss!)*sqr(sin(Kuss!))
        Yo! = Love!*(13*cos(Kuss!)-5*cos(2*Kuss!)-2*cos(3*Kuss!)-cos(4*Kuss!))
        LineTo 310+Orakel!*16*(Kuss!<>0)*Usted!,180-Orakel!*Yo!

    endwhile

    lup:
    waitinput 1000

    if %key

        font 2
        locate 13,10
        imprimir " Love: ";format$("%g",10*love!);" % "
        waitinput 5000
        end

    endif

    casenot %wmtimer:goto "lup"
    cls

until 0