@@ -13,16 +13,16 @@ BRK

 |c000 @FRAME 

-	,i LDR ,01 ADD ,i STR ( incr i )

-

+	,i LDR ,04 ADD ,i STR ( incr i )

 	,i LDR ,x1 STR ( set x )

-

+	,changerow JSR ( update y )

 	,01 ,02 ,x0 LDR^ ,y0 LDR^ ,putpixel JSR

 BRK

-@onrow

-	,y1 LDR ,01 ADD ,y1 STR

+@changerow

+	,i LDR ,00 NEQ RTS?

+	,y1 LDR ,04 ADD ,y1 STR

 	RTS

 @putpixel