%include "EDWIN:SPECS.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)
   j = 200
   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
