Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.BERKELEY.EDU
Path: utzoo!decvax!harpo!whuxlm!whuxl!houxm!mhuxt!mhuxr!ulysses!ucbvax!mit-mc.arpa!KFL
From: KFL@MIT-MC.ARPA ("Keith F. Lynch")
Newsgroups: mod.computers.vax
Subject: By popular request, UNDUMP.  Somebody please tell me whether it works under v4.
Message-ID: <[MIT-MC.ARPA].689308.851022.KFL>
Date: Tue, 22-Oct-85 21:59:45 EDT
Article-I.D.: <[MIT-MC.ARPA].689308.851022.KFL>
Posted: Tue Oct 22 21:59:45 1985
Date-Received: Wed, 23-Oct-85 13:27:02 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 29
Approved: info-vax@ucb-vax.arpa


        Program UnDump   !By Keith F. Lynch (KFL@MIT-MC.ARPA) October 1983.
        Implicit None    !Opposite of the DUMP command for .EXE files under
        Byte Block(512),Revers(512),Name(40)   !VMS v3.  Not tested under v4.
        Integer*2 Length,Row,Column,Record,J
11         Write (6,12)
12         Format ('$File : ')
           Read (5,13) Length,(Name(J),J=1,39)
13         Format (Q,39A1)
           Name(Length+1) = 0
           Open (Unit=1,Name=Name,Err=11,Status='Old',Readonly,Shared)
           Open (Unit=2,Name=Name,Err=11,Status='New',Form='Unformatted',
     *     Access='Direct',Recordsize=128)
        Record = 0
        Do While (.True.)
           Record = Record + 1
           Read (1,20,End=4)
20         Format (////)
           Read (1,21) Revers
21         Format (16(/,8(1X,4Z2)))
           Do Row=0,15
              Do Column=1,32
                 Block(32*Row + Column) = Revers(32*Row + (33-Column))
              End Do
           End Do
           Write (2,Rec=Record) Block
        End Do
4       Stop
        End