home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / telecomm / storm100 / olt.bas < prev    next >
BASIC Source File  |  1993-11-03  |  812b  |  28 lines
  1. ' Script to go to Online Today and determine how many articles are
  2. ' available to read and only read those articles.
  3. TERM OFF 
  4. CAPTURE OFF 
  5. ' 
  6. SEND "go olt-90"
  7. WAIT 30,"OLT-90":' appears at top of screen
  8. IF WAIT(0) = 0 THEN Fail:' Give up
  9. WAIT 30,"!":' actual prompt
  10. IF WAIT(0) = 0 THEN Fail:' Give up
  11. FAST ON 
  12. FOR x = CSRLIN - 1 TO 1 STEP -1:' search for string on screen
  13.     a$ = LTRIM$( SCREEN$(x)):' strip leading spaces
  14. IF INSTR(a$,"Late News") THEN n = VAL(a$):GOTO Doit:' pick up menu item #
  15. NEXT x
  16. GOTO Fail
  17. Doit:IF n <= 2 THEN SEND "Scroll all" ELSE SEND "Scroll 1-";n - 1
  18. CAPTURE ON 
  19. WAIT 180,"!"
  20. IF WAIT(0) = 0 THEN Fail
  21. SEND :' send CR
  22. WAIT 100,"OLT-90":' in case a '!' was imbedded in an article
  23. CAPTURE OFF 
  24. FAST OFF 
  25. END 
  26. ' 
  27. Fail:PRINT "Script failed":CAPTURE OFF :END 
  28.