StdAliases.txt 72 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347
  1. MODULE EncStdAliases;
  2. (* Generated automatically *)
  3. CONST
  4. modPrefix = "EncStdMap_";
  5. PROCEDURE GetModName* (s: ARRAY OF CHAR; OUT r: ARRAY OF CHAR; OUT ok: BOOLEAN);
  6. VAR x: INTEGER;
  7. BEGIN
  8. x := 0;
  9. WHILE (x < LEN(s)) & (s[x] # 0X) DO
  10. IF (s[x] >= 'a') & (s[x] <= 'z') THEN
  11. s[x] := CHR(ORD(s[x]) - ORD('a') + ORD('A'))
  12. END;
  13. INC(x)
  14. END;
  15. x := -1;
  16. CASE s[0] OF
  17. | '4':
  18. IF s[1] = '3' THEN
  19. IF s[2] = '7' THEN
  20. IF s[3] = 0X THEN x := 115 END
  21. END
  22. END
  23. | '6':
  24. IF s[1] = '4' THEN
  25. IF s[2] = '6' THEN
  26. IF s[3] = 0X THEN x := 0 END
  27. END
  28. END
  29. | '8':
  30. CASE s[1] OF
  31. | '5':
  32. CASE s[2] OF
  33. | '0':
  34. IF s[3] = 0X THEN x := 43 END
  35. | '2':
  36. IF s[3] = 0X THEN x := 118 END
  37. | '5':
  38. IF s[3] = 0X THEN x := 120 END
  39. | '7':
  40. IF s[3] = 0X THEN x := 121 END
  41. ELSE END
  42. | '6':
  43. CASE s[2] OF
  44. | '1':
  45. IF s[3] = 0X THEN x := 124 END
  46. | '0':
  47. IF s[3] = 0X THEN x := 123 END
  48. | '3':
  49. IF s[3] = 0X THEN x := 125 END
  50. | '2':
  51. IF s[3] = 0X THEN x := 44 END
  52. | '5':
  53. IF s[3] = 0X THEN x := 127 END
  54. | '6':
  55. IF s[3] = 0X THEN x := 45 END
  56. | '9':
  57. IF s[3] = 0X THEN x := 128 END
  58. ELSE END
  59. ELSE END
  60. | 'A':
  61. CASE s[1] OF
  62. | 'S':
  63. CASE s[2] OF
  64. | 'C':
  65. IF s[3] = 'I' THEN
  66. IF s[4] = 'I' THEN
  67. IF s[5] = 0X THEN x := 0 END
  68. END
  69. END
  70. | 'M':
  71. IF s[3] = 'O' THEN
  72. IF s[4] = '-' THEN
  73. IF s[5] = '7' THEN
  74. IF s[6] = '0' THEN
  75. IF s[7] = '8' THEN
  76. IF s[8] = 0X THEN x := 22 END
  77. END
  78. END
  79. END
  80. END
  81. END
  82. ELSE END
  83. | 'R':
  84. CASE s[2] OF
  85. | 'A':
  86. IF s[3] = 'B' THEN
  87. IF s[4] = 'I' THEN
  88. IF s[5] = 'C' THEN
  89. IF s[6] = 0X THEN x := 22 END
  90. END
  91. END
  92. END
  93. | 'M':
  94. IF s[3] = 'S' THEN
  95. IF s[4] = 'C' THEN
  96. IF s[5] = 'I' THEN
  97. IF s[6] = 'I' THEN
  98. IF s[7] = '-' THEN
  99. IF s[8] = '8' THEN
  100. IF s[9] = 0X THEN x := 61 END
  101. END
  102. END
  103. END
  104. END
  105. END
  106. END
  107. ELSE END
  108. | 'T':
  109. IF s[2] = 'A' THEN
  110. IF s[3] = 'R' THEN
  111. IF s[4] = 'I' THEN
  112. CASE s[5] OF
  113. | 0X: x := 135
  114. | 'S':
  115. IF s[6] = 'T' THEN
  116. IF s[7] = 0X THEN x := 135 END
  117. END
  118. ELSE END
  119. END
  120. END
  121. END
  122. | 'N':
  123. IF s[2] = 'S' THEN
  124. IF s[3] = 'I' THEN
  125. IF s[4] = '_' THEN
  126. IF s[5] = 'X' THEN
  127. IF s[6] = '3' THEN
  128. IF s[7] = '.' THEN
  129. IF s[8] = '4' THEN
  130. IF s[9] = '-' THEN
  131. IF s[10] = '1' THEN
  132. IF s[11] = '9' THEN
  133. CASE s[12] OF
  134. | '8':
  135. IF s[13] = '6' THEN
  136. IF s[14] = 0X THEN x := 0 END
  137. END
  138. | '6':
  139. IF s[13] = '8' THEN
  140. IF s[14] = 0X THEN x := 0 END
  141. END
  142. ELSE END
  143. END
  144. END
  145. END
  146. END
  147. END
  148. END
  149. END
  150. END
  151. END
  152. END
  153. ELSE END
  154. | 'C':
  155. CASE s[1] OF
  156. | 'P':
  157. CASE s[2] OF
  158. | '-':
  159. CASE s[3] OF
  160. | 'I':
  161. IF s[4] = 'S' THEN
  162. IF s[5] = 0X THEN x := 124 END
  163. END
  164. | 'G':
  165. IF s[4] = 'R' THEN
  166. IF s[5] = 0X THEN x := 128 END
  167. END
  168. ELSE END
  169. | '1':
  170. CASE s[3] OF
  171. | '1':
  172. CASE s[4] OF
  173. | '3':
  174. CASE s[5] OF
  175. | '1':
  176. IF s[6] = 0X THEN x := 46 END
  177. | '3':
  178. IF s[6] = 0X THEN x := 68 END
  179. ELSE END
  180. | '2':
  181. CASE s[5] OF
  182. | '9':
  183. IF s[6] = 0X THEN x := 109 END
  184. | '5':
  185. IF s[6] = 0X THEN x := 129 END
  186. | '4':
  187. IF s[6] = 0X THEN x := 108 END
  188. ELSE END
  189. | '6':
  190. CASE s[5] OF
  191. | '1':
  192. IF s[6] = 0X THEN x := 110 END
  193. | '3':
  194. IF s[6] = 0X THEN x := 112 END
  195. | '2':
  196. IF s[6] = 0X THEN x := 111 END
  197. ELSE END
  198. ELSE END
  199. | '0':
  200. IF s[4] = '4' THEN
  201. IF s[5] = '6' THEN
  202. IF s[6] = 0X THEN x := 107 END
  203. END
  204. END
  205. | '3':
  206. IF s[4] = '6' THEN
  207. IF s[5] = '1' THEN
  208. IF s[6] = 0X THEN x := 102 END
  209. END
  210. END
  211. | '2':
  212. IF s[4] = '5' THEN
  213. CASE s[5] OF
  214. | '1':
  215. IF s[6] = 0X THEN x := 35 END
  216. | '0':
  217. IF s[6] = 0X THEN x := 34 END
  218. | '3':
  219. IF s[6] = 0X THEN x := 37 END
  220. | '2':
  221. IF s[6] = 0X THEN x := 36 END
  222. | '5':
  223. IF s[6] = 0X THEN x := 39 END
  224. | '4':
  225. IF s[6] = 0X THEN x := 38 END
  226. | '7':
  227. IF s[6] = 0X THEN x := 41 END
  228. | '6':
  229. IF s[6] = 0X THEN x := 40 END
  230. | '8':
  231. IF s[6] = 0X THEN x := 42 END
  232. ELSE END
  233. END
  234. | '5':
  235. IF s[4] = '4' THEN
  236. IF s[5] = 0X THEN x := 65 END
  237. END
  238. ELSE END
  239. | '3':
  240. IF s[3] = '6' THEN
  241. IF s[4] = '7' THEN
  242. IF s[5] = 0X THEN x := 0 END
  243. END
  244. END
  245. | '4':
  246. IF s[3] = '3' THEN
  247. IF s[4] = '7' THEN
  248. IF s[5] = 0X THEN x := 115 END
  249. END
  250. END
  251. | '7':
  252. CASE s[3] OF
  253. | '3':
  254. IF s[4] = '7' THEN
  255. IF s[5] = 0X THEN x := 116 END
  256. END
  257. | '2':
  258. IF s[4] = '0' THEN
  259. IF s[5] = 0X THEN x := 138 END
  260. END
  261. | '7':
  262. IF s[4] = '5' THEN
  263. IF s[5] = 0X THEN x := 117 END
  264. END
  265. ELSE END
  266. | '9':
  267. CASE s[3] OF
  268. | '3':
  269. CASE s[4] OF
  270. | '2':
  271. IF s[5] = 0X THEN x := 82 END
  272. | '6':
  273. IF s[5] = 0X THEN x := 88 END
  274. ELSE END
  275. | '2':
  276. IF s[4] = '2' THEN
  277. IF s[5] = 0X THEN x := 105 END
  278. END
  279. | '5':
  280. IF s[4] = '0' THEN
  281. IF s[5] = 0X THEN x := 95 END
  282. END
  283. | '4':
  284. CASE s[4] OF
  285. | '9':
  286. IF s[5] = 0X THEN x := 101 END
  287. | '3':
  288. IF s[5] = 0X THEN x := 106 END
  289. ELSE END
  290. ELSE END
  291. | '8':
  292. CASE s[3] OF
  293. | '1':
  294. IF s[4] = '9' THEN
  295. IF s[5] = 0X THEN x := 17 END
  296. END
  297. | '5':
  298. CASE s[4] OF
  299. | '0':
  300. IF s[5] = 0X THEN x := 43 END
  301. | '3':
  302. IF s[5] = 0X THEN x := 119 END
  303. | '2':
  304. IF s[5] = 0X THEN x := 118 END
  305. | '5':
  306. IF s[5] = 0X THEN x := 120 END
  307. | '7':
  308. IF s[5] = 0X THEN x := 121 END
  309. | '6':
  310. IF s[5] = 0X THEN x := 104 END
  311. | '8':
  312. IF s[5] = 0X THEN x := 122 END
  313. ELSE END
  314. | '7':
  315. IF s[4] = '4' THEN
  316. IF s[5] = 0X THEN x := 69 END
  317. END
  318. | '6':
  319. CASE s[4] OF
  320. | '1':
  321. IF s[5] = 0X THEN x := 124 END
  322. | '0':
  323. IF s[5] = 0X THEN x := 123 END
  324. | '3':
  325. IF s[5] = 0X THEN x := 125 END
  326. | '2':
  327. IF s[5] = 0X THEN x := 44 END
  328. | '5':
  329. IF s[5] = 0X THEN x := 127 END
  330. | '4':
  331. IF s[5] = 0X THEN x := 126 END
  332. | '6':
  333. IF s[5] = 0X THEN x := 45 END
  334. | '9':
  335. IF s[5] = 0X THEN x := 128 END
  336. ELSE END
  337. ELSE END
  338. ELSE END
  339. | 'H':
  340. IF s[2] = 'I' THEN
  341. IF s[3] = 'N' THEN
  342. IF s[4] = 'E' THEN
  343. IF s[5] = 'S' THEN
  344. IF s[6] = 'E' THEN
  345. IF s[7] = 0X THEN x := 77 END
  346. END
  347. END
  348. END
  349. END
  350. END
  351. | 'N':
  352. CASE s[2] OF
  353. | 0X: x := 76
  354. | '-':
  355. CASE s[3] OF
  356. | 'B':
  357. IF s[4] = 'I' THEN
  358. IF s[5] = 'G' THEN
  359. IF s[6] = '5' THEN
  360. IF s[7] = 0X THEN x := 94 END
  361. END
  362. END
  363. END
  364. | 'G':
  365. IF s[4] = 'B' THEN
  366. CASE s[5] OF
  367. | 0X: x := 86
  368. | '-':
  369. IF s[6] = 'I' THEN
  370. IF s[7] = 'S' THEN
  371. IF s[8] = 'O' THEN
  372. IF s[9] = 'I' THEN
  373. IF s[10] = 'R' THEN
  374. IF s[11] = '1' THEN
  375. IF s[12] = '6' THEN
  376. IF s[13] = '5' THEN
  377. IF s[14] = 0X THEN x := 78 END
  378. END
  379. END
  380. END
  381. END
  382. END
  383. END
  384. END
  385. END
  386. ELSE END
  387. END
  388. ELSE END
  389. ELSE END
  390. | '9':
  391. IF s[2] = '9' THEN
  392. IF s[3] = 0X THEN x := 15 END
  393. END
  394. | 'S':
  395. CASE s[2] OF
  396. | 'A':
  397. IF s[3] = 'S' THEN
  398. IF s[4] = 'C' THEN
  399. IF s[5] = 'I' THEN
  400. IF s[6] = 'I' THEN
  401. IF s[7] = 0X THEN x := 0 END
  402. END
  403. END
  404. END
  405. END
  406. | 'B':
  407. IF s[3] = 'I' THEN
  408. IF s[4] = 'G' THEN
  409. IF s[5] = '5' THEN
  410. IF s[6] = 0X THEN x := 94 END
  411. END
  412. END
  413. END
  414. | 'E':
  415. IF s[3] = 'U' THEN
  416. IF s[4] = 'C' THEN
  417. CASE s[5] OF
  418. | 'P':
  419. IF s[6] = 'K' THEN
  420. IF s[7] = 'D' THEN
  421. IF s[8] = 'F' THEN
  422. IF s[9] = 'M' THEN
  423. IF s[10] = 'T' THEN
  424. IF s[11] = 'J' THEN
  425. IF s[12] = 'A' THEN
  426. IF s[13] = 'P' THEN
  427. IF s[14] = 'A' THEN
  428. IF s[15] = 'N' THEN
  429. IF s[16] = 'E' THEN
  430. IF s[17] = 'S' THEN
  431. IF s[18] = 'E' THEN
  432. IF s[19] = 0X THEN x := 80 END
  433. END
  434. END
  435. END
  436. END
  437. END
  438. END
  439. END
  440. END
  441. END
  442. END
  443. END
  444. END
  445. END
  446. | 'K':
  447. IF s[6] = 'R' THEN
  448. IF s[7] = 0X THEN x := 100 END
  449. END
  450. | 'T':
  451. IF s[6] = 'W' THEN
  452. IF s[7] = 0X THEN x := 93 END
  453. END
  454. ELSE END
  455. END
  456. END
  457. | 'G':
  458. IF s[3] = 'B' THEN
  459. IF s[4] = '2' THEN
  460. IF s[5] = '3' THEN
  461. IF s[6] = '1' THEN
  462. IF s[7] = '2' THEN
  463. IF s[8] = 0X THEN x := 86 END
  464. END
  465. END
  466. END
  467. END
  468. END
  469. | 'I':
  470. CASE s[3] OF
  471. | 'S':
  472. IF s[4] = 'O' THEN
  473. CASE s[5] OF
  474. | '1':
  475. CASE s[6] OF
  476. | '5':
  477. IF s[7] = '9' THEN
  478. IF s[8] = 'J' THEN
  479. IF s[9] = 'I' THEN
  480. IF s[10] = 'S' THEN
  481. IF s[11] = 'X' THEN
  482. IF s[12] = '0' THEN
  483. IF s[13] = '2' THEN
  484. IF s[14] = '1' THEN
  485. IF s[15] = '2' THEN
  486. IF s[16] = '1' THEN
  487. IF s[17] = '9' THEN
  488. IF s[18] = '9' THEN
  489. IF s[19] = '0' THEN
  490. IF s[20] = 0X THEN x := 75 END
  491. END
  492. END
  493. END
  494. END
  495. END
  496. END
  497. END
  498. END
  499. END
  500. END
  501. END
  502. END
  503. END
  504. | '4':
  505. IF s[7] = 'J' THEN
  506. IF s[8] = 'I' THEN
  507. IF s[9] = 'S' THEN
  508. IF s[10] = 'C' THEN
  509. IF s[11] = '6' THEN
  510. IF s[12] = '2' THEN
  511. IF s[13] = '2' THEN
  512. IF s[14] = '0' THEN
  513. IF s[15] = 'R' THEN
  514. IF s[16] = 'O' THEN
  515. IF s[17] = 0X THEN x := 72 END
  516. END
  517. END
  518. END
  519. END
  520. END
  521. END
  522. END
  523. END
  524. END
  525. END
  526. ELSE END
  527. | '8':
  528. IF s[6] = '7' THEN
  529. IF s[7] = 'J' THEN
  530. IF s[8] = 'I' THEN
  531. IF s[9] = 'S' THEN
  532. IF s[10] = 'X' THEN
  533. IF s[11] = '0' THEN
  534. IF s[12] = '2' THEN
  535. IF s[13] = '0' THEN
  536. IF s[14] = '8' THEN
  537. IF s[15] = 0X THEN x := 74 END
  538. END
  539. END
  540. END
  541. END
  542. END
  543. END
  544. END
  545. END
  546. END
  547. | '2':
  548. IF s[6] = '0' THEN
  549. IF s[7] = '2' THEN
  550. IF s[8] = '2' THEN
  551. CASE s[9] OF
  552. | 'K':
  553. IF s[10] = 'R' THEN
  554. IF s[11] = 0X THEN x := 103 END
  555. END
  556. | 'J':
  557. IF s[10] = 'P' THEN
  558. CASE s[11] OF
  559. | 0X: x := 83
  560. | '2':
  561. IF s[12] = 0X THEN x := 85 END
  562. ELSE END
  563. END
  564. | 'C':
  565. IF s[10] = 'N' THEN
  566. IF s[11] = 0X THEN x := 90 END
  567. END
  568. ELSE END
  569. END
  570. END
  571. END
  572. | '5':
  573. CASE s[6] OF
  574. | '8':
  575. IF s[7] = 'G' THEN
  576. IF s[8] = 'B' THEN
  577. IF s[9] = '2' THEN
  578. IF s[10] = '3' THEN
  579. IF s[11] = '1' THEN
  580. IF s[12] = '2' THEN
  581. IF s[13] = '8' THEN
  582. IF s[14] = '0' THEN
  583. IF s[15] = 0X THEN x := 77 END
  584. END
  585. END
  586. END
  587. END
  588. END
  589. END
  590. END
  591. END
  592. | '7':
  593. IF s[7] = 'G' THEN
  594. IF s[8] = 'B' THEN
  595. IF s[9] = '1' THEN
  596. IF s[10] = '9' THEN
  597. IF s[11] = '8' THEN
  598. IF s[12] = '8' THEN
  599. IF s[13] = 0X THEN x := 76 END
  600. END
  601. END
  602. END
  603. END
  604. END
  605. END
  606. ELSE END
  607. | 'L':
  608. IF s[6] = 'A' THEN
  609. IF s[7] = 'T' THEN
  610. IF s[8] = 'I' THEN
  611. IF s[9] = 'N' THEN
  612. CASE s[10] OF
  613. | 'A':
  614. IF s[11] = 'R' THEN
  615. IF s[12] = 'A' THEN
  616. IF s[13] = 'B' THEN
  617. IF s[14] = 'I' THEN
  618. IF s[15] = 'C' THEN
  619. IF s[16] = 0X THEN x := 22 END
  620. END
  621. END
  622. END
  623. END
  624. END
  625. | 'C':
  626. IF s[11] = 'Y' THEN
  627. IF s[12] = 'R' THEN
  628. IF s[13] = 'I' THEN
  629. IF s[14] = 'L' THEN
  630. IF s[15] = 'L' THEN
  631. IF s[16] = 'I' THEN
  632. IF s[17] = 'C' THEN
  633. IF s[18] = 0X THEN x := 21 END
  634. END
  635. END
  636. END
  637. END
  638. END
  639. END
  640. END
  641. | 'G':
  642. IF s[11] = 'R' THEN
  643. IF s[12] = 'E' THEN
  644. IF s[13] = 'E' THEN
  645. IF s[14] = 'K' THEN
  646. IF s[15] = 0X THEN x := 23 END
  647. END
  648. END
  649. END
  650. END
  651. | 'H':
  652. IF s[11] = 'E' THEN
  653. IF s[12] = 'B' THEN
  654. IF s[13] = 'R' THEN
  655. IF s[14] = 'E' THEN
  656. IF s[15] = 'W' THEN
  657. IF s[16] = 0X THEN x := 24 END
  658. END
  659. END
  660. END
  661. END
  662. END
  663. | '1':
  664. IF s[11] = 0X THEN x := 17 END
  665. | '3':
  666. IF s[11] = 0X THEN x := 19 END
  667. | '2':
  668. IF s[11] = 0X THEN x := 18 END
  669. | '5':
  670. IF s[11] = 0X THEN x := 25 END
  671. | '4':
  672. IF s[11] = 0X THEN x := 20 END
  673. | '6':
  674. IF s[11] = 0X THEN x := 26 END
  675. ELSE END
  676. END
  677. END
  678. END
  679. END
  680. ELSE END
  681. END
  682. | 'B':
  683. IF s[4] = 'M' THEN
  684. CASE s[5] OF
  685. | '1':
  686. IF s[6] = '1' THEN
  687. IF s[7] = '6' THEN
  688. CASE s[8] OF
  689. | '1':
  690. IF s[9] = 0X THEN x := 110 END
  691. | '3':
  692. IF s[9] = 0X THEN x := 112 END
  693. | '2':
  694. IF s[9] = 0X THEN x := 111 END
  695. ELSE END
  696. END
  697. END
  698. | '8':
  699. CASE s[6] OF
  700. | '5':
  701. CASE s[7] OF
  702. | '5':
  703. IF s[8] = 0X THEN x := 120 END
  704. | '7':
  705. IF s[8] = 0X THEN x := 121 END
  706. ELSE END
  707. | '6':
  708. CASE s[7] OF
  709. | '1':
  710. IF s[8] = 0X THEN x := 124 END
  711. | '0':
  712. IF s[8] = 0X THEN x := 123 END
  713. | '3':
  714. IF s[8] = 0X THEN x := 125 END
  715. | '5':
  716. IF s[8] = 0X THEN x := 127 END
  717. | '4':
  718. IF s[8] = 0X THEN x := 126 END
  719. | '6':
  720. IF s[8] = 0X THEN x := 45 END
  721. | '9':
  722. IF s[8] = 0X THEN x := 128 END
  723. ELSE END
  724. ELSE END
  725. ELSE END
  726. END
  727. ELSE END
  728. | 'H':
  729. CASE s[3] OF
  730. | 'A':
  731. IF s[4] = 'L' THEN
  732. IF s[5] = 'F' THEN
  733. IF s[6] = 'W' THEN
  734. IF s[7] = 'I' THEN
  735. IF s[8] = 'D' THEN
  736. IF s[9] = 'T' THEN
  737. IF s[10] = 'H' THEN
  738. IF s[11] = 'K' THEN
  739. IF s[12] = 'A' THEN
  740. IF s[13] = 'T' THEN
  741. IF s[14] = 'A' THEN
  742. IF s[15] = 'K' THEN
  743. IF s[16] = 'A' THEN
  744. IF s[17] = 'N' THEN
  745. IF s[18] = 'A' THEN
  746. IF s[19] = 0X THEN x := 73 END
  747. END
  748. END
  749. END
  750. END
  751. END
  752. END
  753. END
  754. END
  755. END
  756. END
  757. END
  758. END
  759. END
  760. END
  761. END
  762. | 'P':
  763. IF s[4] = 'R' THEN
  764. IF s[5] = 'O' THEN
  765. IF s[6] = 'M' THEN
  766. IF s[7] = 'A' THEN
  767. IF s[8] = 'N' THEN
  768. IF s[9] = '8' THEN
  769. IF s[10] = 0X THEN x := 59 END
  770. END
  771. END
  772. END
  773. END
  774. END
  775. END
  776. ELSE END
  777. | 'K':
  778. CASE s[3] OF
  779. | 'S':
  780. IF s[4] = 'C' THEN
  781. IF s[5] = '5' THEN
  782. IF s[6] = '6' THEN
  783. IF s[7] = '0' THEN
  784. IF s[8] = '1' THEN
  785. IF s[9] = '1' THEN
  786. IF s[10] = '9' THEN
  787. IF s[11] = '8' THEN
  788. IF s[12] = '7' THEN
  789. IF s[13] = 0X THEN x := 79 END
  790. END
  791. END
  792. END
  793. END
  794. END
  795. END
  796. END
  797. END
  798. END
  799. | 'Z':
  800. IF s[4] = '1' THEN
  801. IF s[5] = '0' THEN
  802. IF s[6] = '4' THEN
  803. IF s[7] = '8' THEN
  804. IF s[8] = 0X THEN x := 66 END
  805. END
  806. END
  807. END
  808. END
  809. | 'O':
  810. IF s[4] = 'I' THEN
  811. IF s[5] = '8' THEN
  812. IF s[6] = 'R' THEN
  813. IF s[7] = 0X THEN x := 32 END
  814. END
  815. END
  816. END
  817. ELSE END
  818. | 'M':
  819. IF s[3] = 'A' THEN
  820. IF s[4] = 'C' THEN
  821. IF s[5] = 'I' THEN
  822. IF s[6] = 'N' THEN
  823. IF s[7] = 'T' THEN
  824. IF s[8] = 'O' THEN
  825. IF s[9] = 'S' THEN
  826. IF s[10] = 'H' THEN
  827. IF s[11] = 0X THEN x := 47 END
  828. END
  829. END
  830. END
  831. END
  832. END
  833. END
  834. END
  835. END
  836. | 'P':
  837. CASE s[3] OF
  838. | 'C':
  839. CASE s[4] OF
  840. | 'P':
  841. IF s[5] = '8' THEN
  842. IF s[6] = '5' THEN
  843. IF s[7] = '2' THEN
  844. IF s[8] = 0X THEN x := 118 END
  845. END
  846. END
  847. END
  848. | '7':
  849. IF s[5] = '7' THEN
  850. IF s[6] = '5' THEN
  851. IF s[7] = 'B' THEN
  852. IF s[8] = 'A' THEN
  853. IF s[9] = 'L' THEN
  854. IF s[10] = 'T' THEN
  855. IF s[11] = 'I' THEN
  856. IF s[12] = 'C' THEN
  857. IF s[13] = 0X THEN x := 117 END
  858. END
  859. END
  860. END
  861. END
  862. END
  863. END
  864. END
  865. END
  866. | '8':
  867. CASE s[5] OF
  868. | 'C':
  869. IF s[6] = 'O' THEN
  870. IF s[7] = 'D' THEN
  871. IF s[8] = 'E' THEN
  872. IF s[9] = 'P' THEN
  873. IF s[10] = 'A' THEN
  874. IF s[11] = 'G' THEN
  875. IF s[12] = 'E' THEN
  876. IF s[13] = '4' THEN
  877. IF s[14] = '3' THEN
  878. IF s[15] = '7' THEN
  879. IF s[16] = 0X THEN x := 115 END
  880. END
  881. END
  882. END
  883. END
  884. END
  885. END
  886. END
  887. END
  888. END
  889. END
  890. | '5':
  891. IF s[6] = '0' THEN
  892. IF s[7] = 'M' THEN
  893. IF s[8] = 'U' THEN
  894. IF s[9] = 'L' THEN
  895. IF s[10] = 'T' THEN
  896. IF s[11] = 'I' THEN
  897. IF s[12] = 'L' THEN
  898. IF s[13] = 'I' THEN
  899. IF s[14] = 'N' THEN
  900. IF s[15] = 'G' THEN
  901. IF s[16] = 'U' THEN
  902. IF s[17] = 'A' THEN
  903. IF s[18] = 'L' THEN
  904. IF s[19] = 0X THEN x := 43 END
  905. END
  906. END
  907. END
  908. END
  909. END
  910. END
  911. END
  912. END
  913. END
  914. END
  915. END
  916. END
  917. END
  918. | '6':
  919. IF s[6] = '2' THEN
  920. IF s[7] = 'L' THEN
  921. IF s[8] = 'A' THEN
  922. IF s[9] = 'T' THEN
  923. IF s[10] = 'I' THEN
  924. IF s[11] = 'N' THEN
  925. IF s[12] = 'H' THEN
  926. IF s[13] = 'E' THEN
  927. IF s[14] = 'B' THEN
  928. IF s[15] = 'R' THEN
  929. IF s[16] = 'E' THEN
  930. IF s[17] = 'W' THEN
  931. IF s[18] = 0X THEN x := 44 END
  932. END
  933. END
  934. END
  935. END
  936. END
  937. END
  938. END
  939. END
  940. END
  941. END
  942. END
  943. END
  944. ELSE END
  945. ELSE END
  946. | 'T':
  947. IF s[4] = 'C' THEN
  948. IF s[5] = 'P' THEN
  949. IF s[6] = '1' THEN
  950. IF s[7] = '5' THEN
  951. IF s[8] = '4' THEN
  952. IF s[9] = 0X THEN x := 65 END
  953. END
  954. END
  955. END
  956. END
  957. END
  958. ELSE END
  959. | 'S':
  960. IF s[3] = 'H' THEN
  961. IF s[4] = 'I' THEN
  962. IF s[5] = 'F' THEN
  963. IF s[6] = 'T' THEN
  964. IF s[7] = 'J' THEN
  965. IF s[8] = 'I' THEN
  966. IF s[9] = 'S' THEN
  967. IF s[10] = 0X THEN x := 81 END
  968. END
  969. END
  970. END
  971. END
  972. END
  973. END
  974. END
  975. | 'U':
  976. CASE s[3] OF
  977. | 'C':
  978. IF s[4] = 'S' THEN
  979. IF s[5] = '4' THEN
  980. IF s[6] = 0X THEN x := 5 END
  981. END
  982. END
  983. | 'N':
  984. IF s[4] = 'I' THEN
  985. IF s[5] = 'C' THEN
  986. IF s[6] = 'O' THEN
  987. IF s[7] = 'D' THEN
  988. IF s[8] = 'E' THEN
  989. CASE s[9] OF
  990. | '1':
  991. IF s[10] = '1' THEN
  992. CASE s[11] OF
  993. | 0X: x := 3
  994. | 'U':
  995. IF s[12] = 'T' THEN
  996. IF s[13] = 'F' THEN
  997. IF s[14] = '7' THEN
  998. IF s[15] = 0X THEN x := 14 END
  999. END
  1000. END
  1001. END
  1002. ELSE END
  1003. END
  1004. | 0X: x := 2
  1005. ELSE END
  1006. END
  1007. END
  1008. END
  1009. END
  1010. END
  1011. ELSE END
  1012. | 'V':
  1013. IF s[3] = 'I' THEN
  1014. IF s[4] = 'S' THEN
  1015. IF s[5] = 'C' THEN
  1016. IF s[6] = 'I' THEN
  1017. IF s[7] = 'I' THEN
  1018. IF s[8] = 0X THEN x := 70 END
  1019. END
  1020. END
  1021. END
  1022. END
  1023. END
  1024. ELSE END
  1025. | 'Y':
  1026. IF s[2] = 'R' THEN
  1027. IF s[3] = 'I' THEN
  1028. IF s[4] = 'L' THEN
  1029. IF s[5] = 'L' THEN
  1030. IF s[6] = 'I' THEN
  1031. IF s[7] = 'C' THEN
  1032. CASE s[8] OF
  1033. | 0X: x := 21
  1034. | '-':
  1035. IF s[9] = 'A' THEN
  1036. IF s[10] = 'S' THEN
  1037. IF s[11] = 'I' THEN
  1038. IF s[12] = 'A' THEN
  1039. IF s[13] = 'N' THEN
  1040. IF s[14] = 0X THEN x := 65 END
  1041. END
  1042. END
  1043. END
  1044. END
  1045. END
  1046. ELSE END
  1047. END
  1048. END
  1049. END
  1050. END
  1051. END
  1052. END
  1053. ELSE END
  1054. | 'B':
  1055. IF s[1] = 'I' THEN
  1056. IF s[2] = 'G' THEN
  1057. CASE s[3] OF
  1058. | '-':
  1059. CASE s[4] OF
  1060. | '5':
  1061. IF s[5] = 0X THEN x := 94 END
  1062. | 'F':
  1063. IF s[5] = 'I' THEN
  1064. IF s[6] = 'V' THEN
  1065. IF s[7] = 'E' THEN
  1066. IF s[8] = 0X THEN x := 94 END
  1067. END
  1068. END
  1069. END
  1070. ELSE END
  1071. | '5':
  1072. CASE s[4] OF
  1073. | 0X: x := 94
  1074. | 'H':
  1075. IF s[5] = 'K' THEN
  1076. IF s[6] = 'S' THEN
  1077. IF s[7] = 'C' THEN
  1078. IF s[8] = 'S' THEN
  1079. IF s[9] = 0X THEN x := 99 END
  1080. END
  1081. END
  1082. END
  1083. END
  1084. | '-':
  1085. CASE s[5] OF
  1086. | 'H':
  1087. IF s[6] = 'K' THEN
  1088. IF s[7] = 'S' THEN
  1089. IF s[8] = 'C' THEN
  1090. IF s[9] = 'S' THEN
  1091. CASE s[10] OF
  1092. | 0X: x := 99
  1093. | ':':
  1094. CASE s[11] OF
  1095. | '1':
  1096. IF s[12] = '9' THEN
  1097. IF s[13] = '9' THEN
  1098. IF s[14] = '9' THEN
  1099. IF s[15] = 0X THEN x := 96 END
  1100. END
  1101. END
  1102. END
  1103. | '2':
  1104. IF s[12] = '0' THEN
  1105. IF s[13] = '0' THEN
  1106. CASE s[14] OF
  1107. | '1':
  1108. IF s[15] = 0X THEN x := 97 END
  1109. | '8':
  1110. IF s[15] = 0X THEN x := 99 END
  1111. | '4':
  1112. IF s[15] = 0X THEN x := 98 END
  1113. ELSE END
  1114. END
  1115. END
  1116. ELSE END
  1117. ELSE END
  1118. END
  1119. END
  1120. END
  1121. END
  1122. | '2':
  1123. IF s[6] = '0' THEN
  1124. IF s[7] = '0' THEN
  1125. IF s[8] = '3' THEN
  1126. IF s[9] = 0X THEN x := 133 END
  1127. END
  1128. END
  1129. END
  1130. ELSE END
  1131. ELSE END
  1132. | 'F':
  1133. IF s[4] = 'I' THEN
  1134. IF s[5] = 'V' THEN
  1135. IF s[6] = 'E' THEN
  1136. IF s[7] = 0X THEN x := 94 END
  1137. END
  1138. END
  1139. END
  1140. ELSE END
  1141. END
  1142. END
  1143. | 'E':
  1144. CASE s[1] OF
  1145. | 'X':
  1146. IF s[2] = 'T' THEN
  1147. IF s[3] = 'E' THEN
  1148. IF s[4] = 'N' THEN
  1149. IF s[5] = 'D' THEN
  1150. IF s[6] = 'E' THEN
  1151. IF s[7] = 'D' THEN
  1152. IF s[8] = '_' THEN
  1153. IF s[9] = 'U' THEN
  1154. IF s[10] = 'N' THEN
  1155. IF s[11] = 'I' THEN
  1156. IF s[12] = 'X' THEN
  1157. IF s[13] = '_' THEN
  1158. IF s[14] = 'C' THEN
  1159. IF s[15] = 'O' THEN
  1160. IF s[16] = 'D' THEN
  1161. IF s[17] = 'E' THEN
  1162. IF s[18] = '_' THEN
  1163. IF s[19] = 'P' THEN
  1164. IF s[20] = 'A' THEN
  1165. IF s[21] = 'C' THEN
  1166. IF s[22] = 'K' THEN
  1167. IF s[23] = 'E' THEN
  1168. IF s[24] = 'D' THEN
  1169. IF s[25] = '_' THEN
  1170. IF s[26] = 'F' THEN
  1171. IF s[27] = 'O' THEN
  1172. IF s[28] = 'R' THEN
  1173. IF s[29] = 'M' THEN
  1174. IF s[30] = 'A' THEN
  1175. IF s[31] = 'T' THEN
  1176. IF s[32] = '_' THEN
  1177. IF s[33] = 'F' THEN
  1178. IF s[34] = 'O' THEN
  1179. IF s[35] = 'R' THEN
  1180. IF s[36] = '_' THEN
  1181. IF s[37] = 'J' THEN
  1182. IF s[38] = 'A' THEN
  1183. IF s[39] = 'P' THEN
  1184. IF s[40] = 'A' THEN
  1185. IF s[41] = 'N' THEN
  1186. IF s[42] = 'E' THEN
  1187. IF s[43] = 'S' THEN
  1188. IF s[44] = 'E' THEN
  1189. IF s[45] = 0X THEN x := 80 END
  1190. END
  1191. END
  1192. END
  1193. END
  1194. END
  1195. END
  1196. END
  1197. END
  1198. END
  1199. END
  1200. END
  1201. END
  1202. END
  1203. END
  1204. END
  1205. END
  1206. END
  1207. END
  1208. END
  1209. END
  1210. END
  1211. END
  1212. END
  1213. END
  1214. END
  1215. END
  1216. END
  1217. END
  1218. END
  1219. END
  1220. END
  1221. END
  1222. END
  1223. END
  1224. END
  1225. END
  1226. END
  1227. END
  1228. END
  1229. END
  1230. END
  1231. END
  1232. END
  1233. | 'C':
  1234. IF s[2] = 'M' THEN
  1235. IF s[3] = 'A' THEN
  1236. IF s[4] = '-' THEN
  1237. IF s[5] = '1' THEN
  1238. IF s[6] = '1' THEN
  1239. CASE s[7] OF
  1240. | '8':
  1241. IF s[8] = 0X THEN x := 23 END
  1242. | '4':
  1243. IF s[8] = 0X THEN x := 22 END
  1244. ELSE END
  1245. END
  1246. END
  1247. END
  1248. END
  1249. END
  1250. | 'U':
  1251. IF s[2] = 'C' THEN
  1252. CASE s[3] OF
  1253. | 'C':
  1254. IF s[4] = 'N' THEN
  1255. IF s[5] = 0X THEN x := 86 END
  1256. END
  1257. | 'K':
  1258. IF s[4] = 'R' THEN
  1259. IF s[5] = 0X THEN x := 100 END
  1260. END
  1261. | 'J':
  1262. IF s[4] = 'P' THEN
  1263. IF s[5] = 0X THEN x := 80 END
  1264. END
  1265. | '-':
  1266. CASE s[4] OF
  1267. | 'C':
  1268. IF s[5] = 'N' THEN
  1269. IF s[6] = 0X THEN x := 86 END
  1270. END
  1271. | 'K':
  1272. IF s[5] = 'R' THEN
  1273. IF s[6] = 0X THEN x := 100 END
  1274. END
  1275. | 'J':
  1276. CASE s[5] OF
  1277. | 'I':
  1278. IF s[6] = 'S' THEN
  1279. CASE s[7] OF
  1280. | 'X':
  1281. IF s[8] = '0' THEN
  1282. IF s[9] = '2' THEN
  1283. IF s[10] = '1' THEN
  1284. IF s[11] = '3' THEN
  1285. IF s[12] = 0X THEN x := 130 END
  1286. END
  1287. END
  1288. END
  1289. END
  1290. | '-':
  1291. IF s[8] = '2' THEN
  1292. IF s[9] = '0' THEN
  1293. IF s[10] = '0' THEN
  1294. IF s[11] = '4' THEN
  1295. IF s[12] = 0X THEN x := 130 END
  1296. END
  1297. END
  1298. END
  1299. END
  1300. ELSE END
  1301. END
  1302. | 'P':
  1303. IF s[6] = 0X THEN x := 80 END
  1304. ELSE END
  1305. | 'T':
  1306. IF s[5] = 'W' THEN
  1307. IF s[6] = 0X THEN x := 93 END
  1308. END
  1309. ELSE END
  1310. | 'T':
  1311. IF s[4] = 'W' THEN
  1312. IF s[5] = 0X THEN x := 93 END
  1313. END
  1314. ELSE END
  1315. END
  1316. | 'L':
  1317. IF s[2] = 'O' THEN
  1318. IF s[3] = 'T' THEN
  1319. IF s[4] = '_' THEN
  1320. IF s[5] = '9' THEN
  1321. IF s[6] = '2' THEN
  1322. IF s[7] = '8' THEN
  1323. IF s[8] = 0X THEN x := 23 END
  1324. END
  1325. END
  1326. END
  1327. END
  1328. END
  1329. END
  1330. ELSE END
  1331. | 'D':
  1332. IF s[1] = 'E' THEN
  1333. IF s[2] = 'C' THEN
  1334. IF s[3] = '-' THEN
  1335. CASE s[4] OF
  1336. | 'H':
  1337. IF s[5] = 'A' THEN
  1338. IF s[6] = 'N' THEN
  1339. IF s[7] = 'Y' THEN
  1340. IF s[8] = 'U' THEN
  1341. IF s[9] = 0X THEN x := 114 END
  1342. END
  1343. END
  1344. END
  1345. END
  1346. | 'K':
  1347. IF s[5] = 'A' THEN
  1348. IF s[6] = 'N' THEN
  1349. IF s[7] = 'J' THEN
  1350. IF s[8] = 'I' THEN
  1351. IF s[9] = 0X THEN x := 113 END
  1352. END
  1353. END
  1354. END
  1355. END
  1356. ELSE END
  1357. END
  1358. END
  1359. END
  1360. | 'G':
  1361. CASE s[1] OF
  1362. | 'B':
  1363. CASE s[2] OF
  1364. | '1':
  1365. IF s[3] = '8' THEN
  1366. IF s[4] = '0' THEN
  1367. IF s[5] = '3' THEN
  1368. IF s[6] = '0' THEN
  1369. IF s[7] = 0X THEN x := 89 END
  1370. END
  1371. END
  1372. END
  1373. END
  1374. | 'K':
  1375. IF s[3] = 0X THEN x := 87 END
  1376. | '2':
  1377. IF s[3] = '3' THEN
  1378. IF s[4] = '1' THEN
  1379. IF s[5] = '2' THEN
  1380. IF s[6] = 0X THEN x := 86 END
  1381. END
  1382. END
  1383. END
  1384. | '_':
  1385. CASE s[3] OF
  1386. | '1':
  1387. IF s[4] = '9' THEN
  1388. IF s[5] = '8' THEN
  1389. IF s[6] = '8' THEN
  1390. IF s[7] = '-' THEN
  1391. IF s[8] = '8' THEN
  1392. IF s[9] = '0' THEN
  1393. IF s[10] = 0X THEN x := 76 END
  1394. END
  1395. END
  1396. END
  1397. END
  1398. END
  1399. END
  1400. | '2':
  1401. IF s[4] = '3' THEN
  1402. IF s[5] = '1' THEN
  1403. IF s[6] = '2' THEN
  1404. IF s[7] = '-' THEN
  1405. IF s[8] = '8' THEN
  1406. IF s[9] = '0' THEN
  1407. IF s[10] = 0X THEN x := 77 END
  1408. END
  1409. END
  1410. END
  1411. END
  1412. END
  1413. END
  1414. ELSE END
  1415. ELSE END
  1416. | 'R':
  1417. IF s[2] = 'E' THEN
  1418. IF s[3] = 'E' THEN
  1419. IF s[4] = 'K' THEN
  1420. CASE s[5] OF
  1421. | 0X: x := 23
  1422. | '8':
  1423. IF s[6] = 0X THEN x := 23 END
  1424. ELSE END
  1425. END
  1426. END
  1427. END
  1428. | 'E':
  1429. IF s[2] = 'O' THEN
  1430. IF s[3] = 'R' THEN
  1431. IF s[4] = 'G' THEN
  1432. IF s[5] = 'I' THEN
  1433. IF s[6] = 'A' THEN
  1434. IF s[7] = 'N' THEN
  1435. IF s[8] = '-' THEN
  1436. CASE s[9] OF
  1437. | 'A':
  1438. IF s[10] = 'C' THEN
  1439. IF s[11] = 'A' THEN
  1440. IF s[12] = 'D' THEN
  1441. IF s[13] = 'E' THEN
  1442. IF s[14] = 'M' THEN
  1443. IF s[15] = 'Y' THEN
  1444. IF s[16] = 0X THEN x := 62 END
  1445. END
  1446. END
  1447. END
  1448. END
  1449. END
  1450. END
  1451. | 'P':
  1452. IF s[10] = 'S' THEN
  1453. IF s[11] = 0X THEN x := 63 END
  1454. END
  1455. ELSE END
  1456. END
  1457. END
  1458. END
  1459. END
  1460. END
  1461. END
  1462. END
  1463. ELSE END
  1464. | 'I':
  1465. CASE s[1] OF
  1466. | 'S':
  1467. IF s[2] = 'O' THEN
  1468. CASE s[3] OF
  1469. | '8':
  1470. IF s[4] = '8' THEN
  1471. IF s[5] = '5' THEN
  1472. IF s[6] = '9' THEN
  1473. IF s[7] = '-' THEN
  1474. CASE s[8] OF
  1475. | '1':
  1476. CASE s[9] OF
  1477. | 0X: x := 17
  1478. | '1':
  1479. IF s[10] = 0X THEN x := 27 END
  1480. | '0':
  1481. IF s[10] = 0X THEN x := 26 END
  1482. | '3':
  1483. IF s[10] = 0X THEN x := 28 END
  1484. | '5':
  1485. IF s[10] = 0X THEN x := 30 END
  1486. | '4':
  1487. IF s[10] = 0X THEN x := 29 END
  1488. | '6':
  1489. IF s[10] = 0X THEN x := 31 END
  1490. ELSE END
  1491. | '3':
  1492. IF s[9] = 0X THEN x := 19 END
  1493. | '2':
  1494. IF s[9] = 0X THEN x := 18 END
  1495. | '5':
  1496. IF s[9] = 0X THEN x := 21 END
  1497. | '4':
  1498. IF s[9] = 0X THEN x := 20 END
  1499. | '7':
  1500. IF s[9] = 0X THEN x := 23 END
  1501. | '6':
  1502. IF s[9] = 0X THEN x := 22 END
  1503. | '9':
  1504. IF s[9] = 0X THEN x := 25 END
  1505. | '8':
  1506. IF s[9] = 0X THEN x := 24 END
  1507. ELSE END
  1508. END
  1509. END
  1510. END
  1511. END
  1512. | '-':
  1513. CASE s[4] OF
  1514. | 'I':
  1515. IF s[5] = 'R' THEN
  1516. IF s[6] = '-' THEN
  1517. CASE s[7] OF
  1518. | '1':
  1519. CASE s[8] OF
  1520. | '1':
  1521. IF s[9] = '0' THEN
  1522. IF s[10] = 0X THEN x := 20 END
  1523. END
  1524. | '0':
  1525. CASE s[9] OF
  1526. | '9':
  1527. IF s[10] = 0X THEN x := 19 END
  1528. | '1':
  1529. IF s[10] = 0X THEN x := 18 END
  1530. | '0':
  1531. IF s[10] = 0X THEN x := 17 END
  1532. ELSE END
  1533. | '3':
  1534. IF s[9] = '8' THEN
  1535. IF s[10] = 0X THEN x := 24 END
  1536. END
  1537. | '2':
  1538. CASE s[9] OF
  1539. | '7':
  1540. IF s[10] = 0X THEN x := 22 END
  1541. | '6':
  1542. IF s[10] = 0X THEN x := 23 END
  1543. ELSE END
  1544. | '5':
  1545. CASE s[9] OF
  1546. | '9':
  1547. IF s[10] = 0X THEN x := 75 END
  1548. | '7':
  1549. IF s[10] = 0X THEN x := 26 END
  1550. ELSE END
  1551. | '4':
  1552. CASE s[9] OF
  1553. | '9':
  1554. IF s[10] = 0X THEN x := 79 END
  1555. | '8':
  1556. IF s[10] = 0X THEN x := 25 END
  1557. | '4':
  1558. IF s[10] = 0X THEN x := 21 END
  1559. | 0X: x := 72
  1560. ELSE END
  1561. | '7':
  1562. IF s[9] = '9' THEN
  1563. IF s[10] = 0X THEN x := 28 END
  1564. END
  1565. | '6':
  1566. IF s[9] = '5' THEN
  1567. IF s[10] = 0X THEN x := 78 END
  1568. END
  1569. | '9':
  1570. IF s[9] = '9' THEN
  1571. IF s[10] = 0X THEN x := 29 END
  1572. END
  1573. ELSE END
  1574. | '8':
  1575. IF s[8] = '7' THEN
  1576. IF s[9] = 0X THEN x := 74 END
  1577. END
  1578. | '2':
  1579. CASE s[8] OF
  1580. | '0':
  1581. IF s[9] = '3' THEN
  1582. IF s[10] = 0X THEN x := 30 END
  1583. END
  1584. | '3':
  1585. IF s[9] = '0' THEN
  1586. IF s[10] = 0X THEN x := 134 END
  1587. END
  1588. | '2':
  1589. IF s[9] = '6' THEN
  1590. IF s[10] = 0X THEN x := 31 END
  1591. END
  1592. ELSE END
  1593. | '5':
  1594. CASE s[8] OF
  1595. | '8':
  1596. IF s[9] = 0X THEN x := 77 END
  1597. | '7':
  1598. IF s[9] = 0X THEN x := 76 END
  1599. ELSE END
  1600. | '6':
  1601. IF s[8] = 0X THEN x := 0 END
  1602. ELSE END
  1603. END
  1604. END
  1605. | '8':
  1606. IF s[5] = '8' THEN
  1607. IF s[6] = '5' THEN
  1608. IF s[7] = '9' THEN
  1609. IF s[8] = '-' THEN
  1610. CASE s[9] OF
  1611. | '1':
  1612. CASE s[10] OF
  1613. | 0X: x := 17
  1614. | '1':
  1615. IF s[11] = 0X THEN x := 27 END
  1616. | '0':
  1617. IF s[11] = 0X THEN x := 26 END
  1618. | '3':
  1619. IF s[11] = 0X THEN x := 28 END
  1620. | '5':
  1621. IF s[11] = 0X THEN x := 30 END
  1622. | '4':
  1623. IF s[11] = 0X THEN x := 29 END
  1624. | '6':
  1625. IF s[11] = 0X THEN x := 31 END
  1626. ELSE END
  1627. | '3':
  1628. IF s[10] = 0X THEN x := 19 END
  1629. | '2':
  1630. IF s[10] = 0X THEN x := 18 END
  1631. | '5':
  1632. IF s[10] = 0X THEN x := 21 END
  1633. | '4':
  1634. IF s[10] = 0X THEN x := 20 END
  1635. | '7':
  1636. IF s[10] = 0X THEN x := 23 END
  1637. | '6':
  1638. IF s[10] = 0X THEN x := 22 END
  1639. | '9':
  1640. IF s[10] = 0X THEN x := 25 END
  1641. | '8':
  1642. IF s[10] = 0X THEN x := 24 END
  1643. ELSE END
  1644. END
  1645. END
  1646. END
  1647. END
  1648. | 'C':
  1649. IF s[5] = 'E' THEN
  1650. IF s[6] = 'L' THEN
  1651. IF s[7] = 'T' THEN
  1652. IF s[8] = 'I' THEN
  1653. IF s[9] = 'C' THEN
  1654. IF s[10] = 0X THEN x := 29 END
  1655. END
  1656. END
  1657. END
  1658. END
  1659. END
  1660. | '2':
  1661. IF s[5] = '0' THEN
  1662. IF s[6] = '2' THEN
  1663. IF s[7] = '2' THEN
  1664. IF s[8] = '-' THEN
  1665. CASE s[9] OF
  1666. | 'C':
  1667. IF s[10] = 'N' THEN
  1668. CASE s[11] OF
  1669. | 0X: x := 90
  1670. | '-':
  1671. IF s[12] = 'E' THEN
  1672. IF s[13] = 'X' THEN
  1673. IF s[14] = 'T' THEN
  1674. IF s[15] = 0X THEN x := 91 END
  1675. END
  1676. END
  1677. END
  1678. ELSE END
  1679. END
  1680. | 'J':
  1681. IF s[10] = 'P' THEN
  1682. CASE s[11] OF
  1683. | 0X: x := 83
  1684. | '-':
  1685. CASE s[12] OF
  1686. | '1':
  1687. IF s[13] = 0X THEN x := 84 END
  1688. | '3':
  1689. IF s[13] = 0X THEN x := 132 END
  1690. | '2':
  1691. CASE s[13] OF
  1692. | 0X: x := 85
  1693. | '0':
  1694. IF s[14] = '0' THEN
  1695. IF s[15] = '4' THEN
  1696. IF s[16] = 0X THEN x := 132 END
  1697. END
  1698. END
  1699. ELSE END
  1700. ELSE END
  1701. ELSE END
  1702. END
  1703. | 'K':
  1704. IF s[10] = 'R' THEN
  1705. IF s[11] = 0X THEN x := 103 END
  1706. END
  1707. ELSE END
  1708. END
  1709. END
  1710. END
  1711. END
  1712. | '1':
  1713. IF s[5] = '0' THEN
  1714. IF s[6] = '6' THEN
  1715. IF s[7] = '4' THEN
  1716. IF s[8] = '6' THEN
  1717. IF s[9] = '-' THEN
  1718. IF s[10] = 'U' THEN
  1719. IF s[11] = 'C' THEN
  1720. IF s[12] = 'S' THEN
  1721. IF s[13] = '-' THEN
  1722. CASE s[14] OF
  1723. | '2':
  1724. IF s[15] = 0X THEN x := 2 END
  1725. | '4':
  1726. IF s[15] = 0X THEN x := 5 END
  1727. ELSE END
  1728. END
  1729. END
  1730. END
  1731. END
  1732. END
  1733. END
  1734. END
  1735. END
  1736. END
  1737. ELSE END
  1738. | '_':
  1739. CASE s[4] OF
  1740. | '8':
  1741. IF s[5] = '8' THEN
  1742. IF s[6] = '5' THEN
  1743. IF s[7] = '9' THEN
  1744. IF s[8] = '-' THEN
  1745. CASE s[9] OF
  1746. | '1':
  1747. CASE s[10] OF
  1748. | 0X: x := 17
  1749. | '1':
  1750. IF s[11] = 0X THEN x := 27 END
  1751. | '0':
  1752. CASE s[11] OF
  1753. | 0X: x := 26
  1754. | ':':
  1755. IF s[12] = '1' THEN
  1756. IF s[13] = '9' THEN
  1757. IF s[14] = '9' THEN
  1758. IF s[15] = '2' THEN
  1759. IF s[16] = 0X THEN x := 26 END
  1760. END
  1761. END
  1762. END
  1763. END
  1764. ELSE END
  1765. | '3':
  1766. IF s[11] = 0X THEN x := 28 END
  1767. | '5':
  1768. CASE s[11] OF
  1769. | 0X: x := 30
  1770. | ':':
  1771. IF s[12] = '1' THEN
  1772. IF s[13] = '9' THEN
  1773. IF s[14] = '9' THEN
  1774. IF s[15] = '8' THEN
  1775. IF s[16] = 0X THEN x := 30 END
  1776. END
  1777. END
  1778. END
  1779. END
  1780. ELSE END
  1781. | '4':
  1782. CASE s[11] OF
  1783. | 0X: x := 29
  1784. | ':':
  1785. IF s[12] = '1' THEN
  1786. IF s[13] = '9' THEN
  1787. IF s[14] = '9' THEN
  1788. IF s[15] = '8' THEN
  1789. IF s[16] = 0X THEN x := 29 END
  1790. END
  1791. END
  1792. END
  1793. END
  1794. ELSE END
  1795. | '6':
  1796. CASE s[11] OF
  1797. | 0X: x := 31
  1798. | ':':
  1799. IF s[12] = '2' THEN
  1800. IF s[13] = '0' THEN
  1801. IF s[14] = '0' THEN
  1802. IF s[15] = '1' THEN
  1803. IF s[16] = 0X THEN x := 31 END
  1804. END
  1805. END
  1806. END
  1807. END
  1808. ELSE END
  1809. | ':':
  1810. IF s[11] = '1' THEN
  1811. IF s[12] = '9' THEN
  1812. IF s[13] = '8' THEN
  1813. IF s[14] = '7' THEN
  1814. IF s[15] = 0X THEN x := 17 END
  1815. END
  1816. END
  1817. END
  1818. END
  1819. ELSE END
  1820. | '3':
  1821. CASE s[10] OF
  1822. | 0X: x := 19
  1823. | ':':
  1824. IF s[11] = '1' THEN
  1825. IF s[12] = '9' THEN
  1826. IF s[13] = '8' THEN
  1827. IF s[14] = '8' THEN
  1828. IF s[15] = 0X THEN x := 19 END
  1829. END
  1830. END
  1831. END
  1832. END
  1833. ELSE END
  1834. | '2':
  1835. CASE s[10] OF
  1836. | 0X: x := 18
  1837. | ':':
  1838. IF s[11] = '1' THEN
  1839. IF s[12] = '9' THEN
  1840. IF s[13] = '8' THEN
  1841. IF s[14] = '7' THEN
  1842. IF s[15] = 0X THEN x := 18 END
  1843. END
  1844. END
  1845. END
  1846. END
  1847. ELSE END
  1848. | '5':
  1849. CASE s[10] OF
  1850. | 0X: x := 21
  1851. | ':':
  1852. IF s[11] = '1' THEN
  1853. IF s[12] = '9' THEN
  1854. IF s[13] = '8' THEN
  1855. IF s[14] = '8' THEN
  1856. IF s[15] = 0X THEN x := 21 END
  1857. END
  1858. END
  1859. END
  1860. END
  1861. ELSE END
  1862. | '4':
  1863. CASE s[10] OF
  1864. | 0X: x := 20
  1865. | ':':
  1866. IF s[11] = '1' THEN
  1867. IF s[12] = '9' THEN
  1868. IF s[13] = '8' THEN
  1869. IF s[14] = '8' THEN
  1870. IF s[15] = 0X THEN x := 20 END
  1871. END
  1872. END
  1873. END
  1874. END
  1875. ELSE END
  1876. | '7':
  1877. CASE s[10] OF
  1878. | 0X: x := 23
  1879. | ':':
  1880. CASE s[11] OF
  1881. | '1':
  1882. IF s[12] = '9' THEN
  1883. IF s[13] = '8' THEN
  1884. IF s[14] = '7' THEN
  1885. IF s[15] = 0X THEN x := 23 END
  1886. END
  1887. END
  1888. END
  1889. | '2':
  1890. IF s[12] = '0' THEN
  1891. IF s[13] = '0' THEN
  1892. IF s[14] = '3' THEN
  1893. IF s[15] = 0X THEN x := 23 END
  1894. END
  1895. END
  1896. END
  1897. ELSE END
  1898. ELSE END
  1899. | '6':
  1900. CASE s[10] OF
  1901. | 0X: x := 22
  1902. | ':':
  1903. IF s[11] = '1' THEN
  1904. IF s[12] = '9' THEN
  1905. IF s[13] = '8' THEN
  1906. IF s[14] = '7' THEN
  1907. IF s[15] = 0X THEN x := 22 END
  1908. END
  1909. END
  1910. END
  1911. END
  1912. ELSE END
  1913. | '9':
  1914. CASE s[10] OF
  1915. | 0X: x := 25
  1916. | ':':
  1917. IF s[11] = '1' THEN
  1918. IF s[12] = '9' THEN
  1919. IF s[13] = '8' THEN
  1920. IF s[14] = '9' THEN
  1921. IF s[15] = 0X THEN x := 25 END
  1922. END
  1923. END
  1924. END
  1925. END
  1926. ELSE END
  1927. | '8':
  1928. CASE s[10] OF
  1929. | 0X: x := 24
  1930. | ':':
  1931. IF s[11] = '1' THEN
  1932. IF s[12] = '9' THEN
  1933. IF s[13] = '8' THEN
  1934. IF s[14] = '8' THEN
  1935. IF s[15] = 0X THEN x := 24 END
  1936. END
  1937. END
  1938. END
  1939. END
  1940. ELSE END
  1941. ELSE END
  1942. END
  1943. END
  1944. END
  1945. END
  1946. | '6':
  1947. IF s[5] = '4' THEN
  1948. IF s[6] = '6' THEN
  1949. IF s[7] = '.' THEN
  1950. IF s[8] = 'I' THEN
  1951. IF s[9] = 'R' THEN
  1952. IF s[10] = 'V' THEN
  1953. IF s[11] = ':' THEN
  1954. IF s[12] = '1' THEN
  1955. IF s[13] = '9' THEN
  1956. IF s[14] = '9' THEN
  1957. IF s[15] = '1' THEN
  1958. IF s[16] = 0X THEN x := 0 END
  1959. END
  1960. END
  1961. END
  1962. END
  1963. END
  1964. END
  1965. END
  1966. END
  1967. END
  1968. END
  1969. END
  1970. ELSE END
  1971. | '6':
  1972. IF s[4] = '4' THEN
  1973. IF s[5] = '6' THEN
  1974. IF s[6] = '-' THEN
  1975. CASE s[7] OF
  1976. | 'C':
  1977. IF s[8] = 'N' THEN
  1978. IF s[9] = 0X THEN x := 76 END
  1979. END
  1980. | 'J':
  1981. IF s[8] = 'P' THEN
  1982. IF s[9] = 0X THEN x := 72 END
  1983. END
  1984. | 'U':
  1985. IF s[8] = 'S' THEN
  1986. IF s[9] = 0X THEN x := 0 END
  1987. END
  1988. ELSE END
  1989. END
  1990. END
  1991. END
  1992. ELSE END
  1993. END
  1994. | 'B':
  1995. IF s[2] = 'M' THEN
  1996. CASE s[3] OF
  1997. | '-':
  1998. CASE s[4] OF
  1999. | '1':
  2000. IF s[5] = '1' THEN
  2001. IF s[6] = '6' THEN
  2002. CASE s[7] OF
  2003. | '1':
  2004. IF s[8] = 0X THEN x := 110 END
  2005. | '3':
  2006. IF s[8] = 0X THEN x := 112 END
  2007. | '2':
  2008. IF s[8] = 0X THEN x := 111 END
  2009. ELSE END
  2010. END
  2011. END
  2012. | 'C':
  2013. IF s[5] = 'P' THEN
  2014. IF s[6] = '1' THEN
  2015. IF s[7] = '1' THEN
  2016. IF s[8] = '3' THEN
  2017. IF s[9] = '3' THEN
  2018. IF s[10] = 0X THEN x := 68 END
  2019. END
  2020. END
  2021. END
  2022. END
  2023. END
  2024. ELSE END
  2025. | '1':
  2026. IF s[4] = '1' THEN
  2027. IF s[5] = '6' THEN
  2028. CASE s[6] OF
  2029. | '1':
  2030. IF s[7] = 0X THEN x := 110 END
  2031. | '3':
  2032. IF s[7] = 0X THEN x := 112 END
  2033. | '2':
  2034. IF s[7] = 0X THEN x := 111 END
  2035. ELSE END
  2036. END
  2037. END
  2038. | '3':
  2039. IF s[4] = '6' THEN
  2040. IF s[5] = '7' THEN
  2041. IF s[6] = 0X THEN x := 0 END
  2042. END
  2043. END
  2044. | '4':
  2045. IF s[4] = '3' THEN
  2046. IF s[5] = '7' THEN
  2047. IF s[6] = 0X THEN x := 115 END
  2048. END
  2049. END
  2050. | '7':
  2051. IF s[4] = '7' THEN
  2052. IF s[5] = '5' THEN
  2053. IF s[6] = 0X THEN x := 117 END
  2054. END
  2055. END
  2056. | '8':
  2057. CASE s[4] OF
  2058. | '1':
  2059. IF s[5] = '9' THEN
  2060. IF s[6] = 0X THEN x := 17 END
  2061. END
  2062. | '5':
  2063. CASE s[5] OF
  2064. | '0':
  2065. IF s[6] = 0X THEN x := 43 END
  2066. | '2':
  2067. IF s[6] = 0X THEN x := 118 END
  2068. | '5':
  2069. IF s[6] = 0X THEN x := 120 END
  2070. | '7':
  2071. IF s[6] = 0X THEN x := 121 END
  2072. ELSE END
  2073. | '6':
  2074. CASE s[5] OF
  2075. | '1':
  2076. IF s[6] = 0X THEN x := 124 END
  2077. | '0':
  2078. IF s[6] = 0X THEN x := 123 END
  2079. | '3':
  2080. IF s[6] = 0X THEN x := 125 END
  2081. | '2':
  2082. IF s[6] = 0X THEN x := 44 END
  2083. | '5':
  2084. IF s[6] = 0X THEN x := 127 END
  2085. | '4':
  2086. IF s[6] = 0X THEN x := 126 END
  2087. | '6':
  2088. IF s[6] = 0X THEN x := 45 END
  2089. | '9':
  2090. IF s[6] = 0X THEN x := 128 END
  2091. ELSE END
  2092. ELSE END
  2093. ELSE END
  2094. END
  2095. ELSE END
  2096. | 'H':
  2097. CASE s[1] OF
  2098. | 'P':
  2099. IF s[2] = '-' THEN
  2100. IF s[3] = 'R' THEN
  2101. IF s[4] = 'O' THEN
  2102. IF s[5] = 'M' THEN
  2103. IF s[6] = 'A' THEN
  2104. IF s[7] = 'N' THEN
  2105. IF s[8] = '8' THEN
  2106. IF s[9] = 0X THEN x := 59 END
  2107. END
  2108. END
  2109. END
  2110. END
  2111. END
  2112. END
  2113. END
  2114. | 'Z':
  2115. CASE s[2] OF
  2116. | 0X: x := 92
  2117. | '-':
  2118. IF s[3] = 'G' THEN
  2119. IF s[4] = 'B' THEN
  2120. IF s[5] = '-' THEN
  2121. IF s[6] = '2' THEN
  2122. IF s[7] = '3' THEN
  2123. IF s[8] = '1' THEN
  2124. IF s[9] = '2' THEN
  2125. IF s[10] = 0X THEN x := 92 END
  2126. END
  2127. END
  2128. END
  2129. END
  2130. END
  2131. END
  2132. END
  2133. ELSE END
  2134. | 'E':
  2135. IF s[2] = 'B' THEN
  2136. IF s[3] = 'R' THEN
  2137. IF s[4] = 'E' THEN
  2138. IF s[5] = 'W' THEN
  2139. IF s[6] = 0X THEN x := 24 END
  2140. END
  2141. END
  2142. END
  2143. END
  2144. ELSE END
  2145. | 'K':
  2146. CASE s[1] OF
  2147. | 'P':
  2148. IF s[2] = 'S' THEN
  2149. IF s[3] = '9' THEN
  2150. IF s[4] = '5' THEN
  2151. IF s[5] = '6' THEN
  2152. IF s[6] = '6' THEN
  2153. IF s[7] = 0X THEN x := 137 END
  2154. END
  2155. END
  2156. END
  2157. END
  2158. END
  2159. | 'S':
  2160. CASE s[2] OF
  2161. | 'C':
  2162. IF s[3] = '_' THEN
  2163. IF s[4] = '5' THEN
  2164. IF s[5] = '6' THEN
  2165. IF s[6] = '0' THEN
  2166. IF s[7] = '1' THEN
  2167. IF s[8] = 0X THEN x := 79 END
  2168. END
  2169. END
  2170. END
  2171. END
  2172. END
  2173. | '_':
  2174. IF s[3] = 'C' THEN
  2175. IF s[4] = '_' THEN
  2176. IF s[5] = '5' THEN
  2177. IF s[6] = '6' THEN
  2178. IF s[7] = '0' THEN
  2179. IF s[8] = '1' THEN
  2180. IF s[9] = '-' THEN
  2181. IF s[10] = '1' THEN
  2182. IF s[11] = '9' THEN
  2183. IF s[12] = '8' THEN
  2184. CASE s[13] OF
  2185. | '9':
  2186. IF s[14] = 0X THEN x := 79 END
  2187. | '7':
  2188. IF s[14] = 0X THEN x := 79 END
  2189. ELSE END
  2190. END
  2191. END
  2192. END
  2193. END
  2194. END
  2195. END
  2196. END
  2197. END
  2198. END
  2199. END
  2200. ELSE END
  2201. | 'Z':
  2202. IF s[2] = '-' THEN
  2203. IF s[3] = '1' THEN
  2204. IF s[4] = '0' THEN
  2205. IF s[5] = '4' THEN
  2206. IF s[6] = '8' THEN
  2207. IF s[7] = 0X THEN x := 66 END
  2208. END
  2209. END
  2210. END
  2211. END
  2212. END
  2213. | 'O':
  2214. CASE s[2] OF
  2215. | 'I':
  2216. IF s[3] = '8' THEN
  2217. IF s[4] = '-' THEN
  2218. CASE s[5] OF
  2219. | 'R':
  2220. IF s[6] = 0X THEN x := 32 END
  2221. | 'U':
  2222. IF s[6] = 0X THEN x := 33 END
  2223. | 'T':
  2224. IF s[6] = 0X THEN x := 64 END
  2225. ELSE END
  2226. END
  2227. END
  2228. | 'R':
  2229. IF s[3] = 'E' THEN
  2230. IF s[4] = 'A' THEN
  2231. IF s[5] = 'N' THEN
  2232. IF s[6] = 0X THEN x := 79 END
  2233. END
  2234. END
  2235. END
  2236. ELSE END
  2237. ELSE END
  2238. | 'J':
  2239. CASE s[1] OF
  2240. | 'I':
  2241. IF s[2] = 'S' THEN
  2242. CASE s[3] OF
  2243. | 'X':
  2244. IF s[4] = '0' THEN
  2245. IF s[5] = '2' THEN
  2246. IF s[6] = '0' THEN
  2247. IF s[7] = '1' THEN
  2248. IF s[8] = '-' THEN
  2249. IF s[9] = '1' THEN
  2250. IF s[10] = '9' THEN
  2251. IF s[11] = '7' THEN
  2252. IF s[12] = '6' THEN
  2253. IF s[13] = 0X THEN x := 73 END
  2254. END
  2255. END
  2256. END
  2257. END
  2258. END
  2259. END
  2260. END
  2261. END
  2262. END
  2263. | '_':
  2264. CASE s[4] OF
  2265. | 'X':
  2266. IF s[5] = '0' THEN
  2267. IF s[6] = '2' THEN
  2268. CASE s[7] OF
  2269. | '1':
  2270. IF s[8] = '2' THEN
  2271. CASE s[9] OF
  2272. | 0X: x := 75
  2273. | '-':
  2274. IF s[10] = '1' THEN
  2275. IF s[11] = '9' THEN
  2276. IF s[12] = '9' THEN
  2277. IF s[13] = '0' THEN
  2278. IF s[14] = 0X THEN x := 75 END
  2279. END
  2280. END
  2281. END
  2282. END
  2283. | '.':
  2284. IF s[10] = '1' THEN
  2285. IF s[11] = '9' THEN
  2286. IF s[12] = '9' THEN
  2287. IF s[13] = '0' THEN
  2288. IF s[14] = '-' THEN
  2289. IF s[15] = '0' THEN
  2290. IF s[16] = 0X THEN x := 75 END
  2291. END
  2292. END
  2293. END
  2294. END
  2295. END
  2296. END
  2297. ELSE END
  2298. END
  2299. | '0':
  2300. CASE s[8] OF
  2301. | '1':
  2302. IF s[9] = 0X THEN x := 73 END
  2303. | '8':
  2304. CASE s[9] OF
  2305. | 0X: x := 74
  2306. | '-':
  2307. IF s[10] = '1' THEN
  2308. IF s[11] = '9' THEN
  2309. CASE s[12] OF
  2310. | '9':
  2311. IF s[13] = '0' THEN
  2312. IF s[14] = 0X THEN x := 74 END
  2313. END
  2314. | '8':
  2315. IF s[13] = '3' THEN
  2316. IF s[14] = 0X THEN x := 74 END
  2317. END
  2318. ELSE END
  2319. END
  2320. END
  2321. ELSE END
  2322. ELSE END
  2323. ELSE END
  2324. END
  2325. END
  2326. | 'C':
  2327. IF s[5] = '6' THEN
  2328. IF s[6] = '2' THEN
  2329. IF s[7] = '2' THEN
  2330. CASE s[8] OF
  2331. | '0':
  2332. IF s[9] = '-' THEN
  2333. IF s[10] = '1' THEN
  2334. IF s[11] = '9' THEN
  2335. IF s[12] = '6' THEN
  2336. IF s[13] = '9' THEN
  2337. IF s[14] = '-' THEN
  2338. IF s[15] = 'R' THEN
  2339. IF s[16] = 'O' THEN
  2340. IF s[17] = 0X THEN x := 72 END
  2341. END
  2342. END
  2343. END
  2344. END
  2345. END
  2346. END
  2347. END
  2348. END
  2349. | '6':
  2350. IF s[9] = '-' THEN
  2351. IF s[10] = '1' THEN
  2352. IF s[11] = '9' THEN
  2353. IF s[12] = '8' THEN
  2354. IF s[13] = '3' THEN
  2355. IF s[14] = 0X THEN x := 74 END
  2356. END
  2357. END
  2358. END
  2359. END
  2360. END
  2361. ELSE END
  2362. END
  2363. END
  2364. END
  2365. ELSE END
  2366. | '0':
  2367. IF s[4] = '2' THEN
  2368. IF s[5] = '0' THEN
  2369. IF s[6] = '8' THEN
  2370. IF s[7] = 0X THEN x := 74 END
  2371. END
  2372. END
  2373. END
  2374. ELSE END
  2375. END
  2376. | 'P':
  2377. IF s[2] = 0X THEN x := 72 END
  2378. | 'A':
  2379. IF s[2] = 'V' THEN
  2380. IF s[3] = 'A' THEN
  2381. IF s[4] = 0X THEN x := 16 END
  2382. END
  2383. END
  2384. | 'O':
  2385. IF s[2] = 'H' THEN
  2386. IF s[3] = 'A' THEN
  2387. IF s[4] = 'B' THEN
  2388. IF s[5] = 0X THEN x := 102 END
  2389. END
  2390. END
  2391. END
  2392. ELSE END
  2393. | 'M':
  2394. CASE s[1] OF
  2395. | 'A':
  2396. IF s[2] = 'C' THEN
  2397. CASE s[3] OF
  2398. | 0X: x := 47
  2399. | 'A':
  2400. IF s[4] = 'R' THEN
  2401. IF s[5] = 'A' THEN
  2402. IF s[6] = 'B' THEN
  2403. IF s[7] = 'I' THEN
  2404. IF s[8] = 'C' THEN
  2405. IF s[9] = 0X THEN x := 57 END
  2406. END
  2407. END
  2408. END
  2409. END
  2410. END
  2411. | 'C':
  2412. CASE s[4] OF
  2413. | 'Y':
  2414. IF s[5] = 'R' THEN
  2415. IF s[6] = 'I' THEN
  2416. IF s[7] = 'L' THEN
  2417. IF s[8] = 'L' THEN
  2418. IF s[9] = 'I' THEN
  2419. IF s[10] = 'C' THEN
  2420. IF s[11] = 0X THEN x := 52 END
  2421. END
  2422. END
  2423. END
  2424. END
  2425. END
  2426. END
  2427. | 'R':
  2428. IF s[5] = 'O' THEN
  2429. IF s[6] = 'A' THEN
  2430. IF s[7] = 'T' THEN
  2431. IF s[8] = 'I' THEN
  2432. IF s[9] = 'A' THEN
  2433. IF s[10] = 'N' THEN
  2434. IF s[11] = 0X THEN x := 50 END
  2435. END
  2436. END
  2437. END
  2438. END
  2439. END
  2440. END
  2441. | 'E':
  2442. IF s[5] = 'N' THEN
  2443. IF s[6] = 'T' THEN
  2444. IF s[7] = 'R' THEN
  2445. IF s[8] = 'A' THEN
  2446. IF s[9] = 'L' THEN
  2447. IF s[10] = 'E' THEN
  2448. IF s[11] = 'U' THEN
  2449. IF s[12] = 'R' THEN
  2450. IF s[13] = 'O' THEN
  2451. IF s[14] = 'P' THEN
  2452. IF s[15] = 'E' THEN
  2453. IF s[16] = 0X THEN x := 48 END
  2454. END
  2455. END
  2456. END
  2457. END
  2458. END
  2459. END
  2460. END
  2461. END
  2462. END
  2463. END
  2464. END
  2465. ELSE END
  2466. | 'G':
  2467. IF s[4] = 'R' THEN
  2468. IF s[5] = 'E' THEN
  2469. IF s[6] = 'E' THEN
  2470. IF s[7] = 'K' THEN
  2471. IF s[8] = 0X THEN x := 54 END
  2472. END
  2473. END
  2474. END
  2475. END
  2476. | 'I':
  2477. CASE s[4] OF
  2478. | 'C':
  2479. IF s[5] = 'E' THEN
  2480. IF s[6] = 'L' THEN
  2481. IF s[7] = 'A' THEN
  2482. IF s[8] = 'N' THEN
  2483. IF s[9] = 'D' THEN
  2484. IF s[10] = 0X THEN x := 49 END
  2485. END
  2486. END
  2487. END
  2488. END
  2489. END
  2490. | 'N':
  2491. IF s[5] = 'T' THEN
  2492. IF s[6] = 'O' THEN
  2493. IF s[7] = 'S' THEN
  2494. IF s[8] = 'H' THEN
  2495. IF s[9] = 0X THEN x := 47 END
  2496. END
  2497. END
  2498. END
  2499. END
  2500. ELSE END
  2501. | 'H':
  2502. IF s[4] = 'E' THEN
  2503. IF s[5] = 'B' THEN
  2504. IF s[6] = 'R' THEN
  2505. IF s[7] = 'E' THEN
  2506. IF s[8] = 'W' THEN
  2507. IF s[9] = 0X THEN x := 56 END
  2508. END
  2509. END
  2510. END
  2511. END
  2512. END
  2513. | 'R':
  2514. IF s[4] = 'O' THEN
  2515. IF s[5] = 'M' THEN
  2516. IF s[6] = 'A' THEN
  2517. IF s[7] = 'N' THEN
  2518. CASE s[8] OF
  2519. | 0X: x := 47
  2520. | 'I':
  2521. IF s[9] = 'A' THEN
  2522. IF s[10] = 0X THEN x := 51 END
  2523. END
  2524. ELSE END
  2525. END
  2526. END
  2527. END
  2528. END
  2529. | 'U':
  2530. IF s[4] = 'K' THEN
  2531. IF s[5] = 'R' THEN
  2532. IF s[6] = 'A' THEN
  2533. IF s[7] = 'I' THEN
  2534. IF s[8] = 'N' THEN
  2535. IF s[9] = 'E' THEN
  2536. IF s[10] = 0X THEN x := 53 END
  2537. END
  2538. END
  2539. END
  2540. END
  2541. END
  2542. END
  2543. | 'T':
  2544. CASE s[4] OF
  2545. | 'H':
  2546. IF s[5] = 'A' THEN
  2547. IF s[6] = 'I' THEN
  2548. IF s[7] = 0X THEN x := 58 END
  2549. END
  2550. END
  2551. | 'U':
  2552. IF s[5] = 'R' THEN
  2553. IF s[6] = 'K' THEN
  2554. IF s[7] = 'I' THEN
  2555. IF s[8] = 'S' THEN
  2556. IF s[9] = 'H' THEN
  2557. IF s[10] = 0X THEN x := 55 END
  2558. END
  2559. END
  2560. END
  2561. END
  2562. END
  2563. ELSE END
  2564. ELSE END
  2565. END
  2566. | 'S':
  2567. CASE s[2] OF
  2568. | '9':
  2569. IF s[3] = '3' THEN
  2570. IF s[4] = '6' THEN
  2571. IF s[5] = 0X THEN x := 88 END
  2572. END
  2573. END
  2574. | '-':
  2575. CASE s[3] OF
  2576. | 'A':
  2577. CASE s[4] OF
  2578. | 'R':
  2579. IF s[5] = 'A' THEN
  2580. IF s[6] = 'B' THEN
  2581. IF s[7] = 0X THEN x := 40 END
  2582. END
  2583. END
  2584. | 'N':
  2585. IF s[5] = 'S' THEN
  2586. IF s[6] = 'I' THEN
  2587. IF s[7] = 0X THEN x := 36 END
  2588. END
  2589. END
  2590. ELSE END
  2591. | 'C':
  2592. IF s[4] = 'Y' THEN
  2593. IF s[5] = 'R' THEN
  2594. IF s[6] = 'L' THEN
  2595. IF s[7] = 0X THEN x := 35 END
  2596. END
  2597. END
  2598. END
  2599. | 'E':
  2600. IF s[4] = 'E' THEN
  2601. IF s[5] = 0X THEN x := 34 END
  2602. END
  2603. | 'G':
  2604. IF s[4] = 'R' THEN
  2605. IF s[5] = 'E' THEN
  2606. IF s[6] = 'E' THEN
  2607. IF s[7] = 'K' THEN
  2608. IF s[8] = 0X THEN x := 37 END
  2609. END
  2610. END
  2611. END
  2612. END
  2613. | 'H':
  2614. IF s[4] = 'E' THEN
  2615. IF s[5] = 'B' THEN
  2616. IF s[6] = 'R' THEN
  2617. IF s[7] = 0X THEN x := 39 END
  2618. END
  2619. END
  2620. END
  2621. | 'T':
  2622. IF s[4] = 'U' THEN
  2623. IF s[5] = 'R' THEN
  2624. IF s[6] = 'K' THEN
  2625. IF s[7] = 0X THEN x := 38 END
  2626. END
  2627. END
  2628. END
  2629. ELSE END
  2630. | '_':
  2631. IF s[3] = 'K' THEN
  2632. IF s[4] = 'A' THEN
  2633. IF s[5] = 'N' THEN
  2634. IF s[6] = 'J' THEN
  2635. IF s[7] = 'I' THEN
  2636. IF s[8] = 0X THEN x := 81 END
  2637. END
  2638. END
  2639. END
  2640. END
  2641. END
  2642. ELSE END
  2643. | 'U':
  2644. IF s[2] = 'L' THEN
  2645. IF s[3] = 'E' THEN
  2646. IF s[4] = 'L' THEN
  2647. IF s[5] = 'A' THEN
  2648. IF s[6] = 'O' THEN
  2649. IF s[7] = '-' THEN
  2650. IF s[8] = '1' THEN
  2651. IF s[9] = 0X THEN x := 67 END
  2652. END
  2653. END
  2654. END
  2655. END
  2656. END
  2657. END
  2658. END
  2659. ELSE END
  2660. | 'L':
  2661. CASE s[1] OF
  2662. | 'A':
  2663. IF s[2] = 'T' THEN
  2664. IF s[3] = 'I' THEN
  2665. IF s[4] = 'N' THEN
  2666. CASE s[5] OF
  2667. | '-':
  2668. IF s[6] = '9' THEN
  2669. IF s[7] = 0X THEN x := 30 END
  2670. END
  2671. | '1':
  2672. CASE s[6] OF
  2673. | 0X: x := 17
  2674. | '0':
  2675. IF s[7] = 0X THEN x := 31 END
  2676. ELSE END
  2677. | '3':
  2678. IF s[6] = 0X THEN x := 19 END
  2679. | '2':
  2680. IF s[6] = 0X THEN x := 18 END
  2681. | '5':
  2682. IF s[6] = 0X THEN x := 25 END
  2683. | '4':
  2684. IF s[6] = 0X THEN x := 20 END
  2685. | '7':
  2686. IF s[6] = 0X THEN x := 28 END
  2687. | '6':
  2688. IF s[6] = 0X THEN x := 26 END
  2689. | '8':
  2690. IF s[6] = 0X THEN x := 29 END
  2691. ELSE END
  2692. END
  2693. END
  2694. END
  2695. | '1':
  2696. CASE s[2] OF
  2697. | 0X: x := 17
  2698. | '0':
  2699. IF s[3] = 0X THEN x := 31 END
  2700. ELSE END
  2701. | '3':
  2702. IF s[2] = 0X THEN x := 19 END
  2703. | '2':
  2704. IF s[2] = 0X THEN x := 18 END
  2705. | '5':
  2706. IF s[2] = 0X THEN x := 25 END
  2707. | '4':
  2708. IF s[2] = 0X THEN x := 20 END
  2709. | '7':
  2710. IF s[2] = 0X THEN x := 28 END
  2711. | '6':
  2712. IF s[2] = 0X THEN x := 26 END
  2713. | '8':
  2714. IF s[2] = 0X THEN x := 29 END
  2715. ELSE END
  2716. | 'N':
  2717. IF s[1] = 'E' THEN
  2718. IF s[2] = 'X' THEN
  2719. IF s[3] = 'T' THEN
  2720. IF s[4] = 'S' THEN
  2721. IF s[5] = 'T' THEN
  2722. IF s[6] = 'E' THEN
  2723. IF s[7] = 'P' THEN
  2724. IF s[8] = 0X THEN x := 60 END
  2725. END
  2726. END
  2727. END
  2728. END
  2729. END
  2730. END
  2731. END
  2732. | 'P':
  2733. IF s[1] = 'T' THEN
  2734. CASE s[2] OF
  2735. | '1':
  2736. IF s[3] = '5' THEN
  2737. IF s[4] = '4' THEN
  2738. IF s[5] = 0X THEN x := 65 END
  2739. END
  2740. END
  2741. | 'C':
  2742. IF s[3] = 'P' THEN
  2743. IF s[4] = '1' THEN
  2744. IF s[5] = '5' THEN
  2745. IF s[6] = '4' THEN
  2746. IF s[7] = 0X THEN x := 65 END
  2747. END
  2748. END
  2749. END
  2750. END
  2751. ELSE END
  2752. END
  2753. | 'S':
  2754. CASE s[1] OF
  2755. | 'H':
  2756. IF s[2] = 'I' THEN
  2757. IF s[3] = 'F' THEN
  2758. IF s[4] = 'T' THEN
  2759. CASE s[5] OF
  2760. | '-':
  2761. IF s[6] = 'J' THEN
  2762. IF s[7] = 'I' THEN
  2763. IF s[8] = 'S' THEN
  2764. IF s[9] = 0X THEN x := 81 END
  2765. END
  2766. END
  2767. END
  2768. | '_':
  2769. IF s[6] = 'J' THEN
  2770. IF s[7] = 'I' THEN
  2771. IF s[8] = 'S' THEN
  2772. CASE s[9] OF
  2773. | 0X: x := 81
  2774. | 'X':
  2775. IF s[10] = '0' THEN
  2776. IF s[11] = '2' THEN
  2777. IF s[12] = '1' THEN
  2778. IF s[13] = '3' THEN
  2779. IF s[14] = 0X THEN x := 131 END
  2780. END
  2781. END
  2782. END
  2783. END
  2784. | '-':
  2785. IF s[10] = '2' THEN
  2786. IF s[11] = '0' THEN
  2787. IF s[12] = '0' THEN
  2788. IF s[13] = '4' THEN
  2789. IF s[14] = 0X THEN x := 131 END
  2790. END
  2791. END
  2792. END
  2793. END
  2794. ELSE END
  2795. END
  2796. END
  2797. END
  2798. ELSE END
  2799. END
  2800. END
  2801. END
  2802. | 'J':
  2803. IF s[2] = 'I' THEN
  2804. IF s[3] = 'S' THEN
  2805. IF s[4] = 0X THEN x := 81 END
  2806. END
  2807. END
  2808. | 'T':
  2809. IF s[2] = 'R' THEN
  2810. IF s[3] = 'K' THEN
  2811. IF s[4] = '1' THEN
  2812. IF s[5] = '0' THEN
  2813. IF s[6] = '4' THEN
  2814. IF s[7] = '8' THEN
  2815. IF s[8] = '-' THEN
  2816. IF s[9] = '2' THEN
  2817. IF s[10] = '0' THEN
  2818. IF s[11] = '0' THEN
  2819. IF s[12] = '2' THEN
  2820. IF s[13] = 0X THEN x := 66 END
  2821. END
  2822. END
  2823. END
  2824. END
  2825. END
  2826. END
  2827. END
  2828. END
  2829. END
  2830. END
  2831. END
  2832. ELSE END
  2833. | 'R':
  2834. CASE s[1] OF
  2835. | 'I':
  2836. IF s[2] = 'S' THEN
  2837. IF s[3] = 'C' THEN
  2838. IF s[4] = 'O' THEN
  2839. IF s[5] = 'S' THEN
  2840. IF s[6] = '-' THEN
  2841. IF s[7] = 'L' THEN
  2842. IF s[8] = 'A' THEN
  2843. IF s[9] = 'T' THEN
  2844. IF s[10] = 'I' THEN
  2845. IF s[11] = 'N' THEN
  2846. IF s[12] = '1' THEN
  2847. IF s[13] = 0X THEN x := 136 END
  2848. END
  2849. END
  2850. END
  2851. END
  2852. END
  2853. END
  2854. END
  2855. END
  2856. END
  2857. END
  2858. END
  2859. | '8':
  2860. IF s[2] = 0X THEN x := 59 END
  2861. | 'K':
  2862. IF s[2] = '1' THEN
  2863. IF s[3] = '0' THEN
  2864. IF s[4] = '4' THEN
  2865. IF s[5] = '8' THEN
  2866. IF s[6] = 0X THEN x := 66 END
  2867. END
  2868. END
  2869. END
  2870. END
  2871. | 'O':
  2872. IF s[2] = 'M' THEN
  2873. IF s[3] = 'A' THEN
  2874. IF s[4] = 'N' THEN
  2875. IF s[5] = '8' THEN
  2876. IF s[6] = 0X THEN x := 59 END
  2877. END
  2878. END
  2879. END
  2880. END
  2881. ELSE END
  2882. | 'U':
  2883. CASE s[1] OF
  2884. | 'S':
  2885. CASE s[2] OF
  2886. | 0X: x := 0
  2887. | '-':
  2888. IF s[3] = 'A' THEN
  2889. IF s[4] = 'S' THEN
  2890. IF s[5] = 'C' THEN
  2891. IF s[6] = 'I' THEN
  2892. IF s[7] = 'I' THEN
  2893. IF s[8] = 0X THEN x := 0 END
  2894. END
  2895. END
  2896. END
  2897. END
  2898. END
  2899. ELSE END
  2900. | 'H':
  2901. IF s[2] = 'C' THEN
  2902. IF s[3] = 0X THEN x := 101 END
  2903. END
  2904. | 'C':
  2905. IF s[2] = 'S' THEN
  2906. IF s[3] = '-' THEN
  2907. CASE s[4] OF
  2908. | '2':
  2909. CASE s[5] OF
  2910. | 0X: x := 2
  2911. | 'B':
  2912. IF s[6] = 'E' THEN
  2913. IF s[7] = 0X THEN x := 3 END
  2914. END
  2915. | 'L':
  2916. IF s[6] = 'E' THEN
  2917. IF s[7] = 0X THEN x := 4 END
  2918. END
  2919. ELSE END
  2920. | '4':
  2921. CASE s[5] OF
  2922. | 0X: x := 5
  2923. | 'B':
  2924. IF s[6] = 'E' THEN
  2925. IF s[7] = 0X THEN x := 6 END
  2926. END
  2927. | 'L':
  2928. IF s[6] = 'E' THEN
  2929. IF s[7] = 0X THEN x := 7 END
  2930. END
  2931. ELSE END
  2932. ELSE END
  2933. END
  2934. END
  2935. | 'T':
  2936. IF s[2] = 'F' THEN
  2937. CASE s[3] OF
  2938. | '8':
  2939. IF s[4] = 0X THEN x := 1 END
  2940. | '-':
  2941. CASE s[4] OF
  2942. | '1':
  2943. IF s[5] = '6' THEN
  2944. CASE s[6] OF
  2945. | 0X: x := 8
  2946. | 'B':
  2947. IF s[7] = 'E' THEN
  2948. IF s[8] = 0X THEN x := 9 END
  2949. END
  2950. | 'L':
  2951. IF s[7] = 'E' THEN
  2952. IF s[8] = 0X THEN x := 10 END
  2953. END
  2954. ELSE END
  2955. END
  2956. | '8':
  2957. IF s[5] = 0X THEN x := 1 END
  2958. | '3':
  2959. IF s[5] = '2' THEN
  2960. CASE s[6] OF
  2961. | 0X: x := 11
  2962. | 'B':
  2963. IF s[7] = 'E' THEN
  2964. IF s[8] = 0X THEN x := 12 END
  2965. END
  2966. | 'L':
  2967. IF s[7] = 'E' THEN
  2968. IF s[8] = 0X THEN x := 13 END
  2969. END
  2970. ELSE END
  2971. END
  2972. | '7':
  2973. IF s[5] = 0X THEN x := 14 END
  2974. ELSE END
  2975. ELSE END
  2976. END
  2977. | 'N':
  2978. IF s[2] = 'I' THEN
  2979. IF s[3] = 'C' THEN
  2980. IF s[4] = 'O' THEN
  2981. IF s[5] = 'D' THEN
  2982. IF s[6] = 'E' THEN
  2983. CASE s[7] OF
  2984. | 'B':
  2985. IF s[8] = 'I' THEN
  2986. IF s[9] = 'G' THEN
  2987. IF s[10] = 0X THEN x := 3 END
  2988. END
  2989. END
  2990. | '-':
  2991. IF s[8] = '1' THEN
  2992. IF s[9] = '-' THEN
  2993. IF s[10] = '1' THEN
  2994. CASE s[11] OF
  2995. | 0X: x := 3
  2996. | '-':
  2997. IF s[12] = 'U' THEN
  2998. IF s[13] = 'T' THEN
  2999. IF s[14] = 'F' THEN
  3000. IF s[15] = '-' THEN
  3001. IF s[16] = '7' THEN
  3002. IF s[17] = 0X THEN x := 14 END
  3003. END
  3004. END
  3005. END
  3006. END
  3007. END
  3008. ELSE END
  3009. END
  3010. END
  3011. END
  3012. | 'L':
  3013. IF s[8] = 'I' THEN
  3014. IF s[9] = 'T' THEN
  3015. IF s[10] = 'T' THEN
  3016. IF s[11] = 'L' THEN
  3017. IF s[12] = 'E' THEN
  3018. IF s[13] = 0X THEN x := 4 END
  3019. END
  3020. END
  3021. END
  3022. END
  3023. END
  3024. ELSE END
  3025. END
  3026. END
  3027. END
  3028. END
  3029. END
  3030. ELSE END
  3031. | 'T':
  3032. CASE s[1] OF
  3033. | 'C':
  3034. IF s[2] = 'V' THEN
  3035. IF s[3] = 'N' THEN
  3036. CASE s[4] OF
  3037. | 0X: x := 71
  3038. | '-':
  3039. IF s[5] = '5' THEN
  3040. IF s[6] = '7' THEN
  3041. IF s[7] = '1' THEN
  3042. IF s[8] = '2' THEN
  3043. IF s[9] = 0X THEN x := 71 END
  3044. END
  3045. END
  3046. END
  3047. END
  3048. | '5':
  3049. IF s[5] = '7' THEN
  3050. IF s[6] = '1' THEN
  3051. IF s[7] = '2' THEN
  3052. IF s[8] = '-' THEN
  3053. IF s[9] = '1' THEN
  3054. CASE s[10] OF
  3055. | 0X: x := 71
  3056. | ':':
  3057. IF s[11] = '1' THEN
  3058. IF s[12] = '9' THEN
  3059. IF s[13] = '9' THEN
  3060. IF s[14] = '3' THEN
  3061. IF s[15] = 0X THEN x := 71 END
  3062. END
  3063. END
  3064. END
  3065. END
  3066. ELSE END
  3067. END
  3068. END
  3069. END
  3070. END
  3071. END
  3072. ELSE END
  3073. END
  3074. END
  3075. | 'D':
  3076. IF s[2] = 'S' THEN
  3077. IF s[3] = '5' THEN
  3078. IF s[4] = '6' THEN
  3079. IF s[5] = '5' THEN
  3080. IF s[6] = 0X THEN x := 134 END
  3081. END
  3082. END
  3083. END
  3084. END
  3085. ELSE END
  3086. | 'W':
  3087. IF s[1] = 'I' THEN
  3088. IF s[2] = 'N' THEN
  3089. CASE s[3] OF
  3090. | 'B':
  3091. IF s[4] = 'A' THEN
  3092. IF s[5] = 'L' THEN
  3093. IF s[6] = 'T' THEN
  3094. IF s[7] = 'R' THEN
  3095. IF s[8] = 'I' THEN
  3096. IF s[9] = 'M' THEN
  3097. IF s[10] = 0X THEN x := 41 END
  3098. END
  3099. END
  3100. END
  3101. END
  3102. END
  3103. END
  3104. | 'D':
  3105. IF s[4] = 'O' THEN
  3106. IF s[5] = 'W' THEN
  3107. IF s[6] = 'S' THEN
  3108. IF s[7] = '-' THEN
  3109. CASE s[8] OF
  3110. | '9':
  3111. IF s[9] = '3' THEN
  3112. IF s[10] = '6' THEN
  3113. IF s[11] = 0X THEN x := 88 END
  3114. END
  3115. END
  3116. | '8':
  3117. IF s[9] = '7' THEN
  3118. IF s[10] = '4' THEN
  3119. IF s[11] = 0X THEN x := 69 END
  3120. END
  3121. END
  3122. | '1':
  3123. IF s[9] = '2' THEN
  3124. IF s[10] = '5' THEN
  3125. CASE s[11] OF
  3126. | '1':
  3127. IF s[12] = 0X THEN x := 35 END
  3128. | '0':
  3129. IF s[12] = 0X THEN x := 34 END
  3130. | '3':
  3131. IF s[12] = 0X THEN x := 37 END
  3132. | '2':
  3133. IF s[12] = 0X THEN x := 36 END
  3134. | '5':
  3135. IF s[12] = 0X THEN x := 39 END
  3136. | '4':
  3137. IF s[12] = 0X THEN x := 38 END
  3138. | '7':
  3139. IF s[12] = 0X THEN x := 41 END
  3140. | '6':
  3141. IF s[12] = 0X THEN x := 40 END
  3142. | '8':
  3143. IF s[12] = 0X THEN x := 42 END
  3144. ELSE END
  3145. END
  3146. END
  3147. ELSE END
  3148. END
  3149. END
  3150. END
  3151. END
  3152. ELSE END
  3153. END
  3154. END
  3155. | 'V':
  3156. IF s[1] = 'I' THEN
  3157. IF s[2] = 'S' THEN
  3158. IF s[3] = 'C' THEN
  3159. IF s[4] = 'I' THEN
  3160. IF s[5] = 'I' THEN
  3161. CASE s[6] OF
  3162. | 0X: x := 70
  3163. | '1':
  3164. IF s[7] = '.' THEN
  3165. IF s[8] = '1' THEN
  3166. IF s[9] = '-' THEN
  3167. IF s[10] = '1' THEN
  3168. IF s[11] = 0X THEN x := 70 END
  3169. END
  3170. END
  3171. END
  3172. END
  3173. ELSE END
  3174. END
  3175. END
  3176. END
  3177. END
  3178. END
  3179. | 'X':
  3180. IF s[1] = '0' THEN
  3181. IF s[2] = '2' THEN
  3182. CASE s[3] OF
  3183. | '1':
  3184. IF s[4] = '2' THEN
  3185. IF s[5] = 0X THEN x := 75 END
  3186. END
  3187. | '0':
  3188. CASE s[4] OF
  3189. | '1':
  3190. IF s[5] = 0X THEN x := 73 END
  3191. | '8':
  3192. IF s[5] = 0X THEN x := 74 END
  3193. ELSE END
  3194. ELSE END
  3195. END
  3196. END
  3197. ELSE END;
  3198. ok := TRUE;
  3199. CASE x OF -1: ok := FALSE
  3200. | 0: r := modPrefix + "ascii"
  3201. | 1: r := modPrefix + "utf_8"
  3202. | 2: r := modPrefix + "ucs_2"
  3203. | 3: r := modPrefix + "ucs_2be"
  3204. | 4: r := modPrefix + "ucs_2le"
  3205. | 5: r := modPrefix + "ucs_4"
  3206. | 6: r := modPrefix + "ucs_4be"
  3207. | 7: r := modPrefix + "ucs_4le"
  3208. | 8: r := modPrefix + "utf_16"
  3209. | 9: r := modPrefix + "utf_16be"
  3210. | 10: r := modPrefix + "utf_16le"
  3211. | 11: r := modPrefix + "utf_32"
  3212. | 12: r := modPrefix + "utf_32be"
  3213. | 13: r := modPrefix + "utf_32le"
  3214. | 14: r := modPrefix + "utf_7"
  3215. | 15: r := modPrefix + "c99"
  3216. | 16: r := modPrefix + "java"
  3217. | 17: r := modPrefix + "iso8858_1"
  3218. | 18: r := modPrefix + "iso8859_2"
  3219. | 19: r := modPrefix + "iso8859_3"
  3220. | 20: r := modPrefix + "iso8859_4"
  3221. | 21: r := modPrefix + "iso8859_5"
  3222. | 22: r := modPrefix + "iso8859_6"
  3223. | 23: r := modPrefix + "iso8859_7"
  3224. | 24: r := modPrefix + "iso8859_8"
  3225. | 25: r := modPrefix + "iso8859_9"
  3226. | 26: r := modPrefix + "iso8859_10"
  3227. | 27: r := modPrefix + "iso8859_11"
  3228. | 28: r := modPrefix + "iso8859_13"
  3229. | 29: r := modPrefix + "iso8859_14"
  3230. | 30: r := modPrefix + "iso8859_15"
  3231. | 31: r := modPrefix + "iso8859_16"
  3232. | 32: r := modPrefix + "koi8_r"
  3233. | 33: r := modPrefix + "koi8_u"
  3234. | 34: r := modPrefix + "cp1250"
  3235. | 35: r := modPrefix + "cp1251"
  3236. | 36: r := modPrefix + "cp1252"
  3237. | 37: r := modPrefix + "cp1253"
  3238. | 38: r := modPrefix + "cp1254"
  3239. | 39: r := modPrefix + "cp1255"
  3240. | 40: r := modPrefix + "cp1256"
  3241. | 41: r := modPrefix + "cp1257"
  3242. | 42: r := modPrefix + "cp1258"
  3243. | 43: r := modPrefix + "cp850"
  3244. | 44: r := modPrefix + "cp862"
  3245. | 45: r := modPrefix + "cp866"
  3246. | 46: r := modPrefix + "cp1131"
  3247. | 47: r := modPrefix + "mac_roman"
  3248. | 48: r := modPrefix + "mac_centraleurope"
  3249. | 49: r := modPrefix + "mac_iceland"
  3250. | 50: r := modPrefix + "mac_croatian"
  3251. | 51: r := modPrefix + "mac_romania"
  3252. | 52: r := modPrefix + "mac_cyrillic"
  3253. | 53: r := modPrefix + "mac_ukraine"
  3254. | 54: r := modPrefix + "mac_greek"
  3255. | 55: r := modPrefix + "mac_turkish"
  3256. | 56: r := modPrefix + "mac_hebrew"
  3257. | 57: r := modPrefix + "mac_abaric"
  3258. | 58: r := modPrefix + "mac_thai"
  3259. | 59: r := modPrefix + "hp_roman8"
  3260. | 60: r := modPrefix + "nextstep"
  3261. | 61: r := modPrefix + "armscii_8"
  3262. | 62: r := modPrefix + "georgian_academy"
  3263. | 63: r := modPrefix + "georgian_ps"
  3264. | 64: r := modPrefix + "koi8_t"
  3265. | 65: r := modPrefix + "ptcp154"
  3266. | 66: r := modPrefix + "kz1048"
  3267. | 67: r := modPrefix + "mulelao_1"
  3268. | 68: r := modPrefix + "cp1133"
  3269. | 69: r := modPrefix + "cp874"
  3270. | 70: r := modPrefix + "viscii"
  3271. | 71: r := modPrefix + "tcvn"
  3272. | 72: r := modPrefix + "iso_ir_14"
  3273. | 73: r := modPrefix + "jis_x0201"
  3274. | 74: r := modPrefix + "jis_x0208"
  3275. | 75: r := modPrefix + "jis_x0212"
  3276. | 76: r := modPrefix + "iso_ir_57"
  3277. | 77: r := modPrefix + "iso_ir_58"
  3278. | 78: r := modPrefix + "iso_ir_165"
  3279. | 79: r := modPrefix + "iso_ir_149"
  3280. | 80: r := modPrefix + "eucjp"
  3281. | 81: r := modPrefix + "sjis"
  3282. | 82: r := modPrefix + "cp932"
  3283. | 83: r := modPrefix + "iso_2022_jp"
  3284. | 84: r := modPrefix + "iso_2022_jp_1"
  3285. | 85: r := modPrefix + "iso_2022_jp_2"
  3286. | 86: r := modPrefix + "gb2312"
  3287. | 87: r := modPrefix + "gbk"
  3288. | 88: r := modPrefix + "cp936"
  3289. | 89: r := modPrefix + "cb18030"
  3290. | 90: r := modPrefix + "iso_2022_cn"
  3291. | 91: r := modPrefix + "iso_2022_cn_ext"
  3292. | 92: r := modPrefix + "hz"
  3293. | 93: r := modPrefix + "euctw"
  3294. | 94: r := modPrefix + "big5"
  3295. | 95: r := modPrefix + "cp950"
  3296. | 96: r := modPrefix + "big5_hkscs_1999"
  3297. | 97: r := modPrefix + "big5_hkscs_2001"
  3298. | 98: r := modPrefix + "big5_hkscs_2004"
  3299. | 99: r := modPrefix + "big5_hkscs"
  3300. | 100: r := modPrefix + "euccr"
  3301. | 101: r := modPrefix + "cp949"
  3302. | 102: r := modPrefix + "cp1361"
  3303. | 103: r := modPrefix + "iso_2022_kr"
  3304. | 104: r := modPrefix + "cp856"
  3305. | 105: r := modPrefix + "cp922"
  3306. | 106: r := modPrefix + "cp943"
  3307. | 107: r := modPrefix + "cp1046"
  3308. | 108: r := modPrefix + "cp1124"
  3309. | 109: r := modPrefix + "cp1129"
  3310. | 110: r := modPrefix + "cp1161"
  3311. | 111: r := modPrefix + "cp1162"
  3312. | 112: r := modPrefix + "cp1163"
  3313. | 113: r := modPrefix + "dec_kanji"
  3314. | 114: r := modPrefix + "dec_hanyu"
  3315. | 115: r := modPrefix + "cp437"
  3316. | 116: r := modPrefix + "cp737"
  3317. | 117: r := modPrefix + "cp775"
  3318. | 118: r := modPrefix + "cp852"
  3319. | 119: r := modPrefix + "cp853"
  3320. | 120: r := modPrefix + "cp855"
  3321. | 121: r := modPrefix + "cp857"
  3322. | 122: r := modPrefix + "cp858"
  3323. | 123: r := modPrefix + "cp860"
  3324. | 124: r := modPrefix + "cp861"
  3325. | 125: r := modPrefix + "cp863"
  3326. | 126: r := modPrefix + "cp864"
  3327. | 127: r := modPrefix + "cp865"
  3328. | 128: r := modPrefix + "cp869"
  3329. | 129: r := modPrefix + "cp1125"
  3330. | 130: r := modPrefix + "euc_jisx0213"
  3331. | 131: r := modPrefix + "shift_jisx0213"
  3332. | 132: r := modPrefix + "iso_2022_jp_3"
  3333. | 133: r := modPrefix + "big5_2003"
  3334. | 134: r := modPrefix + "iso_ir_230"
  3335. | 135: r := modPrefix + "atarist"
  3336. | 136: r := modPrefix + "riscos_latin1"
  3337. | 137: r := modPrefix + "kps9566"
  3338. | 138: r := modPrefix + "cp720"
  3339. END
  3340. END GetModName;
  3341. END EncStdAliases.