[Spiderman]

А если заменить первые строки на такую комбинацию латиницы, то будет сердце:

Graphics3D 800,600,32,2
SetBuffer FrontBuffer()
t#=0
Dim pixmap(0,0)

Color 192,2,2
steps = 0

While(steps<50)
	t=t+0.2618;
      
      R# = (1+Sin(t))*(2-.2*Abs(Cos(d*t+t)))*(.2-.01*ATan(200*t)+.2)
		
	x# = 400 + Sin(t-90) * r*(220-(steps*4))
	y# = 100 - Cos(t-90) * r*(230-(steps*4))