VAR

G0,G1,G2,G3,G4,G5,G6,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17,G18,G19,G20,G21,G22,G23,G24,G25,G26,G27,G28,G29,G30,G31,G32,G33,G34,G35,G36,G37,G38,G39,G40,G41,G42,G43,G44,G45,G46,G47,G48,G49,G50,G51,G52,G53,G54,G55,G56,G57,G58,G59,G60,G61,G62,G63,G64,G65,G66,G67,G68,G69,G70,G71,G72,G73,G74,G75,G76,G77,G78,G79,G80,G81,G82,G83,G84,G85,G86,G87,G88,G89,G90,G91,G92,G93,G94,G95,G96,G97,G98,G99,G100,G101,G102,G103,G104,

INQ0,INQ1,INQ2,INQ3,INQ4,INQ5,INQ6,INQ7,INQ8,INQ9,INQ10,INQ11,INQ12,INQ13,INQ14,INQ15,INQ16,INQ17,INQ18,INQ19,INQ20,INQ21,INQ22,INQ23,INQ24,INQ25,INQ26,INQ27,INQ28,INQ29,INQ30,INQ31,INQ32,INQ33,INQ34,INQ35,INQ36,INQ37,INQ38,INQ39,INQ40,INQ41,INQ42,INQ43,INQ44,INQ45,INQ46,INQ47,INQ48,INQ49,INQ50,INQ51,INQ52,INQ53,INQ54,INQ55,INQ56,INQ57,INQ58,INQ59,INQ60,INQ61,INQ62,INQ63,INQ64,INQ65,INQ66,INQ67,INQ68,INQ69,INQ70,INQ71,INQ72,INQ73,INQ74,INQ75,INQ76,INQ77,INQ78,INQ79,INQ80,INQ81,INQ82,INQ83,INQ84,INQ85,INQ86,INQ87,INQ88,INQ89,INQ90,INQ91,INQ92,INQ93,INQ94,INQ95,INQ96,INQ97,INQ98,INQ99,INQ100,INQ101,INQ102,INQ103,INQ104,

D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D19,D20,D21,D22,D23,D24,D25,D26,D27,D28,D29,D30,D31,D32,D33,D34,D35,D36,D37,D38,D39,D40,D41,D42,D43,D44,D45,D46,D47,D48,D49,D50,D51,D52,D53,D54,D55,D56,D57,D58,D59,D60,D61,D62,D63,D64,D65,D66,D67,D68,D69,D70,D71,D72,D73,D74,D75,D76,D77,D78,D79,D80,D81,D82,D83,D84,D85,D86,D87,D88,D89,D90,D91,D92,D93,D94,D95,D96,D97,D98,D99,D100,D101,D102,D103,D104,

V0,V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12,V13,V14,V15,V16,V17,V18,V19,V20,V21,V22,V23,V24,V25,V26,V27,V28,V29,V30,V31,V32,V33,V34,V35,V36,V37,V38,V39,V40,V41,V42,V43,V44,V45,V46,V47,V48,V49,V50,V51,V52,V53,V54,V55,V56,V57,V58,V59,V60,V61,V62,V63,V64,V65,V66,V67,V68,V69,V70,V71,V72,V73,V74,V75,V76,V77,V78,V79,V80,V81,V82,V83,V84,V85,V86,V87,V88,V89,V90,V91,V92,V93,V94,V95,V96,V97,V98,V99,V100,V101,V102,V103,V104,V105,V106,V107,V108,V109,V110,V111,V112,V113,V114,V115,V116,V117,V118,V119,V120,V121,V122,V123,V124,V125,V126,V127,V128,V129,V130,V131,V132,V133,V134,V135,V136,V137,V138,V139,V140,V141,V142,V143,V144,V145,V146,V147,V148,V149,V150,V151,V152,V153,V154,V155,V156,V157,V158,V159,V160,V161,V162,V163,V164,V165,V166,V167,V168,V169,V170,V171,V172,V173,V174,V175,V176,V177,V178,V179,V180,V181,V182,V183,V184,V185,V186,V187,V188,V189,V190,V191,V192,V193,V194,V195,V196,V197,V198,V199,V200,V201,V202,V203,V204,V205,V206,V207,V208,V209,V210,V211,V212,V213,V214,V215,V216,V217,V218,V219,V220,V221,V222,V223,V224,V225,V226,V227,V228,V229,V230,V231,V232,V233,V234,V235,V236,V237,V238,V239,V240,V241,V242,V243,V244,V245,V246,V247,V248,V249,V250,V251,V252,V253,V254,V255,V256,V257,V258,V259,V260,V261,V262,V263,V264,V265,V266,V267,V268,V269,V270,V271,V272,V273,V274,V275,V276,V277,V278,V279,V280,V281,V282,V283,V284,V285,V286,V287,V288,V289,V290,V291,V292,V293,V294,V295,V296,V297,V298,V299,V300,V301,V302,V303,V304,V305,V306,V307,V308,V309,V310,V311,V312,V313,V314,V315,V316,V317,V318,V319,V320,V321,V322,V323,V324,V325,V326,V327,V328,V329,V330,V331,V332,V333,V334,V335,V336,V337,V338,V339,V340,V341,V342,V343,V344,V345,V346,V347,V348,V349,V350,V351,V352,V353,V354,V355,V356,V357,V358,V359,V360,V361,V362,V363,V364,V365,V366,V367,V368,V369,V370,V371,V372,V373,V374,V375,V376,V377,V378,V379,V380,V381,V382,V383,V384,V385,V386,V387,V388,V389,V390,V391,V392,V393,V394,V395,V396,V397,V398,V399,V400,V401,V402,V403,V404,V405,V406,V407,V408,V409,V410,V411,V412,V413,V414,V415,V416,V417,V418,V419,V420,V421,V422,V423,V424,V425,V426,V427,V428,V429,V430,V431,V432,V433,V434,V435,V436,V437,V438,V439,V440,V441,V442,V443,V444,V445,V446,V447,V448,V449,V450,V451,V452,V453,V454,V455,V456,V457,V458,V459,V460,V461,V462,V463,V464,V465,V466,V467,V468,V469,V470,V471,V472,V473,V474,V475,V476,V477,V478,V479,V480,V481,V482,V483,V484,V485,V486,V487,V488,V489,V490,V491,V492,V493,V494,V495,V496,V497,V498,V499,V500,V501,V502,V503,V504,

W0,W1,W2,W3,W4,W5,W6,W7,W8,W9,W10,W11,W12,W13,W14,W15,W16,W17,W18,W19,W20,W21,W22,W23,W24,W25,W26,W27,W28,W29,W30,W31,W32,W33,W34,W35,W36,W37,W38,W39,W40,W41,W42,W43,W44,W45,W46,W47,W48,W49,W50,W51,W52,W53,W54,W55,W56,W57,W58,W59,W60,W61,W62,W63,W64,W65,W66,W67,W68,W69,W70,W71,W72,W73,W74,W75,W76,W77,W78,W79,W80,W81,W82,W83,W84,W85,W86,W87,W88,W89,W90,W91,W92,W93,W94,W95,W96,W97,W98,W99,W100,W101,W102,W103,W104,W105,W106,W107,W108,W109,W110,W111,W112,W113,W114,W115,W116,W117,W118,W119,W120,W121,W122,W123,W124,W125,W126,W127,W128,W129,W130,W131,W132,W133,W134,W135,W136,W137,W138,W139,W140,W141,W142,W143,W144,W145,W146,W147,W148,W149,W150,W151,W152,W153,W154,W155,W156,W157,W158,W159,W160,W161,W162,W163,W164,W165,W166,W167,W168,W169,W170,W171,W172,W173,W174,W175,W176,W177,W178,W179,W180,W181,W182,W183,W184,W185,W186,W187,W188,W189,W190,W191,W192,W193,W194,W195,W196,W197,W198,W199,W200,W201,W202,W203,W204,W205,W206,W207,W208,W209,W210,W211,W212,W213,W214,W215,W216,W217,W218,W219,W220,W221,W222,W223,W224,W225,W226,W227,W228,W229,W230,W231,W232,W233,W234,W235,W236,W237,W238,W239,W240,W241,W242,W243,W244,W245,W246,W247,W248,W249,W250,W251,W252,W253,W254,W255,W256,W257,W258,W259,W260,W261,W262,W263,W264,W265,W266,W267,W268,W269,W270,W271,W272,W273,W274,W275,W276,W277,W278,W279,W280,W281,W282,W283,W284,W285,W286,W287,W288,W289,W290,W291,W292,W293,W294,W295,W296,W297,W298,W299,W300,W301,W302,W303,W304,W305,W306,W307,W308,W309,W310,W311,W312,W313,W314,W315,W316,W317,W318,W319,W320,W321,W322,W323,W324,W325,W326,W327,W328,W329,W330,W331,W332,W333,W334,W335,W336,W337,W338,W339,W340,W341,W342,W343,W344,W345,W346,W347,W348,W349,W350,W351,W352,W353,W354,W355,W356,W357,W358,W359,W360,W361,W362,W363,W364,W365,W366,W367,W368,W369,W370,W371,W372,W373,W374,W375,W376,W377,W378,W379,W380,W381,W382,W383,W384,W385,W386,W387,W388,W389,W390,W391,W392,W393,W394,W395,W396,W397,W398,W399,W400,W401,W402,W403,W404,W405,W406,W407,W408,W409,W410,W411,W412,W413,W414,W415,W416,W417,W418,W419,W420,W421,W422,W423,W424,W425,W426,W427,W428,W429,W430,W431,W432,W433,W434,W435,W436,W437,W438,W439,W440,W441,W442,W443,W444,W445,W446,W447,W448,W449,W450,W451,W452,W453,W454,W455,W456,W457,W458,W459,W460,W461,W462,W463,W464,W465,W466,W467,W468,W469,W470,W471,W472,W473,W474,W475,W476,W477,W478,W479,W480,W481,W482,W483,W484,W485,W486,W487,W488,W489,W490,W491,W492,W493,W494,W495,W496,W497,W498,W499,W500,W501,W502,W503,W504,

NXT0,NXT1,NXT2,NXT3,NXT4,NXT5,NXT6,NXT7,NXT8,NXT9,NXT10,NXT11,NXT12,NXT13,NXT14,NXT15,NXT16,NXT17,NXT18,NXT19,NXT20,NXT21,NXT22,NXT23,NXT24,NXT25,NXT26,NXT27,NXT28,NXT29,NXT30,NXT31,NXT32,NXT33,NXT34,NXT35,NXT36,NXT37,NXT38,NXT39,NXT40,NXT41,NXT42,NXT43,NXT44,NXT45,NXT46,NXT47,NXT48,NXT49,NXT50,NXT51,NXT52,NXT53,NXT54,NXT55,NXT56,NXT57,NXT58,NXT59,NXT60,NXT61,NXT62,NXT63,NXT64,NXT65,NXT66,NXT67,NXT68,NXT69,NXT70,NXT71,NXT72,NXT73,NXT74,NXT75,NXT76,NXT77,NXT78,NXT79,NXT80,NXT81,NXT82,NXT83,NXT84,NXT85,NXT86,NXT87,NXT88,NXT89,NXT90,NXT91,NXT92,NXT93,NXT94,NXT95,NXT96,NXT97,NXT98,NXT99,NXT100,NXT101,NXT102,NXT103,NXT104,NXT105,NXT106,NXT107,NXT108,NXT109,NXT110,NXT111,NXT112,NXT113,NXT114,NXT115,NXT116,NXT117,NXT118,NXT119,NXT120,NXT121,NXT122,NXT123,NXT124,NXT125,NXT126,NXT127,NXT128,NXT129,NXT130,NXT131,NXT132,NXT133,NXT134,NXT135,NXT136,NXT137,NXT138,NXT139,NXT140,NXT141,NXT142,NXT143,NXT144,NXT145,NXT146,NXT147,NXT148,NXT149,NXT150,NXT151,NXT152,NXT153,NXT154,NXT155,NXT156,NXT157,NXT158,NXT159,NXT160,NXT161,NXT162,NXT163,NXT164,NXT165,NXT166,NXT167,NXT168,NXT169,NXT170,NXT171,NXT172,NXT173,NXT174,NXT175,NXT176,NXT177,NXT178,NXT179,NXT180,NXT181,NXT182,NXT183,NXT184,NXT185,NXT186,NXT187,NXT188,NXT189,NXT190,NXT191,NXT192,NXT193,NXT194,NXT195,NXT196,NXT197,NXT198,NXT199,NXT200,NXT201,NXT202,NXT203,NXT204,NXT205,NXT206,NXT207,NXT208,NXT209,NXT210,NXT211,NXT212,NXT213,NXT214,NXT215,NXT216,NXT217,NXT218,NXT219,NXT220,NXT221,NXT222,NXT223,NXT224,NXT225,NXT226,NXT227,NXT228,NXT229,NXT230,NXT231,NXT232,NXT233,NXT234,NXT235,NXT236,NXT237,NXT238,NXT239,NXT240,NXT241,NXT242,NXT243,NXT244,NXT245,NXT246,NXT247,NXT248,NXT249,NXT250,NXT251,NXT252,NXT253,NXT254,NXT255,NXT256,NXT257,NXT258,NXT259,NXT260,NXT261,NXT262,NXT263,NXT264,NXT265,NXT266,NXT267,NXT268,NXT269,NXT270,NXT271,NXT272,NXT273,NXT274,NXT275,NXT276,NXT277,NXT278,NXT279,NXT280,NXT281,NXT282,NXT283,NXT284,NXT285,NXT286,NXT287,NXT288,NXT289,NXT290,NXT291,NXT292,NXT293,NXT294,NXT295,NXT296,NXT297,NXT298,NXT299,NXT300,NXT301,NXT302,NXT303,NXT304,NXT305,NXT306,NXT307,NXT308,NXT309,NXT310,NXT311,NXT312,NXT313,NXT314,NXT315,NXT316,NXT317,NXT318,NXT319,NXT320,NXT321,NXT322,NXT323,NXT324,NXT325,NXT326,NXT327,NXT328,NXT329,NXT330,NXT331,NXT332,NXT333,NXT334,NXT335,NXT336,NXT337,NXT338,NXT339,NXT340,NXT341,NXT342,NXT343,NXT344,NXT345,NXT346,NXT347,NXT348,NXT349,NXT350,NXT351,NXT352,NXT353,NXT354,NXT355,NXT356,NXT357,NXT358,NXT359,NXT360,NXT361,NXT362,NXT363,NXT364,NXT365,NXT366,NXT367,NXT368,NXT369,NXT370,NXT371,NXT372,NXT373,NXT374,NXT375,NXT376,NXT377,NXT378,NXT379,NXT380,NXT381,NXT382,NXT383,NXT384,NXT385,NXT386,NXT387,NXT388,NXT389,NXT390,NXT391,NXT392,NXT393,NXT394,NXT395,NXT396,NXT397,NXT398,NXT399,NXT400,NXT401,NXT402,NXT403,NXT404,NXT405,NXT406,NXT407,NXT408,NXT409,NXT410,NXT411,NXT412,NXT413,NXT414,NXT415,NXT416,NXT417,NXT418,NXT419,NXT420,NXT421,NXT422,NXT423,NXT424,NXT425,NXT426,NXT427,NXT428,NXT429,NXT430,NXT431,NXT432,NXT433,NXT434,NXT435,NXT436,NXT437,NXT438,NXT439,NXT440,NXT441,NXT442,NXT443,NXT444,NXT445,NXT446,NXT447,NXT448,NXT449,NXT450,NXT451,NXT452,NXT453,NXT454,NXT455,NXT456,NXT457,NXT458,NXT459,NXT460,NXT461,NXT462,NXT463,NXT464,NXT465,NXT466,NXT467,NXT468,NXT469,NXT470,NXT471,NXT472,NXT473,NXT474,NXT475,NXT476,NXT477,NXT478,NXT479,NXT480,NXT481,NXT482,NXT483,NXT484,NXT485,NXT486,NXT487,NXT488,NXT489,NXT490,NXT491,NXT492,NXT493,NXT494,NXT495,NXT496,NXT497,NXT498,NXT499,NXT500,NXT501,NXT502,NXT503,NXT504,

Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q10,Q11,Q12,Q13,Q14,Q15,Q16,Q17,Q18,Q19,Q20,Q21,Q22,Q23,Q24,Q25,Q26,Q27,Q28,Q29,Q30,Q31,Q32,Q33,Q34,Q35,Q36,Q37,Q38,Q39,Q40,Q41,Q42,Q43,Q44,Q45,Q46,Q47,Q48,Q49,Q50,Q51,Q52,Q53,Q54,Q55,Q56,Q57,Q58,Q59,Q60,Q61,Q62,Q63,Q64,Q65,Q66,Q67,Q68,Q69,Q70,Q71,Q72,Q73,Q74,Q75,Q76,Q77,Q78,Q79,Q80,Q81,Q82,Q83,Q84,Q85,Q86,Q87,Q88,Q89,Q90,Q91,Q92,Q93,Q94,Q95,Q96,Q97,Q98,Q99,Q100,Q101,Q102,Q103,Q104,Q105,Q106,Q107,Q108,Q109,Q110,Q111,Q112,Q113,Q114,Q115,Q116,Q117,Q118,Q119,Q120,Q121,Q122,Q123,Q124,Q125,Q126,Q127,Q128,Q129,Q130,Q131,Q132,Q133,Q134,Q135,Q136,Q137,Q138,Q139,Q140,Q141,Q142,Q143,Q144,Q145,Q146,Q147,Q148,Q149,Q150,Q151,Q152,Q153,Q154,Q155,Q156,Q157,Q158,Q159,Q160,Q161,Q162,Q163,Q164,Q165,Q166,Q167,Q168,Q169,Q170,Q171,Q172,Q173,Q174,Q175,Q176,Q177,Q178,Q179,Q180,Q181,Q182,Q183,Q184,Q185,Q186,Q187,Q188,Q189,Q190,Q191,Q192,Q193,Q194,Q195,Q196,Q197,Q198,Q199,Q200,Q201,Q202,Q203,Q204,

n,m,ux,vx,wx,i,f,access,val,t1,t2,t3,head,tail,cnt;

PROCEDURE RG;

BEGIN

val := -1;

IF access = 0 then begin val := G0 end;

IF access = 1 then begin val := G1 end;

IF access = 2 then begin val := G2 end;

IF access = 3 then begin val := G3 end;

IF access = 4 then begin val := G4 end;

IF access = 5 then begin val := G5 end;

IF access = 6 then begin val := G6 end;

IF access = 7 then begin val := G7 end;

IF access = 8 then begin val := G8 end;

IF access = 9 then begin val := G9 end;

IF access = 10 then begin val := G10 end;

IF access = 11 then begin val := G11 end;

IF access = 12 then begin val := G12 end;

IF access = 13 then begin val := G13 end;

IF access = 14 then begin val := G14 end;

IF access = 15 then begin val := G15 end;

IF access = 16 then begin val := G16 end;

IF access = 17 then begin val := G17 end;

IF access = 18 then begin val := G18 end;

IF access = 19 then begin val := G19 end;

IF access = 20 then begin val := G20 end;

IF access = 21 then begin val := G21 end;

IF access = 22 then begin val := G22 end;

IF access = 23 then begin val := G23 end;

IF access = 24 then begin val := G24 end;

IF access = 25 then begin val := G25 end;

IF access = 26 then begin val := G26 end;

IF access = 27 then begin val := G27 end;

IF access = 28 then begin val := G28 end;

IF access = 29 then begin val := G29 end;

IF access = 30 then begin val := G30 end;

IF access = 31 then begin val := G31 end;

IF access = 32 then begin val := G32 end;

IF access = 33 then begin val := G33 end;

IF access = 34 then begin val := G34 end;

IF access = 35 then begin val := G35 end;

IF access = 36 then begin val := G36 end;

IF access = 37 then begin val := G37 end;

IF access = 38 then begin val := G38 end;

IF access = 39 then begin val := G39 end;

IF access = 40 then begin val := G40 end;

IF access = 41 then begin val := G41 end;

IF access = 42 then begin val := G42 end;

IF access = 43 then begin val := G43 end;

IF access = 44 then begin val := G44 end;

IF access = 45 then begin val := G45 end;

IF access = 46 then begin val := G46 end;

IF access = 47 then begin val := G47 end;

IF access = 48 then begin val := G48 end;

IF access = 49 then begin val := G49 end;

IF access = 50 then begin val := G50 end;

IF access = 51 then begin val := G51 end;

IF access = 52 then begin val := G52 end;

IF access = 53 then begin val := G53 end;

IF access = 54 then begin val := G54 end;

IF access = 55 then begin val := G55 end;

IF access = 56 then begin val := G56 end;

IF access = 57 then begin val := G57 end;

IF access = 58 then begin val := G58 end;

IF access = 59 then begin val := G59 end;

IF access = 60 then begin val := G60 end;

IF access = 61 then begin val := G61 end;

IF access = 62 then begin val := G62 end;

IF access = 63 then begin val := G63 end;

IF access = 64 then begin val := G64 end;

IF access = 65 then begin val := G65 end;

IF access = 66 then begin val := G66 end;

IF access = 67 then begin val := G67 end;

IF access = 68 then begin val := G68 end;

IF access = 69 then begin val := G69 end;

IF access = 70 then begin val := G70 end;

IF access = 71 then begin val := G71 end;

IF access = 72 then begin val := G72 end;

IF access = 73 then begin val := G73 end;

IF access = 74 then begin val := G74 end;

IF access = 75 then begin val := G75 end;

IF access = 76 then begin val := G76 end;

IF access = 77 then begin val := G77 end;

IF access = 78 then begin val := G78 end;

IF access = 79 then begin val := G79 end;

IF access = 80 then begin val := G80 end;

IF access = 81 then begin val := G81 end;

IF access = 82 then begin val := G82 end;

IF access = 83 then begin val := G83 end;

IF access = 84 then begin val := G84 end;

IF access = 85 then begin val := G85 end;

IF access = 86 then begin val := G86 end;

IF access = 87 then begin val := G87 end;

IF access = 88 then begin val := G88 end;

IF access = 89 then begin val := G89 end;

IF access = 90 then begin val := G90 end;

IF access = 91 then begin val := G91 end;

IF access = 92 then begin val := G92 end;

IF access = 93 then begin val := G93 end;

IF access = 94 then begin val := G94 end;

IF access = 95 then begin val := G95 end;

IF access = 96 then begin val := G96 end;

IF access = 97 then begin val := G97 end;

IF access = 98 then begin val := G98 end;

IF access = 99 then begin val := G99 end;

IF access = 100 then begin val := G100 end;

IF access = 101 then begin val := G101 end;

IF access = 102 then begin val := G102 end;

IF access = 103 then begin val := G103 end;

IF access = 104 then begin val := G104 end;

END;

PROCEDURE RINQ;

BEGIN

val := -1;

IF access = 0 then begin val := INQ0 end;

IF access = 1 then begin val := INQ1 end;

IF access = 2 then begin val := INQ2 end;

IF access = 3 then begin val := INQ3 end;

IF access = 4 then begin val := INQ4 end;

IF access = 5 then begin val := INQ5 end;

IF access = 6 then begin val := INQ6 end;

IF access = 7 then begin val := INQ7 end;

IF access = 8 then begin val := INQ8 end;

IF access = 9 then begin val := INQ9 end;

IF access = 10 then begin val := INQ10 end;

IF access = 11 then begin val := INQ11 end;

IF access = 12 then begin val := INQ12 end;

IF access = 13 then begin val := INQ13 end;

IF access = 14 then begin val := INQ14 end;

IF access = 15 then begin val := INQ15 end;

IF access = 16 then begin val := INQ16 end;

IF access = 17 then begin val := INQ17 end;

IF access = 18 then begin val := INQ18 end;

IF access = 19 then begin val := INQ19 end;

IF access = 20 then begin val := INQ20 end;

IF access = 21 then begin val := INQ21 end;

IF access = 22 then begin val := INQ22 end;

IF access = 23 then begin val := INQ23 end;

IF access = 24 then begin val := INQ24 end;

IF access = 25 then begin val := INQ25 end;

IF access = 26 then begin val := INQ26 end;

IF access = 27 then begin val := INQ27 end;

IF access = 28 then begin val := INQ28 end;

IF access = 29 then begin val := INQ29 end;

IF access = 30 then begin val := INQ30 end;

IF access = 31 then begin val := INQ31 end;

IF access = 32 then begin val := INQ32 end;

IF access = 33 then begin val := INQ33 end;

IF access = 34 then begin val := INQ34 end;

IF access = 35 then begin val := INQ35 end;

IF access = 36 then begin val := INQ36 end;

IF access = 37 then begin val := INQ37 end;

IF access = 38 then begin val := INQ38 end;

IF access = 39 then begin val := INQ39 end;

IF access = 40 then begin val := INQ40 end;

IF access = 41 then begin val := INQ41 end;

IF access = 42 then begin val := INQ42 end;

IF access = 43 then begin val := INQ43 end;

IF access = 44 then begin val := INQ44 end;

IF access = 45 then begin val := INQ45 end;

IF access = 46 then begin val := INQ46 end;

IF access = 47 then begin val := INQ47 end;

IF access = 48 then begin val := INQ48 end;

IF access = 49 then begin val := INQ49 end;

IF access = 50 then begin val := INQ50 end;

IF access = 51 then begin val := INQ51 end;

IF access = 52 then begin val := INQ52 end;

IF access = 53 then begin val := INQ53 end;

IF access = 54 then begin val := INQ54 end;

IF access = 55 then begin val := INQ55 end;

IF access = 56 then begin val := INQ56 end;

IF access = 57 then begin val := INQ57 end;

IF access = 58 then begin val := INQ58 end;

IF access = 59 then begin val := INQ59 end;

IF access = 60 then begin val := INQ60 end;

IF access = 61 then begin val := INQ61 end;

IF access = 62 then begin val := INQ62 end;

IF access = 63 then begin val := INQ63 end;

IF access = 64 then begin val := INQ64 end;

IF access = 65 then begin val := INQ65 end;

IF access = 66 then begin val := INQ66 end;

IF access = 67 then begin val := INQ67 end;

IF access = 68 then begin val := INQ68 end;

IF access = 69 then begin val := INQ69 end;

IF access = 70 then begin val := INQ70 end;

IF access = 71 then begin val := INQ71 end;

IF access = 72 then begin val := INQ72 end;

IF access = 73 then begin val := INQ73 end;

IF access = 74 then begin val := INQ74 end;

IF access = 75 then begin val := INQ75 end;

IF access = 76 then begin val := INQ76 end;

IF access = 77 then begin val := INQ77 end;

IF access = 78 then begin val := INQ78 end;

IF access = 79 then begin val := INQ79 end;

IF access = 80 then begin val := INQ80 end;

IF access = 81 then begin val := INQ81 end;

IF access = 82 then begin val := INQ82 end;

IF access = 83 then begin val := INQ83 end;

IF access = 84 then begin val := INQ84 end;

IF access = 85 then begin val := INQ85 end;

IF access = 86 then begin val := INQ86 end;

IF access = 87 then begin val := INQ87 end;

IF access = 88 then begin val := INQ88 end;

IF access = 89 then begin val := INQ89 end;

IF access = 90 then begin val := INQ90 end;

IF access = 91 then begin val := INQ91 end;

IF access = 92 then begin val := INQ92 end;

IF access = 93 then begin val := INQ93 end;

IF access = 94 then begin val := INQ94 end;

IF access = 95 then begin val := INQ95 end;

IF access = 96 then begin val := INQ96 end;

IF access = 97 then begin val := INQ97 end;

IF access = 98 then begin val := INQ98 end;

IF access = 99 then begin val := INQ99 end;

IF access = 100 then begin val := INQ100 end;

IF access = 101 then begin val := INQ101 end;

IF access = 102 then begin val := INQ102 end;

IF access = 103 then begin val := INQ103 end;

IF access = 104 then begin val := INQ104 end;

END;

PROCEDURE RD;

BEGIN

val := -1;

IF access = 0 then begin val := D0 end;

IF access = 1 then begin val := D1 end;

IF access = 2 then begin val := D2 end;

IF access = 3 then begin val := D3 end;

IF access = 4 then begin val := D4 end;

IF access = 5 then begin val := D5 end;

IF access = 6 then begin val := D6 end;

IF access = 7 then begin val := D7 end;

IF access = 8 then begin val := D8 end;

IF access = 9 then begin val := D9 end;

IF access = 10 then begin val := D10 end;

IF access = 11 then begin val := D11 end;

IF access = 12 then begin val := D12 end;

IF access = 13 then begin val := D13 end;

IF access = 14 then begin val := D14 end;

IF access = 15 then begin val := D15 end;

IF access = 16 then begin val := D16 end;

IF access = 17 then begin val := D17 end;

IF access = 18 then begin val := D18 end;

IF access = 19 then begin val := D19 end;

IF access = 20 then begin val := D20 end;

IF access = 21 then begin val := D21 end;

IF access = 22 then begin val := D22 end;

IF access = 23 then begin val := D23 end;

IF access = 24 then begin val := D24 end;

IF access = 25 then begin val := D25 end;

IF access = 26 then begin val := D26 end;

IF access = 27 then begin val := D27 end;

IF access = 28 then begin val := D28 end;

IF access = 29 then begin val := D29 end;

IF access = 30 then begin val := D30 end;

IF access = 31 then begin val := D31 end;

IF access = 32 then begin val := D32 end;

IF access = 33 then begin val := D33 end;

IF access = 34 then begin val := D34 end;

IF access = 35 then begin val := D35 end;

IF access = 36 then begin val := D36 end;

IF access = 37 then begin val := D37 end;

IF access = 38 then begin val := D38 end;

IF access = 39 then begin val := D39 end;

IF access = 40 then begin val := D40 end;

IF access = 41 then begin val := D41 end;

IF access = 42 then begin val := D42 end;

IF access = 43 then begin val := D43 end;

IF access = 44 then begin val := D44 end;

IF access = 45 then begin val := D45 end;

IF access = 46 then begin val := D46 end;

IF access = 47 then begin val := D47 end;

IF access = 48 then begin val := D48 end;

IF access = 49 then begin val := D49 end;

IF access = 50 then begin val := D50 end;

IF access = 51 then begin val := D51 end;

IF access = 52 then begin val := D52 end;

IF access = 53 then begin val := D53 end;

IF access = 54 then begin val := D54 end;

IF access = 55 then begin val := D55 end;

IF access = 56 then begin val := D56 end;

IF access = 57 then begin val := D57 end;

IF access = 58 then begin val := D58 end;

IF access = 59 then begin val := D59 end;

IF access = 60 then begin val := D60 end;

IF access = 61 then begin val := D61 end;

IF access = 62 then begin val := D62 end;

IF access = 63 then begin val := D63 end;

IF access = 64 then begin val := D64 end;

IF access = 65 then begin val := D65 end;

IF access = 66 then begin val := D66 end;

IF access = 67 then begin val := D67 end;

IF access = 68 then begin val := D68 end;

IF access = 69 then begin val := D69 end;

IF access = 70 then begin val := D70 end;

IF access = 71 then begin val := D71 end;

IF access = 72 then begin val := D72 end;

IF access = 73 then begin val := D73 end;

IF access = 74 then begin val := D74 end;

IF access = 75 then begin val := D75 end;

IF access = 76 then begin val := D76 end;

IF access = 77 then begin val := D77 end;

IF access = 78 then begin val := D78 end;

IF access = 79 then begin val := D79 end;

IF access = 80 then begin val := D80 end;

IF access = 81 then begin val := D81 end;

IF access = 82 then begin val := D82 end;

IF access = 83 then begin val := D83 end;

IF access = 84 then begin val := D84 end;

IF access = 85 then begin val := D85 end;

IF access = 86 then begin val := D86 end;

IF access = 87 then begin val := D87 end;

IF access = 88 then begin val := D88 end;

IF access = 89 then begin val := D89 end;

IF access = 90 then begin val := D90 end;

IF access = 91 then begin val := D91 end;

IF access = 92 then begin val := D92 end;

IF access = 93 then begin val := D93 end;

IF access = 94 then begin val := D94 end;

IF access = 95 then begin val := D95 end;

IF access = 96 then begin val := D96 end;

IF access = 97 then begin val := D97 end;

IF access = 98 then begin val := D98 end;

IF access = 99 then begin val := D99 end;

IF access = 100 then begin val := D100 end;

IF access = 101 then begin val := D101 end;

IF access = 102 then begin val := D102 end;

IF access = 103 then begin val := D103 end;

IF access = 104 then begin val := D104 end;

END;

PROCEDURE RV;

BEGIN

val := -1;

IF access = 0 then begin val := V0 end;

IF access = 1 then begin val := V1 end;

IF access = 2 then begin val := V2 end;

IF access = 3 then begin val := V3 end;

IF access = 4 then begin val := V4 end;

IF access = 5 then begin val := V5 end;

IF access = 6 then begin val := V6 end;

IF access = 7 then begin val := V7 end;

IF access = 8 then begin val := V8 end;

IF access = 9 then begin val := V9 end;

IF access = 10 then begin val := V10 end;

IF access = 11 then begin val := V11 end;

IF access = 12 then begin val := V12 end;

IF access = 13 then begin val := V13 end;

IF access = 14 then begin val := V14 end;

IF access = 15 then begin val := V15 end;

IF access = 16 then begin val := V16 end;

IF access = 17 then begin val := V17 end;

IF access = 18 then begin val := V18 end;

IF access = 19 then begin val := V19 end;

IF access = 20 then begin val := V20 end;

IF access = 21 then begin val := V21 end;

IF access = 22 then begin val := V22 end;

IF access = 23 then begin val := V23 end;

IF access = 24 then begin val := V24 end;

IF access = 25 then begin val := V25 end;

IF access = 26 then begin val := V26 end;

IF access = 27 then begin val := V27 end;

IF access = 28 then begin val := V28 end;

IF access = 29 then begin val := V29 end;

IF access = 30 then begin val := V30 end;

IF access = 31 then begin val := V31 end;

IF access = 32 then begin val := V32 end;

IF access = 33 then begin val := V33 end;

IF access = 34 then begin val := V34 end;

IF access = 35 then begin val := V35 end;

IF access = 36 then begin val := V36 end;

IF access = 37 then begin val := V37 end;

IF access = 38 then begin val := V38 end;

IF access = 39 then begin val := V39 end;

IF access = 40 then begin val := V40 end;

IF access = 41 then begin val := V41 end;

IF access = 42 then begin val := V42 end;

IF access = 43 then begin val := V43 end;

IF access = 44 then begin val := V44 end;

IF access = 45 then begin val := V45 end;

IF access = 46 then begin val := V46 end;

IF access = 47 then begin val := V47 end;

IF access = 48 then begin val := V48 end;

IF access = 49 then begin val := V49 end;

IF access = 50 then begin val := V50 end;

IF access = 51 then begin val := V51 end;

IF access = 52 then begin val := V52 end;

IF access = 53 then begin val := V53 end;

IF access = 54 then begin val := V54 end;

IF access = 55 then begin val := V55 end;

IF access = 56 then begin val := V56 end;

IF access = 57 then begin val := V57 end;

IF access = 58 then begin val := V58 end;

IF access = 59 then begin val := V59 end;

IF access = 60 then begin val := V60 end;

IF access = 61 then begin val := V61 end;

IF access = 62 then begin val := V62 end;

IF access = 63 then begin val := V63 end;

IF access = 64 then begin val := V64 end;

IF access = 65 then begin val := V65 end;

IF access = 66 then begin val := V66 end;

IF access = 67 then begin val := V67 end;

IF access = 68 then begin val := V68 end;

IF access = 69 then begin val := V69 end;

IF access = 70 then begin val := V70 end;

IF access = 71 then begin val := V71 end;

IF access = 72 then begin val := V72 end;

IF access = 73 then begin val := V73 end;

IF access = 74 then begin val := V74 end;

IF access = 75 then begin val := V75 end;

IF access = 76 then begin val := V76 end;

IF access = 77 then begin val := V77 end;

IF access = 78 then begin val := V78 end;

IF access = 79 then begin val := V79 end;

IF access = 80 then begin val := V80 end;

IF access = 81 then begin val := V81 end;

IF access = 82 then begin val := V82 end;

IF access = 83 then begin val := V83 end;

IF access = 84 then begin val := V84 end;

IF access = 85 then begin val := V85 end;

IF access = 86 then begin val := V86 end;

IF access = 87 then begin val := V87 end;

IF access = 88 then begin val := V88 end;

IF access = 89 then begin val := V89 end;

IF access = 90 then begin val := V90 end;

IF access = 91 then begin val := V91 end;

IF access = 92 then begin val := V92 end;

IF access = 93 then begin val := V93 end;

IF access = 94 then begin val := V94 end;

IF access = 95 then begin val := V95 end;

IF access = 96 then begin val := V96 end;

IF access = 97 then begin val := V97 end;

IF access = 98 then begin val := V98 end;

IF access = 99 then begin val := V99 end;

IF access = 100 then begin val := V100 end;

IF access = 101 then begin val := V101 end;

IF access = 102 then begin val := V102 end;

IF access = 103 then begin val := V103 end;

IF access = 104 then begin val := V104 end;

IF access = 105 then begin val := V105 end;

IF access = 106 then begin val := V106 end;

IF access = 107 then begin val := V107 end;

IF access = 108 then begin val := V108 end;

IF access = 109 then begin val := V109 end;

IF access = 110 then begin val := V110 end;

IF access = 111 then begin val := V111 end;

IF access = 112 then begin val := V112 end;

IF access = 113 then begin val := V113 end;

IF access = 114 then begin val := V114 end;

IF access = 115 then begin val := V115 end;

IF access = 116 then begin val := V116 end;

IF access = 117 then begin val := V117 end;

IF access = 118 then begin val := V118 end;

IF access = 119 then begin val := V119 end;

IF access = 120 then begin val := V120 end;

IF access = 121 then begin val := V121 end;

IF access = 122 then begin val := V122 end;

IF access = 123 then begin val := V123 end;

IF access = 124 then begin val := V124 end;

IF access = 125 then begin val := V125 end;

IF access = 126 then begin val := V126 end;

IF access = 127 then begin val := V127 end;

IF access = 128 then begin val := V128 end;

IF access = 129 then begin val := V129 end;

IF access = 130 then begin val := V130 end;

IF access = 131 then begin val := V131 end;

IF access = 132 then begin val := V132 end;

IF access = 133 then begin val := V133 end;

IF access = 134 then begin val := V134 end;

IF access = 135 then begin val := V135 end;

IF access = 136 then begin val := V136 end;

IF access = 137 then begin val := V137 end;

IF access = 138 then begin val := V138 end;

IF access = 139 then begin val := V139 end;

IF access = 140 then begin val := V140 end;

IF access = 141 then begin val := V141 end;

IF access = 142 then begin val := V142 end;

IF access = 143 then begin val := V143 end;

IF access = 144 then begin val := V144 end;

IF access = 145 then begin val := V145 end;

IF access = 146 then begin val := V146 end;

IF access = 147 then begin val := V147 end;

IF access = 148 then begin val := V148 end;

IF access = 149 then begin val := V149 end;

IF access = 150 then begin val := V150 end;

IF access = 151 then begin val := V151 end;

IF access = 152 then begin val := V152 end;

IF access = 153 then begin val := V153 end;

IF access = 154 then begin val := V154 end;

IF access = 155 then begin val := V155 end;

IF access = 156 then begin val := V156 end;

IF access = 157 then begin val := V157 end;

IF access = 158 then begin val := V158 end;

IF access = 159 then begin val := V159 end;

IF access = 160 then begin val := V160 end;

IF access = 161 then begin val := V161 end;

IF access = 162 then begin val := V162 end;

IF access = 163 then begin val := V163 end;

IF access = 164 then begin val := V164 end;

IF access = 165 then begin val := V165 end;

IF access = 166 then begin val := V166 end;

IF access = 167 then begin val := V167 end;

IF access = 168 then begin val := V168 end;

IF access = 169 then begin val := V169 end;

IF access = 170 then begin val := V170 end;

IF access = 171 then begin val := V171 end;

IF access = 172 then begin val := V172 end;

IF access = 173 then begin val := V173 end;

IF access = 174 then begin val := V174 end;

IF access = 175 then begin val := V175 end;

IF access = 176 then begin val := V176 end;

IF access = 177 then begin val := V177 end;

IF access = 178 then begin val := V178 end;

IF access = 179 then begin val := V179 end;

IF access = 180 then begin val := V180 end;

IF access = 181 then begin val := V181 end;

IF access = 182 then begin val := V182 end;

IF access = 183 then begin val := V183 end;

IF access = 184 then begin val := V184 end;

IF access = 185 then begin val := V185 end;

IF access = 186 then begin val := V186 end;

IF access = 187 then begin val := V187 end;

IF access = 188 then begin val := V188 end;

IF access = 189 then begin val := V189 end;

IF access = 190 then begin val := V190 end;

IF access = 191 then begin val := V191 end;

IF access = 192 then begin val := V192 end;

IF access = 193 then begin val := V193 end;

IF access = 194 then begin val := V194 end;

IF access = 195 then begin val := V195 end;

IF access = 196 then begin val := V196 end;

IF access = 197 then begin val := V197 end;

IF access = 198 then begin val := V198 end;

IF access = 199 then begin val := V199 end;

IF access = 200 then begin val := V200 end;

IF access = 201 then begin val := V201 end;

IF access = 202 then begin val := V202 end;

IF access = 203 then begin val := V203 end;

IF access = 204 then begin val := V204 end;

IF access = 205 then begin val := V205 end;

IF access = 206 then begin val := V206 end;

IF access = 207 then begin val := V207 end;

IF access = 208 then begin val := V208 end;

IF access = 209 then begin val := V209 end;

IF access = 210 then begin val := V210 end;

IF access = 211 then begin val := V211 end;

IF access = 212 then begin val := V212 end;

IF access = 213 then begin val := V213 end;

IF access = 214 then begin val := V214 end;

IF access = 215 then begin val := V215 end;

IF access = 216 then begin val := V216 end;

IF access = 217 then begin val := V217 end;

IF access = 218 then begin val := V218 end;

IF access = 219 then begin val := V219 end;

IF access = 220 then begin val := V220 end;

IF access = 221 then begin val := V221 end;

IF access = 222 then begin val := V222 end;

IF access = 223 then begin val := V223 end;

IF access = 224 then begin val := V224 end;

IF access = 225 then begin val := V225 end;

IF access = 226 then begin val := V226 end;

IF access = 227 then begin val := V227 end;

IF access = 228 then begin val := V228 end;

IF access = 229 then begin val := V229 end;

IF access = 230 then begin val := V230 end;

IF access = 231 then begin val := V231 end;

IF access = 232 then begin val := V232 end;

IF access = 233 then begin val := V233 end;

IF access = 234 then begin val := V234 end;

IF access = 235 then begin val := V235 end;

IF access = 236 then begin val := V236 end;

IF access = 237 then begin val := V237 end;

IF access = 238 then begin val := V238 end;

IF access = 239 then begin val := V239 end;

IF access = 240 then begin val := V240 end;

IF access = 241 then begin val := V241 end;

IF access = 242 then begin val := V242 end;

IF access = 243 then begin val := V243 end;

IF access = 244 then begin val := V244 end;

IF access = 245 then begin val := V245 end;

IF access = 246 then begin val := V246 end;

IF access = 247 then begin val := V247 end;

IF access = 248 then begin val := V248 end;

IF access = 249 then begin val := V249 end;

IF access = 250 then begin val := V250 end;

IF access = 251 then begin val := V251 end;

IF access = 252 then begin val := V252 end;

IF access = 253 then begin val := V253 end;

IF access = 254 then begin val := V254 end;

IF access = 255 then begin val := V255 end;

IF access = 256 then begin val := V256 end;

IF access = 257 then begin val := V257 end;

IF access = 258 then begin val := V258 end;

IF access = 259 then begin val := V259 end;

IF access = 260 then begin val := V260 end;

IF access = 261 then begin val := V261 end;

IF access = 262 then begin val := V262 end;

IF access = 263 then begin val := V263 end;

IF access = 264 then begin val := V264 end;

IF access = 265 then begin val := V265 end;

IF access = 266 then begin val := V266 end;

IF access = 267 then begin val := V267 end;

IF access = 268 then begin val := V268 end;

IF access = 269 then begin val := V269 end;

IF access = 270 then begin val := V270 end;

IF access = 271 then begin val := V271 end;

IF access = 272 then begin val := V272 end;

IF access = 273 then begin val := V273 end;

IF access = 274 then begin val := V274 end;

IF access = 275 then begin val := V275 end;

IF access = 276 then begin val := V276 end;

IF access = 277 then begin val := V277 end;

IF access = 278 then begin val := V278 end;

IF access = 279 then begin val := V279 end;

IF access = 280 then begin val := V280 end;

IF access = 281 then begin val := V281 end;

IF access = 282 then begin val := V282 end;

IF access = 283 then begin val := V283 end;

IF access = 284 then begin val := V284 end;

IF access = 285 then begin val := V285 end;

IF access = 286 then begin val := V286 end;

IF access = 287 then begin val := V287 end;

IF access = 288 then begin val := V288 end;

IF access = 289 then begin val := V289 end;

IF access = 290 then begin val := V290 end;

IF access = 291 then begin val := V291 end;

IF access = 292 then begin val := V292 end;

IF access = 293 then begin val := V293 end;

IF access = 294 then begin val := V294 end;

IF access = 295 then begin val := V295 end;

IF access = 296 then begin val := V296 end;

IF access = 297 then begin val := V297 end;

IF access = 298 then begin val := V298 end;

IF access = 299 then begin val := V299 end;

IF access = 300 then begin val := V300 end;

IF access = 301 then begin val := V301 end;

IF access = 302 then begin val := V302 end;

IF access = 303 then begin val := V303 end;

IF access = 304 then begin val := V304 end;

IF access = 305 then begin val := V305 end;

IF access = 306 then begin val := V306 end;

IF access = 307 then begin val := V307 end;

IF access = 308 then begin val := V308 end;

IF access = 309 then begin val := V309 end;

IF access = 310 then begin val := V310 end;

IF access = 311 then begin val := V311 end;

IF access = 312 then begin val := V312 end;

IF access = 313 then begin val := V313 end;

IF access = 314 then begin val := V314 end;

IF access = 315 then begin val := V315 end;

IF access = 316 then begin val := V316 end;

IF access = 317 then begin val := V317 end;

IF access = 318 then begin val := V318 end;

IF access = 319 then begin val := V319 end;

IF access = 320 then begin val := V320 end;

IF access = 321 then begin val := V321 end;

IF access = 322 then begin val := V322 end;

IF access = 323 then begin val := V323 end;

IF access = 324 then begin val := V324 end;

IF access = 325 then begin val := V325 end;

IF access = 326 then begin val := V326 end;

IF access = 327 then begin val := V327 end;

IF access = 328 then begin val := V328 end;

IF access = 329 then begin val := V329 end;

IF access = 330 then begin val := V330 end;

IF access = 331 then begin val := V331 end;

IF access = 332 then begin val := V332 end;

IF access = 333 then begin val := V333 end;

IF access = 334 then begin val := V334 end;

IF access = 335 then begin val := V335 end;

IF access = 336 then begin val := V336 end;

IF access = 337 then begin val := V337 end;

IF access = 338 then begin val := V338 end;

IF access = 339 then begin val := V339 end;

IF access = 340 then begin val := V340 end;

IF access = 341 then begin val := V341 end;

IF access = 342 then begin val := V342 end;

IF access = 343 then begin val := V343 end;

IF access = 344 then begin val := V344 end;

IF access = 345 then begin val := V345 end;

IF access = 346 then begin val := V346 end;

IF access = 347 then begin val := V347 end;

IF access = 348 then begin val := V348 end;

IF access = 349 then begin val := V349 end;

IF access = 350 then begin val := V350 end;

IF access = 351 then begin val := V351 end;

IF access = 352 then begin val := V352 end;

IF access = 353 then begin val := V353 end;

IF access = 354 then begin val := V354 end;

IF access = 355 then begin val := V355 end;

IF access = 356 then begin val := V356 end;

IF access = 357 then begin val := V357 end;

IF access = 358 then begin val := V358 end;

IF access = 359 then begin val := V359 end;

IF access = 360 then begin val := V360 end;

IF access = 361 then begin val := V361 end;

IF access = 362 then begin val := V362 end;

IF access = 363 then begin val := V363 end;

IF access = 364 then begin val := V364 end;

IF access = 365 then begin val := V365 end;

IF access = 366 then begin val := V366 end;

IF access = 367 then begin val := V367 end;

IF access = 368 then begin val := V368 end;

IF access = 369 then begin val := V369 end;

IF access = 370 then begin val := V370 end;

IF access = 371 then begin val := V371 end;

IF access = 372 then begin val := V372 end;

IF access = 373 then begin val := V373 end;

IF access = 374 then begin val := V374 end;

IF access = 375 then begin val := V375 end;

IF access = 376 then begin val := V376 end;

IF access = 377 then begin val := V377 end;

IF access = 378 then begin val := V378 end;

IF access = 379 then begin val := V379 end;

IF access = 380 then begin val := V380 end;

IF access = 381 then begin val := V381 end;

IF access = 382 then begin val := V382 end;

IF access = 383 then begin val := V383 end;

IF access = 384 then begin val := V384 end;

IF access = 385 then begin val := V385 end;

IF access = 386 then begin val := V386 end;

IF access = 387 then begin val := V387 end;

IF access = 388 then begin val := V388 end;

IF access = 389 then begin val := V389 end;

IF access = 390 then begin val := V390 end;

IF access = 391 then begin val := V391 end;

IF access = 392 then begin val := V392 end;

IF access = 393 then begin val := V393 end;

IF access = 394 then begin val := V394 end;

IF access = 395 then begin val := V395 end;

IF access = 396 then begin val := V396 end;

IF access = 397 then begin val := V397 end;

IF access = 398 then begin val := V398 end;

IF access = 399 then begin val := V399 end;

IF access = 400 then begin val := V400 end;

IF access = 401 then begin val := V401 end;

IF access = 402 then begin val := V402 end;

IF access = 403 then begin val := V403 end;

IF access = 404 then begin val := V404 end;

IF access = 405 then begin val := V405 end;

IF access = 406 then begin val := V406 end;

IF access = 407 then begin val := V407 end;

IF access = 408 then begin val := V408 end;

IF access = 409 then begin val := V409 end;

IF access = 410 then begin val := V410 end;

IF access = 411 then begin val := V411 end;

IF access = 412 then begin val := V412 end;

IF access = 413 then begin val := V413 end;

IF access = 414 then begin val := V414 end;

IF access = 415 then begin val := V415 end;

IF access = 416 then begin val := V416 end;

IF access = 417 then begin val := V417 end;

IF access = 418 then begin val := V418 end;

IF access = 419 then begin val := V419 end;

IF access = 420 then begin val := V420 end;

IF access = 421 then begin val := V421 end;

IF access = 422 then begin val := V422 end;

IF access = 423 then begin val := V423 end;

IF access = 424 then begin val := V424 end;

IF access = 425 then begin val := V425 end;

IF access = 426 then begin val := V426 end;

IF access = 427 then begin val := V427 end;

IF access = 428 then begin val := V428 end;

IF access = 429 then begin val := V429 end;

IF access = 430 then begin val := V430 end;

IF access = 431 then begin val := V431 end;

IF access = 432 then begin val := V432 end;

IF access = 433 then begin val := V433 end;

IF access = 434 then begin val := V434 end;

IF access = 435 then begin val := V435 end;

IF access = 436 then begin val := V436 end;

IF access = 437 then begin val := V437 end;

IF access = 438 then begin val := V438 end;

IF access = 439 then begin val := V439 end;

IF access = 440 then begin val := V440 end;

IF access = 441 then begin val := V441 end;

IF access = 442 then begin val := V442 end;

IF access = 443 then begin val := V443 end;

IF access = 444 then begin val := V444 end;

IF access = 445 then begin val := V445 end;

IF access = 446 then begin val := V446 end;

IF access = 447 then begin val := V447 end;

IF access = 448 then begin val := V448 end;

IF access = 449 then begin val := V449 end;

IF access = 450 then begin val := V450 end;

IF access = 451 then begin val := V451 end;

IF access = 452 then begin val := V452 end;

IF access = 453 then begin val := V453 end;

IF access = 454 then begin val := V454 end;

IF access = 455 then begin val := V455 end;

IF access = 456 then begin val := V456 end;

IF access = 457 then begin val := V457 end;

IF access = 458 then begin val := V458 end;

IF access = 459 then begin val := V459 end;

IF access = 460 then begin val := V460 end;

IF access = 461 then begin val := V461 end;

IF access = 462 then begin val := V462 end;

IF access = 463 then begin val := V463 end;

IF access = 464 then begin val := V464 end;

IF access = 465 then begin val := V465 end;

IF access = 466 then begin val := V466 end;

IF access = 467 then begin val := V467 end;

IF access = 468 then begin val := V468 end;

IF access = 469 then begin val := V469 end;

IF access = 470 then begin val := V470 end;

IF access = 471 then begin val := V471 end;

IF access = 472 then begin val := V472 end;

IF access = 473 then begin val := V473 end;

IF access = 474 then begin val := V474 end;

IF access = 475 then begin val := V475 end;

IF access = 476 then begin val := V476 end;

IF access = 477 then begin val := V477 end;

IF access = 478 then begin val := V478 end;

IF access = 479 then begin val := V479 end;

IF access = 480 then begin val := V480 end;

IF access = 481 then begin val := V481 end;

IF access = 482 then begin val := V482 end;

IF access = 483 then begin val := V483 end;

IF access = 484 then begin val := V484 end;

IF access = 485 then begin val := V485 end;

IF access = 486 then begin val := V486 end;

IF access = 487 then begin val := V487 end;

IF access = 488 then begin val := V488 end;

IF access = 489 then begin val := V489 end;

IF access = 490 then begin val := V490 end;

IF access = 491 then begin val := V491 end;

IF access = 492 then begin val := V492 end;

IF access = 493 then begin val := V493 end;

IF access = 494 then begin val := V494 end;

IF access = 495 then begin val := V495 end;

IF access = 496 then begin val := V496 end;

IF access = 497 then begin val := V497 end;

IF access = 498 then begin val := V498 end;

IF access = 499 then begin val := V499 end;

IF access = 500 then begin val := V500 end;

IF access = 501 then begin val := V501 end;

IF access = 502 then begin val := V502 end;

IF access = 503 then begin val := V503 end;

IF access = 504 then begin val := V504 end;

END;

PROCEDURE RW;

BEGIN

val := -1;

IF access = 0 then begin val := W0 end;

IF access = 1 then begin val := W1 end;

IF access = 2 then begin val := W2 end;

IF access = 3 then begin val := W3 end;

IF access = 4 then begin val := W4 end;

IF access = 5 then begin val := W5 end;

IF access = 6 then begin val := W6 end;

IF access = 7 then begin val := W7 end;

IF access = 8 then begin val := W8 end;

IF access = 9 then begin val := W9 end;

IF access = 10 then begin val := W10 end;

IF access = 11 then begin val := W11 end;

IF access = 12 then begin val := W12 end;

IF access = 13 then begin val := W13 end;

IF access = 14 then begin val := W14 end;

IF access = 15 then begin val := W15 end;

IF access = 16 then begin val := W16 end;

IF access = 17 then begin val := W17 end;

IF access = 18 then begin val := W18 end;

IF access = 19 then begin val := W19 end;

IF access = 20 then begin val := W20 end;

IF access = 21 then begin val := W21 end;

IF access = 22 then begin val := W22 end;

IF access = 23 then begin val := W23 end;

IF access = 24 then begin val := W24 end;

IF access = 25 then begin val := W25 end;

IF access = 26 then begin val := W26 end;

IF access = 27 then begin val := W27 end;

IF access = 28 then begin val := W28 end;

IF access = 29 then begin val := W29 end;

IF access = 30 then begin val := W30 end;

IF access = 31 then begin val := W31 end;

IF access = 32 then begin val := W32 end;

IF access = 33 then begin val := W33 end;

IF access = 34 then begin val := W34 end;

IF access = 35 then begin val := W35 end;

IF access = 36 then begin val := W36 end;

IF access = 37 then begin val := W37 end;

IF access = 38 then begin val := W38 end;

IF access = 39 then begin val := W39 end;

IF access = 40 then begin val := W40 end;

IF access = 41 then begin val := W41 end;

IF access = 42 then begin val := W42 end;

IF access = 43 then begin val := W43 end;

IF access = 44 then begin val := W44 end;

IF access = 45 then begin val := W45 end;

IF access = 46 then begin val := W46 end;

IF access = 47 then begin val := W47 end;

IF access = 48 then begin val := W48 end;

IF access = 49 then begin val := W49 end;

IF access = 50 then begin val := W50 end;

IF access = 51 then begin val := W51 end;

IF access = 52 then begin val := W52 end;

IF access = 53 then begin val := W53 end;

IF access = 54 then begin val := W54 end;

IF access = 55 then begin val := W55 end;

IF access = 56 then begin val := W56 end;

IF access = 57 then begin val := W57 end;

IF access = 58 then begin val := W58 end;

IF access = 59 then begin val := W59 end;

IF access = 60 then begin val := W60 end;

IF access = 61 then begin val := W61 end;

IF access = 62 then begin val := W62 end;

IF access = 63 then begin val := W63 end;

IF access = 64 then begin val := W64 end;

IF access = 65 then begin val := W65 end;

IF access = 66 then begin val := W66 end;

IF access = 67 then begin val := W67 end;

IF access = 68 then begin val := W68 end;

IF access = 69 then begin val := W69 end;

IF access = 70 then begin val := W70 end;

IF access = 71 then begin val := W71 end;

IF access = 72 then begin val := W72 end;

IF access = 73 then begin val := W73 end;

IF access = 74 then begin val := W74 end;

IF access = 75 then begin val := W75 end;

IF access = 76 then begin val := W76 end;

IF access = 77 then begin val := W77 end;

IF access = 78 then begin val := W78 end;

IF access = 79 then begin val := W79 end;

IF access = 80 then begin val := W80 end;

IF access = 81 then begin val := W81 end;

IF access = 82 then begin val := W82 end;

IF access = 83 then begin val := W83 end;

IF access = 84 then begin val := W84 end;

IF access = 85 then begin val := W85 end;

IF access = 86 then begin val := W86 end;

IF access = 87 then begin val := W87 end;

IF access = 88 then begin val := W88 end;

IF access = 89 then begin val := W89 end;

IF access = 90 then begin val := W90 end;

IF access = 91 then begin val := W91 end;

IF access = 92 then begin val := W92 end;

IF access = 93 then begin val := W93 end;

IF access = 94 then begin val := W94 end;

IF access = 95 then begin val := W95 end;

IF access = 96 then begin val := W96 end;

IF access = 97 then begin val := W97 end;

IF access = 98 then begin val := W98 end;

IF access = 99 then begin val := W99 end;

IF access = 100 then begin val := W100 end;

IF access = 101 then begin val := W101 end;

IF access = 102 then begin val := W102 end;

IF access = 103 then begin val := W103 end;

IF access = 104 then begin val := W104 end;

IF access = 105 then begin val := W105 end;

IF access = 106 then begin val := W106 end;

IF access = 107 then begin val := W107 end;

IF access = 108 then begin val := W108 end;

IF access = 109 then begin val := W109 end;

IF access = 110 then begin val := W110 end;

IF access = 111 then begin val := W111 end;

IF access = 112 then begin val := W112 end;

IF access = 113 then begin val := W113 end;

IF access = 114 then begin val := W114 end;

IF access = 115 then begin val := W115 end;

IF access = 116 then begin val := W116 end;

IF access = 117 then begin val := W117 end;

IF access = 118 then begin val := W118 end;

IF access = 119 then begin val := W119 end;

IF access = 120 then begin val := W120 end;

IF access = 121 then begin val := W121 end;

IF access = 122 then begin val := W122 end;

IF access = 123 then begin val := W123 end;

IF access = 124 then begin val := W124 end;

IF access = 125 then begin val := W125 end;

IF access = 126 then begin val := W126 end;

IF access = 127 then begin val := W127 end;

IF access = 128 then begin val := W128 end;

IF access = 129 then begin val := W129 end;

IF access = 130 then begin val := W130 end;

IF access = 131 then begin val := W131 end;

IF access = 132 then begin val := W132 end;

IF access = 133 then begin val := W133 end;

IF access = 134 then begin val := W134 end;

IF access = 135 then begin val := W135 end;

IF access = 136 then begin val := W136 end;

IF access = 137 then begin val := W137 end;

IF access = 138 then begin val := W138 end;

IF access = 139 then begin val := W139 end;

IF access = 140 then begin val := W140 end;

IF access = 141 then begin val := W141 end;

IF access = 142 then begin val := W142 end;

IF access = 143 then begin val := W143 end;

IF access = 144 then begin val := W144 end;

IF access = 145 then begin val := W145 end;

IF access = 146 then begin val := W146 end;

IF access = 147 then begin val := W147 end;

IF access = 148 then begin val := W148 end;

IF access = 149 then begin val := W149 end;

IF access = 150 then begin val := W150 end;

IF access = 151 then begin val := W151 end;