home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / ARexx / ADM-ARexxMakros.lha / Sonstiges / Kopiere_ADM.2_nach_ADM.1.adm < prev    next >
Encoding:
Text File  |  1995-06-04  |  389 b   |  28 lines
  1. /* $VER: Kopiere_ADM.2_nach_ADM.1.adm 1.0 (17.7.94)
  2.  
  3.    Übernimmt Adressen aus ADM.2 (Quelle) in ADM.1 (Ziel)
  4.  
  5.    Lediglich das Erstellungs-/Veränderungsdatum geht verloren.
  6.  
  7.    Geschrieben von Jan Geißler.
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. ADDRESS ADM.2
  13. ADDRINMEM
  14. num = RESULT
  15. ACTIVATEFIRST
  16.  
  17. DO FOR num
  18.  
  19.    ADDRESS ADM.2
  20.    GETADDRESS ADM
  21.    ACTIVATENEXT
  22.  
  23.    ADDRESS ADM.1
  24.    NEWADDRESS ADM
  25. END
  26.  
  27. SAVE
  28.