start bastext 1025 start tok64 d64-c05BXV 10 PRINT"{clear}":px=20:py=12:dy=py:dx=px 20 FORx=0TO39:COPYx,0,160,2:COPYx,24,160,2:NEXT 30 FORy=0TO24:COPY0,y,160,2:COPY39,y,160,2:NEXT 40 COPYdx,dy,42,1 100 jx=BIT(2)x:jy=BIT(2)y 110 PLACEdx,dyTOdx+jx,dy+jyMULTI=(160)THEN100 115 IFstTHENCOPYdx,dy,42,1 120 dx=dx+jx:dy=dy+jy:GOTO100 stop tok64 (bastext 1.0)