home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / misc / sci / gravisimu / arexx / print_all_objects.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-07-02  |  432 b   |  33 lines
  1. /* print_all_objects.rexx
  2.  *
  3.  * Autor: Thies Wellpott
  4.  * Version: 1.1 (2.7.1994)
  5.  *
  6.  * Gibt die Daten aller Objekte aus
  7.  */
  8.  
  9. IF ~Show("P", "GRAVISIMU.1") THEN
  10. DO
  11.    Say "GraviSimu ist nicht gestartet!"
  12.    Exit
  13. END /* IF */
  14.  
  15. Address "GRAVISIMU.1"
  16. Options Results
  17.  
  18. 'GetNumObjects'
  19. anz_obj = Result
  20. IF anz_obj = 0 THEN
  21. DO
  22.    Say "Es existieren keine Objekte!"
  23.    Exit
  24. END
  25.  
  26. DO i=0 TO anz_obj-1
  27.    'GetObject' i
  28.    Say Result
  29. END
  30.  
  31. Exit
  32.  
  33.