home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ADProScripts.lha / Locate-ADPro.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.3 KB  |  63 lines
  1. /*
  2. ** Locate-ADPro.adpro
  3. **
  4. ** $VER: Locate-ADPro.adpro 1.1.0 (26.10.93)
  5. **
  6. ** This ARexx program will attempt to find a currently running ADPro.
  7. ** If one is not found, then it will attempt to start up ADPro.
  8. **
  9. ** The main guts of this program are imbedded in a sub-routine to make
  10. ** it easier to glue into your own code.
  11. **
  12. ** This script requires ADPro v2.5.0 (or higher).
  13. **
  14. ** Copyright © 1991-1993 ASDG, Incorporated
  15. ** All Rights Reserved
  16. */
  17.  
  18.  
  19. OPTIONS RESULTS
  20.  
  21. NL = '0A'X
  22. SQ = '27'X
  23. DQ = '22'X
  24. TRUE  = 1
  25. FALSE = 0
  26.  
  27. CALL Locate_ADPro
  28.  
  29. IF (RESULT = 1) THEN
  30.     SAY "ADPro has been found"
  31. ELSE
  32.     SAY "Could not locate or start ADPro"
  33.  
  34. EXIT 0
  35.  
  36.  
  37. Locate_ADPro:
  38.     Max_Seconds_To_Load = 60
  39.     Flag = 0
  40.     LibName = 'rexxsupport.library'
  41.  
  42.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  43.         ADDLIB( LibName, 0, -30, 0 )
  44.     IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
  45.         RETURN 0
  46.  
  47.     IF (STATEF( 'ADPRO:' ) = "") THEN
  48.         RETURN 0
  49.  
  50.     TIME( 'R' )
  51.     DO WHILE (TIME( 'E' ) < Max_Seconds_To_Load) & (POS( 'ADPro', SHOW( 'Ports' ) ) = 0)
  52.         IF (Flag = 0) THEN DO
  53.             /* Set whatever command line arguments you want. */
  54.             ADDRESS COMMAND 'Run < NIL: > NIL: ADPRO:ADPro BEHIND MAXMEM=5000000'
  55.             Flag = 1
  56.         END
  57.         ADDRESS COMMAND 'Wait 1'
  58.     END
  59.     IF (POS( 'ADPro', SHOW( 'Ports' ) ) = 0) THEN
  60.         RETURN 0
  61.     ELSE
  62.         RETURN 1
  63.