TITLE crsout - OUTPUT A string TO THE SCREEN SEARCH CRCSYM,MONSYM,MACSYM ENTRY crsout external gtbypt ; ;REFERENCE FROM FORTRAN WITH ; CALL crsout(Istrg) ;THE ROUTINE SENDS THE CHARACTER string TO THE TERMINAL ; crsout: setz t1, ;get argument 0 call gtbypt ;get the byte pointer to the string psout% ;and output ret ;return end