home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / comm / st.lzh / MODE.SCL < prev    next >
Text File  |  1986-05-05  |  512b  |  31 lines
  1.     if "$1" == "" error 1
  2.     len z "$1"
  3.     left a "$1" 5
  4.     case a l
  5.     if "$a" == "com1:" let p = 1|goto m1
  6.     if "$a" == "com2:" let p = 2|goto m1
  7.     error 2
  8. :m1
  9.     com %p
  10.     mid a "$1" 6 2
  11.     baud $a
  12.  
  13.     instr b "$1" ","
  14.     let b = %b+1
  15.     mid p "$1" %b 1
  16.     case p u
  17.  
  18.     mid a "$1" %b
  19.     instr b "$a" ","
  20.     let b = %b+1
  21.     mid d "$a" %b 1
  22.     wordlen $d
  23.     parity $p
  24.  
  25.     mid d "$a" %b
  26.     instr b "$d" ","
  27.     let b = %b+1
  28.     mid a "$d" %b 1
  29.     stopbit $a
  30.     end
  31.