From: invalid@invalid.invalid   
      
   I'm sorry!   
   Please replace /* */ by { }   
      
   "Heinrich Wolf"  schrieb im Newsbeitrag   
   news:3dglo9F6ujpbtU1@individual.net...   
   >   
   ...   
   > var   
   > a, b: word;   
   > l : LongInt;   
   >   
   > a := 30000;   
   > b := 30000;   
   > l := a * b;   
   > writeln(l);   
   > /*   
   > The intermediate result is an overflow in word!   
   > l will be 59648.   
   > This is the way to avoid that:   
   > */   
   > l := longint(a) * b;   
   > writeln(l);   
   >   
   > /*   
   > l will be 900000000.   
   > */   
   > l := word(l);   
   > writeln(l);   
   > /*   
   > will cut of the upper 16 bits.   
   > l will be 59648.   
   > */   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)