
                         IMP77 Compiler for PDP-11

          File: _DRA0:[GRAFIX.EDWIN]TEST6.IMP;1       16:24:54     10-JUN-1981

                   Edinburgh IMP77 Compiler - Version 8.1a

               1  %include "edwin_dir:specs.inc"
           &   1  { EDWIN routine specs added }                   %end %of %list
               2  %begin
               3     ! EDWIN test program 6
               4     ! Acknowledgements to PSR and ADC for this program.
               5     ! Something to do with a fast video
               6  
               7     %own string (40) array pic(1:8) = 
               8+       "  ~\",
               9+       "    \   /~~~~~~~~~\",
              10+       "    /  /           ~\     /~\",
              11+       "   /  /              ~\   |  |",
              12+       "  (  /   ___           ~\_\  /_",
              13+       "  (  |      \                  \",
              14+       "   \_|       \___       |     o \",
              15+       "     \___________\_______\_______\"
              16     %byte %integer %name eye == charno(pic(7),31)
              17     %const %integer  open = 'o', closed = '*'
              18     %integer j, left
              19  
              20     initialise for (default device)
              21     aspect ratioing (0)
              22     viewport(2,66,1,8)
              23     window(2,66,1,8)
              24     newframe
              25  
              26     left = 2
              27     %cycle
              28        moveabs(left,9-j) %and text(pic(j)) %for j = 1,1,8
              29        left = left + 2
              30        eye = open + closed - eye
              31     %repeat %until left = 74
              32  
              33     terminate edwin
              34  
              35  %end %of %program
