MODULE ;Plot7 submodule››BYTE xprev,yprev›CARD ARRAY yLoc(192)››PROC Plot7(BYTE px,py)›  BYTE i›  BYTE ARRAY pos,›    bm=[$C0 $30 $0C $03],›    am=[$3F $CF $F3 $FC],›    cm=[$00 $55 $AA $FF]››  pos=yLoc(py)›  pos(px RSH 2)==&am(px&3)%(bm(px&3)&cm(color))›  xprev=px›  yprev=py›RETURN›››BYTE FUNC Abs(INT m)›  IF m<0 THEN m=-m FI›RETURN(m)›››PROC DrawTo7(BYTE x2,y2)›  BYTE x,y,xend›  INT dx,dy,incr1,incr2,d››  dx=Abs(x2-xprev)›  dy=Abs(y2-yprev)›  d=(dy LSH 1)-dx›  incr1=dy LSH 1›  incr2=(dy-dx)*2››  IF xprev>x2 THEN›    x=x2›    y=y2›    xend=xprev›  ELSE›    x=xprev›    y=yprev›    xend=x2›  FI››  WHILE x<xend DO›    x==+1›    IF d<0 THEN›      d==+incr1›    ELSE›      y==+1›      d==+incr2›    FI›    Plot7(x,y)›  OD›RETURN›››PROC Init7()›  BYTE i=0›  CARD screen,scrloc=88              ››  Graphics(23)›  screen=scrloc›  FOR i=0 TO 191 DO›    yLoc(i)=screen›    screen==+40›  OD›RETURN››››MODULE››BYTE cirtype›INT cx,cy››PROC Circle_Points(INT x,y)›IF cirtype=0 THEN›  Plot7(cx-x,cy+y)›  Plot7(cx+x,cy+y)›  Plot7(cx-y,cy+x)›  Plot7(cx+y,cy+x)›  Plot7(cx-y,cy-x)›  Plot7(cx+y,cy-x)›  Plot7(cx-x,cy-y)›  Plot7(cx+x,cy-y)›ELSE›  Plot7(cx-x,cy+y):DrawTo7(cx+x,cy+y)›  Plot7(cx-y,cy+x):DrawTo7(cx+y,cy+x)›  Plot7(cx-y,cy-x):DrawTo7(cx+y,cy-x)›  Plot7(cx-x,cy-y):DrawTo7(cx+x,cy-y)›FI›RETURN›››PROC Mich_Circle(INT radius)    ›  INT x,y,d››  x=0›  y=radius›  d=3-(radius LSH 1)››  WHILE x<y DO››    Circle_Points(x,y)››    IF d<0 THEN›      d==+(x LSH 2)+6›    ELSE›      d==+((x-y)LSH 2)+10›      y==-1›    FI››    x==+1››  OD››  IF x=y THEN›    Circle_Points(x,y)›  FI››  color==+1›  IF color=4 THEN color=1 FI››RETURN›››PROC Main()››BYTE CONSOL=$D01F,i,j,k›INT rx,ry›BYTE POINTER colreg››  Init7()››  cirtype=$FF›  color=1›  j=$20››  DO›    Graphics(23)›    colreg=708›    FOR i=0 TO 2 DO›      k=Rand(15)+1›      colreg^=(k LSH 4)+Rand(12)+4›      colreg==+1›    OD›    cirtype==!$FF›    j==!($50!$20)›››    FOR i=1 TO j DO›      cx=Rand(140)+10›      cy=Rand(76)+10›  ›      IF cx>79 THEN›        rx=159-cx›      ELSE›        rx=cx›      FI›  ›      IF cy>47 THEN›        ry=95-cy›      ELSE›        ry=cy›      FI› ›      IF rx>ry THEN›        ry=Rand(ry)›        Mich_Circle(ry)›      ELSE›        rx=Rand(rx)›        Mich_Circle(rx)›      FI››      CONSOL=8›      IF CONSOL#7 THEN EXIT FI››    OD›  IF CONSOL#7 THEN EXIT FI›  OD›RETURN››