From:	SMTP%"chris@ccastat.demon.co.uk" 24-JUL-1996 14:20:28.65
To:	everhart@star.zko.dec.com, ARNE@ko.hhs.dk, canellis@apache.brooks.af.mil,        SCANDORA@cmt.anl.gov
CC:	
Subj:	SDLIFDL.1-OF-4  

$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
$!
$! This archive created:
$!  Name : SDLIFDL
$!  By   : chris@ccastat.demon.co.uk
$!  Date : 24-JUL-1996 15:34:03.60
$!  Using: VMS_SHARE 8.4, (C) 1993 Andy Harper, Kings College London UK
$!
$! Credit is due to these people for their original ideas:
$!    James Gray, Michael Bednarek 
$!
$!+ THIS PACKAGE DISTRIBUTED IN 4 PARTS, TO KEEP EACH PART
$!  BELOW 30 BLOCKS
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. ALPHA_SDLIFDL.OPT;2
$!       2. BUILD_SDLIFDL.COM;5
$!       3. SDLIFDL.OBJ;10
$!       4. SDLIFDL.PAS;7
$!
$ set="set"
$ set symbol/scope=(nolocal,noglobal)
$ f=f$parse("SHARE_UNPACK_TEMP","SYS$SCRATCH:."+f$getjpi("","PID"))
$ e="write sys$error  ""%UNPACK"", "
$ w="write sys$output ""%UNPACK"", "
$ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
$ if f$getsyi("CPU") .gt. 127 then $ goto start
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$unpack: subroutine ! P1=filename, P2=checksum, P3=attributes,P4=size
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'"
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped"
$ delete 'f'*
$ exit
$dirok:
$ x=f$search(P1)
$ if x .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped"
$ delete 'f'*
$ exit
$file_absent:
$ w "-I-UNPACK, Unpacking ", P5, " of ", P6, " - ", P1, " - ", P4, " Blocks"
$ n=P1
$ if P3 .nes. "" then $ n=f
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT/NOJOURNAL 'f'/OUT='n'
PROCEDURE GetHex(s,p)LOCAL x1,x2;x1:=INDEX(t,SUBSTR(s,p,1))-1;x2:=INDEX(t,
SUBSTR(s,p+1,1))-1;RETURN 16*x1+x2;ENDPROCEDURE;PROCEDURE SkipPartsep LOCAL m;
LOOP m:=MARK(NONE);EXITIF m=END_OF(b);DELETE(m);EXITIF INDEX(ERASE_LINE,
"-+-+-+-+-+-+-+-+")=1;ENDLOOP;ENDPROCEDURE;PROCEDURE ProcessLine LOCAL c,s,l,b,
n,p;c := ERASE_CHARACTER(1);s := ERASE_LINE;IF c = "X" THEN SPLIT_LINE; ENDIF;
MOVE_HORIZONTAL(-1);l := LENGTH(s);p := 1;LOOP EXITIF p > l;c := SUBSTR(s,p,1);
p := p+1;CASE c FROM ' ' TO '`' ['`']: COPY_TEXT(ASCII(GetHex(s,p))); p:=p+2;[
' ']: p:=p+1;[INRANGE,OUTRANGE]: COPY_TEXT(c);ENDCASE;ENDLOOP;ENDPROCEDURE;
PROCEDURE Decode LOCAL m;POSITION(BEGINNING_OF(b));LOOP m:=MARK(NONE);EXITIF m=
END_OF(b);DELETE(m);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=
1 THEN SkipPartSep;ELSE ProcessLine;MOVE_HORIZONTAL(1);ENDIF;ENDLOOP;
ENDPROCEDURE;SET(FACILITY_NAME,"UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,
OFF);t:="0123456789ABCDEF";f:=GET_INFO(COMMAND_LINE,"file_name");b:=
CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,GET_INFO(COMMAND_LINE,"output_file"));
QUIT;
$ if p3 .eqs. "" then $ goto dl
$ open/write fdl &f
$ write fdl "RECORD"
$ write fdl P3
$ close fdl
$ w "-I-CONVRFM, Converting record format to ", P3
$ convert/fdl=&f &f-1 &P1
$dl: delete 'f'*
$ checksum 'P1'
$ if checksum$checksum .nes. P2 then $ -
  e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ exit
$ endsubroutine
$start:
$!
$ create 'f'
Xsdlifdl
Xsdlmsg`09!`20message`20object`20(use`20message`20to`20compile`20sdlmsg.msg)
Xuniversal=sdl$output
$ call unpack ALPHA_SDLIFDL.OPT;2 138025365 "" 1 1 4 
$!
$ create 'f'
X$`20type/page`20sys$input
X
XThis`20SDL`20DECforms`20IFDL`20backend`20has`20been`20compiled`20on`20VAX,`20V
VMS`206.1,`20and`20should
Xwork`20with`20SDL`20from`20the`20Freeware`20V2.0`20disk.
X
XIt`20generates`20a`20'main'`20file,`20of`20the`20same`20name`20as`20the`20inpu
Vt,`20and`20subsidiary`20files
Xcalled`20<name>-<recordname>.ifdl,`20provided`20the`20output`20file`20name`20i
Vs`20not`20specified
Xon`20the`20command`20line`20(if`20it`20is,`20you'll`20get`20lots`20of`20files
V`20of`20the`20same`20name).
X
XThe`20somewhat`20non-standard`20behaviour`20of`20creating`20lots`20of`20output
V`20files`20makes`20it
Xmore`20usable`20for`20us,`20since`20DECforms`20needs`20to`20be`20able`20to`20i
Vnclude`20structures
Xseparately.
X
XIt`20only`20translates`20item`20`26`20structure`20declarations`20-`20the`20res
Vt`20are`20left`20as
Xcomments.
X
XIt's`20quite`20new,`20so`20I'd`20appreciate`20any`20feedback`20on`20bugs`20and
V`20enhancements.
X
X23-MAY-1996`20V1.00-01
X`09assist`20with`20back-translation;
X`09standardise`20build`20to`20work`20elsewhere;
X`09insert`20group`20to`20avoid`20occurs`20on`20a`20data`20item
X
X`204-JUN-1996`20V1.01
X`09change`20leading`20'_'`20to`20X`20to`20satisfy`20Forms
X
X24-JUL-1996`20V1.01-01
X`09use`20nod$v_unsigned`20to`20correctly`20identify`20signed`20numbers
X`09Make`20signed`20quadword`20ADT
X`09Handle`20unnamed`20variant`20introducer
X`09Truncate`20illegally`20long`20filenames
X
XChris`20Sharman,`20CCA`20Stationery,`20Eastway,`20Fulwood,`20Preston,`20PR2`20
V9WS,`20ENGLAND.
Xchris@ccagroup.co.uk
X$`20ver`20=`20f$verify(1)
X$!
X$`20def/nolog`20source`20`5B`5D,disk$freewarev20:`5Bsdl.src`5D
X$`20message`20source:sdlmsg
X$`20sdl/language=pascal`20source:sdlnodef,sdltypdef,sdlshr
X$`20pascal/environment/noobject`20source:sdlnodef,sdltypdef,sdlshr
X$`20pascal`20sdlifdl
X$`20link/share`20alpha_sdlifdl/opt
X$`20deassign`20source
X$!`20'f$verify(ver)'
$ call unpack BUILD_SDLIFDL.COM;5 1634456464 "" 3 2 4 
$!
$ create 'f'
X`00`00`00`00`02`07SDLIFDL`08V1.01-0124-Jul-1996`2015:3124-Jul-1996`2015:31
X`00`01DEC`20Pascal`20V5.4-41
X`05`F1`0E`BC`00`06`00`00`00`07SDLIFDL
X`02`04`00`00P`EF`00`00`00`00A`00`00`00`01`00`00`00`04OUTFQ`03`00`00`00`EE`00
V`00`00`00A`00`00`00`01`00`00`00`05OUTF1Q`02`00`00`00`FA`04`00rootQ`04`00`00`00
V`F7`07`00commentQ`01`00`00`00`F9`05`00constQ`03`00`00`00`F9`05`00entryQ`03`00
V`00`00`FA`04`00itemQ`04`00`00`00`F8`06`00moduleQ`02`00`00`00`FA`04`00parmQ`04
V`00`00`00`F9`05`00dummyQ`03`00`00`00`FB`03`00objQ`05`00`00`00`FA`04`00headQ`04
V`00`00`00`FA`04`00typeQ`04`00`00`00`FB`03`00endQ`05`00`00`00`FA`04`00condQ`04
V`00`00`00`F7`07`00literalQ`01`00`00`00`FA`04`00symbQ`06`00`00`00`F7`20Created
V`20Q`03`00`00`00`E3`20by`20OpenVMS`20SDL`20IFDL`20V1.01-01Q`03`00`00`00`F7`20S
Vource:`20Q`03`00`00`00`FB.IFDLQ`03`00`00`00`E7`7B###Module/0/SDL_Include:Q`03
V`00`00`00`CA###`7D*Unk(`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`20(*unknown*)`20(Q`02`00`00`00`F2`20Va
Vrying`20`7B`20`7D`20`7DQ`02`00`00`00`F3`20Occurs`20*Var*Q`03`00`00`00`F2`20Occ
Vurs`20`20Base`20Q`02`00`00`00`E1`20Occurs`20*UnkIFDLdeclaredforwardQ`01`00`00
V`00`F9see`20`7B##
X`02`E6#End_Module/0/SDL_Include:Q`03`00`00`00`BA###`7D`04@`00`00`00`00`00`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00FD`00
V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00
V`00`00`00`7B`20Q`02`00`00`00`FA`20node`20Q`02`00`00`00`CE`7B`20*Unsupported*
V`20`20node`20`20(`20`7D`7B`20Group`20`7B`20End`20Group`20`7B`20`20`7DQ`02`00
V`00`00`F2`7B`20Union`20Group`20Q`02`00`00`00`F7subfield`20Q`03`00`00`00`E5End
V`20Group`20`7B`20`20`7D`01`01`FC`07`9E`CE`C8`FE`5E`D4`AD`F8`9E`00`0BPAS$HANDLE
VR`1C`80m`D0`AC`0CP`B1`60`8F`FF`00`1B`00`00`09`B0`60`CD`C8`FE(`60`A0`02`CD`CA
V`FE`D1l`04`1F`00`7D`BC`10`AD`F0<`AD`F0P`C0`02P`C2P`5E`D0`AD`F4P`D0`5EQ`B0`60a(
V`81`A0`02a`D0`5E`AD`F4`D1l`05`1F`00`7D`BC`14`AD`E8<`AD`E8P`C0`02P`C2P`5E`D0`AD
V`ECP`D0`5EQ`B0`60a(`81`A0`02a`D0`5E`AD`EC`D1l`06`1F`00`90`BC`18V`D0`5EW`DD`00
V`DD`00`D0`8F`11`00`0E`01`AD`E0`F4`9E`AD`CC`AD`E4`9F`AD`E0`DD`00`FB`04`00`0ASYS
V$ASCTIM`1C`D9`D1l`06`1F`00`D1`06l`1B`00`00`0F`E9V`00`D0`AC`04R`D1`04l`1B`00`00
V`0F`D0`AD`F4P`9F`A0`02`DD`60`DDR`FB`03`00`10PAS$WRITE_STRING`1C`FC`DDR`FB`01
V`00`0CPAS$WRITELN2`1C`ED`D1`04l`1B`00`00`0F`B1`00`AD`F0`1B`00`00`09`D0`AD`F4P
V
X`02`80`B4`60(`80n`60`B4`CD`C8`FE(`00n`CD`CA`FE`11`00`01`D1l`05`1F`00`D1`05l`1B
V`00`00`0F`D0`AD`ECP-`60`A0`02`20`00n`13`00`D1`05l`1B`00`00`0F`D0`AD`ECX<hY`C1
V`01YZ`D1Z`8F`FF`FF`00`00`1B`00`00`04`C3ZW`5E`D0`5EW(`01`8F`20n(Y`A8`02c`B1Z`8F
V`FF`00`1B`00`00`09`B0Z`CD`C8`FE(Zg`CD`CA`FE`11`00`01`01`01`B4`CD`C8`FE(`00n`CD
V`CA`FE`D0`AC`04`EBW`D1`04l`1B`00`00`0F`D0`AD`F4P`9F`A0`02`DD`60`DDW`FB`03`00
V`10PAS$WRITE_STRING`1C`F4`9F`EF`BF`FC`FF`FF`DD`09`DDW`FB`03`00`10PAS$WRITE_STR
VING`1C`F7`9F`AD`CC`DD`11`DDW`FB`03`00`10PAS$WRITE_STRING`1C`F4`9F`EF`AC`FC`FF
V`FF`DD`10`DDW`FB`03`00`10PAS$WRITE_STRING`1C`F2`D0`AC`08P`9F`C0`20`02`DD`0A`DD
VW`FB`03`00`10PAS$WRITE_STRING`1C`F4`9F`EF`98`FC`FF`FF`DD`0D`DDW`FB`03`00`10PAS
V$WRITE_STRING`1C`F4`9F`CD`CA`FE`DD`CD`C8`FE`DDW`FB`03`00`10PAS$WRITE_STRING`1C
V`FC`DDW`FB`01`00`0CPAS$WRITELN2`1C`E8`D0`AC`04W`D1`04l`1B`00`00`0F`D0`AD`F4P
V`9F`A0`02`DD`60`DDW`FB`03`00`10PAS$WRITE_STRING`1C`F4`9F`EF`60`FC`FF`FF`DD`09
V`DDW`FB`03`00`10PAS$WRITE_STRING`1C`EE`D0`AC`08P`9E`C0X`01P`9F`A0`02`DD`60`DDW
V`FB`03`00`10PAS$WRITE_STRING`1C`F5`9F`CD`CA`FE`DD`CD`C8`FE`DDW`FB
X`02`FF`03`00`10PAS$WRITE_STRING`1C`FC`DDW`FB`01`00`0CPAS$WRITELN2`1C`D9`D1l`06
V`1F`00`D1`06l`1B`00`00`0F`E9V`00`D0`AC`04V`D1`05l`1B`00`00`0F`D0`AD`ECP`9F`A0
V`02`DD`60`DDV`FB`03`00`10PAS$WRITE_STRING`1C`FC`DDV`FB`01`00`0CPAS$WRITELN2`1C
V`F8`D0`AC`04`5C`DD`5C`FB`01`00`0CPAS$WRITELN2`1C`F3`04`01`FC`0F`9E`CE`A4`FE`5E
V`D4`AD`F8`9E`00`0BPAS$HANDLER`1C`DEm`D0`AC`0CP`B1`60`8F`FF`00`1B`00`00`09`B0
V`60`CD`A4`FE(`60`A0`02`CD`A6`FE`90`BC`10V`D0`5EW<`05`01,`01`1C`F1P<`CD`A4`FEQ
V`C0PQ`D1Q'`15`00<`05`01,`01`1C`F9Q`9E`CD`A5`FEX<`05`01,`01`1C`C7P`C3P'P`0AP`01
V`8F`FF`00`00`00`01`00Y`95`0C`D7Y`D6Y`D1Y`8F`FF`FF`00`00`1B`00`00`02`C1QYZ`D1Z
V`8F`FF`FF`00`00`1B`00`00`04`C3ZW`5E`D0`5E`5B(Q`05`01.`01`1C`E4n(Y`A8`01c`B1Z'
V`1B`00`00`09`B0Z`AD`CC(Zk`AD`CE`11`00`01`01`01<`05`01,`01`1C`E2P<`CD`A4`FE`5B
V`C1P`5BZ`D1Z`8F`FF`FF`00`00`1B`00`00`04`C3ZW`5E`D0`5EX(P`05`01.`01`1C`B1n(`5B
V`CD`A6`FEc`B1Z'`1B`00`00`09`B0Z`AD`CC(Zh`AD`CE<`AD`CCP`C1P`05X`D1X`8F`FF`FF`00
V`00`1B`00`00`04`C3XW`5E`D0`5EZ(P`AD`CEn(`05`EF`D6`FA`FF`FFc`D0X`AD`C4`D0Z`AD
V`C8`D0`02`AD`C0`D0`04`AD`BC`D0`04`01(`1C`FD`AD`B4`9E`04`01*`1C`EE`AD`B8`D0`01
V`AD`B0`D0`AC`04`AD`AC`9A`08`AD`A8`FA`AD`A8`00`09PAS$OPEN2`1C`FC`DD`AC`04`FB
X`02`FF`01`00`0CPAS$REWRITE2`1C`E2`D0`AC`08P`E1`05`60`031`00`00`E9V`00`D0`AC`04
VV`9F`EF`86`FA`FF`FF`DD`19`DDV`FB`03`00`10PAS$WRITE_STRING`1C`F6`9F`AD`CE`DD`AD
V`CC`DDV`FB`03`00`10PAS$WRITE_STRING`1C`F4`9F`EF`82`FA`FF`FF`DD`04`DDV`FB`03`00
V`10PAS$WRITE_STRING`1C`FC`DDV`FB`01`00`0CPAS$WRITELN2`1C`B4`9E`8F`01`AD`F4`C3
V`01W`5E`B0`01`7E(n`8F`7D`AE`02`B0n`AD`C4`B0`8F%`0B`AD`C6`D0`5E`AD`C8`9E`AD`C4
V`AD`F0`D0`5EP`C3`01P`5E`B0`01`7E(n`8F`7B`AE`02`B0n`AD`D4`B0`8F%`0B`AD`D6`D0`5E
V`AD`D8`9E`AD`D4`AD`EC`D0`5EP`9E`05`01,`01`1C`DC`AD`E8`D0`AC`08`AD`E4`D0`AC`04
V`AD`E0`9A`06`AD`DC`FA`AD`DC`CFc`FB`04`01`01`FC`07`9E`CE`F4`FE`5E`D4`AD`F8`9E
V`00`0BPAS$HANDLER`1C`82m`D0`BC`08P`D0`5EV`D0PW`E1"`A78`002`A7`1EX`11`00`01`012
V`A7`1EP`CFP`02`0C`00`00`1A`00`1A`00`1A`00`1A`00`1A`00`1A`00`1A`00`00`00`1A`00
V`00`00`1A`00`00`00`11`00`D0`20X`11`00`D0!X`11`00`D0"X`11`00`D0#X`11`002`A7`1EX
V`D5X`15`00`D1X$`15`00`9E`A7hP-`60`A0`02`20`00n`12`00`B4`CD`F4`FE(`00n`CD`F6`FE
V`11`00`01`01`B4`CD`F4`FE`9F`EF`EEv`F9`FF`FF`DD`04`9F`CD`F4`FE`DD`8F`FF`00`00
V`00`FB`04`00`11PAS$WRITEV_STRING`1C`F0`DD`01`DDX`9F`CD`F4`FE`DD`8F`FF`00`00`00
V`FB`04`00`12PAS$WRITEV_INTEGER`1C`F0`DD`01`DD*`9F`CD`F4`FE`DD`8F`FF`00`00`00
V`FB`04
X`02`00`0FPAS$WRITEV_CHAR`1C`F21`00`00`01`01`0AX`01$"`00P`9E@`05`01`0E`02`1C`D5
VP`D1X`8F`00`01`00`00`1E`00`E0X`EF`19`F9`FF`FF`00`B0`60`CD`F4`FE(`60`A0`02`CD
V`F6`FE1`00`00`01`0AX`01$"`00P`9E@`05`01`0E`02`1C`ADP`E0`00`A7=`00`D1`A7`14`8F
V`19`FC`FF`FF`12`00<`60Q`C1Q`0CY`D1Y`8F`FF`FF`00`00`1B`00`00`04`C3YV`5E`D0`5EZ(
VQ`A0`02n(`0C`EF`E5`F8`FF`FFc`B0Y`CD`F4`FE(Yj`CD`F6`FE`11`00`01`01`01`B4`CD`F4
V`FE`0AX`01$"`00X`9EH`05`01`0E`02`1C`EEX`9F`A8`02`DDh`9F`CD`F4`FE`DD`8F`FF`00
V`00`00`FB`04`00`11PAS$WRITEV_STRING`1C`EC`9F`EF`B1`F8`FF`FF`DD`02`9F`CD`F4`FE
V`DD`8F`FF`00`00`00`FB`04`00`11PAS$WRITEV_STRING`1C`EF`DD`01`DD`A7`14`9F`CD`F4
V`FE`DD`8F`FF`00`00`00`FB`04`00`12PAS$WRITEV_INTEGER`1C`F0`DD`01`DD)`9F`CD`F4
V`FE`DD`8F`FF`00`00`00`FB`04`00`0FPAS$WRITEV_CHAR`1C`86`E1%`A78`00<`CD`F4`FEW
V`C1W`08X`D1X`8F`FF`FF`00`00`1B`00`00`04`C3XV`5E`D0`5EV(W`CD`F6`FEn(`08`EFJ`F8
V`FF`FFc`B1X`8F`FF`00`1B`00`00`09`B0X`CD`F4`FE(Xf`CD`F6`FE`D0`AC`04P`B0`CD`F4
V`FE`60(`80`CD`F6`FE`60`04`01`1C`00`D0`BC`0CR`90`BC`10S`E1`09`BC`08`00`D5`A2`10
V`13`00`E8S`00`D0`AC`04P`9F`EF`0B`F8`FF`FF`DD`02`DDP`FB`03`00`10PAS$WRITE_STRIN
VG`1C`EF`D0`AC`04T`D0`A2`10R`9F`A2`02`DDb`DDT`FB`03`00`10PAS$WRITE_STRING`1C
X`02`F4`9F`EF`E6`F7`FF`FF`DD`02`DDT`FB`03`00`10PAS$WRITE_STRING`1C`E8`11`00`01
V`01`01`E9S`00`D0`AC`04S`9F`EF`CB`F7`FF`FF`DD`02`DDS`FB`03`00`10PAS$WRITE_STRIN
VG`1C`F8`D0`AC`04`5C`DD`5C`FB`01`00`0CPAS$WRITELN2`1C`A5`04`01`01`7C`00`9E`CE
V`FC`FE`5E`D0`BC`08V`D0`5EP,`01`8F`00`00`8F`01`01`CD`FC`FE`E12`A68`00`B0`0D`CD
V`FC`FE(`0D`EF`8A`F7`FF`FF`CD`FE`FE1`00`00`D1`A6(`A6,`12`031`00`00`D1`A6,`01`13
V`00`B4`CD`FC`FE`9F`EFz`F7`FF`FF`DD`08`9F`CD`FC`FE`DD`8F`FF`00`00`00`FB`04`00
V`11PAS$WRITEV_STRING`1C`E9`DD`01`C3`A6,`A6(P`9F`A0`01`9F`CD`FC`FE`DD`8F`FF`00
V`00`00`FB`04`00`12PAS$WRITEV_INTEGER`1C`EC`9F`EFM`F7`FF`FF`DD`06`9F`CD`FC`FE
V`DD`8F`FF`00`00`00`FB`04`00`11PAS$WRITEV_STRING`1C`EF`DD`01`DD`A6,`9F`CD`FC`FE
V`DD`8F`FF`00`00`00`FB`04`00`12PAS$WRITEV_INTEGER`1C`E4`11`00`01`01`B4`CD`FC`FE
V`9F`EF`1E`F7`FF`FF`DD`08`9F`CD`FC`FE`DD`8F`FF`00`00`00`FB`04`00`11PAS$WRITEV_S
VTRING`1C`EF`DD`01`DD`A6(`9F`CD`FC`FE`DD`8F`FF`00`00`00`FB`04`00`12PAS$WRITEV_I
VNTEGER`1C`E6`D0`AC`04P`B0`CD`FC`FE`60(`80`CD`FE`FE`60`04`01`FC`07`C2`10`5E`D4
V`AD`F8`9E`00`0BPAS$HANDLER`1C`DFm`90`BC`08V`D0`5ER`95V`15`00`91V`0F`15`00`90V
V`AD`F4`9F`AD`F4`DD`08`DD`04`9F`AD`F0`FB`04`00`07PAS$DEC`1C
X`02`80`D0`08W`D1W`8F`FF`FF`00`00`1B`00`00`04`C3WR`5E`D0`5EX(`04`EF`9C`F6`FF`FF
Vn(`04`AD`F0c`C1W`01Y`D1Y`8F`FF`FF`00`00`1B`00`00`04`C3YX`5E`D0`5EZ(Whn(`01`8F*
Vc`B1Y`8F`FF`00`1B`00`00`09`D0`AC`04P`B0Y`60(`80j`60`11`00`01`98VV`0AV`01`0F`0A
V`00V`9EF`EF`E1`F4`FF`FFV`D0`AC`04P`B0f`60(`80`A6`02`60`04`01`7C`00`C2`08`5E`D0
V`BC`08`A5T`D0`BC`0CU`D0`BC`10V`11`00`01`D0fV`D5V`13`00`91`A6`1C`09`12`00`9E`A6
VhP-`60`A0`02`20`04`EF`14`F6`FF`FF`12`E2`D5V`13`00`91`A6`1C`09`12`00`D0T`AD`FC
V`9F`AD`FC`D0U`AD`F8`9F`AD`F8`9Fe`DD`AC`04`FB`04`CF`00`00`04`01`01`01`7C`00`9E
V`CE`DC`FD`5E`D4`AD`F8`9E`00`0BPAS$HANDLER`1C`B7m`D0`AC`04P`B1`60`8F`FF`00`1B
V`00`00`09`B0`60`CD`E0`FE(`60`A0`02`CD`E2`FE`D0`AC`08P`B1`60`8F`FF`00`1B`00`00
V`09`B0`60`CD`DC`FD(`60`A0`02`CD`DE`FD`D0`5EV`D0`AC`0CP`B1`A0`04`01`12`00`B1`A0
V`06`01`13`00`DD`00`9F`00`0DSDL$_REVCHECK`1C`FE`FB`02`00`08LIB$STOP`1C`FF`9E`04
V`01(`1C`F3P`B0`CD`E0`FE`60(`80`CD`E2`FE`60`9E`05`01,`01`1C`D8P`B0`CD`DC`FD`60(
V`80`CD`DE`FD`60`9E`8F`00`AD`F4`C3`00V`5E(`00nn`B4`7E`D0`5E`AD`F0`D0`5EP`D0`AC
V`0C`AD`EC`9E`04`01`00`1C`DC`AD`E8`9A`04`AD`E4`FA`AD`E4`CF`B2`F8`D0`AC`0CP`DF
V`8F`00`00`00`00`9F`A0`08`9F`B0`08`DD`AC`0C`FB`04`AF`00`9F`04`01`00`1C`FE`FB`01
V`00`0APAS$CLOSE2`1C`F4`04`01`FC`0F`9E`AE`C0`5E`D4`AD`F8`9E`00`0BPAS$HANDLER`1C
V`F3m`D0`5C`AD`F4`D0`AD`F4`5C`D0`BC`08`AD
+-+-+-+-+-+-+-+-  END  OF PART 1 +-+-+-+-+-+-+-+-
================== RFC 822 Headers ==================
Return-Path: chris@ccastat.demon.co.uk
Received: by galaxy.zko.dec.com (UCX V4.0-10B, OpenVMS V6.2 VAX);
	Wed, 24 Jul 1996 14:20:04 -0400
Received: from relay-2.mail.demon.net by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV)
	id OAA27814; Wed, 24 Jul 1996 14:07:21 -0400 (EDT)
Received: from post.demon.co.uk ([158.152.1.72]) by relay-2.mail.demon.net
           id ag11949; 24 Jul 96 19:03 +0100
Received: from ccastat.demon.co.uk ([158.152.158.126]) by relay-3.mail.demon.net
          id aa06707; 24 Jul 96 16:08 +0100
Received: by ccastat.demon.co.uk (MX V4.1 VAX) id 1; Wed, 24 Jul 1996 16:06:49
          GMT
Sender: chris@ccastat.demon.co.uk
Date: Wed, 24 Jul 1996 15:36:12 GMT
From: chris@ccagroup.co.uk
Reply-To: chris@ccastat.demon.co.uk
To: everhart@star.zko.dec.com, ARNE@ko.hhs.dk, canellis@apache.brooks.af.mil,
        SCANDORA@cmt.anl.gov
Message-ID: <009A5CFE.4EE4B120.1@ccastat.demon.co.uk>
Subject: SDLIFDL.1-OF-4