TILE height 16:  CLS

For y=0 To 29 Step 1
 c=c Xor 1
 For x=0 To 79 Step 2
   c=c Xor 1
   If c Then
     TILE x,y,,RGB(myrtle),2,1
   Else
     TILE x,y,,RGB(black),2,1
   EndIf
 Next
Next

For X=-25 To 24
 For Y=-25 To 24
   For U=0 To 1
     For V=0 To 1
       Q=PLOT(0,X+U,Y+V)
     Next
   Next
   For U=0 To 2 Step .5
     Q=PLOT(1,X+(1 And U+.5),Y+(1 And U))
   Next
 Next
Next

Function PLOT(P,X,Y)
PX=320-5*X-8*Y
PY=200-3*X+2*Y-30*(-8/Sqr(1+(X^2+Y^2)/5))
If P Then Line SX,SY,PX,PY
SX=PX:SY=PY
PLOT=0
End Function