From:	CSBVAX::MRGATE!info-vax-request@kl.sri.com@SMTP 19-FEB-1988 12:22
To:	ARISIA::EVERHART
Subj:	Re: Some changes to SWING


Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Wed 17 Feb 88 00:23:08-PST
Received: by ucbvax.Berkeley.EDU (5.58/1.26)
	id AA13342; Tue, 16 Feb 88 23:20:23 PST
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 10 Feb 88 11:19:43 GMT
From: mcvax!cernvax!ethz!fede@uunet.uu.net  (F. Bonzanigo)
Organization: ETH Zuerich, Switzerland
Subject: Re: Some changes to SWING
Message-Id: <298@bernina.UUCP>
References: <294@bernina.UUCP>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

Dear Swingers,

something screwed the correction to SWING I posted a couple of days ago.
Following is a hopefully better version of it. The lines marked "!FBo"
have been added to the ones given by Ernie Perkins.

C Stolen from a version posted by Michael Bednarek ....
! Create a file name for the save file 
! The rationale behind this is that I don't want to write the 
! SWING.SAV file into other users' directories.
! If the logical name SWING_SAVE exists,

      If (LIB$SYS_TRNLOG('SWING_SAVE',lTR,TR,,,%VAL(0)).eq.1) then
        main(1:len_main+10)='SWING_SAVE:'//main(2:len_main-1)//'_'
        len_main = len_main+10
        do ii = 1, len_main                                       !FBo
          if (main(ii:ii) .eq. '.')   main(ii:ii) = '_'           !FBo
        end do                                                    !FBo
      End If

      ii = 0
      if ( .not. update .and. lib$find_file( main(1:len_main)//
     .     'swing.sav', input, ii ) ) then

         open( unit=1, 
     .         readonly,
     .         name=main(1:len_main)//'swing.sav', 
     .         status='old',
................................................................................


Federico Bonzanigo
  Institut fuer Elektronik
  Swiss Federal Institute of Technology (ETH)
  CH-8092 Zurich, Switzerland
EAN:         bonzanigo@nimbus.ethz.ch
EARN/BITNET: BONZANIGO@CZHETH5A
EUNET/UUCP:  ...!mcvax!cernvax!ethz!fede
Phone:   +41 (1) 256-5134      (+ = whatever you have to dial
Telefax: +41 (1) 251-2172       to call outside your country)
Telex:   817 379 ehhg ch
