home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / ARexx / Succes.adm < prev    next >
Encoding:
Text File  |  1994-12-19  |  2.5 KB  |  104 lines
  1. /* $VER: Succes.adm 0.1 10.10.94
  2.  
  3.    Usage: Aufruf vom ADM-ARexx-Menü.
  4.  
  5.    Dieses Skript schreibt eine Adressliste auf einen HP Deskjet für
  6.    einen Succes-Kalender Senior Format. (etwas schmaler als A6) Gibt
  7.    die Daten auf PRT: aus
  8.  
  9.    Written by Werner Braun. All rights reserved.
  10.  
  11.       0.1  10.10.94  [Werner Braun]  - Erste Version
  12.  
  13.    Basiert auf TelListe von Jan Geißler
  14.  
  15.    */
  16.  
  17. /* R|ckgabewerte zulassen   */
  18. OPTIONS RESULTS
  19.  
  20. /* Drucker oeffnen (zum test mit ram:adm.out arbeiten, spart Papier) */
  21. outfile="prt:";
  22.  
  23. /* Anzahl Adressen holen    */
  24. ADDRINMEM
  25. numadr = RESULT
  26.  
  27. /* Fehler ausgeben, falls Adre_speicher leer  */
  28. IF numadr<1 THEN DO
  29.    SAY "Keine Adressen im Speicher"
  30.    EXIT
  31. END
  32.  
  33. /* Ausgabedatei vffnen     */
  34. IF ~OPEN(datei,outfile,"W") THEN EXIT
  35.  
  36.  
  37. /* Ersten Eintr. aktivieren */
  38. ACTIVATEFIRST
  39.  
  40.  
  41. /* 24cpi LGothic 6Punkt Hvhe, 12 lpi  einstellen mit esc-Sequenz durch prt: durchreichen*/
  42. ok = WriteLn(datei,"1b"x"[18""r" || "1b"x || "(s24h6v6T" || "0a1b"x || "&l12D"||"0a00"x);
  43.  
  44. /* Datum bereitstellen */
  45. Datum=Date(European)
  46. Datum=Overlay(".",Datum,3,1)
  47. Datum=Overlay(".",Datum,6,1)
  48.  
  49. S=1
  50. Header="      Privat - Adressliste vom " || Datum || "                                Seite: "||S
  51.  
  52. Z=1
  53. ok = WriteLn(datei,Header);
  54. ok = WriteLn(datei," ");
  55.  
  56.  
  57. DO FOR numAdr UNTIL RESULT=-1  /* alle Adressen abarbeiten */
  58.  
  59.   GETADDRESS ADM                    /* Adresse -> Stemvar ADM   */
  60.  
  61.   IF RESULT=0 THEN DO
  62.     /* Ausgabe ... */
  63.     if Z>=64 then
  64.       DO
  65.         ok=writech(datei,"0C"x)      /* neue Seite */
  66.         Z=1
  67.         S=S+1
  68.         Header="      Privat - Adressliste vom " || Datum || "                                Seite: "||S
  69.         ok = WriteLn(datei,Header);
  70.         ok = WriteLn(datei," ");
  71.       END
  72.  
  73.     Zeile1 = "      " || ADM.LASTNAME
  74.     if WORDS(ADM.FIRSTNAME)>0 THEN Zeile1 = Zeile1 || ", " || ADM.FIRSTNAME
  75.     Zeile1 = insert(Zeile1," ",0,45," ")||ADM.TELEPHONE
  76.     ok = WriteLn(datei,Zeile1)
  77.  
  78.     Zeile2 = "      " || ADM.ADDRESS1
  79.     IF WORDS(ADM.ADDRESS2)>0 THEN Zeile2 = Zeile2 || " " || ADM.ADDRESS2
  80.     ok = WriteLN(datei,Zeile2)
  81.  
  82.     Zeile3 = "      " || ADM.POSTCODE || " " || ADM.CITY
  83.     OK = WRITELN(DATEI,Zeile3)
  84.  
  85.     Zeile4 = "      " || ADM.REMARK1 ||" "|| ADM.REMARK2
  86.     IF WORDS(Zeile4)>0 THEN
  87.       DO
  88.         ok=WriteLn(datei,Zeile4)
  89.         z=z+1
  90.       END
  91.  
  92.     OK = WRITELN(DATEI," ")
  93.  
  94.     z=z+4 /* Zeilenzahl um 4 erhvhen */
  95.  
  96.     ACTIVATENEXT                   /* Akt. naechsten Eintrag */
  97.   END
  98.  
  99. END
  100. /* letzte Seite auswerfen */
  101. ok=writech(datei,"0C"x)
  102. ok = CLOSE(datei)
  103.  
  104.