//JS pseudo TurboPascal simulator script function segmentzeichnen(ii0,jj0,rr,cc0,cc1) { var ii,xx,yyo,yyu,srr,sxx; var yyor,yyur; srr=rr*rr; xx=0; yyor=Math.sqrt(2*rr-1); yyo=-Math.round(yyor); yyu=-rr; setcolor(cc1); while ((yyo>yyu)&&((xx+1)