character*9c;read*;do1;read*,c;1 if(len_trim(c)+9*scan(c,"POWDY")==6)print'(a6)',c;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page