10 LPRINT "in;sp1;"
   20 FOR y=0 TO 175
   30 FOR x=0 TO 255
   40 LPRINT "pa";x*40+80;",";y*40+100;";"
   60 IF POINT (x,y)=0 THEN GO TO 90
   70 LET r=30: GO SUB 1000
   90 NEXT x
  100 NEXT y
 1000 REM  ctverecek okolo bodu 
 1020 LPRINT "pu;pr-";INT (r/2);",-";INT (r/2);";pd;pr";INT (r);",0;pr0,";INT (r);";pr-";INT (r);",0;pr0,-";INT (r);";pu;pr";INT (r/2);",";INT (r/2);";"
 1030 RETURN