home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0970.lha / ADM / ARexx / ShowADMPic.adm < prev    next >
Text File  |  1993-06-11  |  690b  |  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.