home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / X4XVI / R2XVI.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  593 b   |  52 lines
  1.  
  2.     WHen "User ID:" jump USER
  3. LABEL WAKEUP
  4.     IF -$ end
  5.     WAit Delay 10
  6.     reply |
  7.     jump WAKEUP
  8.  
  9. ;send UserID and Password:
  10. LABEL USER
  11.     WHen " in. " jump DONE
  12. LABEL LOGIN
  13.     IF -$ end
  14.     WAit Delay 10
  15.     REply @C8
  16.     REply ";"
  17.     REply @C9|
  18.     jump LOGIN
  19.  
  20. ;allow for possible callback:
  21. LABEL DONE
  22.     WHen "Disconnecting" JUmp CALL_BACK
  23.     CLear
  24.     WAit Delay 30
  25.     end
  26.  
  27. LABEL CALL_BACK
  28.     WHen "erminal type" WAit DElay 20 : REply 13| : end
  29.  
  30.     WAit DElay 20
  31.     GO Local
  32.     WAit DElay 10
  33.     REply ATQ1S0=1|
  34.     CLear
  35.     MEssage
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.             Waiting for Remote2 callback ...
  48. .
  49.  
  50.     end
  51.  
  52.