home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 291.lha / Scripit_v1.20 / Demos / DL < prev    next >
Encoding:
Text File  |  1989-10-09  |  1.5 KB  |  51 lines
  1. ;; DL
  2. ;;
  3. ;; A script that uses Access! to scan the DLs in any forum on Compuserve.
  4. ;;
  5. ;; Format:  scripit dl keyword [age] [start_dl] [end_dl]
  6. ;;
  7. ;; e.g.     scripit dl scripit*
  8. ;; or       scripit dl scripit* 15 10 14
  9. ;;
  10. ;; Note:  all argument are optional except for the keyword.
  11. ;;
  12. ;; To use this script, switch to a CLI, then issue the command above.
  13. ;;
  14. ;; A Scripit script by Khalid Aldoseri.
  15. ;; Needs Scripit version 1.20 or above.
  16.  
  17. begin
  18.  
  19. select wait 50 ABORT            ;Set max wait time to 1 second.
  20.  
  21. select Access                   ;Get at Access's screen
  22. screen front                    ;Bring it to the front
  23. window activate                 ;Activate it            
  24.  
  25. #dl    = 1                      ;Default start dl
  26. #maxdl = 16                     ;Default end dl
  27.  
  28. if #argcount >= 3               ;Did user supply a start dl #
  29. #dl = #arg[3]                   ;Yes, store it in #dl
  30. endif
  31.  
  32. if #argcount >= 4               ;Did user supply an end dl #
  33. #maxdl = #arg[4]                ;Yes, store it in #maxdl
  34. endif
  35.  
  36. while #dl <= #maxdl             ;Loop from #dl to #maxdl
  37.  
  38. key "dl" #dl "\ns key:" $arg[1] ;Send commands to Compuserve
  39. ;                               ;to change dl and scan it
  40. if #arg[2] > 0                  ;Did user supply the file age?
  41. key " age:" #arg[2]             ;Yes, send the age:xx keyword
  42. endif
  43.  
  44. key "\n"                        ;send a return
  45.  
  46. #dl = #dl + 1                   ;increment the dl number
  47.  
  48. endwhile                        ;end loop
  49.  
  50. end
  51.