XProfan

Window Title "LIEBENSBAROMETER"
'(CL) Copyleft 2018-01 by P.woodpecker/Wien, completely without Gewähr and gun!
Window Style 24
Declare You!,I!,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
        You!  = Love!*sin(Kuss!)*sqr(sin(Kuss!))
        I! = Love!*(13*cos(Kuss!)-5*cos(2*Kuss!)-2*cos(3*Kuss!)-cos(4*Kuss!))
        LineTo 310+Orakel!*16*(Kuss!<>0)*You!,180-Orakel!*I!

    endwhile

    lup:
    waitinput 1000

    if %key

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

    endif

    casenot %wmtimer:goto "lup"
    cls

until 0