INTEGER BOX(10)/0,12415,73758,32798,65660,96256,
     *65788,-2048,0,0/
      CHARACTER*30 BLINE(1)/'(''0'',14X,''TIME'',9X,G13.4)'/
      CHARACTER*35 SLINE(1)/'(''^'',G10.4,6X,''BLOCK'',I3,G15.4)'/
      SLINE(1) = '(''^'',G10.4,6X,''BLOCK'',I3,G15.4)'
C
   1  CALL CLEAR(.TRUE.)
C      WRITE(4,*) ' ',BLINE,SLINE
      CALL TEXT(2,1,30,0,7,2,BLINE,19.34)
      CALL TEXT(2,2,24,40,7,2,SLINE,-12.3,5,23.45)
      CALL DISPLY(6,3,BOX,1,10)
      PAUSE 1
      CALL TEXT (3,1)
      CALL TEXT (3,2)
      CALL TEXT (3,3)
      PAUSE 3
      CALL DRAW (BOX,1,10)
      PAUSE 4
      CALL COPY
      PAUSE 5
      GO TO 1
      END