test_display Subroutine

subroutine test_display ()
   call lala( [ character(len=256) :: &
   & 'display([27,91,''H'',27,91,''2J'']) // clear and home cursor on ANSI device  ', &
   & 'display(ones(80,1)''*61)         // make a line                           ', &
   & 'help display                                                             ', &
   & 'display(ones(80,1)''*95)         // make a line                           ', &
   & 'tally=[0];                                                               ', &
   & '                                                                         ', &
   & 'display(<                       // multiple lines, all the same length   ', &
   & '''#--------------#'';                                                      ', &
   & '''|              |'';                                                      ', &
   & '''|    WARNING   |'';                                                      ', &
   & '''|              |'';                                                      ', &
   & '''#--------------#'';                                                      ', &
   & '>);                                                                      ', &
   & '                                                                         ', &
   !& 'if a+b=zeros(a), tally=[tally,0];display(''a-b is zero       '');else,tally=[tally,1];display(''a-b is NOT zero'');      ', &
   & 'if sum(tally)=0,display(''display PASSED'');else,display(''display FAILED'');tally ', &
   & ''])
end subroutine test_display