home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / procomm / pcpdial.arc / DISC.CMD < prev    next >
OS/2 REXX Batch file  |  1988-01-18  |  419b  |  39 lines
  1. SET PARI EVEN
  2. SET DATA 7
  3. LABEL1:
  4. PAUS 1
  5. TRAN"+++"
  6. WAIT"OK"3
  7. IF NOT WAIT 
  8. GOTO LABEL1
  9. ENDI 
  10. TRAN"ATZ!"
  11. WAIT"OK"
  12. TRAN"ATH0!"
  13. WAIT"OK"
  14. PAUS 1
  15. CLEA 
  16. LOCA 11,14
  17. MESS"BBS has been disconnected.  Start VERSA now <Y/N>?"
  18. LABEL2:
  19. LOCA 11,65
  20. GET S6 1
  21. SWIT S6
  22. CASE"Y"
  23. EXEC"VERSA.CMD"
  24. ENDC 
  25. CASE"N"
  26. CLEA 
  27. EXIT
  28. ENDC 
  29. CASE"E"
  30. CLEA 
  31. EXIT
  32. ENDC 
  33. DEFA 
  34. LOCA 11,65
  35. MESS"^G "
  36. GOTO LABEL2
  37. ENDC 
  38. ENDS 
  39.