home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / WOS2.PRM < prev   
Text File  |  1995-12-31  |  600b  |  41 lines
  1.  
  2. LOGFILE = wos2.log
  3.  
  4. TRANSMIT
  5. ;
  6.     ax = 0
  7.     send    "go os2.cc\r"
  8.     wait    30,"\nö╘ìå âRü[âiü[û╝"
  9.     if cc == 1 ax = line + 1
  10.     wait    30,"\nö╘ìå> "
  11.     if cc != 1 goto end
  12.     if ax == 0 goto end
  13.     bx = line - 2;
  14. ;
  15.     cx = 0
  16.     while ax < bx do
  17.         getline    a$,ax
  18.         convert mx,a${50:4}
  19.         cx += mx
  20.         ax += 1
  21.     done
  22. ;
  23.     if cx > 0 then
  24.         send    "23\r"
  25.         wait    60,"21üyăò┼üz 22.æOò┼ 23.êΩèçûóô╟ò\Ī"
  26.         wait    5,"ö╘ìå> "
  27.     endif
  28. ;
  29. end:
  30.     if StermRecvMail == 1 then
  31.         send    "go mail\r"
  32.     else
  33.         send    "bye\r"
  34.         wait    10,"é╜é╛éóé▄é╠Ä₧ìÅ:"
  35.         wait    3,"\n*"
  36.         if cc == 1 then
  37.             send    "BYE\r"
  38.         endif
  39.     endif
  40. ;
  41.