include "$edwin:.inc"
begin
   ! EDWIN test program 6
   ! Acknowledgements to PSR and ADC for this program.
   ! Something to do with a fast video

   own string(40) array pic(1:8) = 
      "  ~¬",
      "    ¬   /~~~~~~~~~¬",
      "    /  /           ~¬     /~¬",
      "   /  /              ~¬   |  |",
      "  (  /   ___           ~¬_¬  /_",
      "  (  |      ¬                  ¬",
      "   ¬_|       ¬___       |     o ¬",
      "     ¬___________¬_______¬_______¬"
   byte integer name eye == charno(pic(7),31)
   const integer  open = 'o', closed = '*'
   integer j, left

   prompt ("Terminal: ")
   read (j)
   initialise for (j)
   aspect ratioing (0)
   viewport(2,66,1,8)
   window(2,66,1,8)
   newframe

   left = 2
   cycle
      moveabs(left,9-j) and text(pic(j)) for j = 1,1,8
      left = left + 2
      eye = open + closed - eye
   repeat until left = 74

   terminate edwin

end of program