home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / X4XVI / R2LANXVI.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  894 b   |  69 lines
  1. ;
  2. ;    R2LANXVI.XTS: Calls R2LAN HOST through a communications server;
  3. ;              waits for return call if Call-Back is enabled.
  4.  
  5.     WHen "NAME" jump PROCEED
  6. LABEL GET_NAME
  7.     WAit DElay 80
  8.      IF -$ end
  9.     REply |
  10.     jump GET_NAME
  11.  
  12. LABEL PROCEED
  13.     WHen "PROCEED" jump R2LAN
  14. LABEL DEST_NAME
  15.     IF -$ end
  16.     WAit DElay 10
  17.     REply @C7|
  18.     jump DEST_NAME
  19.  
  20. LABEL R2LAN
  21.     WHen "User ID:" jump USER
  22. LABEL WAKEUP
  23.     IF -$ end
  24.     WAit Delay 10
  25.     reply |
  26.     jump WAKEUP
  27.  
  28. LABEL USER
  29.     WHen " in. " jump DONE
  30. LABEL LOGIN
  31.     IF -$ end
  32.     WAit Delay 10
  33.     REply @C8
  34.     REply ";"
  35.     REply @C9|
  36.     jump LOGIN
  37.  
  38. LABEL DONE
  39.     WHen "Disconnecting" JUmp CALL_BACK
  40.     CLear
  41.     WAit Delay 30
  42.     end
  43.  
  44. LABEL CALL_BACK
  45.     WHen "erminal type" WAit DElay 40 : REply 13| : end
  46.  
  47.     WAit DElay 20
  48.     GO Local
  49.     WAit DElay 10
  50.     REply ATQ1S0=1|
  51.     CLear
  52.     MEssage
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.             Waiting for Remote2 callback ...
  65. .
  66.  
  67.     end
  68.  
  69.