Lissajous-Figur aus C64 Wiki klappt nicht

allo!

Auf der C64 Wiki Seite (Link) befindet sich ein Simon's Basic-Listing, welches eine Lissajous-Figur abbildet, die recht geil aussieht und die ich unter Vice auch nachbauen wollte. Das Listing sieht so aus:

800 REM--- LISSAJOUS-FIGUREN ---
810 X0 = 160: Y0 = 100: A = 150: B = 95
815 D = 77: N = 2: M = 3: T0 = π/180
820 COLOUR 6,15: HIRES 1,2
825 :
830 FOR W=0 TO 180*D STEP D
835 : T = W * T0
840 : X = X0 + A*COS(N*T)
845 : Y = Y0 + B*SIN(M*T)
860 : IF T<>0 THEN LINE X1,Y1, X,Y,TY
870 : X1 = X: Y1 = Y
880 NEXT W
885 :
890 GET A$: IF A$="" THEN 890
895 COLOUR 14,15
897 IF A$="D" THEN COPY

Das Bild dazu findet ihr im Anhang.

Ich habe unter Vice die d64-Version von Simon's Basic gestartet und das Listing hineingepastet. Der Bildschirm wird rostrot, mehr passiert nicht. Das Moiree-Listing auf derselben C64 Wiki Seite klappt dafür einwandfrei.

Kann jemand mein Problem reproduzieren, bzw. weiß jemand eine Lösung? Kann es am Emulator liegen? Vice ist aber doch ziemlich perfekt. Wenn es nicht Vice ist dann kann es ja nur am Code liegen und den verstehe ich nicht gut genug.

@ hexworx

Ich habe klickaffen-mäßig und noch ohne zu verstehen einfach mal

790 ty=4

eingegeben. Ohne Veränderung. Außerdem wird die Kreiszahl Pi beim Kopieren und Pasten nur als "P" übernommen und P müsste auch den Wert 0 haben.
Die eingefügte Zeile

791 p=3.14

erweckt das Listing aber auch nicht zum Leben.

Anbei nochmal im Anhang die Lissahjous Figur wie sie laut C64 Wiki aussehen soll (die GIF-Datei die ich im ersten Post angehängt habe scheint korrupt zu sein).

@ LogicDeluxe

Geil!

Also mit diesem Listing unter Simon's Basic kriegt man das neue Bild im Anhang was ich grad geschossen habe:

790 ty=1
791 p=3.14
800 rem--- lissajous-figuren ---
810 x0 = 160: y0 = 100: a = 150: b = 95
815 d = 77: n = 2: m = 3: t0 = p/180
820 colour 6,15: hires 1,2
825 :
830 for w=0 to 180*d step d
835 : t = w * t0
840 : x = x0 + a*cos(n*t)
845 : y = y0 + b*sin(m*t)
860 : if t<>0 then line x1,y1, x,y,ty
870 : x1 = x: y1 = y
880 next w
885 :
890 get a$: if a$="" then 890
895 colour 14,15
897 if a$="d" then copy