     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ
std.zusatzÿÿÿÿÿ    351:15:13èÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ
AT installÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Œa€ëÿÿ_  _ \ \  
       ÿÿÿÿ       
          
   `  >M ÿþ    ÿÿ   ÿÿÿÿ
AT installÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  _ ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿj ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ƒÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   page;ÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   line (2).ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   line.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Šÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   put (t).ÿÿÿÿÿÿÿÿÿÿÑŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC cl eol: ÿÿÿÿÿÿÿÿñŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC cl eop: ÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‹ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   cl eol ÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   cl eop ÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (*************************************************************************)ÿÿÿN (*** Insertiert alle notwendigen Pakete, damit ein AT-System generiert ***)ÿÿÿN (*** werden kann, das die Hardwareuhr lesen und Partitionen bedienen   ***)ÿÿÿN (*** kann. Startet den "AT Generator".                                 ***)ÿÿÿN (***                                                                   ***)ÿÿÿN (*** Autor : W. Sauerwein                             Stand : 15.07.86 ***)ÿÿÿN (*************************************************************************)ÿÿÿ erste bildschirmmeldung;ÿÿÿÿÿÿn IF ich bin single THEN putline ("Die AT-spezifische Software ist nur auf Multi-User-Systemen benutzbar !")ÿÿÿÿ>                   ELSE hole dateien vom archiv;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                        insertiere alle pakete;N                        put line ("Running ""AT Generator""...");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                        run ("Aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1µÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaµÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡µÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁµÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¶ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¶ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!·ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ·ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡·ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ·ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¸ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¸ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¸ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¹ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ºÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqºÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ºÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñºÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa»ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line (2); ÿÿÿÿÿÿÿÿÿÁ»ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ»ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line; ÿÿÿÿÿÿÿÿÿÿÿÿÿ!¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line; ÿÿÿÿÿÿÿÿÿÿÿÿÿA¼ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line; ÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¼ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line. ÿÿÿÿÿÿÿÿÿÿÿÿÿá¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(*ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿREPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ½ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¾ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (* ------------------- VERSION 12 vom 06.08.86 -------------------- *)ÿÿÿÿÿÿÿÿ> PACKET reporter routines DEFINES generate counts,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                                  count on,ÿÿÿÿ.                                  count off,ÿÿÿ>                                  generate reports,ÿÿÿÿÿÿÿÿÿÿÿÿ>                                  eliminate reports,ÿÿÿÿÿÿÿÿÿÿÿ.                                  assert,ÿÿÿÿÿÿ.                                  report on,ÿÿÿ.                                  report off,ÿÿ.                                  report:ÿÿÿÿÿÿN (* Programm zur Ablaufverfolgung von ELAN Programmen. Das Programm ÿÿÿÿÿÿÿÿÿÿÿN    verfolgt Prozedur- und Refinementaufrufe ('trace') und erstelltÿÿÿÿÿÿÿÿÿÿÿÿN    eine Haeufigkeitszaehlung ('count') und beachtet 'assertions'.ÿÿÿÿÿÿÿÿÿÿÿÿÿ    Autor: Rainer Hahn *)ÿÿÿÿÿÿ FILE VAR input file;ÿÿÿÿÿÿÿÿÿÿ INT VAR zeilen nr,ÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR zeile,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          dummy,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          dummy1,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          symbol;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LET quadro fis = "####",ÿÿÿÿÿÿ     triple fis = "###",ÿÿÿÿÿÿÿ     double fis = "##",ÿÿÿÿÿÿÿÿ DATASPACE VAR ds := nilspace;ÿ> BOUND ROW max STRUCT (INT anzahl, BOOL proc) VAR zaehlwerk;ÿÿÿ LET max = 3000;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (******************* gen report-Routinen ******************************) ÿÿÿÿÿ PROC generate reports:ÿÿÿÿÿÿÿÿ.   generate reports (last param)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC generate reports;ÿÿÿÿ. PROC generate reports (TEXT CONST name):ÿÿÿÿÿÿ   disable stop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   gen trace statements (name); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF is error AND error message = "ende"ÿÿÿÿÿÿ     THEN clear error;ÿÿÿÿÿÿÿÿÿ          last param (name)ÿÿÿÿ   to line (input file, 1);ÿÿÿÿ   enable stop. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC generate reports;ÿÿÿÿ. PROC gen trace statements (TEXT CONST name):ÿÿ   enable stop;   IF exists (name) ÿÿÿÿÿÿÿÿÿÿÿ>     THEN input file := sequential file (modify, name)ÿÿÿÿÿÿÿÿÿ>     ELSE errorstop ("input file does not exist") ÿÿÿÿÿÿÿÿÿÿÿÿÿ   input file modifizierenÿÿÿÿÿ. END PROC gen trace statements; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (*************************** Test file modifizieren *****************) ÿÿÿÿÿÿÿ PROC input file modifizieren:ÿ   zeilen nr := 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   to line (input file, 1);ÿÿÿÿ   col (input file, 1);ÿÿÿÿÿÿÿÿ     lese zeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF triple fis symbolÿÿÿÿÿÿ.       THEN wandele in quadro fisÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF proc oder op symbolÿÿÿÿ>       THEN verarbeite operatorT Generator")ÿÿÿ forget ("AT install", quiet).ÿ. ich bin single : (pcb (9) AND 255) <= 1.ÿÿÿÿÿÿ insertiere alle pakete :ÿÿÿÿÿÿ.    insert and say ("AT Utilities").ÿÿÿÿÿÿÿÿÿÿÿ erste bildschirmmeldung :ÿÿÿÿÿN    put center (" Generator fÛr AT-spezifische Software gestartet."); line;ÿÿÿÿN    put center ("--------------------------------------------------");ÿÿÿÿÿÿÿÿÿ hole dateien vom archiv :ÿÿÿÿÿ    TEXT VAR datei;ÿÿÿÿÿÿÿÿÿÿÿÿ>    datei := "AT Utilities";             hole wenn noetig;ÿÿÿÿÿ>    datei := "AT Generator";             hole wenn noetig;ÿÿÿÿÿ    release (archive);ÿÿÿÿÿÿÿÿÿ hole wenn noetig :ÿÿÿÿÿÿÿÿÿÿÿÿ    IF NOT exists (datei) THENÿ>       put line ("Loading """ + datei + """...");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       fetch (datei, archive)ÿÿ. PROC insert and say (TEXT CONST datei) :ÿÿÿÿÿÿ    INT VAR cx, cy;ÿÿÿÿÿÿÿÿÿÿÿÿ>    put line ("Inserting """ + datei + """...");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    get cursor (cx, cy);ÿÿÿÿÿÿÿ    insert (datei);ÿÿÿÿÿÿÿÿÿÿÿÿ    cl eop (cx, cy); line;ÿÿÿÿÿ    forget (datei, quiet).ÿÿÿÿÿ END PROC insert and say;ÿÿÿÿÿÿ. TEXT PROC inverse (TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿ   ""15"" + t + " " + ""14""ÿÿÿ END PROC inverse;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC put center (TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put center (t, 80)ÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ> PROC put center (INT CONST zeile, TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put center (zeile, t, 80)ÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ> PROC put center (TEXT CONST t, INT CONST gesamtbreite):ÿÿÿÿÿÿÿ    INT VAR cy;    get cursor (cy, cy);ÿÿÿÿÿÿÿ.    put center (cy, t, gesamtbreite)ÿÿÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿN PROC put center (INT CONST zeile, TEXT CONST t, INT CONST gesamtbreite):ÿÿÿÿÿÿ>    cursor ((gesamtbreite - length (t)) DIV 2, zeile);ÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ   out (""5"")  END PROC cl eol;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   out (""4"")  END PROC cl eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC cl eol (INT CONST cx, cy): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cursor (cx, cy); ÿÿÿÿÿÿÿÿÿÿ END PROC cl eol; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC cl eop (INT CONST cx, cy): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cursor (cx, cy); ÿÿÿÿÿÿÿÿÿÿ END PROC cl eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿAT Utilitiesÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    €        ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòa€ëÿÿ# #         ÿÿÿÿ                  $ >M ÿþ    ÿÿ   ÿÿÿÿAT Utilitiesÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  #ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  read block,ÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‡ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿread block: ÿÿÿÿÿÿÿÿÿˆÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Šÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŠÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿwrite block: ÿÿÿÿÿÿÿÿÑŠÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‹ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ oder prozedurkopfÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELIF refinement symbolÿÿÿÿ.       THEN verarbeite ggf refinementsÿÿÿÿÿÿÿÿÿ triple fis symbol:ÿÿÿÿÿÿÿÿÿÿÿÿ.   pos (zeile, triple fis) > 0 AND ÿÿÿÿÿÿÿÿÿÿÿÿ>        (pos (zeile, triple fis) <> pos (zeile, quadro fis)).ÿÿ wandele in quadro fis:ÿÿÿÿÿÿÿÿ.   change all (zeile, triple fis, quadro fis);ÿ.   write record (input file, zeile).ÿÿÿÿÿÿÿÿÿÿÿ proc oder op symbol:ÿÿÿÿÿÿÿÿÿÿ>   pos (zeile, "PROC") > 0 OR pos (zeile, "OP") > 0.ÿÿÿÿÿÿÿÿÿÿÿ. verarbeite operator oder prozedurkopf:ÿÿÿÿÿÿÿÿ   scan (zeile);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   symbol lesen;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF symbol = "PROC" OR symbol = "OP"ÿÿÿÿÿÿÿÿÿ   ELIF symbol = "END"ÿÿÿÿÿÿÿÿÿ>     THEN LEAVE verarbeite operator oder prozedurkopfÿÿÿÿÿÿÿÿÿÿ   ELIF type = boldÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN next symbol (symbol, type);ÿÿÿÿÿÿÿÿÿÿ>          IF NOT (symbol = "PROC" OR symbol = "OP")ÿÿÿÿÿÿÿÿÿÿÿÿ>            THEN LEAVE verarbeite operator oder prozedurkopfÿÿÿ>     ELSE LEAVE verarbeite operator oder prozedurkopfÿÿÿÿÿÿÿÿÿÿ   scanne kopf;   insertiere trace anweisung.ÿ   dummy := double fis;ÿÿÿÿÿÿÿÿ   dummy CAT "report(""";ÿÿÿÿÿÿ.   dummy CAT text (line no (input file) + 1);ÿÿ   dummy CAT ": ";ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   dummy CAT symbol; (* PROC oder OP *)ÿÿÿÿÿÿÿÿ   dummy CAT " ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   symbol lesen;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   dummy CAT symbol;ÿÿÿÿÿÿÿÿÿÿÿ   fuege bis namens ende an;ÿÿÿ   dummy CAT " ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   ueberlese ggf parameterliste.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ fuege bis namens ende an:ÿÿÿÿÿ     symbol lesen;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     IF symbol = "(" OR symbol = ":"ÿÿÿÿÿÿÿÿÿÿÿ.       THEN LEAVE fuege bis namensende anÿÿÿÿÿÿ     dummy CAT symbolÿÿÿÿÿÿÿÿÿÿ ueberlese ggf parameterliste:ÿ   WHILE symbol <> ":" REPÿÿÿÿÿ     symbol lesenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ insertiere trace anweisung:ÿÿÿ.   WHILE pos (zeile, ":") = 0 REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     vorwaerts;     lese zeile.   schreibe zeile mit report statement.ÿÿÿÿÿÿÿÿ refinement symbol:ÿÿÿÿÿÿÿÿÿÿÿÿ.   INT CONST point pos :=  pos (zeile, ".") ;ÿÿ>   point pos > 0 AND point pos >= length (zeile) - 1.ÿÿÿÿÿÿÿÿÿÿ verarbeite ggf refinements:ÿÿÿ   ueberlies leere zeilen ; ÿÿÿ   IF ist wirklich refinementÿÿ.     THEN insertiere report fuer refinementÿÿÿÿ ueberlies leere zeilen :ÿÿÿÿÿÿ     vorwaerts;     lese zeile>   UNTIL pos (zeile, ""33"", ""254"", 1) > 0 PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿ ist wirklich refinement :ÿÿÿÿÿ   scan (zeile) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   next symbol (symbol, type) ;   next symbol (symbol) ;ÿÿÿÿÿÿ.   symbol = ":" AND type = tag .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. insertiere report fuer refinement:ÿÿÿÿÿÿÿÿÿÿÿÿ   dummy := double fis;ÿÿÿÿÿÿÿÿ   dummy CAT "report(""     ";ÿ.   dummy CAT text (line no (input file) + 1);ÿÿ   dummy CAT ": ";ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   dummy1 := subtext (zeile, 1, pos (zeile, ":") - 1);ÿÿÿÿÿÿÿÿÿ   dummy CAT dummy1;ÿÿÿÿÿÿÿÿÿÿÿ.   schreibe zeile mit report statementÿÿÿÿÿÿÿÿÿ. END PROC input file modifizieren; ÿÿÿÿÿÿÿÿÿÿÿÿ. PROC schreibe zeile mit report statement:ÿÿÿÿÿ   dummy CAT """);";ÿÿÿÿÿÿÿÿÿÿÿ   dummy CAT double fis;ÿÿÿÿÿÿÿ.   IF doppelpunkt steht am ende der zeileÿÿÿÿÿÿ     THEN vorwaerts;ÿÿÿÿÿÿÿÿÿÿÿ.          insert record (input file);ÿÿÿÿÿÿÿÿÿÿ.          write record (input file, dummy)ÿÿÿÿÿ.     ELSE insert char (dummy, ":", 1);ÿÿÿÿÿÿÿÿÿ.          change (zeile, ":", dummy);ÿÿÿÿÿÿÿÿÿÿ.          write record (input file, zeile)ÿÿÿÿÿ. doppelpunkt steht am ende der zeile:ÿÿÿÿÿÿÿÿÿÿN   (zeile SUB length (zeile)) = ":" OR (zeile SUB length (zeile) - 1) = ":".ÿÿÿ. END PROC schreibe zeile mit report statement;ÿ PROC symbol lesen:ÿÿÿÿÿÿÿÿÿÿÿÿ   next symbol (symbol, type);ÿ   IF ende der zeile gescanntÿÿ     THEN vorwaerts;ÿÿÿÿÿÿÿÿÿÿÿ          lese zeile;ÿÿÿÿÿÿÿÿÿÿ.          continue scan (zeile);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          next symbol (symbol, type)ÿÿÿÿÿÿÿÿÿÿÿ ende der zeile gescannt:ÿÿÿÿÿÿ END PROC symbol lesen;ÿÿÿÿÿÿÿÿ PROC vorwaerts:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF eof (input file) ÿÿÿÿÿÿÿÿ     THEN errorstop ("ende")ÿÿÿ   down (input file);ÿÿÿÿÿÿÿÿÿÿ   IF eof (input file) ÿÿÿÿÿÿÿÿ     THEN errorstop ("ende")ÿÿÿ END PROC vorwaerts;ÿÿÿÿÿÿÿÿÿÿÿ PROC lese zeile:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   read record (input file, zeile); ÿÿÿÿÿÿÿÿÿÿÿ   cout (zeilen nr); ÿÿÿÿÿÿÿÿÿÿ   zeilen nr INCR 1ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC lese zeile;ÿÿÿÿÿÿÿÿÿÿN (************************ eliminate reports-Routinen ******************)ÿÿÿÿÿÿ PROC eliminate reports:ÿÿÿÿÿÿÿ.   eliminate reports (last param)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC eliminate reports;ÿÿÿ. PROC eliminate reports (TEXT CONST name): ÿÿÿÿ   disable stop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   eliminate statements (name); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF is error AND error message = "ende"ÿÿÿÿÿÿ     THEN clear error;ÿÿÿÿÿÿÿÿÿ          last param (name)ÿÿÿÿ   to line (input file, 1);ÿÿÿÿ   enable stop. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC eliminate reports;ÿÿÿ. PROC eliminate statements (TEXT CONST name): ÿ   enable stop;   IF exists (name) ÿÿÿÿÿÿÿÿÿÿÿ>     THEN input file := sequential file (modify, name)ÿÿÿÿÿÿÿÿÿ>     ELSE errorstop ("input file does not exist") ÿÿÿÿÿÿÿÿÿÿÿÿÿ   statements entfernen.ÿÿÿÿÿÿÿ statements entfernen:ÿÿÿÿÿÿÿÿÿ   to line (input file, 1);ÿÿÿÿ   col (input file, 1);ÿÿÿÿÿÿÿÿ   zeilen nr := 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   WHILE NOT eof (input file) REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     lese zeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     IF pos (zeile, double fis) > 0ÿÿÿÿÿÿÿÿÿÿÿÿ>       THEN eliminiere zeichenketten in dieser zeileÿÿÿÿÿÿÿÿÿÿÿ       ELSE vorwaertsÿÿÿÿÿÿÿÿÿÿ. eliminiere zeichenketten in dieser zeile:ÿÿÿÿÿ.   INT VAR anfang := pos (zeile, double fis);ÿÿ.   WHILE es ist noch etwas zu eliminieren REPÿÿ     IF es ist ein quadro fisÿÿ.       THEN wandele es in ein triple fisÿÿÿÿÿÿÿ     ELIF es ist ein triple fis.       THEN lass diese sequenz stehenÿÿÿÿÿÿÿÿÿÿ.       ELSE entferne zeichenketteÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF zeile ist jetzt leerÿÿÿÿÿ.     THEN delete record (input file)ÿÿÿÿÿÿÿÿÿÿÿ.     ELSE write record (input file, zeile);ÿÿÿÿ          vorwaertsÿÿÿÿÿÿÿÿÿÿÿÿ. es ist noch etwas zu eliminieren:ÿÿÿÿÿÿÿÿÿÿÿÿÿ es ist ein quadro fis:ÿÿÿÿÿÿÿÿ.   pos (zeile, quadro fis, anfang) = anfang.ÿÿÿ wandele es in ein triple fis:ÿ   delete char (zeile, anfang);>   anfang := pos (zeile, double fis, anfang + 3).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ es ist ein triple fis:ÿÿÿÿÿÿÿÿ.   pos (zeile, triple fis, anfang) = anfang.ÿÿÿ lass diese sequenz stehen:ÿÿÿÿ>   anfang := pos (zeile, triple fis, anfang + 1) + 3.ÿÿÿÿÿÿÿÿÿÿ entferne zeichenkette:ÿÿÿÿÿÿÿÿ>   INT VAR end := pos (zeile, double fis, anfang+2) ;ÿÿÿÿÿÿÿÿÿÿ.     THEN change (zeile, anfang, end + 1, "");ÿ>          anfang := pos (zeile, double fis, anfang)ÿÿÿÿÿÿÿÿÿÿÿÿ>     ELSE anfang := pos (zeile, double fis, anfang+2) ÿÿÿÿÿÿÿÿÿ zeile ist jetzt leer:ÿÿÿÿÿÿÿÿÿ.   pos (zeile, ""33"", ""254"", 1) = 0.ÿÿÿÿÿÿÿÿ. END PROC eliminate statements; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (********************** Trace-Routinen *******************************) ÿÿÿÿÿÿ FILE VAR trace file;ÿÿÿÿÿÿÿÿÿÿ. BOOL VAR zaehlwerk initialisiert :: FALSE,ÿÿÿÿ          trace on,ÿÿÿÿÿÿÿÿÿÿÿÿ          haeufigkeit on;ÿÿÿÿÿÿ. PROC report (TEXT CONST message):ÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF exists ("TRACE")ÿÿÿÿÿÿÿÿÿ     ELSE trace on := TRUE;ÿÿÿÿ.          haeufigkeit on := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   BOOL CONST ist prozedur ::ÿÿ>      pos (message, "PROC") > 0 OR pos (message, "OP") > 0;ÿÿÿÿ>   trace file := sequential file (modify, "TRACE");ÿÿÿÿÿÿÿÿÿÿÿÿ   IF lines (trace file) <= 0ÿÿ.     THEN insert record (trace file);ÿÿÿÿÿÿÿÿÿÿ.          write record (trace file, "")ÿÿÿÿÿÿÿÿ>     ELSE to line (trace file, lines (trace file));ÿÿÿÿÿÿÿÿÿÿÿÿ.          read record (trace file, dummy);ÿÿÿÿÿ          IF dummy <> ""ÿÿÿÿÿÿÿ.            THEN down (trace file);ÿÿÿÿÿÿÿÿÿÿÿÿ.                 insert record (trace file);ÿÿÿ.                 write record (trace file, "")ÿ.     THEN write record (trace fáŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      CASE 0:ÿÿÿÿÿÿÿÿ1Žÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŽÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      CASE 0:ÿÿÿÿÿÿÿÿÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‘ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‘ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‘ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1’ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿread block: ÿÿÿÿÿÿÿÿÿÁ’ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘“ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ“ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq”ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ”ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1•ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿwrite block: ÿÿÿÿÿÿÿÿÑ•ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡–ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá–ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡—ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ—ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘˜ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq™ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      REP ÿÿÿÿÿÿÿÿÿÿÿ‘šÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁšÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñšÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1›ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿq›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘›ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ›ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAœÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡œÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   cl eol ÿÿÿÿÿÿÿÿÿÿÿžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!žÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   cl eop ÿÿÿÿÿÿÿÿÿÿÿqžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC cl eol: ÿÿÿÿÿÿÿÿ‘žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC cl eop: ÿÿÿÿÿÿÿÿÁžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñžÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŸÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1 ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¡ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   put (t).ÿÿÿÿÿÿÿÿÿÿ¡¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¡ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¢ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¢ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¢ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa£ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±£ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¤ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¤ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¤ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¥ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¥ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¦ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¦ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!§ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ§ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡§ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá§ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¨ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¨ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¨ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±©ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá©ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAªÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ªÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘«ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¬ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¬ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¬ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1­ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ­ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
high word:ÿÿÿÿÿÿÿÿÿÿÿ®ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa®ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡®ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ®ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¯ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¯ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¯ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA°ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±°ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ°ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ±ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘±ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá±ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!²ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
high word:ÿÿÿÿÿÿÿÿÿÿÿq²ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1³ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa³ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡³ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ³ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ´ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!µÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaµÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
    FALSE.ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡µÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿile, message);ÿÿ          down (trace file);ÿÿÿ.          insert record (trace file);ÿÿÿÿÿÿÿÿÿÿ.          write record (trace file, "")ÿÿÿÿÿÿÿÿ   IF haeufigkeit onÿÿÿÿÿÿÿÿÿÿÿ     THEN haeufigkeits zaehlung haeufigkeits zaehlung:ÿÿÿÿÿÿÿÿ   hole zeilen nr;ÿÿÿÿÿÿÿÿÿÿÿÿÿ hole zeilen nr:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   INT CONST von pos :: pos (message, ""33"", ""254"", 1);ÿÿÿÿÿ   zeilen nr :=N      int (subtext (message, von pos, pos (message, ":", von pos + 1) - 1)).ÿÿÿ>   IF last conversion ok AND zeilen nr > 0 AND zeilen nr <= max>     THEN zaehlwerk [zeilen nr] . anzahl INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          zaehlwerk [zeilen nr] . proc := ist prozedurÿÿÿÿÿÿÿÿÿ END PROC report;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC report (TEXT CONST message, INT CONST value):ÿÿÿÿÿÿÿÿÿÿÿÿ.   report (message, text (value))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC report;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC report (TEXT CONST message, REAL CONST value):ÿÿÿÿÿÿÿÿÿÿÿ.   report (message, text (value))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC report;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC report (TEXT CONST message, TEXT CONST value):ÿÿÿÿÿÿÿÿÿÿÿ   dummy1 := message;ÿÿÿÿÿÿÿÿÿÿ   dummy1 CAT ": ";ÿÿÿÿÿÿÿÿÿÿÿÿ   dummy1 CAT value;ÿÿÿÿÿÿÿÿÿÿÿ   report (dummy1)ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC report;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC report (TEXT CONST message, BOOL CONST value):ÿÿÿÿÿÿÿÿÿÿÿ   dummy1 := message;ÿÿÿÿÿÿÿÿÿÿ   dummy1 CAT ": ";ÿÿÿÿÿÿÿÿÿÿÿÿ     THEN dummy1 CAT "TRUE"ÿÿÿÿ     ELSE dummy1 CAT "FALSE"ÿÿÿ   report (dummy1)ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC report;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC report on: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   trace on := TRUE;ÿÿÿÿÿÿÿÿÿÿÿ   dummy1 := "REPORT ---> ON";ÿ   report (dummy1)ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC report on;ÿÿÿÿÿÿÿÿÿÿÿ PROC report off: ÿÿÿÿÿÿÿÿÿÿÿÿÿ   dummy1 := "REPORT ---> OFF";   report (dummy1);ÿÿÿÿÿÿÿÿÿÿÿÿ   trace on := FALSE;ÿÿÿÿÿÿÿÿÿÿ END PROC report off;ÿÿÿÿÿÿÿÿÿÿ. PROC assert (BOOL CONST value):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   assert ("", value)ÿÿÿÿÿÿÿÿÿÿ END PROC assert;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC assert (TEXT CONST message, BOOL CONST value):ÿÿÿÿÿÿÿÿÿÿÿ   dummy1 := "ASSERTION:";ÿÿÿÿÿ   dummy1 CAT message;ÿÿÿÿÿÿÿÿÿ   dummy1 CAT " ---> ";ÿÿÿÿÿÿÿÿ     THEN dummy1 CAT "TRUE"ÿÿÿÿ     ELSE line;          put ("ASSERTION:"); ÿ          put (message);ÿÿÿÿÿÿÿ          put ("---> FALSE");ÿÿ          line;          IF yes ("weiter")ÿÿÿÿ.            THEN dummy1 CAT "FALSE"ÿÿÿÿÿÿÿÿÿÿÿÿ.            ELSE errorstop ("assertion failed")   report (dummy1)ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC assert;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (************************** haeufigkeits-zaehlung ****************)ÿÿÿÿÿÿÿÿÿÿÿ PROC count on:   report ("COUNT ---> ON");ÿÿÿ   haeufigkeit on := TRUE;ÿÿÿÿÿ   initialisiere haeufigkeit.ÿÿ initialisiere haeufigkeit:ÿÿÿÿ   forget (ds);   ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   zaehlwerk initialisiert := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿ   zaehlwerk := ds;ÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO max REPÿÿÿ.     zaehlwerk [i] . anzahl := 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC count on;ÿÿÿÿÿÿÿÿÿÿÿÿ PROC count off:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   report ("COUNT ---> OFF");ÿÿ   haeufigkeit on := FALSEÿÿÿÿÿ END PROC count off;ÿÿÿÿÿÿÿÿÿÿÿ PROC generate counts:ÿÿÿÿÿÿÿÿÿ   generate counts (last param) END PROC generate counts;ÿÿÿÿÿ. PROC generate counts (TEXT CONST name): ÿÿÿÿÿÿ   disable stop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   insert counts (name); ÿÿÿÿÿÿ   last param (name);ÿÿÿÿÿÿÿÿÿÿ   to line (input file, 1);ÿÿÿÿ   enable stop. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC generate counts;ÿÿÿÿÿ. PROC insert counts (TEXT CONST name):ÿÿÿÿÿÿÿÿÿ   enable stop;   IF exists (name)ÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN input file := sequential file (modify, name);ÿÿÿÿÿÿÿÿ          col (input file, 1)ÿÿ>     ELSE errorstop ("input file does not exist")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF NOT zaehlwerk initialisiertÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN errorstop ("count nicht eingeschaltet")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   counts insertieren;ÿÿÿÿÿÿÿÿÿ   dataspace loeschen;ÿÿÿÿÿÿÿÿÿ   statistik ausgeben.ÿÿÿÿÿÿÿÿÿ counts insertieren:ÿÿÿÿÿÿÿÿÿÿÿ.   REAL VAR gesamt aufrufe :: 0.0, ÿÿÿÿÿÿÿÿÿÿÿÿ.            proc   aufrufe :: 0.0, ÿÿÿÿÿÿÿÿÿÿÿÿ.            andere aufrufe :: 0.0; ÿÿÿÿÿÿÿÿÿÿÿÿ   zeilen nr := 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   WHILE zeilen nr <= lines (input file) REPÿÿÿ     cout (zeilen nr);ÿÿÿÿÿÿÿÿÿ.     IF zaehlwerk [zeilen nr] . anzahl > 0ÿÿÿÿÿ>       THEN anzahl aufrufe in die eingabe zeile einfuegen;ÿÿÿÿÿ            aufrufe mitzaehlenÿ     zeilen nr INCR 1ÿÿÿÿÿÿÿÿÿÿ> anzahl aufrufe in die eingabe zeile einfuegen: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   to line (input file, zeilen nr);ÿÿÿÿÿÿÿÿÿÿÿÿ.   read record (input file, zeile);ÿÿÿÿÿÿÿÿÿÿÿÿ   dummy := double fis;ÿÿÿÿÿÿÿÿ>   dummy CAT text (zaehlwerk [zeilen nr] . anzahl);ÿÿÿÿÿÿÿÿÿÿÿÿ   dummy CAT double fis;ÿÿÿÿÿÿÿ   change (zeile, 1, 0, dummy);.   write record (input file, zeile).ÿÿÿÿÿÿÿÿÿÿÿ aufrufe mitzaehlen: ÿÿÿÿÿÿÿÿÿÿ>   gesamt aufrufe INCR real (zaehlwerk [zeilen nr] . anzahl); ÿ.   IF zaehlwerk [zeilen nr] . proc ÿÿÿÿÿÿÿÿÿÿÿÿN     THEN proc aufrufe INCR real (zaehlwerk [zeilen nr] . anzahl) ÿÿÿÿÿÿÿÿÿÿÿÿÿN     ELSE andere aufrufe INCR real (zaehlwerk [zeilen nr] . anzahl) ÿÿÿÿÿÿÿÿÿÿÿ dataspace loeschen:ÿÿÿÿÿÿÿÿÿÿÿ.   zaehlwerk initialisiert := FALSE;ÿÿÿÿÿÿÿÿÿÿÿ   forget (ds). statistik ausgeben: ÿÿÿÿÿÿÿÿÿÿ.   put ("Anzahl der Gesamtaufrufe:"); ÿÿÿÿÿÿÿÿÿ.   ggf int put (gesamt aufrufe); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   put ("davon:"); ÿÿÿÿÿÿÿÿÿÿÿÿN   ggf int put (proc aufrufe); put ("Prozeduren oder Operatoren"); ÿÿÿÿÿÿÿÿÿÿÿÿN   ggf int put (andere aufrufe); put ("Refinements und andere"); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC insert counts;ÿÿÿÿÿÿÿ. PROC ggf int put (REAL CONST wert):ÿÿÿÿÿÿÿÿÿÿÿ   IF wert >= real (maxint)ÿÿÿÿ     THEN put (wert)ÿÿÿÿÿÿÿÿÿÿÿ     ELSE put (int (wert))ÿÿÿÿÿ END PROC ggf int put;ÿÿÿÿÿÿÿÿÿ END PACKET reporter routines;ÿ   IF exists ("rep fehler")ÿÿÿÿ.     THEN copy ("rep fehler", "zzz")ÿÿÿÿÿÿÿÿÿÿÿ>     ELSE errorstop ("rep fehler exisitiert nicht")ÿÿÿÿÿÿÿÿÿÿÿÿ   generate reports ("zzz");ÿÿÿ   edit("zzz");   forget ("zzz")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ UNTIL no ("nochmal") END REP;ÿ edit("reporter")*)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿvectorÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáµÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¶ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ±¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¶ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1·ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq·ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ·ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¸ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¸ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¹ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¹ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
    value ÿÿÿÿÿÿÿÿÿÿÿºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ºÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqºÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁºÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1»ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      CASE 0:ÿÿÿÿÿÿÿÿ±»ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ»ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¼ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa½ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±½ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¾ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      CASE 0:ÿÿÿÿÿÿÿÿ¡¾ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¾ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¿ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÀÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Àÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÀÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÁÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÁÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Áÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÁÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÂÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Âÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÂÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ãÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ãÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÃÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÄÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÄÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Äÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÄÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Åÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÅÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÅÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÅÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÆÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Æÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÆÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Çÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Çÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÇÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Èÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	       FIÿÿÿÿÿÿÿÿÿÿÿÿQÈÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcircle :ÿÿÿÿÿÿÿÿÿÿÿÿÿÈÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Èÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÈÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Éÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÉÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÉÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      PERÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	tausche :ÿÿÿÿÿÿÿÿÿÿÿÿÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Êÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   headline;ÿÿÿÿÿÿÿÿÿÑÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   columns;ÿÿÿÿÿÿÿÿÿÿñÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   rows;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   footlines.ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿhead line :ÿÿÿÿÿÿÿÿÿÿËÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ëÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqËÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ëÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ìÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	columns :ÿÿÿÿÿÿÿÿÿÿÿÿaÌÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ìÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÌÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿunderlines :ÿÿÿÿÿÿÿÿÿ1Íÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÍÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Íÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÍÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrows :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Îÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
footlines:ÿÿÿÿÿÿÿÿÿÿÿÎÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Îÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÏÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÐÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ðÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ñÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ñÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÑÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Òÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÒÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÒÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÓÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÔÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿput gesamt :ÿÿÿÿÿÿÿÿÿÔÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ôÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÕÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Õÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿpart name :ÿÿÿÿÿÿÿÿÿÿÁÕÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÕÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Öÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÖÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   help := 0;ÿÿÿÿÿÿÿÿ×ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1×ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   help.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘×ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ×ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ×ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQØÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Øÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑØÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÙÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   help.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÙÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÚÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Úÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÚÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÛÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ûÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   line (4)ÿÿÿÿÿÿÿÿÿÿÜÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÜÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÜÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ýÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÝÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÞÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Þÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
get clock:ÿÿÿÿÿÿÿÿÿÿÿqßÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ“a€ëÿÿ×  × Ô Ô  Ü      ÿÿÿÿ       Ü         Ü  Ø  >M     ÿÿ   ÿÿÿÿvectorÿÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  × ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
INT VAR i;ÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿelement i :ÿÿÿÿÿÿÿÿÿÿQƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP :=;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP :=;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1…ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF lng <= 0ÿÿÿÿÿÿÿÿq…ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP SUB;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  v.lngÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  v.lngÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP =;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‰ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP <>;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP +;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  v := l;ÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ŠÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP +;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  v := a;ÿÿÿÿÿÿÿÿÿÿÿÿ¡Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP -;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  v := l;ÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP -;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŒÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  xÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  r*vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŒÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  v := a;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  v := a;ÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP /;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ELIF i < 1ÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‘ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‘ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REAL VAR x;ÿÿÿÿÿÿÿÿQ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC get;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡’ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC put;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC put;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁßÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!àÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaàÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘àÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñàÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘áÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿááÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘âÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿAãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿhw date:ÿÿÿÿÿÿÿÿÿÿÿÿÿaãÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ãÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁãÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñãÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿhw time:ÿÿÿÿÿÿÿÿÿÿÿÿÿ!äÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQäÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±äÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!åÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqåÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁåÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAæÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡æÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑæÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1çÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqçÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLET ack = 0;ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC shutup:ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±çÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQèÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑèÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñèÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1éÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAêÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqêÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁêÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñêÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   operation;ÿÿÿÿÿÿÿÿAëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ëÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
show date:ÿÿÿÿÿÿÿÿÿÿÿÿÿ   page;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   line (2); ÿÿÿÿÿÿÿÿáëÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ìÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   line (2).ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáìÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿíÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!îÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ïÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaïÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñïÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ðÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQðÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	     REP ÿÿÿÿÿÿÿÿÿÿÿÿ1ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQñÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ñÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ     PERÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   init;ÿÿÿÿÿÿÿÿÿÿÿÿÿAòÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±òÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAóÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑóÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿmessage:ÿÿÿÿÿÿÿÿÿÿÿÿÿ1ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQôÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      THEN 0ÿÿÿÿÿÿÿÿÿÑôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿinit:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñôÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!õÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘öÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáöÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1÷ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa÷ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡÷ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ÷ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá÷ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!øÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáøÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿ!ùÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaùÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ùÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	escaped :ÿÿÿÿÿÿÿÿÿÿÿÿ!úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQúÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘úÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáúÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ûÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿfehler :ÿÿÿÿÿÿÿÿÿÿÿÿÿÁûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáûÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAüÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘üÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑüÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	     REP ÿÿÿÿÿÿÿÿÿÿÿÿaýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ýÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñýÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	     PER;ÿÿÿÿÿÿÿÿÿÿÿÿ1þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaþÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑþÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2 ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	   break;ÿÿÿÿÿÿÿÿÿÿÿÿR ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      THENÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET vector DEFINES VECTOR, :=, vector,         (* Autor : H.Indenbirken *)ÿN                       SUB, LENGTH, length, norm,  (* Stand : 21.10.83      *)ÿ>                       nilvector, replace, =, <>,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                       +, -, *, /,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                       get, put :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. TYPE VECTOR = STRUCT (INT lng, TEXT elem);ÿÿÿÿ> TYPE INITVECTOR = STRUCT (INT lng, REAL value);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR t :: "12345678";ÿÿÿÿÿ VECTOR VAR v :: nilvector;ÿÿÿÿN (****************************************************************************ÿ PROC dump (VECTOR CONST v) :ÿÿ.   put line (text (v.lng) + " Elemente :");ÿÿÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ>   REP put line (text (i) + ": " + text (element i)) PER  .ÿÿÿÿ   v.elem RSUB i  .ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC dump;N ****************************************************************************)ÿ. OP := (VECTOR VAR l, VECTOR CONST r) :ÿÿÿÿÿÿÿÿ   l.lng := r.lng;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   l.elem := r.elemÿÿÿÿÿÿÿÿÿÿÿÿ. OP := (VECTOR VAR l, INITVECTOR CONST r) :ÿÿÿÿ   l.lng := r.lng;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   replace (t, 1, r.value);ÿÿÿÿ   l.elem := r.lng * tÿÿÿÿÿÿÿÿÿ INITVECTOR PROC nilvector :ÿÿÿ    vector (1, 0.0)ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC nilvector;ÿÿÿÿÿÿÿÿÿÿÿ> INITVECTOR PROC vector (INT CONST lng, REAL CONST value) :ÿÿÿÿ>   THEN errorstop ("PROC vector : lng <= 0") FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   INITVECTOR : (lng, value)ÿÿÿ END PROC vector;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INITVECTOR PROC vector (INT CONST lng) :ÿÿÿÿÿÿ   vector (lng, 0.0)ÿÿÿÿÿÿÿÿÿÿÿ END PROC vector;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. REAL OP SUB (VECTOR CONST v, INT CONST i) :ÿÿÿ.   test ("REAL OP SUB : ", v, i);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   v.elem RSUB iÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT OP LENGTH (VECTOR CONST v) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END OP LENGTH;. INT PROC length (VECTOR CONST v) :ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC length;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. REAL PROC norm (VECTOR CONST v) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   REAL VAR result :: 0.0;ÿÿÿÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ.   REP result INCR ((v.elem RSUB i)**2) PER;ÿÿÿ   sqrt (result)  .ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC norm;> PROC replace (VECTOR VAR v, INT CONST i, REAL CONST r) :ÿÿÿÿÿÿ.   test ("PROC replace : ", v, i);ÿÿÿÿÿÿÿÿÿÿÿÿÿ   replace (v.elem, i, r)ÿÿÿÿÿÿ END PROC replace;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. BOOL OP = (VECTOR CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   l.elem = r.elemÿÿÿÿÿÿÿÿÿÿÿÿÿ. BOOL OP <> (VECTOR CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   l.elem <> r.elemÿÿÿÿÿÿÿÿÿÿÿÿ VECTOR OP + (VECTOR CONST v) :. VECTOR OP + (VECTOR CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   test ("VECTOR OP + : ", l, r);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿN   REP replace (v.elem, i, (l.elem RSUB i) + (r.elem RSUB i)) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ VECTOR OP - (VECTOR CONST a) :   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ>   REP replace (v.elem, i, - (a.elem RSUB i)) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. VECTOR OP - (VECTOR CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   test ("VECTOR OP - : ", l, r);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿN   REP replace (v.elem, i, (l.elem RSUB i) - (r.elem RSUB i)) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. REAL OP * (VECTOR CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   test ("REAL OP * : ", l, r);   REAL VAR x :: 0.0;ÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO l.lngÿÿÿÿÿ>   REP x INCR ((l.elem RSUB i) * (r.elem RSUB i)) PER;ÿÿÿÿÿÿÿÿÿ. VECTOR OP * (VECTOR CONST v, REAL CONST r) :ÿÿ. VECTOR OP * (REAL CONST r, VECTOR CONST a) :ÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ>   REP replace (v.elem, i, r*(a.elem RSUB i)) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. VECTOR OP / (VECTOR CONST a, REAL CONST r) :ÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ>   REP replace (v.elem, i, (a.elem RSUB i)/r) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR error :: "";ÿÿÿÿÿÿÿÿÿ> PROC test (TEXT CONST proc, VECTOR CONST v, INT CONST i) :ÿÿÿÿ   IF i > v.lng   THEN error := proc;ÿÿÿÿÿÿÿÿÿ>        error CAT "subscript overflow (LENGTH v=";ÿÿÿÿÿÿÿÿÿÿÿÿÿ        error CAT text (v.lng);        error CAT ", i=";ÿÿÿÿÿÿ        error CAT text (i);ÿÿÿÿ        error CAT ")";ÿÿÿÿÿÿÿÿÿ        errorstop (error)ÿÿÿÿÿÿ   THEN error := proc;ÿÿÿÿÿÿÿÿÿ.        error CAT "subscript underflow (i = ";ÿ        error CAT text (i);ÿÿÿÿ        error CAT ")";ÿÿÿÿÿÿÿÿÿ        errorstop (error)ÿÿÿÿÿÿ END PROC test;> PROC test (TEXT CONST proc, VECTOR CONST a, b) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF a.lng <> b.lngÿÿÿÿÿÿÿÿÿÿÿ   THEN error := proc;ÿÿÿÿÿÿÿÿÿ        error CAT "LENGTH a (";        IF a.lng <= 0ÿÿÿÿÿÿÿÿÿÿ.        THEN error CAT "undefined"ÿÿÿÿÿÿÿÿÿÿÿÿÿ.        ELSE error CAT text (a.lng) FI;ÿÿÿÿÿÿÿÿ.        error CAT ") <> LENGTH b (";ÿÿÿÿÿÿÿÿÿÿÿ        error CAT text (b.lng);        error CAT ")";ÿÿÿÿÿÿÿÿÿ        errorstop (error)ÿÿÿÿÿÿ END PROC test;. PROC get (VECTOR VAR v, INT CONST lng) :ÿÿÿÿÿÿ   v.lng := lng;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   v.elem := lng * "12345678";ÿ   FOR i FROM 1 UPTO lngÿÿÿÿÿÿÿ   REP get (x);       replace (v.elem, i, x)ÿÿ> PROC put (VECTOR CONST v, INT CONST length, fracs) :ÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ>   REP put (text (v.elem RSUB i, length, fracs)) PERÿÿÿÿÿÿÿÿÿÿÿ PROC put (VECTOR CONST v) :ÿÿÿ   FOR i FROM 1 UPTO v.lngÿÿÿÿÿ.   REP put (text (v.elem RSUB i)) PERÿÿÿÿÿÿÿÿÿÿ END PACKET vector;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (*************************************************************************)ÿÿÿN (*** AT-spezifische Software, die zum Lesen der Hardwareuhr und        ***)ÿÿÿN (*** Booten in anderen Partitionen benÚtigt wird.                      ***)ÿÿÿN (***                                                                   ***)ÿÿÿN (*** Zusammengestellt und geÙndert : Werner Sauerwein, GMD             ***)ÿÿÿN (***                         Stand : 31.10.86                          ***)ÿÿÿN (*************************************************************************)ÿÿÿN PACKET splitting DEFINES  low byte,     (* Copyright (C) 1985       *)ÿÿÿÿÿÿÿÿN                           high byte,    (* Martin SchÚnbeck, Spenge *)ÿÿÿÿÿÿÿÿN                           low word,     (* Stand: 13.09.85          *)ÿÿÿÿÿÿÿÿ.                           high word: ÿÿÿÿÿÿÿÿÿ. INT PROC high byte (INT CONST value):ÿÿÿÿÿÿÿÿÿ     TEXT VAR x := "  ";ÿÿÿÿÿÿÿ     replace (x, 1, value);ÿÿÿÿ     code (x SUB 2)ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC high byte;ÿÿÿÿÿÿÿÿÿÿÿ. INT PROC low byte (INT CONST value):ÿÿÿÿÿÿÿÿÿÿ     TEXT VAR x := "  ";ÿÿÿÿÿÿÿ     replace (x, 1, value);ÿÿÿÿ     code (x SUB 1)ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC low byte; ÿÿÿÿÿÿÿÿÿÿÿ> INT PROC high word (REAL CONST double precission int):ÿÿÿÿÿÿÿÿ.     int (double precission int / 65536.0)ÿÿÿÿÿ END PROC high word;ÿÿÿÿÿÿÿÿÿÿÿ> INT PROC low word (REAL CONST double precission int): ÿÿÿÿÿÿÿÿ.     string of low bytes ISUB 1.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ string of low bytes:ÿÿÿÿÿÿÿÿÿÿ>     code (int (double precission int MOD 256.0)) +ÿÿÿÿÿÿÿÿÿÿÿÿ>     code (int ((double precission int MOD 65536.0) / 256.0)).  END PROC low word; ÿÿÿÿÿÿÿÿÿÿÿ END PACKET splitting;ÿÿÿÿÿÿÿÿÿ PACKET basic block io DEFINESÿ   write block:. PROC read block (DATASPACE VAR ds,ÿÿÿÿÿÿÿÿÿÿÿÿ.                  INT CONST ds page no, ÿÿÿÿÿÿÿ.                  INT CONST block no,ÿÿÿÿÿÿÿÿÿÿ.                  INT VAR return code):ÿÿÿÿÿÿÿÿ   read block;    retry if read error.ÿÿÿÿÿÿÿÿ>   block in (ds, ds page no, 0, block no, return code).ÿÿÿÿÿÿÿÿ retry if read error: ÿÿÿÿÿÿÿÿÿ   INT VAR retry;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   FOR retry FROM 1 UPTO 10 WHILE return code = 2 REP ÿÿÿÿÿÿÿÿÿ.     reset to block 0 if fifth try; ÿÿÿÿÿÿÿÿÿÿÿ     read block ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. reset to block 0 if fifth try: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF retry = 5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN block in (ds, ds page no, 0, 0, return code) ÿÿÿÿÿÿÿÿ END PROC read block;ÿÿÿÿÿÿÿÿÿÿ. PROC write block (DATASPACE CONST ds,ÿÿÿÿÿÿÿÿÿ.                  INT CONST ds page no, ÿÿÿÿÿÿÿ.                  INT CONST block no,ÿÿÿÿÿÿÿÿÿÿ.                  INT VAR return code):ÿÿÿÿÿÿÿÿ   write block; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   retry if write error. ÿÿÿÿÿÿ>   block out (ds, ds page no, 0, block no, return code).ÿÿÿÿÿÿÿ retry if write error: ÿÿÿÿÿÿÿÿ   INT VAR retry;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   FOR retry FROM 1 UPTO 10 WHILE return code = 2 REP ÿÿÿÿÿÿÿÿÿ.     reset to block 0 if fifth try; ÿÿÿÿÿÿÿÿÿÿÿ     write block ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. reset to block 0 if fifth try: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF retry = 5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN disable stop;ÿÿÿÿÿÿÿÿ.          DATASPACE VAR dummy ds := nilspace;ÿÿ>          block in (dummy ds, 2, 0, 0, return code);ÿÿÿÿÿÿÿÿÿÿÿ          forget (dummy ds);ÿÿÿ          enable stopÿÿÿÿÿÿÿÿÿÿ END PROC write block; ÿÿÿÿÿÿÿÿ> PROC read block (DATASPACE VAR ds, INT CONST ds page,ÿÿÿÿÿÿÿÿÿ.                  REAL CONST archive block):ÿÿÿ    enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    read block (ds, ds page, archive block, error);ÿÿÿÿÿÿÿÿÿÿÿÿ    INT VAR error;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    SELECT error OFÿÿÿÿÿÿÿÿÿÿÿÿ>       CASE 1: error stop ("Platte kann nicht gelesen werden");N       CASE 2: error stop ("Lesefehler bei Block "+ text (archive block));ÿÿÿÿÿ>       CASE 3: error stop ("Versorgungsfehler Archiv");ÿÿÿÿÿÿÿÿ>       OTHERWISE error stop ("unbekannter Fehler auf Platte");ÿ    END SELECT; END PROC read block;ÿÿÿÿÿÿÿÿÿÿ> PROC write block (DATASPACE CONST ds, INT CONST ds page,ÿÿÿÿÿÿ.                   REAL CONST archive block):ÿÿ    enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    write block (ds, ds page, archive block, error);ÿÿÿÿÿÿÿÿÿÿÿ    INT VAR error;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    SELECT error OFÿÿÿÿÿÿÿÿÿÿÿÿN       CASE 1: error stop ("Platte kann nicht geschrieben werden");ÿÿÿÿÿÿÿÿÿÿÿÿN       CASE 2: error stop ("Schreibfehler bei Block "+ text (archive block));ÿÿ>       CASE 3: error stop ("Versorgungsfehler Archiv");ÿÿÿÿÿÿÿÿ>       OTHERWISE error stop ("unbekannter Fehler auf Platte");ÿ    END SELECT; END PROC write block;ÿÿÿÿÿÿÿÿÿ. PROC read block (DATASPACE VAR ds,ÿÿÿÿÿÿÿÿÿÿÿÿ.                  INT CONST ds page no, ÿÿÿÿÿÿÿ.                  REAL CONST block no,ÿÿÿÿÿÿÿÿÿ.                  INT VAR return code):ÿÿÿÿÿÿÿÿ   read block;    retry if read error.ÿÿÿÿÿÿÿÿ>   block in (ds, ds page no, high word (block no),ÿÿÿÿÿÿÿÿÿÿÿÿÿN                              low word (block no), return code).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ retry if read error: ÿÿÿÿÿÿÿÿÿ   INT VAR retry;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   FOR retry FROM 1 UPTO 10 WHILE return code = 2 REP ÿÿÿÿÿÿÿÿÿ.     reset to block 0 if fifth try; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿmatrixÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    8    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá±a€ëÿÿä äáá è      ÿÿÿÿ       è         è  å >M     ÿÿ   ÿÿÿÿmatrixÿÿÿÿÿÿÿ   ÿÿa€ÿB ÿÿÿÿÿÿÿÿÿÿÿ  äÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿ±€ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
INT VAR i;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP :=;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  IF r.idnÿÿÿÿÿÿÿÿÿÿÿ!†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿidn :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿA†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP :=;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaˆÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáˆÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC idn;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC row;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŠÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  m.columnsÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  m.rowsÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP ROWS;ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‹ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC sub;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ŒÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŒÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Žÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Žÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  THEN FALSEÿÿÿÿÿÿÿÿÿa‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  THEN FALSEÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP =;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‘ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  THEN TRUEÿÿÿÿÿÿÿÿÿÿñ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  THEN TRUEÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP <>;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1’ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  mÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP +;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ’ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ’ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1“ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := l;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿ“ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±“ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP +;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := m;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿ”ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿ     read block ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. reset to block 0 if fifth try: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF retry = 5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN block in (ds, ds page no, 0, 0, return code) ÿÿÿÿÿÿÿÿ END PROC read block;ÿÿÿÿÿÿÿÿÿÿ. PROC write block (DATASPACE CONST ds,ÿÿÿÿÿÿÿÿÿ.                  INT CONST ds page no, ÿÿÿÿÿÿÿ.                  REAL CONST block no,ÿÿÿÿÿÿÿÿÿ.                  INT VAR return code):ÿÿÿÿÿÿÿÿ   write block; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   retry if write error. ÿÿÿÿÿÿ>   block out (ds, ds page no, high word (block no),ÿÿÿÿÿÿÿÿÿÿÿÿN                               low word (block no), return code).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ retry if write error: ÿÿÿÿÿÿÿÿ   INT VAR retry;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   FOR retry FROM 1 UPTO 10 WHILE return code = 2 REP ÿÿÿÿÿÿÿÿÿ.     reset to block 0 if fifth try; ÿÿÿÿÿÿÿÿÿÿÿ     write block ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. reset to block 0 if fifth try: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF retry = 5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN disable stop;ÿÿÿÿÿÿÿÿ.          DATASPACE VAR dummy ds := nilspace;ÿÿ>          block in (dummy ds, 2, 0, 0, return code);ÿÿÿÿÿÿÿÿÿÿÿ          forget (dummy ds);ÿÿÿ          enable stopÿÿÿÿÿÿÿÿÿÿ END PROC write block; ÿÿÿÿÿÿÿÿ END PACKET basic block io;ÿÿÿÿN PACKET utilities DEFINES getchoice, cleol, cleop, inverse, put center:ÿÿÿÿÿÿÿÿ> INT PROC get choice (INT CONST von, bis, TEXT VAR retchar):ÿÿÿ.   get choice (von, bis, von, retchar)ÿÿÿÿÿÿÿÿÿ END PROC get choice;ÿÿÿÿÿÿÿÿÿÿN INT PROC get choice (INT CONST von, bis, zusatz, TEXT VAR retchar):ÿÿÿÿÿÿÿÿÿÿÿ    LET return  = ""13"",ÿÿÿÿÿÿ        escape  = ""27"",ÿÿÿÿÿÿ        left    = ""8"";ÿÿÿÿÿÿÿ    TEXT VAR buffer; ÿÿÿÿÿÿÿÿÿÿ    INT VAR cx, cy;ÿÿÿÿÿÿÿÿÿÿÿÿ.    get cursor (cx, cy); out (" " + left);ÿÿÿÿÿ.          cursor (cx, cy); buffer := incharety;.       UNTIL input ok OR buffer = escape PER; ÿ>       IF buffer = escape THEN retchar := escape;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                               LEAVE get choice WITH 0ÿÿÿÿÿÿÿÿÿ       out (buffer); ÿÿÿÿÿÿÿÿÿÿ.       leseschleife bis left or ret;ÿÿÿÿÿÿÿÿÿÿÿ>       IF retchar = left   THEN out (left + " ") FI;ÿÿÿÿÿÿÿÿÿÿÿ>       IF retchar = escape THEN LEAVE get choice WITH 0 FIÿÿÿÿÿ>    UNTIL retchar = return OR retchar = escape PER;ÿÿÿÿÿÿÿÿÿÿÿÿ    int (buffer). ÿÿÿÿÿÿÿÿÿÿÿÿÿ^ input ok : (buffer >= text (von) AND buffer <= text (bis)) OR buffer = text (zusatz).ÿÿÿÿÿÿÿÿÿ leseschleife bis left or ret:ÿ      inchar (retchar) ÿÿÿÿÿÿÿÿN    UNTIL retchar = return OR retchar = left OR retchar = escape PER.ÿÿÿÿÿÿÿÿÿÿ END PROC get choice;ÿÿÿÿÿÿÿÿÿÿ. PROC cl eol (INT CONST cx, cy): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cursor (cx, cy); ÿÿÿÿÿÿÿÿÿÿ END PROC cl eol; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC cl eop (INT CONST cx, cy): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cursor (cx, cy); ÿÿÿÿÿÿÿÿÿÿ END PROC cl eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ   out (""5"")  END PROC cl eol;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   out (""4"")  END PROC cl eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT PROC inverse (TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿ   ""15"" + t + " " + ""14""ÿÿÿ END PROC inverse; ÿÿÿÿÿÿÿÿÿÿÿÿ. PROC put center (TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put center (t, 80)ÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ> PROC put center (INT CONST zeile, TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put center (zeile, t, 80)ÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ> PROC put center (TEXT CONST t, INT CONST gesamtbreite):ÿÿÿÿÿÿÿ    INT VAR cy;    get cursor (cy, cy);ÿÿÿÿÿÿÿ.    put center (cy, t, gesamtbreite)ÿÿÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿN PROC put center (INT CONST zeile, TEXT CONST t, INT CONST gesamtbreite):ÿÿÿÿÿÿ>    cursor ((gesamtbreite - length (t)) DIV 2, zeile);ÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ END PACKET utilitiesÿÿÿÿÿÿÿÿÿÿ> PACKET part DEFINES activate, show actual partition table:ÿÿÿÿN                                            (* Copyright (C) 1985       *)ÿÿÿÿÿN                                            (* Martin SchÚnbeck, Spenge *)ÿÿÿÿÿN                                            (* Stand      : 02.02.86    *)ÿÿÿÿÿN                                            (* Changed by : W.Sauerwein *)ÿÿÿÿÿN                                            (*              I.Ley       *)ÿÿÿÿÿN                                            (* Stand      : 03.10.86    *) ÿÿÿÿ.     LET fd channel           = 28;ÿÿÿÿÿÿÿÿÿÿÿÿ ROW 256 INT VAR boot block;ÿÿÿ. INT VAR boot block session := session - 1;ÿÿÿÿ PROC get boot block:ÿÿÿÿÿÿÿÿÿÿ.     IF boot block session <> sessionÿÿÿÿÿÿÿÿÿÿ.        THEN hole aktuellen boot blockÿÿÿÿÿÿÿÿÿ hole aktuellen boot block:ÿÿÿÿ     disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     DATASPACE VAR dummy ds := nilspace;ÿÿÿÿÿÿÿ.     BOUND STRUCT (ALIGN dummy, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                   ROW 256 INT block) VAR partition table := dummy ds; ÿÿÿÿÿÿÿÿ>     get external block (dummy ds, 2, 0, fd channel); ÿÿÿÿÿÿÿÿÿ     IF NOT is errorÿÿÿÿÿÿÿÿÿÿÿ.         THEN transfer data to boot blockÿÿÿÿÿÿ     forget (dummy ds). ÿÿÿÿÿÿÿ transfer data to boot block:ÿÿ     IF not valid boot blockÿÿÿ>         THEN try to get valid boot block from fileÿÿÿÿÿÿÿÿÿÿÿÿ.     boot block := partition table. block;ÿÿÿÿÿ.     boot block session := session.ÿÿÿÿÿÿÿÿÿÿÿÿ not valid boot block:ÿÿÿÿÿÿÿÿÿ>     partition table. block [256] <> boot indicator ORÿÿÿÿÿÿÿÿÿ.     it is an old boot block of eumel.ÿÿÿÿÿÿÿÿÿ boot indicator: -21931.ÿÿÿÿÿÿÿ. it is an old boot block of eumel:ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     partition table. block [1] = 1514.ÿÿÿÿÿÿÿÿ. try to get valid boot block from file:ÿÿÿÿÿÿÿÿ     forget (dummy ds);ÿÿÿÿÿÿÿÿ.     partition table := old ("bootblock");ÿÿÿÿÿ>     IF is error THEN LEAVE transfer data to boot block FI.ÿÿÿÿ END PROC get boot block;ÿÿÿÿÿÿ PROC put boot block:ÿÿÿÿÿÿÿÿÿÿ     IF boot block ist uptodate.         THEN schreibe block auf platteÿÿÿÿÿÿÿÿ>         ELSE errorstop ("boot block nicht uptodate")ÿÿÿÿÿÿÿÿÿÿ boot block ist uptodate:ÿÿÿÿÿÿ.     boot block session = session.ÿÿÿÿÿÿÿÿÿÿÿÿÿ schreibe block auf platte:ÿÿÿÿ     disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     DATASPACE VAR dummy ds := nilspace;ÿÿÿÿÿÿÿ.     BOUND STRUCT (ALIGN dummy, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                   ROW 256 INT block) VAR partition table := dummy ds; ÿÿÿÿÿÿÿÿ.     transfer data to dataspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     put external block (dummy ds, 2, 0, fd channel); ÿÿÿÿÿÿÿÿÿ     forget (dummy ds). ÿÿÿÿÿÿÿ transfer data to dataspace:ÿÿÿ.     partition table. block := boot block.ÿÿÿÿÿ END PROC put boot block;ÿÿÿÿÿÿ. INT PROC partition type (INT CONST partition):>     low byte (boot block [entry (partition) + 2])ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC partition type;ÿÿÿÿÿÿ> REAL PROC partition start (INT CONST partition):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     unsigned low word + high word.ÿÿÿÿÿÿÿÿÿÿÿÿ unsigned low word:ÿÿÿÿÿÿÿÿÿÿÿÿ>     real (low byte (boot block [entry (partition) + 4])) +ÿÿÿÿN     real (high byte (boot block [entry (partition) + 4])) * 256.0.ÿÿÿÿÿÿÿÿÿÿÿÿ.     real (boot block [entry (partition) + 5]). END PROC partition start;ÿÿÿÿÿ> INT PROC partition word 0 (INT CONST partition):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    boot block (entry (partition))ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC partition word 0;ÿÿÿÿ. INT PROC first track (INT CONST partition):ÿÿÿ>     high byte (boot block [entry (partition) + 1]) ÿÿÿÿÿÿÿÿÿÿÿN     + 4 * (low byte (boot block [entry (partition) + 1]) AND (128 + 64)) ÿÿÿÿÿ END PROC first track;ÿÿÿÿÿÿÿÿÿ. INT PROC last track (INT CONST partition):ÿÿÿÿ>     high byte (boot block [entry (partition) + 3]) ÿÿÿÿÿÿÿÿÿÿÿN     + 4 * (low byte (boot block [entry (partition) + 3]) AND (128 + 64)) ÿÿÿÿÿ END PROC last track;ÿÿÿÿÿÿÿÿÿÿ> BOOL PROC partition activ (INT CONST partition):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     low byte (boot block [entry (partition)]) = 128ÿÿÿÿÿÿÿÿÿÿÿ END PROC partition activ;ÿÿÿÿÿ> REAL PROC partition size (INT CONST partition):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     unsigned low word + high word.ÿÿÿÿÿÿÿÿÿÿÿÿ unsigned low word:ÿÿÿÿÿÿÿÿÿÿÿÿ>     real (low byte (boot blockÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP -;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq”ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡”ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá”ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := l;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿ1•ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP -;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡•ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ m*xÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ•ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := m;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿ–ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq–ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡–ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ–ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿA—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa—ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  result  .ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡—ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ—ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!˜ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿq˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘˜ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  result  .ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ˜ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ˜ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ™ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!šÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      PERÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  a  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±šÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿstore row :ÿÿÿÿÿÿÿÿÿÿ±›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ›ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC get;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘œÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁœÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PERÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC put;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      PER;ÿÿÿÿÿÿÿÿÿÿÿAžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PERÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC put;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿažÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1 ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  IF i < 1ÿÿÿÿÿÿÿÿÿÿÿq ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ELIF i > nÿÿÿÿÿÿÿÿÿ!¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¡ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¡ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  transp (a);ÿÿÿÿÿÿÿÿÿÿ  aÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := m;ÿÿÿÿÿÿÿÿÿÿÿÿ1£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ£ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
position :ÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  IF k > nÿÿÿÿÿÿÿÿÿÿÿ!¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  k  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¤ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := m;ÿÿÿÿÿÿÿÿÿÿÿÿ‘¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¤ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF n <> kÿÿÿÿÿÿÿÿÿÿñ¤ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¥ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¥ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¦ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  a  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¦ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF pos > jÿÿÿÿÿÿÿÿÿA§ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq§ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá§ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¨ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¨ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	       FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ©ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ªÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP INV;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ«ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  a := m;ÿÿÿÿÿÿÿÿÿÿÿÿ‘«ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¬ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¬ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      FI; ÿÿÿÿÿÿÿÿÿÿÿ¡¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±­ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ­ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      PERÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ®ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡®ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP DET;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¯ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¯ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿá¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1°ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa°ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ°ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq±ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ^ÿÿÿÿÿÿÿÿÿÿÿÿN PACKET matrix DEFINES MATRIX, matrix, idn,  (* Stand : 16.06.86 wk   *)ÿÿÿÿÿÿÿN                       :=, sub,              (* Autor : H.Indenbirken *)ÿÿÿÿÿÿÿ.                       row, column,ÿÿÿÿÿÿÿÿÿÿÿÿ                       COLUMNS,                       ROWS,ÿÿÿ                       DET, ÿÿÿ                       INV, ÿÿÿ [entry (partition) + 6])) +ÿÿÿÿN     real (high byte (boot block [entry (partition) + 6])) * 256.0.ÿÿÿÿÿÿÿÿÿÿÿÿ.     real (boot block [entry (partition) + 7]). END PROC partition size;ÿÿÿÿÿÿ INT PROC tracks: ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    get value (-10, fd channel) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC tracks; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC activate (INT CONST part type):ÿÿÿÿÿÿÿÿÿÿ>     IF partition type exists AND is possible typeÿÿÿÿÿÿÿÿÿÿÿÿÿ.          THEN deactivate all partitions andÿÿÿ.               activate desired partitionÿÿÿÿÿÿN          ELSE errorstop ("GewÛnschte Partitionart gibt es nicht")ÿÿÿÿÿÿÿÿÿÿÿÿÿ is possible type:ÿÿÿÿÿÿÿÿÿÿÿÿÿ    part type > 0 ANDÿÿÿÿÿÿÿÿÿÿ    part type < 256.ÿÿÿÿÿÿÿÿÿÿÿ partition type exists:ÿÿÿÿÿÿÿÿ     INT VAR partition;ÿÿÿÿÿÿÿÿ.     FOR partition FROM 1 UPTO 4 REPÿÿÿÿÿÿÿÿÿÿÿ>          IF partition type (partition) = part type ÿÿÿÿÿÿÿÿÿÿÿ>              THEN LEAVE partition type exists WITH TRUEÿÿÿÿÿÿÿ> deactivate all partitions and activate desired partition:ÿÿÿÿÿ.     FOR partition FROM 1 UPTO 4 REPÿÿÿÿÿÿÿÿÿÿÿ.          deactivate this partition;ÿÿÿÿÿÿÿÿÿÿÿ>          IF partition type (partition) = part typeÿÿÿÿÿÿÿÿÿÿÿÿ.               THEN activate partitionÿÿÿÿÿÿÿÿÿ     put boot block.ÿÿÿÿÿÿÿÿÿÿÿ deactivate this partition:ÿÿÿÿ>     set bit (boot block [entry (partition)], 7);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     (* first setting needed, because reset bit does xor *)ÿÿÿÿ>     reset bit (boot block [entry (partition)], 7).ÿÿÿÿÿÿÿÿÿÿÿÿ activate partition:ÿÿÿÿÿÿÿÿÿÿÿ>     set bit (boot block [entry (partition)], 7)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC activate;ÿÿÿÿÿÿÿÿÿÿÿÿ. INT PROC entry (INT CONST partition):ÿÿÿÿÿÿÿÿÿ     get boot block;ÿÿÿÿÿÿÿÿÿÿÿ.     256 - 5 * 8 + (partition * 8)ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC entry;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN INT PROC get value (INT CONST control code, channel for value): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     enable stop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     INT VAR old channel := channel;ÿÿÿÿÿÿÿÿÿÿÿ.     continue (channel for value); ÿÿÿÿÿÿÿÿÿÿÿÿ     INT VAR value; ÿÿÿÿÿÿÿÿÿÿÿ.     control (control code, 0, 0, value); ÿÿÿÿÿ     continue (old channel); ÿÿ END PROC get value; ÿÿÿÿÿÿÿÿÿÿ> PROC get external block (DATASPACE VAR ds, INT CONST ds page,ÿN                                              archive block, get channel):ÿÿÿÿÿ.    INT VAR old channel := channel; ÿÿÿÿÿÿÿÿÿÿÿ    continue (get channel);ÿÿÿÿ    disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    read block (ds, ds page, archive block, error);ÿÿÿÿÿÿÿÿÿÿÿÿ    INT VAR error;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    SELECT error OFÿÿÿÿÿÿÿÿÿÿÿÿ>       CASE 1: error stop ("Platte kann nicht gelesen werden");N       CASE 2: error stop ("Lesefehler bei Block "+ text (archive block));ÿÿÿÿÿ>       CASE 3: error stop ("Versorgungsfehler Archiv");ÿÿÿÿÿÿÿÿ>       OTHERWISE error stop ("unbekannter Fehler auf Platte");ÿ    END SELECT;    continue (old channel).ÿÿÿÿ END PROC get external block;ÿÿN PROC put external block (DATASPACE CONST ds, INT CONST ds page,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                              archive block, get channel):ÿÿÿÿÿ.    INT VAR old channel := channel; ÿÿÿÿÿÿÿÿÿÿÿ    continue (get channel);ÿÿÿÿ    disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    write block (ds, ds page, archive block, error);ÿÿÿÿÿÿÿÿÿÿÿ    INT VAR error;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    SELECT error OFÿÿÿÿÿÿÿÿÿÿÿÿN       CASE 1: error stop ("Platte kann nicht geschrieben werden");ÿÿÿÿÿÿÿÿÿÿÿÿN       CASE 2: error stop ("Schreibfehler bei Block "+ text (archive block));ÿÿ>       CASE 3: error stop ("Versorgungsfehler Archiv");ÿÿÿÿÿÿÿÿ>       OTHERWISE error stop ("unbekannter Fehler auf Platte");ÿ    END SELECT;    continue (old channel).ÿÿÿÿ END PROC put external block;ÿÿN (**************************************************************************)ÿÿN    LET                           max partitions           =   4;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    ROW max partitions INT  VAR   part list;ÿÿÿ>    ROW max partitions INT  VAR   part type, part active,ÿÿÿÿÿÿN                                  part first track, part last track;ÿÿÿÿÿÿÿÿÿÿÿ.    ROW max partitions REAL VAR   part start,ÿÿ.                                  part size;ÿÿÿ.                       INT  VAR   zylinder,ÿÿÿÿN                                  startzeile tabelle      ::   1,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                                  active partition,ÿÿÿÿÿÿÿÿÿÿÿÿ.                                  partitions,ÿÿ>                                  partition, i, j, help;ÿÿÿÿÿÿÿ.                                  ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC get actual partition data :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    get boot block;ÿÿÿÿÿÿÿÿÿÿÿÿ    zylinder := tracks;ÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO max partitions REPÿÿÿÿÿÿÿ>       part type        (i) := partition type (i);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.       part first track (i) := first track (i);.       part last track  (i) := last track (i);ÿ>       part start       (i) := partition start (i);ÿÿÿÿÿÿÿÿÿÿÿÿ>       part size        (i) := partition size (i);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>       part active      (i) := partition word 0 (i);ÿÿÿÿÿÿÿÿÿÿÿ>       IF partition activ (i) THEN active partition := i FIÿÿÿÿ.    get number of installed partitions;ÿÿÿÿÿÿÿÿ    generate part list.ÿÿÿÿÿÿÿÿ. get number of installed partitions :ÿÿÿÿÿÿÿÿÿÿ    partitions := 0;ÿÿÿÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO max partitions REPÿÿÿÿÿÿÿ>      IF part type (i) <> 0 THEN partitions INCR 1 FIÿÿÿÿÿÿÿÿÿÿ generate part list :ÿÿÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO max partitions REPÿÿÿÿÿÿÿ>       IF part type (i) <> 0 THEN part list (i) := iÿÿÿÿÿÿÿÿÿÿÿ>                             ELSE part list (i) := 0ÿÿÿÿÿÿÿÿÿÿÿ    schiebe nullen nach hinten;    sort part list.ÿÿÿÿÿÿÿÿÿÿÿÿ schiebe nullen nach hinten :ÿÿ    i := 1; INT VAR k := 0;ÿÿÿÿ    REP k INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        IF part list (i) = 0 THEN circleÿÿÿÿÿÿÿ.                             ELSE i INCR 1ÿÿÿÿÿ.    UNTIL k = max partitions - 1 PER.ÿÿÿÿÿÿÿÿÿÿ.    FOR j FROM i UPTO max partitions - 1 REPÿÿÿ.       part list (j) := part list (j + 1)ÿÿÿÿÿÿ.    part list (max partitions) := 0.ÿÿÿÿÿÿÿÿÿÿÿ sort part list :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    FOR i FROM 2 UPTO partitions REPÿÿÿÿÿÿÿÿÿÿÿ.       FOR j FROM 1 UPTO i - 1 REPÿÿÿÿÿÿÿÿÿÿÿÿÿ^           IF part first track (part list (i)) < part first track (part list (j))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ              THEN tausche FIÿÿ    help := part list (i);ÿÿÿÿÿ.    part list (i) := part list (j);ÿÿÿÿÿÿÿÿÿÿÿÿ    part list (j) := help.ÿÿÿÿÿ. END PROC get actual partition data;ÿÿÿÿÿÿÿÿÿÿÿ PROC show partition table :ÿÿÿ    devide table;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    underlines;.    cl eop (1, startzeile tabelle);ÿÿÿÿÿÿÿÿÿÿÿÿ>    put center (inverse ("                       "ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                       + "Aktuelle Partitions - Tabelle"ÿÿÿÿÿÿÿ>                       + "                       ")).ÿÿÿÿÿÿÿÿÿÿ devide table :    FOR i FROM 1 UPTO 8ÿÿÿÿÿÿÿÿ>       cursor (50, startzeile tabelle + i); out (inverse (""))ÿ.    cursor ( 1, startzeile tabelle + 2);ÿÿÿÿÿÿÿ>    out (" Nr. System    Typ-Nr. Zustand GrÚûe Start Ende");ÿÿÿ.    cursor (54, startzeile tabelle + 2);ÿÿÿÿÿÿÿ.    out ("PlattengrÚûe / Zylinder ").ÿÿÿÿÿÿÿÿÿÿ.    cursor ( 1, startzeile tabelle + 3);ÿÿÿÿÿÿÿ>    out ("-------------------------------------------------");ÿ.    cursor (52, startzeile tabelle + 3);ÿÿÿÿÿÿÿ.    out ("--------------------------").ÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO max partitionsÿÿÿÿÿÿÿÿÿÿÿ.    REP cursor (2, startzeile tabelle + 3 + i);        put (text (i) + " :")ÿÿ.    cursor (1, startzeile tabelle + 9);ÿÿÿÿÿÿÿÿ.    put center (inverse (75 * " ")).ÿÿÿÿÿÿÿÿÿÿÿ END PROC show partition table; PROC update table :ÿÿÿÿÿÿÿÿÿÿÿ    get actual partition data;ÿ>    FOR i FROM 1 UPTO partitions REP update partition PER;ÿÿÿÿÿN    FOR i FROM partitions + 1 UPTO max partitions REP rubout partition PER;ÿÿÿÿ    zeige plattengroesse.ÿÿÿÿÿÿ update partiti                       TRANSP,                        transp,ÿ>                       replace row, replace column,ÿÿÿÿÿÿÿÿÿÿÿÿ.                       replace element,ÿÿÿÿÿÿÿÿ.                       get, put,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                       =, <>,ÿÿ.                       +, -, * :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> TYPE MATRIX = STRUCT (INT rows, columns, VECTOR elems);ÿÿÿÿÿÿÿN TYPE INITMATRIX = STRUCT (INT rows, columns, REAL value, BOOL idn);ÿÿÿÿÿÿÿÿÿÿÿ MATRIX VAR a :: idn (1);ÿÿÿÿÿÿN (****************************************************************************ÿ PROC dump (MATRIX CONST m) :ÿÿN   put line (text (m.rows) + " Reihen, " + text (m.columns) + " Spalten.");ÿÿÿÿ   dump (m.elems)  .ÿÿÿÿÿÿÿÿÿÿÿ END PROC dump;N ****************************************************************************)ÿ. OP := (MATRIX VAR l, MATRIX CONST r) :ÿÿÿÿÿÿÿÿ   CONCR (l) := CONCR (r);ÿÿÿÿÿ. OP := (MATRIX VAR l, INITMATRIX CONST r) :ÿÿÿÿ   l.rows    := r.rows;ÿÿÿÿÿÿÿÿ   l.columns := r.columns;ÿÿÿÿÿ>   l.elems   := vector (r.rows*r.columns, r.value);ÿÿÿÿÿÿÿÿÿÿÿÿ   THEN idn FI  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO r.rowsÿÿÿÿ>   REP replace (l.elems, calc pos (l.columns, i, i), 1.0) PERÿÿN INITMATRIX PROC matrix (INT CONST rows, columns, REAL CONST value) :ÿÿÿÿÿÿÿÿÿÿ   IF rows <= 0.   THEN errorstop ("PROC matrix : rows <= 0")ÿÿ   ELIF columns <= 0ÿÿÿÿÿÿÿÿÿÿÿ>   THEN errorstop ("PROC matrix : columns <= 0") FI;ÿÿÿÿÿÿÿÿÿÿÿ.   INITMATRIX : (rows, columns, value, FALSE)ÿÿ END PROC matrix;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> INITMATRIX PROC matrix (INT CONST rows, columns) :ÿÿÿÿÿÿÿÿÿÿÿÿ   matrix (rows, columns, 0.0)ÿ END PROC matrix;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INITMATRIX PROC idn (INT CONST size) :ÿÿÿÿÿÿÿÿ   IF size <= 0>   THEN errorstop ("MATRIX PROC idn : size <= 0") FI;ÿÿÿÿÿÿÿÿÿÿ.   INITMATRIX : (size, size, 0.0, TRUE)ÿÿÿÿÿÿÿÿ> VECTOR PROC row (MATRIX CONST m, INT CONST i) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   VECTOR VAR v :: vector (m.columns);ÿÿÿÿÿÿÿÿÿ.   INT VAR j, k :: 1, pos :: (i-1) * m.columns;.   FOR j FROM pos+1 UPTO pos + m.columnsÿÿÿÿÿÿÿ.   REP replace (v, k, m.elems SUB j);ÿÿÿÿÿÿÿÿÿÿ       k INCR 1> VECTOR PROC column (MATRIX CONST m, INT CONST j) :ÿÿÿÿÿÿÿÿÿÿÿÿ.   VECTOR VAR v :: vector (m.rows);ÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR i, k :: j;ÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO m.rowsÿÿÿÿ.   REP replace (v, i, m.elems SUB k);ÿÿÿÿÿÿÿÿÿÿ       k INCR m.columnsÿÿÿÿÿÿÿÿ END PROC column;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT OP COLUMNS (MATRIX CONST m) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ END OP COLUMNS;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ INT OP ROWS (MATRIX CONST m) :> REAL PROC sub (MATRIX CONST a, INT CONST row, column) :ÿÿÿÿÿÿÿ>   a.elems SUB calc pos (a.columns, row, column)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC replace row (MATRIX VAR m, INT CONST rowindex, VECTOR CONST rowvalue) :ÿÿ>   test ("PROC replace row : ", "LENGTH rowvalue", "COLUMNS m",.         LENGTH rowvalue, m.columns);ÿÿÿÿÿÿÿÿÿÿ>   test ("PROC replace row : row ", rowindex, m.rows);ÿÿÿÿÿÿÿÿÿ.   INT VAR i, pos :: (rowindex-1) * m.columns;ÿ   FOR i FROM 1 UPTO m.columnsÿ>   REP replace (m.elems, pos+i, rowvalue SUB i) PERÿÿÿÿÿÿÿÿÿÿÿÿ END PROC replace row;ÿÿÿÿÿÿÿÿÿ> PROC replace column (MATRIX VAR m, INT CONST columnindex,ÿÿÿÿÿ>                      VECTOR CONST columnvalue) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   test ("PROC replace column : ", "LENGTH columnvalue", "ROWS m",ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         LENGTH columnvalue, m.rows);ÿÿÿÿÿÿÿÿÿÿN   test ("PROC replace column : column ", columnindex, m.columns);ÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO m.rowsÿÿÿÿ>   REP replace (m.elems, calc pos (m.columns, i, columnindex),ÿ.                columnvalue SUB i) PERÿÿÿÿÿÿÿÿÿ END PROC replace column;ÿÿÿÿÿÿN PROC replace element (MATRIX VAR a, INT CONST row, column, REAL CONST x) :ÿÿÿÿ>   test ("PROC replace element : row ", row, a.rows);ÿÿÿÿÿÿÿÿÿÿ>   test ("PROC replace element : column ", column, a.columns);ÿ>   replace (a.elems, calc pos (a.columns, row, column), x)ÿÿÿÿÿ END PROC replace element;ÿÿÿÿÿ. BOOL OP = (MATRIX CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF l.rows <> r.rowsÿÿÿÿÿÿÿÿÿ   ELIF l.columns <> r.columnsÿ   ELSE l.elems = r.elems FIÿÿÿ. BOOL OP <> (MATRIX CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF l.rows <> r.rowsÿÿÿÿÿÿÿÿÿ   ELIF l.columns <> r.columnsÿ   ELSE l.elems <> r.elems FIÿÿ. INT PROC calc pos (INT CONST columns, z, s) :ÿ  (z-1) * columns + sÿÿÿÿÿÿÿÿÿÿ END PROC calc pos;ÿÿÿÿÿÿÿÿÿÿÿÿ MATRIX OP + (MATRIX CONST m) :. MATRIX OP + (MATRIX CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   test ("MATRIX OP + : ", "ROWS l", "ROWS r", l.rows, r.rows);N   test ("MATRIX OP + : ", "COLUMNS l", "COLUMNS r", l.columns, r.columns);ÿÿÿÿ.   FOR i FROM 1 UPTO l.rows * l.columnsÿÿÿÿÿÿÿÿ>   REP replace (a.elems, i, (l.elems SUB i) + (r.elems SUB i))ÿ MATRIX OP - (MATRIX CONST m) :.   FOR i FROM 1 UPTO m.rows * m.columnsÿÿÿÿÿÿÿÿ.   REP replace (a.elems, i, -a.elems SUB i)ÿÿÿÿ. MATRIX OP - (MATRIX CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   test ("MATRIX OP - : ", "ROWS l", "ROWS r", l.rows, r.rows);N   test ("MATRIX OP - : ", "COLUMNS l", "COLUMNS r", l.columns, r.columns);ÿÿÿÿ.   FOR i FROM 1 UPTO l.rows * l.columnsÿÿÿÿÿÿÿÿ>   REP replace (a.elems, i, (l.elems SUB i) - (r.elems SUB i))ÿ. MATRIX OP * (REAL CONST x, MATRIX CONST m) :ÿÿ. MATRIX OP * (MATRIX CONST m, REAL CONST x) :ÿÿ.   FOR i FROM 1 UPTO m.rows * m.columnsÿÿÿÿÿÿÿÿ>   REP replace (a.elems, i, x*m.elems SUB i) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. VECTOR OP * (VECTOR CONST v, MATRIX CONST m) :N   test ("VECTOR OP * : ", "LENGTH v", "ROWS m", LENGTH v, m.rows);ÿÿÿÿÿÿÿÿÿÿÿÿN   VECTOR VAR result :: vector (m.columns);                       (*wk*)ÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO m.columnsÿ>   REP replace (result, i, v * column (m, i)) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. VECTOR OP * (MATRIX CONST m, VECTOR CONST v) :N   test ("VECTOR OP * : ", "COLUMNS m", "LENGTH v", COLUMNS m, LENGTH v);ÿÿÿÿÿÿN   VECTOR VAR result :: vector (m.rows);                          (*wk*)ÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO m.rows ÿÿÿ.   REP replace (result, i, row (m, i) * v) PER;. MATRIX OP * (MATRIX CONST l, r) :ÿÿÿÿÿÿÿÿÿÿÿÿÿN   test ("MATRIX OP * : ","COLUMNS l","ROWS r", l.columns, r.rows);ÿÿÿÿÿÿÿÿÿÿÿÿ   a.rows := l.rows;ÿÿÿÿÿÿÿÿÿÿÿ   a.columns := r.columns;ÿÿÿÿÿ.   a.elems := vector (a.rows*a.columns)ÿÿÿÿÿÿÿÿ   INT VAR i, j;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO a.rowsÿÿÿÿ.   REP FOR j FROM 1 UPTO a.columnsÿÿÿÿÿÿÿÿÿÿÿÿÿ>       REP VECTOR VAR rl :: row (l, i), cr :: column (r, j);ÿÿÿN           replace (a.elems, calc pos (a.columns, i, j), rl * cr)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC get (MATRIX VAR a, INT CONST rows, columns) :ÿÿÿÿÿÿÿÿÿÿÿÿ   a := matrix (rows,columns);ÿ   INT VAR i, j;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   VECTOR VAR v;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO rowsÿÿÿÿÿÿ   REP get (v, columns);ÿÿÿÿÿÿÿ       store rowÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR j FROM 1 UPTO a.columnsÿ>   REP replace (a.elems, calc pos (a.columns, i, j), v SUB j)ÿÿ> PROC put (MATRIX CONST a, INT CONST length, fracs) :ÿÿÿÿÿÿÿÿÿÿ   INT VAR i, j;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO a.rowsÿÿÿÿ.   REP FOR j FROM 1 UPTO a.columnsÿÿÿÿÿÿÿÿÿÿÿÿÿ>       REP put (text (sub (a, i, j), length, fracs)) PER;ÿÿÿÿÿÿ       line (2);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC put (MATRIX CONST a) :ÿÿÿ   INT VAR i, j;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO a.rowsÿÿÿÿ.   REP FOR j FROM 1 UPTO a.columnsÿÿÿÿÿÿÿÿÿÿÿÿÿN       REP TEXT CONST number :: "                 " + text (sub (a, i, j));ÿÿÿÿ>           put (subtext (number, LENGTH number - 15))ÿÿÿÿÿÿÿÿÿÿ       line (2);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR error :: "";ÿÿÿÿÿÿÿÿÿN PROC test (TEXT CONST proc, l text, r text, INT CONST left, right) :ÿÿÿÿÿÿÿÿÿÿ   IF left <> rightÿÿÿÿÿÿÿÿÿÿÿÿ   THEN error := proc;ÿÿÿÿÿÿÿÿÿ        error CAT l text;ÿÿÿÿÿÿ        error CAT " (";ÿÿÿÿÿÿÿÿ        error CAT text (left);ÿ        error CAT ") <> ";ÿÿÿÿÿ        error CAT r text;ÿÿÿÿÿÿ        error CAT " (";ÿÿÿÿÿÿÿÿ        error CAT text (right);        error Con :ÿÿÿÿÿÿÿÿÿÿÿÿ    partition := part list (i);    show partition.ÿÿÿÿÿÿÿÿÿÿÿÿ rubout partition :ÿÿÿÿÿÿÿÿÿÿÿÿ.    cursor (6, startzeile tabelle + 3 + i);ÿÿÿÿ>    out ("                                          ").ÿÿÿÿÿÿÿÿ show partition :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    cursor (6, startzeile tabelle + 3 + i);ÿÿÿÿN    put (name + type + zustand  + groesse + startspur + endspur).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. name : subtext (subtext (part name, 1, 9)ÿÿÿÿÿ.               + "          ", 1, 10).ÿÿÿÿÿÿÿÿÿ> type : text (part type (partition), 5) + "   ".ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> zustand   : IF active partition = partition THEN (" aktiv ")ÿÿ>                                             ELSE ("       ")ÿÿ             FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> startspur : " " + text (part first track (partition), 5).ÿÿÿÿÿ> endspur   :       text (part last track   (partition), 6).ÿÿÿÿ. groesse   :       text (part groesse, 5).ÿÿÿÿÿ zeige plattengroesse :ÿÿÿÿÿÿÿÿ    put gesamt;    put noch freie;ÿÿÿÿÿÿÿÿÿÿÿÿ    put maximaler zwischenraum. put maximaler zwischenraum :ÿÿ.    cursor (54, startzeile tabelle + 6);ÿÿÿÿÿÿÿN    put ("max. zusammenh. : " + text (maximaler zwischenraum, 4)).ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    cursor (54, startzeile tabelle + 4);ÿÿÿÿÿÿÿ>    put ("insgesamt       : " + text (zylinder, 4)).ÿÿÿÿÿÿÿÿÿÿÿ put noch freie :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    cursor (54, startzeile tabelle + 5);ÿÿÿÿÿÿÿ>    put ("davon noch frei : " + text (freie zylinder, 4)).ÿÿÿÿÿ part groesse :.    partition groesse (partition).ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    SELECT part type (partition) OFÿÿÿÿÿÿÿÿÿÿÿÿ.      CASE              1 : "DOS"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      CASE 69, 70, 71, 72 : "EUMEL"ÿÿÿÿÿÿÿÿÿÿÿÿ.      OTHERWISE text (part type (partition))ÿÿÿ    END SELECT. freie zylinder :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    zylinder - belegte zylinder.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ belegte zylinder :ÿÿÿÿÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO partitions REPÿÿÿÿÿÿÿÿÿÿÿ>       help INCR partition groesse (part list (i))ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC update table;ÿÿÿÿÿÿÿÿ. INT PROC maximaler zwischenraum :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    IF partitions = 0 THEN zylinderÿÿÿÿÿÿÿÿÿÿÿÿ^                      ELSE max (maximaler platz vor und zwischen den partitionen,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                                platz hinter letzter partition)> maximaler platz vor und zwischen den partitionen :ÿÿÿÿÿÿÿÿÿÿÿÿ.    help := platz vor erster partition;ÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO partitions - 1ÿÿÿÿÿÿÿÿÿÿÿN       help := max (help, begin of part i plus 1 - end of part i - 1)ÿÿÿÿÿÿÿÿÿÿ platz vor erster partition :ÿÿ.    part first track (part list (1)).ÿÿÿÿÿÿÿÿÿÿ. platz hinter letzter partition :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    zylinder - part last track (part list (partitions)) - 1.ÿÿÿ begin of part i plus 1 :ÿÿÿÿÿÿ.    part first track (part list (i + 1)).ÿÿÿÿÿÿ end of part i :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    part last track (part list (i)).ÿÿÿÿÿÿÿÿÿÿÿ. END PROC maximaler zwischenraum;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT PROC partition groesse (INT CONST part) :ÿ>    part last track (part) - part first track (part) + 1ÿÿÿÿÿÿÿ END PROC partition groesse;ÿÿÿ. PROC show actual partition table:ÿÿÿÿÿÿÿÿÿÿÿÿÿ    show partition table;ÿÿÿÿÿÿ    update table;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC show actual partition table;ÿÿÿÿÿÿÿÿÿN PROC show actual partition table (ROW max partitions INT VAR typnr):ÿÿÿÿÿÿÿÿÿÿ.    show actual partition table;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO max partitions REPÿÿÿÿÿÿÿ>       typnr (i) := partition type (part list (i))ÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC show actual partition table;ÿÿÿÿÿÿÿÿÿ END PACKET part;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET hw clock DEFINES hw clock:        (* Copyright (C) 1985       *)ÿÿÿÿÿÿÿN                                          (* Martin SchÚnbeck, Spenge *)ÿÿÿÿÿÿÿN LET clock length  = 7,                   (* Stand: 06.11.85          *)ÿÿÿÿÿÿÿ     clock command = 4;ÿÿÿÿÿÿÿÿ BOUND STRUCT (ALIGN dummy,ÿÿÿÿN               ROW clock length INT clock field) VAR clock data;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ REAL PROC hw clock:ÿÿÿÿÿÿÿÿÿÿÿ     disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     get clock;     hw date + hw time.ÿÿÿÿÿÿÿÿ.     DATASPACE VAR ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     clock data := ds;ÿÿÿÿÿÿÿÿÿ>     INT VAR return code, actual channel := channel;ÿÿÿÿÿÿÿÿÿÿÿ     go to shard channel;ÿÿÿÿÿÿ>     blockin (ds, 2, -clock command, 0, return code);ÿÿÿÿÿÿÿÿÿÿ.     IF actual channel = 0 THEN break (quiet)ÿÿ>                           ELSE continue (actual channel)ÿÿÿÿÿÿ     IF return code <> 0 ÿÿÿÿÿÿ>         THEN errorstop ("Keine Hardware Uhr vorhanden");ÿÿÿÿÿÿ     put clock into text;ÿÿÿÿÿÿ     forget (ds).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ put clock into text:ÿÿÿÿÿÿÿÿÿÿ>     TEXT VAR clock text := clock length * "  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     INT VAR i;.     FOR i FROM 1 UPTO clock length REPÿÿÿÿÿÿÿÿ>          replace (clock text, i, clock data. clock field [i]); go to shard channel:ÿÿÿÿÿÿÿÿÿÿ     INT VAR retry;ÿÿÿÿÿÿÿÿÿÿÿÿ.     FOR retry FROM 1 UPTO 20 REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         continue (32);ÿÿÿÿÿÿÿÿ         IF is errorÿÿÿÿÿÿÿÿÿÿÿ             THEN clear error;ÿ                  pause (30)ÿÿÿ     UNTIL channel = 32 PER.ÿÿÿ.     date (day + "." + month + "." + year).ÿÿÿÿ. day:    subtext (clock text, 7, 8).ÿÿÿÿÿÿÿÿÿÿÿ. month:  subtext (clock text, 5, 6).ÿÿÿÿÿÿÿÿÿÿÿ. year:   subtext (clock text, 1, 4).ÿÿÿÿÿÿÿÿÿÿÿ.     time (hour + ":" + minute + ":" + second).. hour:   subtext (clock text, 9, 10).ÿÿÿÿÿÿÿÿÿÿ. minute: subtext (clock text, 11, 12).ÿÿÿÿÿÿÿÿÿ. second: subtext (clock text, 13, 14).ÿÿÿÿÿÿÿÿÿ END PROC hw clock;ÿÿÿÿÿÿÿÿÿÿÿÿ END PACKET hw clockÿÿÿÿÿÿÿÿÿÿÿN PACKET old shutup DEFINES old shutup,       (* Copyright (C) 1985       *)ÿÿÿÿN                           old save system:  (* Martin SchÚnbeck, Spenge *)ÿÿÿÿN                                             (* Stand: 06.11.85          *)ÿÿÿÿ. PROC old shutup : shutup END PROC old shutup;ÿ> PROC old save system : save system END PROC old save system;ÿÿ END PACKET old shutup;ÿÿÿÿÿÿÿÿ. PACKET new shutup DEFINES shutup,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                           shutup dialog,ÿÿÿÿÿÿ.                           save system,ÿÿÿÿÿÿÿÿ>                           generate shutup manager,ÿÿÿÿÿÿÿÿÿÿÿÿ>                           generate shutup dialog manager:ÿÿÿÿÿ.     system down (PROC old shutup)ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC shutup;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC shutup (INT CONST new system):ÿÿÿÿÿÿÿÿÿÿÿ     IF new system <> 0ÿÿÿÿÿÿÿÿ.          THEN prepare for new systemÿÿÿÿÿÿÿÿÿÿ.     system down (PROC old shutup).ÿÿÿÿÿÿÿÿÿÿÿÿ prepare for new system:ÿÿÿÿÿÿÿ     activate (new system);ÿÿÿÿ     prepare for rebooting.ÿÿÿÿ prepare for rebooting:ÿÿÿÿÿÿÿÿ.     INT VAR old channel := channel;ÿÿÿÿÿÿÿÿÿÿÿ     continue (32);ÿÿÿÿÿÿÿÿÿÿÿÿ     INT VAR dummy;ÿÿÿÿÿÿÿÿÿÿÿÿ     control (-5, 0, 0, dummy);     break (quiet);ÿÿÿÿÿÿÿÿÿÿÿÿ     continue (old channel).ÿÿÿ END PROC shutup;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC save system:ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     IF yes ("Leere Floppy eingelegt")ÿÿÿÿÿÿÿÿÿ.        THEN system down (PROC old save system) END PROC save system;ÿÿÿÿÿÿÿÿÿ. PROC system down (PROC operation):ÿÿÿÿÿÿÿÿÿÿÿÿ.    BOOL VAR dialogue :: command dialogue;ÿÿÿÿÿ    command dialogue (FALSE);ÿÿ.    command dialogue (dialogue);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF command dialogueÿÿÿÿÿÿÿÿ.       THEN wait for configurator;ÿÿÿÿÿÿÿÿÿÿÿÿÿ            show date;ÿÿÿÿÿÿÿÿÿ>    put ("      Heute ist der"); putline (date);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    put ("      Es ist"); put (time of day); putline ("Uhr");ÿÿ END PROC system down;ÿÿÿÿÿÿÿÿÿ DATASPACE VAR ds := nilspace;ÿ PROC wait for configurator:ÿÿÿ    INT VAR i, receipt;ÿÿÿÿÿÿÿÿ>    FOR i FROM 1 UPTO 20 WHILE configurator exists REPÿÿÿÿÿÿÿÿÿ       pause (30);ÿÿÿÿÿÿÿÿÿÿÿÿÿ       forget (ds);ÿÿÿÿÿÿÿÿÿÿÿÿ       ds := nilspace;ÿÿÿÿÿÿÿÿÿ>       ping pong (configurator, ack, ds, receipt)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    UNTIL receipt >= 0 PER.ÿÿÿÿ configurator exists:ÿÿÿÿÿÿÿÿÿÿAT ")";ÿÿÿÿÿÿÿÿÿ        errorstop (error)ÿÿÿÿÿÿ END PROC test;. PROC test (TEXT CONST proc, INT CONST i, n) :ÿ   THEN error := proc;ÿÿÿÿÿÿÿÿÿ.        error CAT "subscript underflow (";ÿÿÿÿÿ        error CAT text (i);ÿÿÿÿ        error CAT ")";ÿÿÿÿÿÿÿÿÿ        errorstop (error)ÿÿÿÿÿÿ   THEN error := proc;ÿÿÿÿÿÿÿÿÿ.        error CAT "subscript overflow (i=";ÿÿÿÿ        error CAT text (i);ÿÿÿÿ        error CAT ", max=";ÿÿÿÿ        IF n <= 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        THEN error CAT "undefined"ÿÿÿÿÿÿÿÿÿÿÿÿÿ.        ELSE error CAT text (n) FI;ÿÿÿÿÿÿÿÿÿÿÿÿ        error CAT ")";ÿÿÿÿÿÿÿÿÿ        errorstop (error)ÿÿÿÿÿÿ END PROC test;. MATRIX OP TRANSP (MATRIX CONST m) :ÿÿÿÿÿÿÿÿÿÿÿ   MATRIX VAR a :: m;ÿÿÿÿÿÿÿÿÿÿ END OP TRANSP; PROC transp (MATRIX VAR m) :ÿÿ.   INT VAR k :: 1, n :: m.rows*m.columns;ÿÿÿÿÿÿ   FOR i FROM 2 UPTO nÿÿÿÿÿÿÿÿÿ>   REP replace (m.elems, i, a.elems SUB position) PER;ÿÿÿÿÿÿÿÿÿ   a := idn (1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   i := m.rows;   m.rows := m.columns;ÿÿÿÿÿÿÿÿ   m.columns := i  .ÿÿÿÿÿÿÿÿÿÿÿ   k INCR m.columns;ÿÿÿÿÿÿÿÿÿÿÿ   THEN k DECR (n-1) FI;ÿÿÿÿÿÿÿ END PROC transp;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. MATRIX OP INV (MATRIX CONST m) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ROW 32 INT VAR pivots;ÿÿÿÿÿÿ>   INT VAR i, j, k :: ROWS a, n :: COLUMNS a, pos;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   THEN errorstop ("MATRIX OP INV : no square matrix") FI;ÿÿÿÿÿ.   initialisiere die pivotpositionen;ÿÿÿÿÿÿÿÿÿÿ   FOR j FROM 1 UPTO nÿÿÿÿÿÿÿÿÿ   REP pivotsuche (a, j, pos);ÿ.       IF sub (a, pos, pos) = 0.0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>       THEN errorstop ("MATRIX OP INV : singular matrix") FI;ÿÿ.       zeilentausch (a, j, pos);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       merke dir die vertauschung;ÿÿÿÿÿÿÿÿÿÿÿÿÿ       transformiere die matrix   spaltentausch;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. initialisiere die pivotpositionen :ÿÿÿÿÿÿÿÿÿÿÿ   FOR i FROM 1 UPTO nÿÿÿÿÿÿÿÿÿ   REP pivots [i] := i PER  .ÿÿ merke dir die vertauschung :ÿÿ.   THEN INT VAR hi :: pivots [j];ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        pivots [j] := pivots [pos];ÿÿÿÿÿÿÿÿÿÿÿÿ        pivots [pos] := hiÿÿÿÿÿ transformiere die matrix :ÿÿÿÿ.   REAL VAR h := 1.0/sub (a, j, j);ÿÿÿÿÿÿÿÿÿÿÿÿ   FOR k FROM 1 UPTO nÿÿÿÿÿÿÿÿÿ   REP IF k <> jÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       THEN FOR i FROM 1 UPTO n            REP IF i <> jÿÿÿÿÿÿ>                THEN replace element (a, i, k, sub (a, i, k) -ÿN                                      sub (a, i, j)*sub (a, j, k)*h);ÿÿÿÿÿÿÿÿÿÿ                FIÿÿÿÿÿÿÿÿÿÿÿÿÿ            PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FOR k FROM 1 UPTO nÿÿÿÿÿÿÿÿÿ>   REP replace element (a, j, k, -h*sub (a, j, k));ÿÿÿÿÿÿÿÿÿÿÿÿ>       replace element (a, k, j,  h*sub (a, k, j))ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   replace element (a, j, j, h)  .ÿÿÿÿÿÿÿÿÿÿÿÿÿ spaltentausch :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   VECTOR VAR v :: vector (n);ÿ   FOR i FROM 1 UPTO nÿÿÿÿÿÿÿÿÿ   REP FOR k FROM 1 UPTO nÿÿÿÿÿ>       REP replace (v, pivots [k], sub(a, i, k)) PER; ÿÿÿÿÿÿÿÿÿ       replace row (a, i, v) ÿÿ REAL OP DET (MATRIX CONST m) :   IF COLUMNS m <> ROWS mÿÿÿÿÿÿ>   THEN errorstop ("REAL OP DET : no square matrix") FI;ÿÿÿÿÿÿÿ.   INT VAR i, j, k, n :: COLUMNS m, pos;ÿÿÿÿÿÿÿ   REAL VAR merker := 1.0; ÿÿÿÿ   FOR j FROM 1 UPTO nÿÿÿÿÿÿÿÿÿ   REP pivotsuche (a, j, pos);ÿ       IF j<> pos ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         THEN zeilentausch (a, j, pos);ÿÿÿÿÿÿÿÿ.              zeilen tausch merken ÿÿÿÿÿÿÿÿÿÿÿÿ       transformiere die matrix   produkt der pivotelemente  . transformiere die matrix : ÿÿÿ   REAL VAR hp := sub(a,j,j); ÿ   IF hp = 0.0      THEN LEAVE DET WITH 0.0 ÿÿ     ELSE REAL VAR h := 1.0/hp;   FOR i FROM j+1 UPTO nÿÿÿÿÿÿÿ   REP FOR k FROM j+1 UPTO nÿÿÿ>       REP replace element (a, i, k, sub (a, i, k) -ÿÿÿÿÿÿÿÿÿÿÿ>                            sub (a, i, j)*h*sub (a, j, k))ÿÿÿÿÿ produkt der pivotelemente :ÿÿÿ.   REAL VAR produkt :: sub (a, 1, 1);ÿÿÿÿÿÿÿÿÿÿ   FOR j FROM 2 UPTO nÿÿÿÿÿÿÿÿÿ.   REP produkt := produkt * sub (a, j, j) PER;ÿ   a := idn (1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   produkt * merker.ÿÿÿÿÿÿÿÿÿÿÿ zeilen tausch merken: ÿÿÿÿÿÿÿÿ   merker := merker * (-1.0). ÿN PROC pivotsuche (MATRIX CONST a, INT CONST start pos, INT VAR pos) :ÿÿÿÿÿÿÿÿÿÿ>   REAL VAR max :: abs (sub (a, start pos, start pos));ÿÿÿÿÿÿÿÿ   pos := start pos;ÿÿÿÿÿÿÿÿÿÿÿ.   FOR i FROM start pos+1 UPTO COLUMNS aÿÿÿÿÿÿÿ.   REP IF abs (sub (a, i, start pos)) > maxÿÿÿÿ.       THEN max := abs (sub (a, i, start pos));            pos := iÿÿÿÿÿÿÿÿÿÿÿ END PROC pivotsuche;ÿÿÿÿÿÿÿÿÿÿ> PROC zeilentausch (MATRIX VAR a, INT CONST old pos, pos) :ÿÿÿÿ.   VECTOR VAR v := row (a, pos);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   replace row (a, pos, row (a, old pos));ÿÿÿÿÿ.   replace row (a, old pos, v)  .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC zeilentausch;ÿÿÿÿÿÿÿÿ END PACKET matrix;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    TASK VAR configurator := task ("configurator");ÿÿÿÿÿÿÿÿÿÿÿÿ    clear error;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    NOT is niltask (configurator).ÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC wait for configurator;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC generate shutup manager:ÿ.      generate shutup manager ("shutup", 0);ÿÿÿ. END PROC generate shutup manager;ÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC generate shutup manager (TEXT CONST name, INT CONST new system):ÿÿÿÿÿÿÿÿÿ      TASK VAR son;ÿÿÿÿÿÿÿÿÿÿÿÿ      shutup question := name;ÿ.      new system for manager := new system;ÿÿÿÿ.      begin (name, PROC shutup manager, son)ÿÿÿ. END PROC generate shutup manager;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT VAR new system for manager;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR shutup question;ÿÿÿÿÿ PROC shutup manager:ÿÿÿÿÿÿÿÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      command dialogue (TRUE);ÿ         break;         line ;.         IF yes (shutup question)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             THEN clear error;ÿ>                  shutup (new system for manager);ÿÿÿÿÿÿÿÿÿÿÿÿÿ                  pause (300);ÿ END PROC shutup manager;ÿÿÿÿÿÿ PROC shutup dialog:ÿÿÿÿÿÿÿÿÿÿÿ.    show actual partition table (typnr);ÿÿÿÿÿÿÿ       enter part number;ÿÿÿÿÿÿ       get cursor (cx, cy);ÿÿÿÿ>       IF NOT escaped CAND yes (shutup question)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          THEN message;ÿÿÿÿÿÿÿÿ.               shutup (partition type);ÿÿÿÿÿÿÿÿ.               LEAVE shutup dialogÿÿÿÿÿÿÿÿÿÿÿÿÿ shutup question:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF partition nullÿÿÿÿÿÿÿÿÿÿ       THEN "Shutup ausfÛhren"ÿ^       ELSE "Shutup nach Partition mit Typnummer " + text (typnr (partition)) + " ausfÛhren"ÿÿÿ    cl eol (1, cy);ÿÿÿÿÿÿÿÿÿÿÿÿ>    put line ("Bitte auf ENDE - Meldung warten !").ÿÿÿÿÿÿÿÿÿÿÿÿ partition type:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF partition = 0ÿÿÿÿÿÿÿÿÿÿÿ       ELSE typnr (partition)ÿÿ.    LET  startzeile menu  =  12, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         escape           = ""27"",ÿÿÿÿÿÿÿÿÿÿÿÿ.         max partitions   =   4;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    ROW max partitions INT VAR typnr;ÿÿÿÿÿÿÿÿÿÿ    INT VAR partition, cx, cy;ÿ    TEXT VAR retchar.ÿÿÿÿÿÿÿÿÿÿ partition null:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    partition = 0 COR typnr (partition) = 0.ÿÿÿ enter part number :ÿÿÿÿÿÿÿÿÿÿÿ.    cl eop (1, startzeile menu);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN    cursor (54, startzeile menu    ); put ("Abbruch mit <ESC>");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN    cursor (54, startzeile menu + 1); put ("Shutup ohne Wechsel mit <0>");ÿÿÿÿÿ.    cursor ( 1, startzeile menu);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    put ("Zu welcher Partition wollen Sie wechseln :");ÿÿÿÿÿÿÿÿ    get cursor (cx, cy);ÿÿÿÿÿÿÿ       REP cursor (cx, cy);ÿÿÿÿ>           partition := get choice (0, 4, retchar);ÿÿÿÿÿÿÿÿÿÿÿÿ>           IF sure escaped THEN LEAVE shutup dialog FI;ÿÿÿÿÿÿÿÿ       UNTIL NOT escaped PER;ÿÿ>       IF partition <> 0 CAND NOT partition existsÿÿÿÿÿÿÿÿÿÿÿÿÿ          THEN fehler;ÿÿÿÿÿÿÿÿÿ>               put ("Diese Partition gibt es nicht")ÿÿÿÿÿÿÿÿÿÿÿ>    UNTIL partition = 0 OR partition exists PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    cl eol (54, startzeile menu);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    cl eol (54, startzeile menu + 1);ÿÿÿÿÿÿÿÿÿÿ    cl eop (1, cy + 2).ÿÿÿÿÿÿÿÿ partition exists:ÿÿÿÿÿÿÿÿÿÿÿÿÿ    typnr (partition) <> 0.ÿÿÿÿ    retchar = escape.ÿÿÿÿÿÿÿÿÿÿ sure escaped :>    IF escaped THEN cl eop (1, 20); cursor (1, 22);ÿÿÿÿÿÿÿÿÿÿÿÿN                    IF yes ("Shutup-Dialog abbrechen") THEN TRUEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                                       ELSE cl eop (1, 20);ÿÿÿÿN                                                            FALSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                    FIÿÿÿÿÿÿÿÿÿ               ELSE FALSEÿÿÿÿÿÿ    cl eop (1, 20);ÿÿÿÿÿÿÿÿÿÿÿÿ>    put (""7"" + inverse ("FEHLER :")); line (2).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC shutup dialog;ÿÿÿÿÿÿÿ. PROC generate shutup dialog manager:ÿÿÿÿÿÿÿÿÿÿ      TASK VAR son;ÿÿÿÿÿÿÿÿÿÿÿÿ>      begin ("shutup dialog", PROC shutup dialog manager, son)ÿ. END PROC generate shutup dialog manager;ÿÿÿÿÿÿ PROC shutup dialog manager:ÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      command dialogue (TRUE);ÿ         break; line;ÿÿÿÿÿÿÿÿÿÿ         clear error;ÿÿÿÿÿÿÿÿÿÿ.         INT VAR sess := session;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         shutup dialog;ÿÿÿÿÿÿÿÿ>         IF sess <> session THEN pause (300) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC shutup dialog manager;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PACKET new shutupÿÿÿÿÿÿÿÿÿN PACKET config manager with time DEFINES configuration manager ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                         configuration manager with time :ÿÿÿÿÿN                                       (* Copyright (C) 1985       *)ÿÿÿÿÿÿÿÿÿÿN INT VAR old session := 0;             (* Martin SchÚnbeck, Spenge *)ÿÿÿÿÿÿÿÿÿÿN                                       (* Stand: 06.11.85          *)ÿÿÿÿÿÿÿÿÿÿ PROC configuration manager: ÿÿ    configurate;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN    global manager (PROC (DATASPACE VAR, INT CONST, INT CONST, TASK CONST) ÿÿÿÿ>                       configuration manager with time) ÿÿÿÿÿÿÿ. END PROC configuration manager; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC configuration manager with time (DATASPACE VAR ds, INT CONST order, ÿÿÿÿÿN                                       phase, TASK CONST order task): ÿÿÿÿÿÿÿÿÿ     IF old session <> sessionÿ         disable stop;ÿÿÿÿÿÿÿÿÿ         set clock (hw clock); N         set clock (hw clock); (* twice, to avoid all paging delay *) ÿÿÿÿÿÿÿÿÿN         IF is error THEN IF online THEN put error; clear error; pause (100)ÿÿÿ>                                    ELSE clear errorÿÿÿÿÿÿÿÿÿÿÿ         FI FI;.         old session := session;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         set autonom;ÿÿÿÿÿÿÿÿÿÿ>     configuration manager (ds, order, phase, order task); ÿÿÿÿ. END PROC configuration manager with time; ÿÿÿÿ. END PACKET config manager with time;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿlongintÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    @    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÀa€ëÿÿ© ©¦¦ ô      ÿÿÿÿ       ô         ô  ª >M     ÿÿ   ÿÿÿÿlongintÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  ©ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP :=;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqˆÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND  OP < ;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND  OP > ;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Šÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND  OP <=;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND  OP >=;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP  <>;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND  OP = ;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   END SELECTÿÿÿÿÿÿÿÿÿÿ	END OP -;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŒÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŽÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ŽÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP -;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP +;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‘ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ’ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡’ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ’ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	END OP *;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1“ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa“ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP **;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ“ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ”ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1•ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP **; ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq•ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±•ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá•ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC abs;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP DECR;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘–ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ–ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ—ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±—ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA˜ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq˜ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA™ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq™ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡™ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ™ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡šÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑšÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!›ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq›ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá›ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQœÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP DIV;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘œÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC get;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC get;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP INCR;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿažÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±žÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿážÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC int;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŸÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿAT Generatorÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa€ëÿÿ‰  ‰ † †        ÿÿÿÿ                  Š  >M ÿþ    ÿÿ   ÿÿÿÿAT Generatorÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  ‰ ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLET ack = 0,ÿÿÿÿÿÿÿÿÿÿÿ    nak = 1;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbreak.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   line (2).ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁˆÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŠÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	   setup;ÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŽÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ŽÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   put (t).ÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC cl eol: ÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC cl eop: ÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   cl eol ÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   cl eop ÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (*************************************************************************)ÿÿÿN (*** Generiert FÛr IBM-AT einen neuen SYSUR-Zweig.                     ***)ÿÿÿN (*** Danach wird die eingebaute Hardwareuhr fÛr die Systemzeit benutzt ***)ÿÿÿN (*** und andere Partitionen kÚnnen mit neuem 'shutup' gebootet werden. ***)ÿÿÿN (***                                                                   ***)ÿÿÿN (*** Autor : W. Sauerwein                             Stand : 15.07.86 ***)ÿÿÿN (*************************************************************************)ÿÿÿ cl eop (1, 4); erzeuge collector;ÿÿÿÿÿÿÿÿÿÿÿÿ erzeuge archive manager;ÿÿÿÿÿÿ erzeuge operator;ÿÿÿÿÿÿÿÿÿÿÿÿÿ erzeuge configurator;ÿÿÿÿÿÿÿÿÿ loesche collector;ÿÿÿÿÿÿÿÿÿÿÿÿ. forget ("AT Generator", quiet);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ loesche collector :ÿÿÿÿÿÿÿÿÿÿÿ    end (/"colly");ÿÿÿÿÿÿÿÿÿÿÿÿ.    put ("Collector gelÚscht.");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ erzeuge collector :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŸÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1 ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¡ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¡ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¡ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¢ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1£ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa£ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      i - 1.ÿÿÿÿÿÿÿÿÿ¡£ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¤ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¥ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¥ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¦ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¦ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC max;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¦ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA§ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq§ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC min;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡§ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ§ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¨ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP MOD;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¨ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¨ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¨ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!©ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa©ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡©ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ©ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC put;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ªÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC put;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa«ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ«ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¬ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   END SELECTÿÿÿÿÿÿÿÿÁ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¬ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1­ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq­ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±­ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ­ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1®ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq®ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá®ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¯ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¯ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¯ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!°ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq°ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡°ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ±ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq²ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿá²ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ergebnis.ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA³ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±³ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ³ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      FI. ÿÿÿÿÿÿÿÿÿÿÿ!´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa´ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡´ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      PER;ÿÿÿÿÿÿÿÿÿÿÿÑ´ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1µÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI.ÿÿÿÿÿÿÿÿÿÿÿÿµÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±µÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP ADD;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¶ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¶ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¶ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq·ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá·ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¸ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    x MUL z ÿÿÿÿÿÿÿÿÿÿÿEND OP EXP;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR i;ÿÿÿÿÿÿÿÿÑ¸ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¹ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   iÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¹ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¹ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQºÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ºÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáºÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!»ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘»ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ»ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      PER;ÿÿÿÿÿÿÿÿÿÿÿ¼ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¼ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¼ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA½ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP MUL;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘½ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ½ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¾ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¾ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¾ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ergebnis.ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¿ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI.ÿÿÿÿÿÿÿÿÿÿÿÿá¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Àÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÀÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      PER;ÿÿÿÿÿÿÿÿÿÿÿÀÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP SUB;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET longint    DEFINES LONGINT,        (* Autoren: S.Baumann,A.Bentrup *)ÿÿN                           :=,             (*          T.Sillke *)ÿÿÿÿÿÿÿÿÿÿÿÿÿN                           <,              (* Stand:   17.03.81 *)ÿÿÿÿÿÿÿÿÿÿÿÿÿ                           >, ÿ                           <=,ÿ                           >=,ÿ                           <>,ÿ                           =,ÿÿ                           -,ÿÿ                           +,ÿÿ                           *,ÿÿ                           **,ÿ                           ABS,                           abs,.                           DECR,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                           DIV,                           get,.                           INCR,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                           int,.                         (*last rest,*)ÿÿÿÿÿÿÿÿ.                           longint,ÿÿÿÿÿÿÿÿÿÿÿÿ                           max,.               .    put line ("Generating 'Collector'...");ÿÿÿÿ>    begin ("colly", PROC generate collector, t);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    warte auf meldung;ÿÿÿÿÿÿÿÿÿ.    IF answer = nak THEN end (/"colly");ÿÿÿÿÿÿÿ.                         errorstop (meldung)ÿÿÿ    TASK VAR t. erzeuge archive manager :ÿÿÿÿÿ.    put line ("Generating 'ARCHIVE'...");ÿÿÿÿÿÿ    end (/"ARCHIVE");ÿÿÿÿÿÿÿÿÿÿ.    begin ("ARCHIVE", PROC archive manager, t). erzeuge operator :ÿÿÿÿÿÿÿÿÿÿÿÿ.    put line ("Generating 'OPERATOR'...");ÿÿÿÿÿ    end (/"OPERATOR");ÿÿÿÿÿÿÿÿÿ.    begin ("OPERATOR", PROC monitor, t).ÿÿÿÿÿÿÿ erzeuge configurator :ÿÿÿÿÿÿÿÿ.    put line ("Generating 'configurator'...");ÿ    end (/"configurator");ÿÿÿÿÿ>    begin ("configurator", PROC generate configurator, t); ÿÿÿÿ    warte auf meldung;ÿÿÿÿÿÿÿÿÿ>    IF answer = nak THEN errorstop (meldung) FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ warte auf meldung : ÿÿÿÿÿÿÿÿÿÿ.    DATASPACE VAR ds; INT VAR answer; ÿÿÿÿÿÿÿÿÿ    wait (ds, answer, t);ÿÿÿÿÿÿ    BOUND TEXT VAR m := ds;ÿÿÿÿ    TEXT VAR meldung := m;ÿÿÿÿÿ    forget (ds).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC generate collector :ÿÿÿÿÿ    disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    fetch all (/"configurator");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    DATASPACE VAR ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    BOUND TEXT VAR m := ds; m := "";ÿÿÿÿÿÿÿÿÿÿÿ    send (father, mess, ds);ÿÿÿ    forget (ds);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    free global manager.ÿÿÿÿÿÿÿ. mess : IF is error THEN m := error message;ÿÿÿ                         nakÿÿÿ.                    ELSE ack FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC generate collector;ÿÿ PROC generate configurator :ÿÿ    disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    fetch all (/"colly");ÿÿÿÿÿÿ.    DATASPACE VAR ds := nilspace; ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    BOUND TEXT VAR m := ds; m := "";ÿÿÿÿÿÿÿÿÿÿÿ    send (father, mess, ds);ÿÿÿ    forget (ds);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    new configuration;ÿÿÿÿÿÿÿÿÿN    global manager (PROC ( DATASPACE VAR, INT CONST, INT CONST, TASK CONST) ÿÿÿ>                    configuration manager with time).ÿÿÿÿÿÿÿÿÿÿ. mess : IF is error THEN m := error message;ÿÿÿ                         nakÿÿÿ.                    ELSE ack FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC generate configurator;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT PROC inverse (TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿ   ""15"" + t + " " + ""14""ÿÿÿ END PROC inverse;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC put center (TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put center (t, 80)ÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ> PROC put center (INT CONST zeile, TEXT CONST t):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put center (zeile, t, 80)ÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ> PROC put center (TEXT CONST t, INT CONST gesamtbreite):ÿÿÿÿÿÿÿ    INT VAR cy;    get cursor (cy, cy);ÿÿÿÿÿÿÿ.    put center (cy, t, gesamtbreite)ÿÿÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿN PROC put center (INT CONST zeile, TEXT CONST t, INT CONST gesamtbreite):ÿÿÿÿÿÿ>    cursor ((gesamtbreite - length (t)) DIV 2, zeile);ÿÿÿÿÿÿÿÿÿ END PROC put center;ÿÿÿÿÿÿÿÿÿÿ   out (""5"")  END PROC cl eol;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   out (""4"")  END PROC cl eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC cl eol (INT CONST cx, cy): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cursor (cx, cy); ÿÿÿÿÿÿÿÿÿÿ END PROC cl eol; ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC cl eop (INT CONST cx, cy): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cursor (cx, cy); ÿÿÿÿÿÿÿÿÿÿ END PROC cl eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            max longint,ÿÿÿÿÿÿÿÿ                           min,                           MOD,                           put,.                           random,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                           SIGN,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                           sign,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                           text,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                           zero:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TYPE LONGINT = TEXT;ÿÿÿÿÿÿÿÿÿÿ. LONGINT VAR   result,aleft,aright;ÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT    VAR   ergebnis,x,y,z,h;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ INT     VAR   v byte,slr,sll;ÿ> INT     CONST snull    :: code("0"), mtl :: 300 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿN TEXT    CONST negativ  :: code(127),max digit :: code(99),null :: code(0),ÿÿÿÿ>               overflow :: "LONGINT overflow",eins :: code(1); . BOOL    VAR   vorl,vorr,vleft,vright;ÿÿÿÿÿÿÿÿÿ> OP := (LONGINT VAR left, LONGINT CONST right) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    CONCR(left) := CONCR(right). BOOL OP <  (LONGINT CONST left,right) :ÿÿÿÿÿÿÿ.    slr := sign(right)*length(right);ÿÿÿÿÿÿÿÿÿÿ.    sll := sign(left )*length(left );ÿÿÿÿÿÿÿÿÿÿ    IF slr <> sll THENÿÿÿÿÿÿÿÿÿ.       IF slr > sll THEN TRUE ELSE FALSE FIÿÿÿÿ    ELSE IF slr>0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         THEN CONCR(left) < CONCR(right)ÿÿÿÿÿÿÿ.         ELSE CONCR(left) > CONCR(right) FIÿÿÿÿ. BOOL OP >  (LONGINT CONST left,right) :ÿÿÿÿÿÿÿ.    slr := sign(right)*length(right);ÿÿÿÿÿÿÿÿÿÿ.    sll := sign(left )*length(left );ÿÿÿÿÿÿÿÿÿÿ    IF slr <> sll THENÿÿÿÿÿÿÿÿÿ.       IF slr < sll THEN TRUE ELSE FALSE FIÿÿÿÿ    ELSE IF slr>0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         THEN CONCR(left) > CONCR(right)ÿÿÿÿÿÿÿ.         ELSE CONCR(left) < CONCR(right) FIÿÿÿÿ. BOOL OP <= (LONGINT CONST left,right) :ÿÿÿÿÿÿÿ    NOT (left > right)ÿÿÿÿÿÿÿÿÿ. BOOL OP >= (LONGINT CONST left,right) :ÿÿÿÿÿÿÿ    NOT (left < right)ÿÿÿÿÿÿÿÿÿ. BOOL OP <> (LONGINT CONST left,right) :ÿÿÿÿÿÿÿ.    CONCR (left) <> CONCR (right)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. BOOL OP =  (LONGINT CONST left,right) :ÿÿÿÿÿÿÿ.    CONCR (left) =  CONCR (right)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LONGINT OP - (LONGINT CONST arg) : ÿÿÿÿÿÿÿÿÿÿÿ.    SELECT  code(CONCR(arg)SUB1)  OFÿÿÿÿÿÿÿÿÿÿÿ      CASE 0  : zeroÿÿÿÿÿÿÿÿÿÿÿ>      CASE 127: LONGINT : (subtext(CONCR(arg),2))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>      OTHERWISE LONGINT : (negativ + CONCR(arg))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> LONGINT OP + (LONGINT CONST arg) :   arg  END OP +;ÿÿÿÿÿÿÿÿÿÿÿ. LONGINT OP - (LONGINT CONST left,right) :ÿÿÿÿÿ>    IF   CONCR(left ) = null       THEN LEAVE - WITH -rightÿÿÿÿ>    ELIF CONCR(right) = null       THEN LEAVE - WITH   leftÿÿÿÿN    ELIF sign(left) <> sign(right) THEN LEAVE - WITH left + (-right) FI;ÿÿÿÿÿÿÿ    betrag(left,right);ÿÿÿÿÿÿÿÿ.    BOOL CONST betrag max :: aleft > aright;ÿÿÿ    IF   betrag maxÿÿÿÿÿÿÿÿÿÿÿÿN         THEN result := LONGINT : (CONCR(aleft ) SUB CONCR(aright))ÿÿÿÿÿÿÿÿÿÿÿÿN         ELSE result := LONGINT : (CONCR(aright) SUB CONCR(aleft )) FI;ÿÿÿÿÿÿÿÿ>         kuerze fuehrende nullen(CONCR(result),null);ÿÿÿÿÿÿÿÿÿÿ>    IF   vleft  XOR  betrag max  THEN -result ELSE result FIÿÿÿ. LONGINT OP + (LONGINT CONST left,right) :ÿÿÿÿÿN    IF   sign(left) <> sign(right) THEN LEAVE + WITH left - (-right) FI;ÿÿÿÿÿÿÿ    betrag(left,right);ÿÿÿÿÿÿÿÿ    IF aleft > arightÿÿÿÿÿÿÿÿÿÿN       THEN result := LONGINT : (CONCR(aleft ) ADD CONCR(aright))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN       ELSE result := LONGINT : (CONCR(aright) ADD CONCR(aleft )) FI;ÿÿÿÿÿÿÿÿÿÿ.    IF vleft THEN result ELSE -result FIÿÿÿÿÿÿÿ. LONGINT OP * (LONGINT CONST left,right) :ÿÿÿÿÿN    IF   CONCR(left) = null OR CONCR(right) = null THEN LEAVE * WITH zeroÿÿÿÿÿÿN    ELIF length(left) + length(right) > mtl THEN errorstop (overflow) FI;ÿÿÿÿÿÿ    betrag(left,right);ÿÿÿÿÿÿÿÿ    IF   aleft < aright ÿÿÿÿÿÿÿN         THEN result := LONGINT : (CONCR(aright) MUL CONCR(aleft ))ÿÿÿÿÿÿÿÿÿÿÿÿN         ELSE result := LONGINT : (CONCR(aleft ) MUL CONCR(aright))  FI;ÿÿÿÿÿÿÿN    IF   length(CONCR(result)) = mtl  THEN errorstop(overflow) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    IF   vleft XOR vright THEN -result ELSE result FIÿÿÿÿÿÿÿÿÿÿ. LONGINT OP ** (LONGINT CONST arg,exp) :ÿÿÿÿÿÿÿ>    IF exp > longint(max int) THEN errorstop (overflow) FI;ÿÿÿÿ    arg ** int(exp)ÿÿÿÿÿÿÿÿÿÿÿÿ> LONGINT OP ** (LONGINT CONST arg,INT CONST exp) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    IF   exp < 0 THEN errorstop ("LONGINT OP ** : negativ exp")N    ELIF CONCR(arg)=null AND exp=0 THEN errorstop(text(0 ** 0)) FI;ÿÿÿÿÿÿÿÿÿÿÿÿ    IF   exp = 0  THEN oneÿÿÿÿÿ    ELIF exp = 1  THEN argÿÿÿÿÿ.    ELIF sign(arg) = -1 AND exp MOD 2 <> 0ÿÿÿÿÿ.         THEN -LONGINT:(CONCR(abs(arg))EXPexp) >         ELSE  LONGINT:(CONCR(abs(arg))EXPexp) FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> LONGINT OP ABS (LONGINT CONST arg) : abs(arg) END OP ABS;ÿÿÿÿÿ. LONGINT PROC abs (LONGINT CONST a) : ÿÿÿÿÿÿÿÿÿN  IF (CONCR(a)SUB1)=negativ THEN LONGINT:(subtext(CONCR(a),2)) ELSE a FIÿÿÿÿÿÿÿ> OP DECR (LONGINT VAR result,LONGINT CONST ab) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    result := result - ab;ÿÿÿÿÿ. LONGINT OP DIV (LONGINT CONST left,right) :ÿÿÿN    IF CONCR(right) = null THEN error stop("LONGINT OP DIV by zero") FI;ÿÿÿÿÿÿÿ>    betrag(left,right);        h    := CONCR(aright);ÿÿÿÿÿÿÿÿÿÿ.    y := null + CONCR(aleft ); vorl := vleft;ÿÿ.    z := null + CONCR(aright); vorr := vright;ÿN    IF aleft < aright THEN y:=CONCR(aleft); LEAVE DIV WITH zero FI;ÿÿÿÿÿÿÿÿÿÿÿÿ>    INT  VAR try,i,cr1 :: code(z SUB 2),cr2,cr3,zw;ÿÿÿÿÿÿÿÿÿÿÿÿ.    BOOL VAR sh :: length(z) <> 2;ÿÿÿÿÿÿÿÿÿÿÿÿÿN    IF sh THEN cr3:=code(zSUB3); cr2:=10*cr1+cr3DIV10; cr3:=100*cr1+cr3 FI;ÿÿÿÿ    CONCR(result) := "";ÿÿÿÿÿÿÿ.    FOR i FROM 0 UPTO length(y)-length(z) REPÿÿ.       laufe eine abschaetzung durch; ÿÿÿÿÿÿÿÿÿ.       CONCR (result) CAT code(try)ÿÿÿÿÿÿÿÿÿÿÿÿ.    PER;  kuerze fuehrende nullen(y,null);ÿÿÿÿÿN    IF(CONCR(result)SUB1)=nullTHEN CONCR(result):=subtext(CONCR(result),2)FI;ÿÿ>    IF vleft XOR vright THEN -result ELSE result FI.ÿÿÿÿÿÿÿÿÿÿÿ.    laufe eine abschaetzung durch :ÿÿÿÿÿÿÿÿÿÿÿÿ>       zw := 100*code(y SUB i+1) + code(y SUB i+2);ÿÿÿÿÿÿÿÿÿÿÿÿ.       IF zw < 3276 AND sh THEN IF zw < 327ÿÿÿÿN       THEN try := min((100*zw + code(ySUBi+3))     DIV cr3, 99)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN       ELSE try := min(( 10*zw + code(ySUBi+3)DIV10)DIV cr2, 99) FIÿÿÿÿÿÿÿÿÿÿÿÿN       ELSE try := min(     zw                      DIV cr1, 99) FI;ÿÿÿÿÿÿÿÿÿÿÿ        x := z MUL code(try); ÿ.       WHILE x > subtext(y,i+1,i+length(x)) REP>             try DECR 1;   x := x SUB z     PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>       replace(y,i + 1,subtext(y,i + 1,i + length(x)) SUB x) ÿÿ. PROC get (LONGINT VAR result) : ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    get (ergebnis);ÿÿÿÿÿÿÿÿÿÿÿÿ.    result := longint(ergebnis);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC get (FILE VAR file,LONGINT VAR result) :ÿ    get(file,ergebnis);ÿÿÿÿÿÿÿÿ.    result := longint(ergebnis);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> OP INCR (LONGINT VAR result,LONGINT CONST dazu) : ÿÿÿÿÿÿÿÿÿÿÿÿ    result := result + dazu;ÿÿÿ. INT PROC int (LONGINT CONST longint) :ÿÿÿÿÿÿÿÿ    IF length(longint) > 3 ÿÿÿÿ       THEN max int + 1ÿÿÿÿÿÿÿÿN       ELSE ergebnis := (3-length(longint))*null + CONCR(abs(longint));ÿÿÿÿÿÿÿÿ.            (code(ergebnis SUB 1)  * 10000 +ÿÿÿ.             code(ergebnis SUB 2)  * 100   +ÿÿÿ>             code(ergebnis SUB 3)) * sign(longint)ÿÿÿÿÿÿÿÿÿÿÿÿÿ. LONGINT PROC longint (INT CONST int) :ÿÿÿÿÿÿÿÿ>    CONCR(result) :=  code( abs(int)            DIV 10000) +ÿÿÿ>                      code((abs(int) MOD 10000) DIV 100)   +ÿÿÿ.                      code( abs(int) MOD 100);ÿ>    kuerze fuehrende nullen (CONCR(result),null);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    IF int < 1 THEN -result ELSE result FIÿÿÿÿÿ END PROC longint;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. LONGINT PROC longint (TEXT CONST text) :ÿÿÿÿÿÿ    INT  VAR i;    ergebnis := compress(text);.    BOOL VAR minus :: (ergebnisSUB1) = "-"; ÿÿÿN    IF (ergebnisSUB1)="+" OR minus THEN ergebnis:=subtext(ergebnis,2) FI;ÿÿÿÿÿÿ.    kuerze fuehrende nullen(ergebnis,"0");ÿÿÿÿÿ>    kuerze die unzulaessigen zeichen aus ergebnP@  ÿÿ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ std analysatorÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆa€ëÿÿF  F C C  	@      ÿÿÿÿ       	@         	@  G  >M ÿþ    ÿÿ   ÿÿa€ÿ ÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿ  F ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿq€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‚ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa…ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ std analysatorN PACKET std analysator                             (* Autor : Rudolf Ruland *)ÿN                                                   (* Stand : 06.11.86      *)ÿ.        DEFINES std analysator :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LET text code                      =  1, ÿÿÿÿÿ.     error code                     =  2, ÿÿÿÿÿ.     token code                     =  3; ÿÿÿÿÿ INT VAR instruction begin;ÿÿÿÿ. TEXT VAR unknown instruction := "";ÿÿÿÿÿÿÿÿÿÿÿ> PROC std analysator (INT CONST op code, TEXT VAR string,ÿÿÿÿÿÿN                      INT VAR par1, par2, par3, par4, par5, par6, par7) :ÿÿÿÿÿÿ   SELECT op code OF ÿÿÿÿÿÿÿÿÿÿ.     CASE text code   :  analyse text ÿÿÿÿÿÿÿÿÿ.     CASE error code  :  report errors ÿÿÿÿÿÿÿÿ.     CASE token code  :  report tokens ÿÿÿÿÿÿÿÿ   END SELECT ;   . record     :  stringÿÿÿÿÿÿ   . record pos :  par1ÿÿÿÿÿÿÿÿ   . width      :  par4ÿÿÿÿÿÿÿÿ   . height     :  par5ÿÿÿÿÿÿÿÿ   . depth      :  par6ÿÿÿÿÿÿÿÿ   . analyse text : ÿÿÿÿÿÿÿÿÿÿÿ.       instruction begin := record pos + 1;ÿÿÿÿ>       record pos := pos (record, "#", instruction begin) + 1;ÿ       width      := 0;ÿÿÿÿÿÿÿÿ       height     := 0;ÿÿÿÿÿÿÿÿ       depth      := 0;ÿÿÿÿÿÿÿÿ^       unknown instruction := subtext (record, instruction begin, instruction end);ÿÿÿÿÿÿÿÿÿÿÿÿ.       . instruction end : record pos - 2ÿÿÿÿÿÿ . error msg  :  string ÿÿÿÿÿÿÿ . error nr   :  par1ÿÿÿÿÿÿÿÿÿÿ   report errors :ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF error nr = 0ÿÿÿÿÿÿÿÿÿÿÿ>        THEN error msg := "unbekannte Anweisung (ignoriert): ";.             error msg CAT unknown instruction;             error nr  := 1;ÿÿÿ        ELSE error msg := "";ÿÿ             error nr  := 0;ÿÿÿ. . token text           :  stringÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . token nr             :  par1 . token font nr        :  par2 . token modifications  :  par3 . token width          :  par4 . token x pos          :  par5 . token y pos          :  par6 . token type           :  par7   report tokens :ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC std analysator;ÿÿÿÿÿÿ END PACKET std analysator;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿis;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    schreibe ergebnis im hundertersystem in result;ÿÿÿÿÿÿÿÿÿÿÿÿ    result mit vorzeichen.ÿÿÿÿÿ>    kuerze die unzulaessigen zeichen aus ergebnis :ÿÿÿÿÿÿÿÿÿÿÿÿN       ergebnis := subtext(ergebnis,1,letztes zulaessiges zeichen).ÿÿÿÿÿÿÿÿÿÿÿÿ.    letztes zulaessiges zeichen :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       FOR i FROM 1 UPTO length(ergebnis) REP ÿ>       UNTIL pos("0123456789", ergebnis SUB i) = 0 PER;ÿÿÿÿÿÿÿÿ>    schreibe ergebnis im hundertersystem in result :ÿÿÿÿÿÿÿÿÿÿÿ       sll := length(ergebnis);N       IF sll MOD 2 <> 0 THEN ergebnis := "0"+ergebnis; sll INCR 1 FI; ÿÿÿÿÿÿÿÿ.       i := 1; CONCR(result) := "";ÿÿÿÿÿÿÿÿÿÿÿÿ>       REP schreibe ein zeichen im hundertersystem in result;ÿÿ           i INCR 2ÿÿÿÿÿÿÿÿÿÿÿÿ       UNTIL i >= sll PER.ÿÿÿÿÿ>    schreibe ein zeichen im hundertersystem in result :ÿÿÿÿÿÿÿÿN       CONCR(result) CAT code((code(ergebnis SUB i    ) - snull) * 10 +ÿÿÿÿÿÿÿÿN                               code(ergebnis SUB i + 1) - snull).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    result mit vorzeichen : ÿÿÿN       IF ergebnis="" THEN zero ELIF minus THEN -result ELSE result FIÿÿÿÿÿÿÿÿÿ END PROC longint;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. LONGINT PROC max (LONGINT CONST left,right) :ÿ.    IF left > right THEN left ELSE right FIÿÿÿÿ LONGINT PROC max longint :ÿÿÿÿ.    LONGINT : ((mtl - 1) * max digit)ÿÿÿÿÿÿÿÿÿÿ END PROC max longint;ÿÿÿÿÿÿÿÿÿ. LONGINT PROC min (LONGINT CONST left,right) :ÿ.    IF left < right THEN left ELSE right FIÿÿÿÿ. LONGINT OP MOD (LONGINT CONST left,right) :ÿÿÿN    IF CONCR(right) = null THEN errorstop("LONGINT OP MOD by zero") FI;ÿÿÿÿÿÿÿÿ.    result := left DIV right; last rest ÿÿÿÿÿÿÿ. PROC put (LONGINT CONST longint) :ÿÿÿÿÿÿÿÿÿÿÿÿ.    INT  VAR i :: 1,zwei ziffern;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    IF sign(longint) = -1 THEN out("-"); i:=2 FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    out(text(code(CONCR(longint) SUB i)));ÿÿÿÿÿ>    FOR i FROM i + 1 UPTO length(CONCR(longint)) REPÿÿÿÿÿÿÿÿÿÿÿ>        zwei ziffern := code(CONCR(longint) SUB i);ÿÿÿÿÿÿÿÿÿÿÿÿ.        out(code(zwei ziffern DIV 10 + snull));.        out(code(zwei ziffern MOD 10 + snull));    PER;out(" ")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC put (FILE VAR file,LONGINT CONST longint) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    put(file,text(longint));ÿÿÿ> LONGINT PROC random (LONGINT CONST lower bound,upper bound) :ÿN    INT VAR i; x := CONCR(upper bound - lower bound - one); y := "";ÿÿÿÿÿÿÿÿÿÿÿN    FOR i FROM 1 UPTO length(x) REP y CAT code(random(0,99)) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    upper bound - (LONGINT : (y) MOD LONGINT : (x)) ÿÿÿÿÿÿÿÿÿÿÿ END PROC random;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> INT OP SIGN (LONGINT CONST arg) : sign(arg) END OP SIGN;ÿÿÿÿÿÿ. INT PROC sign (LONGINT CONST arg) :ÿÿÿÿÿÿÿÿÿÿÿ.    SELECT code(CONCR(arg) SUB 1) OFÿÿÿÿÿÿÿÿÿÿÿ       CASE 0   :  0ÿÿÿÿÿÿÿÿÿÿÿ       CASE 127 : -1ÿÿÿÿÿÿÿÿÿÿÿ       OTHERWISE   1ÿÿÿÿÿÿÿÿÿÿÿ END PROC sign;. TEXT PROC text (LONGINT CONST longint) :ÿÿÿÿÿÿ.    INT  VAR i::1,zwei ziffern; ergebnis := "";>    IF sign(longint) = -1 THEN ergebnis := "-"; i:=2  FI;ÿÿÿÿÿÿ>    ergebnis CAT text (code (CONCR (longint) SUB i ) ) ;ÿÿÿÿÿÿÿ>    FOR i FROM i+1 UPTO length(CONCR(longint)) REPÿÿÿÿÿÿÿÿÿÿÿÿÿ>       zwei ziffern := code(CONCR(longint) SUB i);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>       ergebnis CAT code(zwei ziffern DIV 10 + snull);ÿÿÿÿÿÿÿÿÿ>       ergebnis CAT code(zwei ziffern MOD 10 + snull) ÿÿÿÿÿÿÿÿÿ    PER;   ergebnisÿÿÿÿÿÿÿÿÿÿÿÿ END PROC text;> TEXT PROC text (LONGINT CONST longint,INT CONST length) :ÿÿÿÿÿ.    x := text(longint); sll := LENGTH x;ÿÿÿÿÿÿÿN    IF sll > length THEN length * "*" ELSE (length - sll)*" " + x FIÿÿÿÿÿÿÿÿÿÿÿ END PROC text; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LONGINT PROC last rest :ÿÿÿÿÿÿ>   IF y=null THEN LEAVE last rest WITH zero FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   IF vorl XOR vorr THEN y := h SUB y; kuerze fuehrende nullen(y,null);ÿÿÿÿÿÿÿÿ.                         vorl := TRUE FI;ÿÿÿÿÿÿ>   IF NOTvorr THEN y:=negativ+y; vorr := TRUE FI; LONGINT:(y) ÿ END PROC last rest;ÿÿÿÿÿÿÿÿÿÿÿ> LONGINT PROC zero :   LONGINT : (null)   END PROC zero;ÿÿÿÿÿÿÿ> LONGINT PROC one  :   LONGINT : (""1"")  END PROC one;ÿÿÿÿÿÿÿÿN (* ----------------------- INTERNE HILFSPROZEDUREN ----------------------- *)ÿ. TEXT OP ADD (TEXT CONST left,right) :ÿÿÿÿÿÿÿÿÿN    INT  VAR   carrybit :: 0,i,dif :: length(left) - length(right);ÿÿÿÿÿÿÿÿÿÿÿÿ    ergebnis := left; ÿÿÿÿÿÿÿÿÿ.    FOR i FROM length(left) DOWNTO dif + 1 REPÿ>       replace(ergebnis,i,das result der addition)ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    IF carrybit = 1 THEN addiere den uebertrag  FI; ÿÿÿÿÿÿÿÿÿÿÿ    das result der addition :ÿÿN       v byte := (code(left SUB i) + code(right SUB i - dif) + carrybit);ÿÿÿÿÿÿ       IF v byte > 99 ÿÿÿÿÿÿÿÿÿ>          THEN carrybit := 1; code(v byte - 100)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          ELSE carrybit := 0; code(v byte)ÿÿÿÿÿ    addiere den uebertrag :ÿÿÿÿ       FOR i FROM i DOWNTO 1ÿÿÿ>           WHILE (ergebnis SUB i) >= max digit REPÿÿÿÿÿÿÿÿÿÿÿÿÿ.           replace(ergebnis,i,null) ÿÿÿÿÿÿÿÿÿÿÿ.       IF (ergebnis SUB 1) = null  OR  dif = 0ÿ.          THEN pruefe auf longint overflow ÿÿÿÿN          ELSE replace(ergebnis,i,code(code(ergebnis SUB i) + 1))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    pruefe auf longint overflow :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN       IF length(ergebnis) = mtl - 1 THEN errorstop(overflow) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       ergebnis := eins + ergebnisÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC betrag (LONGINT CONST a, b) :ÿÿÿÿÿÿÿÿÿÿÿÿN    vleft := (CONCR(a)SUB1)<>negativ; vright := (CONCR(b)SUB1)<>negativ;ÿÿÿÿÿÿÿN    IF vleft  THEN aleft :=a ELSE CONCR(aleft ):=subtext(CONCR(a),2) FI;ÿÿÿÿÿÿÿN    IF vright THEN aright:=b ELSE CONCR(aright):=subtext(CONCR(b),2) FIÿÿÿÿÿÿÿÿ END PROC betrag;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT OP EXP (TEXT CONST arg,INT CONST exp) :ÿÿ    INT VAR zaehler :: exp;ÿÿÿÿ    x := arg; z := eins;ÿÿÿÿÿÿÿ>    REP  IF zaehler MOD 2 = 1 THEN z := z MUL x FI; ÿÿÿÿÿÿÿÿÿÿÿ>         zaehler := zaehler DIV 2; x := x MUL x ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    UNTIL zaehler = 1 PER;ÿÿÿÿÿN PROC kuerze fuehrende nullen ( TEXT VAR text,TEXT CONST snull) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    text := subtext(text,erste nicht snull).ÿÿÿ    erste nicht snull :ÿÿÿÿÿÿÿÿ.    FOR i FROM 1 UPTO length (text) - 1 REPÿÿÿÿ.    UNTIL (text SUB i) <> snull PER;ÿÿÿÿÿÿÿÿÿÿÿ. END PROC kuerze fuehrende nullen;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT PROC length (LONGINT CONST a) : ÿÿÿÿÿÿÿÿÿÿN   IF (CONCR(a)SUB1)=negativ THEN length(CONCR(a))-1 ELSE length(CONCR(a)) FIÿÿ END PROC length;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT OP MUL (TEXT CONST left,right) :ÿÿÿÿÿÿÿÿÿ    INT VAR i,j,carrybit,v,w;ÿÿ>    ergebnis := (length(left) + length(right) - 1) * null;ÿÿÿÿÿ>    FOR i FROM length(ergebnis) DOWNTO length(left) REPÿÿÿÿÿÿÿÿN        v := i - length(left); w := length(right) - length(ergebnis) + i;ÿÿÿÿÿÿ        carrybit := 0;ÿÿÿÿÿÿÿÿÿ.       FOR j FROM length(left) DOWNTO 1 REPÿÿÿÿ>             replace(ergebnis,v + j,result der addition)ÿÿÿÿÿÿÿN        replace(ergebnis,v,code(code(ergebnis SUB v) + carrybit));ÿÿÿÿÿÿÿÿÿÿÿÿÿN    IF carrybit = 0 THEN ergebnis ELSE code(carrybit) + ergebnis FI.ÿÿÿÿÿÿÿÿÿÿÿ    result der addition :ÿÿÿÿÿÿN       v byte := code(right    SUB w) * code(left SUB j) + carrybit +ÿÿÿÿÿÿÿÿÿÿ.                 code(ergebnis SUB v + j);ÿÿÿÿÿ.       carrybit := v byte DIV 100;ÿÿÿÿÿÿÿÿÿÿÿÿÿ       code(v byte MOD 100)ÿÿÿÿ. TEXT OP SUB (TEXT CONST left,right) : ÿÿÿÿÿÿÿÿN    INT  VAR   carrybit :: 0,i,dif :: length(left) - length(right);ÿÿÿÿÿÿÿÿÿÿÿÿ    ergebnis := left;ÿÿÿÿÿÿÿÿÿÿ.    FOR i FROM length(left) DOWNTO dif + 1 REP >        replace(ergebnis,i,das result der subtraktion);ÿÿÿÿÿÿÿÿ>    IF carrybit = 1 THEN subtrahiere den uebertrag FI;ÿÿÿÿÿÿÿÿÿ.    das result der subtraktion :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN       v byte := (code(left SUB i) - code(right SUB i - dif) - carrybit);ÿÿÿÿÿÿ       IF v byte < 0 ÿÿÿÿÿÿÿÿÿÿ.          THEN carrybit := 1;code(v byte + 100).          ELSE carrybit := 0;code(v byte)ÿÿÿÿÿÿ    subtrahiere den uebertrag :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ`@  ÿÿ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ eumel printer.5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    È                     ÿÿÿ                                    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ°a€ëÿÿ“ “ 
L      ÿÿÿÿ       
L         
L  ” >‚ ÿþ    ÿÿ   ÿÿa€ÿ ÿÿÿÿÿÿÿÿÿÿÿ   ÿÿ€ÿ' ÿÿÿÿÿÿÿÿÿÿÿ  “ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿ±€ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq„ÿ_ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1…ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ˆÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaˆÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŠÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŠÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ*)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Œÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŒÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŽÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŽÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Žÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŽÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‘ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‘ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‘ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!’ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá’ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA“ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘“ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ“ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq”ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡”ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá”ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!•ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡•ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá•ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!–ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡–ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá–ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!—ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa—ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡—ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá—ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!˜ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa˜ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡˜ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡™ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá™ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!šÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡šÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿášÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!›ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa›ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘›ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ›ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!œÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqœÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁœÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       FOR i FROM i DOWNTO 2 ÿÿ.           WHILE (ergebnis SUB i) = null REPÿÿÿ.           replace(ergebnis,i,max digit)ÿÿÿÿÿÿÿ>       replace(ergebnis,i,code(code(ergebnis SUB i) - 1))ÿÿÿÿÿÿ END PACKET longint;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿcomplexÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽa€ëÿÿu  u r r         ÿÿÿÿ                    v  >M     ÿÿ   ÿÿÿÿcomplexÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  u ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa€ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ENDOP := ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‚ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP CONJ; ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP =; ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSE TRUE ÿÿÿÿÿÿÿÿÿÿ   FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP <>; ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa…ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP +; ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP -; ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ0 ÿÿÿ±ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!žÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿažÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘žÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑžÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŸÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŸÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ÿÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¡ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¡ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¡ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¢ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¢ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¢ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¢ÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA£ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘£ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¤ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¤ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¥ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¦ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¦ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¦ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA§ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ§ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¨ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¨ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1©ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ©ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAªÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ªÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñªÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA«ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘«ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá«ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¬ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¬ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¬ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¬ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!­ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ­ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       THENÿÿÿÿÿÿÿÿÿÿ±­ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ®ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘®ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       ELSEÿÿÿÿÿÿÿÿÿÿñ®ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¯ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¯ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa°ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ°ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ°ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿZ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡±ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ±ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA²ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       ELSEÿÿÿÿÿÿÿÿÿÿ³ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ³ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±³ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ´ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá´ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAµÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡µÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¶ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¶ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa·ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ·ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¸ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¸ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¸ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¹ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¹ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¹ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ºÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ºÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑºÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA»ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ»ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¼ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¼ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA½ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¾ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¾ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¿ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¿ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¿ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÀÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÀÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Áÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÁÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÁÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÁÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÂÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÂÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ãÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÃÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ãÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÃÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÃÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Äÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÄÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Äÿa ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Åÿ\ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅÿb ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÅÿ] ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÆÿZ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Æÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÆÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÇÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÇÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÇÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÈÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÈÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÉÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Éÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÊÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Êÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÊÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ËÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑËÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÌÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÌÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÍÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÎÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÎÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	     PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP *; ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP /; ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŠÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Šÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŠÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‹ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Œÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND OP ABS; ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET complex DEFINES COMPLEX,:=,complex zero,complex one,complex i, ÿÿÿÿÿÿÿÿN                        complex,realpart,imagpart,CONJ,+,-,*,/,=,<>, ÿÿÿÿÿÿÿÿÿÿ>                        put,get, ABS, sqrt, phi, dphi :ÿÿÿÿÿÿÿÿ. TYPE COMPLEX = STRUCT(REAL re,im); ÿÿÿÿÿÿÿÿÿÿÿN COMPLEX PROC complex zero: COMPLEX :(0.0,0.0). END PROC complex zero; ÿÿÿÿÿÿÿÿN COMPLEX PROC complex one : COMPLEX :(1.0,0.0). END PROC complex one; ÿÿÿÿÿÿÿÿÿN COMPLEX PROC complex i   : COMPLEX :(0.0,1.0). END PROC complex i; ÿÿÿÿÿÿÿÿÿÿÿ> OP := (COMPLEX VAR dest, COMPLEX CONST source) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   CONCR (dest) := CONCR (source)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. COMPLEX PROC complex(REAL CONST re,im): ÿÿÿÿÿÿ    COMPLEX :(re,im). ÿÿÿÿÿÿÿÿÿ END PROC complex; ÿÿÿÿÿÿÿÿÿÿÿÿ. REAL PROC realpart(COMPLEX CONST number): ÿÿÿÿ            number.re. ÿÿÿÿÿÿÿÿ END PROC realpart; ÿÿÿÿÿÿÿÿÿÿÿ. REAL PROC imagpart(COMPLEX CONST number): ÿÿÿÿ            number.im. ÿÿÿÿÿÿÿÿ END PROC imagpart ;ÿÿÿÿÿÿÿÿÿÿÿ. COMPLEX OP CONJ(COMPLEX CONST number): ÿÿÿÿÿÿÿ.    COMPLEX :( number.re,- number.im). ÿÿÿÿÿÿÿÿ BOOL OP =(COMPLEX CONST a,b):     IF   a.re=b.re ÿÿÿÿÿÿÿÿÿÿÿÿ    THEN a.im=b.im ÿÿÿÿÿÿÿÿÿÿÿÿ    ELSE FALSE . BOOL OP <>(COMPLEX CONST a,b): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF   a.re=b.re ÿÿÿÿÿÿÿÿÿÿÿÿ    THEN a.im<>b.im ÿÿÿÿÿÿÿÿÿÿÿ. COMPLEX OP +(COMPLEX CONST a,b): ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    COMPLEX :(a.re+b.re,a.im+b.im). ÿÿÿÿÿÿÿÿÿÿÿ. COMPLEX OP -(COMPLEX CONST a,b): ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    COMPLEX :(a.re-b.re,a.im-b.im). ÿÿÿÿÿÿÿÿÿÿÿ. COMPLEX OP *(COMPLEX CONST a,b): ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    REAL VAR re of a::a.re,im of a ::a.im, ÿÿÿÿ.             re of b::b.re,im of b ::b.im; ÿÿÿÿ>    COMPLEX :(re of a*re of b- im of a *im of b, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              re of a*im of b+ im of a*re of b). ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. COMPLEX OP /(COMPLEX CONST a,b): ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    REAL VAR re of a::a.re,im of a::a.im, ÿÿÿÿÿ.             re of b::b.re,im of b::b.im; ÿÿÿÿÿ>    REAL VAR sqare sum of re and im ::b.re*b.re+b.im*b.im; ÿÿÿÿN    COMPLEX :( (re of a * re of b + im of a * im of b)/sqare sum of re and im,ÿN               (im of a *re of b - re of a*im of b)/sqare sum of re and im). ÿÿ PROC get(COMPLEX VAR a): ÿÿÿÿÿ.    REAL VAR realpart,imagpart; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    get(realpart);get(imagpart); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    a:= COMPLEX :(realpart,imagpart); ÿÿÿÿÿÿÿÿÿ END PROC get;  PROC put(COMPLEX CONST a): ÿÿÿ.    put(a.re);put(" ");put(a.im); ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC put; . REAL PROC dphi(COMPLEX CONST x): ÿÿÿÿÿÿÿÿÿÿÿÿÿ.  IF   imagpart(x)=0.0 THEN reellÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.  ELIF realpart(x)=0.0 THEN imag ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.  ELIF realpart(x)>0.0 THEN realpositiv ÿÿÿÿÿÿÿ  ELSE realnegativ ÿÿÿÿÿÿÿÿÿÿÿÿ> reell: IF sign(realpart(x)) < 0 THEN 180.0 ELSE 0.0 FI. ÿÿÿÿÿÿ> imag: IF imagpart(x)>0.0 THEN 90.0 ELSE 270.0 FI. ÿÿÿÿÿÿÿÿÿÿÿÿN realpositiv:IF imagpart(x)>0.0 THEN arctand(realpart(x)/imagpart(x)) ÿÿÿÿÿÿÿÿÿ.                                ELSEÿÿÿÿÿÿÿÿÿÿÿ. arctand(realpart(x)/imagpart(x))+360.0 FI. ÿÿÿ> realnegativ: arctand(realpart(x)/imagpart(x))+180.0. ÿÿÿÿÿÿÿÿÿ END PROC dphi; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. REAL PROC phi(COMPLEX CONST x): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. dphi(x)*3.141592653689793/180.0. ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC phi; . COMPLEX PROC sqrt(COMPLEX CONST x): ÿÿÿÿÿÿÿÿÿÿ IF x=complex zero THEN x ÿÿÿÿÿ ELIF realpart(x)<0.0 THEN ÿÿÿÿ> complex(imagpart(x)/(2.0*real(sign(imagpart(x)))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         *sqrt((ABSx-realpart(x))/2.0)), ÿÿÿÿÿÿN         real(sign(imagpart(x)))*sqrt((ABS x-realpart(x))/2.0)) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ELSE complex(sqrt((ABS x+realpart(x))/2.0), ÿÿ>      imagpart(x)/(2.0*sqrt((ABS x+realpart(x))/2.0)))ÿÿÿÿÿÿÿÿÿ END PROC sqrt; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ REAL OP ABS(COMPLEX CONST x): >  sqrt(realpart(x)*realpart(x)+imagpart(x)*imagpart(x)). ÿÿÿÿÿÿ END PACKET complex; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿTeCalÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    h       ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÏÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÏÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ðÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÐÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÐÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÑÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÑÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÒÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÒÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÓÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÓÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÔÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÔÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÔÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÕÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Õÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Öÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÖÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Öÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÖÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1×ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ×ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Øÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáØÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÙÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÙÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÙÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÚÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÚÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÚÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÛÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÛÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÛÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÜÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÜÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÝÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÝÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Þÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÞÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÞÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaßÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ßÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!àÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQàÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡àÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!áÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaáÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘áÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿááÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!âÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaâÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡âÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑâÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ãÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQãÿ] ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ãÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQäÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘äÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁäÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAåÿ_ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñåÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1æÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqæÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡æÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñæÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!çÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaèÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡èÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáèÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqéÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑéÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!êÿX ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡êÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑêÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. kommentar :ÿÿÿÿÿÿÿÿëÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqëÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁëÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñëÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAìÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ìÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁìÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñìÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAíÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqíÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQîÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáîÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁïÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ðÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ðÿ\ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdisable stop;ÿÿÿÿÿÿÿÿQñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqñÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ñÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1òÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±òÿ^ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAóÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘óÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑóÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ôÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáôÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñõÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa÷ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±÷ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQøÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡øÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñøÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAùÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿùÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁùÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQúÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿc ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñúÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿAûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQüÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘üÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñüÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ýÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿQýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ýÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1þÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaþÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘þÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁþÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ² ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñæa€ëÿÿZ ZWW Ì      ÿÿÿÿ       Ì         Ì  [ >M     ÿÿ   ÿÿÿÿTeCalÿÿÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  Zÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	   anfangÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   endeÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
   number.ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ˆÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   p INCR 1;ÿÿÿÿÿÿÿÿÿAŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   p DECR 1;ÿÿÿÿÿÿÿÿÿ‘Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿende merken :ÿÿÿÿÿÿÿÿÁŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Œÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿ¡Œÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      ELSEÿÿÿÿÿÿÿÿÿÿÿñŒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Žÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‘ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‘ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿignorieren :.ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá’ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ“ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ”ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1•ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq•ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ•ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±–ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá–ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa—ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±—ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá—ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa˜ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡˜ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq™ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ™ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±šÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñšÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA›ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá›ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1œÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaœÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñœÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1žÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿažÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡žÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ÿÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŸÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   END SELECTÿÿÿÿÿÿÿÿ1 ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC clear :ÿÿÿÿÿÿÿÿÿA ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¡ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¢ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!£ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa£ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡£ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¤ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      PER;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿX ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"	ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚	ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ	ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2
ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr
ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ
ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER; ÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       FI; ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ" ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB!ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚!ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ!ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR"ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’"ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ"ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB#ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’#ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²#ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò#ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"$ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR$ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr$ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’$ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²$ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ$ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"%ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb%ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ(**)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’%ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²%ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ%ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"&ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ(**)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’&ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ&ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           FIÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB'ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr'ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           FIÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ¢(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ)ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ")ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB)ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb)ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢)ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ)ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2*ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR*ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚*ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²*ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ*ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ+ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB+ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr+ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ+ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò+ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB,ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚,ÿZ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ-ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB-ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr-ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢-ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ-ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb.ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ.ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ/ÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr/ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²/ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR0ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²0ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò0ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"1ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr1ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ1ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ22ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb2ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²2ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR3ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò3ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ24ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr4ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ4ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ4ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ5ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ25ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚5ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²5ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ5ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ6ÿ^ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr6ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢6ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ6ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ7ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"7ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB7ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚7ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ7ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿauswerten :ÿÿÿÿÿÿÿÿÿÿq¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¥ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¥ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¦ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   OTHERWISEÿÿÿÿÿÿÿÿÿ§ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ§ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¨ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      FIÿÿÿÿÿÿÿÿÿÿÿÿÿq¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¨ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¨ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq©ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAªÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1«ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC pop;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá«ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿq­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC do;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC dump :ÿÿÿÿÿÿÿÿÿÿ‘­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR i;ÿÿÿÿÿÿÿÿá­ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA®ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘®ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ®ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ®ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¯ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¯ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¯ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1°ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa°ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±°ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘±ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá±ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1²ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ²ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!³ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘³ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ³ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ³ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!´ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘´ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±µÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿáµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¶ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¶ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA·ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±·ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿformelende :ÿÿÿÿÿÿÿÿÿ1¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¸ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¹ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¹ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQºÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1»ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¼ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¼ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA½ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq½ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ½ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¾ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¾ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¿ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¿ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Àÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÀÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Àÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÀÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Áÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Áÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÁÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÂÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ãÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÃÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÄÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Äÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÅÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Åÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÅÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿQÆÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÆÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÇÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Çÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÇÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Èÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAËÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqËÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ8ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ28ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR8ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr8ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢8ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ8ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ9ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB9ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb9ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’9ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ9ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò9ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR:ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’:ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ;ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2;ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr;ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’;ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ;ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ;ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ<ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"<ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR<ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’<ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ<ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ=ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2=ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb=ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’=ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²=ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ=ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò=ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2>ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR>ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚>ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ>ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ?ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB?ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’?ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ?ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
        FIÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò?ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr@ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢@ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿAÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBAÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrAÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Aÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBBÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Bÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂBÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòBÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Cÿ^ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI ; ÿÿÿÿÿÿÿÿ‚Cÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Cÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâCÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Dÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbDÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Dÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Dÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâDÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBEÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Eÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²EÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI ; ÿÿÿÿÿÿÿÿFÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBFÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrFÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Fÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂFÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòFÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿGÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBGÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrGÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂGÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòGÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Hÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBHÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrHÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Hÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂHÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòHÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Iÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrIÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Iÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒIÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòIÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Jÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBJÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrJÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Jÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂJÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòJÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Kÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRKÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Kÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂKÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBLÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Lÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂLÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâLÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿMÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Mÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrMÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Mÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Mÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâMÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBNÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrNÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Nÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂNÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Oÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBOÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbOÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Oÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒOÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Pÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbPÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Pÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒPÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòPÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbQÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂQÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòQÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Rÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Rÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒRÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBSÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Sÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒSÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Tÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBTÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbTÿX ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂTÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿUÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Uÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRUÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrUÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂUÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâUÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Vÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBVÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrVÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Vÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒVÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿWÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Wÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRWÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Wÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Wÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâWÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿXÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBXÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbXÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Xÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Xÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâXÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿYÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Yÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRYÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrYÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Yÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòYÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Zÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRZÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ZÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒZÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ[ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB[ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr[ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²[ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò[ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2\ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         PER;ÿÿÿÿÿÿÿÿR\ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr\ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢\ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ\ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ\ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ]ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB]ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚]ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢]ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ]ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ]ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"^ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb^ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’^ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²^ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ^ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2_ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb_ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚_ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ_ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ`ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB`ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb`ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚`ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢`ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ`ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"aÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbaÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’aÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²aÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"bÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBbÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’bÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒbÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2cÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRcÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrcÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’cÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²cÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâcÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBdÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrdÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’dÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	   summe.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Íÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   PER.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Îÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÎÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÏÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÏÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÏÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÐÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ñÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÑÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ñÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC tecal :ÿÿÿÿÿÿÿÿÿ¡Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   quit;ÿÿÿÿÿÿÿÿÿÿÿÿÿAÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÓÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÔÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ôÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÔÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÕÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÕÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÖÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÖÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa×ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘×ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ×ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ×ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Øÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQØÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁØÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÙÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÙÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÙÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÚÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Úÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÚÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÛÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END SELECT.ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdo prozent :ÿÿÿÿÿÿÿÿÿ‘Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÛÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
do clear :ÿÿÿÿÿÿÿÿÿÿÿÿÿ  clear;ÿÿÿÿÿÿÿÿÿÿÿÿÿ!Üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	do get : ÿÿÿÿÿÿÿÿÿÿÿÿaÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÜÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘àÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑàÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAáÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±áÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñáÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqâÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±âÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñâÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAãÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  zeile neu;ÿÿÿÿÿÿÿÿÿqãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑãÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1äÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑäÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdo runden :ÿÿÿÿÿÿÿÿÿÿåÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAåÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqåÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  quit;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAæÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿclear;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaæÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘æÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑæÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²dÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒdÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿeÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2eÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbeÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’eÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂeÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâeÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿfÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRfÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’fÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂfÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòfÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2gÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrgÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’gÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²gÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿògÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2hÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrhÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’hÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂhÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòhÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"iÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBiÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿriÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒiÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"jÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbjÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’jÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂjÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâjÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"kÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBkÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’kÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòkÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2lÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrlÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²lÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿmÿ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrmÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢mÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâmÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"nÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRnÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚nÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒnÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"oÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBoÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿroÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢oÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒoÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâoÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿpÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2pÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRpÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’pÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâpÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"qÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbqÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢qÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒqÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"rÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRrÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚rÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²rÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿârÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBsÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbsÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’sÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒsÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿtÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2tÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbtÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚tÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²tÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÒtÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòtÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"uÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBuÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚uÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒuÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿvÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbvÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂvÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿwÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRwÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚wÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²wÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòwÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"xÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRxÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrxÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢xÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒxÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿyÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRyÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢yÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòyÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBzÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’zÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂzÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ{ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr{ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ{ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ|ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR|ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢|ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ|ÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB}ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb}ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚}ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢}ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ}ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ~ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR~ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚~ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢~ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ~ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ²ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR€ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚€ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ€ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò€ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB‚ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢‚ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ‚ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrƒÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂƒÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb„ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²„ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò„ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2…ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb…ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ…ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò…ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"†ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb†ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’†ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ†ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"‡ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚‡ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò‡ÿ\ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRˆÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ˆÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâˆÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR‰ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚‰ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ‰ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò‰ÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRŠÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Šÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒŠÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR‹ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚‹ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ‹ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Œÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrŒÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒŒÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Žÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂŽÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR‘ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢‘ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ‘ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2’ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb’ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’’ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ’ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2“ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚“ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ“ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2”ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb”ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’”ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ”ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2•ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb•ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’•ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ•ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚–ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²–ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò–ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB—ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚—ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²—ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ—ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr˜ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²˜ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ˜ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb™ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢™ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ™ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2šÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿršÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢šÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"›ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR›ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’›ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ›ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò›ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"œÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbœÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’œÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (**********************************************************************)ÿÿÿÿÿÿN (*                                                                    *)ÿÿÿÿÿÿN (*                      TeCal - Text Calculator                       *)ÿÿÿÿÿÿN (*                                                                    *)ÿÿÿÿÿÿN (*  Autor    : Andreas Schmeink                        06.09.1984     *)ÿÿÿÿÿÿN (*  Korrektur: Hilmar v.d. Bussche                     17.09.1984     *)ÿÿÿÿÿÿN (*                                                     20.09.1984     *)ÿÿÿÿÿÿN (*  Adaption : Uwe Behrend, Andreas Schmeink           03.08.1987     *)ÿÿÿÿÿÿN (**********************************************************************)ÿÿÿÿÿÿ> PACKET pick DEFINES pick up number, left range, right range,ÿÿ>                     replace number, last pick up ok :ÿÿÿÿÿÿÿÿÿN (********************************************************************)ÿÿÿÿÿÿÿÿN (*                                                                  *)ÿÿÿÿÿÿÿÿN (*  Zahlen erkennen und schreiben fÛr TeCal              12.09.84   *)ÿÿÿÿÿÿÿÿN (*                                                                  *)ÿÿÿÿÿÿÿÿN (********************************************************************)ÿÿÿÿÿÿÿÿ> LET ziffern = "0123456789", pseudoblankcode = 223;ÿÿÿÿÿÿÿÿÿÿÿÿ. ROW 10 REAL VAR ziffer plus einsÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             := ROW 10 REAL : (0.0,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0);ÿÿÿÿÿÿÿ REAL VAR number;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL VAR ziffer gefunden;ÿÿÿÿÿN INT VAR anfang, ende, zeichencode, vorkommastellen, p, dezimalzeichen;ÿÿÿÿÿÿÿÿ TEXT VAR worktext;ÿÿÿÿÿÿÿÿÿÿÿÿ BOOL PROC last pick up ok:ÿÿÿÿ    ziffer gefundenÿÿÿÿÿÿÿÿÿÿÿÿ END PROC last pick up ok;ÿÿÿÿÿ. REAL PROC code to digit (INT CONST code) :ÿÿÿÿ    ziffer plus eins (code-47)ÿ END PROC code to digit; ÿÿÿÿÿÿ INT PROC left range :ÿÿÿÿÿÿÿÿÿ END PROC left range;ÿÿÿÿÿÿÿÿÿÿ INT PROC right range :ÿÿÿÿÿÿÿÿ END PROC right range;ÿÿÿÿÿÿÿÿÿN REAL PROC pick up number (TEXT CONST source, INT CONST where) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    suche ende der zahl; ÿÿÿÿÿÿ    lies zahl ein;ÿÿÿÿÿÿÿÿÿÿÿÿÿ suche ende der zahl :ÿÿÿÿÿÿÿÿÿ.    fange bei gegebener position an;ÿÿÿÿÿÿÿÿÿÿÿ    IF vorzeichen THENÿÿÿÿÿÿÿÿÿ       nach rechts rueckenÿÿÿÿÿ.    WHILE erlaubtes zeichen REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       nach rechts ruecken ÿÿÿÿ    ende merken.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. fange bei gegebener position an:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ziffer gefunden := FALSE;ÿÿ    p := where;.    betrachte aktuelles zeichen.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ nach rechts ruecken:ÿÿÿÿÿÿÿÿÿÿ.    betrachte aktuelles zeichen.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ nach links ruecken:ÿÿÿÿÿÿÿÿÿÿÿ.    betrachte aktuelles zeichen.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ende := p - 1.ÿÿÿÿÿÿÿÿÿÿÿÿÿ lies zahl ein :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    fange hinter der zahl an;ÿÿ    sammle ziffern auf;ÿÿÿÿÿÿÿÿ    pruefe vorzeichen;ÿÿÿÿÿÿÿÿÿ    werte exponent aus.ÿÿÿÿÿÿÿÿ sammle ziffern auf :ÿÿÿÿÿÿÿÿÿÿ       nach links ruecken;ÿÿÿÿÿ       IF ziffer THENÿÿÿÿÿÿÿÿÿÿ          ziffer behandelnÿÿÿÿÿ       ELIF punkt OR komma THEN.          IF wirkt als dezimalzeichen THENÿÿÿÿÿ.              dezimalzeichen behandelnÿÿÿÿÿÿÿÿÿ          ELSE ignorierenÿÿÿÿÿÿ.       ELIF pseudoblank vor ziffer THENÿÿÿÿÿÿÿÿ          ignorierenÿÿÿÿÿÿÿÿÿÿÿ.          LEAVE sammle ziffern aufÿÿÿÿÿÿÿÿÿÿÿÿÿ pruefe vorzeichen :ÿÿÿÿÿÿÿÿÿÿÿ    IF minus THENÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       anfang := p;ÿÿÿÿÿÿÿÿÿÿÿÿ       number := number * -1.0ÿ    ELIF plus THENÿÿÿÿÿÿÿÿÿÿÿÿÿ       anfang := pÿÿÿÿÿÿÿÿÿÿÿÿÿ       anfang := p+1ÿÿÿÿÿÿÿÿÿÿÿ werte exponent aus :ÿÿÿÿÿÿÿÿÿÿ>    set exp (vorkommastellen+decimal exponent(number), number). fange hinter der zahl an :ÿÿÿÿ    vorkommastellen := 0;ÿÿÿÿÿÿ    dezimalzeichen := 0;ÿÿÿÿÿÿÿ    number := 0.0;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    p := ende + 1.ÿÿÿÿÿÿÿÿÿÿÿÿÿ betrachte aktuelles zeichen: ÿ.    zeichencode := code (source SUB p).ÿÿÿÿÿÿÿÿ ziffer behandeln :ÿÿÿÿÿÿÿÿÿÿÿÿ    ziffer gefunden := TRUE;ÿÿÿ>    number := (number + code to digit (zeichencode))/10.0;ÿÿÿÿÿ    vorkommastellen INCR 1.ÿÿÿÿ dezimalzeichen behandeln :ÿÿÿÿ.    dezimalzeichen := zeichencode;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    vorkommastellen := 0.ÿÿÿÿÿÿ wirkt als dezimalzeichen :ÿÿÿÿ>    dezimalzeichen = 0 OR dezimalzeichen = zeichencode.ÿÿÿÿÿÿÿÿ erlaubtes zeichen :ÿÿÿÿÿÿÿÿÿÿÿ>    ziffer OR punkt OR komma OR pseudoblank vor ziffer.ÿÿÿÿÿÿÿÿ pseudoblank vor ziffer :ÿÿÿÿÿÿN    zeichencode = pseudoblankcode AND pos (ziffern, source SUB (p+1) ) > 0.ÿÿÿÿ vorzeichen : plus OR minus.ÿÿÿ> ziffer : zeichencode >= 48 AND zeichencode <= 57. ÿÿÿÿÿÿÿÿÿÿÿÿ plus : zeichencode = 43.ÿÿÿÿÿÿ minus : zeichencode = 45.ÿÿÿÿÿ punkt : zeichencode = 46.ÿÿÿÿÿ komma : zeichencode = 44.ÿÿÿÿÿ END PROC pick up number;ÿÿÿÿÿÿN PROC replace number (TEXT VAR source, REAL CONST value, INT CONST where,ÿÿÿÿÿÿN                                                         nachkommastellen) :ÿÿÿ    alte grenzen feststellen;ÿÿ>    wenn noetig auf format der neuen zahl erweitern;ÿÿÿÿÿÿÿÿÿÿÿ    zahl in text umwandeln;ÿÿÿÿ    zahl ersetzen. ÿÿÿÿÿÿÿÿÿÿÿÿ alte grenzen feststellen :ÿÿÿÿ    REAL VAR dummy; ÿÿÿÿÿÿÿÿÿÿÿ.    dummy := pick up number (source, where).ÿÿÿ> wenn noetig auf format der neuen zahl erweitern :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    INT VAR schreibanfang := min (anfang, neuer anfang),ÿÿÿÿÿÿÿ>            schreibende := max (ende, neues ende).ÿÿÿÿÿÿÿÿÿÿÿÿÿ. neuer anfang : where - vorkommazeichen + 1.ÿÿÿ> vorkommazeichen : max (2,(decimal exponent (value) + 2)).ÿÿÿÿÿ. neues ende : where + nachkommastellen + 1.ÿÿÿÿ zahl in text umwandeln :ÿÿÿÿÿÿ>   worktext := text (value,stellen,nachkommastellen);ÿÿÿÿÿÿÿÿÿÿ.   IF decimal exponent (value) < 0 THENÿÿÿÿÿÿÿÿN      change (worktext," .","0."); change (worktext," -.","-0.");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF nachkommastellen = 0 THEN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      replace (worktext, LENGTH worktext, " ")ÿ>   WHILE LENGTH worktext < schreibende-schreibanfang+1 REPÿÿÿÿÿ      worktext CAT " "ÿÿÿÿÿÿÿÿÿ zahl ersetzen : ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   WHILE LENGTH source < schreibende REPÿÿÿÿÿÿÿ      source CAT " "ÿÿÿÿÿÿÿÿÿÿÿ.   replace (source, schreibanfang, worktext) .ÿ> stellen : where-schreibanfang+ÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿržÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢žÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Ÿÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrŸÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ŸÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2 ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR¡ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚¡ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ¡ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB¢ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¢ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¢ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²£ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò£ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB¤ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚¤ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¤ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2¥ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¥ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB¦ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¦ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ¦ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚§ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR¨ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²¨ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ¨ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"©ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR©ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢©ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò©ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ªÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRªÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâªÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB«ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr«ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ«ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚¬ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¬ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"­ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR­ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢­ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿ"®ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr®ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ®ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"¯ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR¯ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¯ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ¯ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB°ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²°ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò°ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"±ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb±ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’±ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ±ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB²ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚²ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²²ÿW ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2³ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr³ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò³ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB´ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr´ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢´ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ´ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2µÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbµÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢µÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂµÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòµÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB¶ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚¶ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò¶ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2·ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr·ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢·ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò·ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB¸ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr¸ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢¸ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb¹ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò¹ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ºÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbºÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâºÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR»ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚»ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ»ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò»ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2¼ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb¼ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¼ÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò¼ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2½ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr½ÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb¾ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’¾ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ¾ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2¿ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr¿ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò¿ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÀÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÀÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Àÿ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÁÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Áÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Âÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÂÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÂÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÃÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Ãÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÄÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Äÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÄÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÅÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÅÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Åÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÅÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Æÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÆÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Æÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÆÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Çÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÇÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Çÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÇÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÈÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÈÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÈÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Éÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÉÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Éÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÉÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Êÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÊÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbËÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ËÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ‚Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÌÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ2Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÍÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÍÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÍÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Îÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÎÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Îÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÏÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Ïÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2+nachkommastellen. ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC replace number;ÿÿÿÿÿÿ END PACKET pick;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PACKET rechner DEFINES clear, push, result, do,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                        superklammer auf, superklammer zu,ÿÿÿÿÿ>                        empty, operand expected, dump:ÿÿÿÿÿÿÿÿÿN (********************************************************************)ÿÿÿÿÿÿÿÿN (*                                                                  *)ÿÿÿÿÿÿÿÿN (*  Rechenwerk fuer TeCal                                13.09.84   *)ÿÿÿÿÿÿÿÿN (*                                                                  *)ÿÿÿÿÿÿÿÿN (********************************************************************)ÿÿÿÿÿÿÿÿ> LET  plus = 1, minus = 2, mal = 3, durch = 4, hoch = 5,ÿÿÿÿÿÿÿN      monad minus = 6, klammer auf = 7, klammer zu = 8, gleich = 9; ÿÿÿÿÿÿÿÿÿÿÿ> LET klammerpriostufe = 10, superklammerpriostufe = 500;ÿÿÿÿÿÿÿ LET tiefe = 30; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ REAL VAR dummy;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL VAR war operand; ÿÿÿÿÿÿÿÿN INT VAR operandentop, operatorentop, klammerprio, superklammerprio; ÿÿÿÿÿÿÿÿÿÿ. ROW tiefe INT VAR operatorenstack;ÿÿÿÿÿÿÿÿÿÿÿÿ. ROW tiefe REAL VAR operandenstack; ÿÿÿÿÿÿÿÿÿÿÿ PROC superklammer auf :ÿÿÿÿÿÿÿ    IF war operand THENÿÿÿÿÿÿÿÿ       pop (dummy)ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    superklammerprio INCR superklammerpriostufe;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    klammerprio INCR superklammerpriostufeÿÿÿÿÿ END PROC superklammer auf;ÿÿÿÿ PROC superklammer zu :ÿÿÿÿÿÿÿÿ.    IF superklammerprio > 0 THENÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       push (gleich);ÿÿÿÿÿÿÿÿÿÿ>       superklammerprio DECR superklammerpriostufe;ÿÿÿÿÿÿÿÿÿÿÿÿ.       klammerprio DECR superklammerpriostufeÿÿ END PROC superklammer zu;ÿÿÿÿÿ INT PROC prio (INT CONST op):ÿ.    klammer prio + elementar prio.ÿÿÿÿÿÿÿÿÿÿÿÿÿ elementar prio :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    SELECT op OF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    CASE plus,minus : 2ÿÿÿÿÿÿÿÿ    CASE mal,durch  : 3ÿÿÿÿÿÿÿÿ    CASE hoch       : 4ÿÿÿÿÿÿÿÿ    CASE monadminus : 6ÿÿÿÿÿÿÿÿ    CASE klammerzu  : 0ÿÿÿÿÿÿÿÿ>    CASE gleich     : -klammerprio+superklammerprioÿÿÿÿÿÿÿÿÿÿÿÿ>    OTHERWISE errorstop ("prio("+text(op)+")"); 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC prio;    operandentop := 0;ÿÿÿÿÿÿÿÿÿ    operatorentop := 0; ÿÿÿÿÿÿÿ    war operand := FALSE;ÿÿÿÿÿÿ    klammerprio := 0;ÿÿÿÿÿÿÿÿÿÿ    superklammerprio := 0;ÿÿÿÿÿ END PROC clear;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC push (INT CONST op) :ÿÿÿÿ    enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF war operand THENÿÿÿÿÿÿÿÿ>       dyadischer operator oder gleich oder klammer zu ÿÿÿÿÿÿÿÿ.    ELIF op = minus COR op = monad minus THENÿÿ       push monadisches minusÿÿ    ELIF op = plus THENÿÿÿÿÿÿÿÿ.       (* ignoriere monad plus *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ELIF op = klammer auf THENÿ       IF stack zu voll THENÿÿÿ.          errorstop ("Zuviele offene Klammern").       klammerprio INCR klammerpriostufeÿÿÿÿÿÿÿ>       errorstop ("Zahl erwartet, letzten Operator ignoriert")ÿ> dyadischer operator oder gleich oder klammer zu :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>    IF op = monad minus COR op = klammer auf THENÿÿÿÿÿÿÿÿÿÿÿÿÿÿN       (* errorstop ("Operator (+,-,*,/) vor Klammer auf fehlt")*)ÿÿÿÿÿÿÿÿÿÿÿÿÿ       ignore last operand;ÿÿÿÿ       push (op);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       LEAVE pushÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       WHILE prio (op) <= stack top prio REPEAT          auswertenÿÿÿÿÿÿÿÿÿÿÿÿ       push operatorÿÿÿÿÿÿÿÿÿÿÿ stack top prio : ÿÿÿÿÿÿÿÿÿÿÿÿÿ.    IF operatorentop = 0 THEN -1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ELSE operator DIV 10ÿÿÿÿÿÿÿ stack zu voll :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    operandentop >= tiefe - 4.ÿ    REAL VAR op2;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    SELECT operator MOD 10 OFÿÿ.    CASE monad minus : operand := - operandÿÿÿÿ.    CASE plus : pop (op2); operand INCR op2ÿÿÿÿ.    CASE minus: pop (op2); operand DECR op2ÿÿÿÿ>    CASE mal  : pop (op2); operand := operand * op2ÿÿÿÿÿÿÿÿÿÿÿÿ>    CASE durch: pop (op2); operand := operand / op2 ÿÿÿÿÿÿÿÿÿÿÿ>    CASE hoch : pop (op2); operand := operand ** op2 ÿÿÿÿÿÿÿÿÿÿ^ (**) errorstop ("Im Opstack ("+text(operatorentop)+") gefunden : "+text(operator))ÿÿÿÿÿÿÿÿÿÿÿÿ    END SELECT;    war operand := TRUE;ÿÿÿÿÿÿÿ    operatorentop DECR 1.ÿÿÿÿÿÿ push operator :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF op = klammerzu THENÿÿÿÿÿ.       IF klammerprio > superklammerprio THENÿÿN          klammerprio DECR klammerpriostufe (* ELSE ignoriere ")" zuviel *)ÿÿÿÿ    ELIF op = gleich THENÿÿÿÿÿÿ.       klammerprio := superklammerprio; ÿÿÿÿÿÿÿ       operatorentop INCR 1;ÿÿÿ.       operator := prio (op) * 10 + op;ÿÿÿÿÿÿÿÿ       war operand := FALSEÿÿÿÿ push monadisches minus :ÿÿÿÿÿÿ    operatorentop INCR 1;ÿÿÿÿÿÿ>    operator := prio (monad minus) * 10 + monad minus.ÿÿÿÿÿÿÿÿÿ ignore last operand :ÿÿÿÿÿÿÿÿÿ    pop (dummy).ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC push; PROC push (REAL CONST op) :ÿÿÿ    IF war operand THENÿÿÿÿÿÿÿÿ>       operand := op; (* Operand wird ueberschrieben *)ÿÿÿÿÿÿÿÿ       operandentop INCR 1;ÿÿÿÿ       operand := op;ÿÿÿÿÿÿÿÿÿÿ       war operand := TRUEÿÿÿÿÿ END PROC push; PROC pop (REAL VAR r) :ÿÿÿÿÿÿÿ    IF operandentop = 0 THENÿÿÿ.       errorstop ("Operand fehlt")ÿÿÿÿÿÿÿÿÿÿÿÿÿ    ELSE r := operand;ÿÿÿÿÿÿÿÿÿ       operandentop DECR 1ÿÿÿÿÿ    war operand := FALSEÿÿÿÿÿÿÿ REAL PROC result :ÿÿÿÿÿÿÿÿÿÿÿÿ>    IF operanden top > 0 THEN operand ELSE 0.0 FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC result;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL PROC empty :ÿÿÿÿÿÿÿÿÿÿÿÿÿ    operandentop < 1ÿÿÿÿÿÿÿÿÿÿÿ END PROC empty;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL PROC operand expected :ÿÿ    NOT war operandÿÿÿÿÿÿÿÿÿÿÿÿ END PROC operand expected;ÿÿÿÿ. PROC do (REAL PROC (REAL CONST) f):ÿÿÿÿÿÿÿÿÿÿÿ    IF NOT war operand THENÿÿÿÿ       push (f(result))ÿÿÿÿÿÿÿÿ       operand := f(operand)ÿÿÿ   INT VAR x,y;   get cursor (x,y);ÿÿÿÿÿÿÿÿÿÿÿ   cursor (1,1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    put(operatorentop);put ("OPERATOREN");ÿÿÿÿÿ.    FOR i FROM 1 UPTO operatorentop REPÿÿÿÿÿÿÿÿ.        put (text (operatorenstack(i),8));ÿÿÿÿÿ    PER;out (""5""); line; ÿÿÿÿ.    put (operandentop);put ("OPERANDEN ");ÿÿÿÿÿ.    FOR i FROM 1 UPTO operandentop REPÿÿÿÿÿÿÿÿÿ.        put (text (operandenstack(i),8,2));ÿÿÿÿ    PER;out (""5""); line;ÿÿÿÿÿ.    put ("Klammern:");put(klammerprio);ÿÿÿÿÿÿÿÿ>    put ("Superklammern:");put(superklammerprio);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN    IF war operand THEN put ("war operand") ELSE put ("war operator") FI;line;ÿ    cursor (x,y);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC dump;. operand : operandenstack (operandentop).ÿÿÿÿÿÿ. operator: operatorenstack(operatorentop).ÿÿÿÿÿ END PACKET rechner;ÿÿÿÿÿÿÿÿÿÿÿN PACKET tecalfunctions DEFINES merke, prozentsatz, kommastellen,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                               prozent, evaluate, tecal :ÿÿÿÿÿÿN (********************************************************************)ÿÿÿÿÿÿÿÿN (*                                                                  *)ÿÿÿÿÿÿÿÿN (*  TeCal - Funktionen                                   15.09.84   *)ÿÿÿÿÿÿÿÿN (*                                                                  *)ÿÿÿÿÿÿÿÿN (********************************************************************)ÿÿÿÿÿÿÿÿN LET operatorenliste = "+-*/^ ()=", gib ausdruck = ""15" gib wert : ";ÿÿÿÿÿÿÿÿÿN REAL VAR speicher := 0.0, percent := 14.0, displayed value := -1.0;ÿÿÿÿÿÿÿÿÿÿÿ INT VAR nachkommastellen := 2;. INT VAR zeiger,dachpos;   (* fuer evaluate *)ÿ. TEXT VAR char;            (* fuer evaluate *)ÿ. TEXT VAR status line, anzeigetext;ÿÿÿÿÿÿÿÿÿÿÿÿN INT VAR anzeigestart, anzeigelaenge, memorystart, prozentstart;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ init status line;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC evaluate (TEXT CONST formel):ÿÿÿÿÿÿÿÿÿÿÿÿ    evaluate (formel,1)ÿÿÿÿÿÿÿÿ END PROC evaluate;ÿÿÿÿÿÿÿÿÿÿÿÿ> PROC evaluate (TEXT CONST formel, INT CONST ab wo):ÿÿÿÿÿÿÿÿÿÿÿ    enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    zum formelanfang; ÿÿÿÿÿÿÿÿÿ.       zum naechsten relevanten zeichen;ÿÿÿÿÿÿÿ.       IF formelende THEN LEAVE evaluateÿÿÿÿÿÿÿ       symbol verarbeitenÿÿÿÿÿÿÂÏÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÐÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÐÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Ñÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÑÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Ñÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÑÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÒÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Òÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÒÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÓÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÓÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Ôÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÔÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÔÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÕÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Õÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÕÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÖÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Öÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÖÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB×ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚×ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²×ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò×ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Øÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbØÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂØÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"Ùÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÙÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÙÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÚÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Úÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÚÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Ûÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÛÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÜÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÜÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’Üÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÜÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2Ýÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÝÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÝÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÞÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÞÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÞÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbßÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ßÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"àÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRàÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢àÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòàÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRáÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²áÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"âÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrâÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒâÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ãÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ãÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRäÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²äÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRåÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂåÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòåÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBæÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’æÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâæÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"çÿ] ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚çÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒçÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"èÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbèÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢èÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒèÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBéÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚éÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²éÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâéÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"êÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrêÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂêÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòêÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿëÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂëÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRìÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ‚ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ìÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòìÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2íÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂíÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòíÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRîÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚îÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂîÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿòîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBïÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ïÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒïÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbðÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ðÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâðÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdisable stop;ÿÿÿÿÿÿÿÿñÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRñÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ñÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿIF is errorÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBòÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿròÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿ²òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâòÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"óÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRóÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’óÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòóÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRôÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ôÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂôÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBõÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚õÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒõÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"öÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿröÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ           ÿÿÿÿÿÿÿÿÿÿÂöÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòöÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR÷ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚÷ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢÷ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdisable stop;ÿÿÿÿÿÿÿÿÂ÷ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRøÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿIF is errorÿÿÿÿÿÿÿÿÿÿ¢øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâøÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿRùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ùÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂùÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"úÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRúÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’úÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒúÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ûÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrûÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ûÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòûÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²üÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòüÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBýÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrýÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂýÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòýÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRþÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢þÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòþÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC	ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs	ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“	ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    UNTIL gleich zeichen verarbeitet PER.ÿÿÿÿÿÿ zum formelanfang :ÿÿÿÿÿÿÿÿÿÿÿÿ.    dachpos := pos (formel,"^");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    zeiger:= ab wo - 1.ÿÿÿÿÿÿÿÿ. zum naechsten relevanten zeichen :ÿÿÿÿÿÿÿÿÿÿÿÿ>       zum naechsten wahrscheinlich relevanten zeichenÿÿÿÿÿÿÿÿÿ.    UNTIL formelende COR wirklich relevant PER.> zum naechsten wahrscheinlich relevanten zeichen:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    zeiger := pos (formel,"%","=",zeiger+1);ÿÿÿ.    IF dachpos <> 0 CAND zeiger > dachpos THENÿ       zeiger := dachpos;ÿÿÿÿÿÿ.       dachpos := pos (formel,"^",dachpos+1)ÿÿÿ    zeiger = 0. wirklich relevant :ÿÿÿÿÿÿÿÿÿÿÿ    char := formel SUB zeiger;ÿ    pos ("',.:;<", char) = 0.ÿÿ symbol verarbeiten :ÿÿÿÿÿÿÿÿÿÿ    IF ziffer THENÿÿÿÿÿÿÿÿÿÿÿÿÿ>       push (abs(pick up number(formel,zeiger)));ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       zeiger := right rangeÿÿÿ>       INT VAR op := pos (operatorenliste,char);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       IF op > 0 THENÿÿÿÿÿÿÿÿÿÿ          push (op)ÿÿÿÿÿÿÿÿÿÿÿÿ       ELIF char = "%" THENÿÿÿÿ.          do (REAL PROC (REAL CONST) prozent)ÿÿ>       ELSE errorstop ("TeCal FEHLER : symbol verarbeiten")ÿÿÿÿ. gleichzeichen verarbeitet : char = "=".ÿÿÿÿÿÿÿ. ziffer : pos ("0123456789",char) > 0.ÿÿÿÿÿÿÿÿÿ END PROC evaluate;ÿÿÿÿÿÿÿÿÿÿÿÿ PROC merke (REAL CONST wert) :  speicher := wert;ÿÿÿÿÿÿÿÿÿÿÿÿ  set anzeigetext (speicher);ÿÿ.  replace (statusline,memorystart,anzeigetext);  show status lineÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC merke;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC merke (INT CONST wert) :ÿ  merke (real (wert));ÿÿÿÿÿÿÿÿÿ END PROC merke;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC prozentsatz (REAL CONST wert) :ÿÿÿÿÿÿÿÿÿÿ  percent := wert;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>  replace (statusline,prozentstart,text(percent,6,2));ÿÿÿÿÿÿÿÿÿ  show status line;ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC prozentsatz;ÿÿÿÿÿÿÿÿÿ. PROC prozentsatz (INT CONST wert) :ÿÿÿÿÿÿÿÿÿÿÿ  prozentsatz (real (wert));ÿÿÿ END PROC prozentsatz;ÿÿÿÿÿÿÿÿÿ. PROC kommastellen (INT CONST anz stellen) :ÿÿÿ>  nachkommastellen := max  (  0,  min (anz stellen, 16)) ;ÿÿÿÿÿ  set anzeigetext (0.0);ÿÿÿÿÿÿÿ>  replace (statusline,anzeigestart,anzeigetext);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  merke (speicher);ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC kommastellen;ÿÿÿÿÿÿÿÿ. REAL PROC prozent (REAL CONST wovon) :ÿÿÿÿÿÿÿÿ  percent * wovon / 100.0ÿÿÿÿÿÿ END PROC prozent;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. REAL PROC runden (REAL CONST was) :ÿÿÿÿÿÿÿÿÿÿÿ   round (was,nachkommastellen) END PROC runden;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC init status line :ÿÿÿÿÿÿÿ    statusline := ÿÿÿÿÿÿÿÿÿÿÿÿÿ^ "$Anzeige: & __________._________  $    %%%.%%% Memory: ----------.--------- &"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ;  change all (statusline,"$",""15"");ÿÿÿÿÿÿÿÿ.    change all (statusline,"&",""14"");ÿÿÿÿÿÿÿÿ.    anzeigestart := pos (statusline,"_");ÿÿÿÿÿÿN    anzeigelaenge:= pos (statusline," ",anzeigestart)-anzeigestart; ÿÿÿÿÿÿÿÿÿÿÿ.    memorystart  := pos (statusline,"-");ÿÿÿÿÿÿ.    prozentstart := pos (statusline,"%");ÿÿÿÿÿÿ    set anzeigetext (0.0);ÿÿÿÿÿ>    replace (statusline,anzeigestart,anzeigetext);ÿÿÿÿÿÿÿÿÿÿÿÿÿ    set anzeigetext (speicher);>    replace (statusline,memorystart,anzeigetext);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    replace (statusline,prozentstart,text(percent,6,2))ÿÿÿÿÿÿÿÿ END PROC init status line;ÿÿÿÿ PROC show status line :ÿÿÿÿÿÿÿ.    cursor (1,y screen size); out (statusline);    displayed value := 0.0;ÿÿÿÿ    display valueÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC show status line;ÿÿÿÿ PROC display value :ÿÿÿÿÿÿÿÿÿÿ.    IF displayed value <> result THENÿÿÿÿÿÿÿÿÿÿ.       cursor (anzeigestart,y screen size);ÿÿÿÿ.       set anzeigetext (result);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       out (anzeigetext)ÿÿÿÿÿÿÿ END PROC display value;ÿÿÿÿÿÿÿ. PROC get expression (TEXT VAR exp) :ÿÿÿÿÿÿÿÿÿÿ   cursor (1,yscreen size);ÿÿÿÿ   out (gib ausdruck);ÿÿÿÿÿÿÿÿÿ>   (x screen size - 4 - LENGTH gib ausdruck) TIMESOUT " ";ÿÿÿÿÿ   out (""14""15""8" ");ÿÿÿÿÿÿÿ.   cursor (LENGTH gib ausdruck, y screen size);   editget (exp);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC get expression;ÿÿÿÿÿÿ. PROC set anzeigetext (REAL CONST r) :ÿÿÿÿÿÿÿÿÿN   IF decimal exponent (r) + nachkommastellen + 3 <= anzeigelaenge THENÿÿÿÿÿÿÿÿ>      anzeigetext := text (r,anzeigelaenge,nachkommastellen);ÿÿ.      IF decimal exponent (r) < 0 THENÿÿÿÿÿÿÿÿÿN         change (anzeigetext," .","0."); change (anzeigetext," -.","-0.");ÿÿÿÿÿ.      IF nachkommastellen = 0 THEN ÿÿÿÿÿÿÿÿÿÿÿÿ>         replace (anzeigetext, LENGTH anzeigetext, " ")ÿÿÿÿÿÿÿÿ.      anzeigetext := text (r,anzeigelaenge)ÿÿÿÿ END PROC set anzeigetext;ÿÿÿÿÿN (***************  TeCal - Editor - Schnittstelle  *****************)ÿÿÿÿÿÿÿÿÿÿ> LET  tecal tasten    = "tq%()*+-/=CEFHKLMNRSVW^T"9"?",ÿÿÿÿÿÿÿÿ>      funktionenliste = "LSCEFHKMNRVWtq%"9"T?"        ,ÿÿÿÿÿÿÿÿ>      zahlzeichen     = "1234567890.,-+"              ,ÿÿÿÿÿÿÿÿ>      std tasten      = "tqevw19dpgn"9""              ;ÿÿÿÿÿÿÿÿ LET kommando prozent  = 15,ÿÿÿ     kommando clear    = 3,ÿÿÿÿ     kommando einlesen = 4,ÿÿÿÿ     kommando formel   = 5,ÿÿÿÿ     kommando recall   = 7,ÿÿÿÿ     kommando lesen    = 1,ÿÿÿÿ     kommando store    = 8,ÿÿÿÿ     kommando naechste = 9,ÿÿÿÿ     kommando q        = 14,ÿÿÿ     kommando runden   = 10,ÿÿÿ     kommando schreiben= 2,ÿÿÿÿ     kommando umschalt = 13,ÿÿÿ     kommando ver sum  = 11,ÿÿÿ     kommando fenster  = 12,ÿÿÿ     kommando type     = 17,ÿÿÿ     kommando help     = 18;ÿÿÿ LET x screen size       = 79,ÿ     y screen size       = 24;ÿ FILE VAR tecal file;ÿÿÿÿÿÿÿÿÿÿ TEXT VAR record, input buffer; INT VAR record pos;ÿÿÿÿÿÿÿÿÿÿÿ PROC dateizeile lesen :ÿÿÿÿÿÿÿ   set busy indicator;ÿÿÿÿÿÿÿÿÿ.   read record (tecal file, record);ÿÿÿÿÿÿÿÿÿÿÿ.   record pos := col (tecal file)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC dateizeile lesen; ÿÿÿ PROC zahl aufsammeln :ÿÿÿÿÿÿÿÿ    dateizeile lesen;ÿÿÿÿÿÿÿÿÿÿ>    REAL VAR zahl := pick up number (record, record pos);ÿÿÿÿÿÿ    IF last pick up ok THENÿÿÿÿ       push (zahl)ÿÿÿÿÿÿÿÿÿÿÿÿÿ.       errorstop ("Keine Zahl gefunden")ÿÿÿÿÿÿÿ END PROC zahl aufsammeln;ÿÿÿÿÿ REAL PROC spaltensumme :ÿÿÿÿÿÿ    anfangsposition merken;ÿÿÿÿ.    nach oben laufen und addieren;ÿÿÿÿÿÿÿÿÿÿÿÿÿ    zum anfang zurueck;ÿÿÿÿÿÿÿÿ. nach oben laufen und addieren :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    WHILE NOT oben angekommen REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       hochgehen und satz lesen;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       record auswertenÿÿÿÿÿÿÿÿ anfangsposition merken :ÿÿÿÿÿÿ.    INT VAR alte zeile := line no (tecal file);    dateizeile lesen;ÿÿÿÿÿÿÿÿÿÿ>    REAL VAR summe := pick up number (record,record pos);ÿÿÿÿÿÿ.    BOOL VAR weiterlaufen := TRUEÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    IF NOT last pick up ok THEN        summe := 0.0ÿÿÿÿÿÿÿÿÿÿÿ zum anfang zurueck :ÿÿÿÿÿÿÿÿÿÿ.    to line (tecalfile, alte zeile).ÿÿÿÿÿÿÿÿÿÿÿ hochgehen und satz lesen :ÿÿÿÿ    up (tecal file);ÿÿÿÿÿÿÿÿÿÿÿ.    read record (tecal file, record).ÿÿÿÿÿÿÿÿÿÿN oben angekommen : line no (tecalfile) = 1 COR NOT weiterlaufen.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ record auswerten :ÿÿÿÿÿÿÿÿÿÿÿÿ    IF blankzeile THENÿÿÿÿÿÿÿÿÿ       weiterlaufen := TRUE ÿÿÿ    ELIF kein zahlzeichen THENÿ       weiterlaufen := FALSEÿÿÿ>       summe INCR pick up number (record,record pos);ÿÿÿÿÿÿÿÿÿÿ.       weiterlaufen := last pick up okÿÿÿÿÿÿÿÿÿN blankzeile : LENGTH record < record pos COR (record SUB record pos) = " ".ÿÿÿÿN kein zahlzeichen : pos (zahlzeichen,record SUB recordpos) = 0. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC spaltensumme;ÿÿÿÿÿÿÿÿ. PROC tecal (TEXT CONST filename) :ÿÿÿÿÿÿÿÿÿÿÿÿ   type (""27"t");ÿÿÿÿÿÿÿÿÿÿÿÿÿ   edit (filename).ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC tecal;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF groesster editor > 0ÿÿÿÿÿÿ     THEN tecal auf editfileÿÿÿ     ELSE tecal (lastparam)ÿÿÿÿ tecal auf editfile :ÿÿÿÿÿÿÿÿÿÿ    FILE VAR f := editfile;ÿÿÿÿ    tecal (f) . END PROC tecal;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC tecal (FILE VAR ed file) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   enable stop     ;ÿÿÿÿÿÿÿÿÿÿÿ>   open editor (groesster editor + 1, ed file,  TRUE,ÿÿÿÿÿÿÿÿÿÿÓ	ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#
ÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ
ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³
ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã
ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS!ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£!ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó!ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#"ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc"ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£"ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ"ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ##ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc#ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£#ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã#ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC$ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ$ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£$ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ$ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ%ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3%ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs%ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£%ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ%ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#&ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³&ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã&ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ'ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs'ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ'ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3(ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc(ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ(ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ)ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc)ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ)ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³)ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ*ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3*ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs*ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£*ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó*ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs+ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³+ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3,ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc,ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“,ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ-ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3-ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS-ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£-ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ-ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3.ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS.ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs.ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³.ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã.ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ/ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC/ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc/ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“/ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ/ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#0ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS0ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ0ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³0ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ0ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó0ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#1ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS1ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“1ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS2ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“2ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ2ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ33ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc3ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³3ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ4ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ34ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs4ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£4ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã4ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI; ÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ5ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC5ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs5ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£5ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã5ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#6ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs6ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£6ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã6ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#7ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc7ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“7ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ7ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#8ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS8ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ8ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ8ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ9ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC9ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“9ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã9ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS:ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs:ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³:ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó:ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3;ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs;ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³;ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó;ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#<ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS<ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“<ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ<ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ=ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                1, 1, x screen size, y screen size - 1);ÿÿÿÿÿÿÿ   show status line;ÿÿÿÿÿÿÿÿÿÿÿ>   edit (groesster editor, tecal tasten + std tasten,ÿÿÿÿÿÿÿÿÿÿ.         PROC (TEXT CONST) tecal interpreter) . END PROC tecal;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC tecal interpreter (TEXT CONST symbol) :ÿÿ   tecal file := editfile ;ÿÿÿÿ   nichts neu ;>   INT VAR kommando := pos (operatorenliste,symbol);ÿÿÿÿÿÿÿÿÿÿÿ   IF kommando > 0 THENÿÿÿÿÿÿÿÿ      normale rechenoperationÿÿ>   ELSE kommando := pos (funktionenliste,symbol);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      sonderfunktionÿÿÿÿÿÿÿÿÿÿÿ normale rechenoperation :ÿÿÿÿÿ>   IF operand expected CAND keine klammer auf THENÿÿÿÿÿÿÿÿÿÿÿÿÿ      zahl aufsammelnÿÿÿÿÿÿÿÿÿÿ   push (kommando);ÿÿÿÿÿÿÿÿÿÿÿÿ   display value.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. keine klammer auf : symbol <> "(".ÿÿÿÿÿÿÿÿÿÿÿÿ sonderfunktion :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   SELECT kommando OFÿÿÿÿÿÿÿÿÿÿ.     CASE kommando prozent  : do prozentÿÿÿÿÿÿÿ.     CASE kommando clear    : do clearÿÿÿÿÿÿÿÿÿ.     CASE kommando einlesen : do getÿÿÿÿÿÿÿÿÿÿÿ.     CASE kommando formel   : do formelrechnung.     CASE kommando ver sum  : do spaltensummeÿÿ.     CASE kommando recall   : do speicher lesen>     CASE kommando lesen    : do zahl aufsammelnÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE kommando store    : do speicher schreibenÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE kommando naechste : do zur naechsten zahlÿÿÿÿÿÿÿÿÿÿÿÿ.     CASE kommando q        : quitÿÿÿÿÿÿÿÿÿÿÿÿÿ.     CASE kommando runden   : do rundenÿÿÿÿÿÿÿÿ.     CASE kommando schreiben: do schreibenÿÿÿÿÿ>     CASE kommando umschalt : do tecal abschaltenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE kommando type     : do type displayed valueÿÿÿÿÿÿÿÿÿÿ> (*  CASE kommando hor sum  : calculate ver sum*)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE kommando fenster  : do fenster als zweiten operandenÿ> (*  CASE kommando tab      :  calculate tab sum *)ÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE kommando help     : do ("tecal auskunft")ÿÿÿÿÿÿÿÿÿÿÿÿ>     OTHERWISE              : std kommando interpreter (symbol)   IF operand expected THENÿÿÿÿ      zahl aufsammelnÿÿÿÿÿÿÿÿÿÿ.   do (REAL PROC (REAL CONST) prozent);ÿÿÿÿÿÿÿÿ   display value.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ueberschrift neu;ÿÿÿÿÿÿÿÿÿÿÿ   show status line.ÿÿÿÿÿÿÿÿÿÿÿ   input buffer := "";ÿÿÿÿÿÿÿÿÿ.   get expression (input buffer);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF input buffer > " " THENÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      superklammer auf;ÿÿÿÿÿÿÿÿ      evaluate (input buffer);ÿ      superklammer zu;ÿÿÿÿÿÿÿÿÿ      show status line;ÿÿÿÿÿÿÿÿ      enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ      show status lineÿÿÿÿÿÿÿÿÿ do zahl aufsammeln :ÿÿÿÿÿÿÿÿÿÿ   zahl aufsammeln;ÿÿÿÿÿÿÿÿÿÿÿÿ   display value.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ do speicher schreiben :ÿÿÿÿÿÿÿ   merke (result);ÿÿÿÿÿÿÿÿÿÿÿÿÿ   show status line.ÿÿÿÿÿÿÿÿÿÿÿ do type displayed value :ÿÿÿÿÿ   set anzeigetext (result);ÿÿÿ   push(compress(anzeigetext)). do speicher lesen :ÿÿÿÿÿÿÿÿÿÿÿ   push (speicher);ÿÿÿÿÿÿÿÿÿÿÿÿ   display value.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ do spaltensumme :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   push (spaltensumme);ÿÿÿÿÿÿÿÿ   display value.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ do formelrechnung :ÿÿÿÿÿÿÿÿÿÿÿ   dateizeile lesen;ÿÿÿÿÿÿÿÿÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      superklammer auf;ÿÿÿÿÿÿÿÿ      evaluate (record);ÿÿÿÿÿÿÿ      superklammer zu;ÿÿÿÿÿÿÿÿÿ      enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   display value;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   IF enthaelt gleichzeichen CAND NOT empty THEN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      ergebnis dahinter schreiben ÿÿÿÿÿÿÿÿÿÿÿÿÿ      col (LENGTH record + 1)ÿÿ enthaelt gleichzeichen :ÿÿÿÿÿÿ.   INT VAR gleichpos := pos (record,"=");ÿÿÿÿÿÿ   gleichpos > 0.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ergebnis dahinter schreiben :ÿ>   record pos := gleichpos + 2 + decimal exponent (result);ÿÿÿÿ>   gleich pos := pos (record, ".", recordpos + 1) -1;ÿÿÿÿÿÿÿÿÿÿ   IF gleichpos > 0 THENÿÿÿÿÿÿÿ      record pos := gleichposÿÿ>   ergebnis eintragen und dateizeile zurueckschreiben.ÿÿÿÿÿÿÿÿÿ> ergebnis eintragen und dateizeile zurueckschreiben :ÿÿÿÿÿÿÿÿÿÿN   replace number (record, result, record pos, nachkommastellen);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   write record (tecal file, record);ÿÿÿÿÿÿÿÿÿÿ   col (record pos).ÿÿÿÿÿÿÿÿÿÿÿ do zur naechsten zahl :ÿÿÿÿÿÿÿ   dateizeile lesen;ÿÿÿÿÿÿÿÿÿÿÿ>   record pos := pos (record,"0","9",record pos);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF record pos = 0 THENÿÿÿÿÿÿ.      record pos := LENGTH record + 1ÿÿÿÿÿÿÿÿÿÿ   col (record pos).ÿÿÿÿÿÿÿÿÿÿÿ do schreiben :   IF NOT empty THENÿÿÿÿÿÿÿÿÿÿÿ      dateizeile lesen;ÿÿÿÿÿÿÿÿ>      ergebnis eintragen und dateizeile zurueckschreibenÿÿÿÿÿÿÿ.   IF NOT empty AND NOT operand expected THENÿÿ.      do (REAL PROC (REAL CONST) runden)ÿÿÿÿÿÿÿ. do fenster als zweiten operanden :ÿÿÿÿÿÿÿÿÿÿÿÿ   IF empty THEN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      push (0.0)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      push (result)ÿÿÿÿÿÿÿÿÿÿÿÿ do tecal abschalten :ÿÿÿÿÿÿÿÿÿ   edit (tecalfile).ÿÿÿÿÿÿÿÿÿÿÿ END PROC tecal interpreter;ÿÿÿ. kommando auf taste legen ("t","tecal");ÿÿÿÿÿÿÿ> (*kommando auf taste legen ("?","tecalauskunft");*)ÿÿÿÿÿÿÿÿÿÿÿ END PACKET tecal functions; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc=ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³=ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS>ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£>ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ>ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó>ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3?ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc?ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£?ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó?ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#@ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS@ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“@ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ@ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSAÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Aÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Aÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãAÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#Bÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcBÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Bÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Cÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSCÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Cÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓCÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCDÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsDÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Dÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóDÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Eÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsEÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Eÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃEÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóEÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#Fÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSFÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Fÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃFÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóFÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCGÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsGÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Gÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃGÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóGÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿ#Hÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSHÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsHÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Hÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃHÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãHÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿIÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCIÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒIÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Iÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóIÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿJÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCJÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsJÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Jÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓJÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóJÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Kÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcKÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒKÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³KÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Lÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsLÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Lÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃLÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóLÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#Mÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSMÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿsMÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Mÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãMÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿNÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCNÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Nÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓNÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿOÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Oÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSOÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Oÿ] ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóOÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcPÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“PÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãPÿ\ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCQÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsQÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃQÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3RÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒRÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃRÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCSÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Sÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓSÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿTÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcTÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£TÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿUÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCUÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒUÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃUÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿVÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSVÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsVÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Vÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóVÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Wÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsWÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Wÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓWÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#Xÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSXÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒXÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Xÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãXÿX ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCYÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒYÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Yÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóYÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ZÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒZÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃZÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#[ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS[ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“[ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ[ÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3\ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs\ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“\ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ\ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ]ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS]ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“]ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³]ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó]ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC^ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs^ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£^ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ^ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿX ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc_ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£_ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ_ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó_ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ`ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC`ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“`ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ`ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã`ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3aÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcaÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£aÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãaÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#bÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSbÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“bÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃbÿ` ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ3cÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿccÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“cÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓcÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3dÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsdÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³dÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓdÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿódÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿeÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCeÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿceÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“eÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃeÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿfÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3fÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcfÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£fÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓfÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿgÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3gÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcgÿe ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÓgÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿhÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿChÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒhÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓhÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿiÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSiÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“iÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓiÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóiÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#jÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcjÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£jÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿójÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCkÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿckÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£kÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓkÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿlÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#lÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿClÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒlÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£lÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃlÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãlÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿmÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#mÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSmÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsmÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£mÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃmÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿómÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3nÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSnÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒnÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãnÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿoÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCoÿg ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³oÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãoÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿpÿg ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿspÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“pÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³pÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCqÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“qÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãqÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#rÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒrÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃrÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿórÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#sÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcsÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒsÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£sÿ[ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿtÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#tÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCtÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿstÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³tÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿP@  ÿÿ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TeCal Auskunftÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    X     ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ`€ `€ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáäa€ëÿÿ ÿÿÿÿÿÿ    ÿÿÿÿ      ÿÿÿÿÿÿ      ÿÿÿÿÿÿ ‚>M     ÿÿ   ÿÿa€- ÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿ(*ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq€ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ€ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‚ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáˆÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‰ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‹ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Žÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŽÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‘ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‘ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ’ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa“ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±“ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ”ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘”ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ•ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ•ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±–ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ—ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘—ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá—ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1˜ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ˜ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA™ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘™ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá™ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑšÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!›ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa›ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±›ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQœÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑœÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1žÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑžÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ÿÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŸÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ŸÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŸÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1 ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¡ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¡ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¢ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¢ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¢ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!£ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘£ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá£ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¤ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¤ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¥ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¥ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¦ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¦ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¦ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa§ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘§ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ§ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¨ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¨ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1©ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ©ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA«ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ«ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¬ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¬ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ­ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ­ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!®ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa®ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±®ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¯ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¯ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa°ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±°ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ±ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ±ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!²ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq²ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ²ÿ@ ÿÿÿÓtÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿuÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3uÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSuÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒuÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£uÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓuÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿvÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#vÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsvÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£vÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãvÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿwÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#wÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcwÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒwÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£wÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãwÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿxÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3xÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒxÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£xÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃxÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãxÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿyÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSyÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsyÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£yÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓyÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿzÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#zÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCzÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿczÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒzÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃzÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãzÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ{ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS{ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs{ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“{ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ{ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã{ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ|ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC|ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc|ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£|ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ|ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã|ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ}ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3}ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc}ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“}ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ³}ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó}ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#~ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs~ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³~ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó~ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS€ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ€ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã€ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3‚ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿƒ‚ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³‚ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó‚ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ƒÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI; ÿÿÿÿÿÿÿÿÿÿ	     PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsƒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ƒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãƒÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#„ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“„ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ„ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ…ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ…ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó…ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#†ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³†ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó†ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3‡ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI; ÿÿÿÿÿÿÿÿÿÿ	     PER;ÿÿÿÿÿÿÿÿÿÿÿÿs‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ‡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCˆÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ˆÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓˆÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#‰ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³‰ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Šÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃŠÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc‹ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“‹ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Œÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCŽÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsŽÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ŽÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿCÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS‘ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ‘ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3’ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ’ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã’ÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ“ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ“ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿi ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³”ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC•ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿ£•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿgib cr aus;ÿÿÿÿÿÿÿÿÿÿÃ•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3–ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc–ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³–ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã–ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS—ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó—ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ˜ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ˜ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£™ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“šÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#›ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ›ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó›ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#œÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcœÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“œÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãœÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3žÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿcžÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“žÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãžÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3Ÿÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsŸÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³Ÿÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóŸÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  elan fuss :ÿÿÿÿÿÿÿÿ£ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#¡ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿS¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ³ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!´ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ´ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡´ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaµÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±µÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¶ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¶ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ·ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡·ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá·ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¸ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¸ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¹ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¹ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¹ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ºÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑºÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!»ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa»ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±»ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¼ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¼ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¼ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ½ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡½ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ½ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¾ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¾ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¾ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¿ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÀÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÀÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÀÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÁÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Áÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÁÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÂÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÂÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÃÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÃÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÄÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÄÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÅÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Åÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÅÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Æÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÆÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÆÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÇÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÇÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÈÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÈÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÈÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÉÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÉÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÊÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Êÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÊÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAËÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ëÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁËÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÌÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÌÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÍÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÍÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÍÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÎÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Îÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÎÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÏÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÏÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÐÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÐÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÑÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÑÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÑÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÒÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÒÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÒÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Óÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÓÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÓÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÔÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ*)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ôÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÔÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÕÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÕÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÖÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÖÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÖÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÖÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!×ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ×ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ×ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáØÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÙÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÙÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Úÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÚÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Úÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÚÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÛÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÛÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ûÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÛÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Üÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI . ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÝÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Þÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÞÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaßÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ßÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1àÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡àÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáàÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±áÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿááÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         REP ÿÿÿÿÿÿÿÿQâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqâÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ãÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑãÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAäÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs¡ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³¡ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc¢ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³¢ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#£ÿZ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ££ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC¤ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs¤ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ¤ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc¥ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³¥ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  elan kopf :ÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ¦ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³¦ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã¦ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£§ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ§ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3¨ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó¨ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC©ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿSªÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒªÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓªÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3«ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³«ÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ¬ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃ¬ÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ#­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿc­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ­ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³­ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC®ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿs®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ®ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿgib cr aus;ÿÿÿÿÿÿÿÿÿÿÿÿgib lf aus;ÿÿÿÿÿÿÿÿÿÿc¯ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£¯ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿó¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3°ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ eumel printer.5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. 'ÿÿÿÿÿÿÿN PACKET eumel printer                           (* Autor   : Rudolf Ruland *)ÿÿN                                                (* Version : 5             *)ÿÿN                                                (* Stand   : 25.04.88      *)ÿÿ        DEFINES print, ÿÿÿÿÿÿÿÿ.                with elan listings,ÿÿÿÿÿÿÿÿÿÿÿÿ                is elan source,.                bottom label for elan listings,                x pos,ÿÿÿÿÿÿÿÿÿ                y pos,ÿÿÿÿÿÿÿÿÿ                y offset index,                line type,ÿÿÿÿÿ                material,ÿÿÿÿÿÿ                pages printed,ÿ^ (* >>> ***************************************************************** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> Aus KompatibilitÙtsgrÛnden zur Textverarbeitung der Version 1.8.0 <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> siehe bei 'Berechnung des Zeilenvorschubs'                        <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                old linefeed :ÿ. BOOL VAR old linefeed calculation := TRUE;ÿÿÿÿn PROC old linefeed (BOOL CONST value) : old linefeed calculation := value END PROC old linefeed;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN BOOL PROC old linefeed : old linefeed calculation END PROC old linefeed;ÿÿÿÿÿÿ^ (* >>> ***************************************************************** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT CONST int length  :=  length of one int;ÿÿ . length of one int :ÿÿÿÿÿÿÿÿÿ>     INT VAR int counter := 0, int value := max int;ÿÿÿÿÿÿÿÿÿÿÿ     REP int counter INCR 1;ÿÿÿ.         int value   := int value DIV 256;ÿÿÿÿÿ     UNTIL int value = 0 PER;ÿÿ     int counterÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> ***************************************************************** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LET std x wanted                   =  2.54,ÿÿÿ.     std y wanted                   =  2.35,ÿÿÿ.     std limit                      =  16.0,ÿÿÿ.     std pagelength                 =  25.0,ÿÿÿ.     std linefeed faktor            =  1.0,ÿÿÿÿ.     std material                   =  "";ÿÿÿÿÿ. LET blank                          =  " ",ÿÿÿÿ.     blank code 1                   =  33,ÿÿÿÿÿ>     geschuetztes blank             =  ""223"", ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     keine blankanalyse             =  0,ÿÿÿÿÿÿ.     einfach blank                  =  1,ÿÿÿÿÿÿ.     doppel blank                   =  2,ÿÿÿÿÿÿ.     anweisungszeichen              =  "#",ÿÿÿÿ.     anweisungszeichen code 1       =  36,ÿÿÿÿÿ.     geschuetztes anweisungszeichen =  ""222"",.     druckerkommando zeichen        =  "/",ÿÿÿÿ.     quote                          =  """",ÿÿÿ.     kommentar zeichen              =  "-",ÿÿÿÿ.     punkt                          =  ".",ÿÿÿÿ.     leer                           =   0,ÿÿÿÿÿ.     kommando token                 =  0,ÿÿÿÿÿÿ.     text token                     =  1,ÿÿÿÿÿÿ.     underline linetype             =  1,ÿÿÿÿÿÿ. (*  fraction  linetype             =  2,ÿÿÿÿÿÿ.     root      linetype             =  3,ÿÿÿÿÿÿ.     underline bit                  =  0,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TeCal AuskunftN ::::::::::::::::::: unbekannte Funktion ::::::::::::::::::::::::::: ÿÿÿÿÿÿÿÿÿÿ>       FÛr die getippte Taste existiert kein Auskunftstext ! ÿÿN ::::::::::::::::::::::::     <ESC> ?      ::::::::::::::::::::::::: ÿÿÿÿÿÿÿÿÿÿ Zweck:   Auskunft erteilen ÿÿÿN Wirkung: <ESC> ? erwartet das DrÛcken einer Taste und erteilt dannÿÿÿÿÿÿÿÿÿÿÿÿ>          eine Auskunft zur Wirkung der Funktion : ÿÿÿÿÿÿÿÿÿÿÿÿ.                        <ESC> "gedrÛckte Taste"N          Sofern keine entsprechende Funktion bekannt ist, wird dieseÿÿÿÿÿÿÿÿÿÿ>          Auskunft hier gezeigt.   Beispiel : die Tastenfolge ÿ.                                <ESC> ? M ÿÿÿÿÿ>          bewirkt eine Auskunft zur Funktion <ESC> M.ÿÿÿÿÿÿÿÿÿÿN          Auf diese Weise erhalten Sie zu den folgenden Funktionenÿÿÿÿÿÿÿÿÿÿÿÿÿ          eine Auskunft : ÿÿÿÿÿ.          <ESC> +              Addieren ÿÿÿÿÿÿÿ.          <ESC> -              Subtrahieren ÿÿÿ.          <ESC> *              Multiplizieren ÿ.          <ESC> /              Dividieren ÿÿÿÿÿ.          <ESC> ^              Potenzieren ÿÿÿÿ.          <ESC> =              Ausrechnen ÿÿÿÿÿ.          <ESC> (              Klammerrechnung .          <ESC> )              Klammerrechnung .          <ESC> %              Prozentrechnen ÿ.          <ESC> C              LÚschen ÿÿÿÿÿÿÿÿ>          <ESC> E              Einlesen (Terminal) ÿÿÿÿÿÿÿÿÿÿÿÿ>          <ESC> F              Formel berechnen ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          <ESC> V              Summe bilden ÿÿÿN          <ESC> K              Konstante aus Merkregister holen ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          <ESC> L              Lesen aus Datei .          <ESC> M              Merken ÿÿÿÿÿÿÿÿÿ>          <ESC> N              NÙchste Zahl suchen ÿÿÿÿÿÿÿÿÿÿÿÿ.          <ESC> R              Runden ÿÿÿÿÿÿÿÿÿ>          <ESC> S              Schreiben mit Punktausrichtung ÿ>          <ESC> T              Schreiben im Flieûtext ÿÿÿÿÿÿÿÿÿ.          <ESC> ?              Auskunft ÿÿÿÿÿÿÿ>          <ESC> t              TeCal ein-/ausschalten ÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> =        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ> Zweck:   Ermitteln des Ergebnisses einer Rechnung ÿÿÿÿÿÿÿÿÿÿÿÿ> Wirkung: Wirkt wie die "Gleich"-Taste eines Taschenrechners. ÿ>          <ESC> = folgt der Eingabe der letzten Zahl und fÛhrtÿN          dazu, daû das Ergebnis der gesamten Rechnung in der AnzeigeÿÿÿÿÿÿÿÿÿÿN          erscheint. Eventuell noch fehlende schliessende Klammernÿÿÿÿÿÿÿÿÿÿÿÿÿ>          in einer Rechnung werden automatisch ergÙnzt.ÿÿÿÿÿÿÿÿ> Fehler:  Fehlt bei BetÙtigung von <ESC> = eine Zahl, z.B.ÿÿÿÿÿN          nach einem Operatoren (+,-,*,...), so wird versucht, eineÿÿÿÿÿÿÿÿÿÿÿÿN          Zahl aus der Datei zu lesen (vergleiche <ESC> L). SchlÙgtÿÿÿÿÿÿÿÿÿÿÿÿN          der Versuch fehl, steht also an der Cursorposition keineÿÿÿÿÿÿÿÿÿÿÿÿÿN          gÛltige Zahl, so wird eine entsprechende FehlermeldungÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ausgegeben und das <ESC> = ignoriert. Anschlieûend kannÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          so weitergerechnet werden, als wÙre <ESC> = nicht betÙtigtÿÿÿÿÿÿÿÿÿÿÿ          worden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> (        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Klammerung von RechenausdrÛcken ÿÿÿÿÿN Wirkung: Wirkt wie die "Klammer auf"-Taste eines Taschenrechners. ÿÿÿÿÿÿÿÿÿÿÿÿN          Der Ausdruck, der zwischen <ESC> ( und <ESC> ) eingegebenÿÿÿÿÿÿÿÿÿÿÿÿN          wird, wird vor den Operationen auûerhalb der KlammerungÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ausgewertet. Klammern dÛrfen auch geschachtelt verwendetÿÿÿÿÿÿÿÿÿÿÿÿÿ          werden. ÿÿÿÿÿÿÿÿÿÿÿÿÿN Fehler:  Wird bis zur Eingabe von <ESC> = keine korrespondierendeÿÿÿÿÿÿÿÿÿÿÿÿÿN          schliessende Klammer eingegeben, so wird angenommen, dieÿÿÿÿÿÿÿÿÿÿÿÿÿN          schliessende Klammer stÛnde unmittelbar vor dem Gleichheits-ÿÿÿÿÿÿÿÿÿN          zeichen. Wurde unmittelbar vor <ESC> ( eine Zahl eingelesen,ÿÿÿÿÿÿÿÿÿN          so wird diese Zahl durch das Ergebnis des Klammerausdrucksÿÿÿÿÿÿÿÿÿÿÿ          Ûberschrieben. ÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> )        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Klammerung von RechenausdrÛcken ÿÿÿÿÿN Wirkung: Wirkt wie die "Klammer zu"-Taste eines Taschenrechners. ÿÿÿÿÿÿÿÿÿÿÿÿÿN          Der Ausdruck, der zwischen <ESC> ( und <ESC> ) eingegebenÿÿÿÿÿÿÿÿÿÿÿÿN          wird, wird vor den Operationen auûerhalb der KlammerungÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ausgewertet. Klammern dÛrfen auch geschachtelt verwendetÿÿÿÿÿÿÿÿÿÿÿÿÿ          werden. ÿÿÿÿÿÿÿÿÿÿÿÿÿ> Fehler:  Fehlt bei BetÙtigung von <ESC> ) eine Zahl, z.B.ÿÿÿÿÿN          nach den Operatoren (+,-,*,...), so wird versucht eineÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Zahl aus der Datei zu lesen (vergleiche <ESC> L). SchlÙgtÿÿÿÿÿÿÿÿÿÿÿÿN          der Versuch fehl, steht also an der Cursorposition keineÿÿÿÿÿÿÿÿÿÿÿÿÿN          gÛltige Zahl, so wird eine entsprechende Fehlermeldungÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          ausgegeben und <ESC> ) ignoriert. Anschlieûend kannÿÿN          so weitergerechnet werden, als wÙre <ESC> ) nicht betÙtigtÿÿÿÿÿÿÿÿÿÿÿ          worden. ÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> %        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   Prozentrechnung ÿÿÿÿÿN Wirkung: <ESC> % berechnet den eingestellten Prozentsatz vom g.     bold bit                       =  1,ÿÿÿÿÿÿ.     italics bit                    =  2,ÿÿÿÿÿÿ.     modifikations liste            =  "ubir",ÿ.     anzahl modifikationen          =  4, ÿÿÿÿÿ.     document                       =  1,ÿÿÿÿÿÿ.     page                           =  2,ÿÿÿÿÿÿ.     write text                     =  1,ÿÿÿÿÿÿ.     write cmd                      =  2,ÿÿÿÿÿÿ.     carriage return                =  3, ÿÿÿÿÿ.     move                           =  4,ÿÿÿÿÿÿ.     draw                           =  5,ÿÿÿÿÿÿ.     on                             =  6, ÿÿÿÿÿ.     off                            =  7,ÿÿÿÿÿÿ.     type                           =  8,ÿÿÿÿÿÿ.     text code                      =  1, ÿÿÿÿÿ. (*  error code                     =  2, *)ÿÿÿ.     token code                     =  3,ÿÿÿÿÿÿ.     tag type                       =  1,ÿÿÿÿÿÿ.     bold type                      =  2,ÿÿÿÿÿÿ.     number type                    =  3,ÿÿÿÿÿÿ.     text type                      =  4,ÿÿÿÿÿÿ.     delimiter type                 =  6,ÿÿÿÿÿÿ.     eof type                       =  7;ÿÿÿÿÿÿ. INT CONST null ausgang            :=  minint,ÿ.           erweiterungs ausgang    :=  maxint,ÿ>           blank ausgang           :=  maxint - 1,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>           anweisungs ausgang      :=  maxint - 2,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>           d code ausgang          :=  maxint - 3,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>           max breite              :=  maxint - 4,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.           linien token            := -1;ÿÿÿÿÿÿ> ROW anzahl modifikationen INT CONST modifikations werte :=ÿÿÿÿN                                ROW anzahl modifikationen INT : (1, 2, 4, 8);ÿÿ TEXT CONST anweisungsliste := N     "type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0" +ÿÿÿÿÿÿÿÿÿÿ.     "fillchar:10.1mark:11.2markend:12.0" +ÿÿÿÿ.     "ub:13.0ue:14.0fb:15.0fe:16.0" +ÿÿÿÿÿÿÿÿÿÿN     "block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1" + >     "material:26.1page:27.01pagelength:29.1start:30.2" + ÿÿÿÿÿ.     "table:31.0tableend:32.0clearpos:33.01" + >     "lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2" +ÿÿÿÿÿÿÿÿÿ.     "textbegin:40.02textend:42.0" +ÿÿÿÿÿÿÿÿÿÿÿ.     "indentation:43.1ytab:44.1";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> LET a type             =   1,      a block            =  20,ÿÿ>     a on               =   2,      a columns          =  21,ÿÿ>     a off              =   3,      a columnsend       =  22,ÿÿ>     a center           =   4,      a free             =  23,ÿÿ>     a right            =   5,      a limit            =  24,ÿÿ>     a up               =   6,      a linefeed         =  25,ÿÿ>     a down             =   7,      a material         =  26,ÿÿ>     a end up or down   =   8,      a page0            =  27,ÿÿ>     a bsp              =   9,      a page1            =  28,ÿÿ>     a fill char        =  10,      a pagelength       =  29,ÿÿ>     a mark             =  11,      a start            =  30,ÿÿ>     a markend          =  12,      a table            =  31,ÿÿ>     a ub               =  13,      a tableend         =  32,ÿÿ>     a ue               =  14,      a clearpos0        =  33,ÿÿ>     a fb               =  15,      a clearpos1        =  34,ÿÿ>     a fe               =  16,      a lpos             =  35,ÿÿ>                                    a rpos             =  36,ÿÿ>                                    a cpos             =  37,ÿÿ>                                    a dpos             =  38,ÿÿ>                                    a bpos             =  39,ÿÿ>                                    a textbegin0       =  40,ÿÿ>                                    a textbegin2       =  41,ÿÿ>                                    a textend          =  42,ÿÿ>                                    a indentation      =  43,ÿÿ>                                    a y tab            =  44;ÿÿ> INT VAR  a xpos, a breite, a font, a modifikationen,ÿÿÿÿÿÿÿÿÿÿ>          a modifikationen fuer x move, a ypos, aktuelle ypos,ÿ.          letzter font, letzte modifikationen,ÿ>          d ypos, d xpos, d font, d modifikationen, ÿÿÿÿÿÿÿÿÿÿÿN          zeilenpos, alte zeilenpos, zeilen laenge, anzahl zeichen, ausgang,ÿÿÿN          anzahl einrueck blanks, blankbreite, fuehrende anweisungen,ÿÿÿÿÿÿÿÿÿÿN          einrueckbreite, aktuelle einrueckbreite, alte einrueckbreite,ÿÿÿÿÿÿÿÿ>          aktuelle zeilentiefe der letzten zeile,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          blankmodus, alter blankmodus,ÿÿÿÿÿÿÿÿ>          token zeiger, erstes token der zeile, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          erstes tab token, tab anfang, anzahl blanks, ÿÿÿÿÿÿÿÿN          d code 1, d pitch, fuell zeichen breite, erstes fuell token, ÿÿÿÿÿÿÿÿ          letztes fuell token, >          x size, y size, x wanted, y wanted, x start, y start,.          pagelength, limit, indentation,ÿÿÿÿÿÿ>          left margin, top margin, seitenlaenge,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          papierlaenge, papierbreite,ÿÿÿÿÿÿÿÿÿÿ>          luecke, anzahl spalten, aktuelle spalte,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.          verschiebung, linien verschiebung,ÿÿÿ>          rest, neue modifikationen, modifikations modus, pass,>          int param, anweisungs index, anzahl params,ÿÿÿÿÿÿÿÿÿÿ          gedruckte seiten;ÿÿÿÿ> BOOL VAR zeile ist absatzzeile, letzte zeile war absatzzeile,ÿN          zeile muss geblockt werden, rechts, a block token, offsets,ÿÿÿÿÿÿÿÿÿÿN          tabellen modus, block modus, center modus, right modus,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          seite ist offen, vor erster seite;ÿÿÿ. REAL VAR linefeed faktor, real param;ÿÿÿÿÿÿÿÿÿN TEXT VAR zeile, anweisung, par1, par2, material wert, replacements,ÿÿÿÿÿÿÿÿÿÿÿ>          fuell zeichen, d string, font offsets;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ROW 256 INT VAR zeichenbreiten, replacement tabelle, zeichen zaehler;ÿÿÿÿÿÿÿÿÿ. INITFLAG VAR in dieser task := FALSE;ÿÿÿÿÿÿÿÿÿ> . zeile ist zu ende               : zeilenpos > zeilen laengeÿ> . zeilen breite                   : a xpos - left marginÿÿÿÿÿÿ^ . naechstes zeichen ist blank     : pos (zeile, blank, zeilenpos + 1, zeilenpos + 1) <> 0ÿÿÿÿÿN . naechstes nicht blankes zeichen : pos (zeile, ""33"", ""255"", zeilenpos)ÿÿÿN . in letzter spalte               : aktuelle spalte >= anzahl spaltenÿÿÿÿÿÿÿÿÿ . anfangs blankmodus :ÿÿÿÿÿÿÿÿ     INT VAR dummy;ÿÿÿÿÿÿÿÿÿÿÿÿ.     IF   center modus OR right modusÿÿÿÿÿÿÿÿÿÿ          THEN dummyÿÿÿÿÿÿÿÿÿÿÿ     ELIF index zaehler = 0ÿÿÿÿ          THEN blankmodusÿÿÿÿÿÿ          ELSE alter blankmodus. . initialisiere tab variablen : ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     erstes tab token := token index f + 1;ÿÿÿÿ.     tab anfang       := zeilen breite;ÿÿÿÿÿÿÿÿ     anzahl blanks    := 0;ÿÿÿÿ     a block token    := FALSE;N (******************************************************************)ÿÿÿÿÿÿÿÿÿÿ LET zeilen nr laenge  =  4,ÿÿÿ     teil einrueckung  =  5,ÿÿÿN     headline pre  = "Zeile    ****   E L A N    EUMEL 1.8.2  ****   ",ÿÿÿÿÿÿÿÿ.     headline post = "   ****    ";ÿÿÿÿÿÿÿÿÿÿÿÿ. INT  VAR zeilen nr, rest auf seite,ÿÿÿÿÿÿÿÿÿÿÿ^          max zeichen zeile, max zeichen fuss, layout laenge, layout laenge name,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          symbol type, naechster symbol type, select counter;ÿÿ> BOOL VAR vor erstem packet, innerhalb einer liste;ÿÿÿÿÿÿÿÿÿÿÿÿN TEXT VAR bottom label, dateiname, layout blanks, refinement layout zeile;ÿÿÿÿÿ. . symbol           : fuell zeichenÿÿÿÿÿÿÿÿÿÿÿÿ . naechstes symbol : d stringÿ. . elan text        : d token. textÿÿÿÿÿÿÿÿÿÿÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** Berechnung des Zeilenvorschubs                             ***)ÿÿÿÿÿÿÿÿÿÿN INT VAR                 fonthoehe,                fonttiefe, fontdurchschuss,ÿ>          groesste       fonthoehe, groesste       fonttiefe,ÿÿ>          groesste analysatorhoehe, groesste analysatortiefe,ÿÿeradeÿÿÿÿÿÿÿÿÿÿÿN          angezeigten Wert. Voreingestellt ist 14%; diese EinstellungÿÿÿÿÿÿÿÿÿÿN          kann durch das Kommando "prozentsatz" verstellt werden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> C        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ> Zweck:   Abschlieûen einer Rechnung und LÚschen der Anzeige ÿÿN Wirkung: <ESC> C wirkt wie die "Clear"-Taste auf dem Taschenrechner.ÿÿÿÿÿÿÿÿÿÿN          Die Anzeige wird auf 0.0 gesetzt. Alle Klammern werdenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          geschlossen. Der Wert des Merkregisters bleibt erhalten. ÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> E        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   Eingabe vom TerminalÿN Wirkung: <ESC> E zeigt in der Statuszeile ein leeres Feld mit derÿÿÿÿÿÿÿÿÿÿÿÿÿN          Aufforderung "gib wert :". In dieses Feld kann man ZahlenÿÿÿÿÿÿÿÿÿÿÿÿN          eingeben, die in die aktuelle Rechnung einfliessen sollen,ÿÿÿÿÿÿÿÿÿÿÿN          ohne daû sie in der Datei stehen. Auch die Eingabe einesÿÿÿÿÿÿÿÿÿÿÿÿÿN          ganzen Rechenausdrucks ist zulÙssig. Auf diese Weise lassenÿÿÿÿÿÿÿÿÿÿN          sich auch ganze Aufgaben als Nebenrechnung ausfÛhren. Dieÿÿÿÿÿÿÿÿÿÿÿÿ>          Eingabe eines Ausdrucks wird mit der <CR>-TasteÿÿÿÿÿÿN          abgeschlossen. Daraufhin erfolgt die Auswertung, das ErgebnisÿÿÿÿÿÿÿÿN          steht anschliessend in der Anzeige. Mit diesem Wert kann dannÿÿÿÿÿÿÿÿN          ebenso weitergerechnet werden, als wÙre er mit <ESC> L ausÿÿÿÿÿÿÿÿÿÿÿ.          der Datei gelesen worden. ÿÿÿÿÿÿÿÿÿÿÿN Fehler:  Wird zweimal hintereinander eine Zahl eingelesen, ohne daûÿÿÿÿÿÿÿÿÿÿÿN          zwischendurch ein Operator (<ESC> +,-,*,...) erkannt wurde,ÿÿÿÿÿÿÿÿÿÿ>          so Ûberschreibt die letzte Eingabe die vorhergehende.N ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> L        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Lesen von Zahlen aus der Datei ÿÿÿÿÿÿN Wirkung: <ESC> L liest eine Zahl aus der Datei, an der Stelle, an derÿÿÿÿÿÿÿÿÿN          der Cursor gerade steht. Dabei darf der Cursor irgendwo aufÿÿÿÿÿÿÿÿÿÿN          der Zahl oder unmittelbar dahinter stehen. Die gelesene Zahlÿÿÿÿÿÿÿÿÿ>          wird in die Anzeige Ûbertragen und steht fÛr weitereÿ.          Operationen zur VerfÛgung. ÿÿÿÿÿÿÿÿÿÿN Fehler:  Wird zweimal hintereinander eine Zahl eingelesen, ohne daûÿÿÿÿÿÿÿÿÿÿÿN          zwischendurch ein Operator (<ESC> +,-,*,...) erkannt wurde,ÿÿÿÿÿÿÿÿÿÿ>          so Ûberschreibt die letzte Eingabe die vorhergehende.N ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> K        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Konstante aus Merkregister lesen ÿÿÿÿN Wirkung: <ESC> K ÛbertrÙgt den Wert aus dem Merkregister in dieÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Anzeige. Anschlieûend steht er fÛr weitere Operationen zurÿÿÿÿÿÿÿÿÿÿÿ          VerfÛgung. ÿÿÿÿÿÿÿÿÿÿ> Fehler:  Wurde vorher eine Zahl eingelesen, ohne daûÿÿÿÿÿÿÿÿÿÿN          zwischendurch ein Operator (<ESC> +,-,*,...) erkannt wurde,ÿÿÿÿÿÿÿÿÿÿ>          so Ûberschreibt <ESC> K die vorhergehende Eingabe.ÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> M        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   Merken einer Zahl ÿÿÿN Wirkung: <ESC> M kopiert die Zahl aus der Anzeige ins Merkregister.ÿÿÿÿÿÿÿÿÿÿÿN          Sie kann dann spÙter mit <ESC> K fÛr weitere Rechnungenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          verwendet werden. ÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> F        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   Formel berechnen ÿÿÿÿN Wirkung: <ESC> F liest die ganze Zeile, auf der der Cursor geradeÿÿÿÿÿÿÿÿÿÿÿÿÿ>          steht, aus der Datei und interpretiert diese alsÿÿÿÿÿN          Rechenausdruck. Dabei werden alle Zeichen die nicht zuÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          einer Zahl gehÚren auûer +,-,*,/,^,%,(,),= ignoriert. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          EnthÙlt die Zeile ein "="-Zeichen, so wird der Ausdruck nurÿÿÿÿÿÿÿÿÿÿ>          bis zu diesem ausgewertet und das Ergebnis hinter das>          Gleichheitszeichen geschrieben. Andernfalls wird dasÿN          Ergebnis nur in die Anzeige Ûbertragen. Es kann so in eineÿÿÿÿÿÿÿÿÿÿÿ.          Rechnung mit einbezogen werden. ÿÿÿÿÿ> Fehler:  Wurde vorher eine Zahl eingelesen, ohne daûÿÿÿÿÿÿÿÿÿÿN          zwischendurch ein Operator (<ESC> +,-,*,...) erkannt wurde,ÿÿÿÿÿÿÿÿÿÿ>          so Ûberschreibt <ESC> F die vorhergehende Eingabe. ÿÿN          EnhÙlt die Zeile zwei aufeinanderfolgende Zahlen, die nichtÿÿÿÿÿÿÿÿÿÿN          durch einen Operator (+,-,*,/,^) getrennt sind, so wird nurÿÿÿÿÿÿÿÿÿÿ.          die letzte berÛcksichtigt. ÿÿÿÿÿÿÿÿÿÿN          Folgen zwei Operatoren unmittelbar aufeinander, so wird dieÿÿÿÿÿÿÿÿÿÿ>          Auswertung mit einer Fehlermeldung abgebrochen. ÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> N        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   NÙchste Zahl suchenÿÿ> Wirkung: <ESC> N setzt den Cursor auf die nÙchste Zahl, sofern>          er nicht bereits auf einer steht. Damit lassen sichÿÿ>          innerhalb von Lernsequenzen, durch die Kombinationÿÿÿ>          <ESC> Cursor rechts, <ESC> N auch Zahlen nacheinanderN          aufsammeln, die nicht auf festen Tabellenpositionen stehen,ÿÿÿÿÿÿÿÿÿÿ>          sondern nur durch mindestens ein Blank getrennt sind.N Fehler:  Steht in der aktuellen Zeile hinter der CursorpositionÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          keine Zahl, so wird der Cursor hinter das Zeilenende gesetzt. ÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> R        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Runden des ZwischenergebnissesÿÿÿÿÿÿÿN Wirkung: <ESC> R rundet das Zwischenergebnis auf die angezeigteÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Stellenzahl, d.h. die verdeckten Stellen, mit denen TeCalÿÿÿÿÿÿÿÿÿÿÿÿ>          ansonsten weiterrechnet, werden vernachlÙssigt.ÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> T        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Schreiben im Fieûtext ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN Wirkung: <ESC> T schreibt die Zahl aus der Anzeige in die Datei.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Dabei wird die Zahl genau so geschrieben, als wÛrden alleÿÿÿÿÿÿÿÿÿÿÿÿ>          Ziffern einzeln Ûber die Tastatur eingegeben.ÿÿÿÿÿÿÿÿN          Eingeschaltete Editormodi wie RUBIN werden dabei beachtet,ÿÿÿÿÿÿÿÿÿÿÿN          ein Ausrichtung nach Dezimalstellen findet nicht statt.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> S        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Schreiben in die Datei ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN Wirkung: <ESC> S schreibt die Zahl aus der Anzeige in die Datei.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Dabei wird Sie nach dem Dezimalpunkt ausgerichtet, oder,ÿÿÿÿÿÿÿÿÿÿÿÿÿN          sofern sie keine Nachkommastellen hat, linksbÛndig geschrieben.ÿÿÿÿÿÿN          Stand vorher an der Cursorposition eine Zahl, so wird dieseÿÿÿÿÿÿÿÿÿÿN          vollstÙndig gelÚscht, auch wenn die zu schreibende ZahlÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          kÛrzer ist. Ansonsten werden nur soviele Stellen wie nÚtigÿÿÿÿÿÿÿÿÿÿÿ          Ûberschrieben. ÿÿÿÿÿÿN Fehler:  Befindet sich der Cursor so nah am Zeilenanfang, daû dieÿÿÿÿÿÿÿÿÿÿÿÿÿN          Vorkommastellen keinen Platz vor dem >          letzte   zeilenhoehe, letzte   zeilentiefe, ÿÿÿÿÿÿÿÿÿ>          aktuelle zeilenhoehe, aktuelle zeilentiefe;ÿÿÿÿÿÿÿÿÿÿ REAL VAR real fontgroesse;ÿÿÿÿN .          fontgroesse   :          fonthoehe   +          fonttiefeÿÿÿÿÿÿÿÿÿÿN . groesste fontgroesse   : groesste fonthoehe   + groesste fonttiefeÿÿÿÿÿÿÿÿÿÿN . letzte   zeilengroesse : letzte   zeilenhoehe + letzte   zeilentiefeÿÿÿÿÿÿÿÿN . aktuelle zeilengroesse : aktuelle zeilenhoehe + aktuelle zeilentiefeÿÿÿÿÿÿÿÿ.   initialisiere zeilenvorschub :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     aktuelle zeilenhoehe     := letzte zeilenhoehe;ÿÿÿÿÿÿÿÿÿÿÿ>     aktuelle zeilentiefe     := letzte zeilentiefe;ÿÿÿÿÿÿÿÿÿÿÿ.     groesste fonthoehe       := fonthoehe;ÿÿÿÿ.     groesste fonttiefe       := fonttiefe;ÿÿÿÿ.     groesste analysatorhoehe := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.     groesste analysatortiefe := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.   ueberpruefe groesste fontgroesse :ÿÿÿÿÿÿÿÿÿÿ.     IF old linefeed calculationÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> Maximumsbestimmung Ûber FontgrÚûe ******************************* <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             IF fontgroesse >= groesste fontgroesseÿÿÿÿÿÿÿÿÿÿÿÿ>                THEN groesste fonthoehe := fonthoehe;ÿÿÿÿÿÿÿÿÿÿ>                     groesste fonttiefe := fonttiefe;ÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> Maximumsbestimmung Ûber FonthÚhe und Fonttiefe ****************** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             groesste fonthoehe := max (fonthoehe, groesste fonthoehe);ÿÿÿÿÿÿÿÿN             groesste fonttiefe := max (fonttiefe, groesste fonttiefe);ÿÿÿÿÿÿÿÿ   berechne fontgroesse :ÿÿÿÿÿÿN     fonthoehe INCR (fontdurchschuss DIV 2 + fontdurchschuss MOD 2);ÿÿÿÿÿÿÿÿÿÿÿ.     fonttiefe INCR  fontdurchschuss DIV 2;ÿÿÿÿ.     real fontgroesse := real (fontgroesse);ÿÿÿ.   berechne letzte zeilengroesse :ÿÿÿÿÿÿÿÿÿÿÿÿÿN     REAL CONST zeilengroesse := real fontgroesse * linefeed faktor;ÿÿÿÿÿÿÿÿÿÿÿ^     letzte zeilenhoehe := int (real (fonthoehe) * zeilengroesse / real fontgroesse + 0.5);ÿÿÿÿN     letzte zeilentiefe := int (zeilengroesse + 0.5) - letzte zeilenhoehe;ÿÿÿÿÿ. PROC berechne aktuelle zeilengroesse :ÿÿÿÿÿÿÿÿ     IF linefeed faktor >= 1.0ÿ^        THEN aktuelle zeilenhoehe := max (groesste fonthoehe, letzte zeilenhoehe);ÿÿÿÿÿÿÿÿÿÿÿÿÿ^             aktuelle zeilentiefe := max (groesste fonttiefe, letzte zeilentiefe);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.             IF old linefeed calculationÿÿÿÿÿÿÿ                THENÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> Maximumsbestimmung Ûber FontgrÚûe ******************************* <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                     IF letzte zeilengroesse >= aktuelle zeilengroesseÿÿÿÿÿÿÿÿÿN                        THEN aktuelle zeilenhoehe := letzte zeilenhoehe;ÿÿÿÿÿÿÿN                             aktuelle zeilentiefe := letzte zeilentiefe;ÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ                ELSEÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> Maximumsbestimmung Ûber FonthÚhe und Fonttiefe ****************** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                     aktuelle zeilenhoehe := max (letzte zeilenhoehe, aktuelle zeilenhoehe);ÿÿÿ^                     aktuelle zeilentiefe := max (letzte zeilentiefe, aktuelle zeilentiefe);ÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^     aktuelle zeilenhoehe := max (groesste analysatorhoehe, aktuelle zeilenhoehe);ÿÿÿÿÿÿÿÿÿÿÿÿÿ^     aktuelle zeilentiefe := max (groesste analysatortiefe, aktuelle zeilentiefe);ÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC berechne aktuelle zeilengroesse;ÿÿÿÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** tokenspeicher                                              ***)ÿÿÿÿÿÿÿÿÿÿ LET max number token  = 3000,ÿ     max number ypos   = 1000,ÿ.     TOKEN      = STRUCT (TEXT text,ÿÿÿÿÿÿÿÿÿÿÿN                          INT  xpos, breite, font, modifikationen,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                               modifikationen fuer x move, ÿÿÿÿN                               offset index, naechster token index, ÿÿÿÿÿÿÿÿÿÿÿ.                          BOOL block token ),ÿÿ^     YPOS       = STRUCT (INT ypos, vorheriger ypos index, naechster ypos index,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                              erster token index, letzter token index ), ÿÿÿÿÿÿN     TOKENLISTE = STRUCT (ROW max number token TOKEN token liste,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                          ROW max number ypos  YPOS  ypos  liste );ÿÿÿÿÿÿÿÿÿÿÿÿ DATASPACE VAR ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. BOUND TOKENLISTE VAR tokenspeicher;ÿÿÿÿÿÿÿÿÿÿÿ. TOKEN VAR d token, offset token;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> INT VAR erster ypos index a, letzter ypos index a, ÿÿÿÿÿÿÿÿÿÿÿ>         erster ypos index d, letzter ypos index d, ÿÿÿÿÿÿÿÿÿÿÿN         ypos  index, ypos  index f, ypos  index a, ypos  index d, ÿÿÿÿÿÿÿÿÿÿÿÿ.         token index, token index f;ÿÿÿÿÿÿÿÿÿÿÿ> . t  : tokenspeicher. token liste (token index)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> . tf : tokenspeicher. token liste (token index f)ÿÿÿÿÿÿÿÿÿÿÿÿÿ> . y  : tokenspeicher. ypos  liste (ypos  index) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> . yf : tokenspeicher. ypos  liste (ypos  index f) ÿÿÿÿÿÿÿÿÿÿÿÿ> . ya : tokenspeicher. ypos  liste (ypos  index a)ÿÿÿÿÿÿÿÿÿÿÿÿÿ> . yd : tokenspeicher. ypos  liste (ypos  index d)ÿÿÿÿÿÿÿÿÿÿÿÿÿ . loesche druckspeicher :ÿÿÿÿÿ     erster ypos index d := 0;ÿ            ypos index f := 0;ÿ           token index f := 0;ÿ. . druckspeicher ist nicht leer :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     erster ypos index d <> 0ÿÿ . loesche analysespeicher :ÿÿÿ     erster ypos index a := 0;ÿ. . analysespeicher ist nicht leer :ÿÿÿÿÿÿÿÿÿÿÿÿ     erster ypos index a <> 0ÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** anweisungsspeicher                                         ***)ÿÿÿÿÿÿÿÿÿÿ INT  VAR anweisungszaehler;ÿÿÿ> TEXT VAR anweisungs indizes, params1 zeiger, params2 zeiger;ÿÿ. THESAURUS VAR params1, params2; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC loesche anweisungsspeicher :ÿÿÿÿÿÿÿÿÿÿÿÿÿ     anweisungs zaehler := 0;ÿÿ     anweisungs indizes := "";ÿ     params1 zeiger     := "";ÿ     params2 zeiger     := "";ÿ.     params1            := empty thesaurus;ÿÿÿÿ.     params2            := empty thesaurus;ÿÿÿÿ. END PROC loesche anweisungsspeicher; ÿÿÿÿÿÿÿÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** indexspeicher                                              ***)ÿÿÿÿÿÿÿÿÿÿ> INT  VAR index zaehler, hoechster index zaehler;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ TEXT VAR letzte index breite, xpos vor index, zeilenpos nach index, grosse fonts,ÿÿÿÿÿÿÿÿÿÿÿÿÿ          index verschiebung;ÿÿ PROC loesche indexspeicher :ÿÿ.     index zaehler           := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     hoechster index zaehler := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     letzte index breite     := "";ÿÿÿÿÿÿÿÿÿÿÿÿ.     xpos vor index          := "";ÿÿÿÿÿÿÿÿÿÿÿÿ.     zeilenpos nach index    := "";ÿÿÿÿÿÿÿÿÿÿÿÿ.     index verschiebung      := "";ÿÿÿÿÿÿÿÿÿÿÿÿ.     grosse fonts            := "";ÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC loesche indexspeicher; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC loesche hoehere index level :ÿÿÿÿÿÿÿÿÿÿÿÿ.     IF hoechster index zaehler > index zaehlern        THEN letzte index breite  := subtext (letzte index breite, 1, int length * index zaehler);ÿÿÿÿÿÿÿÿÿÿÿÿÿ^             xpos vor index       := subtext (xpos vor index, 1, int length * index zaehler);ÿÿn             zeilenpos nach index := subtext (zeilenpos nach index, 1, int length * index zaehler);ÿÿÿÿÿÿÿÿÿÿÿÿ^             index verschiebung   := subtext (index verschiebung, int length * index zaehler);ÿ^             grosse fonts         := subtext (grosse fonts, 1, int length * index zaehler);ÿÿÿÿ>             hoechster index zaehler := index zaehler;ÿÿÿÿÿÿÿÿÿ. END PROC loesche hoehere index level;ÿÿÿÿÿÿÿÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** tabellenspeicher                                           ***)ÿÿÿÿÿÿÿÿÿÿ LET max tabs          =  30,ÿÿN     TABELLENEINTRAG   =  STRUCCursor finden, wirdÿÿÿÿÿÿÿÿÿÿÿÿÿ.          das Schreiben unterdrÛckt. ÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> V        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   Vertikalsumme bilden N Wirkung: <ESC> V summiert alle Zahlen, die Ûber dem Cursor stehen,ÿÿÿÿÿÿÿÿÿÿÿÿN          bis eine Zeile gefunden wird, in der Ûber dem Cursor keineÿÿÿÿÿÿÿÿÿÿÿN          gÛltige Zahl steht. Dabei werden Leerstellen Ûbersprungen.ÿÿÿÿÿÿÿÿÿÿÿN          Die auf diese Weise gebildete Summe wird in die Anzeigeÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          Ûbertragen und steht dort fÛr weitere Operationen zur          VerfÛgung. ÿÿÿÿÿÿÿÿÿÿ> Fehler:  Befindet sich keine Zahl Ûber dem Cursor, so ist dasÿ          Ergebnis 0.0. ÿÿÿÿÿÿÿ>          Wurde vorher eine Zahl eingelesen, ohne daûÿÿÿÿÿÿÿÿÿÿN          zwischendurch ein Operator (<ESC> +,-,*,...) erkannt wurde,ÿÿÿÿÿÿÿÿÿÿ>          so Ûberschreibt <ESC> V die vorhergehende Eingabe.ÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> t        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   TeCal ein-/ausschalten ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN Wirkung: Wenn TeCal ausgeschaltet ist, so schaltet  <ESC> t TeCalÿÿÿÿÿÿÿÿÿÿÿÿÿN          ein, anderfalls wird TeCal ausgeschaltet. Ob TeCal ein- oderÿÿÿÿÿÿÿÿÿN          ausgeschaltet ist, erkennt man daran, ob in der unterstenÿÿÿÿÿÿÿÿÿÿÿÿ>          Zeile die TeCal-Statuszeile steht oder nicht. DurchÿÿN          Ausschalten von TeCal werden alle TeCal-FunktionstastenÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          (auûer  <ESC> t und  <ESC> ?) wieder mit den ursprÛnglichenÿÿÿÿÿÿÿÿÿÿN          benutzereigenen Funktionen belegt, so daû man diese nutzenÿÿÿÿÿÿÿÿÿÿÿN          kann. Eine laufende Rechnung bleibt durch Aus- und Wieder-ÿÿÿÿÿÿÿÿÿÿÿ>          einschalten von TeCal unberÛhrt. Auch durch einÿÿÿÿÿÿN          zwischenzeitliches Verlassen des Editors und eventuellesÿÿÿÿÿÿÿÿÿÿÿÿÿN          ×ffnen einer anderen Datei wird eine angefangene Rechnungÿÿÿÿÿÿÿÿÿÿÿÿ          nicht gelÚscht. ÿÿÿÿÿN Fehler:  Das Einschalten von TeCal kann dadurch verhindert sein,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          daû der Benutzer die Wirkung von <ESC> t umdefiniert.N          In diesem Falle sollte man den Befehl "tecal" auf die TasteÿÿÿÿÿÿÿÿÿÿN          "t" legen. (Wie das geht, steht in der Editor-Beschreibung).ÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> +        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ> Zweck:   Addition zweier Zahlen (oder AusdrÛcke)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> Wirkung: Wirkt wie die "Plus"-Taste eines Taschenrechners. ÿÿÿN          <ESC> + muû zwischen der Eingabe der beiden zu addierendenÿÿÿÿÿÿÿÿÿÿÿN          Werte (z.B. mit <ESC> L oder <ESC> E) betÙtigt werden. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Bei der Auswertung wird Punktrechnung vor Strichrechnungÿÿÿÿÿÿÿÿÿÿÿÿÿ          beachtet. ÿÿÿÿÿÿÿÿÿÿÿN Fehler:  Fehlt bei BetÙtigung von <ESC> + der erste Operand, z.B.ÿÿÿÿÿÿÿÿÿÿÿÿÿN          am Anfang einer Rechnung oder zwischen zwei OperatorenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          (+,-,*,...), so wird versucht eine Zahl aus der Datei zuÿÿÿÿÿÿÿÿÿÿÿÿÿN          lesen (vergleiche <ESC> L). SchlÙgt der Versuch fehl, stehtÿÿÿÿÿÿÿÿÿÿ>          also an der Cursorposition keine Zahl, so wird eineÿÿN          entsprechende Fehlermeldung ausgegeben und das <ESC> +ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ignoriert. Anschlieûend kann so weitergerechnet werden,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          als wÙre <ESC> + nicht betÙtigt worden. ÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> -        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ> Zweck:   Subtraktion zweier Zahlen (oder AusdrÛcke)ÿÿÿÿÿÿÿÿÿÿÿ> Wirkung: Wirkt wie die "Minus"-Taste eines Taschenrechners. ÿÿN          <ESC> - muû zwischen der Eingabe der beiden zu subtrahierendenÿÿÿÿÿÿÿN          Werte (z.B. mit <ESC> L oder <ESC> E) betÙtigt werden. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Bei der Auswertung wird Punktrechnung vor Strichrechnungÿÿÿÿÿÿÿÿÿÿÿÿÿ          beachtet. ÿÿÿÿÿÿÿÿÿÿÿN Fehler:  Fehlt bei BetÙtigung von <ESC> - der erste Operand, z.B.ÿÿÿÿÿÿÿÿÿÿÿÿÿN          am Anfang einer Rechnung oder zwischen zwei OperatorenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          (+,-,*,...), so wird versucht eine Zahl aus der Datei zuÿÿÿÿÿÿÿÿÿÿÿÿÿN          lesen (vergleiche <ESC> L). SchlÙgt der Versuch fehl, stehtÿÿÿÿÿÿÿÿÿÿ>          also an der Cursorposition keine Zahl, so wird eineÿÿN          entsprechende Fehlermeldung ausgegeben und das <ESC> -ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ignoriert. Anschlieûend kann so weitergerechnet werden,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          als wÙre <ESC> - nicht betÙtigt worden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> *        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Multiplikation zweier Zahlen ÿÿÿÿÿÿÿÿ> Wirkung: Wirkt wie die "Mal"-Taste eines Taschenrechners. ÿÿÿÿN          <ESC> * muû zwischen der Eingabe der beiden zu multiplizierendenÿÿÿÿÿN          Werte (z.B. mit <ESC> L oder <ESC> E) betÙtigt werden. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Bei der Auswertung wird Punktrechnung vor Strichrechnungÿÿÿÿÿÿÿÿÿÿÿÿÿ          beachtet. ÿÿÿÿÿÿÿÿÿÿÿN Fehler:  Fehlt bei BetÙtigung von <ESC> * der erste Operand, z.B.ÿÿÿÿÿÿÿÿÿÿÿÿÿN          am Anfang einer Rechnung oder zwischen zwei OperatorenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          (+,-,*,...), so wird versucht eine Zahl aus der Datei zuÿÿÿÿÿÿÿÿÿÿÿÿÿN          lesen (vergleiche <ESC> L). SchlÙgt der Versuch fehl, stehtÿÿÿÿÿÿÿÿÿÿ>          also an der Cursorposition keine Zahl, so wird eineÿÿN          entsprechende Fehlermeldung ausgegeben und das <ESC> *ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ignoriert. Anschlieûend kann so weitergerechnet werden,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          als wÙre <ESC> * nicht betÙtigt worden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> /        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ. Zweck:   Division zweier Zahlen ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN Wirkung: Wirkt wie die "Geteilt durch"-Taste eines Taschenrechners. ÿÿÿÿÿÿÿÿÿÿN          <ESC> / muû zwischen der Eingabe der beiden zu dividierendenÿÿÿÿÿÿÿÿÿN          Werte (z.B. mit <ESC> L oder <ESC> E) betÙtigt werden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          Bei der Auswertung wird Punktrechnung vor Strichrechnungÿÿÿÿÿÿÿÿÿÿÿÿÿ          beachtet. ÿÿÿÿÿÿÿÿÿÿÿN Fehler:  Fehlt bei BetÙtigung von <ESC> / der erste Operand, z.B.ÿÿÿÿÿÿÿÿÿÿÿÿÿN          am Anfang einer Rechnung oder zwischen zwei OperatorenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          (+,-,*,...), so wird versucht eine Zahl aus der Datei zuÿÿÿÿÿÿÿÿÿÿÿÿÿN          lesen (vergleiche <ESC> L). SchlÙgt der Versuch fehl, stehtÿÿÿÿÿÿÿÿÿÿ>          also an der Cursorposition keine Zahl, so wird eineÿÿN          entsprechende Fehlermeldung ausgegeben und das <ESC> /ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ignoriert. Anschlieûend kann so weitergerechnet werden,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          als wÙre <ESC> / nicht betÙtigt worden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   :::::::: ÿÿÿÿÿÿÿÿÿN ::::::::::::::::::::::::     <ESC> ^        :::::::::::::::::::::::::ÿÿÿÿÿÿÿÿÿ Zweck:   Potenzierenÿÿÿÿÿÿÿÿÿÿ> Wirkung: Wirkt wie die "Hoch"-Taste eines Taschenrechners. ÿÿÿ>          <ESC> ^ muû zwischen der Eingabe zweier Werteÿÿÿÿÿÿÿÿ>          (z.B. mit <ESC> L oder <ESC> E) betÙtigt werden,ÿÿÿÿÿN          und liefert als Wert dann die erste Zahl hoch die zweite.ÿÿÿÿÿÿÿÿÿÿÿÿN          <ESC> ^ hat eine hÚhere PrioritÙt als * und / und wirdÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          daher in einer Kettenrechnung immer zuerst ausgewertet. ÿÿÿÿÿÿÿÿÿÿÿÿÿN Fehler:  FehltT (INT tab typ, tab position, tab param);ÿÿÿÿÿÿÿ TEXT VAR tab liste, fill char; THESAURUS VAR d strings;ÿÿÿÿÿÿ. ROW max tabs TABELLENEINTRAG VAR tabspeicher;ÿ INT VAR tab index;ÿÿÿÿÿÿÿÿÿÿÿÿN . tab typ       : tab speicher (tab liste ISUB tab index). tab typÿÿÿÿÿÿÿÿÿÿÿÿN . tab position  : tab speicher (tab liste ISUB tab index). tab positionÿÿÿÿÿÿÿN . tab param     : tab speicher (tab liste ISUB tab index). tab param ÿÿÿÿÿÿÿÿÿ> . anzahl tabs   : LENGTH tab liste DIV int length ÿÿÿÿÿÿÿÿÿÿÿÿ. PROC loesche tabellenspeicher :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     fill char := " ";ÿÿÿÿÿÿÿÿÿ     tabliste  := "";ÿÿÿÿÿÿÿÿÿÿ.     d strings := empty thesaurus;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     FOR tab index FROM 1 UPTO max tabsÿÿÿÿÿÿÿÿ>         REP tab speicher (tab index). tab typ := leer PER;ÿÿÿÿ. END PROC loesche tabellenspeicher;ÿÿÿÿÿÿÿÿÿÿÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** markierungsspeicher                                        ***)ÿÿÿÿÿÿÿÿÿÿN INT VAR mark index l, mark index r, alter mark index l, alter mark index r;ÿÿÿ ROW 4 TOKEN VAR mark token;ÿÿÿ. . markierung links  : mark index l > 0ÿÿÿÿÿÿÿÿ. . markierung rechts : mark index r > 0ÿÿÿÿÿÿÿÿ PROC loesche markierung :ÿÿÿÿÿ      mark index l := 0;ÿÿÿÿÿÿÿ      mark index r := 0;ÿÿÿÿÿÿÿ END PROC loesche markierung;ÿÿ PROC loesche alte markierung :      alter mark index l := 0;ÿ      alter mark index r := 0;ÿ. END PROC loesche alte markierung;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC initialisiere markierung :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      FOR mark index l FROM 1 UPTO 4ÿÿÿÿÿÿÿÿÿÿÿN      REP mark token (mark index l). modifikationen fuer x move := 0;ÿÿÿÿÿÿÿÿÿÿN          mark token (mark index l). offset index               := text token;ÿN          mark token (mark index l). block token                := FALSE;ÿÿÿÿÿÿN          mark token (mark index l). naechster token index      := 0;ÿÿÿÿÿÿÿÿÿÿ. END PROC initialisiere markierung;ÿÿÿÿÿÿÿÿÿÿÿÿN (******************************************************************)ÿÿÿÿÿÿÿÿÿÿN (*** durchschuss                                                ***)ÿÿÿÿÿÿÿÿÿÿ> INT VAR durchschuss 1, durchschuss 2, anzahl durchschuss 1, ÿÿ.         anzahl durchschuss, zeilen zaehler;ÿÿÿ BOOL VAR wechsel := TRUE;ÿÿÿÿÿ INT PROC durchschuss :ÿÿÿÿÿÿÿÿ      zeilen zaehler INCR 1;ÿÿÿ>      IF   zeilen zaehler <= anzahl durchschuss 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           THEN durchschuss 1ÿÿ>      ELIF zeilen zaehler <= anzahl durchschuss ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           THEN durchschuss 2ÿÿ           ELSE 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC durchschuss;ÿÿÿÿÿÿÿÿÿ> PROC neuer durchschuss (INT CONST anzahl, rest l) :ÿÿÿÿÿÿÿÿÿÿÿ      zeilen zaehler     := 0;ÿ.      anzahl durchschuss := anzahl;ÿÿÿÿÿÿÿÿÿÿÿÿ      IF anzahl > 0 ÿÿÿÿÿÿÿÿÿÿÿ         THEN IF wechselÿÿÿÿÿÿÿN                 THEN durchschuss 1        := rest l DIV anzahl durchschuss;ÿÿÿN                      durchschuss 2        := durchschuss 1 + sign (rest l);ÿÿÿN                      anzahl durchschuss 1 := anzahl durchschuss -ÿÿÿÿÿÿÿÿÿÿÿÿÿ^                                              abs (rest l) MOD anzahl durchschuss;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                      wechsel              := FALSE;ÿÿÿÿÿÿÿÿÿÿÿN                 ELSE durchschuss 2        := rest l DIV anzahl durchschuss; ÿÿN                      durchschuss 1        := durchschuss 2 + sign (rest l);ÿÿÿ^                      anzahl durchschuss 1 := abs (rest l) MOD anzahl durchschuss;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                      wechsel              := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿ              FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         ELSE loesche durchschussÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC neuer durchschuss;ÿÿÿ PROC loesche durchschuss :ÿÿÿÿ.      durchschuss 1           := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.      durchschuss 2           := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.      anzahl durchschuss 1    := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.      anzahl durchschuss      := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.      zeilen zaehler          := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC loesche durchschuss;ÿN (****************************************************************)ÿÿÿÿÿÿÿÿÿÿÿÿ PROC initialisierung :ÿÿÿÿÿÿÿÿ   INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   forget (ds);.   ds := nilspace; tokenspeicher := ds;ÿÿÿÿÿÿÿÿ   loesche druckspeicher;ÿÿÿÿÿÿ   loesche anweisungsspeicher;ÿ   loesche indexspeicher;ÿÿÿÿÿÿ   initialisiere markierung;ÿÿÿ.   right  modus                 := FALSE;ÿÿÿÿÿÿ.   center modus                 := FALSE;ÿÿÿÿÿÿ.   seite ist offen              := FALSE;ÿÿÿÿÿÿ.   pass                         := 0;ÿÿÿÿÿÿÿÿÿÿ.   a breite                     := 0;ÿÿÿÿÿÿÿÿÿÿ.   a modifikationen fuer x move := 0;ÿÿÿÿÿÿÿÿÿÿ.   aktuelle zeilentiefe der letzten zeile := 0;.   d code 1                     := leer;ÿÿÿÿÿÿÿ.   erstes fuell token           := leer;ÿÿÿÿÿÿÿ   IF two bytesN      THEN FOR index FROM   1 UPTO 129 REP zeichen zaehler (index) := 1 PER; ÿÿ^           FOR index FROM 130 UPTO 160 REP zeichen zaehler (index) := - maxint PER;ÿÿÿÿÿÿÿÿÿÿÿÿN           FOR index FROM 161 UPTO 224 REP zeichen zaehler (index) := 1 PER;ÿÿÿ^           FOR index FROM 225 UPTO 240 REP zeichen zaehler (index) := - maxint PER;ÿÿÿÿÿÿÿÿÿÿÿÿN           FOR index FROM 241 UPTO 256 REP zeichen zaehler (index) := 1 PER;ÿÿÿN      ELSE FOR index FROM   1 UPTO 256 REP zeichen zaehler (index) := 1 PER; ÿÿ END PROC initialisierung;ÿÿÿÿÿN (****************************************************************)ÿÿÿÿÿÿÿÿÿÿÿÿN (*** print - Kommando                                         ***)ÿÿÿÿÿÿÿÿÿÿÿÿ. BOOL VAR elan listings erlaubt;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ FILE VAR eingabe;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. THESAURUS VAR elan bolds := empty thesaurus;ÿÿN insert (elan bolds, "PACKET");       insert (elan bolds, "PROC");ÿÿÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "PROCEDURE");    insert (elan bolds, "OP");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "OPERATOR");     insert (elan bolds, "LET");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "ROW");          insert (elan bolds, "STRUCT");ÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "TYPE");         insert (elan bolds, "BOUND");ÿÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "IF");           insert (elan bolds, "REP");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "REPEAT");       insert (elan bolds, "FOR");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN insert (elan bolds, "WHILE");        insert (elan bolds, "SELECT");ÿÿÿÿÿÿÿÿÿÿÿ with elan listings (TRUE);ÿÿÿÿ. PROC with elan listings (BOOL CONST flag) :ÿÿÿ.      elan listings erlaubt := flag;ÿÿÿÿÿÿÿÿÿÿÿ END PROC with elan listings;ÿÿ^ BOOL PROC with elan listings : elan listings erlaubt END PROC with elan listings;ÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC print (FILE VAR file,ÿÿÿÿ>             PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿÿÿ.             PROC (INT CONST, INT CONST) close,N             PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿÿ   eingabe := file;ÿÿÿÿÿÿÿÿÿÿÿÿ   input (eingabe);ÿÿÿÿÿÿÿÿÿÿÿÿ>   print (PROC (TEXT VAR) lese zeile, BOOL PROC is eof,ÿÿÿÿÿÿÿÿ>          PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.          PROC (INT CONST, INT CONST) close,ÿÿÿN          PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute, ÿÿÿÿÿÿÿÿÿ.          PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿÿ^                INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) std analysator,ÿ>          elan listings erlaubt CAND is elan source (eingabe),           headline (eingabe) ); END PROC print;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC print (FILE VAR file,ÿÿÿÿ>             PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿÿÿ.             PROC (INT CONST, INT CONST) close,N             PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute,ÿÿÿÿÿÿÿ.             PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿn                   INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator ) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   eingabe := file;ÿÿÿÿÿÿÿÿÿÿÿÿ   input (eingabe);ÿÿÿÿÿÿÿÿÿÿÿÿ>   print (PROC  bei BetÙtigung von <ESC> ^ der erste Operand, z.B.ÿÿÿÿÿÿÿÿÿÿÿÿÿN          am Anfang einer Rechnung oder zwischen zwei OperatorenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          (+,-,*,...), so wird versucht eine Zahl aus der Datei zuÿÿÿÿÿÿÿÿÿÿÿÿÿN          lesen (vergleiche <ESC> L). SchlÙgt der Versuch fehl, stehtÿÿÿÿÿÿÿÿÿÿ>          also an der Cursorposition keine Zahl, so wird eineÿÿN          entsprechende Fehlermeldung ausgegeben und das <ESC> ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN          ignoriert. Anschlieûend kann so weitergerechnet werden,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          als wÙre <ESC> ^ nicht betÙtigt worden.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ::::::::   Abschnittsende, Auskunft verlassen mit <ESC> q   ::::::::ÿÿÿÿÿÿÿÿÿÿ> PACKET tecal auskunft DEFINES tecal auskunft : ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (***********************************************************************) ÿÿÿÿN (* Anpassung an den im EUMEL integrierten Patternmatcher               *) ÿÿÿÿN (* 4. 6. 1987  -as-                                                    *) ÿÿÿÿN (* Anpassung und Korrektur                                             *) ÿÿÿÿN (* 11.10.90    Uwe Behrend                                             *) ÿÿÿÿN (***********************************************************************) ÿÿÿÿ. LET anfangszeile   = ":::::     <ESC> ",ÿÿÿÿÿÿ.     end zeile      =  "Abschnittsende",ÿÿÿÿÿÿÿ.     dummyabschnitt = "::: unbekannt";ÿÿÿÿÿÿÿÿÿ. BOOL VAR auskunft aktiv := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT CONST auskunftsdatei := std;ÿÿÿÿÿÿÿÿÿÿÿÿÿ TASK CONST ur := father;ÿÿÿÿÿÿN BOOL PROC has range (FILE VAR f, TEXT CONST von, bis, INT VAR von line) : ÿÿÿÿ   gehe an file anfang; ÿÿÿÿÿÿÿ   suche von position; ÿÿÿÿÿÿÿÿ   IF von gefunden ÿÿÿÿÿÿÿÿÿÿÿÿ     THEN position merken; ÿÿÿÿ          suche bis position; ÿ          IF NOT bis gefunden ÿ.            THEN gehe zum file ende ÿÿÿÿÿÿÿÿÿÿÿ.          zum ende der bis zeile; ÿÿÿÿÿÿÿÿÿÿÿÿÿ          TRUE      ELSE FALSE   gehe an file anfang:ÿÿÿÿÿÿÿÿ     to line (f, 1); ÿÿÿÿÿÿÿÿÿÿ     col (f, 1) . ÿÿÿÿÿÿÿÿÿÿÿÿÿN   suche von position: IF NOT at (f, von) THEN down (f, von) FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   von gefunden: at (f, von). ÿ.   position merken: von line := line no (f). ÿÿ.   suche bis position: down (f, bis). ÿÿÿÿÿÿÿÿÿ   bis gefunden: at (f, bis). ÿ.   gehe zum file ende: to line (lines (f)). ÿÿÿ>   zum ende der bis zeile: col (f, len (f) + 1) . ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC has range;ÿÿÿÿÿÿÿÿÿÿÿ. PROC show (FILE VAR f, TEXT CONST von, bis) : .   FRANGE VAR r; INT VAR von line; ÿÿÿÿÿÿÿÿÿÿÿÿ.   IF has range (f, von, bis, von line) ÿÿÿÿÿÿÿ     THEN disable stop; ÿÿÿÿÿÿÿ.          set range (f, von line, 1, r); ÿÿÿÿÿÿ          to line (f, 1); ÿÿÿÿÿ          col (f, 1);ÿÿÿÿÿÿÿÿÿÿ          show (f); ÿÿÿÿÿÿÿÿÿÿÿ          set range (f, r) ÿÿÿÿ>   ELIF has range (f, dummyabschnitt, bis, von line) ÿÿÿÿÿÿÿÿÿÿ     THEN disable stop; ÿÿÿÿÿÿÿ.          set range (f, von line, 1, r); ÿÿÿÿÿÿ          to line (f, 1); ÿÿÿÿÿ          col (f, 1);ÿÿÿÿÿÿÿÿÿÿ          show (f); ÿÿÿÿÿÿÿÿÿÿÿ          set range (f, r) ÿÿÿÿ END PROC show;. PROC tecal auskunft (TEXT CONST taste):ÿÿÿÿÿÿÿ   enable stop;   fetch file if neccessary;ÿÿÿ   show part of file.ÿÿÿÿÿÿÿÿÿÿ   fetch file if neccessary :ÿÿ     TASK VAR task := father;ÿÿ>     WHILE NOT exists (auskunftsdatei) CAND NOT (task = ur) REP^       out (""13" Auskunftsdatei muû geholt werden von "  +name (task) + "!"13""); ÿÿÿÿÿÿÿÿÿÿÿÿ       zeile neu;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       disable stop;ÿÿÿÿÿÿÿÿÿÿÿ.       x fetch (auskunftsdatei, task);ÿÿÿÿÿÿÿÿÿ.       IF is error THEN clear error FI;ÿÿÿÿÿÿÿÿ       enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ       task := father(task)ÿÿÿÿ.     IF NOT exists (auskunftsdatei) ÿÿÿÿÿÿÿÿÿÿÿN       THEN errorstop ("Datei """+auskunftsdatei+""" wurde gelÚscht")ÿÿÿÿÿÿÿÿÿÿ   show part of file :ÿÿÿÿÿÿÿÿÿ>     FILE VAR f := sequential file (modify, auskunftsdatei);ÿÿÿ.     show (f, anfangszeile + taste, endzeile).ÿ END PROC tecal auskunft;ÿÿÿÿÿÿ PROC tecal auskunft :ÿÿÿÿÿÿÿÿÿ   IF NOT auskunft aktiv ÿÿÿÿÿÿ     THEN TEXT VAR char; ÿÿÿÿÿÿ          INT VAR x,y; ÿÿÿÿÿÿÿÿ.          get edit cursor (x,y); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          cursor (1, y); ÿÿÿÿÿÿN          out (""13""5""15" Funktionstaste drÛcken oder <?> "14""); ÿÿÿÿÿÿÿÿÿÿÿ            inchar (char) ÿÿÿÿÿ.          UNTIL char <> ""27"" PER;ÿÿÿÿÿÿÿÿÿÿÿÿ          out (""13""5"");ÿÿÿÿÿ          disable stop;ÿÿÿÿÿÿÿÿ          INT VAR c := col; ÿÿÿ          col (1);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.          auskunft aktiv := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          tecal auskunft (char);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          auskunft aktiv := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿ          col (c);ÿÿÿÿÿÿÿÿÿÿÿÿÿN     ELSE errorstop ("Auskunft innerhalb Auskunft geht nicht !")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC tecal auskunft;ÿÿÿÿÿÿ. PROC x fetch (TEXT CONST n, TASK CONST t): ÿÿÿ   enable stop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   fetch (n,t)  END PROC x fetch; ÿÿÿÿÿÿÿÿÿÿÿÿ END PACKET tecal auskunft;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(TEXT VAR) lese zeile, BOOL PROC is eof,ÿÿÿÿÿÿÿÿ>          PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.          PROC (INT CONST, INT CONST) close,ÿÿÿN          PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute, ÿÿÿÿÿÿÿÿÿ.          PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿÿ^                INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator,ÿÿÿÿÿ>          elan listings erlaubt CAND is elan source (eingabe),           headline (eingabe) ); END PROC print;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ PROC lese zeile (TEXT VAR zeile l) : getline (eingabe, zeile l) END PROC lese zeile;ÿÿÿÿÿÿÿÿÿÿ> BOOL PROC is eof : eof (eingabe) END PROC is eof;ÿÿÿÿÿÿÿÿÿÿÿÿÿ> BOOL PROC is elan source (FILE VAR eingabe l) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ hole erstes symbol;ÿÿÿÿÿÿÿÿÿÿÿN elan programm tag COR elan programm bold COR kommentar COR elanlist anweisungÿ . elan programm tag :ÿÿÿÿÿÿÿÿÿ>     symbol type = tag type CAND pos (zeile, ";") > 0 ÿÿÿÿÿÿÿÿÿ . elan programm bold :ÿÿÿÿÿÿÿÿ.     symbol type = bold type CAND is elan boldÿ     . is elan bold :ÿÿÿÿÿÿÿÿÿÿ^         (elan bolds CONTAINS symbol) COR deklaration COR proc oder op (naechstes symbol)ÿÿÿÿÿÿ     . deklaration :ÿÿÿÿÿÿÿÿÿÿÿ.         next symbol (naechstes symbol);ÿÿÿÿÿÿÿ>         naechstes symbol = "VAR" OR naechstes symbol = "CONST">     pos (zeile, "(*") > 0 OR pos (zeile, "{") > 0 ÿÿÿÿÿÿÿÿÿÿÿÿ . elanlist anweisung :ÿÿÿÿÿÿÿÿ.     symbol = "#" AND elanlist folgtÿÿÿÿÿÿÿÿÿÿÿ     . elanlist folgt :ÿÿÿÿÿÿÿÿ.         next symbol (naechstes symbol);ÿÿÿÿÿÿÿ.         naechstes symbol = "elanlist"ÿÿÿÿÿÿÿÿÿ   hole erstes symbol :ÿÿÿÿÿÿÿÿ.     hole erstes nicht blankes symbol; ÿÿÿÿÿÿÿÿ     scan (zeile);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     next symbol (symbol, symbol type);ÿÿÿÿÿÿÿÿ.     . hole erstes nicht blankes symbol :ÿÿÿÿÿÿN         IF eof (eingabe l) THEN LEAVE is elan source WITH FALSE FI;ÿÿÿÿÿÿÿÿÿÿÿ.         REP getline (eingabe l, zeile);ÿÿÿÿÿÿÿN         UNTIL pos (zeile, ""33"",""254"", 1) > 0 OR eof (eingabe l) PER;ÿÿÿÿÿÿ         reset (eingabe l);ÿÿÿÿ END PROC is elan source;ÿÿÿÿÿÿN (****************************************************************)ÿÿÿÿÿÿÿÿÿÿÿÿ. bottom label for elan listings ("");ÿÿÿÿÿÿÿÿÿÿ> PROC bottom label for elan listings (TEXT CONST label) :ÿÿÿÿÿÿ      bottom label := label;ÿÿÿ. END PROC bottom label for elan listings;ÿÿÿÿÿÿn TEXT PROC bottom label for elan listings : bottom label END PROC bottom label for elan listings;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC print (PROC (TEXT VAR) next line, BOOL PROC eof, ÿÿÿÿÿÿÿÿ>             PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿÿÿ.             PROC (INT CONST, INT CONST) close,N             PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute,ÿÿÿÿÿÿÿ.             PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿ^                   INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator,ÿÿ>             BOOL CONST elan listing, TEXT CONST file name) :ÿÿ gedruckte seiten := 0;ÿÿÿÿÿÿÿÿ> drucke datei (PROC (TEXT VAR) next line, BOOL PROC eof,ÿÿÿÿÿÿÿ>               PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿ>               PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN               PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute,ÿÿÿÿÿ.               PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿ^                     INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator,.               elan listing, file name );ÿÿÿÿÿÿ. IF is error THEN behandle fehlermeldung FI;ÿÿÿ . behandle fehlermeldung :ÿÿÿÿ>     TEXT CONST fehler meldung := error message;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     INT  CONST fehler zeile   := error line,ÿÿ.                fehler code    := error code;ÿÿ     clear error;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF NOT vor erster seiteÿÿÿ        THEN IF seite ist offenN                THEN schliesse seite ab (PROC (INT CONST, INT CONST) close,ÿÿÿÿ^                     PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute )ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             clear error;ÿÿÿÿÿÿ.             close (document, 0);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             clear error;ÿÿÿÿÿÿ     initialisierung;ÿÿÿÿÿÿÿÿÿÿ^     errorstop (fehler code, fehler meldung (* + " -> " + text (fehler zeile) *) );ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC print; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ d xpos                := 0;ÿÿÿ d ypos                := 0;ÿÿÿ d token. offset index := 1;ÿÿÿ material wert         := "";ÿÿ gedruckte seiten      := 0;ÿÿÿN INT PROC x pos          :   d xpos                END PROC x pos;ÿÿÿÿÿÿÿÿÿÿÿÿÿN INT PROC y pos          :   d ypos                END PROC y pos;ÿÿÿÿÿÿÿÿÿÿÿÿÿN INT PROC y offset index :   d token. offset index END PROC y offset index;ÿÿÿÿN INT PROC linetype       : - d token. offset index END PROC linetype;ÿÿÿÿÿÿÿÿÿÿN TEXT PROC material      : material wert           END PROC material;ÿÿÿÿÿÿÿÿÿÿN INT PROC pages printed  : gedruckte seiten        END PROC pages printed;ÿÿÿÿÿN (****************************************************************)ÿÿÿÿÿÿÿÿÿÿÿÿ> PROC drucke datei (PROC (TEXT VAR) next line, BOOL PROC eof,ÿÿ>                    PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿ>                    PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿÿN                    PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute,.                    PROC (INT CONST, TEXT VAR,ÿn                          INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator,ÿÿÿÿÿÿÿÿÿÿÿN                    BOOL CONST elan listing, TEXT CONST file name ) :ÿÿÿÿÿÿÿÿÿÿ IF elan listingÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.    THEN dateiname := file name;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         drucke elan listing;ÿÿ    ELSE drucke text datei;ÿÿÿÿ   drucke text datei :ÿÿÿÿÿÿÿÿÿ     initialisiere druck; ÿÿÿÿÿ     WHILE NOT eofÿÿÿÿÿÿÿÿÿÿÿÿÿ     REP next line (zeile); ÿÿÿ>         analysiere zeile (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿ^           INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿÿ.         drucke token soweit wie moeglich;ÿÿÿÿÿ.         werte anweisungsspeicher aus;ÿÿÿÿÿÿÿÿÿ     schliesse druck ab; ÿÿÿÿÿÿ   initialisiere druck :ÿÿÿÿÿÿÿ.     IF NOT initialized (in dieser task)ÿÿÿÿÿÿÿ        THEN ds := nilspace;ÿÿÿ             initialisierungÿÿÿ.     vor erster seite               := TRUE;ÿÿÿ.     tabellen modus                 := FALSE;ÿÿ.     block modus                    := FALSE;ÿÿ.     zeile ist absatzzeile          := TRUE;ÿÿÿN     x wanted                       := x step conversion (std x wanted);ÿÿÿÿÿÿÿN     y wanted                       := y step conversion (std y wanted);ÿÿÿÿÿÿÿN     limit                          := x step conversion (std limit);ÿÿÿÿÿÿÿÿÿÿN     pagelength                     := y step conversion (std pagelength);ÿÿÿÿÿ>     linefeed faktor                := std linefeed faktor;ÿÿÿÿ>     material wert                  := std material;ÿÿÿÿÿÿÿÿÿÿÿ.     indentation                    := 0;ÿÿÿÿÿÿ.     modifikations modus            := maxint; .     seitenlaenge                   := maxint;ÿ.     papierlaenge                   := maxint;ÿ.     left margin                    := 0;ÿÿÿÿÿÿ.     top  margin                    := 0;ÿÿÿÿÿÿ>     a ypos                         := top margin;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     a font                         := -1;ÿÿÿÿÿ.     a modifikationen               := 0;ÿÿÿÿÿÿ.     aktuelle spalte                := 1;ÿÿÿÿÿÿ.     anzahl spalten                 := 1;ÿÿÿÿÿÿ     stelle neuen font ein (1);     loesche tabellenspeicher;ÿ     loesche markierung;ÿÿÿÿÿÿÿ     loesche alte markierung;ÿÿ     loesche durchschuss;ÿÿÿÿÿÿ   schliesse druck ab :ÿÿÿÿÿÿÿÿ     IF NOT vor erster seiteÿÿÿ        THEN IF seite ist offenN                THEN schliesse seite ab (PROC (INT CONST, INT CONST) close,ÿÿÿÿ^                    ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ`@  ÿÿ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ font convertor 9ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²/a€ëÿÿI IFF $      ÿÿÿÿ       $         $  J >‚ ÿþ    ÿÿ   ÿÿa€ÿ ÿÿÿÿÿÿÿÿÿÿÿ   ÿÿ€ÿ ÿÿÿÿÿÿÿÿÿÿÿ  Iÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿ¡€ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŠÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Œÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŒÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŽÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Žÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŽÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‘ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‘ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA’ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ’ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!“ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq“ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ“ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ”ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!•ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘•ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ–ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘–ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdisable stop;ÿÿÿÿÿÿÿÿÑ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿload;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿforget (ds);ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa—ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡—ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá—ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA˜ÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡˜ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿdisable stop;ÿÿÿÿÿÿÿÿñ˜ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘™ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿload;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ™ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿforget (ds);ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC load :ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘šÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿášÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ›ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAœÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±œÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáœÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!žÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±žÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿážÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ÿÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŸÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ ÿ] ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute )ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             close (document, 0);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   drucke token soweit wie moeglich :ÿÿÿÿÿÿÿÿÿÿ.     IF analysespeicher ist nicht leerÿÿÿÿÿÿÿÿÿ.        THEN letztes token bei gleicher ypos; ÿ.             IF NOT seite ist offenÿÿÿÿÿÿÿÿÿÿÿÿ>                THEN eroeffne seite (x wanted, y wanted,ÿÿÿÿÿÿÿN                                   PROC (INT CONST, INT VAR, INT VAR) open);ÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             IF seitenlaenge ueberschritten OR papierlaenge ueberschritten ÿÿÿÿ.                THEN neue seite oder spalte;ÿÿÿ.                     analysiere zeile nochmal;ÿ.                ELSE sortiere neue token ein;ÿÿ.                     IF in letzter spalteÿÿÿÿÿÿ>                        THEN drucke tokenspeicher (a ypos,ÿÿÿÿÿ^                             PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . seitenlaenge ueberschritten :ÿÿÿÿÿÿÿÿÿÿÿ>         a ypos + aktuelle zeilentiefe > seitenlaenge ÿÿÿÿÿÿÿÿÿ.     . papierlaenge ueberschritten :ÿÿÿÿÿÿÿÿÿÿÿ>         a ypos + aktuelle zeilentiefe > papierlaenge ÿÿÿÿÿÿÿÿÿ     . neue seite oder spalte :         IF in letzter spalteÿÿ^            THEN INT CONST aktuelles y wanted := y wanted bei seitenwechel ohne page;ÿÿÿÿÿÿÿÿÿÿN                 schliesse seite ab (PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿ^                       PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿ>                 eroeffne seite (x wanted, aktuelles y wanted,ÿN                       PROC (INT CONST, INT VAR, INT VAR) open);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            ELSE neue spalte;ÿÿ>         . y wanted bei seitenwechel ohne page :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             IF seitenlaenge ueberschrittenÿÿÿÿ                THEN y wantedÿÿ                ELSE 0ÿÿÿÿÿÿÿÿÿ             FI.     . analysiere zeile nochmal :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         setze auf alte werte zurueck;ÿÿÿÿÿÿÿÿÿ.         loesche anweisungsspeicher;ÿÿÿÿÿÿÿÿÿÿÿ>         analysiere zeile (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿ^           INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿÿ.         letztes token bei gleicher ypos;ÿÿÿÿÿÿ.         sortiere neue token ein;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . setze auf alte werte zurueck :ÿÿÿÿÿÿN            zeile ist absatzzeile := letzte zeile war absatzzeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>            a modifikationen      := letzte modifikationen;ÿÿÿÿ>            stelle neuen font ein (letzter font);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   werte anweisungsspeicher aus :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿÿ.     FOR index FROM 1 UPTO anweisungszaehlerÿÿÿ>         SELECT anweisungs indizes ISUB index OFÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE a block             : block anweisungÿÿÿÿÿÿÿÿÿÿ>           CASE a columns           : columns anweisungÿÿÿÿÿÿÿÿ>           CASE a columnsend        : columnsend anweisungÿÿÿÿÿ>           CASE a free              : free anweisungÿÿÿÿÿÿÿÿÿÿÿ>           CASE a limit             : limit anweisungÿÿÿÿÿÿÿÿÿÿ>           CASE a linefeed          : linefeed anweisungÿÿÿÿÿÿÿ>           CASE a material          : material anweisungÿÿÿÿÿÿÿ>           CASE a page0, a page1    : page anweisungÿÿÿÿÿÿÿÿÿÿÿ>           CASE a pagelength        : pagelength anweisungÿÿÿÿÿ>           CASE a start             : start anweisungÿÿÿÿÿÿÿÿÿÿ>           CASE a table             : table anweisungÿÿÿÿÿÿÿÿÿÿ>           CASE a tableend          : tableend anweisung ÿÿÿÿÿÿ>           CASE a clearpos0         : clearpos0 anweisungÿÿÿÿÿÿ>           CASE a clearpos1         : clearpos1 anweisungÿÿÿÿÿÿ.           CASE a lpos, a rpos, a cpos, a dposÿN                                    : lpos rpos cpos dpos anweisungÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE a bpos              : bpos anweisungÿÿÿÿÿÿÿÿÿÿÿ>           CASE a fillchar          : fillchar anweisungÿÿÿÿÿÿÿ>           CASE a textbegin0        : textbegin0 anweisungÿÿÿÿÿ>           CASE a textbegin2        : textbegin2 anweisungÿÿÿÿÿ>           CASE a textend           : textend anweisungÿÿÿÿÿÿÿÿ>           CASE a indentation       : indentation anweisungÿÿÿÿ>           CASE a y tab             : y tab anweisungÿÿÿÿÿÿÿÿÿÿ         END SELECTÿÿÿÿÿÿÿÿÿÿÿÿ    loesche anweisungsspeicher;    . block anweisung :ÿÿÿÿÿÿÿÿ        blockmodus := TRUE;ÿÿÿÿ    . columns anweisung :ÿÿÿÿÿÿ>        IF anzahl spalten = 1 AND int  conversion ok (param1)ÿÿ>                              AND real conversion ok (param2) ÿ>           THEN anzahl spalten := max (1, int param); ÿÿÿÿÿÿÿÿÿN                luecke         := x step conversion (real param);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    . columnsend anweisung :ÿÿÿ        anzahl spalten  := 1;ÿÿ        aktuelle spalte := 1; ÿ>        left margin     := x wanted - x start + indentation;ÿÿÿ    . free anweisung :ÿÿÿÿÿÿÿÿÿ^        IF real conversion ok (param1) THEN a ypos INCR y step conversion (real param) FI;ÿÿÿÿÿ    . limit anweisung :ÿÿÿÿÿÿÿÿ^        IF real conversion ok (param1) THEN limit := x step conversion (real param) FI;ÿÿÿÿÿÿÿÿ    . linefeed anweisung :ÿÿÿÿÿ.        IF real conversion ok (param1)ÿÿÿÿÿÿÿÿÿ>           THEN linefeed faktor    := real param;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                berechne letzte zeilengroesse;ÿ    . material anweisung :ÿÿÿÿÿ.        material wert := param1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    . page anweisung :ÿÿÿÿÿÿÿÿÿ        IF seite ist offenÿÿÿÿÿ.           THEN IF NOT in letzter spalteÿÿÿÿÿÿÿ.                   THEN neue spalteÿÿÿÿÿÿÿÿÿÿÿÿN                   ELSE schliesse seite ab (PROC (INT CONST, INT CONST) close,ÿ^                          PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿ>                        papier laenge := maxint;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                FI;ÿÿÿÿÿÿÿÿÿÿÿÿ.           ELSE a ypos        := top margin;ÿÿÿ.                papier laenge := maxint;ÿÿÿÿÿÿÿ    . pagelength anweisung :ÿÿÿ.        IF real conversion ok (param1)ÿÿÿÿÿÿÿÿÿ>           THEN pagelength   := y step conversion (real param);    . start anweisung :ÿÿÿÿÿÿÿÿ^        IF real conversion ok (param1) THEN x wanted := x step conversion (real param) FI;ÿÿÿÿÿ^        IF real conversion ok (param2) THEN y wanted := y step conversion (real param) FI;ÿÿÿÿÿ    . table anweisung :ÿÿÿÿÿÿÿÿ        tabellenmodus := TRUE;ÿ    . tableend anweisung :ÿÿÿÿÿ        tabellenmodus := FALSE;    . clearpos0 anweisung :ÿÿÿÿ.        loesche tabellenspeicher;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    . clearpos1 anweisung :ÿÿÿÿ.        IF real conversion ok (param1) ÿÿÿÿÿÿÿÿ>           THEN int param := x step conversion (real param);ÿÿÿ>                FOR tab index FROM 1 UPTO anzahl tabsÿÿÿÿÿÿÿÿÿÿ.                REP IF tab position = int param.                       THEN tab typ := leer;ÿÿÿ>                            delete int (tab liste, tab index);ÿ>                            LEAVE clearpos1 anweisung;ÿÿÿÿÿÿÿÿÿ                    FI;ÿÿÿÿÿÿÿÿ                PER;ÿÿÿÿÿÿÿÿÿÿÿ.    . lpos rpos cpos dpos anweisung :ÿÿÿÿÿÿÿÿÿÿ.        IF real conversion ok (param1)ÿÿÿÿÿÿÿÿÿN           THEN neuer tab eintrag (anweisungs indizes ISUB index, param2) FI; ÿ    . bpos anweisung :ÿÿÿÿÿÿÿÿÿN        IF real conversion ok (param2) CAND real conversion ok (param1)ÿÿÿÿÿÿÿÿ.             CAND real (param2) > real paramÿÿÿ>           THEN neuer tab eintrag (a bpos, param2) FI;ÿÿÿÿÿÿÿÿÿ    . fillchar anweisung :ÿÿÿÿÿ         fill char := param1;ÿÿ    . textbegin0 anweisung :ÿÿÿ>        aktuelle einrueckbreite := alte einrueckbreite;ÿÿÿÿÿÿÿÿ>        mark index l            := alter mark index l;ÿÿÿÿÿÿÿÿÿ>        mark index r            := alter mark index r;ÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¡ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¢ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¢ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¢ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¢ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¢ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!£ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ£ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘£ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ£ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¤ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¤ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¥ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¥ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¥ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ¦ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¦ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!§ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq§ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡§ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ§ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¨ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¨ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¨ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!©ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq©ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡©ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ©ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ªÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqªÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA«ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¬ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¬ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¬ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!­ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq­ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ­ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá®ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¯ÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ°ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡°ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ°ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa±ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘±ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ±ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA²ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq²ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ²ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1³ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq³ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ³ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA´ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ´ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAµÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘µÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑµÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¶ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¶ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¶ÿ^ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!·ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa·ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡·ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá·ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¸ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¸ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¸ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¹ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¹ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¹ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQºÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ»ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ»ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¼ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¼ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¼ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA½ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ½ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¾ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¾ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¿ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¿ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¿ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¿ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Àÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÀÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Àÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÀÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Áÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÁÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Áÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Âÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÂÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Âÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÂÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÃÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ¡Ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÃÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÄÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÄÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÄÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿQÅÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÅÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Åÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÅÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÅÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÆÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÆÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Çÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÇÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÇÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÈÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÈÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Èÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÉÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÉÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÊÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÊÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ËÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑËÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ìÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÌÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÍÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÍÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿAÎÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÎÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÎÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ïÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÏÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÏÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ1Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÐÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ðÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÐÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÑÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÑÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿáÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Òÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÒÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÒÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÓÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ‘Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÓÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÔÿS ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÔÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ1Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÕÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÕÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÕÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÖÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÖÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ!×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA×ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±×ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ØÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ØÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÙÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÚÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        loesche alte markierung;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    . textbegin2 anweisung :ÿÿÿ>        aktuelle einrueckbreite := alte einrueckbreite;ÿÿÿÿÿÿÿÿ>        mark index l            := alter mark index l;ÿÿÿÿÿÿÿÿÿ>        mark index r            := alter mark index r;ÿÿÿÿÿÿÿÿÿ.        loesche alte markierung;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN        neuer durchschuss (int (param1), y step conversion (real (param 2)));ÿÿ    . textend anweisung :ÿÿÿÿÿÿ>        alte einrueckbreite := aktuelle einrueckbreite;ÿÿÿÿÿÿÿÿ.        alter mark index l  := mark index l;ÿÿÿ.        alter mark index r  := mark index r;ÿÿÿ        loesche markierung;ÿÿÿÿ        loesche durchschuss;ÿÿÿ    . indentation anweisung :ÿÿ. (**)   IF real conversion ok (param1)ÿÿÿÿÿÿÿÿÿ>           THEN int param   := x step conversion (real param);ÿ>                left margin INCR (int param - indentation);ÿÿÿÿ.                indentation :=    int param;ÿÿÿ    . y tab anweisung :ÿÿÿÿÿÿÿÿ. (**)   IF real conversion ok (param1)ÿÿÿÿÿÿÿÿÿ>           THEN int param := y step conversion (real param);ÿÿÿN                IF int param <= seitenlaenge THEN a ypos := int param FI;ÿÿÿÿÿÿ        . param1 :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.            IF (params1 zeiger ISUB index) <> 0>               THEN name (params1, params1 zeiger ISUB index)ÿÿ               ELSE ""ÿÿÿÿÿÿÿÿÿ        . param2 :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.            IF (params2 zeiger ISUB index) <> 0>               THEN name (params2, params2 zeiger ISUB index)ÿÿ               ELSE ""ÿÿÿÿÿÿÿÿÿ   drucke elan listing :ÿÿÿÿÿÿÿ.     initialisiere elan listing;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     WHILE NOT eofÿÿÿÿÿÿÿÿÿÿÿÿÿ     REP next line (zeile);ÿÿÿÿ         zeilen nr INCR 1;ÿÿÿÿÿ         drucke elan zeile;ÿÿÿÿ     schliesse elan listing ab;   initialisiere elan listing :     open document cmd;ÿÿÿÿÿÿÿÿ     hole elan list font;ÿÿÿÿÿÿ     initialisiere variablen;ÿÿ     elan fuss und kopf (1,ÿÿÿÿ>                PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿN                PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿ     . open document cmd :ÿÿÿÿÿ.         material wert         := "";ÿÿÿÿÿÿÿÿÿÿ.         d token. offset index := 1;ÿÿÿÿÿÿÿÿÿÿÿ.         erster ypos index d   := 0; ÿÿÿÿÿÿÿÿÿÿ.         vor erster seite      := FALSE;ÿÿÿÿÿÿÿ.         seite ist offen       := TRUE;ÿÿÿÿÿÿÿÿ.         open (document, x size, y size);ÿÿÿÿÿÿ.         vor erster seite      := FALSE;ÿÿÿÿÿÿÿ     . hole elan list font :ÿÿÿ.         d font := max (1, font ("elanlist"));ÿN         get replacements (d font, replacements, replacement tabelle);ÿÿÿÿÿÿÿÿÿ>         einrueckbreite := indentation pitch (d font) ;ÿÿÿÿÿÿÿÿ^         font hoehe     := font lead (d font) + font height (d font) + font depth (d font);ÿÿÿÿ.     . initialisiere variablen :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         innerhalb einer liste := FALSE;ÿÿÿÿÿÿÿ.         vor erstem packet     := TRUE;ÿÿÿÿÿÿÿÿ.         zeilen nr             := 0;ÿÿÿÿÿÿÿÿÿÿÿ.         select counter        := 0;ÿÿÿÿÿÿÿÿÿÿÿ>         y wanted              := y size DIV 23;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN         pagelength            := y size - y wanted - y wanted; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^         x wanted              := (min (x size DIV 10, x step conversion (2.54))ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                         DIV einrueckbreite) * einrueckbreite; ^         max zeichen zeile     := (x size - x wanted - (x wanted DIV 3)) DIV einrueckbreite;ÿÿÿ>         max zeichen fuss      := fusszeilenbreite;ÿÿÿÿÿÿÿÿÿÿÿÿN         layout laenge         := min (38, max zeichen zeile DIV 3);ÿÿÿÿÿÿÿÿÿÿÿN         layout laenge name    :=  layout laenge - zeilen nr laenge - 8; ÿÿÿÿÿÿ^         layout blanks         := (layout laenge - zeilen nr laenge - 1) * " "; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         refinement layout zeile := (layout laenge - 1) * " " ;.         refinement layout zeile CAT "|" ;ÿÿÿÿÿN         IF pagelength DIV fonthoehe - 6 < 35 OR max zeichen zeile < 65ÿÿÿÿÿÿÿÿN            THEN errorstop ("Schreibfeld fuer 'elan listing' zu klein") FI;ÿÿÿÿ         . fusszeilenbreite :ÿÿN             INT CONST dina 4 breite := x step conversion (21.0);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             IF   x size <= dina 4 breiteÿÿÿÿÿÿN                  THEN (x size - 2 * x wanted) DIV einrueckbreite ÿÿÿÿÿÿÿÿÿÿÿÿÿN             ELIF 120 * einrueckbreite <= dina 4 breite - 2 * x wantedÿÿÿÿÿÿÿÿÿN                  THEN (dina 4 breite - 2 * x wanted) DIV einrueckbreite ÿÿÿÿÿÿN                  ELSE min (120, (x size - 2 * x wanted) DIV einrueckbreite)ÿÿÿ             FI   schliesse elan listing ab :ÿ     elan fuss und kopf (-1,ÿÿÿ>                PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿN                PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿ     close (document, 0);ÿÿÿÿÿÿ   drucke elan zeile :ÿÿÿÿÿÿÿÿÿ.     IF   pos (zeile, "#page#") = 1 ÿÿÿÿÿÿÿÿÿÿÿN          THEN IF nicht am seiten anfang THEN seiten wechsel FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     ELIF pos (zeile, "#elanlist#") <> 1 ÿÿÿÿÿÿ.          THEN bestimme elan layout;ÿÿÿÿÿÿÿÿÿÿÿ.               bestimme elan zeile;ÿÿÿÿÿÿÿÿÿÿÿÿ^               gib elan text aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); .               seitenwechsel wenn noetig;ÿÿÿÿÿÿ     . nicht am seitenanfang :ÿ>         rest auf seite < pagelength - 3 * font hoeheÿÿÿÿÿÿÿÿÿÿ     . seiten wechsel :ÿÿÿÿÿÿÿÿ         elan fuss und kopf (0,>                PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿN                PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿ   bestimme elan layout :ÿÿÿÿÿÿ     IF   innerhalb einer liste          THEN leeres layout;ÿÿ.               pruefe ende der liste ÿÿÿÿÿÿÿÿÿÿ>     ELIF pos (zeile, "P") <> 0 COR pos (zeile, ":") <> 0ÿÿÿÿÿÿ.          THEN analysiere elan zeileÿÿÿÿÿÿÿÿÿÿÿ.     ELIF innerhalb einer select kette  ÿÿÿÿÿÿÿ          THEN leeres layout;ÿÿ.               pruefe ende der select ketteÿÿÿÿ.     ELIF pos (zeile, "SELECT") <> 0ÿÿÿÿÿÿÿÿÿÿÿ.          THEN analysiere select ketteÿÿÿÿÿÿÿÿÿ          ELSE leeres layout ÿÿ     elan text CAT "|";ÿÿÿÿÿÿÿÿ     . leeres layout :ÿÿÿÿÿÿÿÿÿ>         elan text := text (zeilen nr, zeilen nr laenge);ÿÿÿÿÿÿ.         elan text CAT layout blanks;ÿÿÿÿÿÿÿÿÿÿ     . analysiere elan zeile :ÿ         scan (zeile);ÿÿÿÿÿÿÿÿÿ.         next symbol (symbol, symbol type);ÿÿÿÿ>         next symbol (naechstes symbol, naechster symbol type);         IF   packet anfangÿÿÿÿ.              THEN packet layout ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         ELIF type anfangÿÿÿÿÿÿ              THEN type layoutÿ         ELIF proc op anfangÿÿÿ.              THEN proc op layoutÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              ELSE IF   innerhalb einer select ketteÿÿÿÿÿÿÿÿÿÿÿ>                        THEN pruefe ende der select kette;ÿÿÿÿÿ.                             leeres layoutÿÿÿÿÿ.                   ELIF refinement anfangÿÿÿÿÿÿ.                        THEN refinement layoutÿ.                        ELSE leeres layoutÿÿÿÿÿ              FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . packet anfang :ÿÿÿÿÿÿÿÿÿ         symbol = "PACKET"ÿÿÿÿÿ     . type anfang :ÿÿÿÿÿÿÿÿÿÿÿ         symbol = "TYPE"ÿÿÿÿÿÿÿ     . proc op anfang :ÿÿÿÿÿÿÿÿ.         IF   proc oder op (symbol)ÿÿÿÿÿÿÿÿÿÿÿÿ>              THEN naechster symbol type <> delimiter typeÿÿÿÿÿN         ELIF (symbol <> "END") AND proc oder op (naechstes symbol)ÿÿÿÿÿÿÿÿÿÿÿÿ.              THEN symbol := naechstes symbol;ÿN                   next symbol (naechstes symbol, naechster symbol type);ÿÿÿÿÿÿ>                   naechster symbol type <> delimiter typeÿÿÿÿÿ              ELSE FALSEÿÿÿÿÿÿÿ     . refinemeqÚÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿáÚÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÛÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ûÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÛÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÜÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Üÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÜÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÝÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Þÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÞÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÞÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ßÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ßÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑßÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAàÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqàÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿ¡àÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáàÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1áÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿU ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿááÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAãÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ãÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡äÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáäÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQåÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAæÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqæÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡æÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑæÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!çÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQçÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±çÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1èÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±èÿW ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAéÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑéÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1êÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡êÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑêÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿëÿW ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaëÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ëÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáëÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ìÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁìÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñìÿd ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaíÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘íÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑíÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!îÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqîÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±îÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáîÿ^ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAïÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqïÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ïÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqðÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁðÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ñÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqñÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAòÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáòÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAóÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±óÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAôÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ôÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!õÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
INT VAR i;ÿÿÿÿÿÿÿÿÿÿÿ±õÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáõÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!öÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaöÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±öÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñöÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA÷ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP :=;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±÷ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!øÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑøÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAùÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqùÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ùÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑùÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(*ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡úÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ*)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñúÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAûÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿ‘ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAüÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘üÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿáüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqýÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ýÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    z := " ";ÿÿÿÿÿÿÿÿþÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!þÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqþÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘þÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁþÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñþÿ^ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
    put z;ÿÿÿÿÿÿÿÿÿÿÿ±ÿÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
    put z;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"	ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB	ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr	ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ	ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò	ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"
ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ
ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò
ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. put font :ÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
    put z;ÿÿÿÿÿÿÿÿÿÿÿ‚ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿnt anfang :ÿÿÿÿÿ>         symbol type = tag type AND naechstes symbol = ":" ÿÿÿÿ     . packet layout :ÿÿÿÿÿÿÿÿÿ.         IF nicht am seiten anfang ANDÿÿÿÿÿÿÿÿÿ>            (NOT vor erstem packet OR gedruckte seiten > 1)ÿÿÿÿ           THEN seiten wechselÿ>         layout ("   ", naechstes symbol, "*") ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         vor erstem packet     := FALSE;ÿÿÿÿÿÿÿ.         select counter        := 0;ÿÿÿÿÿÿÿÿÿÿÿ.         innerhalb einer liste := TRUE;ÿÿÿÿÿÿÿÿ         pruefe ende der liste;     . type layout :ÿÿÿÿÿÿÿÿÿÿÿ.         layout ("   ", naechstes symbol, ".");.         select counter        := 0;ÿÿÿÿÿÿÿÿÿÿÿ     . proc op layout :ÿÿÿÿÿÿÿÿ.         IF   keine vier zeilen mehrÿÿÿÿÿÿÿÿÿÿÿ.              THEN seiten wechselÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         ELIF nicht am seitenanfangÿÿÿÿÿÿÿÿÿÿÿÿ^              THEN cr plus lf (2, PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); .         layout ("   ", naechstes symbol, ".");.         select counter        := 0;ÿÿÿÿÿÿÿÿÿÿÿ.         innerhalb einer liste := TRUE;ÿÿÿÿÿÿÿÿ         pruefe ende der liste;.         . keine vier zeilen mehr :ÿÿÿÿÿÿÿÿÿÿÿÿ.             rest auf seite <= 8 * font hoehe ÿ     . refinement layout :ÿÿÿÿÿ.         IF   keine drei zeilen mehrÿÿÿÿÿÿÿÿÿÿÿ.              THEN seiten wechselÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         ELIF nicht am seitenanfangÿÿÿÿÿÿÿÿÿÿÿÿ>              THEN elan text := refinement layout zeile;ÿÿÿÿÿÿÿ.                   gib elan text ausÿÿÿÿÿÿÿÿÿÿÿ^                        (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿ.         layout ("      ", symbol, " ");ÿÿÿÿÿÿÿ.         . keine drei zeilen mehr :ÿÿÿÿÿÿÿÿÿÿÿÿ.             rest auf seite <= 7 * font hoehe ÿ     . pruefe ende der liste :ÿ.         IF pos (zeile, ":") <> 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN scan (zeile);ÿ.                 WHILE innerhalb einer listeÿÿÿ.                 REP next symbol (symbol);ÿÿÿÿÿN                     IF symbol = ":" THEN innerhalb einer liste := FALSE FI;ÿÿÿ.                 UNTIL symbol = "" PER;ÿÿÿÿÿÿÿÿ.     . innerhalb einer select kette :ÿÿÿÿÿÿÿÿÿÿ         select counter > 0ÿÿÿÿ.     . analysiere select kette :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         scan (zeile);ÿÿÿÿÿÿÿÿÿ.         naechstes symbol := "";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         REP symbol := naechstes symbol;ÿÿÿÿÿÿÿ.             next symbol (naechstes symbol);ÿÿÿN             IF naechstes symbol = "SELECT" CAND symbol <> "END"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                THEN select counter := 1;ÿÿÿÿÿÿ.                     untersuche select kette;ÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         UNTIL naechstes symbol = "" PER;ÿÿÿÿÿÿ         leeres layout;ÿÿÿÿÿÿÿÿ.     . pruefe ende der select kette :ÿÿÿÿÿÿÿÿÿÿ.         IF pos (zeile, "SELECT") <> 0ÿÿÿÿÿÿÿÿÿ            THEN scan (zeile);ÿ.                 naechstes symbol := "";ÿÿÿÿÿÿÿ.                 untersuche select kette;ÿÿÿÿÿÿ.         . untersuche select kette :ÿÿÿÿÿÿÿÿÿÿÿ.             REP symbol := naechstes symbol;ÿÿÿ>                 next symbol (naechstes symbol);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 IF   naechstes symbol = "SELECT"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                      THEN select counter INCR select stepÿÿÿÿÿ>                 ELIF naechstes symbol = "ENDSELECT"ÿÿÿÿÿÿÿÿÿÿÿ>                      THEN select counter DECR 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.              UNTIL naechstes symbol = "" PER;ÿ              . select step :ÿÿ>                  IF symbol = "END" THEN -1 ELSE 1 FIÿÿÿÿÿÿÿÿÿÿ   bestimme elan zeile : ÿÿÿÿÿÿ     IF zeile ist nicht zu lang.        THEN elan text CAT zeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        ELSE drucke zeile in teilen ÿÿÿÿÿÿÿÿÿÿÿ.     . zeile ist nicht zu lang :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         zeilen laenge := LENGTH zeile;ÿÿÿÿÿÿÿÿ.         zeilen laenge <= rest auf zeileÿÿÿÿÿÿÿ        . rest auf zeile :ÿÿÿÿÿ>            max zeichen zeile - LENGTH elan textÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . drucke zeile in teilen :         zeilen pos := 1;ÿÿÿÿÿÿ         bestimme einrueckung;ÿN         WHILE zeile noch nicht ganz gedruckt REP teil layout PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     . bestimme einrueckung :ÿÿN         anzahl einrueck blanks := naechstes nicht blankes zeichen - 1;ÿÿÿÿÿÿÿÿ>         IF anzahl einrueck blanks > rest auf zeile - 20ÿÿÿÿÿÿÿ>            THEN anzahl einrueck blanks := 0 FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . zeile noch nicht ganz gedruckt :ÿÿÿÿÿÿÿÿ         bestimme zeilenteil;ÿÿ         NOT zeile ist zu endeÿ.         . bestimme zeilenteil :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             bestimme laenge;ÿÿ^             zeilen teil := subtext (zeile, zeilen pos, zeilen pos + laenge - 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             elan text CAT zeilen teil;ÿÿÿÿÿÿÿÿ.             zeilen pos INCR laenge;ÿÿÿÿÿÿÿÿÿÿÿ.             . zeilen teil : par1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             . bestimme laenge :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                INT VAR laenge := zeilen laenge - zeilen pos + 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                IF laenge > rest auf zeileÿÿÿÿÿ>                   THEN laenge := rest auf zeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                        WHILE (zeile SUB (zeilen pos + laenge - 1)) <> " "ÿÿÿÿÿ>                        REP laenge DECR 1 UNTIL laenge = 0 PER;N                        IF laenge = 0 THEN laenge := rest auf zeile FI;ÿÿÿÿÿÿÿÿ                FI;ÿÿÿÿÿÿÿÿÿÿÿÿ     . teil layout :ÿÿÿÿÿÿÿÿÿÿÿ^         gib elan text aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); ÿÿÿÿÿÿ>         elan text :=  (zeilen nr laenge - 1) * " "; ÿÿÿÿÿÿÿÿÿÿ         elan text CAT "+";ÿÿÿÿ.         elan text CAT layout blanks;ÿÿÿÿÿÿÿÿÿÿ         elan text CAT "|";ÿÿÿÿN         elan text cat blanks (anzahl einrueck blanks + teil einrueckung);ÿÿÿÿÿ   seiten wechsel wenn noetig :>     IF keine zeilen mehr AND NOT eof THEN seiten wechsel FI; ÿ     . keine zeilen mehr :ÿÿÿÿÿ.         rest auf seite <= 4 * font hoehe ÿÿÿÿÿ END PROC drucke datei;ÿÿÿÿÿÿÿÿ> BOOL PROC real conversion ok (TEXT CONST param) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.      real param := real (param);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      last conversion ok AND real param >= 0.0ÿ END PROC real conversion ok;ÿÿ> BOOL PROC int conversion ok (TEXT CONST param) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      int param := int (param);.      last conversion ok AND int param >= 0 ÿÿÿ END PROC int conversion ok;ÿÿÿ> PROC neuer tab eintrag (INT CONST typ, TEXT CONST param) :ÿÿÿÿ      suche neuen eintrag;ÿÿÿÿÿ.      sortiere neue tab position ein;ÿÿÿÿÿÿÿÿÿÿ      tab typ      := typ;ÿÿÿÿÿ.      tab position := neue tab position;ÿÿÿÿÿÿÿ.      tab param    := eventueller parameter;ÿÿÿ      . suche neuen eintrag :ÿÿ          INT VAR index := 0;ÿÿ          REP index INCR 1;ÿÿÿÿ>              IF tab speicher (index). tab typ = leerÿÿÿÿÿÿÿÿÿÿ>                 THEN LEAVE suche neuen eintrag FI;ÿÿÿÿÿÿÿÿÿÿÿÿ.          UNTIL index = max tabs PER;ÿÿÿÿÿÿÿÿÿÿ.          LEAVE neuer tab eintrag;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.      . sortiere neue tab position ein :ÿÿÿÿÿÿÿN          INT VAR neue tab position := x step conversion (real param);ÿÿÿÿÿÿÿÿÿ.          FOR tab index FROM 1 UPTO anzahl tabs>          REP IF   tab position = neue tab positionÿÿÿÿÿÿÿÿÿÿÿÿ.                 THEN LEAVE neuer tab eintragÿÿ>              ELIF tab position > neue tab positionÿÿÿÿÿÿÿÿÿÿÿÿ>                 THEN insert int (tab liste, tab index, index);>                      LEAVE sortiere neue tab position ein;ÿÿÿÿ              FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          tab liste CAT index;ÿ.          tab index :=  anzahl tabs;ÿÿÿÿÿÿÿÿÿÿÿ      . eventueller parameter :          INT VAR link;ÿÿÿÿÿÿÿÿ          SELECT typ OFÿÿÿÿÿÿÿÿ>            CASE a dpos : insert (d strings, param, link); link>            CASE a bpos : x step conversion (real(param))ÿÿÿÿÿÿ              OTHERWISE : 0ÿÿÿÿ          END SELECTÿÿÿÿÿÿÿÿÿÿÿ END PROC neuer tab eintrag;ÿÿÿ PROC neue spalte :ÿÿÿÿÿÿÿÿÿÿÿÿbÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2 ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ² ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB!ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr!ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ!ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2"ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚"ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ"ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"#ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb#ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’#ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ#ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò#ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"$ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB$ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr$ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER;ÿÿÿÿÿÿÿÿÿ’$ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ$ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ%ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB%ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’%ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²%ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ&ÿO ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb&ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²&ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò&ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ'ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2'ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb'ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢'ÿR ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR(ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢(ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ(ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò(ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB)ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’)ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²)ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ)ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ*ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR*ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢*ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ*ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò*ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ+ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿB+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò+ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC put z :ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  z := " ";ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò,ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR p;ÿÿÿÿÿÿÿÿÿ"-ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR-ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚-ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’-ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ-ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB.ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR.ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢.ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ.ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò.ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"/ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB/ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  bufferÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿr/ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’/ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ font convertor 9ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 'ÿÿÿÿÿÿÿN PACKET font convertor                             (* Autor : Rudolf Ruland *) N                                                   (* Stand : 29.03.88      *)ÿ.         DEFINES create font table ,ÿÿÿÿÿÿÿÿÿÿÿ                 add fonts,ÿÿÿÿ.                 create font file :ÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> *******************************************************      a ypos :=  top margin;ÿÿÿ>      aktuelle zeilentiefe der letzten zeile := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.      left margin     INCR (limit + luecke);ÿÿÿ      aktuelle spalte INCR 1;ÿÿ END PROC neue spalte ;ÿÿÿÿÿÿÿÿ. BOOL PROC proc oder op (TEXT CONST symbol) :ÿÿ.   symbol = "PROC" OR symbol = "PROCEDURE"ÿÿÿÿÿ.     OR symbol = "OP" OR symbol = "OPERATOR" ÿÿ ENDPROC proc oder op ;ÿÿÿÿÿÿÿÿ> PROC layout (TEXT CONST pre, TEXT VAR name, TEXT CONST post) :> name := subtext (name, 1, layout laenge name) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> elan text :=  text (zeilen nr, zeilen nr laenge);ÿÿÿÿÿÿÿÿÿÿÿÿÿ elan text CAT pre;ÿÿÿÿÿÿÿÿÿÿÿÿ elan text CAT name;ÿÿÿÿÿÿÿÿÿÿÿ elan text CAT " ";ÿÿÿÿÿÿÿÿÿÿÿÿ. generiere strukturiertes layout;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. . generiere strukturiertes layout :ÿÿÿÿÿÿÿÿÿÿÿ     INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿÿ>     FOR index FROM 1 UPTO layout laenge - LENGTH elan text - 1.         REP elan text CAT post PER;ÿÿÿÿÿÿÿÿÿÿÿ END PROC layout ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC elan text cat blanks (INT CONST anzahl) :   par2 := anzahl * " ";ÿÿÿÿÿÿÿ   elan text CAT par2;ÿÿÿÿÿÿÿÿÿ END PROC elan text cat blanks;N (***********************************************************************)ÿÿÿÿÿ> PROC analysiere zeile (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿÿÿÿ^     INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ loesche analysespeicher;ÿÿÿÿÿÿ behandle fuehrende blanks;ÿÿÿÿ pruefe ob markierung links;ÿÿÿ IF   tabellen modusÿÿÿÿÿÿÿÿÿÿÿ.      THEN analysiere tabellenzeileÿÿÿÿÿÿÿÿÿÿÿÿ. ELIF letzte zeile war absatzzeile ÿÿÿÿÿÿÿÿÿÿÿÿ.      THEN analysiere zeile nach absatzzeile ÿÿ.      ELSE analysiere zeile nach blockzeileÿÿÿÿ pruefe center und right modus; pruefe ob tabulation vorliegt; werte indexspeicher aus;ÿÿÿÿÿÿ. IF zeile ist keine anweisungszeile  ÿÿÿÿÿÿÿÿÿÿ.    THEN berechne zeilenvorschub;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         pruefe ob markierung rechts;ÿÿÿÿÿÿÿÿÿÿ.    ELSE behandle anweisungszeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   analysiere zeile nach absatzzeile :ÿÿÿÿÿÿÿÿÿ     test auf aufzaehlung;ÿÿÿÿÿ.     IF zeile muss geblockt werden ÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN analysiere blockzeile nach absatzzeile ÿÿÿÿÿÿÿÿÿÿÿ>        ELSE analysiere absatzzeile nach absatzzeile ÿÿÿÿÿÿÿÿÿÿ.   analysiere zeile nach blockzeile :ÿÿÿÿÿÿÿÿÿÿ.     IF zeile muss geblockt werden ÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN analysiere blockzeile nach blockzeile ÿÿÿÿÿÿÿÿÿÿÿÿ>        ELSE analysiere absatzzeile nach blockzeileÿÿÿÿÿÿÿÿÿÿÿÿ   behandle fuehrende blanks :ÿ     zeilenpos := 1;ÿÿÿÿÿÿÿÿÿÿÿ>     zeilenpos := naechstes nicht blankes zeichen; ÿÿÿÿÿÿÿÿÿÿÿÿ>     letzte zeile war absatzzeile := zeile ist absatzzeile; ÿÿÿ>     IF letzte zeile war absatzzeile THEN neue einrueckung FI;ÿ     IF zeilenpos = 0ÿÿÿÿÿÿÿÿÿÿ.        THEN behandle leerzeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             LEAVE analysiere zeile;ÿÿÿÿÿÿÿÿÿÿÿ.        ELSE initialisiere analyse;ÿÿÿÿÿÿÿÿÿÿÿÿ     . behandle leerzeile :ÿÿÿÿ.         a ypos INCR (letzte zeilenhoehe +ÿÿÿÿÿ^                          aktuelle zeilentiefe der letzten zeile + durchschuss);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN         aktuelle zeilentiefe der letzten zeile := letzte zeilentiefe;ÿÿÿÿÿÿÿÿÿ>         zeile ist absatzzeile := LENGTH zeile > 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.         pruefe ob markierung links;ÿÿÿÿÿÿÿÿÿÿÿ.         pruefe ob markierung rechts;ÿÿÿÿÿÿÿÿÿÿ     . neue einrueckung :ÿÿÿÿÿÿ>         aktuelle einrueckbreite := einrueckbreite;ÿÿÿÿÿÿÿÿÿÿÿÿ     . initialisiere analyse :ÿN         zeile ist absatzzeile        := (zeile SUB LENGTH zeile) = blank;ÿÿÿÿÿ^         zeile muss geblockt werden   := block modus AND NOT zeile ist absatzzeile;ÿÿÿÿÿÿÿÿÿÿÿÿ>         erstes token der zeile       := token index f + 1;ÿÿÿÿ>         zeilen laenge                := laenge der zeile;ÿÿÿÿÿ>         anzahl einrueck blanks       := zeilen pos - 1; ÿÿÿÿÿÿN         anzahl zeichen               := anzahl einrueck blanks;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿn         a xpos                       := left margin + anzahl zeichen * aktuelle einrueckbreite; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         a modifikationen fuer x move := 0;ÿÿÿÿ>         letzter font                 := a font;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         letzte modifikationen        := a modifikationen;ÿÿÿÿÿ.         fuehrende anweisungen        := 0;ÿÿÿÿ.         initialisiere zeilenvorschub;ÿÿÿÿÿÿÿÿÿN         IF zeile muss geblockt werden THEN initialisiere tab variablen FI;ÿÿÿÿN         IF hoechster index zaehler > 0 THEN loesche index speicher FI;ÿÿÿÿÿÿÿÿ         . laenge der zeile :ÿÿ.             IF zeile ist absatzzeileÿÿÿÿÿÿÿÿÿÿ.                THEN LENGTH zeile - 1ÿÿÿÿÿÿÿÿÿÿ.                ELSE LENGTH zeile ÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI   pruefe ob markierung links :.     INT VAR linkes markierungs token;ÿÿÿÿÿÿÿÿÿ     IF markierung linksÿÿÿÿÿÿÿ>        THEN mark token (mark index l). xpos := ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                              left margin - mark token (mark index l). breite;ÿ>             linkes markierungs token := token index f + 1;ÿÿÿÿ>             lege markierungs token an (mark index l);ÿÿÿÿÿÿÿÿÿ>             erstes token der zeile := token index f + 1;ÿÿÿÿÿÿ.             initialisiere tab variablen;ÿÿÿÿÿÿ.        ELSE linkes markierungs token := 0;ÿÿÿÿ   analysiere tabellenzeile : ÿ.     anfangs blankmodus := doppel blank;ÿÿÿÿÿÿÿ.     alte zeilenpos     := zeilen pos;ÿÿÿÿÿÿÿÿÿ.     a xpos             := left margin;ÿÿÿÿÿÿÿÿ.     FOR tab index FROM 1 UPTO anzahl tabsÿÿÿÿÿ.     REP lege fuell token an wenn noetig;ÿÿÿÿÿÿ.         initialisiere tab variablen; ÿÿÿÿÿÿÿÿÿ         SELECT tab typ OFÿÿÿÿÿ.           CASE a lpos  :  linksbuendige spalte>           CASE a rpos  :  rechtsbuendige spalteÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.           CASE a cpos  :  zentrierte spalteÿÿÿ.           CASE a dpos  :  dezimale spalteÿÿÿÿÿ.           CASE a bpos  :  geblockte spalteÿÿÿÿ         END SELECT;ÿÿÿÿÿÿÿÿÿÿÿ.         berechne fuell token wenn noetig;ÿÿÿÿÿ         tabulation;ÿÿÿÿÿÿÿÿÿÿÿ     analysiere rest der zeile;.     . lege fuell token an wenn noetig :ÿÿÿÿÿÿÿ         IF fill char <> blankÿ>            THEN fuellzeichen                 := fill char;ÿÿÿÿN                 fuellzeichen breite          := string breite (fuellzeichen);ÿ>                 token zeiger                 := zeilen pos;ÿÿÿN                 erstes fuell token           := token index f + 1;ÿÿÿÿÿÿÿÿÿÿÿÿ^                 lege token an (zeile, token zeiger, zeilen pos - 1, text token);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 letztes fuell token          := token index f;N                 a modifikationen fuer x move := a modifikationenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . berechne fuell token wenn noetig :ÿÿÿÿÿÿ.         IF erstes fuell token <> leerÿÿÿÿÿÿÿÿÿ>            THEN IF letztes fuell token <> token index f ÿÿÿÿÿÿ.                    THEN berechne fuell token;ÿ.                    ELSE loesche letzte token;ÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.                 erstes fuell token := leerÿÿÿÿ.         . berechne fuell token :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             INT VAR anzahl fuellzeichen, fuell breite;ÿÿÿÿÿÿÿÿ>             token index         := erstes fuell token;ÿÿÿÿÿÿÿÿN             anzahl fuellzeichen := (tab anfang - t. xpos + left margin) ÿÿÿÿÿÿN                                                  DIV fuellzeichen breite;ÿÿÿÿÿN             rest                := (tab anfang - t. xpos + left margin) ÿÿÿÿÿÿN                                                  MOD fuellzeichen breite;ÿÿÿÿÿ.             IF anzahl fuell zeichen > 0ÿÿÿÿÿÿÿN                THEN fuell text   := anzahl fuellzeichen * fuellzeichen; ÿÿÿÿÿÿ^                     fuell breite := anzahl fuellzeichen * fuellzeichen breite; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                     FOR token index FROM erstes fuell token UPTO letztes fuell tokenÿÿÿÿÿÿÿÿÿÿ>                     REP t. text   := fuell tex********** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT CONST int length  := length of one int,ÿÿÿ.           highest bit := int length * 8 - 1;ÿÿ . length of one int :ÿÿÿÿÿÿÿÿÿ>     INT VAR int counter := 0, int value := max int;ÿÿÿÿÿÿÿÿÿÿÿ     REP int counter INCR 1;ÿÿÿ.         int value   := int value DIV 256;ÿÿÿÿÿ     UNTIL int value = 0 PER;ÿÿ     int counterÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^ (* >>> ***************************************************************** <<< *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LET t tag                         =  1,ÿÿÿÿÿÿÿ.     t bold                        =  2,ÿÿÿÿÿÿÿ.     t number                      =  3,ÿÿÿÿÿÿÿ.     t text                        =  4,ÿÿÿÿÿÿÿ.     t operator                    =  5,ÿÿÿÿÿÿÿ.     t delimiter                   =  6,ÿÿÿÿÿÿÿ.     t end of file                 =  7,ÿÿÿÿÿÿÿ.     nil modus                     =  0,ÿÿÿÿÿÿÿ.     font table modus              =  1,ÿÿÿÿÿÿÿ.     font modus                    =  2,ÿÿÿÿÿÿÿ.     extension modus               =  3,ÿÿÿÿÿÿÿ.     x unit                        =  1,ÿÿÿÿÿÿÿ.     y unit                        =  2,ÿÿÿÿÿÿÿ.     on string                     =  3,ÿÿÿÿÿÿÿ.     off string                    =  4,ÿÿÿÿÿÿÿ.     indentation pitch             =  5,ÿÿÿÿÿÿÿ.     font lead                     =  6,ÿÿÿÿÿÿÿ.     font height                   =  7,ÿÿÿÿÿÿÿ.     font depth                    =  8,ÿÿÿÿÿÿÿ.     larger font                   =  9,ÿÿÿÿÿÿÿ.     smaller font                  = 10,ÿÿÿÿÿÿÿ.     font string                   = 11,ÿÿÿÿÿÿÿ.     y off sets                    = 12,ÿÿÿÿÿÿÿ.     bold off set                  = 13;ÿÿÿÿÿÿÿN THESAURUS VAR names, english identification := empty thesaurus,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                      german  identification := empty thesaurus;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. insert (english identification, "xunit");ÿÿÿÿÿ. insert (english identification, "yunit");ÿÿÿÿÿ. insert (english identification, "onstring");ÿÿ. insert (english identification, "offstring");ÿ> insert (english identification, "indentationpitch");ÿÿÿÿÿÿÿÿÿÿ. insert (english identification, "fontlead");ÿÿ. insert (english identification, "fontheight");. insert (english identification, "fontdepth");ÿ> insert (english identification, "nextlargerfont");ÿÿÿÿÿÿÿÿÿÿÿÿ> insert (english identification, "nextsmallerfont");ÿÿÿÿÿÿÿÿÿÿÿ. insert (english identification, "fontstring");. insert (english identification, "yoffsets");ÿÿ. insert (english identification, "boldoffset");. insert (german identification, "xeinheit");ÿÿÿ. insert (german identification, "yeinheit");ÿÿÿ. insert (german identification, "onsequenz");ÿÿ. insert (german identification, "offsequenz");ÿ> insert (german identification, "einrueckbreite");ÿÿÿÿÿÿÿÿÿÿÿÿÿ. insert (german identification, "durchschuss");. insert (german identification, "fonthoehe");ÿÿ. insert (german identification, "fonttiefe");ÿÿ> insert (german identification, "groessererfont");ÿÿÿÿÿÿÿÿÿÿÿÿÿ> insert (german identification, "kleinererfont");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. insert (german identification, "fontsequenz");> insert (german identification, "yverschiebungen");ÿÿÿÿÿÿÿÿÿÿÿÿ> insert (german identification, "boldverschiebung");ÿÿÿÿÿÿÿÿÿÿÿ> INT VAR modus, last modus, symbol type, int symbol, pitch,ÿÿÿÿ>         identification nr, link nr, extension code 1,ÿÿÿÿÿÿÿÿÿ>         char code 1, char code, char pos, vorzeichen,ÿÿÿÿÿÿÿÿÿ.         replacements length, index;ÿÿÿÿÿÿÿÿÿÿÿN TEXT VAR symbol, font table name, replacement, char, buffer, z;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL VAR english;ÿÿÿÿÿÿÿÿÿÿÿÿÿ FILE VAR file, font file;ÿÿÿÿÿN (*****************************************************************) ÿÿÿÿÿÿÿÿÿÿ LET max fonts       = 50,ÿÿÿÿÿ     max extensions  = 120, ÿÿÿ     font table type = 3009,ÿÿÿ     FONTTABLE = STRUCT (ÿÿÿÿÿÿ         THESAURUS font names, .         TEXT replacements, font name links,ÿÿÿ>              extension chars, extension indexes, ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         ROW 4 TEXT on strings, off strings,ÿÿÿ         REAL x unit, y unit,ÿÿ.         ROW 256 INT replacements table,ÿÿÿÿÿÿÿ.         INT last font, last extension,ÿÿÿÿÿÿÿÿ         ROW max fonts STRUCT (>             TEXT font string, font name indexes, replacements,N                  extension chars, extension indexes, y offsets,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             ROW 256 INT pitch table, replacements table,ÿÿÿÿÿÿN             INT  indentation pitch, font lead, font height, font depth,ÿÿÿÿÿÿÿN                  next larger font, next smaller font, bold offset ) fonts ,ÿÿÿ.         ROW max extensions STRUCT (ÿÿÿÿÿÿÿÿÿÿÿ             TEXT replacements,>             ROW 256 INT pitch table, replacements table,ÿÿÿÿÿÿ^             INT std pitch                                        ) extensions ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                         );ÿÿÿÿ. BOUND FONTTABLE VAR font table;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ DATASPACE VAR ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿ INT VAR font nr, extension nr;. . font      : font table. fonts (font nr)ÿÿÿÿÿ> . extension : font table. extensions (extension nr)ÿÿÿÿÿÿÿÿÿÿÿ. . line nr   : line no (file) - 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (*****************************************************************) ÿÿÿÿÿÿÿÿÿÿ PROC create font table :ÿÿÿÿÿÿ.      create font table  (last param)ÿÿÿÿÿÿÿÿÿÿ END PROC create font table;ÿÿÿ> PROC create font table (TEXT CONST font file name) :ÿÿÿÿÿÿÿÿÿÿ> file := sequential file (input, font file name);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ds    := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿ modus := nil modus;ÿÿÿÿÿÿÿÿÿÿÿ. IF is error THEN error (errormessage) FI;ÿÿÿÿÿ END PROC create font table;ÿÿÿ> PROC add fonts (TEXT CONST font tab name, font file name) :ÿÿÿ> file := sequential file (input, font file name);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. font table name := font tab name;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. change all (font table name, " ", "");ÿÿÿÿÿÿÿÿ^ IF NOT exists (font table name) COR type (old (font table name)) <> font table typeÿÿÿÿÿÿÿÿÿÿÿN    THEN errorstop ("Fonttabelle """ + font table name + """ gibt es nicht")ÿÿÿ. ds           := old (font table name);ÿÿÿÿÿÿÿÿ fonttable    := ds;ÿÿÿÿÿÿÿÿÿÿÿ modus        := font modus;ÿÿÿ. font nr      := fonttable. last font;ÿÿÿÿÿÿÿÿÿ. extension nr := fonttable. last extension;ÿÿÿÿ. IF is error THEN error (errormessage) FI;ÿÿÿÿÿ END PROC add fonts;ÿÿÿÿÿÿÿÿÿÿÿ initialize loading;ÿÿÿÿÿÿÿÿÿÿÿ REP get kennung; ÿÿÿÿÿÿÿÿÿÿÿÿÿ     get identification;ÿÿÿÿÿÿÿ     get char specifications;ÿÿ. UNTIL symbol type >= t end of file PER;ÿÿÿÿÿÿÿ font table found;ÿÿÿÿÿÿÿÿÿÿÿÿÿ . initialize loading :ÿÿÿÿÿÿÿÿ     scan (file);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     get next symbol;ÿÿÿÿÿÿÿÿÿÿ . font table found :ÿÿÿÿÿÿÿÿÿÿ     IF font nr = 0ÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN errorstop ("Fonts zur Fonttabelle """ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                         + font table name + """ fehlen"); ÿÿÿÿ>        ELSE font table. last font      := font nr; ÿÿÿÿÿÿÿÿÿÿÿ>             font table. last extension := extension nr; ÿÿÿÿÿÿ.             forget (font table name, quiet);ÿÿ.             copy (ds, font table name);ÿÿÿÿÿÿÿ>             type (old (font table name), font table type);ÿÿÿÿ.             forget (ds); ds := nilspace;ÿÿÿÿÿÿ . get next symbol :ÿÿÿÿÿÿÿÿÿÿÿ.     next symbol (file, symbol, symbol type);ÿÿ . get semicolon :ÿÿÿÿÿÿÿÿÿÿÿÿÿ     get next symbol;ÿÿÿÿÿÿÿÿÿÿ>     IF symbol <> ";" OR symbol type <> t delimiter ÿÿÿÿÿÿÿÿÿÿÿ.        THEN errorstop ("';' erwartet") FI;ÿÿÿÿ   get kennung :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     cout (line nr);ÿÿÿÿÿÿÿÿÿÿÿ     IF symbol type <> t bold ÿ.        THEN errorstop ("Kennung erwartet") FI;>     IF   symbol = "FONTTABLE" OR symbol = "FONTTABELLE" ÿÿÿÿÿÿ.       THEN initialize font table;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.            get font table name;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELIF symbol = "FONT"ÿÿÿÿÿÿ       THEN initialize font;ÿÿÿ            get font names;ÿÿÿÿ>     ELIF symbol = "EXTENSION" t;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                         t. breite := fuell breite;ÿÿÿÿÿÿÿÿÿÿÿÿN                         IF erstes fuell token <> erstes token der zeileÿÿÿÿÿÿÿ>                            THEN t. xpos INCR rest DIV 2;ÿÿÿÿÿÿ^                                 t. modifikationen fuer x move := t. modifikationen;ÿÿÿÿÿÿÿÿÿÿÿ                         FI;ÿÿÿ                     PER;ÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             . fuell text : par1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . loesche letzte token :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             FOR token index FROM letztes fuell token DOWNTO erstes fuell token.             REP loesche letztes token PER;ÿÿÿÿ     . tabulation :ÿÿÿÿÿÿÿÿÿÿÿÿ.         alte zeilenpos := zeilenpos;ÿÿÿÿÿÿÿÿÿÿ>         zeilenpos := naechstes nicht blankes zeichen; ÿÿÿÿÿÿÿÿ         IF zeilenpos = 0ÿÿÿÿÿÿ>            THEN zeilenpos := zeilenlaenge + 1; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 LEAVE analysiere tabellenzeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         anzahl zeichen INCR zeilenpos - alte zeilenpos; ÿÿÿÿÿÿ     . linksbuendige spalte : ÿ>         a xpos     := left margin + tab position;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         tab anfang := tab position;ÿÿÿÿÿÿÿÿÿÿÿ>         bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ     . rechtsbuendige spalte :ÿ>         bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ>         schreibe zeile rechtsbuendig (tab position);ÿÿÿÿÿÿÿÿÿÿ     . zentrierte spalte :ÿÿÿÿÿ>         bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ.         zentriere zeile (tab position);ÿÿÿÿÿÿÿ     . dezimale spalte :ÿÿÿÿÿÿÿN         d string                  := name (d strings, tab param);ÿÿÿÿÿÿÿÿÿÿÿÿÿN         d code 1                  := code (d string SUB 1) + 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN         d pitch                   := zeichenbreiten (d code 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         zeichenbreiten (d code 1) := d code ausgang;ÿÿÿÿÿÿÿÿÿÿ>         bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ.         zeichenbreiten (d code 1) := d pitch;ÿ.         d code 1                  := leer;ÿÿÿÿ>         schreibe zeile rechtsbuendig (tab position);ÿÿÿÿÿÿÿÿÿÿ.         IF zeichen ist dezimal zeichenÿÿÿÿÿÿÿÿ>            THEN IF tab position <> zeilen breiteÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                    THEN a xpos     := left margin + tab position;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                         tab anfang := tab position;ÿÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ>                 bestimme token bis terminator oder zeilenendeÿ.                 (PROC (INT CONST, TEXT VAR,ÿÿÿ^                  INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿ.         . zeichen ist dezimal zeichen :ÿÿÿÿÿÿÿ>             pos (zeile, d string,  zeilen pos) = zeilen posÿÿÿ     . geblockte spalte :ÿÿÿÿÿÿ.         blankmodus := einfach blank;ÿÿÿÿÿÿÿÿÿÿ>         a xpos     := left margin + tab position;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         tab anfang := tab position;ÿÿÿÿÿÿÿÿÿÿÿ>         REP bestimme token bis terminator oder zeilenendeÿÿÿÿÿ.              (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿ^               INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿN             IF zeile ist zu ende OR naechstes zeichen ist blankÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                THEN blocke spalte wenn noetig;.                     LEAVE geblockte spalte;ÿÿÿ.                ELSE dehnbares blank gefunden;ÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . blocke spalte wenn noetig :ÿÿÿÿÿÿÿÿÿ>             IF letztes zeichen ist kein geschuetztes blankÿÿÿÿ>                THEN blocke zeile (tab param) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             blank modus := doppel blank;ÿÿÿÿÿÿ>         . letztes zeichen ist kein geschuetztes blank :ÿÿÿÿÿÿÿ^             pos (zeile, geschuetztes blank,  zeilen pos - 1, zeilen pos - 1) = 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>               AND NOT within kanji (zeile, zeilen pos - 2)ÿÿÿÿ.     . analysiere rest der zeile :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         blankmodus := keine blankanalyse;ÿÿÿÿÿ.         zeilen pos := alte zeilenpos;ÿÿÿÿÿÿÿÿÿ>         bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ   test auf aufzaehlung : ÿÿÿÿÿ.     anfangs blankmodus := einfach blank;ÿÿÿÿÿÿ>     bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿÿÿÿÿ.       (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿÿÿÿ^        INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿÿÿÿÿ     IF zeile ist zu endeÿÿÿÿÿÿ>        THEN LEAVE analysiere zeile nach absatzzeileÿÿÿÿÿÿÿÿÿÿÿ.        ELSE aufzaehlung moeglichÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . aufzaehlung moeglich :ÿÿ.         bestimme letztes zeichen;ÿÿÿÿÿÿÿÿÿÿÿÿÿN         IF    (anzahl zeichen bei aufzaehlung < 2  AND letztes zeichen = "-")ÿN            OR (anzahl zeichen bei aufzaehlung < 20 AND letztes zeichen = ":")ÿ>            OR (anzahl zeichen bei aufzaehlung < 7ÿÿÿÿÿÿÿÿÿÿÿÿÿN                                         AND pos (".)", letztes zeichen) <> 0)ÿ.            OR naechstes zeichen ist blankÿÿÿÿÿ.           THEN tabulator position gefunden;ÿÿÿ.         ELIF zeile muss geblockt werdenÿÿÿÿÿÿÿ.           THEN dehnbares blank gefunden;ÿÿÿÿÿÿ.         . bestimme letztes zeichen : ÿÿÿÿÿÿÿÿÿ.             token index := token index f;ÿÿÿÿÿ>             WHILE token index >= erstes token der zeileÿÿÿÿÿÿÿ.             REP IF token ist text token ÿÿÿÿÿÿN                    THEN letztes zeichen := t. text SUB LENGTH t. text;ÿÿÿÿÿÿÿÿ>                         LEAVE bestimme letztes zeichen;ÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.                 token index DECR 1;ÿÿÿÿÿÿÿÿÿÿÿ             PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             letztes zeichen := "";ÿÿÿÿÿÿÿÿÿÿÿÿ.         . letztes zeichen : par1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . anzahl zeichen bei aufzaehlung :ÿÿÿÿ>             anzahl zeichen - anzahl einrueck blanksÿÿÿÿÿÿÿÿÿÿÿ.         . token ist text token :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             t. offset index >= text tokenÿÿÿÿÿ.   analysiere blockzeile nach absatzzeile :ÿÿÿÿ>     REP bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ         IF zeile ist zu ende ÿ.            THEN blocke zeile (limit);ÿÿÿÿÿÿÿÿÿ>                 LEAVE analysiere blockzeile nach absatzzeileÿÿN            ELSE analysiere blank in blockzeile nach absatzzeile ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     . analysiere blank in blockzeile nach absatzzeile : ÿÿÿÿÿÿ.         IF naechstes zeichen ist blankÿÿÿÿÿÿÿÿ.            THEN tabulator position gefunden;ÿÿ.            ELSE dehnbares blank gefunden;ÿÿÿÿÿ.   analysiere absatzzeile nach absatzzeile :ÿÿÿ.     blankmodus := doppel blank;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     REP bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ         IF zeile ist zu ende ÿ>            THEN LEAVE analysiere absatzzeile nach absatzzeileÿ.            ELSE tabulator position gefundenÿÿÿ.   analysiere blockzeile nach blockzeile :ÿÿÿÿÿOR symbol = "ERWEITERUNG" ÿÿÿÿÿÿ       THEN get extension char;.            initialize extension;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELIF modus = nil modusÿÿÿÿ^       THEN errorstop ("Kennung 'FONTTABLE' oder 'FONTTABELLE' zu Beginn der Datei erwartet") ÿ.       ELSE errorstop ("unzulaessige Kennung")ÿ     . initialize font table :ÿ>         IF modus <> nil modus THEN font table found FI;ÿÿÿÿÿÿÿ>         modus                          := font table modus;ÿÿÿ.         font nr                        := 0;ÿÿ.         extension nr                   := 0;ÿÿ.         font table                     := ds;ÿ>         font table. font names         := empty thesaurus; ÿÿÿ.         font table. replacements       := "";ÿ.         font table. font name links    := "";ÿ.         font table. extension chars    := "";ÿ.         font table. extension indexes  := ""; >         font table. x unit             := 10.0/2.54;ÿÿÿÿÿÿÿÿÿÿ>         font table. y unit             :=  6.0/2.54;ÿÿÿÿÿÿÿÿÿÿ.         font table. replacements table := 0;ÿÿ.         FOR index FROM 1 UPTO 4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         REP font table. on  strings (index) := "";ÿÿÿÿÿÿÿÿÿÿÿÿ>             font table. off strings (index) := "";ÿÿÿÿÿÿÿÿÿÿÿÿ     . get font table name :ÿÿÿ         get name list;ÿÿÿÿÿÿÿÿ         symbol type := t text;.         symbol      := name (names, 1);ÿÿÿÿÿÿÿ         IF exists (symbol)ÿÿÿÿ.            THEN  forget (symbol);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                  IF exists (symbol)ÿÿÿÿÿÿÿÿÿÿÿN                     THEN errorstop ("Fonttabelle existiert schon") FI;ÿÿÿÿÿÿÿÿ.         font table name := symbol;ÿÿÿÿÿÿÿÿÿÿÿÿ     . initialize font :ÿÿÿÿÿÿÿ         IF font nr = max fonts>            THEN errorstop ("zu viele Fonts") FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         font nr INCR 1;ÿÿÿÿÿÿÿ>         modus                    := font modus;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN         replacements length      := LENGTH font table. replacements; ÿÿÿÿÿÿÿÿÿ.         font. font string        := "";ÿÿÿÿÿÿÿ.         font. font name indexes  := "";ÿÿÿÿÿÿÿ.         font. replacements       := "";ÿÿÿÿÿÿÿ.         font. extension chars    := "";ÿÿÿÿÿÿÿ.         font. extension indexes  := "";ÿÿÿÿÿÿÿ>         font. y offsets          := int length * ""0"";ÿÿÿÿÿÿÿN         font. indentation pitch  := int (font table. x unit * 2.54 / 10.0);ÿÿÿ.         font. font lead          := 0;ÿÿÿÿÿÿÿÿN         font. font height        := int (font table. y unit * 2.54 / 6.0); ÿÿÿ.         font. font depth         := 0;ÿÿÿÿÿÿÿÿ.         font. next larger  font  := 0;ÿÿÿÿÿÿÿÿ.         font. next smaller font  := 0;ÿÿÿÿÿÿÿÿ.         font. bold offset        := 0;ÿÿÿÿÿÿÿÿ>         font. pitch table        := font. indentation pitch;ÿÿN         font. replacements table := font table. replacements table;ÿÿÿÿÿÿÿÿÿÿÿN         FOR index FROM 1 UPTO LENGTH font table. extension charsÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         REP font. replacements table ÿÿÿÿÿÿÿÿÿN               ( code (font table. extension chars SUB index) + 1 ) := maxint;ÿ     . get font names :ÿÿÿÿÿÿÿÿ         get name list;ÿÿÿÿÿÿÿÿ         index := 0;ÿÿÿÿÿÿÿÿÿÿÿ         symbol type := t text;         WHILE next font nameÿÿ>         REP link nr := link (font table. font names, symbol);ÿ             IF link nr = 0ÿÿÿÿN                THEN insert (font table. font names, symbol, link nr); ÿÿÿÿÿÿÿÿ>                     font table. font name links CAT font nr;ÿÿN             ELIF (font table. font name links ISUB link nr) = 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                THEN replace (font table. font name links, link nr, font nr);ÿÿN                ELSE errorstop ("Font existiert in Fonttabelle """ÿÿÿÿÿÿÿÿÿÿÿÿÿN                                 + font table name + """ schon")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             font. font name indexes CAT link nr;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         . next font name :ÿÿÿÿ.             get (names, symbol, index);ÿÿÿÿÿÿÿ             symbol <> ""ÿÿÿÿÿÿ     . get extension char :ÿÿÿÿ         IF NOT two bytesÿÿÿÿÿÿN            THEN errorstop ("Erweiterungen nur im zwei-Byte-Modus erlaubt") FI;         get name list;ÿÿÿÿÿÿÿÿ         symbol type := t text;.         symbol      := name (names, 1);ÿÿÿÿÿÿÿ         IF LENGTH symbol <> 1 N            THEN errorstop ("nur ein Zeichen bei Erweiterung erlaubt") FI;ÿÿÿÿÿ.         extension code 1 := code (symbol) + 1;.         IF NOT is kanji esc (symbol) ÿÿÿÿÿÿÿÿÿ>            THEN errorstop ("Kanji-ESC-Zeichen erwartet") FI;ÿÿ     . initialize extension :ÿÿ.         IF extension nr = max extensionsÿÿÿÿÿÿ>            THEN errorstop ("zu viele Erweiterungen") FI;ÿÿÿÿÿÿ         extension nr INCR 1;ÿÿN         IF modus <> extension modus THEN last modus := modus FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         modus      := extension modus;ÿÿÿÿÿÿÿÿ.         IF last modus = font table modusÿÿÿÿÿÿ.            THEN initalize font table extension.            ELSE initalize font extensionÿÿÿÿÿÿ.         . initalize font table extension :ÿÿÿÿ>             IF pos (font table. extension chars, symbol) <> 0ÿN                THEN errorstop ("Erweiterung wurde schon definiert") FI;ÿÿÿÿÿÿÿ>             extension. replacements        := "";ÿÿÿÿÿÿÿÿÿÿÿÿÿ>             extension. std pitch           := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             extension. pitch table         := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             extension. replacements table  := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             font table. extension chars   CAT symbol;ÿÿÿÿÿÿÿÿÿ>             font table. extension indexes CAT extension nr;ÿÿÿN             font table. replacements table (extension code 1) := max int;ÿÿÿÿÿ>             replacements length            := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . initalize font extension :ÿÿÿÿÿÿÿÿÿÿ>             IF pos (font. extension chars, symbol) <> 0ÿÿÿÿÿÿÿN                THEN errorstop ("Erweiterung wurde schon definiert") FI;ÿÿÿÿÿÿÿ.             extension. replacements   := "";ÿÿ^             extension. std pitch      := font. pitch table (extension code 1) XOR (-maxint-1);>             extension. pitch table    := extension. std pitch;>             font. extension chars    CAT symbol;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             font. extension indexes  CAT extension nr;ÿÿÿÿÿÿÿÿN             char pos := pos (font table. extension chars, symbol);ÿÿÿÿÿÿÿÿÿÿÿÿ             IF char pos <> 0ÿÿN                THEN index := font table. extension indexes ISUB char pos;ÿÿÿÿÿ>                     extension. replacements table := ÿÿÿÿÿÿÿÿÿN                           font table. extensions (index). replacements table;ÿ>                     replacements length           :=ÿÿÿÿÿÿÿÿÿÿN                    LENGTH font table. extensions (index). replacements; ÿÿÿÿÿÿN                     font. replacements table (extension code 1) := max int;ÿÿÿ>                ELSE extension. replacements table := 0;ÿÿÿÿÿÿÿ>                     replacements length           := 0;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   get identification :ÿÿÿÿÿÿÿÿ     WHILE identification found     REP cout (line nr);ÿÿÿÿÿÿÿ.         determine identification link nr;ÿÿÿÿÿ         select identification;     . identification found :ÿÿ         get next symbol; ÿÿÿÿÿ         symbol type = t tagÿÿÿ.     . determine identification link nr :ÿÿÿÿÿÿN         identification nr := link (english identification, symbol); ÿÿÿÿÿÿÿÿÿÿ         english := TRUE;ÿÿÿÿÿÿ.         IF identification nr = 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN            THEN identification nr := link (german identification, symbol); ÿÿÿ.                 english := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                 IF identification nr = 0ÿÿÿÿÿÿN                    THEN errorstop ("unzulaesige Identifikation") FI;ÿÿÿÿÿÿÿÿÿÿ     . select identification :ÿ         get next symbol;ÿÿÿÿÿÿ>         IF symbol <> "=" OR symbol type <> t o.     anfangs blankmodus := einfach blank;ÿÿÿÿÿÿ>     REP bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿ.           (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^            INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿ         IF zeile ist zu ende ÿ.            THEN blocke zeile (limit);ÿÿÿÿÿÿÿÿÿ>                 LEAVE analysiere blockzeile nach blockzeileÿÿÿ.            ELSE dehnbares blank gefunden ÿÿÿÿÿ.   analysiere absatzzeile nach blockzeile :ÿÿÿÿ.     anfangs blankmodus := keine blankanalyse;ÿ>     bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿÿÿÿÿ.       (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿÿÿÿ^        INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿÿÿÿÿ   dehnbares blank gefunden :ÿÿ     anzahl zeichen INCR 1;ÿÿÿÿ     zeilenpos      INCR 1;ÿÿÿÿ.     a xpos         INCR blankbreite;ÿÿÿÿÿÿÿÿÿÿ>     a modifikationen fuer x move := a modifikationen;ÿÿÿÿÿÿÿÿÿ     IF NOT a block tokenÿÿÿÿÿÿ.        THEN anzahl blanks  INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿ.             a block token := TRUE; ÿÿÿÿÿÿÿÿÿÿÿ.   tabulator position gefunden :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     alte zeilenpos := zeilenpos; ÿÿÿÿÿÿÿÿÿÿÿÿÿ>     zeilenpos := naechstes nicht blankes zeichen;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF zeilenpos = 0 ÿÿÿÿÿÿÿÿÿ.        THEN zeilenpos := zeilen laenge + 1;ÿÿÿ>        ELSE IF erstes token der zeile > token index fÿÿÿÿÿÿÿÿÿ>                THEN token zeiger := zeilen pos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                     lege token an (zeile, token zeiger, zeilen pos - 1, text token);ÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             anzahl zeichen INCR (zeilenpos - alte zeilenpos);ÿN             a xpos := left margin + anzahl zeichen * aktuelle einrueckbreite; >             a modifikationen fuer x move := a modifikationen;ÿN             IF zeile muss geblockt werden THEN initialisiere tab variablen FI;.   pruefe center und right modus : ÿÿÿÿÿÿÿÿÿÿÿÿ>     IF center modus THEN zentriere zeile (limit DIV 2) FI;ÿÿÿÿN     IF right  modus THEN schreibe zeile rechtsbuendig (limit) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   pruefe ob tabulation vorliegt:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     IF analyse speicher ist nicht leer CAND a xpos > tf. xpos + tf. breiteÿÿÿÿ>        THEN a modifikationen fuer x move := a modifikationen; .             token zeiger := zeilen pos;ÿÿÿÿÿÿÿN             lege token an (zeile, token zeiger, zeilen pos - 1, text token);ÿÿ   werte indexspeicher aus :ÿÿÿ     INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿÿ     IF index zaehler > 0ÿÿÿÿÿÿ>        THEN FOR index FROM index zaehler DOWNTO 1ÿÿÿÿÿÿÿÿÿÿÿÿÿN                 REP a ypos DECR (index verschiebung ISUB index);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                     IF (letzte index breite ISUB index) <> 0ÿÿN                        THEN a xpos := (xpos vor index ISUB index) +ÿÿÿÿÿÿÿÿÿÿÿ^                                       min (a xpos - (xpos vor index ISUB index),ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                                                 letzte index breite ISUB index);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ                 PER;ÿÿÿÿÿÿÿÿÿÿ>             stelle neuen font ein (grosse fonts ISUB 1);ÿÿÿÿÿÿ.   zeile ist keine anweisungszeile :ÿÿÿÿÿÿÿÿÿÿÿ.     fuehrende anweisungen  <> zeilen laengeÿÿÿ   berechne zeilenvorschub :ÿÿÿ.     verschiebung := aktuelle zeilenhoehe +ÿÿÿÿN                         aktuelle zeilentiefe der letzten zeile + durchschuss;ÿN     aktuelle zeilentiefe der letzten zeile := aktuelle zeilentiefe;ÿÿÿÿÿÿÿÿÿÿÿ     a ypos INCR verschiebung;ÿ.     verschiebe token ypos (verschiebung);ÿÿÿÿÿ.   pruefe ob markierung rechts :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF markierung rechtsÿÿÿÿÿÿN        THEN mark token (mark index r). xpos := left margin + limit;ÿÿÿÿÿÿÿÿÿÿÿ>             lege markierungs token an (mark index r);ÿÿÿÿÿÿÿÿÿ   behandle anweisungszeile :ÿÿ.     IF linkes markierungs token > 0ÿÿÿÿÿÿÿÿÿÿÿ>        THEN IF erstes token der zeile = token index f + 1ÿÿÿÿÿ.                THEN loesche analysespeicher;ÿÿN                ELSE FOR token index FROM linkes markierungs tokenÿÿÿÿÿÿÿÿÿÿÿÿÿN                                     UPTO erstes token der zeile - 1ÿÿÿÿÿÿÿÿÿÿÿ.                     REP t. text   := "";ÿÿÿÿÿÿ.                         t. xpos   := 0;ÿÿÿÿÿÿÿ.                         t. breite := 0;ÿÿÿÿÿÿÿ                     PER;ÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC analysiere zeile;ÿÿÿÿ. PROC blocke zeile (INT CONST rechter rand) :ÿÿ. rest := rechter rand - zeilen breite;ÿÿÿÿÿÿÿÿÿ. IF rest > 0 AND anzahl blanks > 0ÿÿÿÿÿÿÿÿÿÿÿÿÿN    THEN INT CONST schmaler schritt       := rest DIV anzahl blanks,ÿÿÿÿÿÿÿÿÿÿÿN                   breiter schritt        := schmaler schritt + 1,ÿÿÿÿÿÿÿÿÿÿÿÿÿN                   anzahl breite schritte := rest MOD anzahl blanks;ÿÿÿÿÿÿÿÿÿÿÿ         IF rechtsÿÿÿÿÿÿÿÿÿÿÿÿÿN            THEN blocke token xpos (breiter schritt, schmaler schritt,ÿÿÿÿÿÿÿÿÿN                                                      anzahl breite schritte);ÿ.                 rechts := FALSE; ÿÿÿÿÿÿÿÿÿÿÿÿÿN            ELSE blocke token xpos (schmaler schritt, breiter schritt,ÿÿÿÿÿÿÿÿÿN                                      anzahl blanks - anzahl breite schritte);ÿ.                 rechts := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN        a xpos INCR ( breiter schritt * anzahl breite schritte +ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN               schmaler schritt * (anzahl blanks - anzahl breite schritte) );ÿÿ END PROC blocke zeile;ÿÿÿÿÿÿÿÿ> PROC zentriere zeile (INT CONST zentrier pos) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. IF erstes tab token <= token index fÿÿÿÿÿÿÿÿÿÿ>    THEN verschiebung := zentrier pos - tab anfang -ÿÿÿÿÿÿÿÿÿÿÿN                                    (zeilen breite - tab anfang) DIV 2; ÿÿÿÿÿÿÿ.         verschiebe token xpos (verschiebung);ÿ.         a xpos     INCR verschiebung; ÿÿÿÿÿÿÿÿ.         tab anfang INCR verschiebung; ÿÿÿÿÿÿÿÿ center modus := FALSE;ÿÿÿÿÿÿÿÿ END PROC zentriere zeile;ÿÿÿÿÿ> PROC schreibe zeile rechtsbuendig (INT CONST rechte pos) :ÿÿÿÿ. IF erstes tab token <= token index fÿÿÿÿÿÿÿÿÿÿ>    THEN verschiebung := rechte pos - zeilen breite;ÿÿÿÿÿÿÿÿÿÿÿ.         verschiebe token xpos (verschiebung);ÿ.         a xpos     INCR verschiebung;ÿÿÿÿÿÿÿÿÿ.         tab anfang INCR verschiebung; ÿÿÿÿÿÿÿÿ right modus := FALSE;ÿÿÿÿÿÿÿÿÿ. END PROC schreibe zeile rechtsbuendig;ÿÿÿÿÿÿÿÿ> PROC bestimme token bis terminator oder zeilenendeÿÿÿÿÿÿÿÿÿÿÿÿ.      (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^             INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator):ÿÿÿÿÿÿÿ token zeiger := zeilen pos;ÿÿÿ> REP stranalyze (zeichenbreiten, a breite, max breite, ÿÿÿÿÿÿÿÿ>                 zeile, zeilen pos, zeilen laenge,ÿÿÿÿÿÿÿÿÿÿÿÿÿ                 ausgang);ÿÿÿÿÿ     zeilen pos INCR 1;ÿÿÿÿÿÿÿÿ.     IF   ausgang = blank ausgangÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          THEN analysiere blank.     ELIF ausgang = anweisungs ausgangÿÿÿÿÿÿÿÿÿ.          THEN anweisung gefundenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     ELIF ausgang = d code ausgangÿÿÿÿÿÿÿÿÿÿÿÿÿ.          THEN analysiere d stringÿÿÿÿÿÿÿÿÿÿÿÿÿ.     ELIF ausgang = erweiterungs ausgangÿÿÿÿÿÿÿ.          THEN erweiterung gefundenÿÿÿÿÿÿÿÿÿÿÿÿ>          ELSE terminator oder zeilenende gefundenÿÿÿÿÿÿÿÿÿÿÿÿÿ . analysiere blank :ÿÿÿÿÿÿÿÿÿÿ.     IF blankmodus = einfach blank ORÿÿÿÿÿÿÿÿÿÿN        (blankmodus = doppel blank AND naechstes zeichen ist blank)ÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN terminator oder zeilenende gefunden ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        ELSE a breite INCR blankbreite;ÿÿÿÿÿÿÿÿ             zeilenpos INCR 1;ÿ . analysiere d string :ÿÿÿÿÿÿÿ>     IF pos (zeile, d string, zeilen pos) = zeilen pos ÿÿÿÿÿÿÿÿ>        THEN terminator oder zeilenende gefunden ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        ELSE IF   d pitch = maxintÿÿÿÿÿÿÿÿÿÿÿÿÿ.                  THEN erweiterung gefundenÿÿÿÿ             ELIF d pitch < 0ÿÿN               peratorÿÿÿÿÿÿÿÿÿN            THEN errorstop ("'=' nach Identifikation fehlt") FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         get next symbol; ÿÿÿÿÿ.         SELECT identification nr OFÿÿÿÿÿÿÿÿÿÿÿ>           CASE x unit            : x unit foundÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE y unit            : y unit foundÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE on string         : on string foundÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE off string        : off string foundÿÿÿÿÿÿÿÿÿÿÿ>           CASE indentation pitch : indentation pitch foundÿÿÿÿ>           CASE font lead         : font lead foundÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE font height       : font height foundÿÿÿÿÿÿÿÿÿÿ>           CASE font depth        : font depth foundÿÿÿÿÿÿÿÿÿÿÿ>           CASE larger font       : larger font foundÿÿÿÿÿÿÿÿÿÿ>           CASE smaller font      : smaller font foundÿÿÿÿÿÿÿÿÿ>           CASE font string       : font string foundÿÿÿÿÿÿÿÿÿÿ>           CASE y offsets         : y offsets foundÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE bold offset       : bold offset foundÿÿÿÿÿÿÿÿÿÿ         END SELECT;ÿÿÿÿÿÿÿÿÿÿÿ     . x unit found :ÿÿÿÿÿÿÿÿÿÿ.         check modus (font table modus);ÿÿÿÿÿÿÿ.         font table. x unit := real (symbol);ÿÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("REAL-Denoter nach 'x unit' erwartet") ÿÿÿÿN                    ELSE errorstop ("REAL-Denoter nach 'x einheit' erwartet")ÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . y unit found :ÿÿÿÿÿÿÿÿÿÿ.         check modus (font table modus);ÿÿÿÿÿÿÿ.         font table. y unit := real (symbol); ÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("REAL-Denoter nach 'y unit' erwartet")ÿÿÿÿÿN                    ELSE errorstop ("REAL-Denoter nach 'y einheit' erwartet")ÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . on string found :ÿÿÿÿÿÿÿ.         check modus (font table modus);ÿÿÿÿÿÿÿ.         FOR index FROM 1 UPTO 4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         REP IF symbol type <> t textÿÿÿÿÿÿÿÿÿÿ                THEN IF english^                        THEN errorstop ("TEXT-Denoter nach 'on string' erwartet") ÿÿÿÿÿÿÿÿÿÿÿÿÿ^                        ELSE errorstop ("TEXT-Denoter nach 'on sequenz' erwartet") ÿÿÿÿÿÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             font table. on strings (index) := symbol;ÿÿÿÿÿÿÿÿÿ             get next symbol;ÿÿ^             IF (symbol <> "," AND symbol <> ";") OR symbol type <> t delimiter ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                THEN errorstop ("',' oder ';' in Liste erwartet") FI;ÿÿÿÿÿÿÿÿÿÿ>             IF symbol = ";" THEN LEAVE on string found FI;ÿÿÿÿ>             IF index = 4 THEN errorstop ("';' erwartet") FI;ÿÿ             get next symbol;ÿÿ     . off string found :ÿÿÿÿÿÿ.         check modus (font table modus);ÿÿÿÿÿÿÿ.         FOR index FROM 1 UPTO 4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         REP IF symbol type <> t textÿÿÿÿÿÿÿÿÿÿ                THEN IF english^                        THEN errorstop ("TEXT-Denoter nach 'off string' erwartet") ÿÿÿÿÿÿÿÿÿÿÿÿ^                        ELSE errorstop ("TEXT-Denoter nach 'off sequenz' erwartet") ÿÿÿÿÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             font table. off strings (index) := symbol;ÿÿÿÿÿÿÿÿ             get next symbol;ÿÿ^             IF (symbol <> "," AND symbol <> ";") OR symbol type <> t delimiter ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                THEN errorstop ("',' oder ';' in Liste erwartet") FI;ÿÿÿÿÿÿÿÿÿÿ>             IF symbol = ";" THEN LEAVE off string found FI;ÿÿÿ>             IF index = 4 THEN errorstop ("';' erwartet") FI;ÿÿ             get next symbol;ÿÿ.     . indentation pitch found :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>         font. indentation pitch := int (symbol);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿ^                    THEN errorstop ("INT-Denoter nach 'indentation pitch' erwartet")ÿÿÿÿÿÿÿÿÿÿÿ^                    ELSE errorstop ("INT-Denoter nach 'einrueckbreite' erwartet")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ>         font. pitch table       := font. indentation pitch;ÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . font lead found :ÿÿÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         font. font lead := int (symbol);ÿÿÿÿÿÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("INT-Denoter nach 'font lead' erwartet")ÿÿÿN                    ELSE errorstop ("INT-Denoter nach 'durchschuss' erwartet")ÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . font height found :ÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         font. font height := int (symbol);ÿÿÿÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("INT-Denoter nach 'font height' erwartet")ÿN                    ELSE errorstop ("INT-Denoter nach 'fonthoehe' erwartet")ÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . font depth found :ÿÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         font. font depth := int (symbol);ÿÿÿÿÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("INT-Denoter nach 'font depth' erwartet")ÿÿN                    ELSE errorstop ("INT-Denoter nach 'fonttiefe' erwartet")ÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . larger font found :ÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         IF symbol type <> t textÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿ^                    THEN errorstop ("TEXT-Denoter nach 'next larger font' erwartet")ÿÿÿÿÿÿÿÿÿÿÿ^                    ELSE errorstop ("TEXT-Denoter nach 'groesserer font' erwartet")ÿÿÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         determine link nr;ÿÿÿÿ.         font. next larger font := link nr;ÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . smaller font found :ÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         IF symbol type <> t textÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿ^                    THEN errorstop ("TEXT-Denoter nach 'next smaller font' erwartet")ÿÿÿÿÿÿÿÿÿÿ^                    ELSE errorstop ("TEXT-Denoter nach 'kleinerer font' erwartet")ÿÿÿÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         determine link nr;ÿÿÿÿ.         font. next smaller font := link nr;ÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ         . determine link nr :ÿ.             change all (symbol, " ", "");ÿÿÿÿÿ             IF   symbol = ""ÿÿ.               THEN link nr := 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN               ELSE link nr := link (font table. font names, symbol);ÿÿÿÿÿÿÿÿÿÿ.                    IF link nr = 0ÿÿÿÿÿÿÿÿÿÿÿÿÿN                       THEN insert (font table. font names, symbol, link nr);ÿÿ>                            font table. font name links CAT 0;ÿ                    FI;ÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . font string found :ÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         IF symbol type <> t textÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("TEXT-Denoter nach 'font string' erwartet")N                    ELSE errorstop ("TEXT-Denoter nach 'fontsequenz' erwartet")                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.         font. font string := symbol;ÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . y offsets found :ÿÿÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ         font. y offsets := "";>         REP IF symbol = "-" AND symbol type = t operatorÿÿÿÿÿÿ.                THEN vorzeichen   THEN a breite INCR (d pitch XOR - maxint - 1); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                       zeilen pos INCR 2; ÿÿÿÿÿ.                  ELSE a breite INCR d pitch; ÿ.                       zeilenpos INCR 1;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . erweiterung gefunden :ÿÿÿÿÿÿN     a breite INCR extended char pitch (a font, zeile SUB zeilen pos, ÿÿÿÿÿÿÿÿÿN                                                zeile SUB zeilen pos + 1); ÿÿÿÿ     zeilen pos INCR 2;ÿÿÿÿÿÿÿÿ . anweisung gefunden :ÿÿÿÿÿÿÿÿ.     gegebenfalls neues token gefunden;ÿÿÿÿÿÿÿÿ>     analysiere anweisung (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿÿ^       INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator);ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF zeile ist zu endeÿÿÿÿÿÿN        THEN LEAVE bestimme token bis terminator oder zeilenende FI;ÿÿÿÿÿÿÿÿÿÿÿ     token zeiger := zeilenpos;. . terminator oder zeilenende gefunden :ÿÿÿÿÿÿÿ>     IF ausgang = null ausgang THEN  zeilen laenge DECR 1 FI;ÿÿ.     gegebenfalls neues token gefunden;ÿÿÿÿÿÿÿÿ>     LEAVE bestimme token bis terminator oder zeilenende;ÿÿÿÿÿÿ.     . gegebenfalls neues token gefunden :ÿÿÿÿÿ.         IF token zeiger < zeilenposÿÿÿÿÿÿÿÿÿÿÿ^            THEN lege token an (zeile, token zeiger, zeilen pos - 1, text token) FI;ÿÿÿÿÿÿÿÿÿÿÿ> END PROC bestimme token bis terminator oder zeilen ende;ÿÿÿÿÿÿ> PROC analysiere anweisung (PROC (INT CONST, TEXT VAR,ÿÿÿÿÿÿÿÿÿ^        INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR, INT VAR) analysator) :ÿÿÿÿÿÿÿÿÿÿÿ    bestimme anweisung;ÿÿÿÿÿÿÿÿ    IF   anweisung ist kommandoN         THEN lege token an (anweisung, 1, maxint, kommando token);ÿÿÿÿÿÿÿÿÿÿÿÿ.    ELIF anweisung ist kein kommentarÿÿÿÿÿÿÿÿÿÿ.         THEN werte anweisung aus; ÿÿÿÿÿÿÿÿÿÿÿÿ.     . anweisungsende   : zeilen pos - 2ÿÿÿÿÿÿÿ     . erstes zeichen   : par1ÿ . bestimme anweisung :ÿÿÿÿÿÿÿÿ>     INT CONST anweisungsanfang := zeilenpos + 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^     zeilen pos := pos (zeile, anweisungszeichen, anweisungsanfang, zeilenlaenge);ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF zeilenpos = 0ÿÿÿÿÿÿÿÿÿÿ.        THEN zeilenpos := anweisungsanfang - 1;N             replace (zeile, zeilenpos, geschuetztes anweisungszeichen);ÿÿÿÿÿÿÿ.             LEAVE analysiere anweisung;ÿÿÿÿÿÿÿn     IF fuehrende anweisungen = anweisungsanfang - 2 THEN fuehrende anweisungen := zeilen pos FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     zeilen pos INCR 1; ÿÿÿÿÿÿÿN     anweisung      := subtext (zeile, anweisungsanfang, anweisungsende);ÿÿÿÿÿÿ.     erstes zeichen := anweisung SUB 1;ÿÿÿÿÿÿÿÿ . anweisung ist kommando : ÿÿÿ.     IF   erstes zeichen = quoteÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          THEN scan (anweisung);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>               next symbol (anweisung, symbol type);ÿÿÿÿÿÿÿÿÿÿÿ>               next symbol (par2, naechster symbol type);ÿÿÿÿÿÿN               IF symbol type <> text type OR naechster symbol type <> eof type>                  THEN LEAVE analysiere anweisung FI;ÿÿÿÿÿÿÿÿÿÿ               TRUEÿÿÿÿÿÿÿÿÿÿÿÿ>     ELIF erstes zeichen = druckerkommando zeichenÿÿÿÿÿÿÿÿÿÿÿÿÿ.          THEN delete char (anweisung, 1);ÿÿÿÿÿ               TRUEÿÿÿÿÿÿÿÿÿÿÿÿ          ELSE FALSEÿÿÿÿÿÿÿÿÿÿÿ. . anweisung ist kein kommentar :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     erstes zeichen <> kommentar zeichenÿÿÿÿÿÿÿ   werte anweisung aus :ÿÿÿÿÿÿÿ>     analyze command (anweisungs liste, anweisung, number type,N                      anweisungs index, anzahl params, par1, par2);ÿÿÿÿÿÿÿÿÿÿÿÿ     SELECT anweisungs index OF.       CASE a type           : type anweisungÿÿ.       CASE a on             : on anweisungÿÿÿÿ.       CASE a off            : off anweisungÿÿÿ.       CASE a ub, a fb       : ub fb anweisungÿ.       CASE a ue, a fe       : ue fe anweisungÿ.       CASE a center         : center anweisung.       CASE a right          : right anweisungÿ.       CASE a up, a down     : index anweisungÿ>       CASE a end up or down : end index anweisungÿÿÿÿÿÿÿÿÿÿÿÿÿ.       CASE a bsp            : bsp anweisungÿÿÿ>       CASE a fillchar       : fillchar anweisungÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       CASE a mark           : mark anweisungÿÿ>       CASE a markend        : markend anweisungÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       OTHERWISE : IF anweisungs index > 0ÿÿÿÿÿ.                      THEN speichere anweisungÿ.                      ELSE rufe analysatorÿÿÿÿÿ                   FI;ÿÿÿÿÿÿÿÿÿ     END SELECT;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . type anweisung :ÿÿÿÿÿÿÿÿ.         change all (par1, " ", "");ÿÿÿÿÿÿÿÿÿÿÿ.         stelle neuen font ein (font (par1));ÿÿ.         a modifikationen   := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         ueberpruefe groesste fontgroesse;ÿÿÿÿÿ.         IF nicht innerhalb eines indexesÿÿÿÿÿÿ>            THEN berechne aktuelle zeilengroesse FI;ÿÿÿÿÿÿÿÿÿÿÿ.         . nicht innerhalb eines indexes :ÿÿÿÿÿ             index zaehler = 0ÿ     . on anweisung :ÿÿÿÿÿÿÿÿÿÿ         par1 := par1 SUB 1;ÿÿÿ.         IF pos (modifikations liste, par1) > 0^            THEN set bit (a modifikationen, pos (modifikations liste, par1) - 1 );ÿÿÿÿÿÿÿÿÿÿÿÿÿ     . off anweisung :ÿÿÿÿÿÿÿÿÿ         par1 := par1 SUB 1;ÿÿÿ.         IF pos (modifikations liste, par1) > 0^            THEN reset bit (a modifikationen, pos (modifikations liste, par1) - 1 );ÿÿÿÿÿÿÿÿÿÿÿ     . ub fb anweisung :ÿÿÿÿÿÿÿ.         IF anweisungs index = a ubÿÿÿÿÿÿÿÿÿÿÿÿ            THEN par1 := "u"ÿÿÿ            ELSE par1 := "b"ÿÿÿ         on anweisung;ÿÿÿÿÿÿÿÿÿ     . ue fe anweisung :ÿÿÿÿÿÿÿ.         IF anweisungs index = a ueÿÿÿÿÿÿÿÿÿÿÿÿ            THEN par1 := "u"ÿÿÿ            ELSE par1 := "b"ÿÿÿ         off anweisung;ÿÿÿÿÿÿÿÿ     . center anweisung :ÿÿÿÿÿÿN         IF NOT zeile muss geblockt werden AND NOT tabellen modusÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                AND NOT right modusÿÿÿÿÿÿÿÿÿÿÿÿ.            THEN center modus := TRUE;ÿÿÿÿÿÿÿÿÿ>                 blankmodus   := keine blankanalyse;ÿÿÿÿÿÿÿÿÿÿÿ.                 initialisiere tab variablen; ÿ     . right anweisung :ÿÿÿÿÿÿÿN         IF NOT zeile muss geblockt werden AND NOT tabellen modusÿÿÿÿÿÿÿÿÿÿÿÿÿÿN            THEN IF center modus THEN zentriere zeile (limit DIV 2) FI;ÿÿÿÿÿÿÿÿ.                 right modus := TRUE;ÿÿÿÿÿÿÿÿÿÿ>                 blankmodus  := keine blankanalyse;ÿÿÿÿÿÿÿÿÿÿÿÿ.                 initialisiere tab variablen; ÿ     . index anweisung :ÿÿÿÿÿÿÿ.         INT CONST grosser font := a font,ÿÿÿÿÿ^                   grosse fonthoehe := fonthoehe, grosse fonttiefe := fonttiefe;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         INT VAR   kleiner font;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN         IF next smaller font exists (grosser font, kleiner font)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>            THEN stelle neuen font ein (kleiner font) FI;ÿÿÿÿÿÿ.         IF font hoehe < grosse fonthoeheÿÿÿÿÿÿ>            THEN verschiebung := verschiebung fuer kleinen font>            ELSE verschiebung := verschiebung fuer grossen font.         a ypos INCR verschiebung;ÿÿÿÿÿÿÿÿÿÿÿÿÿ         merke index werte;ÿÿÿÿ.         . verschiebung fuer kleinen font :ÿÿÿÿ.             IF anweisungs index = a downÿÿÿÿÿÿN                THEN    15 PROZENT (grosse fonthoehe + grosse fonttiefe)ÿÿÿÿÿÿÿN                ELSE - ( 4 PROZENT (grosse fonthoehe + grosse fonttiefe) )ÿÿÿÿÿ^                     - (grosse fonthoehe + grosse fonttiefe - fonthoehe - fonttiefe)ÿÿÿÿÿÿÿÿÿÿÿ             FI.         . verschiebung fuer grossen font :ÿÿÿÿ.             IF anweisungs index = a downÿÿÿÿÿÿ>                THEN    25 PROZENT (fonthoehe + fonttiefe)ÿÿÿÿÿ>                ELSE - (50 PROZENT (fonthoehe + fonttiefe) )ÿÿÿ             FI         . merke index werte :ÿ.             index zaehler INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>             IF hoechster index zaehler < index zaehlerÿÿÿÿÿÿÿÿ.                THEN neues index levelÿÿÿÿÿÿÿÿÿ.                ELSE altes index levelÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             IF index zaehler = 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ := -1;ÿÿÿÿÿÿÿÿÿ.                     get next symbol;ÿÿÿÿÿÿÿÿÿÿ.                ELSE vorzeichen :=  1;ÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             int symbol := vorzeichen * int (symbol);ÿÿÿÿÿÿÿÿÿÿ.             IF NOT last conversion okÿÿÿÿÿÿÿÿÿ                THEN IF english^                        THEN errorstop ("INT-Denoter nach 'y offsets' erwartet")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                        ELSE errorstop ("INT-Denoter nach 'y verschiebungen' erwartet")ÿÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             font. y offsets CAT int symbol;ÿÿÿ             get next symbol;ÿÿ^             IF (symbol <> "," AND symbol <> ";") OR symbol type <> t delimiter ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                THEN errorstop ("',' oder ';' in Liste erwartet") FI;ÿÿÿÿÿÿÿÿÿÿ>             IF symbol = ";" THEN LEAVE y offsets found FI;ÿÿÿÿ             get next symbol;ÿÿ     . bold offset found :ÿÿÿÿÿ.         check modus (font modus);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>         IF symbol = "-" AND symbol type = t operatorÿÿÿÿÿÿÿÿÿÿ.            THEN vorzeichen := -1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                 get next symbol;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.            ELSE vorzeichen :=  1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>         font. bold offset := vorzeichen * int (symbol);ÿÿÿÿÿÿÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN IF englishÿÿÿÿN                    THEN errorstop ("INT-Denoter nach 'bold offset' erwartet")ÿ^                    ELSE errorstop ("INT-Denoter nach 'bold verschiebungen' erwartet")ÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ   get char specifications :ÿÿÿ     WHILE char foundÿÿÿÿÿÿÿÿÿÿ     REP cout (line nr); ÿÿÿÿÿÿ         char specification;ÿÿÿ         get next symbol; ÿÿÿÿÿ     . char found :ÿÿÿÿÿÿÿÿÿÿÿÿ         symbol type = t textÿÿ     . char specification :ÿÿÿÿ         IF LENGTH symbol <> 1 N            THEN errorstop ("nur ein Zeichen bei Zeichenangabe erlaubt") FI;ÿÿÿ         char := symbol; ÿÿÿÿÿÿ.         char code 1 := code (char) + 1;ÿÿÿÿÿÿÿ.         look for specification;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         look for specification;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         get semicolon;ÿÿÿÿÿÿÿÿ     . look for specification :         get next symbol; ÿÿÿÿÿ>         IF   symbol = ";" AND symbol type = t delimiter ÿÿÿÿÿÿ.           THEN LEAVE char specificationÿÿÿÿÿÿÿ>         ELIF symbol = "," AND symbol type = t delimiter ÿÿÿÿÿÿ.           THEN get specificationÿÿÿÿÿÿÿÿÿÿÿÿÿÿN           ELSE errorstop ("',' oder ';' bei Zeichenspezifikation erwartet")ÿÿÿ     . get specification :ÿÿÿÿÿ         get next symbol;ÿÿÿÿÿÿ.         IF   symbol type = t numberÿÿÿÿÿÿÿÿÿÿÿ.           THEN pitch specification;ÿÿÿÿÿÿÿÿÿÿÿ.         ELIF symbol type = t text ÿÿÿÿÿÿÿÿÿÿÿÿ.           THEN replacement specificationÿÿÿÿÿÿN           ELSE errorstop ("unzulaessiger Wert bei Zeichenspezifikation")ÿÿÿÿÿÿ.         . pitch specification :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             int symbol := int (symbol);ÿÿÿÿÿÿÿ.             IF NOT last conversion okÿÿÿÿÿÿÿÿÿN                THEN errorstop ("INT-Denoter bei Breitenangabe erwartet") FI;ÿÿ.             IF   modus = font modusÿÿÿÿÿÿÿÿÿÿÿN                THEN font. pitch table (char code 1) := int symbol;ÿÿÿÿÿÿÿÿÿÿÿÿ.                     IF is kanji esc (char)ÿÿÿÿ^                        THEN set bit (font. pitch table (char code 1), highest bit) FI; ÿÿÿÿÿÿÿ.             ELIF modus = extension modusÿÿÿÿÿÿ>                THEN IF last modus = font modus ANDÿÿÿÿÿÿÿÿÿÿÿÿN                          font. pitch table (extension code 1) <> max intÿÿÿÿÿÿ^                        THEN font. pitch table (extension code 1) := max int FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                     extension. pitch table (char code 1) := int symbol;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . replacement specification : ÿÿÿÿÿÿÿÿ.             IF LENGTH symbol > 255ÿÿÿÿÿÿÿÿÿÿÿÿ^                THEN errorstop ("Ersatzdarstellungen duerfen nur 255 Zeichen haben") FI;ÿÿÿÿÿÿÿ.             IF   modus = font table modusÿÿÿÿÿN                THEN font table. replacements table (char code 1) := ÿÿÿÿÿÿÿÿÿÿN                                        (LENGTH font table. replacements + 1); N                     font table. replacements CAT code (LENGTH symbol);ÿÿÿÿÿÿÿÿ>                     font table. replacements CAT symbol;ÿÿÿÿÿÿ.                     IF is kanji esc (char)ÿÿÿÿn                        THEN set bit (font table. replacements table (char code 1), highest bit) FI; ÿÿÿÿÿÿÿÿÿÿ.             ELIF modus = font modusÿÿÿÿÿÿÿÿÿÿÿ>                THEN font. replacements table (char code 1) :=ÿN                        (replacements length + LENGTH font. replacements + 1); N                     font. replacements CAT code (LENGTH symbol);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                     font. replacements CAT symbol;ÿÿÿÿÿÿÿÿÿÿÿÿ.                     IF is kanji esc (char)ÿÿÿÿ^                        THEN set bit (font. replacements table (char code 1), highest bit) FI; .             ELIF modus = extension modusÿÿÿÿÿÿ>                THEN IF last modus = font modus ANDÿÿÿÿÿÿÿÿÿÿÿÿ^                          font. replacements table (extension code 1) <> max intÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                        THEN font. replacements table (extension code 1) := max int FI;ÿÿÿÿÿÿÿÿN                     extension. replacements table (char code 1) :=ÿÿÿÿÿÿÿÿÿÿÿÿ^                       (replacements length + LENGTH extension. replacements + 1); ÿÿÿÿÿÿÿÿÿÿÿÿN                     extension. replacements CAT code (LENGTH symbol);ÿÿÿÿÿÿÿÿÿ>                     extension. replacements CAT symbol;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC load; PROC get name list :ÿÿÿÿÿÿÿÿÿÿ    names := empty thesaurus;ÿÿ    get next symbol;ÿÿÿÿÿÿÿÿÿÿÿ>    IF symbol <> ":" OR symbol type <> t delimiter ÿÿÿÿÿÿÿÿÿÿÿÿ>       THEN errorstop ("':' nach Kennung erwartet") FI;ÿÿÿÿÿÿÿÿ    REP get next symbol;ÿÿÿÿÿÿÿ.        change all (symbol, " ", "");ÿÿÿÿÿÿÿÿÿÿ.        IF symbol type <> t textÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN           THEN errorstop ("TEXT-Denoter in Namesliste erwartet") FI;ÿÿÿÿÿÿÿÿÿÿ        IF symbol = ""ÿÿÿÿÿÿÿÿÿN           THEN errorstop ("'niltext' als Name nicht erlaubt") FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ        insert (names, symbol);        get next symbol;ÿÿÿÿÿÿÿN        IF (symbol <> "," AND symbol <> ";") OR symbol type <> t delimiter ÿÿÿÿN           THEN errorstop ("',' oder ';' in Liste erwartet") FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    UNTIL symbol = ";" PER;ÿÿÿÿ    . get next symbol :ÿÿÿÿÿÿÿÿ>        next symbol (file, symbol, symbol type);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC get name list;ÿÿÿÿÿÿÿ. OP := (ROW 256 INT VAR l, INT CONST r) :ÿÿÿÿÿÿ. IF modus = extension modus OR NOT two bytesÿÿÿ>    THEN FOR i FROM   1 UPTO 256 REP l (i) := r PER; ÿÿÿÿÿÿÿÿÿÿ>    ELSE FOR i FROM   1 UPTO 129 REP l (i) := r PER;ÿÿÿÿÿÿÿÿÿÿÿN         FOR i FROM 130 UPTO 160 REP l (i) := r - maxint - 1 PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         FOR i FROM 161 UPTO 224 REP l (i) := r PER;ÿÿÿÿÿÿÿÿÿÿÿN         FOR i FROM 225 UPTO 240 REP l (i) := r - maxint - 1 PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         FOR i FROM 241 UPTO 256 REP l (i) := r PER;ÿÿÿÿÿÿÿÿÿÿÿ. PROC check modus (INT CONST mod) :ÿÿÿÿÿÿÿÿÿÿÿÿN   IF mod <> modus THEN errorstop ("unzulaessige Identifikation") FI;ÿÿÿÿÿÿÿÿÿÿ END PROC check modus;ÿÿÿÿÿÿÿÿÿ. PROC error (TEXT CONST message) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ (*INT CONST l := error line;*)   clear error;N   errorstop ("Zeile " + text (line nr) + " bei " + letztes symbol +ÿÿÿÿÿÿÿÿÿÿÿN              " : " + message (* + errorline if neccessary *) ); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   . letztes symbol :ÿÿÿÿÿÿÿÿÿÿ.       IF   symbol type  = t textÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.            THEN decode (symbol);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                 """" + symbol + """"ÿÿÿÿÿÿÿÿÿÿ.       ELIF symbol type >= t end of fileÿÿÿÿÿÿÿ>                THEN alter blankmodus := blankmodus; ÿÿÿÿÿÿÿÿÿÿ>                     blankmodus := keine blankanalyse;ÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             . neues index level :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 hoechster index zaehler := index zaehler;ÿÿÿÿÿ.                 letzte index breite  CAT 0;ÿÿÿ>                 xpos vor index       CAT a xpos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                 zeilenpos nach index CAT -1;ÿÿ>                 index verschiebung   CAT verschiebung;ÿÿÿÿÿÿÿÿ>                 grosse fonts         CAT grosser font;ÿÿÿÿÿÿÿÿ.             . altes index level :ÿÿÿÿÿÿÿÿÿÿÿÿÿ^                 IF (zeilenpos nach index ISUB index zaehler) = anweisungsanfang - 1ÿÿÿÿÿÿÿÿÿÿÿ^                     AND sign (index verschiebung ISUB index zaehler) <> sign (verschiebung)ÿÿÿ.                    THEN doppelindex gefunden;ÿN                    ELSE replace (xpos vor index, index zaehler, a xpos);ÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿN                 replace (index verschiebung, index zaehler, verschiebung);ÿÿÿÿN                 replace (grosse fonts, index zaehler, grosser font);ÿÿÿÿÿÿÿÿÿÿ.                 . doppelindex gefunden :ÿÿÿÿÿÿN                     replace (letzte index breite, index zaehler,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                              a xpos - (xpos vor index ISUB index zaehler));ÿÿÿN                     a xpos := xpos vor index ISUB index zaehler;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . end index anweisung :ÿÿÿ         IF index zaehler > 0ÿÿ>            THEN schalte auf alte index werte zurueck;ÿÿÿÿÿÿÿÿÿ>         . schalte auf alte index werte zurueck :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             IF index zaehler = 1 THEN blankmodus := alter blankmodus FI;ÿÿÿÿÿÿN             a ypos DECR (index verschiebung ISUB index zaehler);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             stelle neuen font ein (grosse fonts ISUB index zaehler);ÿÿÿÿÿÿÿÿÿÿ>             IF (letzte index breite ISUB index zaehler) <> 0ÿÿ.                THEN berechne doppelindexÿÿÿÿÿÿN                ELSE replace (zeilenpos nach index, index zaehler, zeilenpos);ÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             index zaehler DECR 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.             . berechne doppelindex :ÿÿÿÿÿÿÿÿÿÿN                 a xpos := (xpos vor index ISUB index zaehler) +ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                            max (a xpos - (xpos vor index ISUB index zaehler),ÿN                                      letzte index breite ISUB index zaehler);ÿN                 replace (zeilenpos nach index, index zaehler, -1);ÿÿÿÿÿÿÿÿÿÿÿÿN                 replace (letzte index breite, index zaehler, 0);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . bsp anweisung :ÿÿÿÿÿÿÿÿÿ.         INT VAR breite davor, breite dahinter;N         IF anweisungs anfang - 2 >= 1 AND anweisungs ende + 2 <= zeilen laengeN            THEN IF is kanji esc (zeile SUB anweisungs anfang - 3)ÿÿÿÿÿÿÿÿÿÿÿÿÿ^                    THEN zeichen davor := subtext (zeile, anweisungs anfang - 3,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                                                          anweisungs anfang - 2);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                    ELSE zeichen davor := zeile SUB anweisungs anfang - 2;ÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿN                 IF is kanji esc (zeile SUB anweisungs ende + 2)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                    THEN zeichen dahinter := subtext (zeile, anweisungs ende + 2,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                                                             anweisungs ende + 3 );ÿÿÿÿÿÿÿÿÿÿÿÿN                    ELSE zeichen dahinter := zeile SUB anweisungs ende + 2;ÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ^                 IF pos (" #", zeichen davor) = 0 AND pos (" #", zeichen dahinter) = 0 ÿÿÿÿÿÿÿÿN                    THEN breite davor    := char pitch (a font, zeichen davor);^                         breite dahinter := char pitch (a font, zeichen dahinter);ÿÿÿÿÿÿÿÿÿÿÿÿÿ^                         IF breite davor < breite dahinter THEN vertausche zeichen FI;ÿÿÿÿÿÿÿÿÿ>                         lege token fuer zeichen dahinter an;ÿÿN                         a xpos INCR (breite davor - breite dahinter) DIV 2; ÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.         . zeichen davor    : par1ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . zeichen dahinter : par2ÿÿÿÿÿÿÿÿÿÿÿÿÿ         . vertausche zeichen :N             change (zeile, anweisungs anfang - 2 - LENGTH zeichen davor + 1, ÿN                            anweisungs anfang - 2, zeichen dahinter);ÿÿÿÿÿÿÿÿÿÿ>             change (zeile, anweisungs ende + 2,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                            anweisungs ende + 2 + LENGTH zeichen dahinter - 1, zeichen davor);ÿN             change (tf. text, LENGTH tf. text - LENGTH zeichen davor + 1,ÿÿÿÿÿN                               LENGTH tf. text, zeichen dahinter);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>             tf. breite INCR (breite dahinter - breite davor);ÿ>             a xpos     INCR (breite dahinter - breite davor);ÿ.             int param        := breite davor;ÿ>             breite davor     := breite dahinter;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             breite dahinter  := int param;ÿÿÿÿ>         . lege token fuer zeichen dahinter an :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             token zeiger := zeilen pos;ÿÿÿÿÿÿÿ.             a breite     := breite dahinter;ÿÿ>             zeilen pos INCR LENGTH zeichen dahinter;ÿÿÿÿÿÿÿÿÿÿN             a xpos     DECR (breite davor + breite dahinter) DIV 2; ÿÿÿÿÿÿÿÿÿÿN             lege token an (zeile, token zeiger, zeilen pos - 1, text token);ÿÿ.             anzahl zeichen DECR 1;ÿÿÿÿÿÿÿÿÿÿÿÿ     . fillchar anweisung :ÿÿÿÿ.         IF par1 = "" THEN par1 := " " FI;ÿÿÿÿÿ         fill char := par1;ÿÿÿÿ         speichere anweisung;ÿÿ     . mark anweisung :ÿÿÿÿÿÿÿÿ         IF par1 <> "" ÿÿÿÿÿÿÿÿN            THEN mark index l := (alter mark index l MOD 2) + 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 neue markierung (par1, mark index l);ÿÿÿÿÿÿÿÿÿ.            ELSE mark index l := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ         IF par2 <> "" ÿÿÿÿÿÿÿÿN            THEN mark index r := (alter mark index r MOD 2) + 3;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 neue markierung (par2, mark index r);ÿÿÿÿÿÿÿÿÿ.            ELSE mark index r := 0;ÿÿÿÿÿÿÿÿÿÿÿÿ     . markend anweisung :ÿÿÿÿÿ         loesche markierung;ÿÿÿ     . speichere anweisung :ÿÿÿ.         anweisungs zaehler INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿ>         anweisungs indizes CAT anweisungs index;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         IF par1 <> ""ÿÿÿÿÿÿÿÿÿ.            THEN insert (params1, par1); ÿÿÿÿÿÿ>                 params1 zeiger CAT highest entry (params1);ÿÿÿ.            ELSE params1 zeiger CAT 0;ÿÿÿÿÿÿÿÿÿ         IF par2 <> ""ÿÿÿÿÿÿÿÿÿ.            THEN insert (params2, par2); ÿÿÿÿÿÿ>                 params2 zeiger CAT highest entry (params2);ÿÿÿ.            ELSE params2 zeiger CAT 0;ÿÿÿÿÿÿÿÿÿ     . rufe analysator :ÿÿÿÿÿÿÿ>         INT CONST alte xpos := a xpos, alte y pos := a ypos;ÿÿN         INT VAR analysatorbreite, analysatorhoehe, analysatortiefe,ÿÿÿÿÿÿÿÿÿÿÿ>                 analysator font           := a font,ÿÿÿÿÿÿÿÿÿÿ>                 analysator modifikationen := a modifikationen;.         zeilen pos := anweisungsanfang - 1;ÿÿÿ>         analysator (text code, zeile, zeilen pos,ÿÿÿÿÿÿÿÿÿÿÿÿÿN                     analysator font, analysator modifikationen,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                     analysatorbreite, analysatorhoehe, analysatortiefe, dummy);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    THEN par1 := error message;         par1 CAT " a1-> ";ÿÿÿÿ.         par1 CAT text (errorline);ÿÿÿÿÿÿÿÿÿÿÿÿ         clear error;ÿÿÿÿÿÿÿÿÿÿ         errorstop (par1);ÿÿÿÿÿ.         hole token der analyse;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         a xpos               := alte xpos + analysatorbreite;ÿ.         a ypos               := alte ypos;ÿÿÿÿ>         a modifikationen     := analysator modifikationen;ÿÿÿÿ^         groesste analysatorhoehe := max (analysatorhoehe, groesste analysator hoehe);ÿÿÿÿÿÿÿÿÿ^         groess            THEN "EOF"ÿÿÿÿÿÿÿÿÿ            ELSE symbolÿÿÿÿÿÿÿÿ   . errorline if neccessary :ÿ       IF l = 0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          THEN ""ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          ELSE " -> " + text (l) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC error;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (*******************************************************************)ÿÿÿÿÿÿÿÿÿN PROC create font file (TEXT CONST font tab name, font file name) :ÿÿÿÿÿÿÿÿÿÿÿÿ connect font table;ÿÿÿÿÿÿÿÿÿÿÿ put font table in font file;ÿÿ   connect font table :ÿÿÿÿÿÿÿÿ     buffer := font tab name;ÿÿ.     change all (buffer, " ", "");ÿÿÿÿÿÿÿÿÿÿÿÿÿN     IF NOT exists (buffer) COR type (old (buffer)) <> font table typeÿÿÿÿÿÿÿÿÿN        THEN errorstop ("Fonttabelle """ + buffer + """ gibt es nicht")ÿÿÿÿÿÿÿÿ    font table := old (buffer);.   put font table in font file :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     INT VAR font file nr := 0;     enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     font file := sequential file (output, font file name);ÿÿÿÿ.     max line length (font file, 16000);ÿÿÿÿÿÿÿ     check file overflow;ÿÿÿÿÿÿ     put font table;ÿÿÿÿÿÿÿÿÿÿÿN     FOR font nr FROM 1 UPTO font table. last font REP put font PER;ÿÿÿÿÿÿÿÿÿÿÿ     . check file overflow :ÿÿÿ.         WHILE lines (font file) > 3600ÿÿÿÿÿÿÿÿ.         REP font file nr INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^             font file := sequential file (output, font file name + "." + text (font file nr));>             max line length (font file, 16000);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . put font table :ÿÿÿÿÿÿÿÿÿÿÿÿ^     z CAT "FONTTABLE  :  """; z CAT buffer;                  z CAT """;"; put z; ÿÿÿÿÿÿÿÿÿÿÿÿÿ^     z CAT "  x unit      =  ";   z CAT text (font table. x unit); z CAT ";"; put z; ÿÿÿÿÿÿÿÿÿÿ^     z CAT "  y unit      =  ";   z CAT text (font table. y unit); z CAT ";"; put z; ÿÿÿÿÿÿÿÿÿÿ^     z CAT "  on string   =  """; z cat on strings;              z CAT """;"; put z; ÿÿÿÿÿÿÿÿÿÿ^     z CAT "  off string  =  """; z cat off strings;             z CAT """;"; put z; ÿÿÿÿÿÿÿÿÿÿ.     put font table replacements;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     put font table extensions;     . z cat on strings :ÿÿÿÿÿÿ.         FOR index FROM 1 UPTO 4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         REP buffer := font table. on strings (index);ÿÿÿÿÿÿÿÿÿ             decode (buffer); ÿ             z CAT buffer;ÿÿÿÿÿ>             IF index <> 4 THEN z CAT """,  """ FI;ÿÿÿÿÿÿÿÿÿÿÿÿ     . z cat off strings :ÿÿÿÿÿ.         FOR index FROM 1 UPTO 4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         REP buffer := font table. off strings (index);ÿÿÿÿÿÿÿÿ             decode (buffer); ÿ             z CAT buffer;ÿÿÿÿÿ>             IF index <> 4 THEN z CAT """,  """ FI;ÿÿÿÿÿÿÿÿÿÿÿÿ.     . put font table replacements : ÿÿÿÿÿÿÿÿÿÿ         put z;.         FOR char code FROM 0 UPTO 255ÿÿÿÿÿÿÿÿÿ.         REP char code 1 := char code + 1;ÿÿÿÿÿN             link nr     := font table. replacements table (char code 1);ÿÿÿÿÿÿ.             reset bit (link nr, highest bit);ÿ>             IF link nr > 0 AND link nr <> maxintÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                THEN z CAT "  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                     put char code;ÿÿÿÿÿÿÿÿÿÿÿÿ>                     put font table replacement;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                     put z;ÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . put font table replacement :ÿÿÿÿÿÿÿÿN             replacement := subtext (font table.  replacements, link nr + 1,ÿÿÿN                      link nr + code (font table. replacements SUB link nr) );ÿ             put replacement;ÿÿ.     . put font table extensions :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         IF font table. extension chars <> ""ÿÿN            THEN FOR index FROM 1 UPTO LENGTH font table. extension chars ÿÿÿÿÿ>                 REP put font table extension PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . put font table extension :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         check file overflow;ÿÿ         put z;.         z CAT "  EXTENSION  :  """"";ÿÿÿÿÿÿÿÿÿN         z CAT text 3 (code (font table. extension chars SUB index));ÿÿÿÿÿÿÿÿÿÿ         z CAT """"";";ÿÿÿÿÿÿÿÿ         put z; put z; ÿÿÿÿÿÿÿÿ.         replacements length := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿN         extension nr        := font table. extension indexes ISUB index;ÿÿÿÿÿÿ.         FOR char code FROM 0 UPTO 255ÿÿÿÿÿÿÿÿÿ.         REP char code 1 := char code + 1;ÿÿÿÿÿN             link nr     := extension. replacements table (char code 1);ÿÿÿÿÿÿÿ             IF link nr > 0ÿÿÿÿ.                THEN z CAT "  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                     put char code;ÿÿÿÿÿÿÿÿÿÿÿÿ.                     put extension replacement;                     put z;ÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     check file overflow;ÿÿÿÿÿÿN             z CAT "  FONT  :  "; z cat font names; z CAT ";"; put z; ÿÿÿÿÿÿÿÿÿ>             z CAT "    indentation pitch  =  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             z CAT text(font. indentation pitch);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             z CAT ";"; put z;      IF font. font lead <> 0 ÿÿ>        THEN z CAT "    font lead          =  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             z CAT text(font. font lead);ÿÿÿÿÿÿ             z CAT ";"; put z;ÿ>             z CAT "    font height        =  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             z CAT text(font. font height);ÿÿÿÿ             z CAT ";"; put z;      IF font. font depth <> 0ÿÿ>        THEN z CAT "    font depth         =  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             z CAT text(font. font depth);ÿÿÿÿÿ             z CAT ";"; put z;ÿ     IF next larger <> ""ÿÿÿÿÿÿ>        THEN z CAT "    next larger font   =  """;ÿÿÿÿÿÿÿÿÿÿÿÿÿ             z CAT next larger;.             z CAT """;"; put z;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF next smaller <> ""ÿÿÿÿÿ>        THEN z CAT "    next smaller font  =  """;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.             z CAT next smaller;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             z CAT """;"; put z;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF font. font string <> "">        THEN z CAT "    font string        =  """;ÿÿÿÿÿÿÿÿÿÿÿÿÿ             z CAT font string;.             z CAT """;"; put z;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     IF (font. y offsets ISUB 1) <> 0 OR LENGTH font. y offsets > int lengthÿÿÿ>        THEN z CAT "    y offsets          =  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             z cat y offsets;ÿÿ             z CAT ";"; put z;      IF font. bold offset <> 0ÿ>        THEN z CAT "    bold offset        =  ";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             z CAT text(font. bold offset);ÿÿÿÿ             z CAT ";"; put z;ÿ.     put font pitches and replacements;ÿÿÿÿÿÿÿÿ     put font extensions;ÿÿÿÿÿÿN     . next larger  : name (font table. font names, font. next larger font)ÿÿÿÿN     . next smaller : name (font table. font names, font. next smaller font)ÿÿÿN     . font string  : buffer := font. font string; decode (buffer); bufferÿÿÿÿÿ     . z cat font names :ÿÿÿÿÿÿ         z CAT """";ÿÿÿÿÿÿÿÿÿÿÿN         z CAT name (font table. font names, font. font name indexes ISUB 1);ÿÿ         z CAT """";ÿÿÿÿÿÿÿÿÿÿÿN         FOR index FROM 2 UPTO LENGTH font. font name indexes DIV int lengthÿÿÿ         REP z CAT ",  """;ÿÿÿÿ^             z CAT name (font table. font names, font. font name indexes ISUB index);ÿÿÿÿÿÿÿÿÿÿ             z CAT """";ÿÿÿÿÿÿÿ     . z cat y offsets :ÿÿÿÿÿÿÿ.         z CAT text (font. y offsets ISUB 1);ÿÿN         FOR index FROM 2 UPTO LENGTH font. y offsets DIV int lengthÿÿÿÿÿÿÿÿÿÿÿ         REP z CAT ",  ";ÿÿÿÿÿÿ>             z CAT text (font. y offsets ISUB index);ÿÿÿÿÿÿÿÿÿÿ.     . put font pitches and replacements :ÿÿÿÿÿ.         BOOL VAR ausgabe := FALSE; ÿÿÿÿÿÿÿÿÿÿÿN         replacements length := LENGTH font table. replacements;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         put z;         z CAT "  "; ÿÿÿÿÿÿÿÿÿÿ.         FOR char code FROM 0 UPTO 255ÿÿÿÿÿÿÿÿÿ.         REP char code 1 := char code + 1;ÿÿÿÿÿ>             pitch       := font. pitch table (char code 1); ÿÿ.             reset bit (pitch, highest bit); ÿÿN             link nr     := font. replacements table (char code 1);ÿÿÿÿÿÿÿÿÿÿÿÿ.             reset bit (link nrte analysatortiefe := max (analysatortiefe, groesste analysator tiefe);ÿÿÿÿÿÿÿÿÿ.         IF analysator font <> a fontÿÿÿÿÿÿÿÿÿÿ>            THEN stelle neuen font ein (analysator font);ÿÿÿÿÿÿ>                 ueberpruefe groesste fontgroesse;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 IF nicht innerhalb eines indexesÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                    THEN berechne aktuelle zeilengroesse FI;ÿÿÿN            ELSE aktuelle zeilenhoehe := max (groesste analysatorhoehe,ÿÿÿÿÿÿÿÿN                                                       aktuelle zeilenhoehe);ÿÿN                 aktuelle zeilentiefe := max (groesste analysatortiefe,ÿÿÿÿÿÿÿÿN                                                       aktuelle zeilentiefe);ÿÿ.         . hole token der analyse :ÿÿÿÿÿÿÿÿÿÿÿÿ^             INT VAR token nr := 0, token font, token xpos, token ypos, token typ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.             BOOL VAR font changed := FALSE;ÿÿÿ             token text := "";ÿ             REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 analysator (token code, token text, token nr,ÿN                             token font, a modifikationen, a breite,ÿÿÿÿÿÿÿÿÿÿÿN                             token xpos, token ypos, token typ);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    THEN par1 := error message;         par1 CAT " a2-> ";ÿÿÿÿ.         par1 CAT text (errorline);ÿÿÿÿÿÿÿÿÿÿÿÿ         clear error;ÿÿÿÿÿÿÿÿÿÿ         errorstop (par1);ÿÿÿÿÿ.                 IF token nr = 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                    THEN IF font changed THEN a font := -1 FI;ÿ>                         LEAVE hole token der analyseÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.                 IF token font <> a fontÿÿÿÿÿÿÿ>                    THEN a font       := token font;ÿÿÿÿÿÿÿÿÿÿÿ>                         font offsets := y offsets (a font);ÿÿÿN                         offsets      := LENGTH font offsets > 2;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                         font changed := TRUE;ÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ>                 a xpos := alte xpos + token xpos;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                 a ypos := alte ypos + token ypos;ÿÿÿÿÿÿÿÿÿÿÿÿÿN                 lege token an (token text, 1, max int, token typ)ÿÿÿÿÿÿÿÿÿÿÿÿÿ             PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             . token text : par1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC analysiere anweisung;> PROC stelle neuen font ein (INT CONST font nr ) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF font nr <> a font THEN neuer font FI;ÿÿÿÿ   . neuer font :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       a font := max (1, font nr);ÿÿÿÿÿÿÿÿÿÿÿÿÿN       get font (a font, einrueckbreite, fontdurchschuss, fonthoehe, fonttiefe,.                 zeichenbreiten);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^       blankbreite                                := zeichenbreiten (blank code 1);ÿÿÿÿÿÿÿÿÿÿÿÿN       zeichenbreiten (blank code 1)              := blank ausgang;ÿÿÿÿÿÿÿÿÿÿÿÿN       zeichenbreiten (anweisungs zeichen code 1) := anweisungs ausgang;ÿÿÿÿÿÿÿN       font offsets                               := y offsets (a font);ÿÿÿÿÿÿÿ^       offsets                                    := LENGTH font offsets > int length;ÿÿÿÿÿÿÿÿÿ       berechne fontgroesse;ÿÿÿ.       berechne letzte zeilengroesse;ÿÿÿÿÿÿÿÿÿÿ       IF d code 1 <> leerÿÿÿÿÿN          THEN d pitch                            := zeichenbreiten (d code 1);N               zeichenbreiten (d code 1)          := d code ausgang;ÿÿÿÿÿÿÿÿÿÿÿ. END PROC stelle neuen font ein;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT OP PROZENT (INT CONST prozent, wert) :ÿÿÿÿ.     (wert * prozent + 99) DIV 100ÿÿÿÿÿÿÿÿÿÿÿÿÿ END OP PROZENT; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC neue markierung (TEXT CONST text, INT CONST mark index) :>       mark token (mark index). text           := text;ÿÿÿÿÿÿÿÿN       mark token (mark index). breite         := string breite (text);ÿÿÿÿÿÿÿÿ>       mark token (mark index). font           := a font;ÿÿÿÿÿÿN       mark token (mark index). modifikationen := a modifikationen;ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC neue markierung;ÿÿÿÿÿ. INT PROC string breite (TEXT CONST string) :ÿÿ.     INT VAR summe := 0, pos := 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ^     REP stranalyze (zeichenbreiten, summe, max breite, string, pos, maxint, ausgang);ÿÿÿÿÿÿÿÿÿ.         IF   ausgang = erweiterungs ausgangÿÿÿ>              THEN summe INCR extended char pitch (a font,ÿÿÿÿÿN                                        string SUB pos+1, string SUB pos+2);ÿÿÿ                   pos INCR 3;ÿ.         ELIF ausgang = blank ausgangÿÿÿÿÿÿÿÿÿÿ.              THEN summe INCR blankbreite;ÿÿÿÿÿ                   pos INCR 2;ÿ.         ELIF ausgang = anweisungs ausgangÿÿÿÿÿN              THEN summe INCR char pitch (a font, anweisungszeichen);ÿÿÿÿÿÿÿÿÿÿ                   pos INCR 2;ÿ>              ELSE LEAVE string breite WITH summeÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC string breite;ÿÿÿÿÿÿÿN (*******************************************************************)ÿÿÿÿÿÿÿÿÿ. PROC lege token an (TEXT CONST token text,ÿÿÿÿN                     INT  CONST token anfang, token ende, token typ) :ÿÿÿÿÿÿÿÿÿ.   INT VAR anfang := token anfang;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   aktuelle ypos := a ypos + (font offsets ISUB 1); ÿÿÿÿÿÿÿÿÿÿÿ   neuer token index;ÿÿÿÿÿÿÿÿÿÿN   uebertrage token (tf, token text, token anfang, token ende, token typ);ÿÿÿÿÿ   IF   token typ >= text token>        THEN IF offsets THEN lege offsets an (font offsets) FI;N             stranalyze (zeichen zaehler, anzahl zeichen, max int,ÿÿÿÿÿÿÿÿÿÿÿÿÿN                         token text, anfang, token ende, ausgang);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.             a xpos INCR a breite;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   a breite                     := 0;ÿÿÿÿÿÿÿÿÿÿ.   a modifikationen fuer x move := 0;ÿÿÿÿÿÿÿÿÿÿ.   a block token                := FALSE;ÿÿÿÿÿÿ END PROC lege token an;ÿÿÿÿÿÿÿ> PROC uebertrage token (TOKEN VAR tf, TEXT CONST token text,ÿÿÿN                        INT CONST token anfang, token ende, token typ) :ÿÿÿÿÿÿÿ^   tf. text                       := subtext (token text, token anfang, token ende);ÿÿÿÿÿÿÿÿÿÿÿ.   tf. xpos                       := a xpos;ÿÿÿ.   tf. breite                     := a breite;ÿ.   tf. font                       := a font;ÿÿÿ>   tf. modifikationen             := a modifikationen;ÿÿÿÿÿÿÿÿÿN   tf. modifikationen fuer x move := a modifikationen fuer x move;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   tf. offset index               := token typ;>   tf. block token                := a block token;ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC uebertrage token;ÿÿÿÿ> PROC lege markierungs token an (INT CONST mark index) :ÿÿÿÿÿÿÿ>   aktuelle ypos := a ypos + (mark font offsets ISUB 1); ÿÿÿÿÿÿ   neuer token index;ÿÿÿÿÿÿÿÿÿÿ.   tf := mark token (mark index);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   IF mark offsets THEN lege offsets an (mark font offsets) FI;N   . mark font offsets   : y offsets (mark token (mark index). font)ÿÿÿÿÿÿÿÿÿÿÿN   . mark offsets        : LENGTH mark font offsets > int lengthÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC lege markierungs token an;ÿÿÿÿÿÿÿÿÿÿÿ. PROC lege offsets an (TEXT CONST offsets l) :ÿ>   INT CONST anzahl offsets := LENGTH offsets l DIV int length;   INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   offset token := tf;ÿÿÿÿÿÿÿÿÿ.   offset token. block token := FALSE;ÿÿÿÿÿÿÿÿÿ>   reset bit (offset token. modifikationen, underline bit);ÿÿÿÿN   reset bit (offset token. modifikationen fuer x move, underline bit);ÿÿÿÿÿÿÿÿ.   FOR index FROM 2 UPTO anzahl offsetsÿÿÿÿÿÿÿÿ>   REP aktuelle ypos := a ypos + (offsets l ISUB index); ÿÿÿÿÿÿ       neuer token index;ÿÿÿÿÿÿ.       tf               := offset token;ÿÿÿÿÿÿÿ.       tf. offset index := index;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC lege offsets an;ÿÿÿÿÿ PROC neuer token index :ÿÿÿÿÿÿ IF   erster ypos index a = 0ÿÿ      THEN erste yposÿÿÿÿÿÿÿÿÿÿ ELIF ya. ypos = aktuelle ypos .      THEN neues token bei gleicher yposÿÿÿÿÿÿÿ      ELSE fuege neue ypos einÿ   . erste ypos :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       ypos  index f INCR 1;ÿÿÿ>           erster     ypos index a := ypos index f;ÿÿÿÿÿÿÿÿÿÿÿÿ>           letzter    ypos inde, highest bit);ÿ>             IF (pitch <> font. indentation pitch) ORÿÿÿÿÿÿÿÿÿÿN                (link nr > replacements length AND link nr <> maxint)ÿÿÿÿÿÿÿÿÿÿ>                THEN put font char pitch and replacement;ÿÿÿÿÿÿ.                     IF ausgabe ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                        THEN put z;ÿÿÿÿÿÿÿÿÿÿÿÿ.                             ausgabe := FALSE;ÿ.                        ELSE ausgabe := TRUE;ÿÿ                     FI;ÿÿÿÿÿÿÿ.                     z CAT "  "; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         IF ausgabe THEN put z ELSE z := " " FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         . put font char pitch and replacement :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             put char code;ÿÿÿÿ.             put font char pitch; ÿÿÿÿÿÿÿÿÿÿÿÿÿN             IF   link nr > replacements length AND link nr <> maxintÿÿÿÿÿÿÿÿÿÿ.                  THEN put font replacement;ÿÿÿ^                       IF NOT ausgabe THEN z CAT (6 - LENGTH replacement) * " " FI;ÿÿÿÿÿÿÿÿÿÿÿÿ             ELIF ausgabeÿÿÿÿÿÿ.                  THEN z CAT ";"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                  ELSE z CAT ";            ";ÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . put font char pitch :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             IF pitch = max int ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                THEN char pos := pos (font. extension chars, code (char code));.                     IF char pos <> 0ÿÿÿÿÿÿÿÿÿÿ>                        THEN pitch := font table. extensionsÿÿÿ^                               (font. extension indexes ISUB char pos). std pitch ÿÿÿÿÿÿÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             put char pitch; ÿÿ.         . put font replacement :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             link nr DECR replacements length;ÿN             replacement := subtext (font.  replacements, link nr + 1,ÿÿÿÿÿÿÿÿÿN                            link nr + code (font. replacements SUB link nr) );ÿ             put replacement;ÿÿ     . put font extensions :ÿÿÿ.         IF font. extension chars <> ""ÿÿÿÿÿÿÿÿN            THEN FOR index FROM 1 UPTO LENGTH font. extension chars ÿÿÿÿÿÿÿÿÿÿÿ.                 REP put font extension PER;ÿÿÿ     . put font extension :ÿÿÿÿ         check file overflow;ÿÿ         put z;.         z CAT "  EXTENSION  :  """"";ÿÿÿÿÿÿÿÿÿ>         z CAT text 3 (code (font. extension chars SUB index));         z CAT """"";";ÿÿÿÿÿÿÿÿ.         put z; put z; z CAT "  "; ÿÿÿÿÿÿÿÿÿÿÿÿ.         detemine replacements length;ÿÿÿÿÿÿÿÿÿ>         extension nr := font. extension indexes ISUB index;ÿÿÿ         ausgabe      := FALSE;.         FOR char code FROM 0 UPTO 255ÿÿÿÿÿÿÿÿÿ.         REP char code 1 := char code + 1;ÿÿÿÿÿN             pitch       := extension. pitch table (char code 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             link nr     := extension. replacements table (char code 1);ÿÿÿÿÿÿÿN             IF pitch <> extension. std pitch OR link nr > replacements lengthÿ>                THEN put extension char pitch and replacement; .                     IF ausgabe ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                        THEN put z;ÿÿÿÿÿÿÿÿÿÿÿÿ.                             ausgabe := FALSE;ÿ.                        ELSE ausgabe := TRUE;ÿÿ                     FI;ÿÿÿÿÿÿÿ.                     z CAT "  "; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         IF ausgabe THEN put z ELSE z := " " FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . detemine replacements length :ÿÿÿÿÿÿ>             char pos := pos (font table. extension chars,ÿÿÿÿÿN                                          font. extension chars SUB index); ÿÿÿ             IF char pos <> 0ÿÿN                THEN replacements length := LENGTH font table. extensionsÿÿÿÿÿÿ^                   (font table. extension indexes ISUB char pos). replacements; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                ELSE replacements length := 0;ÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         . put extension char pitch and replacement :ÿÿÿÿÿÿÿÿÿÿ             put char code;ÿÿÿÿ             put char pitch;ÿÿÿ.             IF   link nr > replacements length>                  THEN put extension replacement;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^                       IF NOT ausgabe THEN z CAT (6 - LENGTH replacement) * " " FI;ÿÿÿÿÿÿÿÿÿÿÿÿ             ELIF ausgabeÿÿÿÿÿÿ.                  THEN z CAT ";"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                  ELSE z CAT ";            ";ÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . put extension replacement :ÿ.     link nr DECR replacements length;ÿÿÿÿÿÿÿÿÿN     replacement := subtext (extension. replacements, link nr + 1,ÿÿÿÿÿÿÿÿÿÿÿÿÿN                      link nr + code (extension. replacements SUB link nr) );ÿÿ     put replacement;ÿÿÿÿÿÿÿÿÿÿ . put char code :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>     IF (char code >= 32  AND char code <= 122) ORÿÿÿÿÿÿÿÿÿÿÿÿÿ>        (char code >= 214 AND char code <= 223) ORÿÿÿÿÿÿÿÿÿÿÿÿÿN         char code  = 124  OR char code  = 126  OR char code  = 251ÿÿÿÿÿÿÿÿÿÿÿÿ        THEN z CAT "(* ";ÿÿÿÿÿÿ.             z CAT code (char code);ÿÿÿÿÿÿÿÿÿÿÿ             z CAT " *) """"";ÿ.        ELSE z CAT "        """"";ÿÿÿÿÿÿÿÿÿÿÿÿÿ     z CAT text 3 (char code);ÿ     z CAT """""";ÿÿÿÿÿÿÿÿÿÿÿÿÿ . put char pitch : ÿÿÿÿÿÿÿÿÿÿÿ     z CAT ",";     z CAT text (pitch, 5);ÿÿÿÿ . put replacement :ÿÿÿÿÿÿÿÿÿÿÿ     decode (replacement);ÿÿÿÿÿ     z CAT ",   """;ÿÿÿÿÿÿÿÿÿÿÿ     z CAT replacement;ÿÿÿÿÿÿÿÿ     z CAT """;"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC create font file;ÿÿÿÿ   putline (font file, z);ÿÿÿÿÿ   cout (lines (font file));ÿÿÿ END PROC put z;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC decode (TEXT VAR string) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   change all (string, """", """""");ÿÿÿÿÿÿÿÿÿÿ.   p := pos (string, ""0"", ""31"", 1);ÿÿÿÿÿÿÿÿ   WHILE p <> 0N   REP change (string, p, p, """" + text (code(string SUB p)) + """");ÿÿÿÿÿÿÿÿÿ.       p := pos (string, ""0"", ""31"", p);ÿÿÿÿ.   p := pos (string, ""127"", ""255"", 1);ÿÿÿÿÿ   WHILE p <> 0N   REP change (string, p, p, """" + text (code(string SUB p)) + """");ÿÿÿÿÿÿÿÿÿ.       p := pos (string, ""127"", ""255"", p);ÿ END PROC decode;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT PROC text 3 (INT CONST value) :ÿÿÿÿÿÿÿÿÿÿ   buffer := text (value, 3);ÿÿ.   change all (buffer, " ", "0");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC text 3;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PACKET font convertor;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ	TeCal.genÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿx a := ypos index f;ÿÿÿÿÿÿÿÿÿÿÿÿ.       yf. vorheriger ypos index   := 0;ÿÿÿÿÿÿÿ.       yf. naechster  ypos index   := 0;ÿÿÿÿÿÿÿ.       erstes token bei neuer ypos;ÿÿÿÿÿÿÿÿÿÿÿÿ   . fuege neue ypos ein :ÿÿÿÿÿ.       letztes token bei gleicher ypos;ÿÿÿÿÿÿÿÿ.       IF ya. ypos > aktuelle yposÿÿÿÿÿÿÿÿÿÿÿÿÿ.          THEN richtige ypos ist oberhalbÿÿÿÿÿÿ.          ELSE richtige ypos ist unterhalbÿÿÿÿÿ.       . richtige ypos ist oberhalb :ÿÿÿÿÿÿÿÿÿÿ>           REP ypos index a := ya. vorheriger ypos index;ÿÿÿÿÿÿ.               IF   ypos index a = 0ÿÿÿÿÿÿÿÿÿÿÿ>                    THEN fuege ypos vor erstem ypos index ein;ÿ>                         LEAVE richtige ypos ist oberhalb;ÿÿÿÿÿ.               ELIF ya. ypos = aktuelle yposÿÿÿ>                    THEN neues token bei neuer ypos;ÿÿÿÿÿÿÿÿÿÿÿ>                         LEAVE richtige ypos ist oberhalb;ÿÿÿÿÿ.               ELIF ya. ypos < aktuelle yposÿÿÿ>                    THEN fuege ypos nach ypos index ein;ÿÿÿÿÿÿÿ>                         LEAVE richtige ypos ist oberhalb;ÿÿÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ           PER;.       . richtige ypos ist unterhalb :ÿÿÿÿÿÿÿÿÿ>           REP ypos index a := ya. naechster ypos index;ÿÿÿÿÿÿÿ.               IF   ypos index a = 0ÿÿÿÿÿÿÿÿÿÿÿN                    THEN fuege ypos nach letztem ypos index ein;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                         LEAVE richtige ypos ist unterhalb;ÿÿÿÿ.               ELIF ya. ypos = aktuelle yposÿÿÿ>                    THEN neues token bei neuer ypos;ÿÿÿÿÿÿÿÿÿÿÿ>                         LEAVE richtige ypos ist unterhalb;ÿÿÿÿ.               ELIF ya. ypos > aktuelle ypos ÿÿ>                    THEN fuege ypos vor ypos index ein;ÿÿÿÿÿÿÿÿ>                         LEAVE richtige ypos ist unterhalb;ÿÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ           PER;>           . fuege ypos vor erstem ypos index ein :ÿÿÿÿÿÿÿÿÿÿÿÿ.               ypos  index f INCR 1;ÿÿÿÿÿÿÿÿÿÿÿ>               yf. vorheriger ypos index   := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN               yf. naechster  ypos index   :=     erster    ypos index a;ÿÿÿÿÿÿN                   erster     ypos index a :=               ypos index f;ÿÿÿÿÿÿN                              ypos index a := yf. naechster ypos index;ÿÿÿÿÿÿÿÿN               ya. vorheriger ypos index   :=               ypos index f;ÿÿÿÿÿÿ.               erstes token bei neuer ypos;ÿÿÿÿ.           . fuege ypos nach ypos index ein :ÿÿ.               ypos  index f INCR 1;ÿÿÿÿÿÿÿÿÿÿÿN               yf. vorheriger ypos index   :=               ypos index a;ÿÿÿÿÿÿN               yf. naechster  ypos index   := ya. naechster ypos index;ÿÿÿÿÿÿÿÿN               ya. naechster  ypos index   :=               ypos index f;ÿÿÿÿÿÿN                              ypos index a := yf. naechster ypos index;ÿÿÿÿÿÿÿÿN               ya. vorheriger ypos index   :=               ypos index f;ÿÿÿÿÿÿ.               erstes token bei neuer ypos;ÿÿÿÿ.           . fuege ypos vor ypos index ein :ÿÿÿ.               ypos  index f INCR 1;ÿÿÿÿÿÿÿÿÿÿÿN               yf. naechster  ypos index   :=                ypos index a;ÿÿÿÿÿN               yf. vorheriger ypos index   := ya. vorheriger ypos index;ÿÿÿÿÿÿÿN               ya. vorheriger ypos index   :=                ypos index f;ÿÿÿÿÿN                              ypos index a := yf. vorheriger ypos index;ÿÿÿÿÿÿÿN               ya. naechster  ypos index   :=                ypos index f;ÿÿÿÿÿ.               erstes token bei neuer ypos;ÿÿÿÿ>           . fuege ypos nach letztem ypos index ein :ÿÿÿÿÿÿÿÿÿÿ.               ypos  index f INCR 1;ÿÿÿÿÿÿÿÿÿÿÿ>               yf. naechster  ypos index   := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN               yf. vorheriger ypos index   :=     letzter    ypos index a;ÿÿÿÿÿN                   letzter    ypos index a :=                ypos index f;ÿÿÿÿÿN                              ypos index a := yf. vorheriger ypos index;ÿÿÿÿÿÿÿN               ya. naechster  ypos index   :=                ypos index f;ÿÿÿÿÿ.               erstes token bei neuer ypos;ÿÿÿÿ END PROC neuer token index;ÿÿÿ. PROC erstes token bei neuer ypos :ÿÿÿÿÿÿÿÿÿÿÿÿ      token index f INCR 1;ÿÿÿÿ.                  ypos index a := ypos index f;>      ya. erster token index   := token index f; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>      ya. ypos                 := aktuelle ypos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC erstes token bei neuer ypos;ÿÿÿÿÿÿÿÿÿ. PROC neues token bei neuer ypos :ÿÿÿÿÿÿÿÿÿÿÿÿÿ      token index f INCR 1;ÿÿÿÿ>      ya. ypos                 := aktuelle ypos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                   token index := ya. letzter token index;ÿÿÿÿÿ>      t. naechster token index := token index f;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC neues token bei neuer ypos;ÿÿÿÿÿÿÿÿÿÿ. PROC neues token bei gleicher ypos :ÿÿÿÿÿÿÿÿÿÿ>      tf. naechster token index := token index f + 1;ÿÿÿÿÿÿÿÿÿÿ      token index f INCR 1;ÿÿÿÿ. END PROC neues token bei gleicher ypos;ÿÿÿÿÿÿÿ. PROC letztes token bei gleicher ypos : ÿÿÿÿÿÿÿ.      tf. naechster token index := 0;ÿÿÿÿÿÿÿÿÿÿ>      ya. letzter   token index := token index f;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC letztes token bei gleicher ypos;ÿÿÿÿÿ PROC loesche letztes token :ÿÿ>      IF token index f = ya. erster token index ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         THEN loesche yposÿÿÿÿÿ.         ELSE token index f DECR 1;ÿÿÿÿÿÿÿÿÿÿÿÿ      . loesche ypos :ÿÿÿÿÿÿÿÿÿ          kette vorgaenger um;ÿ          kette nachfolger um;ÿ.          bestimme letzten ypos index;ÿÿÿÿÿÿÿÿÿ.          . kette vorgaenger um :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              ypos index := ya. vorheriger ypos index; ÿÿÿÿÿÿÿÿ              IF ypos index = 0N                 THEN       erster ypos index a := ya. naechster ypos index;ÿÿÿN                 ELSE y. naechster ypos index   := ya. naechster ypos index; ÿÿ              FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          . kette nachfolger um :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              ypos index := ya. naechster ypos index;ÿÿÿÿÿÿÿÿÿÿ              IF ypos index = 0N                 THEN       letzter ypos index a := ya. vorheriger ypos index;ÿN                 ELSE y. vorheriger ypos index   := ya. vorheriger ypos index;               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          . bestimme letzten ypos index :ÿÿÿÿÿÿN              IF ypos index a = ypos index f THEN ypos index f DECR 1 FI;ÿÿÿÿÿÿ.              token index f DECR 1;ÿÿÿÿÿÿÿÿÿÿÿÿ>              ypos index a := letzter ypos index a; ÿÿÿÿÿÿÿÿÿÿÿ.              WHILE ypos index a <> 0ÿÿÿÿÿÿÿÿÿÿN                        CAND ya. letzter token index <> token index fÿÿÿÿÿÿÿÿÿÿN              REP ypos index a := ya. vorheriger ypos index PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC loesche letztes token;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC blocke token xpos (INT CONST dehnung 1, dehnung 2,ÿÿÿÿÿÿÿN                                   anzahl dehnungen fuer dehnung 1 ) :ÿÿÿÿÿÿÿÿÿ.   INT VAR dehnung := 0, anzahl dehnungen := 0;.   token index := erstes tab token;ÿÿÿÿÿÿÿÿÿÿÿÿ.   WHILE token index <= token index fÿÿÿÿÿÿÿÿÿÿ.   REP erhoehe token xpos bei block token;ÿÿÿÿÿ       t. xpos INCR dehnung;ÿÿÿ       token index INCR 1; ÿÿÿÿ.   . erhoehe token xpos bei block token :ÿÿÿÿÿÿ       IF t. block tokenÿÿÿÿÿÿÿN          THEN IF anzahl dehnungen < anzahl dehnungen fuer dehnung 1ÿÿÿÿÿÿÿÿÿÿÿ.                  THEN anzahl dehnungen INCR 1;.                       dehnung INCR dehnung 1;ÿ.                  ELSE dehnung INCR dehnung 2;ÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC blocke token xpos;ÿÿÿ> PROC verschiebe token xpos (INT CONST verschiebung l) :ÿÿÿÿÿÿÿ.   token index := erstes tab token;ÿÿÿÿÿÿÿÿÿÿÿÿ.   WHILE token index <= token index fÿÿÿÿÿÿÿÿÿÿ.   REP t. xpos INCR verschiebung l;ÿÿÿÿÿÿÿÿÿÿÿÿ       token index INCR 1; ÿÿÿÿ. END PROC verschiebe token xpos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC verschiebe token ypos (INT CONST verschiebung l) :ÿÿÿÿÿÿÿ.   ypos index := erster ypos index a;ÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆa€ëÿÿ9  9 6 6  ´      ÿÿÿÿ       ´         ´  :  >M ùþ    ÿÿ   ÿÿÿÿ	TeCal.genÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  9 ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ€ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	checkoff;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿinsert tecal;ÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‚ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  i:= 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
    TRUE .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LET tecal    = "TeCal",ÿÿÿÿÿÿÿ.     auskunft = "TeCal Auskunft";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> IF NOT exists ("TeCal") THEN fetch ("TeCal",archive) FI;ÿÿÿÿÿÿN IF NOT exists ("TeCal Auskunft") THEN fetch ("TeCal Auskunft",archive) FI;ÿÿÿÿ insert auskunft;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ shorten auskunft file;ÿÿÿÿÿÿÿÿ forget ("Tecal.gen", quiet).ÿÿ insert tecal   :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   display (""13""10""15" TeCal-Rechner wird installiert  "14""13""10"");ÿÿÿÿÿÿ   insert (tecal);ÿÿÿÿÿÿÿÿÿÿÿÿÿ   forget (tecal, quiet).ÿÿÿÿÿÿ insert auskunft:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   display (""13""15" TeCal-Auskunftfile wird installiert  "14""13""10"");ÿÿÿÿÿ   insert (auskunft).ÿÿÿÿÿÿÿÿÿÿ shorten auskunft file :ÿÿÿÿÿÿÿN   display (""13""10""15" TeCal-Auskunftfile wird komprimiert  "14""13""10"");ÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   DATASPACE VAR dspace := nil space;ÿÿÿÿÿÿÿÿÿÿ>   FILE      VAR file   := sequential file ( input, auskunft),ÿ>                 shorted:= sequential file (output, dspace);ÿÿÿ   TEXT      VAR buffer;ÿÿÿÿÿÿÿ    INT      VAR i;ÿÿÿÿÿÿÿÿÿÿÿÿ   WHILE NOT eof (file)ÿÿÿÿÿÿÿÿ.   REPEAT get line (file, buffer)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   UNTIL  (pos ("(*", buffer) > 0) OR is error PER;ÿÿÿÿÿÿÿÿÿÿÿÿ.   IF eof (file) COR text not transferedÿÿÿÿÿÿÿN      THEN errorstop ("TeCal-Auskunftsfile ist bereits komprimiert!"13""10"" +ÿN                      "'ESC <?>' funktioniert wahrscheinlich nicht."13""10"" +ÿN                      "Bitte ORIGINAL Auskunftsfile von Diskette verwenden")ÿÿÿ.      ELSE forget (auskunft, quiet);ÿÿÿÿÿÿÿÿÿÿÿ.           copy (dspace, auskunft)ÿÿÿÿÿÿÿÿÿÿÿÿÿ   forget (dspace) .ÿÿÿÿÿÿÿÿÿÿÿ  text not transfered :ÿÿÿÿÿÿÿÿ     WHILE NOT eof (file)ÿÿÿÿÿÿ     REPEAT cout (i);ÿÿÿÿÿÿÿÿÿÿ.            get line (file, buffer);ÿÿÿÿÿÿÿÿÿÿÿ.            IF pos (buffer, "*)") > 0ÿÿÿÿÿÿÿÿÿÿ>               THEN LEAVE text not transfered WITH FALSEÿÿÿÿÿÿÿ.               ELSE put line (shorted, buffer)ÿ            FI;            i INCR 1ÿÿÿÿÿÿÿÿÿÿÿ     UNTIL is error PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   WHILE ypos index <> 0ÿÿÿÿÿÿÿ.   REP y. ypos INCR verschiebung l; ÿÿÿÿÿÿÿÿÿÿÿ.       ypos index := y. naechster ypos index;ÿÿ. END PROC verschiebe token ypos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC sortiere neue token ein : INT VAR index; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. IF analysespeicher ist nicht leerÿÿÿÿÿÿÿÿÿÿÿÿÿ.    THEN IF druckspeicher ist nicht leerÿÿÿÿÿÿÿ>            THEN sortiere neue token in sortierte liste einÿÿÿÿ.            ELSE sortierte liste ist leerÿÿÿÿÿÿ . sortierte liste ist leer :ÿÿ.     IF erster ypos index a <> 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN erster  ypos index d := erster  ypos index a;ÿÿÿÿÿ>             letzter ypos index d := letzter ypos index a;ÿÿÿÿÿ>                     ypos index d := letzter ypos index a;ÿÿÿÿÿ. . sortiere neue token in sortierte liste ein :.     gehe zum ersten neuen token;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     bestimme erste einsortierposition;ÿÿÿÿÿÿÿÿ.     WHILE es gibt noch neue tokenÿÿÿÿÿÿÿÿÿÿÿÿÿ     REP IF   ypos index d = 0ÿN              THEN haenge neue token ans ende der sortierten liste ÿÿÿÿÿÿÿÿÿÿÿÿ.         ELIF ya. ypos > yd. yposÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              THEN naechste ypos der sortierten listeÿÿÿÿÿÿÿÿÿÿ.         ELIF ya. ypos = yd. yposÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              THEN neues token auf gleicher yposÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.              ELSE neue token vor yposÿÿÿÿÿÿÿÿÿ.     . gehe zum ersten neuen token :ÿÿÿÿÿÿÿÿÿÿÿ.         ypos index a := erster ypos index a;ÿÿ.     . bestimme erste einsortierposition :ÿÿÿÿÿ>         WHILE ypos index d <> 0  CAND  ya. ypos < yd. yposÿÿÿÿ>           REP ypos index d := yd. vorheriger ypos index PER;ÿÿN         IF ypos index d = 0 THEN erste neue token vor listen anfang FI;ÿÿÿÿÿÿÿ.         . erste neue token vor listen anfang :>                    ypos index d := erster ypos index d;ÿÿÿÿÿÿÿ>             erster ypos index d := erster ypos index a;ÿÿÿÿÿÿÿ>             REP ypos index a := ya. naechster ypos index;ÿÿÿÿÿ.                 IF   ypos index a = 0ÿÿÿÿÿÿÿÿÿ>                      THEN verkette letztes ya mit yd;ÿÿÿÿÿÿÿÿÿN                           LEAVE sortiere neue token in sortierte liste einÿÿÿÿ.                 ELIF ya. ypos = yd. yposÿÿÿÿÿÿ.                      THEN verkette ya mit yd;ÿN                           LEAVE erste neue token vor listen anfangÿÿÿÿÿÿÿÿÿÿÿÿ.                 ELIF ya. ypos > yd. yposÿÿÿÿÿÿ>                      THEN verkette vorheriges ya mit yd;ÿÿÿÿÿÿN                           ypos index d := yd. naechster ypos index;ÿÿÿÿÿÿÿÿÿÿÿN                           LEAVE erste neue token vor listen anfangÿÿÿÿÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ             PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . es gibt noch neue token :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         ypos index a <> 0ÿÿÿÿÿ>     . haenge neue token ans ende der sortierten liste : ÿÿÿÿÿÿ>                        ypos index d := letzter ypos index d;ÿÿ>         yd. naechster  ypos index   :=         ypos index a;ÿÿ>         ya. vorheriger ypos index   :=         ypos index d;ÿÿ>             letzter    ypos index d := letzter ypos index a;ÿÿ>                        ypos index d := letzter ypos index a;ÿÿ.                        ypos index a := 0;ÿÿÿÿÿ.     . naechste ypos der sortierten liste :ÿÿÿÿ>         ypos index d := yd. naechster ypos index;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . neues token auf gleicher ypos :ÿÿÿÿÿÿÿÿÿN                       token index   := yd. letzter   token index;ÿÿÿÿÿÿÿÿÿÿÿÿÿN         t . naechster token index   := ya. erster    token index;ÿÿÿÿÿÿÿÿÿÿÿÿÿN         yd. letzter   token index   := ya. letzter   token index;ÿÿÿÿÿÿÿÿÿÿÿÿÿN                       ypos  index a := ya. naechster ypos  index;ÿÿÿÿÿÿÿÿÿÿÿÿÿN                       ypos  index d := yd. naechster ypos  index;ÿÿÿÿÿÿÿÿÿÿÿÿÿN         IF ypos index d = 0 THEN ypos index d := letzter ypos index d FI;ÿÿÿÿÿ     . neue token vor ypos :ÿÿÿ.         verkette ya mit vorherigem yd;ÿÿÿÿÿÿÿÿ>         REP ypos index a := ya. naechster ypos index;ÿÿÿÿÿÿÿÿÿ.             IF   ypos index a = 0ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                  THEN verkette letztes ya mit yd;ÿÿÿÿÿÿÿÿÿÿÿÿÿN                       LEAVE sortiere neue token in sortierte liste einÿÿÿÿÿÿÿÿ.             ELIF ya. ypos = yd. yposÿÿÿÿÿÿÿÿÿÿ.                  THEN verkette ya mit yd;ÿÿÿÿÿ>                       LEAVE neue token vor yposÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             ELIF ya. ypos > yd. ypos ÿÿÿÿÿÿÿÿÿ>                  THEN verkette vorheriges ya mit yd;ÿÿÿÿÿÿÿÿÿÿN                       ypos index d := yd. naechster ypos index;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                       LEAVE neue token vor yposÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. . verkette ya mit vorherigem yd :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                         index   := ypos index d;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                    ypos index d := yd. vorheriger ypos index; N     yd. naechster  ypos index   :=                ypos index a;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     ya. vorheriger ypos index   :=                ypos index d;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                    ypos index d := index;ÿÿÿÿÿ . verkette letztes ya mit yd :>                    ypos index a := letzter ypos index a;ÿÿÿÿÿÿ>     yd. vorheriger ypos index   :=         ypos index a;ÿÿÿÿÿÿ>     ya. naechster  ypos index   :=         ypos index d;ÿÿÿÿÿÿ.                    ypos index a := 0;ÿÿÿÿÿÿÿÿÿ. . verkette vorheriges ya mit yd :ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                         index   := ypos index a;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                    ypos index a := ya. vorheriger ypos index; >     yd. vorheriger ypos index   :=         ypos index a;ÿÿÿÿÿÿ>     ya. naechster  ypos index   :=         ypos index d;ÿÿÿÿÿÿ.                    ypos index a := index;ÿÿÿÿÿ . verkette ya mit yd :ÿÿÿÿÿÿÿÿ.     verkette vorheriges ya mit yd;ÿÿÿÿÿÿÿÿÿÿÿÿ.     neues token auf gleicher ypos;ÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC sortiere neue token ein;ÿÿÿÿÿÿÿÿÿÿÿÿÿN (***************************************************************)ÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC drucke tokenspeicherÿÿÿÿÿ.              (INT CONST max ypos,ÿÿÿÿÿÿÿÿÿÿÿÿÿN               PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿ. IF druckspeicher ist nicht leerÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    THEN gehe zur ersten ypos; .         WHILE yd. ypos <= max ypos ÿÿÿÿÿÿÿÿÿÿÿ.         REP drucke token bei ypos;ÿÿÿÿÿÿÿÿÿÿÿÿ.             gehe zur naechsten ypos; ÿÿÿÿÿÿÿÿÿ.         loesche gedruckte token;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . gehe zur ersten ypos :ÿÿÿÿÿÿ.     ypos index d := erster ypos index d;ÿÿÿÿÿÿ . drucke token bei ypos :ÿÿÿÿÿ     IF yd. ypos >= - y startÿÿ        THEN druck durchgang;ÿÿ>             IF bold      pass THEN fett         durchgang FI;ÿ>             IF underline pass THEN unterstreich durchgang FI;ÿ.     . bold      pass : bit (pass, bold bit)ÿÿÿ>     . underline pass : bit (pass, underline bit)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . gehe zur naechsten ypos : ÿÿ.     IF ypos index d = letzter ypos index dÿÿÿÿ.        THEN loesche druckspeicher;ÿÿÿÿÿÿÿÿÿÿÿÿ.             LEAVE drucke tokenspeicher;ÿÿÿÿÿÿÿ.     ypos index d := yd. naechster ypos index;ÿ . loesche gedruckte token :ÿÿÿ>         erster     ypos index d := ypos index d;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     yd. vorheriger ypos index   := 0;ÿÿÿÿÿÿÿÿÿ   druck durchgang :ÿÿÿÿÿÿÿÿÿÿÿ.     verschiebung := yd. ypos - d ypos;ÿÿÿÿÿÿÿÿN     y move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿ.     gehe zum ersten token dieser ypos; ÿÿÿÿÿÿÿ>     REP drucke token UNTIL kein token mehr vorhanden PER;ÿÿÿÿÿ     . drucke token :ÿÿÿÿÿÿÿÿÿÿ.         IF NOT token passt in zeileÿÿÿÿÿÿÿÿÿÿÿ.            THEN IF token ist text tokenÿÿÿÿÿÿÿ.                    THEN berechne token teilÿÿÿ.                    ELSE LEAVE drucke tokenÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ.         font wechsel wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>         x move mit modifikations ueberpruefung; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         IF   token ist text toÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööökenÿÿÿÿÿÿÿÿÿÿÿÿÿ.              THEN gib text token ausÿÿÿÿÿÿÿÿÿÿ^                     (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.         ELIF token ist linien tokenÿÿÿÿÿÿÿÿÿÿÿ.              THEN gib linien token ausÿÿÿÿÿÿÿÿ.              ELSE gib kommando token ausÿÿÿÿÿÿ     . gib linien token aus :ÿÿ>         linien verschiebung := d token. breite;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^         ziehe horizontale linie (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿ     . gib kommando token aus :N         execute (write cmd, d token. text, 1, LENGTH d token. text)ÿÿÿÿÿÿÿÿÿÿÿ.         . berechne token teil :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             INT CONST fuenf punkte := 5 * char pitch (d token. font, punkt);ÿÿ^             INT VAR token pos, token breite, anzahl punkte, zeichen laenge, zeichen breite; ÿÿ.             IF   d token. xpos < - x startÿÿÿÿN                    AND d token. xpos + d token. breite > - x start ÿÿÿÿÿÿÿÿÿÿÿ>                  THEN berechne token teil von linksÿÿÿÿÿÿÿÿÿÿÿ.             ELIF d token. xpos < papierbreiteÿN                    AND d token. xpos + d token. breite > papierbreiteÿÿÿÿÿÿÿÿÿ>                  THEN berechne token teil nach rechtsÿÿÿÿÿÿÿÿÿ.                  ELSE LEAVE drucke tokenÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . berechne token teil von links :ÿÿÿÿÿ^             rest          := min (x size, d token. xpos + d token. breite + x start);ÿÿÿÿÿÿÿÿÿ.             d token. xpos := - x start;ÿÿÿÿÿÿÿ.             IF rest <= fuenf punkte ÿÿÿÿÿÿÿÿÿÿ^                THEN anzahl punkte   := rest DIV char pitch (d token. font, punkt);ÿÿÿÿÿÿÿÿÿÿÿÿ>                     d token. text   := anzahl punkte * punkt;ÿ^                     d token. breite := anzahl punkte * char pitch (d token. font, punkt);ÿÿÿÿÿ>                ELSE token pos    := LENGTH d token. text + 1;ÿ>                     token breite := fuenf punkte;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                     berechne token teil breite von hinten;ÿÿÿÿN                     change (d token. text, 1, token pos - 1, 5 * punkt);ÿÿÿÿÿÿ>                     d token. breite := token breite;ÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             . berechne token teil breite von hinten :ÿÿÿÿÿÿÿÿÿ>                 WHILE naechstes zeichen passt noch davorÿÿÿÿÿÿ>                 REP token breite INCR zeichen breite; ÿÿÿÿÿÿÿÿ>                     token pos    DECR zeichen laenge;ÿÿÿÿÿÿÿÿÿ                 PER;ÿÿÿÿÿÿÿÿÿÿ>             . naechstes zeichen passt noch davor :ÿÿÿÿÿÿÿÿÿÿÿÿN                 IF within kanji (d token. text, token pos - 1) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                    THEN zeichen laenge := 2ÿÿÿ.                    ELSE zeichen laenge := 1ÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ>                 zeichen breite := char pitch (d token. font,ÿÿ^                     subtext (d token. text, token pos - zeichen laenge, token pos - 1));ÿÿÿÿÿÿ>                 token breite + zeichen breite < restÿÿÿÿÿÿÿÿÿÿ.         . berechne token teil nach rechts :ÿÿÿ>             rest := papier breite - d token. xpos;ÿÿÿÿÿÿÿÿÿÿÿÿ.             IF rest <= fuenf punkte ÿÿÿÿÿÿÿÿÿÿ^                THEN anzahl punkte   := rest DIV char pitch (d token. font, punkt);ÿÿÿÿÿÿÿÿÿÿÿÿ>                     d token. text   := anzahl punkte * punkt;ÿ^                     d token. breite := anzahl punkte * char pitch (d token. font, punkt);ÿÿÿÿÿ.                ELSE token pos    := 0;ÿÿÿÿÿÿÿÿ>                     token breite := fuenf punkte;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                     berechne token teil breite von vorne;ÿÿÿÿÿ^                     change (d token. text, token pos + 1, LENGTH d token. text, 5 * punkt);ÿÿÿ>                     d token. breite := token breite;ÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             . berechne token teil breite von vorne :ÿÿÿÿÿÿÿÿÿÿ>                 WHILE naechstes zeichen passt noch dahinterÿÿÿ>                 REP token breite INCR zeichen breite; ÿÿÿÿÿÿÿÿ>                     token pos    INCR zeichen laenge;ÿÿÿÿÿÿÿÿÿ                 PER;ÿÿÿÿÿÿÿÿÿÿ>             . naechstes zeichen passt noch dahinter :ÿÿÿÿÿÿÿÿÿN                 IF is kanji esc (d token. text SUB token pos + 1) ÿÿÿÿÿÿÿÿÿÿÿÿ.                    THEN zeichen laenge := 2ÿÿÿ.                    ELSE zeichen laenge := 1ÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ>                 zeichen breite := char pitch (d token. font,ÿÿ^                     subtext (d token. text, token pos + 1, token pos + zeichen laenge));ÿÿÿÿÿÿ>                 token breite + zeichen breite < restÿÿÿÿÿÿÿÿÿÿ   fett durchgang :ÿÿÿÿÿÿÿÿÿÿÿÿ.     reset bit (pass, bold bit);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     gib cr aus;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     gehe zum ersten token dieser ypos;ÿÿÿÿÿÿÿÿN     REP gib token nochmal aus UNTIL kein token mehr vorhanden PER;ÿÿÿÿÿÿÿÿÿÿÿÿ.     schalte modifikationen aus wenn noetig;ÿÿÿ     . gib token nochmal aus :ÿN         INT CONST min verschiebung := bold offset (d token. font); ÿÿÿÿÿÿÿÿÿÿÿ.         d token. xpos INCR min verschiebung;ÿÿ>         IF bit (d token. modifikationen, bold bit) ANDÿÿÿÿÿÿÿÿ>                token passt in zeile AND token ist text token ÿ>           THEN verschiebung := d token. xpos - d xpos;ÿÿÿÿÿÿÿÿ.                font wechsel wenn noetig;ÿÿÿÿÿÿ>                schalte italics ein wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                x move wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿÿn                gib text token aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         d token. xpos DECR min verschiebung;ÿÿ.         . schalte italics ein wenn noetig :ÿÿÿ>             IF bit (d token. modifikationen, italics bit)ÿÿÿÿÿ^                THEN neue modifikationen := modifikations werte (italics bit + 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                     schalte modifikationen ein wenn noetig;ÿÿÿ>                ELSE schalte modifikationen aus wenn noetig;ÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   unterstreich durchgang :ÿÿÿÿ     INT VAR l xpos := 0;ÿÿÿÿÿÿ.     reset bit (pass, underline bit);ÿÿÿÿÿÿÿÿÿÿ     gib cr aus;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     schalte modifikationen aus wenn noetig;ÿÿÿ.     gehe zum ersten token dieser ypos;ÿÿÿÿÿÿÿÿN     REP unterstreiche token UNTIL kein token mehr vorhanden PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . unterstreiche token :ÿÿÿ.         IF token muss unterstrichen werden AND>                 token passt in zeile AND token ist text token .            THEN font wechsel wenn noetig;ÿÿÿÿÿ.                 berechne x move laenge; ÿÿÿÿÿÿ.                 x move wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿ.                 berechne unterstreich laenge;ÿn                 ziehe horizontale linie (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿ>          l xpos := d token. xpos + d token. breite;ÿÿÿÿÿÿÿÿÿÿÿ.          . token muss unterstrichen werden :ÿÿ>              bit (d token. modifikationen, underline bit) ORÿÿN                 bit (d token. modifikationen fuer x move, underline bit)ÿÿÿÿÿÿ.          . berechne x move laenge :ÿÿÿÿÿÿÿÿÿÿÿN              IF bit (d token. modifikationen fuer x move, underline bit) ÿÿÿÿÿ>                 THEN verschiebung := l  xpos - d xposÿÿÿÿÿÿÿÿÿ>                 ELSE verschiebung := d token. xpos - d xposÿÿÿ              FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          . berechne unterstreich laenge :ÿÿÿÿÿ>              IF bit (d token. modifikationen, underline bit) ÿ>                 THEN linien verschiebung := d token. xpos + ÿÿN                                                 d token. breite - d xposÿÿÿÿÿÿN                 ELSE linien verschiebung := d token. xpos - d xposÿÿÿÿÿÿÿÿÿÿÿÿ              FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>              d token. offset index := - underline line type;ÿÿ. . gehe zum ersten token dieser ypos :ÿÿÿÿÿÿÿÿÿ.     token index := yd. erster token index;ÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö     d token := t;ÿÿÿÿÿÿÿÿÿÿÿÿÿ . kein token mehr vorhanden :ÿ>     token index := d token. naechster token  index;ÿÿÿÿÿÿÿÿÿÿÿ     IF token index = 0ÿÿÿÿÿÿÿÿ        THEN TRUEÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        ELSE d token := t;ÿÿÿÿÿ             FALSEÿÿÿÿÿÿÿÿÿÿÿÿÿ . token ist text token :ÿÿÿÿÿÿ.     d token. offset index >= text tokenÿÿÿÿÿÿÿ . token ist linien token :ÿÿÿÿ.     d token. offset index <= linien tokenÿÿÿÿÿ . token passt in zeile :ÿÿÿÿÿÿ.     d token. xpos >= - x start ANDÿÿÿÿÿÿÿÿÿÿÿÿ>          d token. xpos + d token. breite <= papier breite ÿÿÿÿ . font wechsel wenn noetig :ÿÿ.     IF d token. font <>  d fontÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ^        THEN font wechsel (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) FI;ÿÿÿÿÿ. . schalte modifikationen ein wenn noetig :ÿÿÿÿ.     IF d modifikationen <> neue modifikationenn        THEN schalte modifikationen ein (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) FI;ÿÿÿÿÿÿÿ. . schalte modifikationen aus wenn noetig :ÿÿÿÿ     IF d modifikationen <> 0ÿÿn        THEN schalte modifikationen aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) FI;ÿÿÿÿÿÿÿ . x move wenn noetig :ÿÿÿÿÿÿÿÿ     IF verschiebung <> 0ÿÿÿÿÿÿ^        THEN x move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) FI; ÿÿÿÿÿÿÿÿÿÿ.   x move mit modifikations ueberpruefung :ÿÿÿÿ.     verschiebung := d token. xpos - d xpos;ÿÿÿ     IF verschiebung <> 0ÿÿÿÿÿÿN        THEN neue modifikationen := d token. modifikationen fuer x move;ÿÿÿÿÿÿÿ>             schalte modifikationen ein wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿ^             x move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     neue modifikationen := d token. modifikationen;ÿÿÿÿÿÿÿÿÿÿÿ.     schalte modifikationen ein wenn noetig;ÿÿÿ . gib cr aus :     IF d xpos <> 0ÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN execute (carriage return, "", d xpos, 0);ÿÿÿÿÿÿÿÿÿ             d xpos := 0;ÿÿÿÿÿÿ END PROC drucke tokenspeicher;^ PROC ziehe horizontale linie (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿ     IF linien verschiebung > 0        THEN disable stop; ÿÿÿÿ.             d xpos INCR linien verschiebung;ÿÿ>             execute (draw, "", linien verschiebung, 0);ÿÿÿÿÿÿÿ             IF is errorÿÿÿÿÿÿÿ>                THEN ziehe horizontale linie nach cr;ÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             enable stop;ÿÿÿÿÿÿ.     . ziehe horizontale linie nach cr :ÿÿÿÿÿÿÿ         clear error;ÿÿÿÿÿÿÿÿÿÿ.         d xpos DECR linien verschiebung;ÿÿÿÿÿÿ.         verschiebung := d xpos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         gib cr aus;ÿÿÿÿÿÿÿÿÿÿÿN         x move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿ.         d xpos INCR linien verschiebung;ÿÿÿÿÿÿ>         execute (draw, "", linien verschiebung, 0);ÿÿÿÿÿÿÿÿÿÿÿ         IF is errorÿÿÿÿÿÿÿÿÿÿÿ            THEN clear error; ÿ>                 d xpos DECR linien verschiebung;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     . gib cr aus :ÿÿÿÿÿÿÿÿÿÿÿÿ         IF d xpos <> 0ÿÿÿÿÿÿÿÿ>            THEN execute (carriage return, "", d xpos, 0);ÿÿÿÿÿ                 d xpos := 0;ÿÿ. END PROC ziehe horizontale linie;ÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC y move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿ     IF verschiebung <> 0ÿÿÿÿÿÿ        THEN gib cr aus;ÿÿÿÿÿÿÿ             disable stop; ÿÿÿÿ.             d ypos INCR verschiebung;ÿÿÿÿÿÿÿÿÿ>             execute (move, "", 0, verschiebung);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             IF is errorÿÿÿÿÿÿÿ.                THEN clear error;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                     d ypos DECR verschiebung;ÿ.                     verschiebung := 0;ÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             enable stop;ÿÿÿÿÿÿ     . gib cr aus :ÿÿÿÿÿÿÿÿÿÿÿÿ         IF d xpos <> 0ÿÿÿÿÿÿÿÿ>            THEN execute (carriage return, "", d xpos, 0);ÿÿÿÿÿ                 d xpos := 0;ÿÿ END PROC y move;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC x move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿ     disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     d xpos INCR verschiebung; .     execute (move, "", verschiebung, 0);ÿÿÿÿÿÿ     IF is errorÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        THEN fuehre x move nach cr ausÿÿÿÿÿÿÿÿÿ.     . fuehre x move nach cr aus :ÿÿÿÿÿÿÿÿÿÿÿÿÿ         clear error;ÿÿÿÿÿÿÿÿÿÿ>         schalte modifikationen aus wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         gib cr bei x move aus;         IF d xpos <> 0ÿÿÿÿÿÿÿÿ.            THEN execute (move, "", d xpos, 0);                 IF is errorÿÿÿ.                    THEN clear error;ÿÿÿÿÿÿÿÿÿÿ.                         d xpos := 0;ÿÿÿÿÿÿÿÿÿÿ                 FIÿÿÿÿÿÿÿÿÿÿÿÿ>         schalte modifikationen ein wenn noetig;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.         . gib cr bei x move aus :ÿÿÿÿÿÿÿÿÿÿÿÿÿN             execute (carriage return,  "", d xpos - verschiebung, 0);ÿÿÿÿÿÿÿÿÿ>         . schalte modifikationen aus wenn noetig :ÿÿÿÿÿÿÿÿÿÿÿÿ>             neue modifikationen := d modifikationen;ÿÿÿÿÿÿÿÿÿÿ.             IF d modifikationen <> 0ÿÿÿÿÿÿÿÿÿÿ.                THEN schalte modifikationen aus^                     (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         . schalte modifikationen ein wenn noetig :ÿÿÿÿÿÿÿÿÿÿÿÿ>             IF d modifikationen <> neue modifikationenÿÿÿÿÿÿÿÿ.                THEN schalte modifikationen ein^                     (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC x move;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC schalte modifikationen ein ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿ      IF d modifikationen <> 0ÿ.         THEN schalte modifikationen ausÿÿÿÿÿÿÿN                (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿ.      d modifikationen := neue modifikationen;ÿ>      FOR index FROM 1 UPTO anzahl modifikationenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>      REP IF bit (d modifikationen, modifikations bit)ÿÿÿÿÿÿÿÿÿ>             THEN modifikation muss eingeschaltet werdenÿÿÿÿÿÿÿ.      . modifikations bit : index - 1ÿÿÿÿÿÿÿÿÿÿ>      . modifikation muss eingeschaltet werden :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          IF bit (modifikations modus, modifikations bit) ÿÿÿÿÿN             THEN execute (on, "", modifikations werte (index), 0);ÿÿÿÿÿÿÿÿÿÿÿÿ                  IF is errorÿÿ.                     THEN clear error;ÿÿÿÿÿÿÿÿÿN                          reset bit (modifikations modus, modifikations bit); ÿN                          set bit   (pass,                modifikations bit);ÿÿ                  FI;ÿÿÿÿÿÿÿÿÿÿ>             ELSE set bit (pass, modifikations bit); ÿÿÿÿÿÿÿÿÿÿ. END PROC schalte modifikationen ein;ÿÿÿÿÿÿÿÿÿÿ. PROC schalte modifikationen aus ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      INT VAR index;ÿÿÿÿÿÿÿÿÿÿÿ>      FOR index FROM 1 UPTO anzahl modifikationenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>      REP IF bit (d modifikationen, modifikations bit)ÿÿÿÿÿÿÿÿÿ>             THEN modifikation muss ausgeschaltet werdenÿÿÿÿÿÿÿ      d modifikationen := 0;ÿÿÿ.      . modifikations bit : index - 1ÿÿÿÿÿÿÿÿÿÿ>      . modifikation muss ausgeschaltet werden :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          IF bit (modifikations modus, modifikations bit) ÿÿÿÿÿN             THEN execute (off, "", modifikations werte (index), 0);ÿÿÿÿÿÿÿÿÿÿÿ>                  IF is error THEN clear error FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC schalte modifikationen aus;ÿÿÿÿÿÿÿÿÿÿ PROC font wechsel ÿÿÿÿÿÿÿÿÿÿÿÿN             (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ      d font := d token. font;ÿN      get replacements (d font, replacements, replacement tabelle);ÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö.      execute (type, "", d font, 0);ÿÿÿÿÿÿÿÿÿÿÿ.      IF is error THEN font wechsel nach cr FI;      enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ      . font wechsel nach cr :ÿ          clear error;ÿÿÿÿÿÿÿÿÿ.          verschiebung := d xpos;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          gib cr aus;ÿÿÿÿÿÿÿÿÿÿ.          execute (type, "", d font, 0);ÿÿÿÿÿÿÿ          IF NOT is errorÿÿÿÿÿÿ.             THEN schalte modifikationen ausÿÿÿ^                     (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿ                  x moveÿÿÿÿÿÿÿ^                     (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿ      . gib cr aus :ÿÿÿÿÿÿÿÿÿÿÿ          IF d xpos <> 0ÿÿÿÿÿÿÿ>             THEN execute (carriage return, "", d xpos, 0);ÿÿÿÿ                  d xpos := 0;ÿ END PROC font wechsel;ÿÿÿÿÿÿÿÿ PROC gib text token aus ÿÿÿÿÿÿN             (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿ>   INT CONST token laenge := LENGTH d token. text;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   INT VAR token pos := 1, alte token pos, summe := 0;ÿÿÿÿÿÿÿÿÿ   IF token laenge > 0ÿÿÿÿÿÿÿÿÿ.      THEN REP alte token pos := token pos;ÿÿÿÿ>               stranalyze (replacement tabelle, summe, 0,ÿÿÿÿÿÿN                           d token. text, token pos, token laenge,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                           ausgang);ÿÿÿÿÿÿÿÿÿÿÿ               IF ausgang = 0 ÿ.                  THEN gib token rest aus;ÿÿÿÿÿ.                  ELSE gib token teil aus;ÿÿÿÿÿ>                       gib ersatzdarstellung aus;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ           PER;   . gib token rest aus :ÿÿÿÿÿÿ.       IF token laenge >= alte token posÿÿÿÿÿÿÿ^          THEN execute (write text, d token. text, alte token pos, token laenge) FI;ÿÿÿÿÿÿÿÿÿÿÿ.       d xpos INCR d token. breite;ÿÿÿÿÿÿÿÿÿÿÿÿ.       LEAVE gib text token aus;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   . gib token teil aus :ÿÿÿÿÿÿ.       IF token pos >= alte token posÿÿÿÿÿÿÿÿÿÿ^          THEN execute (write text, d token. text, alte token pos, token pos) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   . gib ersatzdarstellung aus :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       IF ausgang = maxintÿÿÿÿÿN          THEN ersatzdarstellung := extended replacement (d token. font,ÿÿÿÿÿÿÿ^                 d token. text SUB token pos + 1, d token. text SUB token pos + 2);ÿÿÿÿÿÿÿÿÿÿÿÿ^               execute (write text, ersatzdarstellung, 1, LENGTH ersatzdarstellung);ÿÿÿÿÿÿÿÿÿÿÿ               tokenpos INCR 3;          ELSE IF ausgang < 0ÿÿ>                  THEN ausgang := ausgang XOR minint;ÿÿÿÿÿÿÿÿÿÿ.                       token pos INCR 1;ÿÿÿÿÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿn               execute (write text, replacements, ausgang + 1, ausgang + code (replacements SUB ausgang));ÿÿÿÿÿ.               token pos INCR 2;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       . ersatzdarstellung : par1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC gib text token aus;ÿÿ> PROC schliesse seite ab (PROC (INT CONST, INT CONST) close,ÿÿÿ^                          PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿÿÿÿÿ gebe restliche token aus;ÿÿÿÿÿ seiten ende kommando;ÿÿÿÿÿÿÿÿÿ . gebe restliche token aus :ÿÿ.     IF erster ypos index d <> 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        THEN drucke tokenspeicher (maxint,ÿÿÿÿÿN                  PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿ.     rest := papier laenge - d ypos;ÿÿÿÿÿÿÿÿÿÿÿ>     aktuelle zeilentiefe der letzten zeile := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . gib cr aus :     IF d xpos <> 0ÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN execute (carriage return, "", d xpos, 0);ÿÿÿÿÿÿÿÿÿ             d xpos := 0;ÿÿÿÿÿÿ . seiten ende kommando :ÿÿÿÿÿÿ     seite ist offen := FALSE;ÿ.     a ypos          := top margin;ÿÿÿÿÿÿÿÿÿÿÿÿ     aktuelle spalte := 1;ÿÿÿÿÿ     close (page, rest);ÿÿÿÿÿÿÿ END PROC schliesse seite ab;ÿÿ> PROC eroeffne seite (INT CONST x wanted l, y wanted l,ÿÿÿÿÿÿÿÿN                      PROC (INT CONST, INT VAR, INT VAR) open ) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. IF vor erster seite THEN eroeffne druck FI;ÿÿÿ seiten anfang kommando;ÿÿÿÿÿÿÿ initialisiere neue seite;ÿÿÿÿÿ . eroeffne druck :ÿÿÿÿÿÿÿÿÿÿÿÿ.     open (document, x size, y size);ÿÿÿÿÿÿÿÿÿÿ     vor erster seite := FALSE;     d font           := -1;ÿÿÿ     d modifikationen := 0;ÿÿÿÿ . seiten anfang kommando :ÿÿÿÿ     x start := x wanted l;ÿÿÿÿ     y start := y wanted l;ÿÿÿÿ.     open (page, x start, y start);ÿÿÿÿÿÿÿÿÿÿÿÿ     gedruckte seiten INCR 1;ÿÿ     seite ist offen := TRUE;ÿÿ . initialisiere neue seite :ÿÿ^     INT CONST dif left margin := x wanted l - x start - left margin + indentation,ÿÿÿÿÿÿÿÿÿÿÿÿN               dif top  margin := y wanted l - y start - top  margin; ÿÿÿÿÿÿÿÿÿ     IF dif left margin <> 0ÿÿÿ.        THEN erstes tab token := 1;ÿÿÿÿÿÿÿÿÿÿÿÿ>             verschiebe token xpos (dif left margin);ÿÿÿÿÿÿÿÿÿÿ.             a xpos      INCR dif left margin;ÿ.             left margin INCR dif left margin;ÿ     IF dif top margin <> 0ÿÿÿÿ>        THEN verschiebe token ypos (dif top margin);ÿÿÿÿÿÿÿÿÿÿÿ.             a ypos      INCR dif top margin;ÿÿ.             top margin  INCR dif top margin;ÿÿ     d xpos := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     d ypos := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     IF seitenlaenge <= papierlaengeÿÿÿÿÿÿÿÿÿÿÿ>        THEN seitenlaenge := top margin + pagelength; ÿÿÿÿÿÿÿÿÿ.        ELSE seitenlaenge DECR papierlaenge;ÿÿÿ.     papierlaenge := y size - y start;ÿÿÿÿÿÿÿÿÿ.     papierbreite := x size - x start;ÿÿÿÿÿÿÿÿÿ END PROC eroeffne seite;ÿÿÿÿÿÿN (****************************************************************)ÿÿÿÿÿÿÿÿÿÿÿÿ> PROC elan fuss und kopf (INT CONST fuss oder kopf,ÿÿÿÿÿÿÿÿÿÿÿÿ>                 PROC (INT CONST, INT CONST) close,ÿÿÿÿÿÿÿÿÿÿÿÿ>                 PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿN                 PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿ. IF fuss oder kopf <= 0 THEN elan fuss FI;ÿÿÿÿÿ. IF fuss oder kopf >= 0 THEN elan kopf FI;ÿÿÿÿÿ     y move zur fusszeile;ÿÿÿÿÿ     drucke elan fuss;ÿÿÿÿÿÿÿÿÿ     close page cmd;ÿÿÿÿÿÿÿÿÿÿÿ . y move zur fusszeile :ÿÿÿÿÿÿ.     execute (carriage return,  "", d xpos, 0);     d xpos := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     verschiebung := rest auf seite - font hoehe;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     y move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿ . drucke elan fuss :ÿÿÿÿÿÿÿÿÿÿ     IF bottom label = ""ÿÿÿÿÿÿ        THEN seiten nr := ""ÿÿÿ.        ELSE seiten nr := bottom label;ÿÿÿÿÿÿÿÿ             seiten nr CAT "/";.     seiten nr CAT text (gedruckte seiten);ÿÿÿÿ     elan text := seiten nr;ÿÿÿ     elan text CAT "   ";ÿÿÿÿÿÿ^     elan text cat blanks ((max zeichen fuss - LENGTH dateiname) DIV 2 - LENGTH elan text);ÿÿÿÿ     elan text CAT dateiname;ÿÿ^     elan text cat blanks (max zeichen fuss - LENGTH seiten nr - LENGTH elan text - 3);ÿÿÿÿÿÿÿÿ     elan text CAT "   ";ÿÿÿÿÿÿ     elan text CAT seiten nr;ÿÿ.     IF LENGTH elan text > max zeichen zeileÿÿÿN        THEN elan text := subtext (elan text, 1, max zeichen zeile) FI;ÿÿÿÿÿÿÿÿ^     gib elan text aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); ÿÿÿÿÿÿÿÿÿÿ     . seiten nr : par1ÿÿÿÿÿÿÿÿ . close page cmd :ÿÿÿÿÿÿÿÿÿÿÿÿ.     execute (carriage return,  "", d xpos, 0);     d xpos := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     close (page, papierlaenge - d ypos);ÿÿÿÿÿÿ     seite ist offen := FALSE;ÿ     open page cmd ;ÿÿÿÿÿÿÿÿÿÿÿ     y move zur kopfzeile;ÿÿÿÿÿ     drucke elan kopf;ÿÿÿÿÿÿÿÿÿ . open page cmd :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     x start         := x wanted;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     y start         := y wanted;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     open (page, x start, y start);ÿÿÿÿÿÿÿÿÿÿÿÿN     IF fuss oder kopf = 1 THEN execute (type, "", d font, 0) FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     gedruckte seiten INCR 1;ÿÿ     seite ist offen := TRUE;ÿÿ.     top  margin     := y wanted - y start;ÿÿÿÿ.     left margin     := x wanted - x start;ÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö.     rest auf seite  := pagelength;ÿÿÿÿÿÿÿÿÿÿÿÿ.     papierlaenge    := y size - y start;ÿÿÿÿÿÿ     d ypos          := 0; ÿÿÿÿ     d xpos          := 0;ÿÿÿÿÿ . y move zur kopf zeile :ÿÿÿÿÿ.     verschiebung := top margin;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     y move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿN     IF verschiebung = 0 THEN rest auf seite INCR top margin FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . drucke elan kopf :ÿÿÿÿÿÿÿÿÿÿ.     elan text :=  headline pre;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     elan text CAT date;ÿÿÿÿÿÿÿ.     elan text CAT headline post;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     elan text CAT datei name;ÿ.     IF LENGTH elan text > max zeichen zeileÿÿÿN        THEN elan text := subtext (elan text, 1, max zeichen zeile) FI;ÿÿÿÿÿÿÿÿ^     gib elan text aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); ÿÿÿÿÿÿÿÿÿÿ^     cr plus lf (2, PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC elan fuss und kopf;ÿÿÿ^ PROC gib elan text aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) :ÿÿÿÿÿÿÿÿÿN cr plus lf (1, PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿ linker rand wenn noetig;ÿÿÿÿÿÿ> d token. breite := LENGTH elan text * einrueckbreite;ÿÿÿÿÿÿÿÿÿ^ gib text token aus (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . linker rand wenn noetig :ÿÿÿ     IF left margin > 0ÿÿÿÿÿÿÿÿ        THEN disable stop;ÿÿÿÿÿ.             d xpos := left margin;ÿÿÿÿÿÿÿÿÿÿÿÿ>             execute (move, "", left margin, 0);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             IF is error ÿÿÿÿÿÿ.                THEN clear error;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                     d xpos := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             enable stop;ÿÿÿÿÿÿ END PROC gib elan text aus;ÿÿÿ. PROC cr plus lf (INT CONST anzahl,ÿÿÿÿÿÿÿÿÿÿÿÿ^                  PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute) : ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. rest auf seite DECR verschiebung;ÿÿÿÿÿÿÿÿÿÿÿÿÿ . gib cr aus :.     execute (carriage return, "", d xpos, 0);ÿ     d xpos := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ . gib lf aus :.     verschiebung := anzahl * font hoehe;ÿÿÿÿÿÿN     y move (PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿ END PROC cr plus lf ; ÿÿÿÿÿÿÿÿ END PACKET eumel printer;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ	spool cmdÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA“a€ëÿÿ´  ´ ± ±  X      ÿÿÿÿ       X         X  µ  >M ÿþ    ÿÿ   ÿÿÿÿ	spool cmdÿÿÿÿ   ÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿ  ´ ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ…ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Šÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŠÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŠÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‹ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Žÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŽÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿ¡‘ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‘ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!’ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±’ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET spool cmd                                    (* Autor : R. Ruland  *)ÿÿN                                                     (* Stand : 13.08.87   *)ÿÿ        DEFINES.                spool control password,ÿÿÿÿÿÿÿÿ                kill  spool,ÿÿÿ                first spool,ÿÿÿ                start spool,ÿÿÿ                stop  spool,ÿÿÿ                halt  spool,ÿÿÿ                wait for halt : LET error nak          = 2 ,ÿÿ     entry line code    = 23 ,ÿ     killer code        = 24 ,      first code         = 25 ,ÿ     start code         = 26 ,      stop code          = 27 ,ÿ     halt code          = 28 ,ÿ     wait for halt code = 29 ;ÿ DATASPACE VAR ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿ^ BOUND STRUCT (TEXT entry line, INT index, TEXT actual entries, password) VAR control msg;ÿÿÿÿÿ BOUND TEXT VAR error msg;ÿÿÿÿÿ INT VAR reply;. INITFLAG VAR in this task := FALSE;ÿÿÿÿÿÿÿÿÿÿÿ BOOL VAR dialogue;ÿÿÿÿÿÿÿÿÿÿÿÿ. TEXT VAR control password, password;ÿÿÿÿÿÿÿÿÿÿ control password := "";ÿÿÿÿÿÿÿ> PROC spool control password (TEXT CONST new password):ÿÿÿÿÿÿÿÿ.   IF on line THEN say (""3""13""5"") FI;ÿÿÿÿÿÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   do ("enter spool control password (""" + new password + """)");ÿÿÿÿÿÿÿÿÿÿÿÿÿ   clear error;   no do again;   cover tracks;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   cover tracks (control password);ÿÿÿÿÿÿÿÿÿÿÿÿ.   control password := new password;ÿÿÿÿÿÿÿÿÿÿÿ. END PROC spool control password;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC call spool (INT CONST op code, TEXT CONST name, TASK CONST spool) :ÿÿÿÿÿÿ.   dialogue :=  command dialogue;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   password :=  write password;   password CAT "/";ÿÿÿÿÿÿÿÿÿÿÿ   password CAT read password;ÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   command dialogue (FALSE);ÿÿÿ.   enter password (control password);ÿÿÿÿÿÿÿÿÿÿ   command dialogue (dialogue);   call (op code, name, spool);   command dialogue (FALSE);ÿÿÿ   enter password (password);ÿÿ   command dialogue (dialogue); END PROC call spool;ÿÿÿÿÿÿÿÿÿÿ. PROC start spool (TASK CONST spool) :ÿÿÿÿÿÿÿÿÿ   enable stop;.   call spool (halt  code, "", spool);ÿÿÿÿÿÿÿÿÿ.   call spool (start code, "", spool);ÿÿÿÿÿÿÿÿÿ END PROC start spool;ÿÿÿÿÿÿÿÿÿ> PROC start spool (TASK CONST spool, INT CONST new channel) :ÿÿ   enable stop;.   call spool (halt  code, "", spool);ÿÿÿÿÿÿÿÿÿ>   call spool (start code, text (new channel), spool);ÿÿÿÿÿÿÿÿÿ END PROC start spool;ÿÿÿÿÿÿÿÿÿ. PROC stop spool (TASK CONST spool) :ÿÿÿÿÿÿÿÿÿÿ.   call spool (stop code, "", spool);ÿÿÿÿÿÿÿÿÿÿ END PROC stop spool;ÿÿÿÿÿÿÿÿÿÿ> PROC stop spool (TASK CONST spool, TEXT CONST deactive msg) :ÿ.   call spool (stop code, deactive msg, spool); END PROC stop spool;ÿÿÿÿÿÿÿÿÿÿ. PROC halt spool (TASK CONST spool) :ÿÿÿÿÿÿÿÿÿÿ.   call spool (halt code, "", spool);ÿÿÿÿÿÿÿÿÿÿ END PROC halt spool;ÿÿÿÿÿÿÿÿÿÿ> PROC halt spool (TASK CONST spool, TEXT CONST deactive msg) :ÿ.   call spool (halt code, deactive msg, spool); END PROC halt spool;ÿÿÿÿÿÿÿÿÿÿ. PROC wait for halt (TASK CONST spool) :ÿÿÿÿÿÿÿ.   call spool (wait for halt code, "", spool);ÿ END PROC wait for halt;ÿÿÿÿÿÿÿN PROC wait for halt (TASK CONST spool, TEXT CONST deactive msg) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   call spool (wait for halt code, deactive msg, spool);ÿÿÿÿÿÿÿ END PROC wait for halt;ÿÿÿÿÿÿÿ> PROC control spool (TASK CONST spool, INT CONST control code,ÿ>                     TEXT CONST question, BOOL CONST leave) :ÿÿ   enable stop;   initialize control msg;ÿÿÿÿÿ   WHILE valid spool entryÿÿÿÿÿ>     REP IF control question THEN control spool entry FI PER;ÿÿ   . initialize control msg :ÿÿN       IF NOT initialized (in this task) THEN ds := nilspace FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>       forget (ds); ds := nilspace; control msg := ds;ÿÿÿÿÿÿÿÿÿ.       control msg. entry line := "";ÿÿÿÿÿÿÿÿÿÿ>       control msg. password   := control password;ÿÿÿÿÿÿÿÿÿÿÿÿ.       control msg. index      := 0;ÿÿÿÿÿÿÿÿÿÿÿ       say (""13""10"");ÿÿÿÿÿÿÿ   . valid spool entry :ÿÿÿÿÿÿÿ>       call (spool, entry line code, ds, reply);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       IF reply = error nakÿÿÿÿ          THEN error msg := ds;.               errorstop (error msg);ÿÿÿÿÿÿÿÿÿÿ       control msg. index <> 0ÿ    . control question :ÿÿÿÿÿÿÿ.        say (control msg. entry line);ÿÿÿÿÿÿÿÿÿ        yes (question) ÿÿÿÿÿÿÿÿ   . control spool entry :ÿÿÿÿÿ.       call (spool, control code, ds, reply);ÿÿ       IF reply = error nakÿÿÿÿ          THEN error msg := ds;.               errorstop (error msg);ÿÿÿÿÿÿÿÿÿÿ.       IF leave THEN LEAVE control spool FI;ÿÿÿ END PROC control spool;ÿÿÿÿÿÿÿ. PROC kill spool (TASK CONST spool) :ÿÿÿÿÿÿÿÿÿÿ>   control spool (spool, killer code, "   loeschen", FALSE)ÿÿÿÿ END PROC kill spool;ÿÿÿÿÿÿÿÿÿÿ. PROC first spool (TASK CONST spool) :ÿÿÿÿÿÿÿÿÿ>   control spool (spool, first code, "   als erstes", TRUE)ÿÿÿÿ END PROC first spool;ÿÿÿÿÿÿÿÿÿ. END PACKET spool cmd;             ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿspool managerÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    €        ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2a€ëÿÿ$ $!! d      ÿÿÿÿ       d         d  % >È ÿþ    ÿÿ   ÿÿÿÿspool manager   ÿÿÿÿ'  $ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ˆÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‰ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿY ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‹ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‘ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‘ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‘ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ’ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA“ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq“ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡“ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá“ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq”ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡”ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá”ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1•ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ•ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ–ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ—ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  break;ÿÿÿÿÿÿÿÿÿÿÿÿÿÑ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ—ÿ ÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±˜ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿA™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAšÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqšÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡šÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑšÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!›ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa›ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡›ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá›ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!œÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaœÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡œÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáœÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          FI;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿažÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±žÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŸÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŸÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¡ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¡ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¢ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¢ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA£ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq£ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ£ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¤ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¤ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¤ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¤ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¥ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¥ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¥ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¥ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¦ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¦ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¦ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¦ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1§ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq§ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±§ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ§ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¨ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¨ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¨ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq©ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
       FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END SELECT;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ªÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá«ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¬ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¬ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1­ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa­ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘­ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÑ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ­ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!®ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±®ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¯ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¯ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!°ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ°ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ°ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!±ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa±ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡±ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ±ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1²ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa²ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ²ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq³ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±³ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ³ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1´ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq´ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡´ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ´ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQµÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑµÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¶ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¶ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¶ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1·ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa·ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘·ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ·ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¸ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ	    PER ;ÿÿÿÿÿÿÿÿÿÿÿÿ‘¸ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¸ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¹ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¹ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¹ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAºÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿºÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁºÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!»ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        PER ;ÿÿÿÿÿÿÿÿq»ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ»ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ»ÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¼ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¼ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¼ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1½ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa½ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá½ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¾ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¾ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¿ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¿ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¿ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¿ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Àÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI; ÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿaÀÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Àÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÀÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÁÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÁÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÁÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÂÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Âÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÂÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ãÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÃÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ãÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÄÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Äÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÄÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÄÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÅÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÅÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Åÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÅÿ ÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÆÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÆÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÇÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Çÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÇÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÈÿT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Èÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÈÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÉÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÊÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQËÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ëÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáËÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ìÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÌÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ìÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÍÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÍÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÎÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  send ack :ÿÿÿÿÿÿÿÿÿ±Îÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÎÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ïÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÏÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÐÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÐÿW ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÐÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ñÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÑÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ñÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÑÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÑÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Òÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Òÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Óÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÓÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Óÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÓÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ôÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        FI;ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÔÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Õÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÕÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÖÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Öÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÖÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa×ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ×ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAØÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Øÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁØÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ùÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÙÿP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÚÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÚÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÚÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÚÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          FI;ÿÿÿÿÿÿÿÿ!Ûÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÛÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ûÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÛÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÛÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÜÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÜÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÜÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ýÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÝÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÝÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÝÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Þÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÞÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ßÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáàÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!áÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡áÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿááÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁâÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ãÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáãÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQäÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘äÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáäÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQåÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑåÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1æÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
      PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑæÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAçÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘çÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑçÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!èÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaèÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±èÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñèÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAéÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaéÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±éÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáéÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAêÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁêÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñêÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ëÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQëÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ëÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáìÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          FIÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1íÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaíÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±íÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁîÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  halt spool;ÿÿÿÿÿÿÿÿïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQïÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑïÿ ÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñïÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAðÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ðÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑðÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿañÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁñÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqòÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáòÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘óÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁóÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqôÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑôÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQõÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñõÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!öÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaöÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáöÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA÷ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘÷ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ÷ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ÷ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!øÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQøÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáøÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ùÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáùÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaúÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑúÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQûÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          FIÿÿÿÿÿÿÿÿÿÁûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáûÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQüÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑüÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ýÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ýÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!þÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQþÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁþÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáþÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ" ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ² ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  output (f);ÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿg ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿb ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ\ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿZ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿZ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2	ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb	ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢	ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ	ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿò	ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2
ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿb
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂ
ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâ
ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	      FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET spool manager DEFINES                        (* Autor : R. Ruland  *)ÿÿN                                                     (* Stand : 23.02.88   *)ÿÿ     spool manager ,ÿÿÿÿÿÿÿÿÿÿÿ     server channel ,ÿÿÿÿÿÿÿÿÿÿ     spool duty,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     station only, ÿÿÿÿÿÿÿÿÿÿÿÿ     auto stop,.     enter spool control password,ÿÿÿÿÿÿÿÿÿÿÿÿÿ     spool control password,ÿÿÿ     start spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     stop  spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     halt  spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     kill  spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     first spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     spool entry line,ÿÿÿÿÿÿÿÿÿ     number spool entries,ÿÿÿÿÿ     spool status,ÿÿÿÿÿÿÿÿÿÿÿÿÿ     server task,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     clear spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     list  spool,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LET que size           = 200 ,     ack                = 0 ,ÿÿ     nak                = 1 ,ÿÿ     error nak          = 2 ,ÿÿ     second phase ack   = 5 ,ÿÿ     false code         = 6 ,ÿÿ     fetch code         = 11 ,ÿ     save code          = 12 ,ÿ     exists code        = 13 ,ÿ     erase code         = 14 ,ÿ     list code          = 15 ,ÿ     all code           = 17 ,ÿ     param fetch code   = 21 ,ÿ     file save code     = 22 ,ÿ     entry line code    = 23 ,ÿ     killer code        = 24 ,      first code         = 25 ,ÿ     start code         = 26 ,      stop code          = 27 ,ÿ     halt code          = 28 ,ÿ     wait for halt code = 29 ,ÿ     help code          = 49 ,ÿ     continue code      = 100 ,>     control codes      = ""23""24""25""26""27""28""29"" ,ÿÿÿÿÿ.     file type          = 1003 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     help file name     = "help";ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LET begin char  =  ""0"",ÿÿÿÿÿ     end char    =  ""1"";ÿÿÿÿÿN LET PARAMS  =  STRUCT (TEXT name, userid, password, sendername, INT station);ÿN BOUND ROW que size STRUCT (PARAMS ds params, TEXT entry line) VAR que;ÿÿÿÿÿÿÿÿ.       ROW que size DATASPACE VAR que space;ÿÿÿ PARAMS VAR save params;ÿÿÿÿÿÿÿ. DATASPACE VAR que ds, global ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ FILE VAR file;N INT VAR last order, reply, old heap size, que index, fetch index, ÿÿÿÿÿÿÿÿÿÿÿÿN         station by start, begin pos, end pos, order task station, sp channel;ÿN TEXT VAR que entries, free entries, order task name, buffer, deactive message,N          error message buffer, sp duty, start time, control password;ÿÿÿÿÿÿÿÿÿN BOOL VAR server is waiting, stop cmd pending, start cmd pending,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          auto stop pending, stat only;ÿÿÿÿÿÿÿÿN TASK VAR last order task, server, calling parent, task in control; ÿÿÿÿÿÿÿÿÿÿÿ> INITFLAG VAR in this task := FALSE, init que space := FALSE;ÿÿ> BOUND STRUCT (TEXT name, userid, password) VAR msg;ÿÿÿÿÿÿÿÿÿÿÿ^ BOUND STRUCT (TEXT entry line, INT index, TEXT actual entries, password) VAR control msg;ÿÿÿÿÿ BOUND PARAMS VAR fetch msg;ÿÿÿ BOUND THESAURUS VAR all msg;ÿÿ BOUND TEXT VAR error msg;ÿÿÿÿÿ. . que is empty    :  que  entries = ""ÿÿÿÿÿÿÿÿ. . que is full     :  free entries = ""ÿÿÿÿÿÿÿÿ. . number entries  :  LENGTH que entriesÿÿÿÿÿÿÿ. . first index     :  code (que entries SUB 1)ÿ> . list index      :  code (que entries SUB que index)ÿÿÿÿÿÿÿÿÿ> . last index      :  code (que entries SUB number entries)ÿÿÿÿ. . fetch entry     :  que (fetch index)ÿÿÿÿÿÿÿÿ. . list  entry     :  que (list  index)ÿÿÿÿÿÿÿÿ. . last  entry     :  que (last  index)ÿÿÿÿÿÿÿÿ> . was define station   : station by start <> station (myself)ÿ. . is valid fetch entry : fetch index > 0ÿÿÿÿÿÿ. INT VAR command index , params ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR param 1, param 2 ;ÿÿÿN LET spool command list = "start:1.01stop:3.0halt:4.0first:5.0killer:6.0";ÿÿÿÿÿ sp channel        := 0;ÿÿÿÿÿÿÿ sp duty           := ""; ÿÿÿÿÿ deactive message  := "";ÿÿÿÿÿÿ stat only         := FALSE;ÿÿÿ auto stop pending := FALSE;ÿÿÿ. task in control   := supervisor;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ control password  := "-";ÿÿÿÿÿ. PROC server channel (INT CONST channel nr) :ÿÿ.      IF channel nr <= 0 OR channel nr >= 33ÿÿÿ>         THEN errorstop ("falsche Kanalangabe") FI;ÿÿÿÿÿÿÿÿÿÿÿÿ      sp channel := channel nr; END PROC server channel;ÿÿÿÿÿÿN INT PROC server channel :  sp channel  END PROC server channel;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC station only (BOOL CONST flag) :ÿÿÿÿÿÿÿÿÿ      stat only := flagÿÿÿÿÿÿÿÿ END PROC station only;ÿÿÿÿÿÿÿÿ> BOOL PROC station only :  stat only  END PROC station only;ÿÿÿ. PROC auto stop (BOOL CONST flag) :ÿÿÿÿÿÿÿÿÿÿÿÿ      auto stop pending := flag END PROC auto stop;ÿÿÿÿÿÿÿÿÿÿÿ> BOOL PROC auto stop :  auto stop pending  END PROC auto stop;ÿ. PROC spool duty (TEXT CONST duty) :ÿÿÿÿÿÿÿÿÿÿÿ      sp duty := duty;ÿÿÿÿÿÿÿÿÿ END PROC spool duty;ÿÿÿÿÿÿÿÿÿÿ> TEXT PROC spool duty :  sp duty  END PROC spool duty;ÿÿÿÿÿÿÿÿÿ> PROC enter spool control password (TEXT CONST new password):ÿÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   cover tracks;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   cover tracks (control password);ÿÿÿÿÿÿÿÿÿÿÿÿ.   control password := new password;ÿÿÿÿÿÿÿÿÿÿÿ. END PROC enter spool control password;ÿÿÿÿÿÿÿÿ> PROC spool control password (TEXT CONST new password):ÿÿÿÿÿÿÿÿ.   IF on line THEN say (""3""13""5"") FI;ÿÿÿÿÿÿ.   enter spool control password (new password);. END PROC spool control password;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC spool manager (PROC server start) :ÿÿÿÿÿÿ>   spool manager (PROC (DATASPACE VAR, INT CONST,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                 INT CONST, TASK CONST) spool manager,ÿÿÿÿÿÿÿÿÿ.                  PROC server start, TRUE)ÿÿÿÿÿ END PROC spool manager;ÿÿÿÿÿÿÿN PROC spool manager (PROC server start, BOOL CONST initial start) :ÿÿÿÿÿÿÿÿÿÿÿÿ>   spool manager (PROC (DATASPACE VAR, INT CONST,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                 INT CONST, TASK CONST) spool manager,ÿÿÿÿÿÿÿÿÿ>                  PROC server start, initial start) ÿÿÿÿÿÿÿÿÿÿÿ END PROC spool manager;ÿÿÿÿÿÿÿ> PROC spool manager (PROC (DATASPACE VAR, INT CONST,ÿÿÿÿÿÿÿÿÿÿÿN                                          INT CONST, TASK CONST) spool,ÿÿÿÿÿÿÿÿ.                     PROC server start,ÿÿÿÿÿÿÿÿ>                     BOOL CONST initial start) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   set autonom;   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   command dialogue (FALSE);ÿÿÿ   initialize spool manager;ÿÿÿ.   REP start spool if necessary;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       wait for next order;ÿÿÿÿ.       IF   order not allowed THEN reject order.       ELIF is first  phase   THEN first phaseÿ.       ELIF is second phase   THEN second phase.                              ELSE send nakÿÿÿÿ       send error if necessary;.       collect heap garbage if necessary;ÿÿÿÿÿÿ   . initialize spool manager :       initialize if necessary;       stop server;ÿÿÿÿÿÿÿÿÿÿÿÿ       erase fetch entry;ÿÿÿÿÿÿ.       start cmd pending := initial start;ÿÿÿÿÿ.       stop cmd pending  := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.       last order task   := niltask;ÿÿÿÿÿÿÿÿÿÿÿ.       . initialize if necessary :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.           IF NOT initialized (in this task)ÿÿÿ              THEN clear spool;>                   global ds            := nilspace;ÿÿÿÿÿÿÿÿÿÿÿ>                   que ds               := nilspace;ÿÿÿÿÿÿÿÿÿÿÿ>                   que                  := que ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                   server      öööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö         := niltask; ÿÿÿÿÿÿÿÿÿÿÿ>                   calling parent       := niltask;ÿÿÿÿÿÿÿÿÿÿÿÿ>                   server is waiting    := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                   station by start     := station (myself);ÿÿÿ.                   old heap size        := 0;ÿÿ.                   error message buffer := "";ÿ   . start spool if necessary :>       IF start cmd pending AND NOT stop cmd pendingÿÿÿÿÿÿÿÿÿÿÿ>          THEN start server (PROC server start) FI;ÿÿÿÿÿÿÿÿÿÿÿÿ   . wait for next order :ÿÿÿÿÿ       INT VAR order, phase;ÿÿÿ       TASK VAR order task;ÿÿÿÿ       forget (global ds);ÿÿÿÿÿ.       wait (global ds, order, order task);ÿÿÿÿ   . order not allowed :ÿÿÿÿÿÿÿN       station only CAND station (ordertask) <> station (myself) CANDÿÿÿÿÿÿÿÿÿÿN                 ( order > 255 COR pos (control codes, code (order)) = 0 )ÿÿÿÿÿ   . reject order :ÿÿÿÿÿÿÿÿÿÿÿÿN       errorstop ("kein Zugriffsrecht auf Task " + text (station(myself))ÿÿÿÿÿÿ>                   + "/""" + name(myself) + """") ÿÿÿÿÿÿÿÿÿÿÿÿÿ   . is first phase :ÿÿÿÿÿÿÿÿÿÿ.       order <> second phase ack    ÿÿÿÿÿÿÿÿÿÿÿ   . first phase :ÿÿÿÿÿÿÿÿÿÿÿÿÿ       phase := 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.       last order      := order;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       last order task := order task;ÿÿÿÿÿÿÿÿÿÿ>       spool (global ds, order, phase, order task);ÿÿÿÿÿÿÿÿÿÿÿÿ   . is second phase :ÿÿÿÿÿÿÿÿÿ.       order task = last order task ÿÿÿÿÿÿÿÿÿÿÿ   . second phase :ÿÿÿÿÿÿÿÿÿÿÿÿ       phase INCR 1 ;ÿÿÿÿÿÿÿÿÿÿ       order := last order;ÿÿÿÿ>       spool (global ds, order, phase, order task);ÿÿÿÿÿÿÿÿÿÿÿÿ   . send nak :       forget (global ds);ÿÿÿÿÿ       global ds := nilspace;ÿÿ.       send (order task, nak, global ds);ÿÿÿÿÿÿ   . send error if necessary :ÿ       IF is errorÿÿÿÿÿÿÿÿÿÿÿÿÿ.          THEN forget (global ds);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.               global ds := nilspace;ÿÿÿÿÿÿÿÿÿÿ.               error msg := global ds;ÿÿÿÿÿÿÿÿÿ>               CONCR (error msg) := error message;ÿÿÿÿÿÿÿÿÿÿÿÿÿ               clear error;ÿÿÿÿ>               send (order task, error nak, global ds);ÿÿÿÿÿÿÿÿ.   . collect heap garbage if necessary :ÿÿÿÿÿÿÿ.       IF heap size > old heap size + 2ÿÿÿÿÿÿÿÿ.          THEN collect heap garbage;ÿÿÿÿÿÿÿÿÿÿÿ.               old heap size := heap size;ÿÿÿÿÿ END PROC spool manager;ÿÿÿÿÿÿÿ. PROC spool manager (DATASPACE VAR order ds,ÿÿÿ.                     INT CONST order, phase,ÿÿÿ.                     TASK CONST order task   ):   enable stop;   SELECT order OFÿÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE fetch code, help code  :  out of que or helpÿÿÿÿÿÿÿÿÿ>     CASE param fetch code       :  send fetch paramsÿÿÿÿÿÿÿÿÿÿ>     CASE save code              :  new que entryÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE file save code         :  new file que entry ÿÿÿÿÿÿÿÿ>     CASE exists code            :  exists que entryÿÿÿÿÿÿÿÿÿÿÿ>     CASE erase code             :  erase que entryÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE list code              :  send spool listÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE all code               :  send owners ds namesÿÿÿÿÿÿÿ>     CASE entry line code        :  send next entry line ÿÿÿÿÿÿ.     CASE killer code            :  kill entry >     CASE first code             :  make to firstÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     CASE start code             :  start server taskÿÿÿÿÿÿÿÿÿÿ>     CASE stop code              :  stop server taskÿÿÿÿÿÿÿÿÿÿÿ.     CASE halt code, wait for halt codeÿÿÿÿÿÿÿÿ>                                 :  halt server taskÿÿÿÿÿÿÿÿÿÿÿ     OTHERWISE :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>        IF order >= continue code AND order task = supervisorÿÿ           THEN spool monitorÿÿ           ELSE wrong operation . wrong operation :ÿÿÿÿÿÿÿÿÿÿÿ     IF order > error nakÿÿÿÿÿÿN        THEN errorstop ("falscher Auftrag fuer Task " + text (station(myself))ÿ>                         + "/""" + name(myself) + """") ÿÿÿÿÿÿÿ   out of que or help :ÿÿÿÿÿÿÿÿ     IF order task = serverÿÿÿÿ        THEN out of queÿÿÿÿÿÿÿÿ        ELSE send help fileÿÿÿÿ     . out of que :ÿÿÿÿÿÿÿÿÿÿÿÿ         erase fetch entry;ÿÿÿÿ         IF   stop cmd pending               THEN stop serverÿ         ELIF que is emptyÿÿÿÿÿ.              THEN IF auto stop pendingÿÿÿÿÿÿÿÿ.                      THEN stop serverÿÿÿÿÿÿÿÿÿ>                      ELSE server is waiting := TRUEÿÿÿÿÿÿÿÿÿÿÿ                   FI;ÿÿÿÿÿÿÿÿÿ.              ELSE send first entry;ÿÿÿÿÿÿÿÿÿÿÿ     . send help file :ÿÿÿÿÿÿÿÿ         check server (TRUE);ÿÿ         IF order = fetch codeÿ.            THEN msg := order ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                 IF msg. name <> help file name>                    THEN errorstop ("keine Servertask") FI;ÿÿÿÿ         forget (order ds);ÿÿÿÿ.         order ds := old (help file name);ÿÿÿÿÿ.         send (order task, ack, order ds);ÿÿÿÿÿ   send fetch params :ÿÿÿÿÿÿÿÿÿ     IF order task = serverÿÿÿÿ        THEN send paramsÿÿÿÿÿÿÿ.        ELSE errorstop ("keine Servertask")ÿÿÿÿ     . send params :ÿÿÿÿÿÿÿÿÿÿÿ>         forget(order ds); order ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         fetch msg := order ds;.         fetch msg := fetch entry. ds params;ÿÿ.         send (order task, ack, order ds);ÿÿÿÿÿ   new que entry :ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF phase = 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        THEN prepare into queÿÿ.        ELSE into que (order ds, order task)ÿÿÿ   prepare into que :ÿÿÿÿÿÿÿÿÿÿ     msg := order ds ;ÿÿÿÿÿÿÿÿÿ.     save params. name       := msg.name;ÿÿÿÿÿÿ.     save params. userid     := msg.userid;ÿÿÿÿ.     save params. password   := msg.password;ÿÿ>     save params. sendername := name (order task);ÿÿÿÿÿÿÿÿÿÿÿÿÿ>     save params. station    := station (order task);ÿÿÿÿÿÿÿÿÿÿ.     forget (order ds); order ds := nilspace;ÿÿ>     send (order task, second phase ack, order ds);ÿÿÿÿÿÿÿÿÿÿÿÿ   new file que entry :ÿÿÿÿÿÿÿÿ.     IF type (order ds) <> file typeÿÿÿÿÿÿÿÿÿÿÿ>        THEN errorstop ("Datenraum hat falschen Typ");ÿÿÿÿÿÿÿÿÿ        ELSE get file params;ÿÿ.             into que (order ds, order task);ÿÿ     . get file params :ÿÿÿÿÿÿÿ>         file := sequential file (input, order ds);ÿÿÿÿÿÿÿÿÿÿÿÿ         end pos := 0;ÿÿÿÿÿÿÿÿÿ>         next headline information (save params. name); ÿÿÿÿÿÿÿ>         next headline information (save params. userid); ÿÿÿÿÿ>         next headline information (save params. password); ÿÿÿ>         next headline information (save params. sendername); ÿ.         next headline information (buffer);ÿÿÿ.         save params. station := int (buffer);ÿ.         IF NOT last conversion okÿÿÿÿÿÿÿÿÿÿÿÿÿN            THEN save params. station    := station (order task) FI;ÿÿÿÿÿÿÿÿÿÿÿ.         IF save params. sendername = ""ÿÿÿÿÿÿÿN            THEN save params. sendername := name    (order task) FI;ÿÿÿÿÿÿÿÿÿÿÿ.         IF save params. name = ""ÿÿÿÿÿÿÿÿÿÿÿÿÿ.            THEN IF headline (file) <> ""ÿÿÿÿÿÿ>                    THEN save params. name := headline (file);ÿ>                    ELSE errorstop ("Name unzulaessig")ÿÿÿÿÿÿÿÿ                 FI;ÿÿÿÿÿÿÿÿÿÿÿ>            ELSE headline (file, save params. name);ÿÿÿÿÿÿÿÿÿÿÿ   exists que entry :ÿÿÿÿÿÿÿÿÿÿ.     msg                := order ds ;ÿÿÿÿÿÿÿÿÿÿ.     order task name    := name (order task);ÿÿ>     order task station := station (order task);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     FOR que index FROM 1 UPTO number entriesÿÿ>     REP IF is entry from order task (msg. name) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            THEN send ack;ÿÿÿÿÿ.                 LEAVE exists que entryÿÿÿÿÿÿÿÿ.     forget (order ds); order ds := nilspace;ÿÿ.     send (order task, false code, order ds)ÿÿÿ   erase que entry :ÿÿÿÿÿÿÿÿÿÿÿ.     msg                := order ds ;ÿÿÿÿÿÿÿÿÿÿ.     order task name    := name (order task);ÿÿ>     order task station := station (order task);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF phase = 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        THEN ask for eraseÿÿÿÿÿ.        ELSE erööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööase entry from order task ÿÿÿÿÿÿ     . ask for erase :ÿÿÿÿÿÿÿÿÿ>         FOR que index FROM 1 UPTO number entriesÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>         REP IF is entry from order task (msg. name) ÿÿÿÿÿÿÿÿÿÿ^                THEN manager question ("""" + msg.name + """ loeschen", order task); ÿÿÿÿÿÿÿÿÿÿ.                     LEAVE erase que entryÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN         manager message ("""" + msg.name + """ existiert nicht", order task);ÿ.     . erase entry from order task :ÿÿÿÿÿÿÿÿÿÿÿ^         IF is valid que index (que index) CAND is entry from order task (msg. name) ÿÿÿÿÿÿÿÿÿÿ.            THEN delete que entry; ÿÿÿÿÿÿÿÿÿÿÿÿ.                 LEAVE erase que entry ÿÿÿÿÿÿÿÿ>            ELSE FOR que index FROM 1 UPTO number entriesÿÿÿÿÿÿ>                 REP IF is entry from order task (msg. name) ÿÿ.                        THEN delete que entry;ÿ>                             LEAVE erase que entry ÿÿÿÿÿÿÿÿÿÿÿÿ                     FI;ÿÿÿÿÿÿÿ                 PER;ÿÿÿÿÿÿÿÿÿÿ^                 manager message ("""" + msg.name +  """ existiert nicht", order task);ÿÿÿÿÿÿÿÿ         . delete que entry :ÿÿ.             kill spool (que index);ÿÿÿÿÿÿÿÿÿÿÿ             send ack;ÿÿÿÿÿÿÿÿÿ   send owners ds names:ÿÿÿÿÿÿÿ.     order task name    := name (order task);ÿÿ>     order task station := station (order task);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     forget (order ds); order ds := nilspace; all msg := order ds; ÿÿÿÿÿÿÿÿÿÿÿÿ.     all msg := empty thesaurus; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     FOR que index FROM 1 UPTO number entriesÿÿ.     REP IF is entry from order task ("")ÿÿÿÿÿÿ>            THEN insert (all msg, list entry. ds params. name) .     send (order task, ack, order ds) ÿÿÿÿÿÿÿÿÿ   send spool list :ÿÿÿÿÿÿÿÿÿÿÿ.     forget (global ds); global ds := nilspace;>     file := sequential file (output, global ds);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     list spool (file);ÿÿÿÿÿÿÿÿ.     send (order task, ack, global ds);ÿÿÿÿÿÿÿÿ   send next entry line :ÿÿÿÿÿÿN     control msg := order ds; check control password (control msg. password);ÿÿ^     IF control msg. index = 0 THEN control msg. actual entries := que entries FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     get next entry line;ÿÿÿÿÿÿ.     send (order task, ack, order ds);ÿÿÿÿÿÿÿÿÿ     . get next entry line :ÿÿÿ.         REP control msg. index INCR 1;ÿÿÿÿÿÿÿÿN             IF control msg. index > LENGTH control msg. actual entriesÿÿÿÿÿÿÿÿ>                THEN control msg. index      := 0;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>                     control msg. entry line := "";ÿÿÿÿÿÿÿÿÿÿÿÿ.                     LEAVE get next entry line;             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             que index := control que index;ÿÿÿ>         UNTIL is valid que index (que index) PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿ>         control msg. entry line := list entry. entry line;ÿÿÿÿ     . control que index :ÿÿÿÿÿN         pos (que entries, control msg. actual entries SUB control msg. index)ÿ   kill entry :N     control msg := order ds; check control password (control msg. password);ÿÿ.     kill spool (control que index);ÿÿÿÿÿÿÿÿÿÿÿ.     send (order task, ack, order ds);ÿÿÿÿÿÿÿÿÿ   make to first :ÿÿÿÿÿÿÿÿÿÿÿÿÿN     control msg := order ds; check control password (control msg. password);ÿÿ.     first spool (control que index);ÿÿÿÿÿÿÿÿÿÿ.     send (order task, ack, order ds);ÿÿÿÿÿÿÿÿÿ   start server task :ÿÿÿÿÿÿÿÿÿ>     msg := order ds; check control password (msg. password);ÿÿ>     IF exists (server) AND NOT stop cmd pendingÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>        THEN errorstop ("Spool muû zuerst gestoppt werden") FI;.     new server channel is necessary;ÿÿÿÿÿÿÿÿÿÿ     start cmd pending := TRUE;>     IF server channel <= 0 OR server channel >= 33ÿÿÿÿÿÿÿÿÿÿÿÿ^        THEN manager message ("WARNUNG : Serverkanal nicht eingestellt", order task);ÿÿÿÿÿÿÿÿÿÿ        ELSE send ackÿÿÿÿÿÿÿÿÿÿ.     . new server channel is necessary :ÿÿÿÿÿÿÿ>         INT CONST new channel := int (msg. name);ÿÿÿÿÿÿÿÿÿÿÿÿÿN         IF last conversion ok THEN server channel (new channel) FI;ÿÿÿÿÿÿÿÿÿÿÿ   stop server task :ÿÿÿÿÿÿÿÿÿÿ>     msg := order ds; check control password (msg. password);ÿÿ     IF phase = 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        THEN start cmd pending := FALSE;ÿÿÿÿÿÿÿ.             deactive message  := msg. name;ÿÿÿ             stop server;ÿÿÿÿÿÿ             check fetch entry;.        ELSE reinsert fetch entry;ÿÿÿÿÿÿÿÿÿÿÿÿÿ             send ack;ÿÿÿÿÿÿÿÿÿ   halt server task :ÿÿÿÿÿÿÿÿÿÿ>     msg := order ds; check control password (msg. password);ÿÿ     IF phase = 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        THEN stop  cmd pending := TRUE; ÿÿÿÿÿÿÿ.             start cmd pending := FALSE;ÿÿÿÿÿÿÿ.             deactive message  := msg. name;ÿÿÿ>             IF   NOT exists (server) OR server is waitingÿÿÿÿÿ.                  THEN stop server;ÿÿÿÿÿÿÿÿÿÿÿÿ.                       check fetch entry;ÿÿÿÿÿÿ.             ELIF order = wait for halt codeÿÿÿ>                  THEN calling parent := order task;ÿÿÿÿÿÿÿÿÿÿÿ.                  ELSE send ack;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ             FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.        ELSE reinsert fetch entry;ÿÿÿÿÿÿÿÿÿÿÿÿÿ             send ack;ÿÿÿÿÿÿÿÿÿ     . check fetch entry :ÿÿÿÿÿ.         IF is valid fetch entryÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.            THEN manager question (""13""10"" +N                    fetch entry. entry line + "   neu eintragen", order task);ÿ.                 fetch index := -fetch index;ÿÿ            ELSE send ack;ÿÿÿÿÿ.     forget (order ds); order ds := nilspace;ÿÿ.     send (order task, ack, order ds)ÿÿÿÿÿÿÿÿÿÿ   spool monitor :ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     continue (order - continue code);ÿÿÿÿÿÿÿÿÿ     disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     put error message if there is one;ÿÿÿÿÿÿÿÿ     WHILE onlineÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     REP command dialogue (TRUE);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         sysout ("");ÿÿÿÿÿÿÿÿÿÿ         sysin ("");ÿÿÿÿÿÿÿÿÿÿÿ.         get command ("gib Spool-Kommando:");ÿÿ^         analyze command (spool command list, 3, command index, params, param1, param2);ÿÿÿÿÿÿÿ         reset editor;ÿÿÿÿÿÿÿÿÿ.         SELECT command index OF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.           CASE 1    :  start spoolÿÿÿÿÿÿÿÿÿÿÿÿ>           CASE 2    :  start spool (int (param1))ÿÿÿÿÿÿÿÿÿÿÿÿÿ.           CASE 3    :  stop  spoolÿÿÿÿÿÿÿÿÿÿÿÿ.           CASE 4    :  halt  spoolÿÿÿÿÿÿÿÿÿÿÿÿ.           CASE 5    :  first spoolÿÿÿÿÿÿÿÿÿÿÿÿ.           CASE 6    :  kill  spoolÿÿÿÿÿÿÿÿÿÿÿÿ.           OTHERWISE :  do commandÿÿÿÿÿÿÿÿÿÿÿÿÿ         END SELECT;ÿÿÿÿÿÿÿÿÿÿÿ.     save error message if there is one;ÿÿÿÿÿÿÿ     command dialogue (FALSE);ÿ     break (quiet);ÿÿÿÿÿÿÿÿÿÿÿÿ     set autonom;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     . put error message if there is one :ÿÿÿÿÿ.         IF error message buffer <> ""ÿÿÿÿÿÿÿÿÿ>            THEN errorstop (error message buffer); FI;ÿÿÿÿÿÿÿÿÿ.     . save error message if there is one :ÿÿÿÿ         IF is errorÿÿÿÿÿÿÿÿÿÿÿ>            THEN error message buffer := error message;ÿÿÿÿÿÿÿÿ                 clear error;ÿÿ.            ELSE error message buffer := "";ÿÿÿ     . reset editor :ÿÿÿÿÿÿÿÿÿÿ>         WHILE aktueller editor > 0 REP quit PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         clear error;ÿÿÿÿÿÿÿÿÿÿ END PROC spool manager;ÿÿÿÿÿÿÿ PROC  send first entry :ÿÿÿÿÿÿ   forget (global ds);ÿÿÿÿÿÿÿÿÿ.   global ds := que space (first index);ÿÿÿÿÿÿÿ.   send (server, ack, global ds, reply) ;ÿÿÿÿÿÿ   IF reply = ackÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      THEN fetch index       := first index;ÿÿÿ>           que entries       := subtext (que entries, 2);ÿÿÿÿÿÿ.           server is waiting := FALSE;ÿÿÿÿÿÿÿÿÿ.           start time        := time of day;ÿÿÿ.           start time        CAT " am ";ÿÿÿÿÿÿÿ.           start time        CAT date;ÿÿÿÿÿÿÿÿÿ END PROC send first entry;ÿÿÿÿN PROC into que (DATASPACE VAR order ds, TASK CONST order task) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF que is fullÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.      THEN errorstop ("Spool ist voll")ÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö      ELSE make new entry;ÿÿÿÿÿ           send ack;ÿÿÿÿÿÿÿÿÿÿÿ.           awake server if necessaryÿÿÿÿÿÿÿÿÿÿÿ   . make new entry :ÿÿÿÿÿÿÿÿÿÿ.       que  entries CAT (free entries SUB 1);ÿÿ>       free entries           := subtext (free entries, 2);ÿÿÿÿ.       que space (last index) := order ds;ÿÿÿÿÿ.       last entry. ds params  := save params;ÿÿ       build entry line;ÿÿÿÿÿÿÿ       . build entry line :ÿÿÿÿ>           IF LENGTH last entry. ds params. sender name > 16ÿÿÿ^              THEN buffer := subtext (last entry. ds params. sender name, 1, 13);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                   buffer CAT "...""";ÿÿÿÿÿÿÿÿÿN              ELSE buffer := last entry. ds params. sender name;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                   buffer CAT """";ÿÿÿÿÿÿÿÿÿÿÿÿ.                   buffer := text (buffer, 17);>           last entry. entry line := entry station text;ÿÿÿÿÿÿÿ.           last entry. entry line CAT "/""";ÿÿÿ.           last entry. entry line CAT buffer;ÿÿ.           last entry. entry line CAT " : """ ;N           last entry. entry line CAT last entry. ds params. name;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.           last entry. entry line CAT """  (" ;N           last entry. entry line CAT text (storage (order ds));ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.           last entry. entry line CAT " K)";ÿÿÿ.           . entry station text :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>               IF last entry. ds params. station = 0ÿÿÿÿÿÿÿÿÿÿÿ                  THEN "   "ÿÿÿ>                  ELSE text (last entry. ds params. station, 3)               FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   . send ack :.       forget (order ds); order ds := nilspace;.       send (order task, ack, order ds)ÿÿÿÿÿÿÿÿ.   . awake server if necessary :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>       IF server is waiting THEN send first entry FI;ÿÿÿÿÿÿÿÿÿÿ END PROC into que;ÿÿÿÿÿÿÿÿÿÿÿÿN (*********************************************************************) ÿÿÿÿÿÿN (*  Hilfsprozeduren zum Spoolmanager                                 *)ÿÿÿÿÿÿÿN (*********************************************************************) ÿÿÿÿÿÿ PROC reinsert fetch entry :ÿÿÿ   IF fetch index <> 0ÿÿÿÿÿÿÿÿÿN      THEN insert char (que entries, code (abs (fetch index)), 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿ           fetch index := 0;ÿÿÿ END PROC reinsert fetch entry; PROC erase fetch entry :ÿÿÿÿÿÿ   IF fetch index <> 0ÿÿÿÿÿÿÿÿÿ>      THEN free entries CAT code (abs (fetch index));ÿÿÿÿÿÿÿÿÿÿ>           forget (que space (abs (fetch index)));ÿÿÿÿÿÿÿÿÿÿÿÿÿ           fetch index := 0;ÿÿÿ END PROC erase fetch entry;ÿÿÿ. PROC start server (PROC server start):ÿÿÿÿÿÿÿÿ   stop server;.   begin (PROC server start, server);ÿÿÿÿÿÿÿÿÿÿ.   station by start  := station (myself);ÿÿÿÿÿÿ   start cmd pending := FALSE;ÿ   deactive message  := "";ÿÿÿÿ END PROC start server;ÿÿÿÿÿÿÿÿ PROC stop server :ÿÿÿÿÿÿÿÿÿÿÿÿN   IF exists (server) THEN end (server) ELSE check server (FALSE) FI;ÿÿÿÿÿÿÿÿÿÿ.   server            := niltask;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   server is waiting := FALSE;ÿ   stop cmd pending  := FALSE; .   send calling parent reply if necessary;ÿÿÿÿÿ.   . send calling parent reply if necessary :ÿÿ.       IF exists (calling parent)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          THEN forget (global ds); global ds := nilspace;ÿÿÿÿÿÿ>               send (calling parent, ack, global ds);ÿÿÿÿÿÿÿÿÿÿ.               calling parent  := niltask;ÿÿÿÿÿ END PROC stop server;ÿÿÿÿÿÿÿÿÿ. PROC check server (BOOL CONST with stop) :ÿÿÿÿ>   IF was define station CAND NOT is niltask (server) ÿÿÿÿÿÿÿÿÿ.      THEN stop old server if necessary FI;ÿÿÿÿ.   . stop old server if necessary :ÿÿÿÿÿÿÿÿÿÿÿÿ       access catalogue;ÿÿÿÿÿÿÿ.       TASK VAR old server := son (myself);ÿÿÿÿ.       WHILE NOT is niltask (old server)ÿÿÿÿÿÿÿN       REP IF index (old server) = index (server) THEN old server found FI;ÿÿÿÿ.           old server := brother (old server);ÿ       . old server found :ÿÿÿÿ>           IF name (old server) = "-" THEN end (old server) FI;.           IF with stop THEN stop server FI;ÿÿÿ.           LEAVE stop old server if necessary;ÿ END PROC check server;ÿÿÿÿÿÿÿÿ> BOOL PROC is valid que index (INT CONST index) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   1 <= index AND index <= number entriesÿÿÿÿÿÿ END PROC is valid que index;ÿÿ> BOOL PROC is entry from order task (TEXT CONST file name) :ÿÿÿ.   correct order task CAND correct filenameÿÿÿÿ   . correct order task :ÿÿÿÿÿÿ>       order task name = list entry. ds params. sendernameÿÿÿÿÿN           AND order task station = list entry. ds params. stationÿÿÿÿÿÿÿÿÿÿÿÿÿ   . correct file name :ÿÿÿÿÿÿÿN       file name = "" OR file name = list entry. ds params. nameÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC is entry from order task; ÿÿÿÿÿÿÿÿÿÿÿ> PROC check control password (TEXT CONST password) :ÿÿÿÿÿÿÿÿÿÿÿ  IF   control password = "-"ÿÿ>       THEN errorstop ("Kontrolle des Spools nicht erlaubt")ÿÿÿ>  ELIF control password <> "" CAND control password <> password.       THEN errorstop ("Passwort falsch")ÿÿÿÿÿÿ. END PROC check control password;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC next headline information (TEXT VAR t):ÿÿ>   begin pos := pos (headline (file), begin char, end pos + 1);   IF begin pos = 0ÿÿÿÿÿÿÿÿÿÿÿÿ>      THEN begin pos := LENGTH headline (file) + 1;ÿÿÿÿÿÿÿÿÿÿÿÿ           t := "";ÿÿÿÿÿÿÿÿÿÿÿÿN      ELSE end pos := pos (headline (file), end char, begin pos + 1);ÿÿÿÿÿÿÿÿÿÿ           IF end pos = 0ÿÿÿÿÿÿ>              THEN end pos := LENGTH headline (file) + 1; ÿÿÿÿÿ                   t := "";ÿÿÿÿN              ELSE t := subtext (headline (file), begin pos+1, end pos-1)ÿÿÿÿÿÿ. END PROC next headline information;ÿÿÿÿÿÿÿÿÿÿÿN (*********************************************************************) ÿÿÿÿÿÿN (*   Prozeduren zur Verwaltung der Warteschlange                     *) ÿÿÿÿÿÿN (*********************************************************************) ÿÿÿÿÿÿ PROC start spool :ÿÿÿÿÿÿÿÿÿÿÿÿ   enable stop;>   IF server channel <= 0 OR server channel >= 33ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN      THEN display (""13""10"WARNUNG : Serverkanal nicht eingestellt"13""10"")ÿ   start cmd pending := TRUE;ÿÿ END PROC start spool;ÿÿÿÿÿÿÿÿÿ. PROC start spool (INT CONST new channel) :ÿÿÿÿ   enable stop;.   server channel (new channel);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   start spool; END PROC start spool;ÿÿÿÿÿÿÿÿÿ. PROC stop spool (TEXT CONST deactive msg) :ÿÿÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   deactive message  := deactive msg;ÿÿÿÿÿÿÿÿÿÿ   start cmd pending := FALSE;ÿ   stop server;.   IF is valid fetch entry CAND on line CANDÿÿÿN        yes (""13""10"" + fetch entry. entry line + "   neu eintragen")ÿÿÿÿÿÿÿÿ      THEN reinsert fetch entry      ELSE erase fetch entry;ÿÿ END PROC stop spool;ÿÿÿÿÿÿÿÿÿÿ> PROC stop spool :  stop spool ("")  END PROC stop spool;ÿÿÿÿÿÿ. PROC halt spool (TEXT CONST deactive msg) :ÿÿÿ   enable stop;.   deactive message  := deactive msg;ÿÿÿÿÿÿÿÿÿÿ   stop  cmd pending := TRUE; ÿ   start cmd pending := FALSE;ÿN   IF NOT exists (server) OR server is waiting THEN stop spool FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC halt spool;ÿÿÿÿÿÿÿÿÿÿ> PROC halt spool :  halt spool ("")  END PROC halt spool;ÿÿÿÿÿÿ PROC kill spool :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   enable stop;   say (""13""10"");ÿÿÿÿÿÿÿÿÿÿÿ   que index := 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   WHILE que index <= number entriesÿÿÿÿÿÿÿÿÿÿÿ>   REP IF yes (list entry. entry line + "   loeschen")ÿÿÿÿÿÿÿÿÿ.          THEN kill spool (que index)ÿÿÿÿÿÿÿÿÿÿ          ELSE que index INCR 1 END PROC kill spool;ÿÿÿÿÿÿÿÿÿÿ. PROC kill spool (INT CONST index) :ÿÿÿÿÿÿÿÿÿÿÿ.   IF is valid que index (index)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>      THEN forget (que space (code (que entries SUB index)));ÿÿ>           free entries CAT (que entries SUB index);ÿÿÿÿÿÿÿÿÿÿÿ.           delete char (que entries, index);ÿÿÿ END PROC kill spool;ÿÿÿÿÿÿÿÿÿÿ PROC first spool :ÿÿÿÿÿÿÿÿÿÿÿÿ   enable stop;   say (""13""10"");ÿÿÿÿÿÿÿÿÿÿÿ.   FOR que indeööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööx FROM 1 UPTO number entriesÿÿÿÿ>   REP IF yes (list entry. entry line + "   als erstes")ÿÿÿÿÿÿÿ.          THEN first spool (que index);ÿÿÿÿÿÿÿÿ.               LEAVE first spoolÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC first spool;ÿÿÿÿÿÿÿÿÿ. PROC first spool (INT CONST index) :ÿÿÿÿÿÿÿÿÿÿ.   IF is valid que index (index)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN       THEN insert char (que entries, que entries SUB index, 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>            delete char (que entries, index + 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC first spool;ÿÿÿÿÿÿÿÿÿ. TEXT PROC spool entry line (INT CONST index) :.   IF   index = 0 CAND is valid fetch entryÿÿÿÿ.        THEN fetch entry. entry lineÿÿÿÿÿÿÿÿÿÿÿ.   ELIF is valid que index (index)ÿÿÿÿÿÿÿÿÿÿÿÿÿ        THEN entry. entry lineÿ        ELSE "".   . entry : que (code (que entries SUB index)) END PROC spool entry line;ÿÿÿÿN INT PROC number spool entries : number entries END PROC number spool entries;ÿ INT PROC spool status :ÿÿÿÿÿÿÿ   IF exists (server)ÿÿÿÿÿÿÿÿÿÿ      THEN IF stop cmd pendingÿ.              THEN IF start cmd pendingÿÿÿÿÿÿÿÿN                      THEN 3         (* aktiviert (neu start)        *)ÿÿÿÿÿÿÿÿN                      ELSE 2         (* aktiviert (warten auf halt)  *)ÿÿÿÿÿÿÿÿ                   FIÿÿÿÿÿÿÿÿÿÿ.              ELSE IF server is waitingÿÿÿÿÿÿÿÿN                      THEN 0         (* kein Auftrag in Bearbeitung  *)ÿÿÿÿÿÿÿÿN                      ELSE 1         (* aktiviert                    *)ÿÿÿÿÿÿÿÿ                   FIÿÿÿÿÿÿÿÿÿÿ   ELIF start cmd pendingÿÿÿÿÿÿN        THEN               0         (* wird aktiviert               *)ÿÿÿÿÿÿÿÿ   ELIF is valid fetch entryÿÿÿ.        THEN IF was define stationÿÿÿÿÿÿÿÿÿÿÿÿÿN                THEN      -3         (* deaktiviert (define station) *)ÿÿÿÿÿÿÿÿN                ELSE      -2         (* deaktiviert (server gelÚcht) *)ÿÿÿÿÿÿÿÿ             FIN        ELSE              -1         (* deaktiviert                  *)ÿÿÿÿÿÿÿÿ END PROC spool status;ÿÿÿÿÿÿÿÿ> TASK PROC server task :  server  END PROC server task;ÿÿÿÿÿÿÿÿ PROC clear spool :ÿÿÿÿÿÿÿÿÿÿÿÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF NOT initialized (init que space)ÿÿÿÿÿÿÿÿÿ.      THEN FOR que index FROM 1 UPTO que sizeÿÿ>               REP que space (que index) := nilspace PER;ÿÿÿÿÿÿ   que  entries := "";ÿÿÿÿÿÿÿÿÿ   free entries := "";ÿÿÿÿÿÿÿÿÿ   fetch index  := 0;ÿÿÿÿÿÿÿÿÿÿ   stop server;.   FOR que index FROM 1 UPTO que size ÿÿÿÿÿÿÿÿÿ.   REP forget (que space (que index));ÿÿÿÿÿÿÿÿÿ.       free entries CAT code (que index);ÿÿÿÿÿÿ END PROC clear spool;ÿÿÿÿÿÿÿÿÿ PROC list spool :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   DATASPACE VAR list ds := nilspace;ÿÿÿÿÿÿÿÿÿÿ>   FILE VAR list file := sequential file (output, list ds);ÿÿÿÿ   list spool (list file);ÿÿÿÿÿ   show (list file);ÿÿÿÿÿÿÿÿÿÿÿ   forget (list ds);ÿÿÿÿÿÿÿÿÿÿÿ END PROC list spool;ÿÿÿÿÿÿÿÿÿÿ PROC list spool (FILE VAR f) :   enable stop;   max line length (f, 1000);ÿÿ>   headline (f, station text  + name (myself) + """");ÿÿÿÿÿÿÿÿÿ   put spool duty;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   put current job;ÿÿÿÿÿÿÿÿÿÿÿÿ   put spool que;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   . station text :ÿÿÿÿÿÿÿÿÿÿÿÿ       IF station(myself) = 0ÿÿ          THEN "/"""ÿÿÿÿÿÿÿÿÿÿÿ.          ELSE text (station(myself)) + "/"""ÿÿ   . put spool duty :ÿÿÿÿÿÿÿÿÿÿ       IF spool duty <> ""ÿÿÿÿÿ.          THEN write (f, "Aufgabe: ");ÿÿÿÿÿÿÿÿÿ.               write (f, spool duty );ÿÿÿÿÿÿÿÿÿ               line (f, 2);ÿÿÿÿ   . put current job :ÿÿÿÿÿÿÿÿÿ       IF is valid fetch entryÿ>          THEN write (f, "In Bearbeitung seit ");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.               write (f, start time);ÿÿÿÿÿÿÿÿÿÿ               write (f, ":");ÿ               line (f, 2);ÿÿÿÿ>               putline (f, fetch entry. entry line);ÿÿÿÿÿÿÿÿÿÿÿ.               IF   NOT exists (server)ÿÿÿÿÿÿÿÿ.                    THEN IF was define stationÿn                            THEN putline (f, "Spool ist deaktiviert, da Stationsnummer geaendert wurde")ÿÿÿÿÿÿÿn                            ELSE putline (f, "Spool ist deaktiviert, da der Server gelÚscht wurde")ÿÿÿÿÿÿÿÿÿÿÿÿ                         FI;ÿÿÿ.               ELIF stop cmd pendingÿÿÿÿÿÿÿÿÿÿÿ.                    THEN IF start cmd pendingÿÿ^                            THEN putline (f, "Spool wird nach diesem Auftrag neu aktiviert");ÿÿ^                            ELSE putline (f, "Spool wird nach diesem Auftrag deaktiviert");ÿÿÿÿ                         FI;ÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ               line (f);ÿÿÿÿÿÿÿ>          ELSE write (f, "kein Auftrag in Bearbeitung");ÿÿÿÿÿÿÿ.               IF   NOT exists (server)ÿÿÿÿÿÿÿÿ>                    THEN write (f, ", da Spool deaktiviert");ÿÿ.                         IF start cmd pendingÿÿ.                            THEN line (f);ÿÿÿÿÿ^                                 write (f, "Spool wird nach Verlassen der Task aktiviert");ÿÿÿÿ                         FI;ÿÿÿ>                         IF deactive message <> ""ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                            THEN line (f);ÿÿÿÿÿ>                                 write (f, deactive message);ÿÿ                         FI;ÿÿÿ.               ELIF que is emptyÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                    THEN write (f, ", da Warteschlange leer");ÿ.                         LEAVE list spool;ÿÿÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ               line (f, 2);ÿÿÿÿ   . put spool que :ÿÿÿÿÿÿÿÿÿÿÿ       IF que is emptyÿÿÿÿÿÿÿÿÿ>          THEN putline (f, "Warteschlange ist leer");ÿÿÿÿÿÿÿÿÿÿ.          ELSE write (f, "Warteschlange (");ÿÿÿ>               write (f, text (number entries));ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.               IF number entries = 1ÿÿÿÿÿÿÿÿÿÿÿ.                  THEN write (f, " Auftrag):");>                  ELSE write (f, " Auftraege):");ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ               FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿ               line (f, 2);ÿÿÿÿ>               FOR que index FROM 1 UPTO number entriesÿÿÿÿÿÿÿÿ>                 REP putline (f, list entry. entry line) PER;ÿÿ END PROC list spool;ÿÿÿÿÿÿÿÿÿÿ ENDPACKET spool manager;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿP@  ÿÿ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ printer serverÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹a€ëÿÿe  e b b  p      ÿÿÿÿ       p         p  f  >Xÿþ    ÿÿ   ÿÿa€ÿ ÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  e ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿq€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
INT VAR c;ÿÿÿÿÿÿÿÿÿÿÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñƒÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁˆÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Šÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Šÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ printer serverN PACKET multi user printer :                      (* Autor : Rudolf Ruland  *)ÿN                                                  (* Stand : 24.03.86       *)ÿ. put ("gib Druckerkanal : "); get (c);ÿÿÿÿÿÿÿÿÿ   server channel (c);ÿÿÿÿÿÿÿÿÿ   station only (FALSE) ;ÿÿÿÿÿÿ.   spool duty ("Ausgabe mit dem Drucker");ÿÿÿÿÿ   spool control task (myself); LET ack              = 0 ,ÿÿÿÿ     fetch code       = 11 ,ÿÿÿ     param fetch code = 21 ,ÿÿÿ     file type        = 1003 ;ÿ. INT VAR reply, old heap size, sender station;ÿ> TEXT VAR file name, userid, password, sendername;ÿÿÿÿÿÿÿÿÿÿÿÿÿ FILE VAR file ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ DATASPACE VAR ds, file ds;ÿÿÿÿ^ BOUND STRUCT (TEXT file name, userid, password, sendername, INT station) VAR msg;ÿÿÿÿÿÿÿÿÿÿÿÿÿ BOUND TEXT VAR error msg ;ÿÿÿÿ spool manager (PROC printer);ÿ PROC printer :   disable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   command dialogue (FALSE);ÿÿÿ.   ds := nilspace; file ds := nilspace; ÿÿÿÿÿÿÿ   continue (server channel) ;ÿ.     check error ("Kanal belegt");ÿÿÿÿÿÿÿÿÿÿÿÿÿ   old heap size := heap size ;     execute print ;ÿÿÿÿÿÿÿÿÿÿÿ     IF is errorÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       THEN put error;ÿÿÿÿÿÿÿÿÿ            clear error;ÿÿÿÿÿÿÿ.     IF heap size > old heap size + 4ÿÿÿÿÿÿÿÿÿÿ.       THEN collect heap garbage ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.            old heap size := heap sizeÿÿÿÿÿÿÿÿÿ ENDPROC printer ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC execute print :ÿÿÿÿÿÿÿÿÿÿ   enable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   forget (file ds) ; file ds := nilspace ;ÿÿÿÿ.   call (father, fetch code, file ds, reply) ;ÿ>   IF reply = ack CAND type (file ds) = file typeÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      THEN get file params;ÿÿÿÿ           print fileÿÿÿÿÿÿÿÿÿÿ . get file params :ÿÿÿÿÿÿÿÿÿÿÿ.     forget (ds); ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     call (father, param fetch code, ds, reply);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF reply <> ackÿÿÿÿÿÿÿÿÿÿÿ>        THEN error msg := ds; errorstop (error msg);ÿÿÿÿÿÿÿÿÿÿÿ        ELSE msg := ds;ÿÿÿÿÿÿÿÿ.             file name      := msg. file name;ÿ.             userid         := msg. userid;ÿÿÿÿ.             password       := msg. password;ÿÿ>             sendername     := msg. sender name;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.             sender station := msg. station;ÿÿÿ . print file :.     file := sequential file (input, file ds);ÿ     print (file,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>            PROC (INT CONST, INT VAR, INT VAR) open,ÿÿÿÿÿÿÿÿÿÿÿ.            PROC (INT CONST, INT CONST) close,ÿN            PROC (INT CONST, TEXT CONST, INT CONST, INT CONST) execute);ÿÿÿÿÿÿÿ ENDPROC execute print ;ÿÿÿÿÿÿÿ. PROC check error (TEXT CONST message) :ÿÿÿÿÿÿÿ     IF is errorÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        THEN clear error;ÿÿÿÿÿÿ.             rename myself (message);ÿÿÿÿÿÿÿÿÿÿ>             IF is error THEN clear error; end (myself) FI;ÿÿÿÿ             pause (18000);ÿÿÿÿ             end (myself);ÿÿÿÿÿ END PROC check error;ÿÿÿÿÿÿÿÿÿ ENDPACKET multi user printer ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿport serverÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡”a€ëÿÿ¦  ¦ £ £  |      ÿÿÿÿ       |         |  §  >Xÿþ    ÿÿ   ÿÿÿÿport serverÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  ¦ ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿV ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿenable stop;ÿÿÿÿÿÿÿÿÿÑ†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŠÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ŒÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŒÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Žÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŽÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI;ÿÿÿÿÿÿÿÿÿÿÿ	     PER;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
END OP //;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‘ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA’ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa“ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ“ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET port server:                                   (* Autor : R. Ruland *)ÿN                                                       (* Stand : 21.03.86  *)ÿ INT  VAR port station;ÿÿÿÿÿÿÿÿ TEXT VAR port := "PRINTER";ÿÿÿ> put ("gib Name des Zielspools : "); editget (port); line;ÿÿÿÿÿN put ("gib Stationsnummer des Zielspools : "); get (port station);ÿÿÿÿÿÿÿÿÿÿÿÿÿ server channel (15);ÿÿÿÿÿÿÿÿÿÿ. spool duty ("Verwalter fuer Task """ + port +ÿN                                     """ auf Station " + text (port station));ÿ LET max counter      = 10 ,ÿÿÿ     time slice       = 300 ,ÿÿ     ack              = 0 ,ÿÿÿÿ     fetch code       = 11 ,ÿÿÿ     param fetch code = 21 ,ÿÿÿ     file save code   = 22 , ÿÿ     file type        = 1003 ,ÿ     begin char       = ""0"",ÿ     end char         = ""1"";ÿ INT VAR reply, old heap size;ÿ> TEXT VAR file name, write pass, read pass, sendername, buffer; FILE VAR file;. DATASPACE VAR ds, file ds, send ds;ÿÿÿÿÿÿÿÿÿÿÿ^ BOUND STRUCT (TEXT file name, write pass, read pass, sendername, INT station) VAR msg;ÿÿÿÿÿÿÿÿ BOUND TEXT VAR error msg ;ÿÿÿÿ. spool manager (PROC save file);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC save file :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   disable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   command dialogue (FALSE);ÿÿÿ>   ds := nilspace; file ds := nilspace; send ds := nil space;ÿÿ   old heap size := heap size;ÿ     execute save file;ÿÿÿÿÿÿÿÿ>     IF is error THEN save error (error message) FI;ÿÿÿÿÿÿÿÿÿÿÿ.     IF heap size > old heap size + 4ÿÿÿÿÿÿÿÿÿÿ.       THEN collect heap garbage ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.            old heap size := heap sizeÿÿÿÿÿÿÿÿÿ ENDPROC save file;ÿÿÿÿÿÿÿÿÿÿÿÿ PROC execute save file :ÿÿÿÿÿÿ. forget (file ds) ; file ds := nilspace;ÿÿÿÿÿÿÿ. call (father, fetch code, file ds, reply);ÿÿÿÿ IF reply <> ackÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>    THEN error msg := ds; errorstop (error msg);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ELSE save file dsÿÿÿÿÿÿÿÿÿÿ . save file ds :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     IF type (file ds) = file type ÿÿÿÿÿÿÿÿÿÿÿÿ        THEN get file params;ÿÿ.             insert file params;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN             call station (port station, port, file save code, file ds);ÿÿÿÿÿÿÿ>        ELSE errorstop ("Datenraum hat falschen Typ")ÿÿÿÿÿÿÿÿÿÿ . get file params :ÿÿÿÿÿÿÿÿÿÿÿ.     forget (ds); ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     call (father, param fetch code, ds, reply);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF reply <> ackÿÿÿÿÿÿÿÿÿÿÿ>        THEN error msg := ds; errorstop (error msg);ÿÿÿÿÿÿÿÿÿÿÿ        ELSE msg := ds;ÿÿÿÿÿÿÿÿ.             file name  := msg. file name;ÿÿÿÿÿ.             write pass := msg. write pass;ÿÿÿÿ.             read pass  := msg. read pass;ÿÿÿÿÿ.             sendername := msg. sender name;ÿÿÿ . insert file params :ÿÿÿÿÿÿÿÿ     buffer := "";ÿÿÿÿÿÿÿÿÿÿÿÿÿ     in headline (filename);ÿÿÿ     in headline (write pass);ÿ     in headline (read pass);ÿÿ     in headline (sendername);ÿ.     file := sequential file (input, file ds) ;     headline (file, buffer);ÿÿ END PROC execute save file;ÿÿÿN PROC call station (INT CONST order task station, TEXT CONST order task name,ÿÿN                    INT CONST order code, DATASPACE VAR order ds) :ÿÿÿÿÿÿÿÿÿÿÿÿ      INT VAR counter := 0;ÿÿÿÿ      TASK VAR order task;ÿÿÿÿÿ      disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿ>      REP order task := order task station // order task name;ÿN          IF is error CAND pos (error message, "antwortet nicht") > 0ÿÿÿÿÿÿÿÿÿÿ             THEN clear error;ÿ>                  counter := min (max counter, counter + 1);ÿÿÿ.                  pause (counter * time slice);             ELSE enable stop;ÿ>                  forget (send ds); send ds := order ds;ÿÿÿÿÿÿÿN                  call (order task, order code, send ds, reply);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                  disable stop;.                  IF reply = ack ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                     THEN forget (order ds); order ds := send ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                          forget (send ds);ÿÿÿÿ.                          LEAVE call stationÿÿÿ.                     ELSE error msg := send ds;>                          errorstop (error msg);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                  FI;ÿÿÿÿÿÿÿÿÿÿ END PROC call station;ÿÿÿÿÿÿÿÿ> TASK OP // (INT CONST station, TEXT CONST name) :ÿÿÿÿÿÿÿÿÿÿÿÿÿ     enable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     station / nameÿÿÿÿÿÿÿÿÿÿÿÿ. PROC in headline (TEXT CONST information) :ÿÿÿ.     IF pos (information, begin char) <> 0 ÿÿÿÿ.          OR pos (information, end char) <> 0 ÿN        THEN errorstop ("Name darf nicht Code 0 oder Code 1 enthalten") FI;ÿÿÿÿ     buffer CAT begin char;ÿÿÿÿ     buffer CAT information;ÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö     buffer CAT end char;ÿÿÿÿÿÿ END PROC in headline;ÿÿÿÿÿÿÿÿÿ. PROC save error (TEXT CONST message) :ÿÿÿÿÿÿÿÿ      clear error;ÿÿÿÿÿÿÿÿÿÿÿÿÿ      file name CAT ".";ÿÿÿÿÿÿÿ.      file name CAT sender name;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      file name CAT ".ERROR";ÿÿ>      file := sequential file (output, file name);ÿÿÿÿÿÿÿÿÿÿÿÿÿ      putline (file, " ");ÿÿÿÿÿ>      putline (file, "Uebertragung nicht korrekt beendet ");ÿÿÿ      putline (file, " ");ÿÿÿÿÿ>      put (file, "ERROR :"); put (file, message);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      save (file name, public);      clear error;ÿÿÿÿÿÿÿÿÿÿÿÿÿ      forget(file name, quiet); END PROC save error;ÿÿÿÿÿÿÿÿÿÿ ENDPACKET port server;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿpurgeÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆa€ëÿÿW  W T T  ˆ      ÿÿÿÿ       ˆ         ˆ  X  >M     ÿÿ   ÿÿÿÿpurgeÿÿÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  W ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPROC purge :ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ€ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‚ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP .ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP ;ÿÿÿÿÿÿÿÿÿÿÿÿ	  FALSE .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP .ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‡ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaˆÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP ;ÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿ	  FALSE .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ PACKET purge DEFINES purge :ÿÿ. TEXT VAR task name, record, file name, dummy ; FILE VAR permit ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   IF exists ("permitted tasks")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN access catalogue ;ÿÿÿN          permit := sequential file (input, "permitted tasks") ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          say (""10""13"TASKS :"10""10""13"") ;.          IF myself < supervisorÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>            THEN purge son tasks (brother (supervisor))ÿÿÿÿÿÿÿÿ.            ELSE purge son tasks (myself)ÿÿÿÿÿÿ.   IF exists ("permitted files")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN     THEN permit := sequential file (input, "permitted files") ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>          say (""10""13"DATEIEN :"10""10""13"") ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          purge filesÿÿÿÿÿÿÿÿÿÿ ENDPROC purge ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC purge son tasks (TASK CONST father task) :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   TASK VAR actual task := son (father task) ;ÿ.   WHILE NOT is niltask (actual task) REPÿÿÿÿÿÿ.     purge son tasks (actual task) ;ÿÿÿÿÿÿÿÿÿÿÿ.     IF NOT actual task permittedÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       THEN erase actual taskÿÿ.     actual task := brother (actual task)ÿÿÿÿÿÿ erase actual task :ÿÿÿÿÿÿÿÿÿÿÿ.   say ("""") ; say (task name) ; say ("""") ;ÿ   IF yes (" loeschen")ÿÿÿÿÿÿÿÿ     THEN end (actual task)ÿÿÿÿ actual task permitted :ÿÿÿÿÿÿÿ.   task name := name (actual task) ;ÿÿÿÿÿÿÿÿÿÿÿ   reset (permit) ;ÿÿÿÿÿÿÿÿÿÿÿÿ   WHILE NOT eof (permit) REPÿÿ     getline (permit, record) ;     IF task name = recordÿÿÿÿÿ>       THEN LEAVE actual task permitted WITH TRUEÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC purge son tasks ;ÿÿÿÿÿ PROC purge files :ÿÿÿÿÿÿÿÿÿÿÿÿ   begin list ;.   get list entry (file name, dummy) ;ÿÿÿÿÿÿÿÿÿ   WHILE file name <> "" REPÿÿÿ     IF NOT file permittedÿÿÿÿÿ       THEN forget (file name)ÿ.     get list entry (file name, dummy)ÿÿÿÿÿÿÿÿÿ file permitted :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   IF file name = "permitted tasks" OR file name = "permitted files"ÿÿÿÿÿÿÿÿÿÿÿ.     THEN LEAVE file permitted WITH TRUEÿÿÿÿÿÿÿ   reset (permit) ;ÿÿÿÿÿÿÿÿÿÿÿÿ   WHILE NOT eof (permit) REPÿÿ     getline (permit, record) ;     IF file name = recordÿÿÿÿÿ.       THEN LEAVE file permitted WITH TRUEÿÿÿÿÿ ENDPROC purge files ;ÿÿÿÿÿÿÿÿÿ ENDPACKET purge ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿcryptÿÿÿÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööaa€ëÿÿŒ  Œ ‰ ‰  ”      ÿÿÿÿ       ”         ”    >M     ÿÿ   ÿÿÿÿcryptÿÿÿÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  Œ ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  crypt ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  decrypt :ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿcrypt char :ÿÿÿÿÿÿÿÿÿ‘‚ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑƒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ…ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡†ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ˆÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿENDPROC eof ;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŠÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŒÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (* ------------------- VERSION 2 vom 21.04.86 ------------------- *)ÿÿÿÿÿÿÿÿÿÿN PACKET cryptograf DEFINES                     (* Autor: J.Liedtke *)ÿÿÿÿÿÿÿÿÿÿ. TEXT VAR char , in buffer, out buffer ;ÿÿÿÿÿÿÿ INT VAR in pos , key index ;ÿÿ DATASPACE VAR scratch space ;ÿ FILE VAR in, out;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC crypt (TEXT CONST file, key) :ÿÿÿÿÿÿÿÿÿÿÿ   open (file) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   initialize crypt (key) ;ÿÿÿÿ   WHILE NOT eof REPÿÿÿÿÿÿÿÿÿÿÿ     read char ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     crypt char ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     write char   close (file) .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   char := code (( character + random char + key char ) MOD 250) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF key index = LENGTH keyÿÿÿ     THEN key index := 1ÿÿÿÿÿÿÿ     ELSE key index INCR 1ÿÿÿÿÿ character   : code (char) .ÿÿÿ random char : random (0,250).ÿ. key char    : code (key SUB key index) .ÿÿÿÿÿÿ ENDPROC crypt ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC decrypt (TEXT CONST file, key) :ÿÿÿÿÿÿÿÿÿ   open (file) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   initialize crypt (key) ;ÿÿÿÿ   WHILE NOT eof REPÿÿÿÿÿÿÿÿÿÿÿ     read char ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     decrypt char ;ÿÿÿÿÿÿÿÿÿÿÿÿ     write char   close (file) .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ decrypt char :N   char := code (( character - random char - key char ) MOD 250) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF key index = LENGTH keyÿÿÿ     THEN key index := 1ÿÿÿÿÿÿÿ     ELSE key index INCR 1ÿÿÿÿÿ character   : code (char) .ÿÿÿ random char : random (0,250) .. key char    : code (key SUB key index) .ÿÿÿÿÿÿ ENDPROC decrypt ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC initialize crypt (TEXT CONST key) :ÿÿÿÿÿÿ   INT VAR random key := 0 ;ÿÿÿ.   FOR key index FROM 1 UPTO LENGTH key REPÿÿÿÿN     random key := (random key + code (key SUB key index)) MOD 32000ÿÿÿÿÿÿÿÿÿÿÿ.   initialize random (random key) ;ÿÿÿÿÿÿÿÿÿÿÿÿ   key index := 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC initialize crypt ;ÿÿÿÿ. PROC open (TEXT CONST source file) :ÿÿÿÿÿÿÿÿÿÿ.   in := sequential file (input, source file) ;   getline (in, in buffer) ;ÿÿÿ   in pos := 1 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   forget (scratch space) ; ÿÿÿ   scratch space := nilspace ; >   out := sequential file (output, scratch space) ;ÿÿÿÿÿÿÿÿÿÿÿÿ   out buffer := "" .ÿÿÿÿÿÿÿÿÿÿ ENDPROC open ;. PROC close (TEXT CONST source file) :ÿÿÿÿÿÿÿÿÿ   IF out buffer <> ""ÿÿÿÿÿÿÿÿÿ.     THEN putline (out, out buffer)ÿÿÿÿÿÿÿÿÿÿÿÿ.   forget (source file, quiet) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   copy (scratch space, source file) ;ÿÿÿÿÿÿÿÿÿ   forget (scratch space) .ÿÿÿÿ ENDPROC close ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL PROC eof :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF in pos > LENGTH in buffer     THEN eof (in)ÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELSE FALSE PROC read char :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF in pos > 250ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN getline (in, in buffer) ;ÿÿÿÿÿÿÿÿÿÿÿÿ          in pos := 1 ;ÿÿÿÿÿÿÿÿ          read charÿÿÿÿÿÿÿÿÿÿÿÿ.   ELIF in pos > LENGTH in bufferÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN in pos := 1 ;ÿÿÿÿÿÿÿÿ.          getline (in, in buffer) ;ÿÿÿÿÿÿÿÿÿÿÿÿ          char := ""13""ÿÿÿÿÿÿÿ.     ELSE char := in buffer SUB in pos ;ÿÿÿÿÿÿÿ          in pos INCR 1ÿÿÿÿÿÿÿÿ ENDPROC read char ;ÿÿÿÿÿÿÿÿÿÿÿ PROC write char :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF char = ""13""ÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN putline (out, out buffer) ;ÿÿÿÿÿÿÿÿÿÿ          out buffer := ""ÿÿÿÿÿ     ELSE out buffer CAT charÿÿ   IF LENGTH out buffer = 250ÿÿ.     THEN putline (out, out buffer) ;ÿÿÿÿÿÿÿÿÿÿ          out buffer := ""ÿÿÿÿÿ ENDPROC write char ;ÿÿÿÿÿÿÿÿÿÿ ENDPACKET cryptograf ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿfree channelÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    0    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¬a€ëÿÿ° °­­        ÿÿÿÿ                    ± >M ÿþ    ÿÿ   ÿÿÿÿfree channelÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  °ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FCHANNEL ,ÿÿÿÿÿÿÿÿÿÿÿ  := ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  open ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  close ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  out ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  in ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  dialogue ,ÿÿÿÿÿÿÿÿÿÿÿ  save ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  fetch :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  open (dest)ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ENDOP := ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa…ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!†ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‡ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ŠÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Šÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‹ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Œÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿENDPROC out ;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Œÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿENDPROC in ;ÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿprepare ds :ÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Žÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŽÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         PERÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‘ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‘ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿprepare ds :ÿÿÿÿÿÿÿÿÿ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡“ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±”ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!•ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±•ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±–ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá–ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq—ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö¡—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  break ;ÿÿÿÿÿÿÿÿÿÿÿÿÁ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá—ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA˜ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ˜ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿuse channel :ÿÿÿÿÿÿÿÿ™ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1™ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq™ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±™ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ™ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqšÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF is errorÿÿÿÿÿÿÿÿÁšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿášÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
dialogue :ÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!›ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ›ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  msg := ds ;ÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAžÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿážÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŸÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1 ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿignore open :ÿÿÿÿÿÿÿÿ ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ± ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  TEXT CONSTÿÿÿÿÿÿÿÿÿQ¢ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¢ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿend of line :ÿÿÿÿÿÿÿÿ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ£ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿskip chars :ÿÿÿÿÿÿÿÿÿ¤ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  open file ;ÿÿÿÿÿÿÿÿÁ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¦ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¦ÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ§ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  TEXT CONSTÿÿÿÿÿÿÿÿÿ§ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±§ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá§ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿopen file :ÿÿÿÿÿÿÿÿÿÿA¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿA©ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ©ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ©ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿexpand tabs:ÿÿÿÿÿÿÿÿÿñªÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿpage:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ«ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ«ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET free channel DEFINES                       (* Autor: J.Liedtke *)ÿÿÿÿÿÿN                                                   (* Stand: 10.06.86  *)ÿÿÿÿÿÿ   free channel ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LET ack                = 0 ,ÿÿ     nak                = 1 ,ÿÿ     error nak          = 2 ,ÿÿ     empty message code = 256 ,     long message code  = 257 ,.     file send code     = 1024 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     file receive code  = 2048 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     open code          = 1000 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     close code         = 1001 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     file type          = 1003 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. INT CONST task not existing := - 1 ;ÿÿÿÿÿÿÿÿÿÿN TYPE FCHANNEL = STRUCT (TASK server, TEXT input buffer, server name) ;ÿÿÿÿÿÿÿÿ. INT VAR message code , response code ;ÿÿÿÿÿÿÿÿ TASK VAR partner ;ÿÿÿÿÿÿÿÿÿÿÿÿ DATASPACE VAR ds ;ÿÿÿÿÿÿÿÿÿÿÿÿ BOUND TEXT VAR msg ;ÿÿÿÿÿÿÿÿÿÿ. TEXT VAR response, char, esc char , record ;ÿÿ FILE VAR file ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> OP := (FCHANNEL VAR dest, FCHANNEL CONST source) :ÿÿÿÿÿÿÿÿÿÿÿÿ.   dest.server := source.server ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   dest.input buffer := "" ;ÿÿÿ.   dest.server name := source.server name ;ÿÿÿÿ> FCHANNEL PROC free channel (TEXT CONST channel name) :ÿÿÿÿÿÿÿÿ.   FCHANNEL:(niltask,"", channel name)ÿÿÿÿÿÿÿÿÿ ENDPROC free channel ;ÿÿÿÿÿÿÿÿ. PROC open (FCHANNEL VAR channel) :ÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR receipt ;ÿÿÿÿÿÿÿÿÿÿÿ.   initialize message dataspace ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   send open code ;ÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö   IF receipt <> ackÿÿÿÿÿÿÿÿÿÿÿ.     THEN errorstop ("channel not free")ÿÿÿÿÿÿÿ initialize message dataspace :   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace .ÿÿÿÿÿÿÿÿÿÿÿÿ send open code :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   ping pong (channel.server, open code, ds, receipt) ;ÿÿÿÿÿÿÿÿ.   IF receipt = task not existingÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN channel.server := task (channel.server name) ;ÿÿÿÿÿÿÿ>          ping pong (channel.server, open code, ds, receipt)ÿÿÿ ENDPROC open ;. PROC close (FCHANNEL VAR channel) :ÿÿÿÿÿÿÿÿÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ>   call (channel.server, close code, ds, response code)ÿÿÿÿÿÿÿÿ ENDPROC close ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC close (TEXT CONST channel server) :ÿÿÿÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ>   call (task (channel server), close code, ds, response code)ÿ ENDPROC close ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC out (FCHANNEL VAR channel, TEXT CONST message) :ÿÿÿÿÿÿÿÿÿ   send message ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   get response .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ send message :   IF message = ""ÿÿÿÿÿÿÿÿÿÿÿÿÿN     THEN call (channel.server, empty message code, ds, response code)ÿÿÿÿÿÿÿÿÿ     ELSE msg := ds ;ÿÿÿÿÿÿÿÿÿÿ.          CONCR (msg) := message ;ÿÿÿÿÿÿÿÿÿÿÿÿÿN          call (channel.server, long message code, ds, response code)ÿÿÿÿÿÿÿÿÿÿ get response :   IF response code < 0ÿÿÿÿÿÿÿÿ.     THEN errorstop ("channel not ready")ÿÿÿÿÿÿ   ELIF response code < 256ÿÿÿÿ>     THEN channel.input buffer CAT code (response code)ÿÿÿÿÿÿÿÿ.   ELIF response code = long message codeÿÿÿÿÿÿ     THEN msg := ds ;ÿÿÿÿÿÿÿÿÿÿ.          channel.input buffer CAT CONCR (msg)ÿ> PROC in (FCHANNEL VAR channel, TEXT VAR response) :ÿÿÿÿÿÿÿÿÿÿÿ   out (channel, "") ;ÿÿÿÿÿÿÿÿÿ.   response := channel.input buffer ;ÿÿÿÿÿÿÿÿÿÿ   channel.input buffer := ""ÿÿN PROC save (FCHANNEL VAR channel, TEXT CONST file name, control chars) :ÿÿÿÿÿÿÿ   prepare ds ;>   call (channel.server, file send code, ds, response code) ;ÿÿ   IF response code = error nak.     THEN BOUND TEXT VAR error msg := ds ;ÿÿÿÿÿ          errorstop (error msg)   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   ds := old (file name, file type) ;ÿÿÿÿÿÿÿÿÿÿ.   FILE VAR f := sequential file (modify, ds) ;.   headline (f, control chars) .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC save ;N PROC fetch (FCHANNEL VAR channel, TEXT CONST file name, control chars) :ÿÿÿÿÿÿN   IF NOT exists (file name) COR yes ("""" + file name + """ loeschen")ÿÿÿÿÿÿÿÿ     THEN fetch first part ;ÿÿÿ.          WHILE more to fetch REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            fetch next partÿÿÿÿ fetch first part :ÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR part := 0 ;ÿÿÿÿÿÿÿÿÿ>   receive file (channel, file name, control chars) .ÿÿÿÿÿÿÿÿÿÿ fetch next part :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   part INCR 1 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   receive file (channel, file name + "." + text (part), control chars) .ÿÿÿÿÿÿ> more to fetch :  response code = file receive code .ÿÿÿÿÿÿÿÿÿÿ ENDPROC fetch ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PROC receive file (FCHANNEL VAR channel,TEXT CONST file name, control chars):ÿ   prepare ds ;>   call (channel.server, file receive code, ds, response code);   IF response code = error nak.     THEN BOUND TEXT VAR error msg := ds ;ÿÿÿÿÿ          errorstop (error msg).     ELSE forget (file name, quiet) ;ÿÿÿÿÿÿÿÿÿÿ.          copy (ds, file name) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          forget (ds) ;ÿÿÿÿÿÿÿÿ          ds := nilspace ;ÿÿÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ   BOUND TEXT VAR ctl := ds ;ÿÿ   ctl := control chars .ÿÿÿÿÿÿ ENDPROC receive file ;ÿÿÿÿÿÿÿÿ> PROC dialogue (FCHANNEL CONST channel, TEXT CONST esc) :ÿÿÿÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ   partner := channel.server ;ÿ   esc char := esc ;ÿÿÿÿÿÿÿÿÿÿÿ   enable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   response code := empty message code ;ÿÿÿÿÿÿÿ.     get and send message charety ;ÿÿÿÿÿÿÿÿÿÿÿÿ     out response optionÿÿÿÿÿÿÿ get and send message charety :.   IF response code = empty message codeÿÿÿÿÿÿÿ.     THEN char := incharety (10)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELSE char := incharetyÿÿÿÿ   IF char = "">     THEN call (partner, empty message code, ds, response code)   ELIF char = esc charÿÿÿÿÿÿÿÿ     THEN LEAVE dialogueÿÿÿÿÿÿÿ>   ELSE   call (partner, code (char), ds, response code)ÿÿÿÿÿÿÿ out response option :ÿÿÿÿÿÿÿÿÿ   IF response code < 256ÿÿÿÿÿÿ.     THEN out (code (response code))ÿÿÿÿÿÿÿÿÿÿÿ.   ELIF response code = long message codeÿÿÿÿÿÿ     THEN msg := ds ;ÿÿÿÿÿÿÿÿÿÿ          out (CONCR (msg))ÿÿÿÿ ENDPROC dialogue ;ÿÿÿÿÿÿÿÿÿÿÿÿ. PROC free channel (INT CONST nr) :ÿÿÿÿÿÿÿÿÿÿÿÿ   INT CONST my channel := nr ;   disable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     wait (ds, message code, partner) ;ÿÿÿÿÿÿÿÿ.     IF message code = open codeÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       THEN connect to my channel ;ÿÿÿÿÿÿÿÿÿÿÿÿ            use channel ;ÿÿÿÿÿÿ            break (quiet)ÿÿÿÿÿÿ     ELIF message code >= 0ÿÿÿÿ.       THEN send (partner, nak, ds)ÿÿÿÿÿÿÿÿÿÿÿÿ.   ping pong (partner, ack, ds, message code) ;>   WHILE message code <> close code AND message code >= 0 REPÿÿ>     IF   message code <= long message code  THEN dialogueÿÿÿÿÿ>     ELIF message code =  file receive code  THEN receive fileÿ>     ELIF message code =  file send code     THEN send fileÿÿÿÿ>     ELIF message code =  open code          THEN ignore openÿÿ.     ELSE errorstop ("falsche Sendung")ÿÿÿÿÿÿÿÿ   UNTIL is error PER ;ÿÿÿÿÿÿÿÿ     THEN send error messageÿÿÿ     ELSE send handshake ackÿÿÿ   IF message code < 256ÿÿÿÿÿÿÿ.     THEN out (code (message code))ÿÿÿÿÿÿÿÿÿÿÿÿ.   ELIF message code = long message codeÿÿÿÿÿÿÿ     THEN msg := ds ;ÿÿÿÿÿÿÿÿÿÿ          out (CONCR (msg))ÿÿÿÿ   response := incharety (1) ;ÿ   IF response = ""ÿÿÿÿÿÿÿÿÿÿÿÿN     THEN ping pong (partner, empty message code, ds, message code)ÿÿÿÿÿÿÿÿÿÿÿÿ.     ELSE short or long responseÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ short or long response :ÿÿÿÿÿÿ   char := incharety ;ÿÿÿÿÿÿÿÿÿ   IF char = ""     THEN short responseÿÿÿÿÿÿÿ     ELSE long responseÿÿÿÿÿÿÿÿ short response :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   ping pong (partner, code (response), ds, message code) .ÿÿÿÿ long response :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   response CAT char ;ÿÿÿÿÿÿÿÿÿ   msg := response ;ÿÿÿÿÿÿÿÿÿÿÿ     cat input (msg, char) ;ÿÿÿ     msg CAT charÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   UNTIL char = "" OR LENGTH msg > 500 PER ;ÿÿÿ>   ping pong (partner, long message code, ds, message code) .ÿÿ connect to my channel :ÿÿÿÿÿÿÿ   continue (my channel) ;ÿÿÿÿÿ   WHILE is error REPÿÿÿÿÿÿÿÿÿÿ     clear error ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     pause (100) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     continue (my channel)ÿÿÿÿÿ send handshake ack :ÿÿÿÿÿÿÿÿÿÿ   send (partner, ack, ds) .ÿÿÿ send error message :ÿÿÿÿÿÿÿÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   BOUND TEXT VAR error msg := ds ;ÿÿÿÿÿÿÿÿÿÿÿÿ   error msg := error message ;   clear error ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   send (partner, error nak, ds) .ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   ping pong (partner, ack, ds, message code) . ENDPROC free channel ;ÿÿÿÿÿÿÿÿ PROC send file :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   enable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   file := sequential file (input,ds) ;ÿÿÿÿÿÿÿÿ   get control chars ;ÿÿÿÿÿÿÿÿÿ   skip chars ;     getline (file, record) ;ÿÿ     out (record) ;ÿÿÿÿÿÿÿÿÿÿÿÿ     end of lineÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   UNTIL eof (file) PER ;ÿÿÿÿÿÿ   end of transmission ;ÿÿÿÿÿÿÿ   send ack reply .ÿÿÿÿÿÿÿÿÿÿÿÿ get control chars :ÿÿÿÿÿÿÿÿÿÿÿ.   control chars := headline (file) ,ÿÿÿÿÿÿÿÿÿÿ.   end of file char := control chars SUB 1 ,ÿÿÿ.   end of line char := control chars SUB 2 ,ÿÿÿ.   handshake   char := control chars SUB 3 .ÿÿÿ   out (end of line char) ;ÿÿÿÿ   IF handshake char <> ""ÿÿÿÿÿ     THEN wait for handshakeÿÿÿ wait for handshake :ÿÿÿÿÿÿÿÿÿÿ     char := incharety (300) ;ÿ     IF char = ""ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       THEN errorstop ("timeout")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö.   UNTIL char = handshake char PER .ÿÿÿÿÿÿÿÿÿÿÿ end of transmission :ÿÿÿÿÿÿÿÿÿ   skip chars ;   out (end of file char) .ÿÿÿÿ.   WHILE incharety (3) <> "" REP PER .ÿÿÿÿÿÿÿÿÿ send ack reply :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   ping pong (partner, ack, ds, message code) . ENDPROC send file ;ÿÿÿÿÿÿÿÿÿÿÿ PROC receive file :ÿÿÿÿÿÿÿÿÿÿÿ   enable stop ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   get control chars ;ÿÿÿÿÿÿÿÿÿ   INT VAR line no := 0 ;ÿÿÿÿÿÿ     receive line ;ÿÿÿÿÿÿÿÿÿÿÿÿ     IF eof receivedÿÿÿÿÿÿÿÿÿÿÿ>       THEN ping pong (partner, ack, ds, message code) ;ÿÿÿÿÿÿÿ            LEAVE receive fileÿ     putline (file, record) ;ÿÿ     line no INCR 1ÿÿÿÿÿÿÿÿÿÿÿÿ.   UNTIL near file overflow PER ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   ping pong (partner, file receive code, ds, message code) .ÿÿ get control chars :ÿÿÿÿÿÿÿÿÿÿÿ.   BOUND TEXT VAR control chars := ds ;ÿÿÿÿÿÿÿÿ.   end of file char := control chars SUB 1 ,ÿÿÿ.   end of line char := control chars SUB 2 ,ÿÿÿ.   handshake   char := control chars SUB 3 ,ÿÿÿ.   handshake prompt := control chars SUB 4 .ÿÿÿ   forget (ds) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   ds := nilspace ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   file := sequential file (output, ds) .ÿÿÿÿÿÿ receive line :   record := "" ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     cat input (record, char) ;     IF char = ""ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ       THEN wait for charÿÿÿÿÿÿ>     IF   char = handshake prompt THEN out (handshake char)ÿÿÿÿ>     ELIF char = ""9""            THEN expand tabsÿÿÿÿÿÿÿÿÿÿÿÿÿ.     ELIF char = ""12""           THEN pageÿÿÿÿN   UNTIL char = end of line char OR char = end of file char PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ wait for char :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   char := incharety (300) ;ÿÿÿ   IF char = ""     THEN errorstop ("timeout")   ELIF char >= ""32""ÿÿÿÿÿÿÿÿÿ     THEN record CAT charÿÿÿÿÿÿ.   record CAT (8-(LENGTH record MOD 8)) * " " .   record := "#page# " .ÿÿÿÿÿÿÿ eof received :N   char = end of file char OR (record SUB LENGTH record ) = end of file char .ÿ near file overflow :ÿÿÿÿÿÿÿÿÿÿ>   line no > 3999 OR (line no > 3800 AND record = "#page# ") .ÿ ENDPROC receive file ;ÿÿÿÿÿÿÿÿ ENDPACKET free channel ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ	schedulerÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    8    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±a€ëÿÿ¦ ¦££ ¬      ÿÿÿÿ       ¬         ¬  § >M     ÿÿ   ÿÿÿÿ	schedulerÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  ¦ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa€ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‚ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ƒÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ„ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ…ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
     log :ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ†ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaˆÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁˆÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsave values :ÿÿÿÿÿÿÿÿ±Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŒÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Žÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ŽÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŽÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿENDPROC log ;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‘ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‘ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!’ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±’ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá’ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1“ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa“ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ“ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA”ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿq”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ”ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1•ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±•ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR j ;ÿÿÿÿÿÿÿÿ‘–ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ–ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq—ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±˜ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1™ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i ;ÿÿÿÿÿÿÿÿq™ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘šÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁšÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñšÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa›ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡›ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ›ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!œÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQœÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑœÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAžÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±žÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿážÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŸÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŸÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ! ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ± ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  break ;ÿÿÿÿÿÿÿÿÿÿÿÿq¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ£ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡£ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REAL VAR ÿÿÿÿÿÿÿÿÿÿa¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¤ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¥ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¥ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¦ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘§ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP .ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¨ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¨ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¨ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1©ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡©ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá©ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQªÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ªÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáªÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!«ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa«ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±«ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ«ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¬ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¬ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¬ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±­ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!®ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa®ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘®ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá®ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¯ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¯ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ°ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1°ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ELSEÿÿÿÿÿÿÿÿÿÿÿÿÿq°ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡°ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÑ°ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  PER .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!±ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
scheduler;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN PACKET std schedule strategy DEFINES                (* Autor: J.Liedtke *)ÿÿÿÿN                                                     (* Stand: 15.10.82  *)ÿÿÿÿ     strategic decision :ÿÿÿÿÿÿ PROC strategic decision ÿÿÿÿÿÿN               (INT CONST foreground workers, background workers,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                REAL CONST fore cpu load, back cpu load, paging load,ÿÿÿÿÿÿÿÿÿÿN                INT VAR lowest activation prio, max background tasks) :ÿÿÿÿÿÿÿÿ   IF no background permittedÿÿ.     THEN lowest activation prio := 0 ;ÿÿÿÿÿÿÿÿ.          max background tasks := 0ÿÿÿÿÿÿÿÿÿÿÿÿ.     ELSE lowest activation prio := 10 ;ÿÿÿÿÿÿÿ.          select max background tasksÿÿÿÿÿÿÿÿÿÿ no background permitted :ÿÿÿÿÿ>       foreground workers > 0 AND fore cpu load > 0.03 .ÿÿÿÿÿÿÿ select max background tasks :ÿ   IF fore cpu load > 0.01ÿÿÿÿÿ.     THEN max background tasks := 1ÿÿÿÿÿÿÿÿÿÿÿÿ   ELIF paging load < 0.07ÿÿÿÿÿ.     THEN max background tasks := 3ÿÿÿÿÿÿÿÿÿÿÿÿ   ELIF paging load < 0.15ÿÿÿÿÿ.     THEN max background tasks := 2ÿÿÿÿÿÿÿÿÿÿÿÿ.     ELSE max background tasks := 1ÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC strategic decision ;ÿÿ. ENDPACKET std schedule strategy ;ÿÿÿÿÿÿÿÿÿÿÿÿÿN                                               (* Autor: J.Liedtke*)ÿÿÿÿÿÿÿÿÿÿÿN PACKET eumelmeter DEFINES                     (* Stand: 11.10.83 *)ÿÿÿÿÿÿÿÿÿÿÿ      init log ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LET snapshot interval = 590.0 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ REAL VAR next snapshot time ,ÿ          time        , timex ,.          paging wait , paging wait x ,ÿÿÿÿÿÿÿÿ.          paging busy , paging busy x ,ÿÿÿÿÿÿÿÿ.          fore cpu    , fore cpu x ,ÿÿÿÿÿÿÿÿÿÿÿ.          back cpu    , back cpu x ,ÿÿÿÿÿÿÿÿÿÿÿ.          system cpu  , system cpu x ,ÿÿÿÿÿÿÿÿÿ          delta t ;ÿÿÿÿÿÿÿÿÿÿÿÿ INT VAR storage max, used ;ÿÿÿ TEXT VAR record ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC init log :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   time        := clock (1) ;ÿÿ   paging wait := clock (2) ;ÿÿ   paging busy := clock (3) ;ÿÿ   fore cpu    := clock (4) ;ÿÿ   back cpu    := clock (5) ;ÿÿ   system cpu  := clock (6) ;ÿÿ>   next snapshot time := time + snapshot intervalÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC init log ;ÿÿÿÿÿÿÿÿÿÿÿÿ> PROC log (INT CONST active terminals, active background) :ÿÿÿÿ.   new snapshot time if was clock reset ;ÿÿÿÿÿÿ.   IF clock (1) >= next snapshot timeÿÿÿÿÿÿÿÿÿÿ     THEN save values ;ÿÿÿÿÿÿÿÿ          get new values ;ÿÿÿÿÿ          create stat record ;ÿ          put log (record) ;ÿÿÿ.          define next snapshot timeÿÿÿÿÿÿÿÿÿÿÿÿ. new snapshot time if was clock reset :ÿÿÿÿÿÿÿÿ>   IF clock (1) < next snapshot time - snapshot interval ÿÿÿÿÿÿ.     THEN next snapshot time := clock (1)ÿÿÿÿÿÿ   time x := time ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   paging wait x := paging wait ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   paging busy x := paging busy ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   fore cpu x    := fore cpu ;ÿ   back cpu x    := back cpu ;ÿ.   system cpu x  := system cpu .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ get new values :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   time := clock (1) ;ÿÿÿÿÿÿÿÿÿ   paging wait := clock (2) ;ÿÿ   paging busy := clock (3) ;ÿÿ   fore cpu    := clock (4) ;ÿÿ   back cpu    := clock (5) ;ÿÿ   system cpu  := clock (6) ;ÿÿ.   storage (storage max, used) .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ create stat record :ÿÿÿÿÿÿÿÿÿÿ   record :=  text (used, 5) ;ÿ.   record CAT text (active terminals,3) ;ÿÿÿÿÿÿ.   record CAT text (active background,3) ;ÿÿÿÿÿ   delta t := (time - time x) ;.   percent (paging wait, paging wait x) ;ÿÿÿÿÿÿ.   percent (paging busy, paging busy x) ;ÿÿÿÿÿÿ.   percent (fore cpu, fore cpu x) ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   percent (back cpu, back cpu x) ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   percent (system cpu, system cpu x) ;ÿÿÿÿÿÿÿÿ   percent (last, 0.0) ;ÿÿÿÿÿÿÿ   percent (nutz, 0.0) .ÿÿÿÿÿÿÿN last :   paging wait  + paging busy  + fore cpu  + back cpu  + system cpuÿÿÿÿÿN        - paging waitx - paging busyx - fore cpux - back cpux - system cpux .ÿÿ. nutz :   time  - paging wait  - system cpuÿÿÿÿ.        - timex + paging waitx + system cpux .ÿ define next snapshot time :ÿÿÿ>   next snapshot time := time + snapshot interval .ÿÿÿÿÿÿÿÿÿÿÿÿ. PROC percent (REAL CONST neu, alt ) :ÿÿÿÿÿÿÿÿÿ>   record CAT text ( (neu-alt) / delta t * 100.0, 6,1) + "%"ÿÿÿ ENDPROC percent ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPACKET eumelmeter ;ÿÿÿÿÿÿÿÿN PACKET background que manager DEFINES                (* Autor: J.Liedtke *)ÿÿÿN                                                      (* Stand: 15.10.82  *)ÿÿÿ     into background que ,ÿÿÿÿÿ.     delete from background que ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     get first from background que ,ÿÿÿÿÿÿÿÿÿÿÿ.     get next from background que :ÿÿÿÿÿÿÿÿÿÿÿÿ LET que size = 100 ,ÿÿÿÿÿÿÿÿÿÿ.     ENTRY    = STRUCT (TASK task, INT class) ; INT VAR end of que := 0 ,ÿÿÿÿÿ         actual entry pos ;ÿÿÿÿ ROW que size ENTRY VAR que ;ÿÿ. PROC into background que (TASK CONST task) :ÿÿ.   INT VAR class := prio (task) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF end of que = que sizeÿÿÿÿ.     THEN delete all not existing tasksÿÿÿÿÿÿÿÿ.   check whether already in que ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF already in queÿÿÿÿÿÿÿÿÿÿÿ     THEN IF in same classÿÿÿÿÿ.            THEN LEAVE into background queÿÿÿÿÿ>            ELSE delete from background que (task) ;ÿÿÿÿÿÿÿÿÿÿÿ.                 into background que (task)ÿÿÿÿ     ELSE insert new entryÿÿÿÿÿ check whether already in que :   INT VAR entry pos := 1 ;ÿÿÿÿ.   WHILE entry pos <= end of que  REPÿÿÿÿÿÿÿÿÿÿ.     IF que (entry pos).task = taskÿÿÿÿÿÿÿÿÿÿÿÿ.       THEN LEAVE check whether already in queÿ     entry pos INCR 1ÿÿÿÿÿÿÿÿÿÿ. already in que :  entry pos <= end of que .ÿÿÿ> in same class :   que (entry pos).class = class .ÿÿÿÿÿÿÿÿÿÿÿÿÿ insert new entry :ÿÿÿÿÿÿÿÿÿÿÿÿ   end of que INCR 1 ;ÿÿÿÿÿÿÿÿÿ.   que (end of que) := ENTRY:( task, class ) .ÿ. delete all not existing tasks :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   FOR j FROM 1 UPTO end of que REPÿÿÿÿÿÿÿÿÿÿÿÿ.     TASK VAR examined := que (j).task ;ÿÿÿÿÿÿÿ     IF NOT exists (examined)ÿÿ>       THEN delete from background que (examined)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC into background que ;ÿ> PROC delete from background que (TASK CONST task) :ÿÿÿÿÿÿÿÿÿÿÿ   search for entry ;ÿÿÿÿÿÿÿÿÿÿ   IF entry foundÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN deletööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööe entry ;ÿÿÿÿÿÿÿ.          update actual entry pos ÿÿÿÿÿÿÿÿÿÿÿÿÿ search for entry :ÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR entry pos := 1 ;ÿÿÿÿ.   WHILE entry pos <= end of que REPÿÿÿÿÿÿÿÿÿÿÿ.     IF que (entry pos).task = taskÿÿÿÿÿÿÿÿÿÿÿÿ.       THEN LEAVE search for entryÿÿÿÿÿÿÿÿÿÿÿÿÿ     entry pos INCR 1ÿÿÿÿÿÿÿÿÿÿ. entry found : entry pos <= end of que .ÿÿÿÿÿÿÿ delete entry :.   FOR i FROM entry pos UPTO end of que - 1 REP     que (i) := que (i+1)ÿÿÿÿÿÿ   end of que DECR 1 .ÿÿÿÿÿÿÿÿÿ update actual entry pos :ÿÿÿÿÿ.   IF actual entry or following one deletedÿÿÿÿ.     THEN actual entry pos DECR 1ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. actual entry or following one deleted :ÿÿÿÿÿÿÿ.   entry pos >= actual entry pos .ÿÿÿÿÿÿÿÿÿÿÿÿÿ. ENDPROC delete from background que ;ÿÿÿÿÿÿÿÿÿÿN PROC get first from background que (TASK VAR task, INT CONST lowest class) :ÿÿ   actual entry pos := 0 ;ÿÿÿÿÿ>   get next from background que (task, lowest class)ÿÿÿÿÿÿÿÿÿÿÿ. ENDPROC get first from background que ;ÿÿÿÿÿÿÿN PROC get next from background que (TASK VAR task, INT CONST lowest class) :ÿÿÿ.   search next entry of permitted class ;ÿÿÿÿÿÿ.   IF actual entry pos <= end of queÿÿÿÿÿÿÿÿÿÿÿ.     THEN task := que (actual entry pos).taskÿÿ     ELSE task := niltaskÿÿÿÿÿÿ. search next entry of permitted class :ÿÿÿÿÿÿÿÿ     actual entry pos INCR 1ÿÿÿ.   UNTIL actual entry pos > end of que ÿÿÿÿÿÿÿÿ>         COR que (actual entry pos).class <= lowest class PER.ÿ. ENDPROC get next from background que ;ÿÿÿÿÿÿÿÿ. ENDPACKET background que manager ;ÿÿÿÿÿÿÿÿÿÿÿÿN PACKET scheduler DEFINES                         (* Autor: J.Liedtke *)ÿÿÿÿÿÿÿN                                                  (* Stand: 09.12.82  *)ÿÿÿÿÿÿÿ     scheduler :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LET std background prio     = 7 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     highest background prio = 5 ,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     long slice              = 6000 ,ÿÿÿÿÿÿÿÿÿÿ.     short slice             = 600 ,ÿÿÿÿÿÿÿÿÿÿÿ.     blocked busy            = 4 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ INT VAR slice ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         foreground workers ,ÿÿ         background workers ;ÿÿ BOOL VAR is logging ;ÿÿÿÿÿÿÿÿÿ> REAL VAR fore cpu load , back cpu load , paging load ;ÿÿÿÿÿÿÿÿ access catalogue ;ÿÿÿÿÿÿÿÿÿÿÿÿ. TASK CONST ur task := brother (supervisor) ;ÿÿ TASK VAR actual task ;ÿÿÿÿÿÿÿÿ PROC scheduler :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF yes ("mit eumelmeter")ÿÿÿ     THEN is logging := TRUEÿÿÿ     ELSE is logging := FALSEÿÿ   task password ("-") ;ÿÿÿÿÿÿÿ   set autonom ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   command dialogue (FALSE) ;ÿÿ.   forget ("scheduler", quiet) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   disable stop; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REP scheduler operation; ÿÿÿ       clear error ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC scheduler; ÿÿÿÿÿÿÿÿÿÿ PROC scheduler operation:ÿÿÿÿÿ   enable stop;   IF is logging ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN init log ÿÿÿÿÿÿÿÿÿÿÿÿ   slice := short slice ;ÿÿÿÿÿÿ   init system load moniting ;ÿ     pause (slice) ;ÿÿÿÿÿÿÿÿÿÿÿ     monit system load ;ÿÿÿÿÿÿÿN     look at all active user tasks and block background workers ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     activate next background workers if possible ;ÿÿÿÿÿÿÿÿÿÿÿÿ     IF is loggingÿÿÿÿÿÿÿÿÿÿÿÿÿ>       THEN log (foreground workers, background workers)ÿÿÿÿÿÿÿ init system load moniting :ÿÿÿ   time     x := clock (1) ,ÿÿÿ   fore cpu x := clock (4) ,ÿÿÿ   back cpu x := clock (5) ,ÿÿÿ.   paging   x := clock (2) + clock (3) .ÿÿÿÿÿÿÿ monit system load :ÿÿÿÿÿÿÿÿÿÿÿ.   REAL VAR interval := clock (1) - time x ;ÿÿÿ>   fore cpu load := (clock (4) - fore cpu x) / interval ;ÿÿÿÿÿÿ>   back cpu load := (clock (5) - back cpu x) / interval ;ÿÿÿÿÿÿN   paging load   := (clock (2) + clock (3) - paging x) / interval ;ÿÿÿÿÿÿÿÿÿÿÿÿ   time     x := clock (1) ;ÿÿÿ   fore cpu x := clock (4) ;ÿÿÿ   back cpu x := clock (5) ;ÿÿÿ.   paging   x := clock (2) + clock (3) .ÿÿÿÿÿÿÿ ENDPROC scheduler operation;ÿÿN PROC look at all active user tasks and block background workers :ÿÿÿÿÿÿÿÿÿÿÿÿÿ   foreground workers := 0 ;ÿÿÿ   background workers := 0 ;ÿÿÿ   actual task := myself ;ÿÿÿÿÿ   next active (actual task) ;ÿ.   WHILE NOT (actual task = myself) REPÿÿÿÿÿÿÿÿ     IF actual task < ur taskÿÿ       THEN look at this taskÿÿ     next active (actual task)ÿ look at this task :ÿÿÿÿÿÿÿÿÿÿÿ.   IF channel (actual task) >= 0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN foreground workers INCR 1ÿÿÿÿÿÿÿÿÿÿÿÿ.     ELSE background workers INCR 1 ;ÿÿÿÿÿÿÿÿÿÿ.          block actual task if simple workerÿÿÿ. block actual task if simple worker :ÿÿÿÿÿÿÿÿÿÿ.   IF son (actual task) = niltaskÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN pause (5) ;ÿÿÿÿÿÿÿÿÿÿ          block (actual task) ;>          IF status (actual task) = blocked busyÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.            THEN set background prio ;ÿÿÿÿÿÿÿÿÿ>                 into background que (actual task)ÿÿÿÿÿÿÿÿÿÿÿÿÿ>          ELIF prio (actual task) < highest background prioÿÿÿÿ.            THEN unblock (actual task)ÿÿÿÿÿÿÿÿÿ set background prio :ÿÿÿÿÿÿÿÿÿ>   IF prio (actual task) < highest background prioÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN prio (actual task, std background prio)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN ENDPROC look at all active user tasks and block background workers ;ÿÿÿÿÿÿÿÿÿÿ> PROC activate next background workers if possible :ÿÿÿÿÿÿÿÿÿÿÿ.   INT VAR lowest activation prio ,ÿÿÿÿÿÿÿÿÿÿÿÿ.           max background workers ,ÿÿÿÿÿÿÿÿÿÿÿÿ.           active background workers := 0 ;ÿÿÿÿ>   strategic decision (foreground workers, background workers,ÿN                       fore cpu load, back cpu load, paging load,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                       lowest activation prio, max background workers) ;ÿÿÿÿÿÿÿ   IF background permittedÿÿÿÿÿ.     THEN try to activate background workersÿÿÿ.   IF active background workers > 0ÿÿÿÿÿÿÿÿÿÿÿÿ     THEN slice := short sliceÿ     ELSE slice := long sliceÿÿ> background permitted : max background workers > 0 .ÿÿÿÿÿÿÿÿÿÿÿ. try to activate background workers :ÿÿÿÿÿÿÿÿÿÿN   get first from background que (actual task, lowest activation prio) ;ÿÿÿÿÿÿÿ.   IF NOT is niltask (actual task)ÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN delete from background que (actual task)ÿÿÿÿÿÿÿÿÿÿÿÿÿ>   WHILE active background workers < max background workers REP.     IF is niltask (actual task)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>       THEN LEAVE try to activate background workersÿÿÿÿÿÿÿÿÿÿÿ.     ELIF status (actual task) <> blocked busyÿ>       THEN delete from background que (actual task)ÿÿÿÿÿÿÿÿÿÿÿ.            unblock (actual task) ;ÿÿÿÿÿÿÿÿÿÿÿÿ.            active background workers INCR 1ÿÿÿN     get next from background que (actual task, lowest activation prio)ÿÿÿÿÿÿÿÿ> ENDPROC activate next background workers if possible ;ÿÿÿÿÿÿÿÿ ENDPACKET scheduler ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ
eumelmeterÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘a€ëÿÿ…  … ‚ ‚  ¸      ÿÿÿÿ       ¸         ¸  †  >M     ÿÿ   ÿÿÿÿ
eumelmeterÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  … ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
     log :ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‚ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‚ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘„ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡…ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿsave values :ÿÿÿÿÿÿÿÿ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa†ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŠÿL ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Šÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŠÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿENDPROC log ;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‹ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‹ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbreak ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
init log ;ÿÿÿÿÿÿÿÿÿÿÿÿÿREPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPER ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Žÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Žÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     öööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö      FIÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN                                               (* Author: J.Liedtke*)ÿÿÿÿÿÿÿÿÿÿN PACKET eumelmeter DEFINES                     (* Stand:  11.10.83 *)ÿÿÿÿÿÿÿÿÿÿ      init log ,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. LET snapshot interval = 590.0 ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ REAL VAR next snapshot time ,ÿ          time        , timex ,.          paging wait , paging wait x ,ÿÿÿÿÿÿÿÿ.          paging busy , paging busy x ,ÿÿÿÿÿÿÿÿ.          fore cpu    , fore cpu x ,ÿÿÿÿÿÿÿÿÿÿÿ.          back cpu    , back cpu x ,ÿÿÿÿÿÿÿÿÿÿÿ.          system cpu  , system cpu x ,ÿÿÿÿÿÿÿÿÿ          delta t ;ÿÿÿÿÿÿÿÿÿÿÿÿ INT VAR storage max, used ;ÿÿÿ TEXT VAR record ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC init log :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   time        := clock (1) ;ÿÿ   paging wait := clock (2) ;ÿÿ   paging busy := clock (3) ;ÿÿ   fore cpu    := clock (4) ;ÿÿ   back cpu    := clock (5) ;ÿÿ   system cpu  := clock (6) ;ÿÿ>   next snapshot time := time + snapshot intervalÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPROC init log ;ÿÿÿÿÿÿÿÿÿÿÿÿ> PROC log (INT CONST active terminals, active background) :ÿÿÿÿ.   new snapshot time if was clock reset ;ÿÿÿÿÿÿ.   IF clock (1) >= next snapshot timeÿÿÿÿÿÿÿÿÿÿ     THEN save values ;ÿÿÿÿÿÿÿÿ          get new values ;ÿÿÿÿÿ          create stat record ;ÿ          put log (record) ;ÿÿÿ.          define next snapshot timeÿÿÿÿÿÿÿÿÿÿÿÿ. new snapshot time if was clock reset :ÿÿÿÿÿÿÿÿ>   IF clock (1) < next snapshot time - snapshot interval ÿÿÿÿÿÿ.     THEN next snapshot time := clock (1)ÿÿÿÿÿÿ   time x := time ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   paging wait x := paging wait ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   paging busy x := paging busy ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   fore cpu x    := fore cpu ;ÿ   back cpu x    := back cpu ;ÿ.   system cpu x  := system cpu .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ get new values :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   time := clock (1) ;ÿÿÿÿÿÿÿÿÿ   paging wait := clock (2) ;ÿÿ   paging busy := clock (3) ;ÿÿ   fore cpu    := clock (4) ;ÿÿ   back cpu    := clock (5) ;ÿÿ   system cpu  := clock (6) ;ÿÿ.   storage (storage max, used) .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ create stat record :ÿÿÿÿÿÿÿÿÿÿ   record :=  text (used, 5) ;ÿ.   record CAT text (active terminals,3) ;ÿÿÿÿÿÿ.   record CAT text (active background,3) ;ÿÿÿÿÿ   delta t := (time - time x) ;.   percent (paging wait, paging wait x) ;ÿÿÿÿÿÿ.   percent (paging busy, paging busy x) ;ÿÿÿÿÿÿ.   percent (fore cpu, fore cpu x) ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   percent (back cpu, back cpu x) ;ÿÿÿÿÿÿÿÿÿÿÿÿ.   percent (system cpu, system cpu x) ;ÿÿÿÿÿÿÿÿ   percent (last, 0.0) ;ÿÿÿÿÿÿÿ   percent (nutz, 0.0) .ÿÿÿÿÿÿÿN last :   paging wait  + paging busy  + fore cpu  + back cpu  + system cpuÿÿÿÿÿN        - paging waitx - paging busyx - fore cpux - back cpux - system cpux .ÿÿ. nutz :   time  - paging wait  - system cpuÿÿÿÿ.        - timex + paging waitx + system cpux .ÿ define next snapshot time :ÿÿÿ>   next snapshot time := time + snapshot interval .ÿÿÿÿÿÿÿÿÿÿÿÿ. PROC percent (REAL CONST neu, alt ) :ÿÿÿÿÿÿÿÿÿ>   record CAT text ( (neu-alt) / delta t * 100.0, 6,1) + "%"ÿÿÿ ENDPROC percent ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ ENDPACKET eumelmeter ;ÿÿÿÿÿÿÿÿ. INT VAR active terminals , active background ; task password ("-") ;ÿÿÿÿÿÿÿÿÿ command dialogue (FALSE) ;ÿÿÿÿ forget ("eumelmeter") ;ÿÿÿÿÿÿÿ   pause (6000) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   count active processes (active terminals, active background) ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   log (active terminals, active background)ÿÿÿN PROC count active processes (INT VAR active terminals, active background) :ÿÿÿ   active terminals := 0 ;ÿÿÿÿÿ   active background := 0 ;ÿÿÿÿ   TASK VAR process := myself ;     next active (process) ;ÿÿÿ     IF user process ÿÿÿÿÿÿÿÿÿÿ.       THEN IF process at terminalÿÿÿÿÿÿÿÿÿÿÿÿÿ.              THEN active terminals INCR 1ÿÿÿÿÿ.              ELSE active background INCR 1ÿÿÿÿ   UNTIL process = myself PER .> user process :         NOT (process < supervisor) .ÿÿÿÿÿÿÿÿÿÿÿ> process at terminal :  channel (process) >= 0 .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. ENDPROC count active processes ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿ
referencerÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    €        ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚a€ëÿÿ7 744 Ä      ÿÿÿÿ       Ä         Ä  8 >M ÿþ    ÿÿ   ÿÿÿÿ
referencerÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  7ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ€ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA‚ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‚ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‚ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‚ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  line ; ÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  note line ;ÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  note line.ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö‘„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±„ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ„ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1…ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq…ÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ…ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA†ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ENDSELECT. ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿzusatz: ÿÿÿÿÿÿÿÿÿÿÿÿÿ‘†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‡ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END SELECT.ÿÿÿÿÿÿÿÿ±‡ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqˆÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ˆÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‰ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‰ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŠÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Šÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŠÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‹ÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŒÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Œÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŒÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŽÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Žÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŽÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‘ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‘ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‘ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‘ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!’ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±’ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿá’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  ENDREP.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘“ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá“ÿ= ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿwrap around :ÿÿÿÿÿÿÿÿ!”ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa”ÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±”ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1•ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
INT VAR i;ÿÿÿÿÿÿÿÿÿÿÿ±•ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ•ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP ÿÿÿÿÿÿÿÿÿÿÿA–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line ;ÿÿÿÿÿÿÿÿÿÿÿÿÿ‘–ÿE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line ;ÿÿÿÿÿÿÿÿÿÿÿÿÿñ–ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq—ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i,ÿÿÿÿÿÿÿÿÿÑ—ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1˜ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘˜ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ˜ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP. ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿašÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±šÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿášÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA›ÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP;ÿÿÿÿÿÿÿÿÿÿÿ›ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±›ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQžÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁžÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñžÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŸÿ? ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñŸÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¡ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¡ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¡ÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¢ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¢ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¢ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ£ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq£ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá£ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¦ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa§ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘§ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá§ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP; ÿÿÿÿÿÿÿÿÿÿ¨ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¨ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¨ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1©ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQªÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáªÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡«ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ«ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¬ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¬ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±­ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá­ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö1®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ®ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ®ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿQ¯ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¯ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¯ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!°ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FI ÿÿÿÿÿÿÿÿÿÿÿ  FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡±ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ±ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP. ÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ²ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá²ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1³ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ³ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1´ÿJ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ´ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ´ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ´ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!µÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡µÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁµÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñµÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¶ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¶ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¶ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ·ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ·ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¸ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¸ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¸ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¸ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¹ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¹ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¹ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           FIÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¹ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaºÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ºÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END SELECT.ÿÿÿÿÿÿÿÿáºÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa»ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ»ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¼ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  ENDREP;ÿÿÿÿÿÿÿÿÿÿÿÿq¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¼ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ½ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP ÿÿÿÿÿÿÿÿÿÿÿ±½ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá½ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¾ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP; ÿÿÿÿÿÿÿÿÿÿ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¿ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿnoch einmal: ÿÿÿÿÿÿÿÿQ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¿ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¿ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¿ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÀÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP;ÿÿÿÿÿÿÿÿÿÿÿ‘Àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÀÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÀÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÁÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Âÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Âÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÃÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP;ÿÿÿÿÿÿÿÿÿÿÿ±Ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿende comment:ÿÿÿÿÿÿÿÿÑÃÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÃÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÄÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÄÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Åÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÅÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÅÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Åÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÅÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿM ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÆÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Æÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÇÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Çÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÇÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÇÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÈÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÈÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿINT VAR symb,ÿÿÿÿÿÿÿÿÿÿ        typ,ÿÿÿÿÿÿÿÿÿÁÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÈÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿFILE VAR f;ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÉÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Éÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÉÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Êÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÊÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáËÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÌÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Íÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÍÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Îÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÎÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÎÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÏÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÏÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÐÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÐÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line ;ÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line ;ÿÿÿÿÿÿÿÿÿÿÿÿÿAÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿueberschrift:ÿÿÿÿÿÿÿÿÿÿ  page;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  put ("->");ÿÿÿÿÿÿÿÿ¡Ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÒÿN ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Óÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  line ;ÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööQÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÓÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÓÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÓÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ôÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÔÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÔÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÔÿ@ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÕÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÕÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÕÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÖÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÖÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Öÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÖÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ×ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq×ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡×ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ×ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ×ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Øÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqØÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁØÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáØÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÙÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÙÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÙÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÙÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  OTHERWISE: ÿÿÿÿÿÿÿÿÿÿ  ENDSELECT. ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Úÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÚÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Ûÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÛÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÛÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÛÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÛÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÜÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÜÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÜÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Ýÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÝÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Ýÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÝÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÞÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÞÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Þÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÞÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿßÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQßÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqßÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ßÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑßÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqàÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘àÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±àÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿáàÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQáÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±áÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñáÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!âÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaâÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘âÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁâÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáâÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿãÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAãÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqãÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ãÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁãÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!äÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqäÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘äÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáäÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿåÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±åÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI; ÿÿÿÿÿÿÿÿÿÿÿÿÿáåÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAæÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿæÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡æÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁæÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿçÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1çÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqçÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡çÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñçÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAèÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqèÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           FIÿÿÿÿÿÿÿÿ±èÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑèÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿéÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1éÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ           FIÿÿÿÿÿÿÿÿqéÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±éÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñéÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1êÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaêÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡êÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑêÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿëÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿaëÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ëÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñëÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ìÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿìÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ìÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑìÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿíÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqíÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘íÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁíÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿîÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1îÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQîÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqîÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡îÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑîÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿïÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqïÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁïÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñïÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿ8 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqðÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáðÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿañÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i; ÿÿÿÿÿÿÿÿÑñÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP; ÿÿÿÿÿÿÿÿÿÿ!òÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaòÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘òÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP; ÿÿÿÿÿÿÿÿÿÿáòÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!óÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAóÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±óÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i; ÿÿÿÿÿÿÿÿáóÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  modify (f);ÿÿÿÿÿÿÿÿôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  modify (f);ÿÿÿÿÿÿÿÿQôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ôÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    cout (i);ÿÿÿÿÿÿÿÿÑôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñôÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  ENDREP.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQõÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡õÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑõÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáõÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  i := 0;ÿÿÿÿÿÿÿÿÿÿÿÿQöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    i INCR 1;ÿÿÿÿÿÿÿÿÿÿ    cout (i);ÿÿÿÿÿÿÿÿ‘öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±öÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑöÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñöÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF ende > 0ÿÿÿÿÿÿÿÿ1÷ÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq÷ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡÷ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ÷ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  down (f).ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1øÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿQøÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡øÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáøÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ùÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿ     FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿQùÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ùÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿ±ùÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáùÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaúÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡úÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñúÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAûÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaûÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ûÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáûÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!üÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaüÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘üÿ7 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñüÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿD ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaýÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáýÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAþÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqþÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡þÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑþÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP; ÿÿÿÿÿÿÿÿÿÿÿÿ  anf := 1; ÿÿÿÿÿÿÿÿÿ‘ÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  END REP; ÿÿÿÿÿÿÿÿÿÿ" ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ² ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿ²ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿâÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÂÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP;ÿÿÿÿÿÿÿÿÿÿÿÒÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿEND PROC nr;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(*ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿREPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿBÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (* ------------------- VERSION 10 vom 01.08.86 -------------------- *)ÿÿÿÿÿÿÿÿ> PACKET referencer errors DEFINES report referencer error:ÿÿÿÿÿ> (* Programm zur Fehlerbehandlung des referencers.ÿÿÿÿÿÿÿÿÿÿÿÿÿ    Autor: Rainer Hahn *)ÿÿÿÿÿÿ TEXT VAR fehlerdummy,ÿÿÿÿÿÿÿÿÿ          message;ÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC report referencer error (INT CONST error nr,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                            INT CONST line nr,ÿ>                            TEXT CONST addition):ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   einfache fehlermeldung aufbauen;ÿÿÿÿÿÿÿÿÿÿÿÿ   diese auf terminal ausgeben;.   fehlermeldung in fehlerdatei ausgeben.ÿÿÿÿÿÿ. einfache fehlermeldung aufbauen:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   message := "WARNUNG in Zeile ";ÿÿÿÿÿÿÿÿÿÿÿÿÿ   message CAT text (line nr);ÿ   message CAT " : ";ÿÿÿÿÿÿÿÿÿÿ   message CAT simple message.ÿ diese auf terminal ausgeben: ÿ   putline (message).ÿÿÿÿÿÿÿÿÿÿ. fehlermeldung in fehlerdatei ausgeben: ÿÿÿÿÿÿÿ   note (message); ÿÿÿÿÿÿÿÿÿÿÿÿ   fehlerdummy := "   >>> ";ÿÿÿ   fehlerdummy CAT zusatz;ÿÿÿÿÿ   note (fehlerdummy);ÿÿÿÿÿÿÿÿÿ simple message: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   SELECT error nr OF ÿÿÿÿÿÿÿÿÿ>   CASE 1: "Text Denoter ueber mehr als eine Zeile"ÿÿÿÿÿÿÿÿÿÿÿÿ>   CASE 2: "Nicht beendeter Text Denoter bei Programmende" ÿÿÿÿ>   CASE 3: "Kommentar ueber mehr als eine Zeile" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   CASE 4: "Nicht beendeter Kommentar bei Programmende" ÿÿÿÿÿÿÿ   CASE 5: "Ueberdeckung"ÿÿÿÿÿÿ.   CASE 6, 9: "Refinement mehrmals eingesetzt" >   CASE 7, 10: "Refinement wird nicht aufgerufen"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   CASE 8: "Objekt wird nicht angesprochen"ÿÿÿÿ   OTHERWISE "" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   SELECT error nr OF ÿÿÿÿÿÿÿÿÿ>   CASE 1, 2, 3, 4: "Ueber " + addition + " Zeilen"ÿÿÿÿÿÿÿÿÿÿÿÿ   CASE 5: additionÿÿÿÿÿÿÿÿÿÿÿÿ   CASE 6, 7, 8: additionÿÿÿÿÿÿ>   CASE 9, 10: addition + " in mindestens einer Prozedur"ÿÿÿÿÿÿ>   OTHERWISE "interner Fehler: HRZ Bielefeld benachrichtigen!" . END PROC report referencer error ÿÿÿÿÿÿÿÿÿÿÿÿÿ END PACKET referencer errors; N (************************************************************************)ÿÿÿÿ PACKET name table handlingÿÿÿÿ.               DEFINES NAMETABLE,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                       empty name table,ÿÿÿÿÿÿÿ.                       put name, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                       get name,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                       dump table:ÿÿÿÿÿÿÿÿÿÿÿÿÿ. (* Programm zur Speicherung von Namen.ÿÿÿÿÿÿÿÿ    Autor: Rainer Hahn *)ÿÿÿÿÿÿ. LET hash table length           = 1024, ÿÿÿÿÿÿ.     hash table length minus one = 1023,ÿÿÿÿÿÿÿ.     start of name table         = 255,ÿÿÿÿÿÿÿÿ.     name table length           = 2000;ÿÿÿÿÿÿÿ> TYPE NAMETABLE = STRUCT (INT number of entries, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>                          ROW hash table length INT hash table,>                          ROW name table length INT next, ÿÿÿÿÿN                          ROW name table length TEXT name table); ÿÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR dummy, f;ÿÿÿÿÿÿÿÿÿÿÿÿN PROC put name (NAMETABLE VAR n, TEXT CONST name, INT VAR pointer):ÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR errechneter index; ÿ.   hash (name, errechneter index); ÿÿÿÿÿÿÿÿÿÿÿÿ   IF noch kein eintrag ÿÿÿÿÿÿÿ.     THEN gaenzlich neuer eintrag ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     ELSE name in vorhandener kette ÿÿÿÿÿÿÿÿÿÿÿ noch kein eintrag: ÿÿÿÿÿÿÿÿÿÿÿ.   n . hash table [errechneter index] = 0. ÿÿÿÿ gaenzlich neuer eintrag: ÿÿÿÿÿN   n . hash table [errechneter index] := n . number of entries; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   neuer eintrag (n, name, pointer).ÿÿÿÿÿÿÿÿÿÿÿ name in vorhandener kette:ÿÿÿÿN   INT VAR dieser eintrag :: n. hash table [errööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööechneter index]; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF name ist vorhandenÿÿÿÿÿ.       THEN pointer := dieser eintrag;ÿÿÿÿÿÿÿÿÿ            LEAVE put name ÿÿÿÿ     ELIF kette zu endeÿÿÿÿÿÿÿÿ>       THEN neuer eintrag an vorhandene kette anketten; ÿÿÿÿÿÿÿ.            neuer eintrag (n, name, pointer);ÿÿ            LEAVE put nameÿÿÿÿÿ.       ELSE naechster eintrag in der ketteÿÿÿÿÿ name ist vorhanden: ÿÿÿÿÿÿÿÿÿÿ.   n . name table [dieser eintrag] = name.ÿÿÿÿÿ kette zu ende: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   n . next [dieser eintrag] = 0.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. neuer eintrag an vorhandene kette anketten: ÿÿ>   n . next [dieser eintrag] := n . number of entries. ÿÿÿÿÿÿÿÿ. naechster eintrag in der kette:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   dieser eintrag := n . next [dieser eintrag]. END PROC put name; ÿÿÿÿÿÿÿÿÿÿÿN PROC neuer eintrag (NAMETABLE VAR n, TEXT CONST name, INT VAR pointer):ÿÿÿÿÿÿÿ>   n . name table [n . number of entries] := name; ÿÿÿÿÿÿÿÿÿÿÿÿ.   n . next [n . number of entries] := 0; ÿÿÿÿÿ.   pointer := n . number of entries;ÿÿÿÿÿÿÿÿÿÿÿ.   n . number of entries INCR 1; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   IF n . number of entries > name table length ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN errorstop ("volle Namenstabelle")ÿÿÿÿ END PROC neuer eintrag;ÿÿÿÿÿÿÿ. PROC hash (TEXT CONST name, INT VAR index) :ÿÿ   index := code (name SUB 1);ÿ.   FOR i FROM 2 UPTO length (name) REPÿÿÿÿÿÿÿÿÿ     addmult cyclicÿÿÿÿÿÿÿÿÿÿÿÿ addmult cyclic :ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   index INCR index ;ÿÿÿÿÿÿÿÿÿÿ.   IF index > hash table length minus oneÿÿÿÿÿÿ     THEN wrap aroundÿÿÿÿÿÿÿÿÿÿ>   index := (index + code (name SUB i)) MOD hash table length.ÿ.   index DECR hash table length minus oneÿÿÿÿÿÿ ENDPROC hash ;N PROC get name (NAMETABLE CONST n, INT CONST index, TEXT VAR t): ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   IF index < n . number of entries AND index >= start of name tableÿÿÿÿÿÿÿÿÿÿÿ.     THEN t := n . name table [index] ÿÿÿÿÿÿÿÿÿ.     ELSE errorstop ("Interner Fehler 1") ÿÿÿÿÿ END PROC get name; ÿÿÿÿÿÿÿÿÿÿÿ. PROC empty name table (NAMETABLE VAR n): ÿÿÿÿÿ>   n . number of entries := start of name table; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   FOR i FROM 1 UPTO hash table length REP ÿÿÿÿ     n . hash table [i] := 0 ÿÿ END PROC empty name table;ÿÿÿÿ. PROC dump table (NAMETABLE CONST n): ÿÿÿÿÿÿÿÿÿN   put ("Bitte Name der Datei, in die die Namenstabelle gehen soll:");ÿÿÿÿÿÿÿÿÿ   getline (f);   file assoziieren; ÿÿÿÿÿÿÿÿÿÿ   dump namens ketten; ÿÿÿÿÿÿÿÿ   zusammenfassung.ÿÿÿÿÿÿÿÿÿÿÿÿ file assoziieren: ÿÿÿÿÿÿÿÿÿÿÿÿ>   FILE VAR file :: sequential file (output, f). ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ dump namens ketten:ÿÿÿÿÿÿÿÿÿÿÿ.           anz hash eintraege :: 0, ÿÿÿÿÿÿÿÿÿÿÿ.           kette 3 eintraege  :: 0;ÿÿÿÿÿÿÿÿÿÿÿÿ.   FOR i FROM 1 UPTO hash table length REP ÿÿÿÿ.     IF n . hash table [i] <> 0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.       THEN anz hash eintraege INCR 1;ÿÿÿÿÿÿÿÿÿ>            INT VAR naechster eintrag :: n . hash table [i];ÿÿÿ            dump hash eintrag;ÿ            ketten eintraegeÿÿÿ dump hash eintrag: ÿÿÿÿÿÿÿÿÿÿÿ   dummy := text (i); ÿÿÿÿÿÿÿÿÿ>   WHILE length (dummy) < 4 REP dummy CAT " " END REP;ÿÿÿÿÿÿÿÿÿ   dummy CAT ": ".ÿÿÿÿÿÿÿÿÿÿÿÿÿ ketten eintraege:ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   INT VAR anz eintraege pro kette :: 0;ÿÿÿÿÿÿÿ.   WHILE naechster eintrag > 0 REP ÿÿÿÿÿÿÿÿÿÿÿÿ.     anz eintraege pro kette INCR 1;ÿÿÿÿÿÿÿÿÿÿÿ     dummy CAT " ";ÿÿÿÿÿÿÿÿÿÿÿÿ.     dummy CAT text (naechster eintrag);ÿÿÿÿÿÿÿ     dummy CAT " -> ";ÿÿÿÿÿÿÿÿÿ>     dummy CAT n . name table [naechster eintrag]; ÿÿÿÿÿÿÿÿÿÿÿÿ>     naechster eintrag := n . next [naechster eintrag];ÿÿÿÿÿÿÿÿ.   IF anz eintraege pro kette > 2 ÿÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN kette 3 eintraege INCR 1 ÿÿÿÿÿÿÿÿÿÿÿÿ   putline (file, dummy). ÿÿÿÿÿ zusammenfassung: ÿÿÿÿÿÿÿÿÿÿÿÿÿ   statistik ueberschrift;ÿÿÿÿÿ   anzahl hash eintraege; ÿÿÿÿÿ   anzahl namens eintraege;ÿÿÿÿ   verkettungsfaktor; ÿÿÿÿÿÿÿÿÿ   anzahl laengerer ketten.ÿÿÿÿ statistik ueberschrift: ÿÿÿÿÿÿ   line (file, 2);ÿÿÿÿÿÿÿÿÿÿÿÿÿ   dummy := " ---------- "; ÿÿÿ.   dummy CAT "S T A T I S T I K:";ÿÿÿÿÿÿÿÿÿÿÿÿÿ   dummy CAT " ---------- ";ÿÿÿ   putline (file, dummy);ÿÿÿÿÿÿ   line (file, 2).ÿÿÿÿÿÿÿÿÿÿÿÿÿ anzahl hash eintraege:ÿÿÿÿÿÿÿÿ.   dummy := "Anzahl Hash-Eintraege (max. "; ÿÿÿ.   dummy CAT text (hash table length); ÿÿÿÿÿÿÿÿ   dummy CAT "): "; ÿÿÿÿÿÿÿÿÿÿÿ.   dummy CAT text (anz hash eintraege); ÿÿÿÿÿÿÿ   putline (file, dummy).ÿÿÿÿÿÿ anzahl namens eintraege: ÿÿÿÿÿ.   dummy := "Anzahl Namen (max. "; ÿÿÿÿÿÿÿÿÿÿÿÿN   dummy CAT text (name table length - start of name table + 1); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   dummy CAT "): "; ÿÿÿÿÿÿÿÿÿÿÿN   dummy CAT text (n . number of entries - start of name table);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   putline (file, dummy).ÿÿÿÿÿÿ verkettungsfaktor: ÿÿÿÿÿÿÿÿÿÿÿN   dummy := "Verkettungsfaktor (Anzahl Namen / Anzahl Ketten): "; ÿÿÿÿÿÿÿÿÿÿÿÿÿN   dummy CAT text (real (n . number of entries - start of name table) /ÿÿÿÿÿÿÿÿ.          real (anz hash eintraege));ÿÿÿÿÿÿÿÿÿÿ   putline (file, dummy).ÿÿÿÿÿÿ anzahl laengerer ketten:ÿÿÿÿÿÿ.   dummy := "Anzahl Ketten > 2 Eintraege: "; ÿÿ.   dummy CAT text (kette 3 eintraege); ÿÿÿÿÿÿÿÿ   putline (file, dummy).ÿÿÿÿÿÿ END PROC dump table; ÿÿÿÿÿÿÿÿÿ. END PACKET name table handling; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿN (***************************************************************************)ÿ. PACKET scanner DEFINES init scanning, ÿÿÿÿÿÿÿÿ.                        init name table with,ÿÿ.                        dump name table,ÿÿÿÿÿÿÿ.                        get name,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.                        end scanning,ÿÿÿÿÿÿÿÿÿÿ.                        line number,ÿÿÿÿÿÿÿÿÿÿÿ.                        symbol: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. (* Programm zum scannen von ELAN-Programmen.ÿÿ    Autor: Rainer Hahn *)ÿÿÿÿÿÿ FILE VAR eingabe; ÿÿÿÿÿÿÿÿÿÿÿÿ. DATASPACE VAR ds alt := nilspace,ÿÿÿÿÿÿÿÿÿÿÿÿÿ.               ds neu := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿ BOUND NAMETABLE VAR tabelle;ÿÿ TEXT VAR zeile, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          zeichen, ÿÿÿÿÿÿÿÿÿÿÿÿ          dummy;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ LET end of program = ""30"",ÿÿ     eop            = 1, ÿÿÿÿÿÿ     identifier     = 2, ÿÿÿÿÿÿ     keyword        = 3, ÿÿÿÿÿÿ     delimiter      = 4,ÿÿÿÿÿÿÿ     punkt          = 46,ÿÿÿÿÿÿ     doppelpunkt    = 58, ÿÿÿÿÿ     init symbol    = 30, ÿÿÿÿÿ     assign symbol  = 31;ÿÿÿÿÿÿ INT VAR zeilen nr,ÿÿÿÿÿÿÿÿÿÿÿÿ         zeichen pos;ÿÿÿÿÿÿÿÿÿÿ. PROC init name table with (TEXT CONST worte):ÿ INT VAR index;   forget (ds alt);ÿÿÿÿÿÿÿÿÿÿÿÿ   ds alt := nilspace;ÿÿÿÿÿÿÿÿÿ   tabelle := dsalt;ÿÿÿÿÿÿÿÿÿÿÿ.   empty name table (CONCR (tabelle));ÿÿÿÿÿÿÿÿÿ   INT VAR anf :: 1, ÿÿÿÿÿÿÿÿÿÿ.           ende :: pos (worte, ",", 1); ÿÿÿÿÿÿÿ   WHILE ende > 0 REP ÿÿÿÿÿÿÿÿÿ.     dummy := subtext (worte, anf, ende - 1); ÿ.     put name (CONCR (tabelle), dummy, index);      anf := ende + 1; ÿÿÿÿÿÿÿÿÿ.     ende := pos (worte, ",", ende + 1)ÿÿÿÿÿÿÿÿ.   dummy := subtext (worte, anf); ÿÿÿÿÿÿÿÿÿÿÿÿÿ.   put name (CONCR (tabelle), dummy, index) ÿÿÿ. END PROC init name table with; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC init scanning (TEXT CONST f): ÿÿÿÿÿÿÿÿÿÿÿ   IF exists (f) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN namenstabelle holen;ÿ          erste zeile lesen ÿÿÿ.     ELSE errorstop ("Datei existiert nicht") ÿ namenstabelle holen: ÿÿÿÿÿÿÿÿÿ   forget (ds neu);ÿÿÿÿÿÿÿÿÿÿÿÿ   ds neu := ds alt; ÿÿÿÿÿÿÿÿÿÿ   tabelle := ds neu. ÿÿÿÿÿÿÿÿÿ erste zeile lesen: ÿÿÿÿÿÿÿÿÿÿÿ.   eingabe := sequential file (input, f);ÿÿÿÿÿÿ   IF eof (eingabe) ÿÿÿÿÿÿÿÿÿÿÿ.     THEN errorstop ("Datei ist leer")ÿÿÿÿÿÿÿÿÿ     ELSE zeile := "";ÿÿÿÿÿÿÿÿÿ          zeilen nr := 0; ÿÿÿÿÿ          zeile lesen; ÿÿÿÿÿÿÿÿ.          naechstes non blank zeichenÿÿÿÿÿÿÿÿÿÿ END PROC init scanning; ÿÿÿÿÿÿ PROC dump name table: ÿÿÿÿÿÿÿÿ.   dump table (CONCR (tabelle)) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC dump name table; ÿÿÿÿ. PROC end scanning (TEXT CONST f): ÿÿÿÿÿÿÿÿÿÿÿÿ   IF anything notedÿÿÿÿÿÿÿÿÿÿÿ>     THEN eingaööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööbe := sequential file (modify, f);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          note edit (eingabe) ÿ END PROC end scanning; ÿÿÿÿÿÿÿ. PROC get name (INT CONST index, TEXT VAR t): ÿ.   get name (CONCR (tabelle), index, t) ÿÿÿÿÿÿÿ END PROC get name; ÿÿÿÿÿÿÿÿÿÿÿ PROC zeile lesen: ÿÿÿÿÿÿÿÿÿÿÿÿ   getline (eingabe, zeile); ÿÿ   zeilen nr INCR 1; ÿÿÿÿÿÿÿÿÿÿ   cout (zeilen nr);ÿÿÿÿÿÿÿÿÿÿÿ   zeichen pos := 0ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC zeile lesen; ÿÿÿÿÿÿÿÿ. PROC naechstes non blank zeichen: ÿÿÿÿÿÿÿÿÿÿÿÿN     zeichen pos := pos (zeile, ""33"", ""254"", zeichen pos + 1); ÿÿÿÿÿÿÿÿÿÿÿÿ     IF zeichen pos <> 0 ÿÿÿÿÿÿ.       THEN zeichen := (zeile SUB zeichen pos);.            LEAVE naechstes non blank zeichenÿÿ     ELIF eof (eingabe) ÿÿÿÿÿÿÿ.       THEN zeichen := end of program;ÿÿÿÿÿÿÿÿÿ.            LEAVE naechstes non blank zeichenÿÿ       ELSE zeile lesenÿÿÿÿÿÿÿÿ. END PROC naechstes non blank zeichen; ÿÿÿÿÿÿÿÿ PROC naechstes zeichen: ÿÿÿÿÿÿ.   IF zeichen pos > length (zeile) ÿÿÿÿÿÿÿÿÿÿÿÿ     THEN IF eof (eingabe) ÿÿÿÿ.            THEN zeichen := end of program;ÿÿÿÿ.                 LEAVE naechstes zeichenÿÿÿÿÿÿÿ            ELSE zeile lesen ÿÿ   zeichenpos INCR 1; ÿÿÿÿÿÿÿÿÿ.   zeichen := zeile SUB zeichenposÿÿÿÿÿÿÿÿÿÿÿÿÿ END PROC naechstes zeichen; ÿÿ INT PROC line number:ÿÿÿÿÿÿÿÿÿ>   IF zeichenpos = pos (zeile, ""33"", ""254"", 1)ÿÿÿÿÿÿÿÿÿÿÿÿÿ     THEN zeilen nr - 1 ÿÿÿÿÿÿÿ     ELSE zeilen nr ÿÿÿÿÿÿÿÿÿÿÿ END PROC line number; ÿÿÿÿÿÿÿÿ. PROC symbol (INT VAR symb, type): ÿÿÿÿÿÿÿÿÿÿÿÿ.     suche naechstes checker symbol ÿÿÿÿÿÿÿÿÿÿÿ. suche naechstes checker symbol: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   SELECT code (zeichen) OFÿÿÿÿ.   CASE 30: (* end of programn *)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     symb := eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ     type := eop; ÿÿÿÿÿÿÿÿÿÿÿÿÿ     LEAVE symbolÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   CASE 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110,ÿÿÿÿÿN        111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122:ÿÿÿÿÿÿÿÿÿÿÿÿ     (* small letters *)ÿÿÿÿÿÿÿ     identifier aufsammeln; ÿÿÿ.     put name (CONCR (tabelle), dummy, symb); ÿ     type := identifier;ÿÿÿÿÿÿÿ     LEAVE symbolÿÿÿÿÿÿÿÿÿÿÿÿÿÿN   CASE 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81,ÿÿÿÿ>        82, 83, 84, 85, 86, 87, 88, 89, 90: (* large letters *).     schluesselwort aufsammeln; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     put name (CONCR (tabelle), dummy, symb); ÿ     type := keyword; ÿÿÿÿÿÿÿÿÿ     LEAVE symbolÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   CASE 34: (* " *)ÿÿÿÿÿÿÿÿÿÿÿÿ     skip text denoter ÿÿÿÿÿÿÿÿ   CASE 40: (* ( *) ÿÿÿÿÿÿÿÿÿÿÿ.     IF (zeile SUB zeichen pos + 1) = "*" ÿÿÿÿÿ       THEN skip comment ÿÿÿÿÿÿ.       ELSE symb := code (zeichen);ÿÿÿÿÿÿÿÿÿÿÿÿ            type := delimiter;ÿ.            naechstes non blank zeichen;ÿÿÿÿÿÿÿ            LEAVE symbol;ÿÿÿÿÿÿ   CASE 58: (* : *) ÿÿÿÿÿÿÿÿÿÿÿ.     IF (zeile SUB zeichenpos + 1) = "=" ÿÿÿÿÿÿ.       THEN symb := assign symbol;ÿÿÿÿÿÿÿÿÿÿÿÿÿ            zeichenpos INCR 1ÿÿ.     ELIF (zeile SUB zeichenpos + 1) = ":" ÿÿÿÿ.       THEN symb := init symbol; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ            zeichenpos INCR 1 ÿ.       ELSE symb := doppelpunkt ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     type := delimiter; ÿÿÿÿÿÿÿ.     naechstes non blank zeichen;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     LEAVE symbolÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>   CASE 48, 49, 50, 51, 52, 53, 54, 55, 56, 57: (* 0 - 9 *)ÿÿÿÿ     int denoter skippen;ÿÿÿÿÿÿ     IF zeichen = "."ÿÿÿÿÿÿÿÿÿÿ.       THEN naechstes non blank zeichen;ÿÿÿÿÿÿÿ            IF digitÿÿÿÿÿÿÿÿÿÿÿ.              THEN real denoter skippenÿÿÿÿÿÿÿÿ.              ELSE symb := punkt; ÿÿÿÿÿÿÿÿÿÿÿÿÿ.                   type := delimiter;ÿÿÿÿÿÿÿÿÿÿ                   LEAVE symbol.   CASE 41, 44, 46, 59, 61: (* ) , . ; =  *) ÿÿ     symb := code (zeichen); ÿÿ     type := delimiter; ÿÿÿÿÿÿÿ.     naechstes non blank zeichen; ÿÿÿÿÿÿÿÿÿÿÿÿÿ     LEAVE symbolÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   OTHERWISE naechstes non blank zeichenÿÿÿÿÿÿÿ END PROC symbol; ÿÿÿÿÿÿÿÿÿÿÿÿÿ PROC real denoter skippen:ÿÿÿÿ   int denoter skippen;ÿÿÿÿÿÿÿÿ   IF zeichen = "e" ÿÿÿÿÿÿÿÿÿÿÿ.     THEN naechstes non blank zeichen;ÿÿÿÿÿÿÿÿÿ          int denoter skippenÿÿ END PROC real denoter skippen; PROC int denoter skippen:ÿÿÿÿÿ   naechstes non blank zeichen;.   WHILE zeichen >= "0" AND zeichen <= "9" REPÿ.     naechstes non blank zeichenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   zeichenpos DECR 1;ÿÿÿÿÿÿÿÿÿÿ   naechstes non blank zeichenÿ END PROC int denoter skippen;ÿ PROC identifier aufsammeln:ÿÿÿ   dummy := zeichen; ÿÿÿÿÿÿÿÿÿÿ.     naechstes non blank zeichen; ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF small letter or digit ÿ       THEN dummy CAT zeichen ÿ.       ELSE LEAVE identifier aufsammeln ÿÿÿÿÿÿÿ. END PROC identifier aufsammeln; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC schluesselwort aufsammeln:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   dummy := "";   sammle schluesselwort; ÿÿÿÿÿ   IF dummy = "END" ÿÿÿÿÿÿÿÿÿÿÿ     THEN noch einmal ÿÿÿÿÿÿÿÿÿ sammle schluesselwort: ÿÿÿÿÿÿÿ   WHILE large letter REP ÿÿÿÿÿ     dummy CAT zeichen;ÿÿÿÿÿÿÿÿ     naechstes zeichenÿÿÿÿÿÿÿÿÿ   IF zeichen = " "ÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN naechstes non blank zeichenÿÿÿÿÿÿÿÿÿÿ   sammle schluesselwortÿÿÿÿÿÿÿ. END PROC schluesselwort aufsammeln; ÿÿÿÿÿÿÿÿÿÿ PROC skip text denoter: ÿÿÿÿÿÿ   INT VAR anz zeilen :: 0; ÿÿÿ>   zeichen pos := pos (zeile, """", zeichenpos + 1);ÿÿÿÿÿÿÿÿÿÿÿ   WHILE zeichen pos = 0 REP ÿÿ     naechste zeile einlesen;ÿÿ.     zeichen pos := pos (zeile, """");ÿÿÿÿÿÿÿÿÿ   ende text denoter.ÿÿÿÿÿÿÿÿÿÿ ende text denoter: ÿÿÿÿÿÿÿÿÿÿÿ   IF anz zeilen > 1 ÿÿÿÿÿÿÿÿÿÿN     THEN report referencer error (1, zeilen nr, text (anz zeilen))ÿÿÿÿÿÿÿÿÿÿÿÿ.   naechstes non blank zeichen. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ naechste zeile einlesen: ÿÿÿÿÿ   IF eof (eingabe) ÿÿÿÿÿÿÿÿÿÿÿN     THEN report referencer error (2, zeilen nr, text (anz zeilen));ÿÿÿÿÿÿÿÿÿÿÿ.          zeichen := end of program; ÿÿÿÿÿÿÿÿÿÿ.          LEAVE skip text denoter ÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELSE zeile lesen;ÿÿÿÿÿÿÿÿÿ          anz zeilen INCR 1 ÿÿÿ END PROC skip text denoter; ÿÿ PROC skip comment:ÿÿÿÿÿÿÿÿÿÿÿÿ   INT VAR anz zeilen :: 0;ÿÿÿÿ>   zeichen pos := pos (zeile, "*)", zeichenpos + 2);ÿÿÿÿÿÿÿÿÿÿÿ   WHILE zeichen pos = 0 REP ÿÿ     naechste zeile einlesen; ÿ.     zeichen pos := pos (zeile, "*)"); ÿÿÿÿÿÿÿÿ   ende comment.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF anz zeilen > 1 ÿÿÿÿÿÿÿÿÿÿN     THEN report referencer error (3, zeilen nr, text (anz zeilen))ÿÿÿÿÿÿÿÿÿÿÿÿ   zeichen pos INCR 2;ÿÿÿÿÿÿÿÿÿ.   naechstes non blank zeichen. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ naechste zeile einlesen: ÿÿÿÿÿ   IF eof (eingabe) ÿÿÿÿÿÿÿÿÿÿÿN     THEN report referencer error (4, zeilen nr, text (anz zeilen));ÿÿÿÿÿÿÿÿÿÿÿ.          zeichen := end of program; ÿÿÿÿÿÿÿÿÿÿ          LEAVE skip commentÿÿÿ     ELSE zeile lesen;ÿÿÿÿÿÿÿÿÿ          anz zeilen INCR 1 ÿÿÿ END PROC skip comment;ÿÿÿÿÿÿÿÿ. BOOL PROC small letter or digit: ÿÿÿÿÿÿÿÿÿÿÿÿÿN   (zeichen >= "0" AND zeichen <= "9") OR (zeichen >= "a" AND zeichen <= "z") ÿ. END PROC small letter or digit; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ BOOL PROC small letter: ÿÿÿÿÿÿ.   zeichen >= "a" AND zeichen <= "z"ÿÿÿÿÿÿÿÿÿÿÿ END PROC small letter;ÿÿÿÿÿÿÿÿ BOOL PROC large letter:ÿÿÿÿÿÿÿ.   zeichen >= "A" AND zeichen <= "Z"ÿÿÿÿÿÿÿÿÿÿÿ END PROC large letter;ÿÿÿÿÿÿÿÿ BOOL PROC digit:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   zeichen >= "0" AND zeichen <= "9"ÿÿÿÿÿÿÿÿÿÿÿ END PROC digit;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ END PACKET scanner;ÿÿÿÿÿÿÿÿÿÿÿN (*************************************************************************)ÿÿÿ. PACKET referencer2 DEFINES referencer:ÿÿÿÿÿÿÿÿ. (* Programm fuer den 'referencer'ÿÿÿÿÿÿÿÿÿÿÿÿÿ    Autor: Rainer Hahn *)ÿÿÿÿÿÿ         max index;ÿÿÿÿÿÿÿÿÿÿÿÿ TEXT VAR dummy,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          dummy2,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ          name; DATASPACE VAR ds;ÿÿÿÿÿÿÿÿÿÿÿÿÿ BOUND ROW max TEXT VAR liste;ÿ. BOOL VAR initialisiert :: FALSE,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          symbol bereits geholt,ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          globale deklarationen;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö LET max             = 1751,ÿÿÿ     global text     = "<--G",ÿ     local text      = "<--L",ÿ     refinement text = "<--R",ÿ     procedure text  = "<--P",ÿ     eop           = 1, ÿÿÿÿÿÿÿ     identifier    = 2, ÿÿÿÿÿÿÿ     keyword       = 3, ÿÿÿÿÿÿÿ     init symbol   = 30, ÿÿÿÿÿÿ     assign symbol = 31,ÿÿÿÿÿÿÿ     klammer auf   = 40, ÿÿÿÿÿÿ     klammer zu    = 41,ÿÿÿÿÿÿÿ     komma         = 44,ÿÿÿÿÿÿÿ     punkt         = 46,ÿÿÿÿÿÿÿ     doppelpunkt   = 58, ÿÿÿÿÿÿ     semikolon     = 59, ÿÿÿÿÿÿ     proc symbol       = 255, ÿ     end proc symbol   = 256,ÿÿ     packet symbol     = 257, ÿ     end packet symbol = 258,ÿÿ     type symbol       = 259, ÿ     var symbol        = 260,ÿÿ     const symbol      = 261,ÿÿ     let symbol        = 262,ÿÿ     leave symbol      = 263,ÿÿ     op symbol         = 264,ÿÿ     endop symbol      = 265,ÿÿ     endif symbol      = 266,ÿÿ     fi symbol         = 266;ÿÿ PROC referencer: ÿÿÿÿÿÿÿÿÿÿÿÿÿ   referencer (last param) ÿÿÿÿ END PROC referencer; ÿÿÿÿÿÿÿÿÿ. PROC referencer (TEXT CONST check file): ÿÿÿÿÿ.   referencer (check file, check file + ".r") ÿ END PROC referencer; ÿÿÿÿÿÿÿÿÿ> PROC referencer (TEXT CONST check file, dump file):ÿÿÿÿÿÿÿÿÿÿÿ   IF exists (check file)ÿÿÿÿÿÿ.     THEN dump file ggf loeschenÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     ELSE errorstop ("Eingabe-Datei nicht vorhanden")ÿÿÿÿÿÿÿÿÿÿ   disable stop;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     start referencing (check file, dump file);     forget (ds);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   enable stop. dump file ggf loeschen:ÿÿÿÿÿÿÿ   IF exists (dump file)ÿÿÿÿÿÿÿ.     THEN forget (dump file, quiet)ÿÿÿÿÿÿÿÿÿÿÿÿ END PROC referencer;ÿÿÿÿÿÿÿÿÿÿ> PROC start referencing (TEXT CONST check file, dump file):ÿÿÿÿ   enable stop;   ueberschrift;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   initialisierung;ÿÿÿÿÿÿÿÿÿÿÿÿ   verkuerzte syntax analyse;ÿÿ.   in dump file kopieren (dump file);ÿÿÿÿÿÿÿÿÿÿ   end scanning (check file).ÿÿ   put ("REFERENCER:");ÿÿÿÿÿÿÿÿ   put (check file);ÿÿÿÿÿÿÿÿÿÿÿ   putline (dump file).ÿÿÿÿÿÿÿÿ initialisierung:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   IF NOT initialisiertÿÿÿÿÿÿÿÿ     THEN init name table withÿN ("PROC,ENDPROC,PACKET,ENDPACKET,TYPE,VAR,CONST,LET,LEAVE,OP,ENDOP,ENDIF,FI");           initialisiert := TRUE   ds := nilspace;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   liste := ds;   max index := end op symbol;ÿ   dummy := checkfile.ÿÿÿÿÿÿÿÿÿ verkuerzte syntax analyse: ÿÿÿ.   globale deklarationen := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   init scanning (dummy);ÿÿÿÿÿÿ.   symbol bereits geholt := FALSE;ÿÿÿÿÿÿÿÿÿÿÿÿÿ     IF symbol bereits geholt ÿ.       THEN symbol bereits geholt := FALSE ÿÿÿÿ       ELSE symbol (symb, typ)ÿ     IF typ = keyword ÿÿÿÿÿÿÿÿÿ.       THEN nach schluesselwort verarbeitenÿÿÿÿ     ELIF symb = punktÿÿÿÿÿÿÿÿÿ.       THEN ggf refinement aufnehmenÿÿÿÿÿÿÿÿÿÿÿ     ELIF typ = identifier ÿÿÿÿN       THEN identifier aufnehmen und ggf aktuelle parameter listeÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   UNTIL typ = eop ENDREP. ÿÿÿÿ> identifier aufnehmen und ggf aktuelle parameter liste:ÿÿÿÿÿÿÿÿ   in die liste (symb, "");ÿÿÿÿ   symbol (symb, typ); ÿÿÿÿÿÿÿÿ   IF symb = klammer auf ÿÿÿÿÿÿ.     THEN aktuelle parameter aufnehmen ÿÿÿÿÿÿÿÿ.     ELSE symbol bereits geholt := TRUE ÿÿÿÿÿÿÿ. nach schluesselwort verarbeiten:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   SELECT symb OF ÿÿÿÿÿÿÿÿÿÿÿÿÿ   CASE let symbol:ÿÿÿÿÿÿÿÿÿÿÿÿ.     let deklarationen aufsammelnÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   CASE packet symbol:ÿÿÿÿÿÿÿÿÿ.     namen des interface aufsammelnÿÿÿÿÿÿÿÿÿÿÿÿ   CASE end packet symbol:ÿÿÿÿÿ     skip naechstes symbol ÿÿÿÿ.   CASE var symbol, const symbol:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     datenobjekt deklaration aufnehmenÿÿÿÿÿÿÿÿÿ   CASE proc symbol:ÿÿÿÿÿÿÿÿÿÿÿ.     globale deklarationen := FALSE; ÿÿÿÿÿÿÿÿÿÿ.     prozedur name und ggf parameter aufsammeln   CASE end proc symbol:ÿÿÿÿÿÿÿ.     globale deklarationen := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿ     skip naechstes symbolÿÿÿÿÿ   CASE op symbol: ÿÿÿÿÿÿÿÿÿÿÿÿ.     globale deklarationen := FALSE; ÿÿÿÿÿÿÿÿÿÿ>     operatornamen skippen und ggf parameter aufsammeln ÿÿÿÿÿÿÿ   CASE end op symbol: ÿÿÿÿÿÿÿÿ.     globale deklarationen := TRUE; ÿÿÿÿÿÿÿÿÿÿÿ     skip until (semikolon) ÿÿÿ   CASE type symbol: ÿÿÿÿÿÿÿÿÿÿ.     namen der typ definition aufsammelnÿÿÿÿÿÿÿ   CASE leave symbol: ÿÿÿÿÿÿÿÿÿ     skip naechstes symbolÿÿÿÿÿ skip naechstes symbol: ÿÿÿÿÿÿÿ   symbol (symb, typ). ÿÿÿÿÿÿÿÿ END PROC start referencing;ÿÿÿ. PROC aktuelle parameter aufnehmen: ÿÿÿÿÿÿÿÿÿÿÿ     symbol (symb, typ); ÿÿÿÿÿÿ     IF typ = identifier ÿÿÿÿÿÿ.       THEN in die liste (symb, "") ÿÿÿÿÿÿÿÿÿÿÿ.   UNTIL symb = klammer zu END REP. ÿÿÿÿÿÿÿÿÿÿÿ. END PROC aktuelle parameter aufnehmen; ÿÿÿÿÿÿÿ PROC ggf refinement aufnehmen:   symbol (symb, typ); ÿÿÿÿÿÿÿÿ.   symbol bereits geholt := TRUE;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   WHILE typ = identifier REP ÿ     doppelpunkt oder selektorÿ doppelpunkt oder selektor:ÿÿÿÿ.   INT CONST letzter id :: symb; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   symbol (symb, typ);ÿÿÿÿÿÿÿÿÿ   IF symb = doppelpunktÿÿÿÿÿÿÿ>     THEN in die liste (letzter id, refinement text);ÿÿÿÿÿÿÿÿÿÿ.          LEAVE ggf refinement aufnehmenÿÿÿÿÿÿÿ.     ELSE in die liste (letzter id, "");ÿÿÿÿÿÿÿ          IF symb = punkt ÿÿÿÿÿ.            THEN symbol (symb, typ) ÿÿÿÿÿÿÿÿÿÿÿ.            ELSE LEAVE ggf refinement aufnehmen. END PROC ggf refinement aufnehmen; ÿÿÿÿÿÿÿÿÿÿÿ. PROC namen des interface aufsammeln: ÿÿÿÿÿÿÿÿÿ   packet name ueberspringen;ÿÿ.   namen der schnittstelle aufsammeln. ÿÿÿÿÿÿÿÿ packet name ueberspringen: ÿÿÿ   symbol (symb, typ).ÿÿÿÿÿÿÿÿÿ. namen der schnittstelle aufsammeln:ÿÿÿÿÿÿÿÿÿÿÿ     symbol (symb, typ);ÿÿÿÿÿÿÿ     IF typ = identifier ÿÿÿÿÿÿ.       THEN in die liste (symb, "")ÿÿÿÿÿÿÿÿÿÿÿÿ.   UNTIL symb = doppelpunkt END REP.ÿÿÿÿÿÿÿÿÿÿÿ. END PROC namen des interface aufsammeln; ÿÿÿÿÿ. PROC let deklarationen aufsammeln:ÿÿÿÿÿÿÿÿÿÿÿÿ     symbol (symb, typ);ÿÿÿÿÿÿÿ     IF typ = identifier ÿÿÿÿÿÿ       THEN let name aufnehmenÿ     ELIF typ = keyword ÿÿÿÿÿÿÿ.       THEN bis zum komma oder semikolonÿÿÿÿÿÿÿ.   UNTIL symb = semikolon END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ let name aufnehmen: ÿÿÿÿÿÿÿÿÿÿ   IF globale deklarationenÿÿÿÿ.     THEN in die liste (symb, global text)ÿÿÿÿÿ.     ELSE in die liste (symb, "")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     symbol (symb, typ);ÿÿÿÿÿÿÿ     IF typ = identifierÿÿÿÿÿÿÿ.       THEN in die liste (symb, "")ÿÿÿÿÿÿÿÿÿÿÿÿ>   UNTIL symb = komma OR symb = semikolon END REP. ÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC let deklarationen aufsammeln;ÿÿÿÿÿÿÿÿ. PROC namen der typ definition aufsammeln: ÿÿÿÿ     symbol (symb, typ); ÿÿÿÿÿÿ.     bis zum komma oder semikolonÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   UNTIL symb = semikolon END REP ÿÿÿÿÿÿÿÿÿÿÿÿÿ. END PROC namen der typ definition aufsammeln;ÿ. PROC bis zum komma oder semikolon: ÿÿÿÿÿÿÿÿÿÿÿ   INT VAR anz klammern :: 0; ÿ>     symbol (symb, typ); (* fields aufnehmen weggelassen *)ÿÿÿÿ     IF symb = klammer auf ÿÿÿÿ.       THEN anz klammern INCR 1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ELIF symb = klammer zuÿÿÿÿ       THEN anz klammern DECR 1N   UNTIL (symb = komma AND anz klammern = 0) OR symb = semikolon ENDREP.ÿÿÿÿÿÿÿ. END PROC bis zum komma oder semikolon; ÿÿÿÿÿÿÿ. PROC datenobjekt deklaration aufnehmen:ÿÿÿÿÿÿÿ   symbol (symb, typ); ÿÿÿÿÿÿÿÿ     IF globale deklarationenÿÿ.       THEN in die liste (symb, global text) ÿÿ.       ELSE in die liste (symb, local text) ÿÿÿ     skip ggf initialisierung;ÿ     IF symb = komma ÿÿÿÿÿÿÿÿÿÿ       THEN symbol (symb, typ) >   UNTIL symb = semikolon OR symb = punkt END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ skip ggf initialisierung: ÿÿÿÿ   symbol (symb, typ); ÿÿÿÿÿÿÿÿ>   IF symb = init symbol OR symb = assign symbolÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN initialisierung skippenÿÿÿÿÿÿÿÿÿÿÿÿÿÿ initialisierung skippen: ÿÿÿÿÿ   INT VAR anz klammern :: 0;ÿÿ.     INT CONST vorheriges symbol :: symb,ÿÿÿÿÿÿ.               vorheriger typ    :: typ;ÿÿÿÿÿÿÿ     symbol (symb, typ); ÿÿÿÿÿÿ     IF symb = ööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööklammer auf ÿÿÿÿ.       THEN anz klammern INCR 1;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.            IF vorheriger typ = identifier ÿÿÿÿ>              THEN in die liste (vorheriges symbol, "") ÿÿÿÿÿÿÿ     ELIF symb = klammer zu ÿÿÿ.       THEN anz klammern DECR 1; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.            IF vorheriger typ = identifier ÿÿÿÿ>              THEN in die liste (vorheriges symbol, "") ÿÿÿÿÿÿÿ>     ELIF vorheriger typ = identifier AND symb = doppelpunktÿÿÿ>       THEN in die liste (vorheriges symbol, refinement text); >            LEAVE datenobjekt deklaration aufnehmenÿÿÿÿÿÿÿÿÿÿÿÿ.     ELIF vorheriger typ = identifier ÿÿÿÿÿÿÿÿÿ>       THEN in die liste (vorheriges symbol, "")ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   UNTIL (symb = komma AND anz klammern = 0)ÿÿÿ>          OR symb = semikolon OR symb = end proc symbol OR ÿÿÿÿN          symb = end op symbol OR symb = endif symbol OR symb = fi symbolÿÿÿÿÿÿ. END PROC datenobjekt deklaration aufnehmen; ÿÿ> PROC prozedur name und ggf parameter aufsammeln: ÿÿÿÿÿÿÿÿÿÿÿÿÿ   prozedurname aufsammeln;ÿÿÿÿ   symbol (symb, typ); ÿÿÿÿÿÿÿÿ   IF symb <> doppelpunktÿÿÿÿÿÿ.     THEN formale parameter aufsammelnÿÿÿÿÿÿÿÿÿ prozedurname aufsammeln:ÿÿÿÿÿÿ   symbol (symb, typ); ÿÿÿÿÿÿÿÿ.   in die liste (symb, procedure text).ÿÿÿÿÿÿÿÿ> END PROC prozedurname und ggf parameter aufsammeln; ÿÿÿÿÿÿÿÿÿÿ> PROC operatornamen skippen und ggf parameter aufsammeln: ÿÿÿÿÿ   symbol (symb, typ);ÿÿÿÿÿÿÿÿÿ   IF symb <> doppelpunktÿÿÿÿÿÿ.     THEN formale parameter aufsammeln ÿÿÿÿÿÿÿÿ> END PROC operatornamen skippen und ggf parameter aufsammeln;ÿÿ. PROC formale parameter aufsammeln: ÿÿÿÿÿÿÿÿÿÿÿ     symbol (symb, typ); ÿÿÿÿÿÿ     IF typ = identifier ÿÿÿÿÿÿ.       THEN in die liste (symb, local text); ÿÿ.   UNTIL symb = doppelpunkt END REP ÿÿÿÿÿÿÿÿÿÿÿ. END PROC formale parameter aufsammeln; ÿÿÿÿÿÿÿ. PROC skip until (INT CONST zeichencode): ÿÿÿÿÿ   skip until (zeichencode, 0)  END PROC skip until; ÿÿÿÿÿÿÿÿÿ. PROC skip until (INT CONST z1, z2):ÿÿÿÿÿÿÿÿÿÿÿ     symbol (symb, typ) ÿÿÿÿÿÿÿ.   UNTIL symb = z1 OR symb = z2 END REPÿÿÿÿÿÿÿÿ END PROC skip until; ÿÿÿÿÿÿÿÿÿ> PROC in die liste (INT CONST index, TEXT CONST zusatz): ÿÿÿÿÿÿ   IF index > max index ÿÿÿÿÿÿÿ.     THEN listenelemente initialisieren; ÿÿÿÿÿÿ   IF aktueller eintrag = "" ÿÿ     THEN namens eintrag ÿÿÿÿÿÿ   aktueller eintrag CAT " ";ÿÿ.   aktueller eintrag CAT text (line number);ÿÿÿ.   aktueller eintrag CAT zusatz.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ aktueller eintrag: ÿÿÿÿÿÿÿÿÿÿÿ   liste [index]. ÿÿÿÿÿÿÿÿÿÿÿÿÿ. listenelemente initialisieren: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   FOR i FROM max index + 1 UPTO index REP ÿÿÿÿ      liste [i] := ""ÿÿÿÿÿÿÿÿÿÿ   max index := index.ÿÿÿÿÿÿÿÿÿ namens eintrag:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   get name (index, aktueller eintrag);ÿÿÿÿÿÿÿÿ.   WHILE length (aktueller eintrag) < 15 REP ÿÿ     aktueller eintrag CAT " "ÿ   aktueller eintrag CAT ":".ÿÿ END PROC in die liste; ÿÿÿÿÿÿÿ TEXT VAR zeile;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> PROC in dump file kopieren (TEXT CONST dump file): ÿÿÿÿÿÿÿÿÿÿÿ.   putline ("Ausgabedatei erstellen"); ÿÿÿÿÿÿÿÿ.   f := sequential file (output, dump file); ÿÿ.   kopieren und ggf fehlermeldung;ÿÿÿÿÿÿÿÿÿÿÿÿÿ   ggf sortieren;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   zeile ggf aufspalten;ÿÿÿÿÿÿÿ   to line (f, 1).ÿÿÿÿÿÿÿÿÿÿÿÿÿ. kopieren und ggf fehlermeldung:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.   FOR i FROM fi symbol UPTO max index REP ÿÿÿÿ     zeile := liste [i];ÿÿÿÿÿÿÿ     IF zeile <> "" ÿÿÿÿÿÿÿÿÿÿÿ>       THEN ausgabe der referenz und ggf fehlermeldungÿÿÿÿÿÿÿÿÿ. ausgabe der referenz und ggf fehlermeldung:ÿÿÿ   putline (f, zeile);ÿÿÿÿÿÿÿÿÿ.   ggf referencer fehlermeldung.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ggf sortieren:.   IF yes (dump file + " sortieren")ÿÿÿÿÿÿÿÿÿÿÿ     THEN sort (dump file);ÿÿÿÿ zeile ggf aufspalten: ÿÿÿÿÿÿÿÿ   to line (f, 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿ   WHILE NOT eof (f) REPÿÿÿÿÿÿÿ     read record (f, zeile);ÿÿÿ     ggf aufspaltenÿÿÿÿÿÿÿÿÿÿÿÿ ggf aufspalten:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ> INT VAR anf :: 1, ende :: pos (zeile, " ", 72); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>     THEN dummy := subtext (zeile, 1, ende - 1);ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.          write record (f, dummy);ÿÿÿÿÿÿÿÿÿÿÿÿÿ.          spalte bis restzeile auf;ÿÿÿÿÿÿÿÿÿÿÿÿ.          dummy CAT subtext (zeile, anf); ÿÿÿÿÿ.          write record (f, dummy);ÿÿÿÿÿÿÿÿÿÿÿÿÿ spalte bis restzeile auf:ÿÿÿÿÿ.      dummy :=  "                 ";ÿÿÿÿÿÿÿÿÿÿÿ      anf := ende + 1;ÿÿÿÿÿÿÿÿÿ.      ende := pos (zeile, " ", ende + 55);ÿÿÿÿÿ      down (f);      insert record (f);ÿÿÿÿÿÿÿ      IF ende <= 0ÿÿÿÿÿÿÿÿÿÿÿÿÿ.        THEN LEAVE spalte bis restzeile aufÿÿÿÿ>      dummy CAT subtext (zeile, anf, ende - 1); ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ      write record (f, dummy); . END PROC in dump file kopieren; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ. PROC ggf referencer fehlermeldung:ÿÿÿÿÿÿÿÿÿÿÿÿN   name := subtext (zeile, 1, min( pos(zeile, " "), pos(zeile, ":")) - 1);ÿÿÿÿÿ>   dummy := subtext (zeile, pos (zeile, ": ") + 2); ÿÿÿÿÿÿÿÿÿÿÿ.   ueberdeckungs ueberpruefung; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ   not used ueberpruefung; ÿÿÿÿ   IF pos (dummy, "R") > 0ÿÿÿÿÿ.     THEN refinement mehr als zweimal verwendet ueberdeckungs ueberpruefung: ÿN   IF pos (dummy, global text) > 0 AND pos (dummy, local text) > 0 ÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN dummy2 := "und Zeile "; ÿÿÿÿÿÿÿÿÿÿÿÿÿ>          dummy2 CAT text (nr (pos (dummy, local text))); ÿÿÿÿÿ          dummy2 CAT ": "; ÿÿÿÿ          dummy2 CAT name;ÿÿÿÿÿ.          report referencer errorÿÿÿÿÿÿÿÿÿÿÿÿÿÿ>             (5, nr (pos (dummy, global text)), dummy2) ÿÿÿÿÿÿÿ not used ueberpruefung: ÿÿÿÿÿÿ   IF pos (dummy, " ") = 0 ANDÿN      (pos (dummy, global text) > 0 OR pos (dummy, local text) > 0 ORÿÿÿÿÿÿÿÿÿÿ.       pos (dummy, refinement text) > 0)ÿÿÿÿÿÿÿ.     THEN not used fehlermeldungÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ not used fehlermeldung: ÿÿÿÿÿÿ   report referencer errorÿÿÿÿÿ>   (8, nr (length (dummy) - length (local text) + 1), name).ÿÿÿ. refinement mehr als zweimal verwendet: ÿÿÿÿÿÿÿ.   INT VAR refinement deklarationen :: 0, ÿÿÿÿÿ.           refinement aufrufe       :: 0, ÿÿÿÿÿ.           anf                      :: 1;ÿÿÿÿÿÿ.   WHILE pos (dummy,"R", anf) > 0 REPÿÿÿÿÿÿÿÿÿÿ.     refinement deklarationen INCR 1; ÿÿÿÿÿÿÿÿÿ.     anf := pos (dummy, "R", anf) + 1 ÿÿÿÿÿÿÿÿÿ.   WHILE pos (dummy, " ", anf) > 0 REPÿÿÿÿÿÿÿÿÿ.     refinement aufrufe INCR 1; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.     anf := pos (dummy, " ", anf) + 1 ÿÿÿÿÿÿÿÿÿ.   IF refinement deklarationen = 1 ÿÿÿÿÿÿÿÿÿÿÿÿ.     THEN IF refinement aufrufe > 1 ÿÿÿÿÿÿÿÿÿÿÿ.            THEN report referencer errorÿÿÿÿÿÿÿN                      (6, nr (pos (dummy, refinement text)), name) ÿÿÿÿÿÿÿÿÿÿÿÿ.          ELIF refinement aufrufe = 0 ÿÿÿÿÿÿÿÿÿ.            THEN report referencer errorÿÿÿÿÿÿÿN                      (7, nr (pos (dummy, refinement text)), name) ÿÿÿÿÿÿÿÿÿÿÿÿ.   ELIF refinement deklarationen > 1 ÿÿÿÿÿÿÿÿÿÿN     THEN IF 2 * refinement deklarationen - 1 > refinement aufrufeÿÿÿÿÿÿÿÿÿÿÿÿÿ>            THEN report referencer error (9, 0, name)ÿÿÿÿÿÿÿÿÿÿN          ELIF 2 * refinement deklarationen - 1 < refinement aufrufeÿÿÿÿÿÿÿÿÿÿÿ>            THEN report referencer error (10, 0, name)ÿÿÿÿÿÿÿÿÿ. END PROC ggf referencer fehlermeldung;ÿÿÿÿÿÿÿÿ INT PROC nr (INT CONST ende):ÿ   INT VAR von :: ende - 1;ÿÿÿÿN   WHILE von > 0 AND ((dummy SUB von) >= "0" AND (dummy SUB von) <= "9") REPÿÿÿ     von DECR 1.   int (subtext (dummy, von + 1, ende - 1))ÿÿÿÿ END PACKET referencer2;ÿÿÿÿÿÿÿ   referencer ("ref fehler");ÿÿ   edit       ("ref fehler.r"); UNTIL no ("nochmal") END REP*)ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ     ýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@@  ÿÿÿÿreporterÿÿÿÿÿÿÿ11.01.91ÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    @     ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0   0   ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¾a€ëÿÿ  Ð      ÿÿÿÿ       Ð         Ð   >M ÿþ    ÿÿ   ÿÿÿÿreporterÿÿÿÿÿ   ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿ   ÿÿa€ÿF ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±€ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ€ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‚ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa‚ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‚ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‚ÿB ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ƒÿA ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ        type;ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáƒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    tag  = 1,ÿÿÿÿÿÿÿÿÿÿ    bold = 2;ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ„ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá„ÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA…ÿI ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá…ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ†ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ†ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‡ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±‡ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ‡ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿˆÿG ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñˆÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‰ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‰ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‰ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!Šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŠÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    vorwaertsÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŠÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Šÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŠÿ< ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‹ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ‹ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‹ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡‹ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá‹ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1Œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQŒÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	    THEN ÿÿÿÿÿÿÿÿÿÿÿÿŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡Œÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŒÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ; ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿ±ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿscanne kopf:ÿÿÿÿÿÿÿÿÿ!Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaŽÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±Žÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŽÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿQÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP;ÿÿÿÿÿÿÿÿÿÿÿA‘ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq‘ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘‘ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ‘ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa’ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  REP ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ’ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ’ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ“ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ“ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1”ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ”ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá”ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ•ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA•ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±•ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá•ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ–ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1–ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa–ÿ% ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘–ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ–ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ–ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!—ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq—ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá—ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq˜ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  type >= 7.ÿÿÿÿÿÿÿÿÿÁ˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá˜ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ™ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá™ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1šÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqšÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁšÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿášÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1›ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±›ÿ( ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá›ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿœÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±œÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁœÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáœÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!ÿ1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿaÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1žÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQžÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿžÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁžÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP.ÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿážÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAŸÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘Ÿÿ' ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁŸÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿáŸÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ    FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  END REP;ÿÿÿÿÿÿÿÿÿÿÿA ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa ÿ# ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  anfang > 0.ÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¡ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¡ÿ0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¡ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¢ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¢ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¢ÿ4 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF end > 0ÿÿÿÿÿÿÿÿÿñ¢ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!£ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa£ÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI .ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ£ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ£ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¤ÿH ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¤ÿ* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¤ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¥ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	    THEN ÿÿÿÿÿÿÿÿÿÿÿÿQ¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¥ÿ! ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¥ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¥ÿ: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¦ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¦ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¦ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¦ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¦ÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ) ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1§ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ§ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±§ÿ- ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  IF trace onÿÿÿÿÿÿÿÿá§ÿ, ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¨ÿ$ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¨ÿ& ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI.ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¨ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  zaehle mit.ÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1©ÿ9 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq©ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ©ÿK ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿzaehle mit:ÿÿÿÿÿÿÿÿÿÿÑ©ÿ> ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªÿ/ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQªÿ5 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FIÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘ªÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±ªÿ2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñªÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA«ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ«ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±«ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ«ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±¬ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ¬ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  IF valueÿÿÿÿÿÿÿÿÿÿÿ1­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ­ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ®ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa¯ÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá¯ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
  IF valueÿÿÿÿÿÿÿÿÿÿÿ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡°ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ°ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ°ÿ. ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ         FIÿÿÿÿÿÿÿÿÿÿÿÿ  FI;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿA±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿa±ÿC ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá±ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  INT VAR i;ÿÿÿÿÿÿÿÿÿA²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq²ÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¡²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÁ²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿá²ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	  END REPÿÿÿÿÿÿÿÿÿÿÿÿ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿQ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿq³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÑ³ÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñ³ÿ ÿÿÿöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö