home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c128 / utils / upload.arc / UPLOAD < prev   
Encoding:
Text File  |  2019-04-13  |  830 b   |  41 lines
  1. ; ╞╔╠┼ LIST IN BUFFER 1, ─╒╨╠╔├┴╘┼╙ IN BUFFER 2.                     02-20-92
  2.    L                                   ;SHOW ACTIVITY       UPDATE   02-21-92
  3.    P ""
  4.    P "┬Y ┴LEX ┬URGER - ├ONFERENCE ├HAIRMAN OF ├ANADA ╥EMOTE ╙YSTEMS"
  5.    P "                 (416) 798-4713"
  6.    P ""
  7.    P "═AKE SURE PROTOCOL IS SET TO ╪═╧─┼═1╦ AND ┬┼╠╠ IS ╧╞╞!"
  8.    P ""
  9.    ╜N"1"
  10.    ┴R
  11.    W "├OMMAND?"
  12.    T "CHAT U"
  13.    W "├OMMAND?"
  14.    T "T O"
  15. 1  W "├OMMAND?"
  16.    $ = ┬
  17.    IF $ =  "╙╘╧╨":G 8
  18.    T "U ╢"
  19. 2  T $
  20.    IF "IT (┼NTER)=NO?":G 5             ;DUPLICATE FILE?
  21.    IF "? ("
  22.    EI
  23. 3  $ = ┬:IF $ =  "END": G 4
  24.    T $:G 3
  25. 4  $ = ┬
  26.    T ""
  27.    W "┴BORTS ╘RANSFER"
  28.    ╜U$
  29.    ╜I"\003"
  30.    G 1
  31.  
  32. 5  T ""
  33.    W "=NONE?"
  34. 6  $ = ┬: IF $ = "END": G 7
  35.    G 6
  36. 7  $ = ┬:$ = ┬
  37.    ╜2:╜G:╜1
  38.    IF $ = "╙╘╧╨":G 8
  39.    G 2
  40. 8  P"...├╧═╨╠┼╘┼":╜C"\145\145\145\032\032\032\003"
  41.