home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.rpar < prev    next >
Text File  |  2020-01-01  |  936b  |  32 lines
  1. ;16 jly 85 esj converted
  2. ;;;;;;;;;;;;;           RPAR          ;;;;;;;;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O RPAR.(XDATA)
  5.  
  6. ;     store the other KERMIT's file transfer requirement away
  7.  
  8. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  9. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  10.  
  11.       I'R XDATA(*)
  12.       I'R DMY(5)
  13.  
  14.       W'R (XDATA(0).EQ.0)               ;if the other KERMIT did not s
  15.          SPSIZ=PAKSIZ                     ;any parameters, default them
  16.                                           ;our setting; otherwise use wh
  17.                                           ;the other KERMITs sends
  18.       O'E
  19.          DMY(0) = SPSIZ=UNCHAR.(XDATA(0))
  20.       E'L
  21.       W'R (XDATA(2).NE.0), DMY(1) = PAD=UNCHAR.(XDATA(2))
  22.  
  23.       W'R (XDATA(3).NE.0), DMY(2) = PADCHAR=CTL.(XDATA(3))
  24.  
  25.       W'R (XDATA(4).NE.0), DMY(3) = EOL=UNCHAR.(XDATA(4))
  26.  
  27.       W'R (XDATA(5).NE.0), DMY(4) = QUOTE=XDATA(5)
  28.  
  29. #     E'E HEXDMPP.(5,11,5,DMY)
  30.       F'N
  31.       E'N
  32.