43 DATA chrset /
'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_.'/
55 IF(nemo(i:i).NE.
' ')
THEN
61 1
IF(lnemo.LT.1 .OR. lnemo.GT.8)
THEN
71 IF(nemo(i:i).EQ.chrset(j:j)) goto 10
function nemock(NEMO)
THIS FUNCTION CHECKS A MNEMONIC TO VERIFY THAT IT HAS A LENGTH OF BETWEEN ONE AND EIGHT CHARACTERS AN...