PROC MAIN()›BYTE Z=[0],I,X=[0]››GRAPHICS(9)›SETCOLOR (4,4,2)›DO›  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          ›I=RAND(14)+1›SETCOLOR(4,I,2)›OD›