And I thought, well Coleco Smartbasic is pretty similar to Applesoft (by design) so if I change a couple of lines it will work.

Hplot coordinates go from 0 to 255 instead of 0 to 279

/mame64 adam -cass1 smartbas


Code
       190 IF SF=0 THEN POKE 25471,15:HGR : SF=1 : REM CLEAR SCREEN TO WHITE 255 
        240  HCOLOR = 0 : FOR X = X1 TO X2-1 : HPLOT X,Y TO X,Y+Y1 : NEXT : X = X2

[Linked Image from i.imgur.com]