home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / HF-ADM23.LHA / ADM / ARexx / ShowADMPic.adm < prev    next >
Encoding:
Text File  |  1995-06-04  |  690 b   |  26 lines
  1. /* $VER: ShowADMPic.adm 1.0 (11.6.93)
  2.  
  3.    Zeigt ein zum Adreßeintrag zugehöriges Bild von ADM aus an.
  4.  
  5.    Dazu müssen die IFF-Dateien im Format "NachnameVorname" (ohne Leer-
  6.    zeichen!) im unten einzutragenden Verzeichnis vorhanden sein.
  7.    Außerdem muß der Bildanzeiger unten definiert werden!
  8.  
  9. */
  10.  
  11. picDir = "ADM:PICS/"  /* Verzeichnis mit Bildern, MUSS mit / oder : */
  12.                       /* enden!                                     */
  13.  
  14. viewer = "C:VT"       /* IFF-Bildanzeiger */
  15.  
  16. /* ---------------------------------------------------------------- */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. GETADDRESS ADM
  21.  
  22. name = SPACE(ADM.lastName || ADM.firstName,0)
  23.  
  24. cmd = viewer picDir || name
  25. ADDRESS COMMAND cmd
  26.