R FORTRA VM:RESEF=VM:RESEF/E/S/W/K VM:NREAD=VM:NREAD VM:NIF=VM:NIF VM:NACCEP=VM:NACCEP VM:NCLOSE=VM:NCLOSE VM:NGOTO=VM:NGOTO VM:LOOKUP=VM:LOOKUP VM:RESSUB=VM:RESSUB ^C R LIBR VM:RESLIB,TT:=VM:NREAD,NIF,NACCEP,NCLOSE// VM:NGOTO,LOOKUP,RESSUB // ^C