test_general_char Subroutine

subroutine test_general_char ()
   call lala( [ character(len=256) :: &
'display(ones(80,1)''*''=''); // display a line of equals across display     ', &
'tally=[0];                                                               ', &
'display(0:126) // display printable ASCII characters                     ', &
'// on an ANSI terminal or terminal emulator                              ', &
'clr=''display([27,91,''''H'''',27,91,''''2J''''])'' // home cursor and clear screen', &
'>clr                                                                     ', &
'//if ''ABCabc''=[65 66 67 97 98 99],tally=[tally,0];display(''ABCabc PASSED'');else,tally=[tally,1];display(''ABCabc FAILED'');', &
'if sum(tally)=0,display(''general char PASSED'');else,display(''general char FAILED'');tally ', &
''])
end subroutine test_general_char