home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / HF-ADM23.LHA / ADM / ARexx / Ausdruck / DruckeAlpha.adm < prev    next >
Encoding:
Text File  |  1995-08-02  |  1.1 KB  |  47 lines
  1. /* $VER: DruckeAlpha.adm 1.2 (22.1.95)
  2.    
  3.    Copyright 1995  Daniel Wicke, wicke@wpts0.physik.uni-wuppertal.de
  4.  
  5.    Druckt alphabetische Adreßliste (1 Zeile/Adresse).
  6.    Für ADM. 
  7.    
  8. */
  9. OPTIONS RESULTS
  10.  
  11. Kopfzeile='Alphabetisches Adressenverzeichnis'
  12. Kopfzeile=OVERLAY(DATUM(),Kopfzeile,87)
  13.  
  14. InitDrucker='#1p"zwwq'
  15. ExitDrucker=' '
  16.  
  17. MaxID=0
  18. Activatefirst
  19.  
  20. IF 1=OPEN('Drucker','PRT:','W') THEN
  21. DO
  22.    len=WRITEln('Drucker',InitDrucker||Kopfzeile)
  23.    len=WRITEln('Drucker','')
  24.    DO FOREVER
  25.       GETADDRESS Adresse
  26.       if RESULT=-1 then leave
  27.    
  28.       /*say Adresse.lastname Adresse.id Adresse.flags*/
  29.       Zeile=Adresse.lastname||", "Adresse.firstname
  30.       Zeile=OVERLAY(" "||Adresse.Address1,Zeile,31)
  31.       Zeile=OVERLAY(" "||Adresse.Postcode,Zeile,61)
  32.       Zeile=OVERLAY(" "||Adresse.City,Zeile,67)
  33.       Zeile=OVERLAY(" "||Adresse.Telephone,Zeile,91)
  34.       /*say Zeile*/
  35.  
  36.       len=writeln('Drucker',Zeile)
  37.    
  38.       ACTIVATENEXT
  39.       if RESULT=-1 then leave
  40.    END
  41.    len=WRITECH('Drucker',ExitDrucker)
  42.    len=CLOSE('Drucker')
  43. END
  44. ELSE
  45.    say "Konnte Drucker nicht öffnen."
  46.  
  47.