!TITLE - FID - FID - FID - FID - FID - FID -
!ASSIGN M:SI,(FILE,S:FID)
!ASSIGN M:GO
!FORTRAN SI,NS,GO,S,BC
!LYNX $,:MONSTK (SL,F) OVER FID (EX,ALL);.X
!RUN (LMN,SQ,X)
!DATA
 SQ FID
