JTLICTST$MAIN0110-Jul-1996 10:40Digital Fortran V6.4-165 JTLICTST$MAINP icond not right, =  enter keystring: JTLICTST$MAINPP[JTGLMSKPRR8 FOR$WRITE_SFR FOR$IO_L_V FOR$IO_ENDFOR$STOP  JTLICTST$MAINJTGLMSKJTPRTSYIKGETKIC$CODE2$PDATA $LOCALFOR$STOP FOR$IO_END FOR$IO_L_V FOR$WRITE_SFP C