PROC MAIN()›BYTE Z=[0],I,X=[0],ATRCT=77››GRAPHICS(11)›DO ATRCT=0 ›  FOR I=1 TO 79›  DO Z=Z+1   ›     IF Z>15 THEN Z=1 FI›     COLOR=Z ›     PLOT(I,X) DRAWTO(79-I,X)›     PLOT(I,190-X) DRAWTO (79-I,190-X)›     X=X+1›     IF X>190 THEN X=0 FI›  OD›  FOR I=1 TO 79›  DO Z=Z+1›     IF Z>15 THEN Z=1 FI›     COLOR=Z›     PLOT (I,X) DRAWTO (79-I,190-X)›     X=X+1›     IF X>190 THEN X=0 FI›  OD›OD›