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