File: STARSH.FT of Tape: V50/Source/Source-Listing-FORTRAN