XProfan

WindowTitle "LIEBENSBAROMETER"
'(CL) Copyleft 2018-01 by P.Specht/Wien, völlig ohne Gewähr und Gewehr!
WindowStyle 24
Declare Du!,Ich!,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
        Du!  = Love!*sin(Kuss!)*sqr(sin(Kuss!))
        Ich! = Love!*(13*cos(Kuss!)-5*cos(2*Kuss!)-2*cos(3*Kuss!)-cos(4*Kuss!))
        LineTo 310+Orakel!*16*(Kuss!<>0)*Du!,180-Orakel!*Ich!

    endwhile

    lup:
    waitinput 1000

    if %key

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

    endif

    casenot %wmTimer:goto "lup"
    cls

until 0