»áli tiíe ´ 0 liîeó.±0000 íoäe liót.ùeó looëõð íoîliót if oë.ùeó íoäe ±5.ùeó looëõð tíoîteót íoîteót½óet ±²0 íoîteót½ècálç âeçiî <ª tèió ðroçráí ió õóeä for íoîitor teótiîç ª¾      iîteçer árráù ëiîä(0:±00©¬álðèáâet(0:±²·©¬coîteîtó(±:²56©»      reál árráù    rá(0:±00©¬áreá¬ðáráí¬äõííù(±:²©»      iîteçer       óeð¬óðáce_îáíe¬ðoiît_îáíe¬óðáce_iîteçer¬ðoiît_iîteçer¬                 ó_text¬ð_text¬ó_îõíâer¬ð_îõíâer¬tùðe¬ðáráíîo¬ótárt_ðoó¬                 láót¬áîùtèiîç¬i¬j¬iît¬âùte¬èálfworä¬text¬octál¬âit¬áll¬                 âõfóiúe¬âõfoffóet¬áttâõf»   âooleáî       oë¬îot_oîliîe¬äõíð_áreá¬íoreliîeó¬óð¬îl»      iîteçer árráù fielä iáf»      úoîe          úäõíð(±²¸¬±¬ótäerror©» âooleáî ðroceäõre oðerátor» if woräloáä(áttâõf+´©<6 tèeî âeçiî   çeteöeît(áttâõf©»   çoto eîäðroçráí» eîä oðerátor»   ðroceäõre äõíð»   âeçiî <ª creáteó áî áreá ðroceóó to á âácëiîç ótoráçe áreá            coîtáiîiîç á coreäõí𠪾          iîteçer i»       îext_ðáráí(ð_text©»       áreá(±©:½ ðáráí(±©»       áreá(²©:½ ðáráí(²©»       äõíð_áreá:½ trõe»       i:½ ±»       cloóe(úäõíð¬trõe©»       oðeî(úäõí𬴬ótriîç ðáráí(iîcreáóe(i©©¬0©»   eîä äõíð»         ðroceäõre core»   äõíð_áreá:½ fálóe»      ðroceäõre coííáîäó»   âeçiî     if rc¸000 tèeî     write(oõt¬<:iîfo        :¾¬îl¬±¬               <:tùðeiî      :¾¬îl¬±¬               <:eîä         :¾¬îl¬±¬               <:äõíð        :¾¬îl¬±¬               <:core        :¾¬îl¬±¬               <:öeri        :¾¬îl¬±¬               <:iîterîál    :¾¬îl¬±¬               <:âõf         :¾¬îl¬±¬               <:exterîál    :¾¬îl¬±¬               <:áreá        :¾¬îl¬±¬               <:cèáiî       :¾¬îl¬±© elóe     write(oõt¬<:iîfo        :¾¬îl¬±¬               <:ö           :¾¬îl¬±¬               <:eîä         :¾¬îl¬±¬               <:öeri        :¾¬îl¬±¬               <:iîterîál    :¾¬îl¬±¬               <:âõf         :¾¬îl¬±¬               <:exterîál    :¾¬îl¬±¬               <:áreá        :¾¬îl¬±©»                    óetðoóitioî(oõt¬0¬0©»   eîä»         ðroceäõre iîfo»   âeçiî     îext_ðáráí(ó_text©»     write(oõt¬<:cáll:<±0¾:¾¬óð¬6¬cáóe coîöert_to_îõíâer(ðáráí© of (               if rc¸000 tèeî               <:                      íoîteót tùðeiî                         ' íáëeó tèe ðroçráí eîter tèe coîöeróátioîál íoäe ' :¾ elóe                <:                      íoîteót ö                      ' íáëeó tèe ðroçráí eîter tèe coîöeróátioîál íoäe ' :¾¬               <:                      eîä                         ' íáëeó tèe ðroçráí leáöe tèe coîöeróátioîál íoäe ' :¾¬               if -¬rc¸000 tèeî <::¾ elóe               <:                        äõíð.<äõíðáreá¾                         ' fõrtèer coííáîäó will refer to tèe âó-file                         çiöeî âù <äõíðáreá¾                        ' :¾¬               if -¬rc¸000 tèeî <::¾ elóe               <:                       core                         ' fõrtèer coííáîäó will refer to tèe core                         reóiäiîç óùóteí                         ' :¾¬               <:                      öeri