home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.rpar
< prev
next >
Wrap
Text File
|
1987-02-19
|
936b
|
32 lines
;16 jly 85 esj converted
;;;;;;;;;;;;; RPAR ;;;;;;;;;;;;;;;;;;;;;
E'F A:S(NWLS)
E'O RPAR.(XDATA)
; store the other KERMIT's file transfer requirement away
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
I'R XDATA(*)
I'R DMY(5)
W'R (XDATA(0).EQ.0) ;if the other KERMIT did not s
SPSIZ=PAKSIZ ;any parameters, default them
;our setting; otherwise use wh
;the other KERMITs sends
O'E
DMY(0) = SPSIZ=UNCHAR.(XDATA(0))
E'L
W'R (XDATA(2).NE.0), DMY(1) = PAD=UNCHAR.(XDATA(2))
W'R (XDATA(3).NE.0), DMY(2) = PADCHAR=CTL.(XDATA(3))
W'R (XDATA(4).NE.0), DMY(3) = EOL=UNCHAR.(XDATA(4))
W'R (XDATA(5).NE.0), DMY(4) = QUOTE=XDATA(5)
# E'E HEXDMPP.(5,11,5,DMY)
F'N
E'N