'BEGIN' 'COMMENT' SCHOTTER;
  'REAL' R, PIHALB, PI4T;
  'REAL' JE1,JA1,JE2,JA2,J2,P1,J1;

  'INTEGER' I;
  'PROCEDURE' QUAD;
  'BEGIN'
    'REAL' P1, Q1, PSI;
    'INTEGER' S;
    JE1 := 5*I/264;
    JA1 := -JE1;
    JE2 := PI4T*(1 + 1/ 264);
    JA2 := PI4T*(1 -1/264);
    P1:=P+5+J1;
    Q1:=Q+5+J1;
    PSI:=J2;
    LEER(P1 + R*cos(PSI),Q1 + R*sin(PSI));
    'FOR' S:= 1 'STEP' 1 'UNTIL' 4 'DO'
    'BEGIN' PSI := PSI + PIHALB;
      LINE(P1 + R*cos(PSI),Q1 + R*sin(PSI))
    'END';
    I:=I+1
  'END' QUAD;
  R:= 5*1.4142;
  PIHALB:=3.14159*.5; PI4T:= PIHALB*.5;
  I:=0;
'END'