C.MAINDQS?C CEXITB0EXTERNBAIABSBAPMAX0BA XFUNCBA0READOBBRSVOBBPRENDOBB WRITOBB0GTBCLEBCPLTBC REWBC0EQBDNEBDPEXITBD AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHA AHX6\HAJDCMAIN LAIBLAIHSLAHXTHAYHA+DA LAHXMDC HA4HA7HA:HA=HAAHAACHAAFHAAIHAALHAAOHAARHAAUHAAXHAA[HAA^HAA!HAA$HAA HAA*HAA-HAA0HAA3HAA6HAA9HAADH(6I3,F10.0)AMLAHX7[D[( GROUP NR ,I5, > ,I4, OBSERVATIONS IGNORED )ANLAHX7"DE(12A6)AOLAHX7+DG(1H ,3A6)APLAHX76DI(I3,(7E11.4))AQLAHX8IDQ( 1 K- S O R T )ARLAHX9KE( 0 GROUP NUMBER ,I5, CONTAINS ,I5, ROWS ,/ KOL ROM CODE COL2 KONST NO OF ,/ 4X, GR COL ,28X, DATA )ASLAHX9\DO(1H ,2I3,2I5,I9,F11.3,I6)ATLAHX9/DQ( 0 ILLEGAL REQUEST STOPPING )AULAHX9DCA&B LB4DBA LEIXLAHX="LAHXA DG2^A(B-2A)LAHX>LDKA*B]2^A+B-2A,B LB4DBA-LAHX>LDCA.B LB4DKA/B\2^A0B\J-2A1LBDDAR+LAH >TDAB LB4DBA2LBDDAR3LLIPDA2(LBDDAR+LMIPDAJ(LAH!R-DDA3B^R5LLIPDA2(LBDDAR+LMIPDAJ(LAH!R-DCA4B$LBTLLIPDC2(B$R+LNIPDAJ(LAH!R-DBA5LKXLAHXB)LAHX68DAB^LIXLBDAALIXLJXDBA6LKXLAHXB)LAHX7 DBAA?4LADMENLIXLAQH?]LJXDEA7B,2LB^LA4ASODCA8B\LAH(?7LAHAHLAHYPDBA9LKXLAHXB)LAHX93DABLLIXLJXDBA:LAHY8DFA;B12QALHXLAHXAFLAHX7 DBAA?=LIXLA4MD*LAQI\LJXDBA?LKXLAHXB)LAHX7 DBAA?=LADMD*LIXLAQI.LJXDEAABLJ,2LLATASOLAHP?,DGAAAB]J-2"AABLBDDF2 AACB,2LB^LA4ASRDCAADBYLAH!A LKXLAHXBTLAHX93DABLLIXLJXDEAAEB,2TB!LA4ASUDEAAFBTWB+LA48G!DCBTJ,2TLATASULAHQA DCAAGB1LOXDCAAHB0LOXDEAAIB,2TB"AALA4ASXDBAAJLHXLAHXB&LAHX7 DBAA?=LIXLA4MD*LAQIBPLJXDCBTJ,2TLATASXLAHQBFDEAAKB,2TBLA4AS[DBAALLHXLAHXBLAHX7 DBAA?=LIXLA4MD*LAQIB0LJXDCBTJ,2TLATAS[LAHQB&DIAAMB,2UAANBUWB+LA48C"DEAAOBUWB+LA48DDGAAPBU"/J.WB+LA48D?DGAAQBU"/J/WB+LA48D?DHAARBU"/J-WBN"ULA48D?DDBUJ,2UR3LAHQCCDLAASB,2TAATBT"/J,WBN"LLA48D?DDBTJ,2TR3LAHQC7DBAAULHXLAHXBLAHX68DBAA?:LIXLA4MC%LAQIDQLIXDA2 LJX DAAVCR+LAHAF(DDAAWCR+LAHID-DCB.WBLLA48CPDDAAXCR+LAHID5DFBL3AAYCRLLAH!DIDCAAZCALBTAALLIPDC2(CAR+LPIPDAJ(LAH!DIDDAA[CAR+LAH)E4DMAA\B,2TAA]CA"/JTWBTJ-VLAD0CPLA48D?DDBTJ,2TR/LAHQETDEAA^CAWB LA48C"DBAA LAHYDIDDAA B,2OLBDLA4AS^DEAA!B/WBOLA48CPDEAA"BOWB LA48C"DMAAB,2TAA$BO"/JTWBTJ-VLAD0CPLA48D?DDBTJ,2TR/LAHQFLDCBOJ,2OLATAS^LAHQE:DBAA%LHXLAHXB&LAHX7/LIXDD2SB,2TB LA4AS!DBBTWLIXLA48GCDCBTJ,2TLATAS!LAHQF6LJXDDAA&BSR+LAHAIPDKAA B,2TAA(BT"/J,WBSLAT8D?LAH!IDDFAA BT"/J-WLAD8D?DAVLAD0GCDG2 AA*BT"/J.WLAD8D?DAR+LAHAHSDKBT"/J,VBTU^".HFJ=LA4AHODEE]".HFDAJ9LA4AHQDAELGIXLAHYHSLAHXBHLAHXGFLAHYHOLAHYHQDDAA+BTWLAD8DDAJ,LA48DDDAA,BTWLAD8DLB$DAR6LAH1Q,DDAA-BTWLAD8DDARZLAH1IPDDAA.BTWLAD8DDAR,LB$DGJT2PAA/BPWB LA48G!DFAA0BTJ,2TR LAHQGODBAA1LAHYF(DHAA2B+2RAA3B,2TLBDLA4AS$DIAA4BTW ".HFJ:LA4AI,DAELFIXLAHYI.LAHXAILAHYI,DD2RBTJ,2TLATAS$LAHQIZDDAA5B$R+LAHAK%DFAA6B,2OBRR,LA4AS DFAA7BOJ,2TBRLA4AS*DDAA8BOR,LB$DE2VAA9BTR,LB$DI2WAA:BVJ$WBWJ$VLAD8G!LAT0G!LAH)KUDDAA;B,2XLBDLA4AS-DEAABWJXWB LA48G DCBXJ,2XLATAS-LAHQJ0DEAA?BTJ,2TLATAS*LAHQJLDCBOJ,2OLATAS LAHQJDDDABBRR+LAHAQ