Path: utzoo!utgpu!water!watmath!clyde!rutgers!mailrus!nrl-cmf!cmcl2!brl-adm!umd5!uvaarpa!mcnc!ece-csc!ncrcae!ncr-sd!hp-sdd!ucsdhub!esosun!seismo!uunet!mcvax!cernvax!ethz!fede
From: fede@ethz.UUCP (F. Bonzanigo)
Newsgroups: comp.os.vms
Subject: Re: Some changes to SWING
Keywords: SWING
Message-ID: <298@bernina.UUCP>
Date: 10 Feb 88 11:19:43 GMT
References: <294@bernina.UUCP>
Reply-To: fede@bernina.UUCP (F. Bonzanigo)
Followup-To: Article 4143 of comp.os.vms
Organization: ETH Zuerich, Switzerland
Lines: 41

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