{$ if not def AP_KOMMENTARE_H}
 
 CONST
  AP_KOMMENTARE_H = 0
  lf=CHR(10);
  
 TYPE string430=STRING[430];
  
PROCEDURE kommmeld(tit:STRING200,txt:STRING430,gad:STRING200);
VAR
  es : EasyStruct;
  l  : LONG;

 BEGIN
  tit:='Addipro Infosystem: '+tit;
  es := EasyStruct(SizeOf(EasyStruct),0,^tit,txt,^gad);
  l:= EasyRequestArgs(NIL,^es,NIL,NIL);
 END;   
  
PROCEDURE briefgroessen;
 BEGIN  
  kommmeld('Briefgrößen',
          'Briefname, Preis, Höchstmaße (LxBxH), Gewicht, Mindestmaße (LxB)'+lf+lf+
          'Standardbrief: 1.00 DM  235x125x5    bis 20g    140x90'+lf+
          'Kompaktbrief : 2.00 DM  235x125x10   bis 50g    100x70'+lf+
          'Großbrief    : 3.00 DM  353x250x20   bis 500g   100x70'+lf+
          'Maxibrief    : 4.00 DM  353x250x50   bis 1000g  100x70'+lf+
          'Postkarte    : 0.80 DM  162x114                 140x90'+lf+lf+
          'Stand der Preise: 1.April 1995',
          'Saupreise');          
 END;  
  
PROCEDURE k0;
 BEGIN
  kommmeld('Warensendung',
           'Wenn man Disketten verschicken möchte, ist es der billigste Weg,'+lf+
           'sie als Warensendung zu deklarieren. Dabei ist jedoch zu beachten,'+lf+
           'daß die Post den Umschlag öffnen kann. Er darf also nicht zugeklebt'+lf+
           'sein. Außerdem darf kein Brief mit im Umschlag sein.'+lf+lf+
           'Warensendungen gibt in den drei Briefgrößen:'+lf+
           ' Standard (0.80 DM), Kompakt (1.30 DM) und Maxi (3.00 DM)'+lf+
           ' ! Vorsicht ! Schon ein Diskette ist für die Größe Standard zu schwer'
           ,'Ich liebe es Geld aus dem Fenster zu werfen');
  briefgroessen; 
 END;


PROCEDURE k1;
 BEGIN
  kommmeld('Büchersendung',
           'Büchersendungen gibt es in den Größen'+lf+
           ' Standard .......... 0.80 DM'+lf+
           ' Kompakt ........... 1.10 DM'+lf+
           ' Groß .............. 1.50 DM'+lf+
           ' Maxi .............. 2.50 DM'+lf+lf+
           ' Bis auf weiteres sind auch folgende Höchstmaße zulässig:'+lf+
           ' L 600 mm, B 300 mm, H 150 mm oder L,B,H zusammen 900 mm'+lf+
           ' jedoch in keiner Ausdehnung länger als 600 mm',
           ' Danke Meister ! ');  
  briefgroessen;
 END;
    
PROCEDURE k2;
 BEGIN
  kommmeld('Päckchen',
           'Päckchen ................. 5.50 DM'+lf+
           'Höchstgewicht 2.000 g'+lf+
           'Höchstmaße rechteckig: LxBxH 600x300x150 mm'+lf+
           'Höchstmaße Rollenform: L 900 mm, Durchmesser 150 mm'+lf+
           'oder L (max. 600 mm) B und H zusammen 900 mm'+lf+
           'Mindestmaße rechteckig: LxBxH 150x110x20 mm'+lf+
           'Mindestmaße Rollenform: L 150 mm, Durchmesser 50 mm',
           'Supertoll!');     
 END;
  
PROCEDURE k3;
 BEGIN
  kommmeld('Paket',
           'Pakete:'+lf+
           'bis 5 kg ............. 7.60 DM'+lf+
           'über 5 bis 6 kg ...... 8.20 DM'+lf+
           'über 6 bis 7 kg ...... 8.90 DM'+lf+
           'über 7 bis 8 kg ...... 9.30 DM'+lf+
           'über 8 bis 9 kg ..... 10.00 DM'+lf+
           'über 9 bis 10 kg .... 10.40 DM'+lf+
           'über 10 bis 12 kg ... 11.10 DM'+lf+
           'über 12 bis 14 kg ... 12.70 DM'+lf+
           'über 14 bis 16 kg ... 14.00 DM'{+lf+
           'über 16 bis 18 kg ... 15.30 DM'+lf+
           'über 18 bis 20 kg ... 16.50 DM'},
           'Try UPS');
 kommmeld('Paket',
         'Ein sperriges Paket kostet 10 DM Zuschlag'+lf+lf+
         ' Als sperrig gelten Pakete, die die Höchstmaße'+lf+
         ' überschreiten oder die eine besondere betriebliche'+lf+
         ' Behandlung erfordern (z.B. Kinderwagen, Kannen,'+lf+
         ' Henkelkörbe, Eimer usw)'+lf+lf+
         'Ein Paket ist eine "quaderförmige Sendung" mit den'+lf+
         'Höchstmaßen:'+lf+
         ' Länge bis 120 cm, Breite und Höhe je bis 60 cm',
         'Viel Spaß mit den quaderförmigen Sendungen!');
 END;
  
PROCEDURE k4;
 BEGIN
  kommmeld('Vorsicht Datenträger!',
           'Ist zwar gut gemeint das draufzudrucken,'+lf+
           'aber wird sich wohl keiner dran halten',
           'Yep');
 END;
  
PROCEDURE k5;
 BEGIN
  kommmeld('Vorsicht Zerbrechlich!',
           'Ist zwar gut gemeint das draufzudrucken,'+lf+
           'aber wird sich wohl keiner dran halten',
           'Kacke!');
 END;

PROCEDURE k6;
 BEGIN
  kommmeld('INTEL OUTSIDE !',
           'Hier weiß dann jeder, daß der Absender ein Amigafreak ist,'+lf+
           'der ein schnelles, wenig speicherintensives Betriebssystem liebt,'+lf+
           'keine 100 Mhz,16MB RAM, 1GB Festplatte braucht, weil sonst nix läuft'+lf+
           ''+lf+
           '                      Enjoy your Amiga!',
           ' MS DOSEN zum Recycling ');
 END;

PROCEDURE k7;
 BEGIN
  kommmeld('...',
          'Nun ja, die drei Punkte sollen heißen, daß'+lf+
          'halt nichts gedruckt werden soll !',
          'Aha!');
 END;
  
{$endif}