Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Others » PD/!EarthData/!RunImage
PD/!EarthData/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Others |
| Filename: | PD/!EarthData/!RunImage |
| Read OK: | ✔ |
| File size: | AA21 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !EarthData.!RunImage
20REM Version 1.00 (01-Jul-1995)
30REM James Bursa 1995
40REM Libraries linked by BlibII
50
60ON ERROR ON ERROR OFF: OSCLI("Error 0 "+REPORT$+" at line "+STR$ERL): END
70
80PROCdim
90task%=FNwimp_initialise("EarthData",b%)
100PROCinit
110pos%=FNiconbaricon
120
130ON ERROR IF FNwimp_error("EarthData",b%)=TRUE THEN PROCwimp_close(task%): END
140
150 REPEAT
160 PROCpoll
170 UNTIL quit%
180
190PROCwimp_close(task%)
200END
210:
220REM Main program loop
230DEFPROCpoll
240SYS "Wimp_Poll",0,b% TO r%
250 CASE r% OF
260 WHEN 0: PROCanimate
270 WHEN 1: PROCredrawinfo
280 WHEN 2: SYS "Wimp_OpenWindow",,b%
290 WHEN 3: SYS "Wimp_CloseWindow",,b%
300 WHEN 6: PROCmouseclick
310 WHEN 9: PROCmenuclick
320 WHEN 17,18: PROCrecieve
330 ENDCASE
340ENDPROC
350:
360REM Recived wimp messages
370DEFPROCrecieve
380 CASE b%!16 OF
390 WHEN 0: quit%=TRUE
400 WHEN &502: PROChelp
410 ENDCASE
420ENDPROC
430:
440REM Called when mouse clicked
450DEFPROCmouseclick
460 CASE b%!12 OF
470 WHEN -2: CASE b%!8 OF
480 WHEN 4: PROCmenu_show(mainmenu%,0,1000): curmenu%=mainmenu%
490 WHEN 2: PROCmenu_iconbar(barmenu%,b%): curmenu%=barmenu%
500 WHEN 1: PROCmenu_show(mainmenu%,0,1000): curmenu%=mainmenu%
510 ENDCASE
520 ENDCASE
530ENDPROC
540:
550REM Menu selection
560DEFPROCmenuclick
570reopen%=TRUE
580SYS "Wimp_DecodeMenu",,curmenu%,b%,c%
590 CASE $c% OF
600 WHEN "Info": PROCmenu_window(wininfo%,b%): reopen%=FALSE
610 WHEN "Quit": quit%=TRUE
620 ENDCASE
630IF reopen% THEN PROCmenu_adjust(c%,curmenu%)
640ENDPROC
650:
660REM Interactive help
670DEFPROChelp
680help%=b%+20
690 CASE b%!32 OF
700 WHEN -2 : $help%="This is the (spinning) EarthData icon.|mEarthData is a world Database.|mClick \s to view the data menus.|m"
710 WHEN wininfo%: $help%="This window gives information about EarthData.|mGood animation, isn't it?|m"
720 OTHERWISE : c%!0=-1: c%!4=-1: c%!8=-1: c%!12=-1: c%!16=-1: c%!20=-1: c%!24=-1: c%!28=-1: c%!32=-1
730 SYS"Wimp_GetMenuState",1,c%,b%!32,b%!36
740 SYS"Wimp_DecodeMenu",,curmenu%,c%,c%
750 CASE $(c%) OF
760 WHEN "Info": $help%="Move the pointer right or click \s to see information about EarthData.|m"
770 WHEN "Quit": $help%="Click \s to quit EarthData.|m(Don't try it!)|m"
780 OTHERWISE : $help%="This is an EarthData menu.|mMove the pointer to view other menus.|mEarthData is a world database."
790 ENDCASE
800 ENDCASE
810b%!0=4+4*INT(20+(LEN($help%))/4): b%!12=b%!8: b%!16=&503
820SYS"Wimp_SendMessage",17,b%,b%!4
830ENDPROC
840:
850REM Redraw info box (scrolling text)
860DEFPROCredrawinfo
870SYS"Wimp_RedrawWindow",,b% TO more%
880SYS"Font_FindFont",,"Homerton.Medium",224,224,0,0 TO fonthandle%
890SYS"Font_SetFont",fonthandle%
900 WHILE more%
910 xorig%=b%!4-b%!20: yorig%=b%!16-b%!24
920 SYS"Font_Paint",,author$,%10000,xorig%+160,yorig%-165
930 SYS"Wimp_GetRectangle",,b% TO more%
940 ENDWHILE
950SYS"Font_LoseFont",fonthandle%
960ENDPROC
970:
980REM Animate spinning Earth and info box
990DEFPROCanimate
1000PROCicon_settext(-1,pos%,"earth"+STR$spriteno%,b%,TRUE)
1010 IF FNwin_open(wininfo%,b%) THEN
1020 PROCicon_setval(wininfo%,8,"Searth"+STR$spriteno%,b%,TRUE)
1030 IF TIME>oldtime%+10 THEN
1040 author$=MID$($authors%,author%,41)
1050 IF LEN(author$)<41 THEN author$+=LEFT$($authors%,41-LEN(author$))
1060 author%+=1: IF author%>LEN($authors%) THEN author%=0
1070 SYS"Wimp_ForceRedraw",wininfo%,160,-174,780,-138
1080 oldtime%=TIME
1090 ENDIF
1100 ENDIF
1110spriteno%-=1: IF spriteno%=0 THEN spriteno%=117
1120ENDPROC
1130:
1140REM ================== Initialisation =======================
1150:
1160REM Dimension memory & initialise variables
1170DEFPROCdim
1180DIM b% 512,ws% 160,c% 256,menspc% 250000,ind% 70000,font% 256,authors% 256
1190wsend%=ws%+160: menspcend%=menspc%+250000
1200mns%=menspc%: mne%=menspcend%: author%=0
1210b%!0=&502: b%!4=0
1220$authors%=" Programming: James Bursa Idea: Francis Bursa Flags: James Bursa Research: Francis Bursa Spinning World: James Bursa Data: Francis Bursa"
1230author$=LEFT$($authors%,41): oldtime%=0
1240ENDPROC
1250:
1260REM Start program
1270DEFPROCinit
1280percentage=0: countries%=245: SYS"Hourglass_Percentage",percentage
1290quit%=FALSE
1300PROCload_templates
1310PROCmain_menu
1320SYS"Hourglass_Smash"
1330PROCclear_screen
1340ENDPROC
1350:
1360REM Create Earth on icon bar
1370DEFFNiconbaricon
1380DIM sprite% 20
1390spriteno%=117
1400$sprite%="earth117"
1410!b%=-1: b%!4=-40: b%!8=-15: b%!12=100: b%!16=100: b%!20=&3102
1420b%!24=sprite%: b%!28=spritearea%: b%!32=11: SYS"Wimp_CreateIcon",,b% TO icon%
1430=icon%
1440:
1450REM Load template file with local sprite area
1460DEFPROCload_templates
1470SYS"OS_File",5,"EarthDataRes:Sprites" TO ,,,,L%
1480DIM spritearea% L%+16: !spritearea%=L%+16: spritearea%!4=0: spritearea%!8=16
1490spritearea%!12=4: SYS "OS_SpriteOp",&109,spritearea%
1500SYS "OS_SpriteOp",&10A,spritearea%,"EarthDataRes:Sprites"
1510PROCwin_opentemplates("EarthDataRes:Templates")
1520SYS"Wimp_LoadTemplate",,b%,ws%,wsend%,font%,"Info",0 TO ,,ws%
1530b%!64=spritearea%
1540SYS"Wimp_CreateWindow",,b% TO wininfo%
1550PROCwin_closetemplates
1560ENDPROC
1570:
1580REM Clear introduction message
1590DEFPROCclear_screen
1600SYS "OS_ReadModeVariable",-1,11 TO ,,screenx%
1610SYS "OS_ReadModeVariable",-1,12 TO ,,screeny%
1620SYS "OS_ReadModeVariable",-1,5 TO ,,yeig%
1630SYS "OS_ReadModeVariable",-1,4 TO ,,xeig%
1640screenx%=screenx%*2*xeig%: screeny%=screeny%*(2*yeig%)
1650screenx%=(screenx% DIV 2)-268
1660screeny%=(screeny% DIV 2)-170
1670SYS"Wimp_ForceRedraw",-1,screenx%,screeny%+70,screenx%+600,screeny%+340+70
1680ENDPROC
1690:
1700REM Create menus
1710DEFPROCmain_menu
1720menufile%=FNwimp_openmessages("EarthDataRes:Menu")
1730barmenu%=FNmenu_make(FNwimp_getmessage("BAR",b%,menufile%),mns%,mne%,ind%)
1740mainmenu%=FNmenu_make(FNwimp_getmessage("MAIN",b%,menufile%),mns%,mne%,ind%)
1750PROCmenu_attachsub(0,barmenu%,0,wininfo%)
1760PROCmenu_attachsub(0,mainmenu%,5,wininfo%)
1770PROCmake_database
1780ENDPROC
1790:
1800REM The main procedure
1810DEFPROCmake_database
1820afr%=FNmenu_make(FNwimp_getmessage("AFRICA1",b%,menufile%),mns%,mne%,ind%)
1830PROCmenu_extend(FNwimp_getmessage("AFRICA2",b%,menufile%),mns%,mne%,ind%)
1840PROCmenu_extend(FNwimp_getmessage("AFRICA3",b%,menufile%),mns%,mne%,ind%)
1850PROCmenu_extend(FNwimp_getmessage("AFRICA4",b%,menufile%),mns%,mne%,ind%)
1860amr%=FNmenu_make(FNwimp_getmessage("AMERICA1",b%,menufile%),mns%,mne%,ind%)
1870PROCmenu_extend(FNwimp_getmessage("AMERICA2",b%,menufile%),mns%,mne%,ind%)
1880PROCmenu_extend(FNwimp_getmessage("AMERICA3",b%,menufile%),mns%,mne%,ind%)
1890asi%=FNmenu_make(FNwimp_getmessage("ASIA1",b%,menufile%),mns%,mne%,ind%)
1900PROCmenu_extend(FNwimp_getmessage("ASIA2",b%,menufile%),mns%,mne%,ind%)
1910PROCmenu_extend(FNwimp_getmessage("ASIA3",b%,menufile%),mns%,mne%,ind%)
1920eur%=FNmenu_make(FNwimp_getmessage("EUROPE1",b%,menufile%),mns%,mne%,ind%)
1930PROCmenu_extend(FNwimp_getmessage("EUROPE2",b%,menufile%),mns%,mne%,ind%)
1940PROCmenu_extend(FNwimp_getmessage("EUROPE3",b%,menufile%),mns%,mne%,ind%)
1950oce%=FNmenu_make(FNwimp_getmessage("OCEANIA",b%,menufile%),mns%,mne%,ind%)
1960PROCmenu_setwidth(afr%,300)
1970PROCmenu_setwidth(amr%,340)
1980PROCmenu_setwidth(asi%,340)
1990PROCmenu_setwidth(eur%,300)
2000PROCmenu_setwidth(oce%,340)
2010PROCmenu_attachsub(0,mainmenu%,0,afr%)
2020PROCmenu_attachsub(0,mainmenu%,1,amr%)
2030PROCmenu_attachsub(0,mainmenu%,2,asi%)
2040PROCmenu_attachsub(0,mainmenu%,3,eur%)
2050PROCmenu_attachsub(0,mainmenu%,4,oce%)
2060REM Africa
2070algeria%=FNcountrymenu("ALGERIA",%111110)
2080angola% =FNcountrymenu("ANGOLA",%111110)
2090benin% =FNcountrymenu("BENIN",%111110)
2100botswan%=FNcountrymenu("BOTSWANA",%111110)
2110burkina%=FNcountrymenu("BURKINA",%111110)
2120burundi%=FNcountrymenu("BURUNDI",%111110)
2130cameron%=FNcountrymenu("CAMERON",%111110)
2140capverd%=FNcountrymenu("CAPVERD",%111110)
2150cafrrep%=FNcountrymenu("CAFRREP",%111110)
2160chad% =FNcountrymenu("CHAD",%111110)
2170comoros%=FNcountrymenu("COMOROS",%111110)
2180djibuti%=FNcountrymenu("DJIBOUT",%111110)
2190
2200egypt% =FNcountrymenu("EGYPT",%111110)
2210cairo1% =FNmenu_make(FNwimp_getmessage("EGYPT5",b%,menufile%),mns%,mne%,ind%)
2220cairo2% =FNmenu_make(FNwimp_getmessage("EGYPT6",b%,menufile%),mns%,mne%,ind%)
2230cairo3% =FNmenu_make(FNwimp_getmessage("EGYPT7",b%,menufile%),mns%,mne%,ind%)
2240cairo4% =FNmenu_make(FNwimp_getmessage("EGYPT8",b%,menufile%),mns%,mne%,ind%)
2250PROCmenu_attachsub(0,bigcit%,0,cairo1%)
2260PROCmenu_attachsub(0,cairo1%,0,cairo2%)
2270PROCmenu_attachsub(0,cairo1%,1,cairo3%)
2280PROCmenu_attachsub(0,cairo1%,3,cairo4%)
2290
2300eqginea%=FNcountrymenu("EQGINEA",%111110)
2310eritrea%=FNcountrymenu("ERITREA",%111110)
2320ethopia%=FNcountrymenu("ETHOPIA",%111110)
2330gabon% =FNcountrymenu("GABON",%111110)
2340gambia% =FNcountrymenu("GAMBIA",%111110)
2350ghana% =FNcountrymenu("GHANA",%111110)
2360guinea% =FNcountrymenu("GUINEA",%111110)
2370guinbis%=FNcountrymenu("GUINBISS",%111110)
2380ivory% =FNcountrymenu("IVORY",%111110)
2390kenya% =FNcountrymenu("KENYA",%111110)
2400lesotho%=FNcountrymenu("LESOTHO",%111110)
2410liberia%=FNcountrymenu("LIBERIA",%111110)
2420libya% =FNcountrymenu("LIBYA",%111110)
2430mad% =FNcountrymenu("MADAGASCAR",%111110)
2440malawi% =FNcountrymenu("MALAWI",%111110)
2450mali% =FNcountrymenu("MALI",%111110)
2460mauritania%=FNcountrymenu("MAURITANIA",%111110)
2470
2480mauritius%=FNmenu_make(FNwimp_getmessage("MAURITIUS",b%,menufile%),mns%,mne%,ind%)
2490mauritian%=FNcountrymenu("MAURITIAN",%111110): PROCmenu_attachsub(0,mauritius%,0,mauritian%)
2500rodriguez%=FNcountrymenu("RODRIGUEZ",%111100): PROCmenu_attachsub(0,mauritius%,1,rodriguez%)
2510
2520morocco%=FNcountrymenu("MOROCCO",%111110)
2530mozam% =FNcountrymenu("MOZAM",%111110)
2540namibia%=FNcountrymenu("NAMIBIA",%111110)
2550niger% =FNcountrymenu("NIGER",%111110)
2560nigeria%=FNcountrymenu("NIGERIA",%111110)
2570rwanda% =FNcountrymenu("RWANDA",%111110)
2580saotom% =FNcountrymenu("SAOTOME",%111110)
2590senegal%=FNcountrymenu("SENEGAL",%111110)
2600sey% =FNcountrymenu("SEY",%111110)
2610sierra% =FNcountrymenu("SIERRA",%111110)
2620somalia%=FNcountrymenu("SOMALIA",%111110)
2630southa% =FNcountrymenu("SOUTH",%111110)
2640
2650sudan% =FNcountrymenu("SUDAN",%111110)
2660khart1% =FNmenu_make(FNwimp_getmessage("SUDAN5",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,bigcit%,0,khart1%)
2670khart2% =FNmenu_make(FNwimp_getmessage("SUDAN6",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,khart1%,0,khart2%)
2680khart3% =FNmenu_make(FNwimp_getmessage("SUDAN7",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,khart1%,1,khart3%)
2690khart4% =FNmenu_make(FNwimp_getmessage("SUDAN8",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,khart1%,3,khart4%)
2700khart5% =FNmenu_make(FNwimp_getmessage("SUDAN9",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,khart1%,4,khart5%)
2710
2720tan% =FNcountrymenu("TAN",%111110)
2730togo% =FNcountrymenu("TOGO",%111110)
2740tunis% =FNcountrymenu("TUNIS",%111110)
2750uganda% =FNcountrymenu("UGANDA",%111110)
2760sahara% =FNcountrymenu("SAHARA",%110010)
2770zaire% =FNcountrymenu("ZAIRE",%111110)
2780zambia% =FNcountrymenu("ZAMBIA",%111110)
2790zimb% =FNcountrymenu("ZIMBABWE",%111110)
2800
2810brterr% =FNmenu_make(FNwimp_getmessage("BRITTERR",b%,menufile%),mns%,mne%,ind%)
2820ascensi%=FNcountrymenu("ASCENSION",%111100): PROCmenu_attachsub(1,brterr%,0,ascensi%)
2830helena% =FNcountrymenu("HELENA",%111110) : PROCmenu_attachsub(1,brterr%,1,helena%)
2840trist% =FNcountrymenu("TRIST",%111100) : PROCmenu_attachsub(1,brterr%,2,trist%)
2850PROCmenu_setwidth(brterr%,280)
2860
2870frterrs%=FNmenu_make(FNwimp_getmessage("FRTERR",b%,menufile%),mns%,mne%,ind%)
2880mayotte%=FNcountrymenu("MAYOTTE",%111110): PROCmenu_attachsub(1,frterrs%,0,mayotte%)
2890reunion%=FNcountrymenu("REUNION",%111110): PROCmenu_attachsub(1,frterrs%,1,reunion%)
2900soutant%=FNcountrymenu("SOUTANT",%111001): PROCmenu_attachsub(1,frterrs%,2,soutant%)
2910PROCmenu_deleteitem(soutant%,3)
2920sout2%=FNmenu_make(FNwimp_getmessage("SOUTANT5",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,soutant%,4,sout2%)
2930sout3%=FNmenu_make(FNwimp_getmessage("SOUTANT6",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,soutant%,5,sout3%)
2940sout4%=FNmenu_make(FNwimp_getmessage("SOUTANT7",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,sout2%,0,sout4%)
2950sout5%=FNmenu_make(FNwimp_getmessage("SOUTANT8",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,sout3%,0,sout5%)
2960PROCmenu_setwidth(frterrs%,340)
2970
2980norterr%=FNmenu_make(FNwimp_getmessage("NORTERR",b%,menufile%),mns%,mne%,ind%)
2990bouveti%=FNcountrymenu("BOUVET",%111000): PROCmenu_attachsub(1,norterr%,0,bouveti%)
3000PROCmenu_setwidth(norterr%,250)
3010
3020porterr%=FNmenu_make(FNwimp_getmessage("PORTTERR",b%,menufile%),mns%,mne%,ind%)
3030madeira%=FNcountrymenu("MADEIRA",%111110): PROCmenu_attachsub(1,porterr%,0,madeira%)
3040PROCmenu_setwidth(porterr%,250)
3050
3060spterr% =FNmenu_make(FNwimp_getmessage("SPTERR",b%,menufile%),mns%,mne%,ind%)
3070canarys%=FNcountrymenu("CANARY",%111110): PROCmenu_attachsub(1,spterr%,0,canarys%)
3080PROCmenu_setwidth(spterr%,250)
3090
3100REM America
3110antigua%=FNcountrymenu("ANTIGUA",%111110)
3120
3130argen% =FNcountrymenu("ARGENT",%111110)
3140buenos1%=FNmenu_make(FNwimp_getmessage("ARGENT5",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,bigcit%,0,buenos1%)
3150buenos2%=FNmenu_make(FNwimp_getmessage("ARGENT6",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,buenos1%,0,buenos2%)
3160buenos3%=FNmenu_make(FNwimp_getmessage("ARGENT7",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,buenos1%,1,buenos3%)
3170buenos4%=FNmenu_make(FNwimp_getmessage("ARGENT8",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,buenos1%,3,buenos4%)
3180
3190bahamas%=FNcountrymenu("BAHAMAS",%111110)
3200barb% =FNcountrymenu("BARBADOS",%111110)
3210belize% =FNcountrymenu("BELIZE",%111110)
3220bolivia%=FNcountrymenu("BOLIVIA",%111110)
3230brazil% =FNcountrymenu("BRAZIL",%111110)
3240canada% =FNcountrymenu("CANADA",%111110)
3250chile% =FNcountrymenu("CHILE",%111110)
3260colomb% =FNcountrymenu("COLOMBIA",%111110)
3270costa% =FNcountrymenu("COSTA",%111110)
3280cuba% =FNcountrymenu("CUBA",%111110)
3290dom% =FNcountrymenu("DOMINICA",%111110)
3300domrep% =FNcountrymenu("DOMINICAN",%111110)
3310ecuador%=FNcountrymenu("ECUADOR",%111110)
3320elsal% =FNcountrymenu("SALVADOR",%111110)
3330grenada%=FNcountrymenu("GRENADA",%111110)
3340guat% =FNcountrymenu("GUATEMALA",%111110)
3350guyana% =FNcountrymenu("GUYANA",%111110)
3360haiti% =FNcountrymenu("HAITI",%111110)
3370hond% =FNcountrymenu("HONDURAS",%111110)
3380jamaica%=FNcountrymenu("JAMAICA",%111110)
3390mexico% =FNcountrymenu("MEXICO",%111110)
3400nic% =FNcountrymenu("NICARAGUA",%111110)
3410panama% =FNcountrymenu("PANAMA",%111110)
3420parag% =FNcountrymenu("PARAGUAY",%111110)
3430
3440peru% =FNcountrymenu("PERU",%111110)
3450lima1%=FNmenu_make(FNwimp_getmessage("PERU4",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,bigcit%,0,lima1%)
3460lima2%=FNmenu_make(FNwimp_getmessage("PERU5",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,lima1%,0,lima2%)
3470lima3%=FNmenu_make(FNwimp_getmessage("PERU6",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,lima1%,2,lima3%)
3480
3490kitts% =FNcountrymenu("KITTS",%111110)
3500lucia% =FNcountrymenu("LUCIA",%111110)
3510vincent%=FNcountrymenu("VINCENT",%111110)
3520surinam%=FNcountrymenu("SURINAM",%111110)
3530trin% =FNcountrymenu("TRINIDAD",%111110)
3540usa% =FNcountrymenu("USA",%111110)
3550uruguay%=FNcountrymenu("URUGUAY",%111110)
3560ven% =FNcountrymenu("VEN",%111110)
3570
3580ambrit% =FNmenu_make(FNwimp_getmessage("AMBRTERR",b%,menufile%),mns%,mne%,ind%)
3590ang% =FNcountrymenu("ANGUILLA",%111110): PROCmenu_attachsub(1,ambrit%,0,ang%)
3600ber% =FNcountrymenu("BERMUDA",%111110) : PROCmenu_attachsub(1,ambrit%,1,ber%)
3610brant% =FNcountrymenu("BRANT",%011001) : PROCmenu_attachsub(1,ambrit%,2,brant%): PROCmenu_deleteitem(brant%,2)
3620southg% =FNcountrymenu("SOUTHG",%111100) : PROCmenu_attachsub(1,brant%,2,southg%)
3630virgin% =FNcountrymenu("VIRGIN",%111110) : PROCmenu_attachsub(1,ambrit%,3,virgin%)
3640cayman% =FNcountrymenu("CAYMAN",%111110) : PROCmenu_attachsub(1,ambrit%,4,cayman%)
3650falk% =FNcountrymenu("FALKLAND",%111110): PROCmenu_attachsub(1,ambrit%,5,falk%)
3660mont% =FNcountrymenu("MONTSERRAT",%111110):PROCmenu_attachsub(1,ambrit%,6,mont%)
3670turks% =FNcountrymenu("TURKS",%111110) : PROCmenu_attachsub(1,ambrit%,7,turks%)
3680PROCmenu_setwidth(ambrit%,360)
3690
3700amdane% =FNmenu_make(FNwimp_getmessage("AMDANTERR",b%,menufile%),mns%,mne%,ind%)
3710green% =FNcountrymenu("GREENLAND",%111110): PROCmenu_attachsub(1,amdane%,0,green%)
3720PROCmenu_setwidth(amdane%,250)
3730
3740amdutch%=FNmenu_make(FNwimp_getmessage("AMDUTCHTERR",b%,menufile%),mns%,mne%,ind%)
3750aruba% =FNcountrymenu("ARUBA",%111100) : PROCmenu_attachsub(1,amdutch%,0,aruba%)
3760ants% =FNcountrymenu("NANTILLES",%111110): PROCmenu_attachsub(1,amdutch%,1,ants%)
3770PROCmenu_setwidth(amdutch%,300)
3780
3790amfr% =FNmenu_make(FNwimp_getmessage("FRAMTERR",b%,menufile%),mns%,mne%,ind%)
3800fguiana%=FNcountrymenu("FRGUIANA",%111110): PROCmenu_attachsub(1,amfr%,0,fguiana%)
3810guad% =FNcountrymenu("GUAD",%111110) : PROCmenu_attachsub(1,amfr%,1,guad%)
3820mart% =FNcountrymenu("MART",%111110) : PROCmenu_attachsub(1,amfr%,2,mart%)
3830pierre% =FNcountrymenu("PIERRE",%111110) : PROCmenu_attachsub(1,amfr%,3,pierre%)
3840PROCmenu_setwidth(amfr%,340)
3850
3860amus% =FNmenu_make(FNwimp_getmessage("USAMTERR",b%,menufile%),mns%,mne%,ind%)
3870puerto% =FNcountrymenu("PUERTO",%111110) : PROCmenu_attachsub(1,amus%,0,puerto%)
3880usvirg% =FNcountrymenu("USVIRGIN",%111110): PROCmenu_attachsub(1,amus%,1,usvirg%)
3890PROCmenu_setwidth(amus%,320)
3900
3910REM Asia
3920afg% =FNcountrymenu("AFG",%111110)
3930arm% =FNcountrymenu("ARMENIA",%111110)
3940azer% =FNcountrymenu("AZER",%111110)
3950bahrain%=FNcountrymenu("BAHRAIN",%111110)
3960bang% =FNcountrymenu("BANGLADESH",%111110)
3970bhutan% =FNcountrymenu("BHUTAN",%111110)
3980brunei% =FNcountrymenu("BRUNEI",%111110)
3990burma% =FNcountrymenu("BURMA",%111110)
4000camb% =FNcountrymenu("CAMBODIA",%111110)
4010china% =FNcountrymenu("CHINA",%111110)
4020cyprus% =FNcountrymenu("CYPRUS",%111110)
4030georgia%=FNcountrymenu("GEORGIA",%111110)
4040india% =FNcountrymenu("INDIA",%111110)
4050indo% =FNcountrymenu("INDO",%111110)
4060iran% =FNcountrymenu("IRAN",%111110)
4070iraq% =FNcountrymenu("IRAQ",%111110)
4080
4090israel% =FNcountrymenu("ISRAEL",%111110)
4100tel1% =FNmenu_make(FNwimp_getmessage("ISRAEL5",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,bigcit%,0,tel1%)
4110tel2% =FNmenu_make(FNwimp_getmessage("ISRAEL6",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,tel1%,0,tel2%)
4120tel3% =FNmenu_make(FNwimp_getmessage("ISRAEL7",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,tel1%,1,tel3%)
4130tel4% =FNmenu_make(FNwimp_getmessage("ISRAEL8",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,tel1%,3,tel4%)
4140tel5% =FNmenu_make(FNwimp_getmessage("ISRAEL9",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,tel1%,4,tel5%)
4150tel6% =FNmenu_make(FNwimp_getmessage("ISRAEL10",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,tel1%,5,tel6%)
4160tel7% =FNmenu_make(FNwimp_getmessage("ISRAEL11",b%,menufile%),mns%,mne%,ind%): PROCmenu_attachsub(0,tel1%,6,tel7%)
4170
4180japan% =FNcountrymenu("JAPAN",%111110)
4190jordan% =FNcountrymenu("JORDAN",%111110)
4200kazakh% =FNcountrymenu("KAZAKH",%111110)
4210kirghiz%=FNcountrymenu("KIRGHIZ",%111110)
4220korean% =FNcountrymenu("KOREAN",%111110)
4230koreas% =FNcountrymenu("KOREAS",%111110)
4240kuwait% =FNcountrymenu("KUWAIT",%111110)
4250laos% =FNcountrymenu("LAOS",%111110)
4260lebanon%=FNcountrymenu("LEBANON",%111110)
4270malay% =FNcountrymenu("MALAY",%111110)
4280maldive%=FNcountrymenu("MALDIVE",%111110)
4290mongol% =FNcountrymenu("MONGOL",%111110)
4300nepal% =FNcountrymenu("NEPAL",%111110)
4310oman% =FNcountrymenu("OMAN",%111110)
4320pak% =FNcountrymenu("PAK",%111110)
4330phil% =FNcountrymenu("PHIL",%111110)
4340qatar% =FNcountrymenu("QATAR",%111110)
4350saudi% =FNcountrymenu("SAUDI",%111110)
4360sing% =FNcountrymenu("SING",%111110)
4370sri% =FNcountrymenu("SRI",%111110)
4380syria% =FNcountrymenu("SYRIA",%111110)
4390taiwan% =FNcountrymenu("TAIWAN",%111110)
4400tajik% =FNcountrymenu("TAJIK",%111110)
4410thai% =FNcountrymenu("THAILAND",%111110)
4420turk% =FNcountrymenu("TURKEY",%111110)
4430turkmen%=FNcountrymenu("TURKMEN",%111110)
4440uae% =FNcountrymenu("UAE",%111110)
4450uzbek% =FNcountrymenu("UZBEK",%111110)
4460vietnam%=FNcountrymenu("VIETNAM",%111110)
4470yemen% =FNcountrymenu("YEMEN",%111110)
4480
4490asus% =FNmenu_make(FNwimp_getmessage("ASAUSTERR",b%,menufile%),mns%,mne%,ind%)
4500chris% =FNcountrymenu("CHRIS",%111100): PROCmenu_attachsub(1,asus%,0,chris%)
4510cocos% =FNcountrymenu("COCOS",%111100): PROCmenu_attachsub(1,asus%,1,cocos%)
4520PROCmenu_setwidth(asus%,200)
4530
4540asbr% =FNmenu_make(FNwimp_getmessage("ASBRITTERR",b%,menufile%),mns%,mne%,ind%)
4550brrind% =FNcountrymenu("BRINDOC",%111000) : PROCmenu_attachsub(1,asbr%,0,brrind%)
4560hongk% =FNcountrymenu("HONGKONG",%111110): PROCmenu_attachsub(1,asbr%,1,hongk%)
4570PROCmenu_setwidth(asbr%,340)
4580
4590asport% =FNmenu_make(FNwimp_getmessage("ASPORTTERR",b%,menufile%),mns%,mne%,ind%)
4600macau% =FNcountrymenu("MACAU",%111110): PROCmenu_attachsub(1,asport%,0,macau%)
4610
4620REM Europe
4630albania%=FNcountrymenu("ALBANIA",%111110)
4640andorra%=FNcountrymenu("ANDORRA",%111110)
4650austria%=FNcountrymenu("AUSTRIA",%111110)
4660belgium%=FNcountrymenu("BELGIUM",%111110)
4670belo% =FNcountrymenu("BELO",%111110)
4680bosnia% =FNcountrymenu("BOSNIA",%111110)
4690bulgar% =FNcountrymenu("BULGARIA",%111110)
4700croatia%=FNcountrymenu("CROATIA",%111110)
4710czecho% =FNcountrymenu("CZECHO",%111110)
4720denmark%=FNcountrymenu("DENMARK",%111110)
4730estonia%=FNcountrymenu("ESTONIA",%111110)
4740finland%=FNcountrymenu("FINLAND",%111110)
4750france% =FNcountrymenu("FRANCE",%111110)
4760germany%=FNcountrymenu("GERMANY",%111110)
4770greece% =FNcountrymenu("GREECE",%111110)
4780hungary%=FNcountrymenu("HUNGARY",%111110)
4790iceland%=FNcountrymenu("ICELAND",%111110)
4800ireland%=FNcountrymenu("IRELAND",%111110)
4810italy% =FNcountrymenu("ITALY",%111110)
4820latvia% =FNcountrymenu("LATVIA",%111110)
4830liecht% =FNcountrymenu("LIECHT",%111110)
4840lith% =FNcountrymenu("LITHUANIA",%111110)
4850lux% =FNcountrymenu("LUX",%111110)
4860macedon%=FNcountrymenu("MACEDONIA",%111110)
4870malta% =FNcountrymenu("MALTA",%111110)
4880moldav% =FNcountrymenu("MOLDAVIA",%111110)
4890monaco% =FNcountrymenu("MONACO",%111110)
4900holland%=FNcountrymenu("HOLLAND",%111110)
4910norway% =FNcountrymenu("NORWAY",%111110)
4920poland% =FNcountrymenu("POLAND",%111110)
4930port% =FNcountrymenu("PORTUGAL",%111110)
4940romania%=FNcountrymenu("ROMANIA",%111110)
4950russia% =FNcountrymenu("RUSSIA",%111110)
4960sanmar% =FNcountrymenu("SANMAR",%111110)
4970slovak% =FNcountrymenu("SLOVAKIA",%111110)
4980slovene%=FNcountrymenu("SLOVENIA",%111110)
4990spain% =FNcountrymenu("SPAIN",%111110)
5000sweden% =FNcountrymenu("SWEDEN",%111110)
5010switz% =FNcountrymenu("SWITZ",%111110)
5020ukraine%=FNcountrymenu("UKRAINE",%111110)
5030uk% =FNcountrymenu("UK",%111110)
5040vatican%=FNcountrymenu("VATICAN",%111110)
5050yug% =FNcountrymenu("YUG",%111110)
5060
5070eurbrit%=FNmenu_make(FNwimp_getmessage("EURBRITTERR",b%,menufile%),mns%,mne%,ind%)
5080gib% =FNcountrymenu("GIB",%111110):PROCmenu_attachsub(1,eurbrit%,0,gib%)
5090PROCmenu_setwidth(eurbrit%,250)
5100
5110eurdan% =FNmenu_make(FNwimp_getmessage("EURDANTERR",b%,menufile%),mns%,mne%,ind%)
5120faroe% =FNcountrymenu("FAROE",%111110):PROCmenu_attachsub(1,eurdan%,0,faroe%)
5130PROCmenu_setwidth(eurdan%,250)
5140
5150eurnor% =FNmenu_make(FNwimp_getmessage("EURNORTERR",b%,menufile%),mns%,mne%,ind%)
5160jan% =FNcountrymenu("JAN",%111000):PROCmenu_attachsub(1,eurnor%,0,jan%)
5170sval% =FNcountrymenu("SVAL",%111100):PROCmenu_attachsub(1,eurnor%,1,sval%)
5180PROCmenu_setwidth(eurnor%,250)
5190
5200eurport%=FNmenu_make(FNwimp_getmessage("EURPORTTERR",b%,menufile%),mns%,mne%,ind%)
5210azores% =FNcountrymenu("AZORES",%111110):PROCmenu_attachsub(1,eurport%,0,azores%)
5220
5230REM Oceania
5240austral%=FNcountrymenu("AUSTRAL",%111110)
5250fiji% =FNcountrymenu("FIJI",%111110)
5260kirib% =FNcountrymenu("KIRIB",%111110)
5270nauru% =FNcountrymenu("NAURU",%111110)
5280nz% =FNcountrymenu("NZ",%111110)
5290png% =FNcountrymenu("PNG",%111110)
5300solomon%=FNcountrymenu("SOLOMON",%111110)
5310tonga% =FNcountrymenu("TONGA",%111110)
5320tuvalu% =FNcountrymenu("TUVALU",%111110)
5330vanuatu%=FNcountrymenu("VANUATU",%111110)
5340wsamoa% =FNcountrymenu("WSAMOA",%111110)
5350
5360ocaus% =FNmenu_make(FNwimp_getmessage("OCAUSTERR",b%,menufile%),mns%,mne%,ind%)
5370lordhowe%=FNcountrymenu("LORDHOWE",%100000):PROCmenu_attachsub(1,ocaus%,0,lordhowe%)
5380norfolk%=FNcountrymenu("NORFOLK",%111100) :PROCmenu_attachsub(1,ocaus%,1,norfolk%)
5390PROCmenu_setwidth(ocaus%,280)
5400
5410ocbr% =FNmenu_make(FNwimp_getmessage("OCBRTERR",b%,menufile%),mns%,mne%,ind%)
5420pitcairn%=FNcountrymenu("PITCAIRN",%111110):PROCmenu_attachsub(1,ocbr%,0,pitcairn%)
5430PROCmenu_setwidth(ocbr%,280)
5440
5450occh% =FNmenu_make(FNwimp_getmessage("OCCHTERR",b%,menufile%),mns%,mne%,ind%)
5460easter% =FNcountrymenu("EASTER",%100000):PROCmenu_attachsub(1,occh%,0,easter%)
5470PROCmenu_setwidth(occh%,280)
5480
5490ocfr% =FNmenu_make(FNwimp_getmessage("OCFRTERR",b%,menufile%),mns%,mne%,ind%)
5500frpol% =FNcountrymenu("FRPOL",%111110) :PROCmenu_attachsub(1,ocfr%,0,frpol%)
5510newcal% =FNcountrymenu("NEWCAL",%111110):PROCmenu_attachsub(1,ocfr%,1,newcal%)
5520wallis% =FNcountrymenu("WALLIS",%111110):PROCmenu_attachsub(1,ocfr%,2,wallis%)
5530PROCmenu_setwidth(ocfr%,380)
5540
5550ocnz% =FNmenu_make(FNwimp_getmessage("OCNZTERR",b%,menufile%),mns%,mne%,ind%)
5560chatham%=FNcountrymenu("CHATHAM",%011000):PROCmenu_attachsub(1,ocnz%,0,chatham%)
5570cook% =FNcountrymenu("COOK",%111100) :PROCmenu_attachsub(1,ocnz%,1,cook%)
5580kermadec%=FNcountrymenu("KERMADEC",%110000):PROCmenu_attachsub(1,ocnz%,2,kermadec%)
5590niue% =FNcountrymenu("NIUE",%111100) :PROCmenu_attachsub(1,ocnz%,3,niue%)
5600ross% =FNcountrymenu("ROSS",%010000) :PROCmenu_attachsub(1,ocnz%,4,ross%)
5610tokelau%=FNcountrymenu("TOKELAU",%111000):PROCmenu_attachsub(1,ocnz%,5,tokelau%)
5620PROCmenu_setwidth(ocnz%,250)
5630
5640ocus% =FNmenu_make(FNwimp_getmessage("OCUSTERR",b%,menufile%),mns%,mne%,ind%)
5650amsamoa%=FNcountrymenu("AMSAMOA",%110110):PROCmenu_attachsub(1,ocus%,0,amsamoa%)
5660belau% =FNcountrymenu("BELAU",%111100) :PROCmenu_attachsub(1,ocus%,1,belau%)
5670guam% =FNcountrymenu("GUAM",%111110) :PROCmenu_attachsub(1,ocus%,2,guam%)
5680marshall%=FNcountrymenu("MARSHALL",%111100):PROCmenu_attachsub(1,ocus%,3,marshall%)
5690micron% =FNcountrymenu("MICRON",%111100) :PROCmenu_attachsub(1,ocus%,4,micron%)
5700nmar% =FNcountrymenu("NMAR",%111110) :PROCmenu_attachsub(1,ocus%,5,nmar%)
5710PROCmenu_setwidth(ocus%,300)
5720
5730REM Attaching menus
5740PROCmenu_attachsub(1,afr%,0,algeria%)
5750PROCmenu_attachsub(1,afr%,1,angola%)
5760PROCmenu_attachsub(1,afr%,2,benin%)
5770PROCmenu_attachsub(1,afr%,3,botswan%)
5780PROCmenu_attachsub(1,afr%,4,burkina%)
5790PROCmenu_attachsub(1,afr%,5,burundi%)
5800PROCmenu_attachsub(1,afr%,6,cameron%)
5810PROCmenu_attachsub(1,afr%,7,capverd%)
5820PROCmenu_attachsub(1,afr%,8,cafrrep%)
5830PROCmenu_attachsub(1,afr%,9,chad%)
5840PROCmenu_attachsub(1,afr%,10,comoros%)
5850PROCmenu_attachsub(1,afr%,11,djibuti%)
5860PROCmenu_attachsub(1,afr%,12,egypt%)
5870PROCmenu_attachsub(1,afr%,13,eqginea%)
5880PROCmenu_attachsub(1,afr%,14,eritrea%)
5890PROCmenu_attachsub(1,afr%,15,ethopia%)
5900PROCmenu_attachsub(1,afr%,16,gabon%)
5910PROCmenu_attachsub(1,afr%,17,gambia%)
5920PROCmenu_attachsub(1,afr%,18,ghana%)
5930PROCmenu_attachsub(1,afr%,19,guinea%)
5940PROCmenu_attachsub(1,afr%,20,guinbis%)
5950PROCmenu_attachsub(1,afr%,21,ivory%)
5960PROCmenu_attachsub(1,afr%,22,kenya%)
5970PROCmenu_attachsub(1,afr%,23,lesotho%)
5980PROCmenu_attachsub(1,afr%,24,liberia%)
5990PROCmenu_attachsub(1,afr%,25,libya%)
6000PROCmenu_attachsub(1,afr%,26,mad%)
6010PROCmenu_attachsub(1,afr%,27,malawi%)
6020PROCmenu_attachsub(1,afr%,28,mali%)
6030PROCmenu_attachsub(1,afr%,29,mauritania%)
6040PROCmenu_attachsub(1,afr%,30,mauritius%)
6050PROCmenu_attachsub(1,afr%,31,morocco%)
6060PROCmenu_attachsub(1,afr%,32,mozam%)
6070PROCmenu_attachsub(1,afr%,33,namibia%)
6080PROCmenu_attachsub(1,afr%,34,niger%)
6090PROCmenu_attachsub(1,afr%,35,nigeria%)
6100PROCmenu_attachsub(1,afr%,36,rwanda%)
6110PROCmenu_attachsub(1,afr%,37,saotom%)
6120PROCmenu_attachsub(1,afr%,38,senegal%)
6130PROCmenu_attachsub(1,afr%,39,sey%)
6140PROCmenu_attachsub(1,afr%,40,sierra%)
6150PROCmenu_attachsub(1,afr%,41,somalia%)
6160PROCmenu_attachsub(1,afr%,42,southa%)
6170PROCmenu_attachsub(1,afr%,43,sudan%)
6180PROCmenu_attachsub(1,afr%,44,tan%)
6190PROCmenu_attachsub(1,afr%,45,togo%)
6200PROCmenu_attachsub(1,afr%,46,tunis%)
6210PROCmenu_attachsub(1,afr%,47,uganda%)
6220PROCmenu_attachsub(1,afr%,48,sahara%)
6230PROCmenu_attachsub(1,afr%,49,zaire%)
6240PROCmenu_attachsub(1,afr%,50,zambia%)
6250PROCmenu_attachsub(1,afr%,51,zimb%)
6260PROCmenu_attachsub(1,afr%,52,brterr%)
6270PROCmenu_attachsub(1,afr%,53,frterrs%)
6280PROCmenu_attachsub(1,afr%,54,norterr%)
6290PROCmenu_attachsub(1,afr%,55,porterr%)
6300PROCmenu_attachsub(1,afr%,56,spterr%)
6310PROCmenu_attachsub(1,amr%,0,antigua%)
6320PROCmenu_attachsub(1,amr%,1,argen%)
6330PROCmenu_attachsub(1,amr%,2,bahamas%)
6340PROCmenu_attachsub(1,amr%,3,barb%)
6350PROCmenu_attachsub(1,amr%,4,belize%)
6360PROCmenu_attachsub(1,amr%,5,bolivia%)
6370PROCmenu_attachsub(1,amr%,6,brazil%)
6380PROCmenu_attachsub(1,amr%,7,canada%)
6390PROCmenu_attachsub(1,amr%,8,chile%)
6400PROCmenu_attachsub(1,amr%,9,colomb%)
6410PROCmenu_attachsub(1,amr%,10,costa%)
6420PROCmenu_attachsub(1,amr%,11,cuba%)
6430PROCmenu_attachsub(1,amr%,12,dom%)
6440PROCmenu_attachsub(1,amr%,13,domrep%)
6450PROCmenu_attachsub(1,amr%,14,ecuador%)
6460PROCmenu_attachsub(1,amr%,15,elsal%)
6470PROCmenu_attachsub(1,amr%,16,grenada%)
6480PROCmenu_attachsub(1,amr%,17,guat%)
6490PROCmenu_attachsub(1,amr%,18,guyana%)
6500PROCmenu_attachsub(1,amr%,19,haiti%)
6510PROCmenu_attachsub(1,amr%,20,hond%)
6520PROCmenu_attachsub(1,amr%,21,jamaica%)
6530PROCmenu_attachsub(1,amr%,22,mexico%)
6540PROCmenu_attachsub(1,amr%,23,nic%)
6550PROCmenu_attachsub(1,amr%,24,panama%)
6560PROCmenu_attachsub(1,amr%,25,parag%)
6570PROCmenu_attachsub(1,amr%,26,peru%)
6580PROCmenu_attachsub(1,amr%,27,kitts%)
6590PROCmenu_attachsub(1,amr%,28,lucia%)
6600PROCmenu_attachsub(1,amr%,29,vincent%)
6610PROCmenu_attachsub(1,amr%,30,surinam%)
6620PROCmenu_attachsub(1,amr%,31,trin%)
6630PROCmenu_attachsub(1,amr%,32,usa%)
6640PROCmenu_attachsub(1,amr%,33,uruguay%)
6650PROCmenu_attachsub(1,amr%,34,ven%)
6660PROCmenu_attachsub(1,amr%,35,ambrit%)
6670PROCmenu_attachsub(1,amr%,36,amdane%)
6680PROCmenu_attachsub(1,amr%,37,amdutch%)
6690PROCmenu_attachsub(1,amr%,38,amfr%)
6700PROCmenu_attachsub(1,amr%,39,amus%)
6710PROCmenu_attachsub(1,asi%,0,afg%)
6720PROCmenu_attachsub(1,asi%,1,arm%)
6730PROCmenu_attachsub(1,asi%,2,azer%)
6740PROCmenu_attachsub(1,asi%,3,bahrain%)
6750PROCmenu_attachsub(1,asi%,4,bang%)
6760PROCmenu_attachsub(1,asi%,5,bhutan%)
6770PROCmenu_attachsub(1,asi%,6,brunei%)
6780PROCmenu_attachsub(1,asi%,7,burma%)
6790PROCmenu_attachsub(1,asi%,8,camb%)
6800PROCmenu_attachsub(1,asi%,9,china%)
6810PROCmenu_attachsub(1,asi%,10,cyprus%)
6820PROCmenu_attachsub(1,asi%,11,georgia%)
6830PROCmenu_attachsub(1,asi%,12,india%)
6840PROCmenu_attachsub(1,asi%,13,indo%)
6850PROCmenu_attachsub(1,asi%,14,iran%)
6860PROCmenu_attachsub(1,asi%,15,iraq%)
6870PROCmenu_attachsub(1,asi%,16,israel%)
6880PROCmenu_attachsub(1,asi%,17,japan%)
6890PROCmenu_attachsub(1,asi%,18,jordan%)
6900PROCmenu_attachsub(1,asi%,19,kazakh%)
6910PROCmenu_attachsub(1,asi%,20,kirghiz%)
6920PROCmenu_attachsub(1,asi%,21,korean%)
6930PROCmenu_attachsub(1,asi%,22,koreas%)
6940PROCmenu_attachsub(1,asi%,23,kuwait%)
6950PROCmenu_attachsub(1,asi%,24,laos%)
6960PROCmenu_attachsub(1,asi%,25,lebanon%)
6970PROCmenu_attachsub(1,asi%,26,malay%)
6980PROCmenu_attachsub(1,asi%,27,maldive%)
6990PROCmenu_attachsub(1,asi%,28,mongol%)
7000PROCmenu_attachsub(1,asi%,29,nepal%)
7010PROCmenu_attachsub(1,asi%,30,oman%)
7020PROCmenu_attachsub(1,asi%,31,pak%)
7030PROCmenu_attachsub(1,asi%,32,phil%)
7040PROCmenu_attachsub(1,asi%,33,qatar%)
7050PROCmenu_attachsub(1,asi%,34,saudi%)
7060PROCmenu_attachsub(1,asi%,35,sing%)
7070PROCmenu_attachsub(1,asi%,36,sri%)
7080PROCmenu_attachsub(1,asi%,37,syria%)
7090PROCmenu_attachsub(1,asi%,38,taiwan%)
7100PROCmenu_attachsub(1,asi%,39,tajik%)
7110PROCmenu_attachsub(1,asi%,40,thai%)
7120PROCmenu_attachsub(1,asi%,41,turk%)
7130PROCmenu_attachsub(1,asi%,42,turkmen%)
7140PROCmenu_attachsub(1,asi%,43,uae%)
7150PROCmenu_attachsub(1,asi%,44,uzbek%)
7160PROCmenu_attachsub(1,asi%,45,vietnam%)
7170PROCmenu_attachsub(1,asi%,46,yemen%)
7180PROCmenu_attachsub(1,asi%,47,asus%)
7190PROCmenu_attachsub(1,asi%,48,asbr%)
7200PROCmenu_attachsub(1,asi%,49,asport%)
7210PROCmenu_attachsub(1,eur%,0,albania%)
7220PROCmenu_attachsub(1,eur%,1,andorra%)
7230PROCmenu_attachsub(1,eur%,2,austria%)
7240PROCmenu_attachsub(1,eur%,3,belgium%)
7250PROCmenu_attachsub(1,eur%,4,belo%)
7260PROCmenu_attachsub(1,eur%,5,bosnia%)
7270PROCmenu_attachsub(1,eur%,6,bulgar%)
7280PROCmenu_attachsub(1,eur%,7,croatia%)
7290PROCmenu_attachsub(1,eur%,8,czecho%)
7300PROCmenu_attachsub(1,eur%,9,denmark%)
7310PROCmenu_attachsub(1,eur%,10,estonia%)
7320PROCmenu_attachsub(1,eur%,11,finland%)
7330PROCmenu_attachsub(1,eur%,12,france%)
7340PROCmenu_attachsub(1,eur%,13,germany%)
7350PROCmenu_attachsub(1,eur%,14,greece%)
7360PROCmenu_attachsub(1,eur%,15,hungary%)
7370PROCmenu_attachsub(1,eur%,16,iceland%)
7380PROCmenu_attachsub(1,eur%,17,ireland%)
7390PROCmenu_attachsub(1,eur%,18,italy%)
7400PROCmenu_attachsub(1,eur%,19,latvia%)
7410PROCmenu_attachsub(1,eur%,20,liecht%)
7420PROCmenu_attachsub(1,eur%,21,lith%)
7430PROCmenu_attachsub(1,eur%,22,lux%)
7440PROCmenu_attachsub(1,eur%,23,macedon%)
7450PROCmenu_attachsub(1,eur%,24,malta%)
7460PROCmenu_attachsub(1,eur%,25,moldav%)
7470PROCmenu_attachsub(1,eur%,26,monaco%)
7480PROCmenu_attachsub(1,eur%,27,holland%)
7490PROCmenu_attachsub(1,eur%,28,norway%)
7500PROCmenu_attachsub(1,eur%,29,poland%)
7510PROCmenu_attachsub(1,eur%,30,port%)
7520PROCmenu_attachsub(1,eur%,31,romania%)
7530PROCmenu_attachsub(1,eur%,32,russia%)
7540PROCmenu_attachsub(1,eur%,33,sanmar%)
7550PROCmenu_attachsub(1,eur%,34,slovak%)
7560PROCmenu_attachsub(1,eur%,35,slovene%)
7570PROCmenu_attachsub(1,eur%,36,spain%)
7580PROCmenu_attachsub(1,eur%,37,sweden%)
7590PROCmenu_attachsub(1,eur%,38,switz%)
7600PROCmenu_attachsub(1,eur%,39,ukraine%)
7610PROCmenu_attachsub(1,eur%,40,uk%)
7620PROCmenu_attachsub(1,eur%,41,vatican%)
7630PROCmenu_attachsub(1,eur%,42,yug%)
7640PROCmenu_attachsub(1,eur%,43,eurbrit%)
7650PROCmenu_attachsub(1,eur%,44,eurdan%)
7660PROCmenu_attachsub(1,eur%,45,eurnor%)
7670PROCmenu_attachsub(1,eur%,46,eurport%)
7680PROCmenu_attachsub(1,oce%,0,austral%)
7690PROCmenu_attachsub(1,oce%,1,fiji%)
7700PROCmenu_attachsub(1,oce%,2,kirib%)
7710PROCmenu_attachsub(1,oce%,3,nauru%)
7720PROCmenu_attachsub(1,oce%,4,nz%)
7730PROCmenu_attachsub(1,oce%,5,png%)
7740PROCmenu_attachsub(1,oce%,6,solomon%)
7750PROCmenu_attachsub(1,oce%,7,tonga%)
7760PROCmenu_attachsub(1,oce%,8,tuvalu%)
7770PROCmenu_attachsub(1,oce%,9,vanuatu%)
7780PROCmenu_attachsub(1,oce%,10,wsamoa%)
7790PROCmenu_attachsub(1,oce%,11,ocaus%)
7800PROCmenu_attachsub(1,oce%,12,ocbr%)
7810PROCmenu_attachsub(1,oce%,13,occh%)
7820PROCmenu_attachsub(1,oce%,14,ocfr%)
7830PROCmenu_attachsub(1,oce%,15,ocnz%)
7840PROCmenu_attachsub(1,oce%,16,ocus%)
7850ENDPROC
7860:
7870REM Create a menu for a country
7880DEF FNcountrymenu(country$,flags%)
7890country1$=FNwimp_getmessage(country$+"1",b%,menufile%)
7900posit%=INSTR(country1$,",")
7910countrymenu$=LEFT$(country1$,posit%-1)
7920IF (flags% AND %100000)<>0 THEN countrymenu$+=",Population"
7930IF (flags% AND %010000)<>0 THEN countrymenu$+=",Area"
7940IF (flags% AND %001000)<>0 THEN countrymenu$+=",Government"
7950IF (flags% AND %000100)<>0 THEN countrymenu$+=",Capital City"
7960IF (flags% AND %000010)<>0 THEN countrymenu$+=",Large Towns"
7970 IF (flags% AND %000001)<>0 THEN
7980 countrymenu$+=", Regions:,"
7990 countrymenu$+=FNwimp_getmessage(country$+"4",b%,menufile%)
8000 ENDIF
8010posit2%=INSTR(country1$,",",posit%+1)
8020country%=FNmenu_make(countrymenu$,mns%,mne%,ind%)
8030sub%=0
8040IF (flags% AND %100000)<>0 THEN temp1%=FNmenu_make("Population,"+MID$(country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=INSTR(country1$,",",posit%+1): PROCmenu_attachsub(0,country%,sub%,temp1%): sub%+=1
8050IF (flags% AND %010000)<>0 THEN temp2%=FNmenu_make("Area (km�),"+MID$(country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=INSTR(country1$,",",posit%+1): PROCmenu_attachsub(0,country%,sub%,temp2%): sub%+=1
8060IF (flags% AND %001000)<>0 THEN temp3%=FNmenu_make("Government,"+MID$(country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=INSTR(country1$,",",posit%+1): PROCmenu_attachsub(0,country%,sub%,temp3%): sub%+=1
8070IF (flags% AND %000100)<>0 THEN temp4%=FNmenu_make("Capital City,"+MID$(country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=INSTR(country1$,",",posit%+1): PROCmenu_attachsub(0,country%,sub%,temp4%): sub%+=1
8080 IF (flags% AND %000010)<>0 THEN
8090 bigcit%=FNmenu_make("Large Towns,"+FNwimp_getmessage(country$+"2",b%,menufile%),mns%,mne%,ind%): posit%=posit2%: PROCmenu_attachsub(0,country%,sub%,bigcit%): sub%+=1
8100 citpops$=FNwimp_getmessage(country$+"3",b%,menufile%)
8110 posit%=0
8120 FOR city%=1 TO FNmenu_countitems(bigcit%)
8130 posit2%=INSTR(citpops$,",",posit%+1)
8140 temp%=FNmenu_make("Population,"+MID$(citpops$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%):
8150 posit%=posit2%: posit2%=INSTR(country1$,",",posit%+1)
8160 PROCmenu_attachsub(0,bigcit%,city%-1,temp%)
8170 NEXT
8180 ENDIF
8190IF (flags% AND %000001)<>0 THEN PROCmenu_setitemline(country%,sub%-1,TRUE)
8200percentage+=100/countries%
8210SYS"Hourglass_Percentage",percentage
8220=country%
8230
8240REM ================== Libraries =====================
8250DEFFNwimp_error(C`$,I_%):LOCAL D`%,E`%:D`%=FALSE:F`$="":G`$="":CASEERR OF
8260WHEN 1<<30:H`$="":d_$="Error from "+C`$:F`$="OK"
8270WHEN (1<<30)+1:H`$="":d_$="Reminder from "+C`$:F`$="OK"
8280OTHERWISE:D`%=TRUE:H`$=" at line "+STR$ERL+" Error code: "+STR$ERR+" (OK to continue, Cancel to quit)":d_$="Error from "+C`$:F`$="Continue":G`$="Quit"
8290ENDCASE:E`%=FNwimp_reporterror(REPORT$+H`$,d_$,F`$,G`$,I_%):IF D`%=TRUE AND E`%=2 THEN
8300E`%=FNwimp_reporterror("Are you sure you want to quit? (OK to continue, Cancel to quit)","Question from "+C`$,"Continue","Quit",I_%)
8310ENDIF:=(E`%=2)
8320
8330DEFFNwimp_reporterror(I`$,d_$,F`$,G`$,I_%)
8340I_%!0=ERR: $(I_%+4)=I`$
8350 IF G`$="" THEN
8360 SYS"Wimp_ReportError",I_%,%010001,d_$ TO ,result_%
8370 ELSE
8380 SYS"Wimp_ReportError",I_%,%010011,d_$ TO ,result_%
8390 ENDIF
8400=result_%
8410
8420DEFPROCwimp_close(A`%):SYS262365,A`%,&4B534154:ENDPROC
8430
8440DEFPROCmenu_show(g_%,K_%,L_%):SYS262356,,g_%,K_%,L_%:ENDPROC
8450
8460DEFPROCmenu_iconbar(g_%,I_%):LOCAL y_%,h_%:SYS262351,,I_%:y_%=FNmenu_countitems(g_%):Q_%=y_%*44:FOR h_%=1 TO y_%:IFFNmenu_getitemline(g_%,h_%-1)THEN Q_%+=24
8470NEXT:SYS262356,,g_%,!I_%-(g_%!16/2),96+Q_%:ENDPROC
8480
8490DEFPROCmenu_window(a_%,I_%):LOCAL O_%,P_%,Q_%,R_%:SYS262351,,I_%:O_%=I_%!0:P_%=I_%!4:!I_%=a_%:SYS262347,,I_%:Q_%=I_%!8-I_%!16:R_%=I_%!4-I_%!12:PROCmenu_show(a_%,O_%+R_%/2,P_%-Q_%/2):ENDPROC
8500
8510DEFPROCmenu_adjust(I_%,g_%):REMLOCAL `_%:SYS262351,,I_%:`_%=(I_%!8 AND 1):IF `_%=FALSE THEN ENDPROC
8520SYS262356,,g_%:ENDPROC
8530
8540DEFPROCwin_opentemplates(D_$):SYS262361,,D_$:ENDPROC
8550
8560DEFPROCwin_closetemplates:SYS262362:ENDPROC
8570
8580DEFFNwimp_openmessages(P`$):LOCAL Q`%,R`%,S`%:SYS8,15,P`$ TO Q`%,,,,R`%:IF Q`%=0 THENERROR 0,"Message file not found in FNwimp_openmessages"
8590DIM T`%16,S`%R`%+16:SYS267521,T`%,P`$,S`%:=T`%
8600
8610DEFFNmenu_make(g_$,RETURN e_%,f_%,RETURN j_%):LOCAL o_%,p_%,q_%,r_%,s_%:o_%=FALSE:p_%=FALSE:q_%=FALSE:r_%=FALSE:s_%=FALSE:t_%=INSTR(g_$,","):d_$=LEFT$(g_$,t_%-1):R_%=LENd_$-3:g_%=FNmenu_header(d_$,R_%*16+32,e_%,f_%)
8620h_%=0:u_%=INSTR(g_$,",",t_%+1):REPEAT:h_$=MID$(g_$,t_%+1,u_%-1-t_%)
8630IFLEFT$(h_$,1)="�" THEN o_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
8640IFLEFT$(h_$,1)="-" THEN p_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
8650IFLEFT$(h_$,1)="@" THEN q_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1):v_%=(ASCh_$-48)*10:h_$=RIGHT$(h_$,LENh_$-1):v_%+=(ASCh_$-48):h_$=RIGHT$(h_$,LENh_$-1)
8660IFLEFT$(h_$,1)="+" THEN r_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
8670IFLEFT$(h_$,1)="*" THEN s_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
8680PROCmenu_item(h_$,-1,e_%,f_%,j_%):IF o_%=TRUE THENPROCmenu_setitemtick(g_%,h_%,TRUE):o_%=FALSE
8690IF p_%=TRUE THENPROCmenu_setitemline(g_%,h_%,TRUE):p_%=FALSE
8700IF q_%=TRUE THENPROCmenu_setitemwrite(g_%,h_%,TRUE,j_%,v_%+1):q_%=FALSE
8710IF r_%=TRUE THENPROCmenu_setitemmess(g_%,h_%,TRUE):r_%=FALSE
8720IF s_%=TRUE THENPROCmenu_setitemgrey(g_%,h_%,TRUE):s_%=FALSE
8730t_%=u_%:u_%=INSTR(g_$,",",u_%+1):h_%+=1:IFLENh_$>R_%THEN R_%=LENh_$
8740UNTIL t_%=0:g_%!16=R_%*16+32:PROCmenu_setitemlast(g_%,h_%-1,TRUE):=g_%
8750
8760DEFFNwimp_getmessage(U`$,I_%,T`_%):LOCAL a%:SYS267522,T`_%,U`$,I_%TO,,x_%:=FNwimp_getstring(x_%)
8770
8780DEFPROCmenu_attachsub(flag%,g_%,h_%,i_%):!(g_%+28+h_%*24+4)=i_%
8790 IF flag% THEN
8800 flagcountry$=FNmenu_getitemtext(g_%,h_%)
8810 IF INSTR(flagcountry$," ")>0 THEN more%=1 ELSE more%=0
8820 WHILE more%>0
8830 more%=INSTR(flagcountry$," ")
8840 IF more%>0 MID$(flagcountry$,more%,1)="_"
8850 ENDWHILE
8860 PROCmenu_setitemval(g_%,h_%,"S"+LEFT$(flagcountry$,12))
8870 ENDIF
8880ENDPROC
8890
8900DEFFNmenu_getitemtext(g_%,h_%):IF (g_%!(28+24*h_%+8)AND%100000000)<>0 THEN =$g_%!(28+24*h_%+12)
8910=FNwimp_getstring(g_%+(28+24*h_%+12))
8920
8930DEFPROCmenu_setitemval(k_%,h_%,n_$):IF (k_%!(28+h_%*24+8)AND%100000000)=0 THENERROR 0,"Menu item not indirected in PROCmenu_setitemval"
8940$ind%=n_$:k_%!(28+h_%*24+16)=ind%:ind%+=LENn_$+1:ENDPROC
8950
8960DEFPROCmenu_extend(g_$,RETURN e_%,f_%,RETURN j_%):LOCAL o_%,p_%,q_%,r_%,s_%:o_%=FALSE:p_%=FALSE:q_%=FALSE:r_%=FALSE:s_%=FALSE:PROCmenu_setitemlast(g_%,h_%-1,FALSE):t_%=0:u_%=INSTR(g_$,",",t_%+1):REPEAT:h_$=MID$(g_$,t_%+1,u_%-1-t_%):IFLEFT$(h_$,1)="�" THEN o_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
8970IFLEFT$(h_$,1)="-" THEN p_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
8980IFLEFT$(h_$,1)="@" THEN q_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1):v_%=(ASCh_$-48)*10:h_$=RIGHT$(h_$,LENh_$-1):v_%+=(ASCh_$-48):h_$=RIGHT$(h_$,LENh_$-1)
8990IFLEFT$(h_$,1)="+" THEN r_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
9000IFLEFT$(h_$,1)="*" THEN s_%=TRUE:h_$=RIGHT$(h_$,LENh_$-1)
9010PROCmenu_item(h_$,-1,e_%,f_%,j_%):IF o_%=TRUE THEN PROCmenu_setitemtick(g_%,h_%,TRUE):o_%=FALSE
9020IF p_%=TRUE THEN PROCmenu_setitemline(g_%,h_%,TRUE):p_%=FALSE
9030IF q_%=TRUE THEN PROCmenu_setitemwrite(g_%,h_%,TRUE,j_%,v_%+1):q_%=FALSE
9040IF r_%=TRUE THEN PROCmenu_setitemmess(g_%,h_%,TRUE):r_%=FALSE
9050IF s_%=TRUE THEN PROCmenu_setitemgrey(g_%,h_%,TRUE):s_%=FALSE
9060t_%=u_%:u_%=INSTR(g_$,",",u_%+1):h_%+=1:UNTIL t_%=0:PROCmenu_setitemlast(g_%,h_%-1,TRUE):ENDPROC
9070
9080DEFPROCmenu_deleteitem(g_%,h_%):LOCAL z_%,t_%:z_%=FALSE:t_%=28+h_%*24:IF (g_%!t_%AND%10000000)<>0 AND h_%=0 THENERROR 0,"Attempt to delete only menu item"
9090IF (g_%!t_%AND%10000000)<>0 THEN PROCmenu_setitemlast(g_%,h_%-1,TRUE):ENDPROC
9100REPEAT:g_%!(t_%+0)=g_%!(t_%+24):g_%!(t_%+4)=g_%!(t_%+28):g_%!(t_%+8)=g_%!(t_%+32):g_%!(t_%+12)=g_%!(t_%+36):g_%!(t_%+16)=g_%!(t_%+40):g_%!(t_%+20)=g_%!(t_%+44):IF (g_%!t_%AND %10000000)<>0 THEN z_%=TRUE
9110t_%+=24:UNTIL z_%=TRUE:ENDPROC
9120
9130DEFFNmenu_countitems(g_%):LOCAL x_%:x_%=28:WHILE (g_%!x_%AND%10000000)=0:x_%+=24:ENDWHILE:=((x_%-28)/24)+1
9140
9150DEFPROCmenu_setitemline(g_%,h_%,W_%):IF W_%=TRUE THEN
9160g_%!(28+h_%*24)=g_%!(28+h_%*24)OR%00000010
9170ELSE:IF (g_%!(28+h_%*24)AND%00000010)<>0 THEN
9180g_%!(28+h_%*24)=g_%!(28+h_%*24)EOR%00000010
9190ENDIF
9200ENDIF:ENDPROC
9210
9220DEFPROCicon_settext(S_%,T_%,U_$,I_%,V_%):!I_%=S_%:I_%!4=T_%:SYS262350,,I_%:IF (I_%!24 AND%100000000)=0 THENERROR 0,"Icon text not indirected in PROCicon_seticontext"
9230$(I_%!28)=U_$:IF V_%THEN I_%!0=S_%:I_%!4=T_%:I_%!8=0:I_%!12=0:SYS262349,,I_%
9240ENDPROC
9250
9260DEFFNwin_open(J_%,I_%):!I_%=J_%:SYS262347,,I_%:IF (I_%!32 AND%10000000000000000)<>0 THEN=TRUE
9270=FALSE
9280
9290DEFPROCicon_setval(S_%,T_%,U_$,I_%,V_%):!I_%=S_%:I_%!4=T_%:SYS262350,,I_%:IF (I_%!24 AND%100000000)=0 THENERROR 0,"Icon text not indirected in PROCicon_seticonval"
9300$(I_%!32)=U_$:IF V_%THEN I_%!0=S_%:I_%!4=T_%:I_%!8=0:I_%!12=0:SYS262349,,I_%
9310ENDPROC
9320
9330DEFFNmenu_getitemline(g_%,h_%):=(g_%!(28+h_%*24)AND%00000010)<>0
9340
9350DEFFNmenu_header(d_$,R_%,RETURN e_%,f_%):LOCAL g_%:IF e_%+28>f_%THENERROR 0,"Not enough menu space!"
9360g_%=e_%:$(e_%)=d_$:e_%?12=7:e_%?13=2:e_%?14=7:e_%?15=1:e_%!16=R_%:e_%!20=44:e_%!24=0:e_%+=28:=g_%
9370
9380DEFPROCmenu_item(h_$,i_%,RETURN e_%,f_%,RETURN j_%):IF e_%+24>f_%THENERROR 0,"Not enough menu space!"
9390!e_%=0:e_%!4=i_%:e_%!8=&07000021:IFLENh_$<0 THEN
9400$(e_%+12)=h_$
9410ELSE:e_%!8=&17000333:e_%!12=j_%:e_%!16=-1:e_%!20=LENh_$+1:$j_%=h_$:j_%+=LENh_$+1
9420ENDIF:e_%+=24:ENDPROC
9430
9440DEFPROCmenu_setitemtick(g_%,h_%,W_%):IF W_%=TRUETHEN
9450g_%!(28+h_%*24)=g_%!(28+h_%*24)OR%00000001
9460ELSE:IF (g_%!(28+h_%*24)AND%00000001)<>0 THEN
9470g_%!(28+h_%*24)=g_%!(28+h_%*24)EOR%00000001
9480ENDIF
9490ENDIF:ENDPROC
9500
9510DEFPROCmenu_setitemwrite(g_%,h_%,W_%,RETURN j_%,m_%):IF W_%=TRUETHEN
9520g_%!(28+h_%*24)=g_%!(28+h_%*24)OR%00000100:g_%!(28+h_%*24+8)=g_%!(28+h_%*24+8)OR%100000000:$j_%=$(g_%+28+h_%*24+12):g_%!(28+h_%*24+12)=j_%:g_%!(28+h_%*24+16)=-1:g_%!(28+h_%*24+20)=m_%:j_%+=m_%+1
9530ELSE:IF (g_%!(28+h_%*24)AND%00000100)<>0 THEN
9540g_%!(28+h_%*24)=g_%!(28+h_%*24)EOR%00000100
9550ENDIF
9560ENDIF:ENDPROC
9570
9580DEFPROCmenu_setitemmess(g_%,h_%,W_%):IF W_%=TRUETHEN
9590g_%!(28+h_%*24)=g_%!(28+h_%*24)OR%00001000
9600ELSE:IF (g_%!(28+h_%*24)AND%00001000)<>0 THEN
9610g_%!(28+h_%*24)=g_%!(28+h_%*24)EOR%00001000
9620ENDIF
9630ENDIF:ENDPROC
9640
9650DEFPROCmenu_setitemgrey(g_%,h_%,W_%):IF W_%=TRUETHEN
9660g_%!(28+h_%*24+8)=(g_%!(28+h_%*24+8)OR%10000000000000000000000)
9670ELSE:IF (g_%!(28+h_%*24+8)AND%10000000000000000000000)<>0 THEN
9680g_%!(28+h_%*24+8)=g_%!(28+h_%*24+8)EOR%10000000000000000000000
9690ENDIF
9700ENDIF:ENDPROC
9710
9720DEFPROCmenu_setitemlast(g_%,h_%,W_%):IF W_%=TRUE THEN
9730g_%!(28+h_%*24)=g_%!(28+h_%*24)OR%10000000
9740ELSE:IF (g_%!(28+h_%*24)AND%10000000)<>0 THEN
9750g_%!(28+h_%*24)=g_%!(28+h_%*24)EOR%10000000
9760ENDIF
9770ENDIF:ENDPROC
9780
9790DEFPROCmenu_setwidth(g_%,R_%):g_%!16=R_%:ENDPROC
9800
9810DEFFNwimp_getstring(n_%):LOCAL V`%:WHILE n_%?V`%>31:V`%+=1:ENDWHILE:n_%?V`%=13:=$n_%
9820
9830DEFFNwimp_initialise(A`$,messagesblk_%):SYS262336,300,&4B534154,A`$,messagesblk_% TO A`%:errorhappened_%=FALSE:=A`%
� > !EarthData.!RunImage
!� Version 1.00 (01-Jul-1995)
� James Bursa 1995
( � Libraries linked by BlibII
2
<1� � � � �: �("Error 0 "+�$+" at line "+Þ): �
F
P�dim
Z*task%=�wimp_initialise("EarthData",b%)
d �init
npos%=�iconbaricon
x
�?� � � �wimp_error("EarthData",b%)=� � �wimp_close(task%): �
�
� �
� �poll
� � quit%
�
��wimp_close(task%)
��
�:
�� Main program loop
�
��poll
� ș "Wimp_Poll",0,b% � r%
� Ȏ r% �
� 0: �animate
� 1: �redrawinfo
# � 2: ș "Wimp_OpenWindow",,b%
"$ � 3: ș "Wimp_CloseWindow",,b%
, � 6: �mouseclick
6 � 9: �menuclick
@ � 17,18: �recieve
J �
T�
^:
h� Recived wimp messages
r
��recieve
| Ȏ b%!16 �
� � 0: quit%=�
� � &502: �help
� �
��
�:
� � Called when mouse clicked
���mouseclick
� Ȏ b%!12 �
� � -2: Ȏ b%!8 �
�> � 4: �menu_show(mainmenu%,0,1000): curmenu%=mainmenu%
�: � 2: �menu_iconbar(barmenu%,b%): curmenu%=barmenu%
�A � 1: �menu_show(mainmenu%,0,1000): curmenu%=mainmenu%
� �
�
�
:
&� Menu selection
0��menuclick
:
reopen%=�
D(ș "Wimp_DecodeMenu",,curmenu%,b%,c%
N
Ȏ $c% �
X4 � "Info": �menu_window(wininfo%,b%): reopen%=�
b � "Quit": quit%=�
l �
v)� reopen% � �menu_adjust(c%,curmenu%)
��
�:
�� Interactive help
�
��help
�help%=b%+20
� Ȏ b%!32 �
�� � -2 : $help%="This is the (spinning) EarthData icon.|mEarthData is a world Database.|mClick \s to view the data menus.|m"
�f � wininfo%: $help%="This window gives information about EarthData.|mGood animation, isn't it?|m"
�b : c%!0=-1: c%!4=-1: c%!8=-1: c%!12=-1: c%!16=-1: c%!20=-1: c%!24=-1: c%!28=-1: c%!32=-1
�; ș"Wimp_GetMenuState",1,c%,b%!32,b%!36
�8 ș"Wimp_DecodeMenu",,curmenu%,c%,c%
� Ȏ $(c%) �
�r � "Info": $help%="Move the pointer right or click \s to see information about EarthData.|m"
X � "Quit": $help%="Click \s to quit EarthData.|m(Don't try it!)|m"
� : $help%="This is an EarthData menu.|mMove the pointer to view other menus.|mEarthData is a world database."
�
�
*8b%!0=4+4*�(20+(�($help%))/4): b%!12=b%!8: b%!16=&503
4#ș"Wimp_SendMessage",17,b%,b%!4
>�
H:
R&� Redraw info box (scrolling text)
\��redrawinfo
f%ș"Wimp_RedrawWindow",,b% � more%
pBș"Font_FindFont",,"Homerton.Medium",224,224,0,0 � fonthandle%
z ș"Font_SetFont",fonthandle%
�
ȕ more%
�+ xorig%=b%!4-b%!20: yorig%=b%!16-b%!24
�: ș"Font_Paint",,author$,%10000,xorig%+160,yorig%-165
�' ș"Wimp_GetRectangle",,b% � more%
� �
�!ș"Font_LoseFont",fonthandle%
��
�:
�)� Animate spinning Earth and info box
�
��animate
�2�icon_settext(-1,pos%,"earth"+�spriteno%,b%,�)
� � �win_open(wininfo%,b%) �
�7 �icon_setval(wininfo%,8,"Searth"+�spriteno%,b%,�)
� �>oldtime%+10 �
& author$=�$authors%,author%,41)
< � �(author$)<41 � author$+=�$authors%,41-�(author$))
$6 author%+=1: � author%>�($authors%) � author%=0
.7 ș"Wimp_ForceRedraw",wininfo%,160,-174,780,-138
8 oldtime%=�
B �
L �
V/spriteno%-=1: � spriteno%=0 � spriteno%=117
`�
j:
t?� ================== Initialisation =======================
~:
�-� Dimension memory & initialise variables
� ��dim
�L� b% 512,ws% 160,c% 256,menspc% 250000,ind% 70000,font% 256,authors% 256
�-wsend%=ws%+160: menspcend%=menspc%+250000
�,mns%=menspc%: mne%=menspcend%: author%=0
�b%!0=&502: b%!4=0
��$authors%=" Programming: James Bursa Idea: Francis Bursa Flags: James Bursa Research: Francis Bursa Spinning World: James Bursa Data: Francis Bursa"
�&author$=�$authors%,41): oldtime%=0
��
�:
�� Start program
�
��init
Epercentage=0: countries%=245: ș"Hourglass_Percentage",percentage
quit%=�
�load_templates
�main_menu
(ș"Hourglass_Smash"
2�clear_screen
<�
F:
P � Create Earth on icon bar
Zݤiconbaricon
d� sprite% 20
nspriteno%=117
x$sprite%="earth117"
�A!b%=-1: b%!4=-40: b%!8=-15: b%!12=100: b%!16=100: b%!20=&3102
�Ob%!24=sprite%: b%!28=spritearea%: b%!32=11: ș"Wimp_CreateIcon",,b% � icon%
�
=icon%
�:
�/� Load template file with local sprite area
���load_templates
�1ș"OS_File",5,"EarthDataRes:Sprites" � ,,,,L%
�N� spritearea% L%+16: !spritearea%=L%+16: spritearea%!4=0: spritearea%!8=16
�7spritearea%!12=4: ș "OS_SpriteOp",&109,spritearea%
�<ș "OS_SpriteOp",&10A,spritearea%,"EarthDataRes:Sprites"
�0�win_opentemplates("EarthDataRes:Templates")
�?ș"Wimp_LoadTemplate",,b%,ws%,wsend%,font%,"Info",0 � ,,ws%
�b%!64=spritearea%
(ș"Wimp_CreateWindow",,b% � wininfo%
�win_closetemplates
�
":
, � Clear introduction message
6��clear_screen
@/ș "OS_ReadModeVariable",-1,11 � ,,screenx%
J/ș "OS_ReadModeVariable",-1,12 � ,,screeny%
T+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
^+ș "OS_ReadModeVariable",-1,4 � ,,xeig%
h:screenx%=screenx%*2*xeig%: screeny%=screeny%*(2*yeig%)
r screenx%=(screenx% � 2)-268
| screeny%=(screeny% � 2)-170
�Mș"Wimp_ForceRedraw",-1,screenx%,screeny%+70,screenx%+600,screeny%+340+70
��
�:
�� Create menus
���main_menu
�5menufile%=�wimp_openmessages("EarthDataRes:Menu")
�Lbarmenu%=�menu_make(�wimp_getmessage("BAR",b%,menufile%),mns%,mne%,ind%)
�Nmainmenu%=�menu_make(�wimp_getmessage("MAIN",b%,menufile%),mns%,mne%,ind%)
�*�menu_attachsub(0,barmenu%,0,wininfo%)
�+�menu_attachsub(0,mainmenu%,5,wininfo%)
��make_database
��
�:
� The main procedure
��make_database
Lafr%=�menu_make(�wimp_getmessage("AFRICA1",b%,menufile%),mns%,mne%,ind%)
&I�menu_extend(�wimp_getmessage("AFRICA2",b%,menufile%),mns%,mne%,ind%)
0I�menu_extend(�wimp_getmessage("AFRICA3",b%,menufile%),mns%,mne%,ind%)
:I�menu_extend(�wimp_getmessage("AFRICA4",b%,menufile%),mns%,mne%,ind%)
DMamr%=�menu_make(�wimp_getmessage("AMERICA1",b%,menufile%),mns%,mne%,ind%)
NJ�menu_extend(�wimp_getmessage("AMERICA2",b%,menufile%),mns%,mne%,ind%)
XJ�menu_extend(�wimp_getmessage("AMERICA3",b%,menufile%),mns%,mne%,ind%)
bJasi%=�menu_make(�wimp_getmessage("ASIA1",b%,menufile%),mns%,mne%,ind%)
lG�menu_extend(�wimp_getmessage("ASIA2",b%,menufile%),mns%,mne%,ind%)
vG�menu_extend(�wimp_getmessage("ASIA3",b%,menufile%),mns%,mne%,ind%)
�Leur%=�menu_make(�wimp_getmessage("EUROPE1",b%,menufile%),mns%,mne%,ind%)
�I�menu_extend(�wimp_getmessage("EUROPE2",b%,menufile%),mns%,mne%,ind%)
�I�menu_extend(�wimp_getmessage("EUROPE3",b%,menufile%),mns%,mne%,ind%)
�Loce%=�menu_make(�wimp_getmessage("OCEANIA",b%,menufile%),mns%,mne%,ind%)
� �menu_setwidth(afr%,300)
� �menu_setwidth(amr%,340)
� �menu_setwidth(asi%,340)
� �menu_setwidth(eur%,300)
� �menu_setwidth(oce%,340)
�'�menu_attachsub(0,mainmenu%,0,afr%)
�'�menu_attachsub(0,mainmenu%,1,amr%)
�'�menu_attachsub(0,mainmenu%,2,asi%)
�'�menu_attachsub(0,mainmenu%,3,eur%)
'�menu_attachsub(0,mainmenu%,4,oce%)
� Africa
,algeria%=�countrymenu("ALGERIA",%111110)
+angola% =�countrymenu("ANGOLA",%111110)
**benin% =�countrymenu("BENIN",%111110)
4-botswan%=�countrymenu("BOTSWANA",%111110)
>,burkina%=�countrymenu("BURKINA",%111110)
H,burundi%=�countrymenu("BURUNDI",%111110)
R,cameron%=�countrymenu("CAMERON",%111110)
\,capverd%=�countrymenu("CAPVERD",%111110)
f,cafrrep%=�countrymenu("CAFRREP",%111110)
p)chad% =�countrymenu("CHAD",%111110)
z,comoros%=�countrymenu("COMOROS",%111110)
�,djibuti%=�countrymenu("DJIBOUT",%111110)
�
�*egypt% =�countrymenu("EGYPT",%111110)
�Ocairo1% =�menu_make(�wimp_getmessage("EGYPT5",b%,menufile%),mns%,mne%,ind%)
�Ocairo2% =�menu_make(�wimp_getmessage("EGYPT6",b%,menufile%),mns%,mne%,ind%)
�Ocairo3% =�menu_make(�wimp_getmessage("EGYPT7",b%,menufile%),mns%,mne%,ind%)
�Ocairo4% =�menu_make(�wimp_getmessage("EGYPT8",b%,menufile%),mns%,mne%,ind%)
�(�menu_attachsub(0,bigcit%,0,cairo1%)
�(�menu_attachsub(0,cairo1%,0,cairo2%)
�(�menu_attachsub(0,cairo1%,1,cairo3%)
�(�menu_attachsub(0,cairo1%,3,cairo4%)
�
�,eqginea%=�countrymenu("EQGINEA",%111110)
,eritrea%=�countrymenu("ERITREA",%111110)
,ethopia%=�countrymenu("ETHOPIA",%111110)
*gabon% =�countrymenu("GABON",%111110)
$+gambia% =�countrymenu("GAMBIA",%111110)
.*ghana% =�countrymenu("GHANA",%111110)
8+guinea% =�countrymenu("GUINEA",%111110)
B-guinbis%=�countrymenu("GUINBISS",%111110)
L*ivory% =�countrymenu("IVORY",%111110)
V*kenya% =�countrymenu("KENYA",%111110)
`,lesotho%=�countrymenu("LESOTHO",%111110)
j,liberia%=�countrymenu("LIBERIA",%111110)
t*libya% =�countrymenu("LIBYA",%111110)
~/mad% =�countrymenu("MADAGASCAR",%111110)
�+malawi% =�countrymenu("MALAWI",%111110)
�)mali% =�countrymenu("MALI",%111110)
�2mauritania%=�countrymenu("MAURITANIA",%111110)
�
�Tmauritius%=�menu_make(�wimp_getmessage("MAURITIUS",b%,menufile%),mns%,mne%,ind%)
�\mauritian%=�countrymenu("MAURITIAN",%111110): �menu_attachsub(0,mauritius%,0,mauritian%)
�\rodriguez%=�countrymenu("RODRIGUEZ",%111100): �menu_attachsub(0,mauritius%,1,rodriguez%)
�
�,morocco%=�countrymenu("MOROCCO",%111110)
�*mozam% =�countrymenu("MOZAM",%111110)
�,namibia%=�countrymenu("NAMIBIA",%111110)
�*niger% =�countrymenu("NIGER",%111110)
,nigeria%=�countrymenu("NIGERIA",%111110)
+rwanda% =�countrymenu("RWANDA",%111110)
,saotom% =�countrymenu("SAOTOME",%111110)
,senegal%=�countrymenu("SENEGAL",%111110)
((sey% =�countrymenu("SEY",%111110)
2+sierra% =�countrymenu("SIERRA",%111110)
<,somalia%=�countrymenu("SOMALIA",%111110)
F*southa% =�countrymenu("SOUTH",%111110)
P
Z*sudan% =�countrymenu("SUDAN",%111110)
dukhart1% =�menu_make(�wimp_getmessage("SUDAN5",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,bigcit%,0,khart1%)
nukhart2% =�menu_make(�wimp_getmessage("SUDAN6",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,khart1%,0,khart2%)
xukhart3% =�menu_make(�wimp_getmessage("SUDAN7",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,khart1%,1,khart3%)
�ukhart4% =�menu_make(�wimp_getmessage("SUDAN8",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,khart1%,3,khart4%)
�ukhart5% =�menu_make(�wimp_getmessage("SUDAN9",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,khart1%,4,khart5%)
�
�(tan% =�countrymenu("TAN",%111110)
�)togo% =�countrymenu("TOGO",%111110)
�*tunis% =�countrymenu("TUNIS",%111110)
�+uganda% =�countrymenu("UGANDA",%111110)
�+sahara% =�countrymenu("SAHARA",%110010)
�*zaire% =�countrymenu("ZAIRE",%111110)
�+zambia% =�countrymenu("ZAMBIA",%111110)
�-zimb% =�countrymenu("ZIMBABWE",%111110)
�
�Qbrterr% =�menu_make(�wimp_getmessage("BRITTERR",b%,menufile%),mns%,mne%,ind%)
Uascensi%=�countrymenu("ASCENSION",%111100): �menu_attachsub(1,brterr%,0,ascensi%)
Thelena% =�countrymenu("HELENA",%111110) : �menu_attachsub(1,brterr%,1,helena%)
Strist% =�countrymenu("TRIST",%111100) : �menu_attachsub(1,brterr%,2,trist%)
" �menu_setwidth(brterr%,280)
,
6Ofrterrs%=�menu_make(�wimp_getmessage("FRTERR",b%,menufile%),mns%,mne%,ind%)
@Tmayotte%=�countrymenu("MAYOTTE",%111110): �menu_attachsub(1,frterrs%,0,mayotte%)
JTreunion%=�countrymenu("REUNION",%111110): �menu_attachsub(1,frterrs%,1,reunion%)
TTsoutant%=�countrymenu("SOUTANT",%111001): �menu_attachsub(1,frterrs%,2,soutant%)
^ �menu_deleteitem(soutant%,3)
husout2%=�menu_make(�wimp_getmessage("SOUTANT5",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,soutant%,4,sout2%)
rusout3%=�menu_make(�wimp_getmessage("SOUTANT6",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,soutant%,5,sout3%)
|ssout4%=�menu_make(�wimp_getmessage("SOUTANT7",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,sout2%,0,sout4%)
�ssout5%=�menu_make(�wimp_getmessage("SOUTANT8",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,sout3%,0,sout5%)
� �menu_setwidth(frterrs%,340)
�
�Pnorterr%=�menu_make(�wimp_getmessage("NORTERR",b%,menufile%),mns%,mne%,ind%)
�Sbouveti%=�countrymenu("BOUVET",%111000): �menu_attachsub(1,norterr%,0,bouveti%)
� �menu_setwidth(norterr%,250)
�
�Qporterr%=�menu_make(�wimp_getmessage("PORTTERR",b%,menufile%),mns%,mne%,ind%)
�Tmadeira%=�countrymenu("MADEIRA",%111110): �menu_attachsub(1,porterr%,0,madeira%)
� �menu_setwidth(porterr%,250)
�
�Ospterr% =�menu_make(�wimp_getmessage("SPTERR",b%,menufile%),mns%,mne%,ind%)
�Rcanarys%=�countrymenu("CANARY",%111110): �menu_attachsub(1,spterr%,0,canarys%)
�menu_setwidth(spterr%,250)
� America
&,antigua%=�countrymenu("ANTIGUA",%111110)
0
:+argen% =�countrymenu("ARGENT",%111110)
Dwbuenos1%=�menu_make(�wimp_getmessage("ARGENT5",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,bigcit%,0,buenos1%)
Nxbuenos2%=�menu_make(�wimp_getmessage("ARGENT6",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,buenos1%,0,buenos2%)
Xxbuenos3%=�menu_make(�wimp_getmessage("ARGENT7",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,buenos1%,1,buenos3%)
bxbuenos4%=�menu_make(�wimp_getmessage("ARGENT8",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,buenos1%,3,buenos4%)
l
v,bahamas%=�countrymenu("BAHAMAS",%111110)
�-barb% =�countrymenu("BARBADOS",%111110)
�+belize% =�countrymenu("BELIZE",%111110)
�,bolivia%=�countrymenu("BOLIVIA",%111110)
�+brazil% =�countrymenu("BRAZIL",%111110)
�+canada% =�countrymenu("CANADA",%111110)
�*chile% =�countrymenu("CHILE",%111110)
�-colomb% =�countrymenu("COLOMBIA",%111110)
�*costa% =�countrymenu("COSTA",%111110)
�)cuba% =�countrymenu("CUBA",%111110)
�-dom% =�countrymenu("DOMINICA",%111110)
�.domrep% =�countrymenu("DOMINICAN",%111110)
�,ecuador%=�countrymenu("ECUADOR",%111110)
�-elsal% =�countrymenu("SALVADOR",%111110)
,grenada%=�countrymenu("GRENADA",%111110)
.guat% =�countrymenu("GUATEMALA",%111110)
+guyana% =�countrymenu("GUYANA",%111110)
*haiti% =�countrymenu("HAITI",%111110)
*-hond% =�countrymenu("HONDURAS",%111110)
4,jamaica%=�countrymenu("JAMAICA",%111110)
>+mexico% =�countrymenu("MEXICO",%111110)
H.nic% =�countrymenu("NICARAGUA",%111110)
R+panama% =�countrymenu("PANAMA",%111110)
\-parag% =�countrymenu("PARAGUAY",%111110)
f
p)peru% =�countrymenu("PERU",%111110)
zqlima1%=�menu_make(�wimp_getmessage("PERU4",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,bigcit%,0,lima1%)
�plima2%=�menu_make(�wimp_getmessage("PERU5",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,lima1%,0,lima2%)
�plima3%=�menu_make(�wimp_getmessage("PERU6",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,lima1%,2,lima3%)
�
�*kitts% =�countrymenu("KITTS",%111110)
�*lucia% =�countrymenu("LUCIA",%111110)
�,vincent%=�countrymenu("VINCENT",%111110)
�,surinam%=�countrymenu("SURINAM",%111110)
�-trin% =�countrymenu("TRINIDAD",%111110)
�(usa% =�countrymenu("USA",%111110)
�,uruguay%=�countrymenu("URUGUAY",%111110)
�(ven% =�countrymenu("VEN",%111110)
�
�Qambrit% =�menu_make(�wimp_getmessage("AMBRTERR",b%,menufile%),mns%,mne%,ind%)
Pang% =�countrymenu("ANGUILLA",%111110): �menu_attachsub(1,ambrit%,0,ang%)
Pber% =�countrymenu("BERMUDA",%111110) : �menu_attachsub(1,ambrit%,1,ber%)
nbrant% =�countrymenu("BRANT",%011001) : �menu_attachsub(1,ambrit%,2,brant%): �menu_deleteitem(brant%,2)
$Rsouthg% =�countrymenu("SOUTHG",%111100) : �menu_attachsub(1,brant%,2,southg%)
.Svirgin% =�countrymenu("VIRGIN",%111110) : �menu_attachsub(1,ambrit%,3,virgin%)
8Scayman% =�countrymenu("CAYMAN",%111110) : �menu_attachsub(1,ambrit%,4,cayman%)
BQfalk% =�countrymenu("FALKLAND",%111110): �menu_attachsub(1,ambrit%,5,falk%)
LRmont% =�countrymenu("MONTSERRAT",%111110):�menu_attachsub(1,ambrit%,6,mont%)
VRturks% =�countrymenu("TURKS",%111110) : �menu_attachsub(1,ambrit%,7,turks%)
` �menu_setwidth(ambrit%,360)
j
tRamdane% =�menu_make(�wimp_getmessage("AMDANTERR",b%,menufile%),mns%,mne%,ind%)
~Sgreen% =�countrymenu("GREENLAND",%111110): �menu_attachsub(1,amdane%,0,green%)
� �menu_setwidth(amdane%,250)
�
�Tamdutch%=�menu_make(�wimp_getmessage("AMDUTCHTERR",b%,menufile%),mns%,mne%,ind%)
�Taruba% =�countrymenu("ARUBA",%111100) : �menu_attachsub(1,amdutch%,0,aruba%)
�Sants% =�countrymenu("NANTILLES",%111110): �menu_attachsub(1,amdutch%,1,ants%)
� �menu_setwidth(amdutch%,300)
�
�Qamfr% =�menu_make(�wimp_getmessage("FRAMTERR",b%,menufile%),mns%,mne%,ind%)
�Rfguiana%=�countrymenu("FRGUIANA",%111110): �menu_attachsub(1,amfr%,0,fguiana%)
�Oguad% =�countrymenu("GUAD",%111110) : �menu_attachsub(1,amfr%,1,guad%)
�Omart% =�countrymenu("MART",%111110) : �menu_attachsub(1,amfr%,2,mart%)
�Qpierre% =�countrymenu("PIERRE",%111110) : �menu_attachsub(1,amfr%,3,pierre%)
�menu_setwidth(amfr%,340)
Qamus% =�menu_make(�wimp_getmessage("USAMTERR",b%,menufile%),mns%,mne%,ind%)
Qpuerto% =�countrymenu("PUERTO",%111110) : �menu_attachsub(1,amus%,0,puerto%)
(Qusvirg% =�countrymenu("USVIRGIN",%111110): �menu_attachsub(1,amus%,1,usvirg%)
2 �menu_setwidth(amus%,320)
<
F
� Asia
P)afg% =�countrymenu("AFG",%111110)
Z.arm% =�countrymenu("ARMENIA",%111110)
d/azer% =�countrymenu("AZER",%111110)
n0bahrain%=�countrymenu("BAHRAIN",%111110)
x1bang% =�countrymenu("BANGLADESH",%111110)
�0bhutan% =�countrymenu("BHUTAN",%111110)
�2brunei% =�countrymenu("BRUNEI",%111110)
�*burma% =�countrymenu("BURMA",%111110)
�9camb% =�countrymenu("CAMBODIA",%111110)
�+china% =�countrymenu("CHINA",%111110)
�/cyprus% =�countrymenu("CYPRUS",%111110)
�,georgia%=�countrymenu("GEORGIA",%111110)
�-india% =�countrymenu("INDIA",%111110)
�*indo% =�countrymenu("INDO",%111110)
�)iran% =�countrymenu("IRAN",%111110)
�)iraq% =�countrymenu("IRAQ",%111110)
�
�+israel% =�countrymenu("ISRAEL",%111110)
stel1% =�menu_make(�wimp_getmessage("ISRAEL5",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,bigcit%,0,tel1%)
ptel2% =�menu_make(�wimp_getmessage("ISRAEL6",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,tel1%,0,tel2%)
ptel3% =�menu_make(�wimp_getmessage("ISRAEL7",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,tel1%,1,tel3%)
"xtel4% =�menu_make(�wimp_getmessage("ISRAEL8",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,tel1%,3,tel4%)
,qtel5% =�menu_make(�wimp_getmessage("ISRAEL9",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,tel1%,4,tel5%)
6rtel6% =�menu_make(�wimp_getmessage("ISRAEL10",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,tel1%,5,tel6%)
@rtel7% =�menu_make(�wimp_getmessage("ISRAEL11",b%,menufile%),mns%,mne%,ind%): �menu_attachsub(0,tel1%,6,tel7%)
J
T0japan% =�countrymenu("JAPAN",%111110)
^3jordan% =�countrymenu("JORDAN",%111110)
h-kazakh% =�countrymenu("KAZAKH",%111110)
r1kirghiz%=�countrymenu("KIRGHIZ",%111110)
|,korean% =�countrymenu("KOREAN",%111110)
�/koreas% =�countrymenu("KOREAS",%111110)
�0kuwait% =�countrymenu("KUWAIT",%111110)
�*laos% =�countrymenu("LAOS",%111110)
�0lebanon%=�countrymenu("LEBANON",%111110)
�,malay% =�countrymenu("MALAY",%111110)
�0maldive%=�countrymenu("MALDIVE",%111110)
�.mongol% =�countrymenu("MONGOL",%111110)
�/nepal% =�countrymenu("NEPAL",%111110)
�/oman% =�countrymenu("OMAN",%111110)
�/pak% =�countrymenu("PAK",%111110)
�)phil% =�countrymenu("PHIL",%111110)
�3qatar% =�countrymenu("QATAR",%111110)
�0saudi% =�countrymenu("SAUDI",%111110)
-sing% =�countrymenu("SING",%111110)
)sri% =�countrymenu("SRI",%111110)
-syria% =�countrymenu("SYRIA",%111110)
&3taiwan% =�countrymenu("TAIWAN",%111110)
01tajik% =�countrymenu("TAJIK",%111110)
:-thai% =�countrymenu("THAILAND",%111110)
D,turk% =�countrymenu("TURKEY",%111110)
N,turkmen%=�countrymenu("TURKMEN",%111110)
X(uae% =�countrymenu("UAE",%111110)
b*uzbek% =�countrymenu("UZBEK",%111110)
l,vietnam%=�countrymenu("VIETNAM",%111110)
v*yemen% =�countrymenu("YEMEN",%111110)
�
�Rasus% =�menu_make(�wimp_getmessage("ASAUSTERR",b%,menufile%),mns%,mne%,ind%)
�Mchris% =�countrymenu("CHRIS",%111100): �menu_attachsub(1,asus%,0,chris%)
�Mcocos% =�countrymenu("COCOS",%111100): �menu_attachsub(1,asus%,1,cocos%)
� �menu_setwidth(asus%,200)
�
�Tasbr% =�menu_make(�wimp_getmessage("ASBRITTERR",b%,menufile%),mns%,mne%,ind%)
�Qbrrind% =�countrymenu("BRINDOC",%111000) : �menu_attachsub(1,asbr%,0,brrind%)
�Phongk% =�countrymenu("HONGKONG",%111110): �menu_attachsub(1,asbr%,1,hongk%)
� �menu_setwidth(asbr%,340)
�
�Uasport% =�menu_make(�wimp_getmessage("ASPORTTERR",b%,menufile%),mns%,mne%,ind%)
�Omacau% =�countrymenu("MACAU",%111110): �menu_attachsub(1,asport%,0,macau%)
� Europe
/albania%=�countrymenu("ALBANIA",%111110)
1andorra%=�countrymenu("ANDORRA",%111110)
*/austria%=�countrymenu("AUSTRIA",%111110)
4,belgium%=�countrymenu("BELGIUM",%111110)
>-belo% =�countrymenu("BELO",%111110)
H/bosnia% =�countrymenu("BOSNIA",%111110)
R4bulgar% =�countrymenu("BULGARIA",%111110)
\,croatia%=�countrymenu("CROATIA",%111110)
f2czecho% =�countrymenu("CZECHO",%111110)
p,denmark%=�countrymenu("DENMARK",%111110)
z/estonia%=�countrymenu("ESTONIA",%111110)
�2finland%=�countrymenu("FINLAND",%111110)
�/france% =�countrymenu("FRANCE",%111110)
�,germany%=�countrymenu("GERMANY",%111110)
�/greece% =�countrymenu("GREECE",%111110)
�,hungary%=�countrymenu("HUNGARY",%111110)
�,iceland%=�countrymenu("ICELAND",%111110)
�,ireland%=�countrymenu("IRELAND",%111110)
�*italy% =�countrymenu("ITALY",%111110)
�-latvia% =�countrymenu("LATVIA",%111110)
�,liecht% =�countrymenu("LIECHT",%111110)
�1lith% =�countrymenu("LITHUANIA",%111110)
�)lux% =�countrymenu("LUX",%111110)
�0macedon%=�countrymenu("MACEDONIA",%111110)
.malta% =�countrymenu("MALTA",%111110)
.moldav% =�countrymenu("MOLDAVIA",%111110)
-monaco% =�countrymenu("MONACO",%111110)
$,holland%=�countrymenu("HOLLAND",%111110)
.+norway% =�countrymenu("NORWAY",%111110)
8+poland% =�countrymenu("POLAND",%111110)
B-port% =�countrymenu("PORTUGAL",%111110)
L,romania%=�countrymenu("ROMANIA",%111110)
V+russia% =�countrymenu("RUSSIA",%111110)
`,sanmar% =�countrymenu("SANMAR",%111110)
j0slovak% =�countrymenu("SLOVAKIA",%111110)
t-slovene%=�countrymenu("SLOVENIA",%111110)
~,spain% =�countrymenu("SPAIN",%111110)
�-sweden% =�countrymenu("SWEDEN",%111110)
�/switz% =�countrymenu("SWITZ",%111110)
�,ukraine%=�countrymenu("UKRAINE",%111110)
�*uk% =�countrymenu("UK",%111110)
�-vatican%=�countrymenu("VATICAN",%111110)
�/yug% =�countrymenu("YUG",%111110)
�
�Teurbrit%=�menu_make(�wimp_getmessage("EURBRITTERR",b%,menufile%),mns%,mne%,ind%)
�Qgib% =�countrymenu("GIB",%111110):�menu_attachsub(1,eurbrit%,0,gib%)
� �menu_setwidth(eurbrit%,250)
�
�Teurdan% =�menu_make(�wimp_getmessage("EURDANTERR",b%,menufile%),mns%,mne%,ind%)
Qfaroe% =�countrymenu("FAROE",%111110):�menu_attachsub(1,eurdan%,0,faroe%)
�menu_setwidth(eurdan%,250)
Xeurnor% =�menu_make(�wimp_getmessage("EURNORTERR",b%,menufile%),mns%,mne%,ind%)
(Jjan% =�countrymenu("JAN",%111000):�menu_attachsub(1,eurnor%,0,jan%)
2Lsval% =�countrymenu("SVAL",%111100):�menu_attachsub(1,eurnor%,1,sval%)
< �menu_setwidth(eurnor%,250)
F
PVeurport%=�menu_make(�wimp_getmessage("EURPORTTERR",b%,menufile%),mns%,mne%,ind%)
ZTazores% =�countrymenu("AZORES",%111110):�menu_attachsub(1,eurport%,0,azores%)
d
n
� Oceania
x,austral%=�countrymenu("AUSTRAL",%111110)
�.fiji% =�countrymenu("FIJI",%111110)
�.kirib% =�countrymenu("KIRIB",%111110)
�/nauru% =�countrymenu("NAURU",%111110)
�+nz% =�countrymenu("NZ",%111110)
�*png% =�countrymenu("PNG",%111110)
�-solomon%=�countrymenu("SOLOMON",%111110)
�/tonga% =�countrymenu("TONGA",%111110)
�/tuvalu% =�countrymenu("TUVALU",%111110)
�-vanuatu%=�countrymenu("VANUATU",%111110)
�+wsamoa% =�countrymenu("WSAMOA",%111110)
�
�Xocaus% =�menu_make(�wimp_getmessage("OCAUSTERR",b%,menufile%),mns%,mne%,ind%)
�Tlordhowe%=�countrymenu("LORDHOWE",%100000):�menu_attachsub(1,ocaus%,0,lordhowe%)
Snorfolk%=�countrymenu("NORFOLK",%111100) :�menu_attachsub(1,ocaus%,1,norfolk%)
�menu_setwidth(ocaus%,280)
"Xocbr% =�menu_make(�wimp_getmessage("OCBRTERR",b%,menufile%),mns%,mne%,ind%)
,Spitcairn%=�countrymenu("PITCAIRN",%111110):�menu_attachsub(1,ocbr%,0,pitcairn%)
6 �menu_setwidth(ocbr%,280)
@
J[occh% =�menu_make(�wimp_getmessage("OCCHTERR",b%,menufile%),mns%,mne%,ind%)
TNeaster% =�countrymenu("EASTER",%100000):�menu_attachsub(1,occh%,0,easter%)
^ �menu_setwidth(occh%,280)
h
r\ocfr% =�menu_make(�wimp_getmessage("OCFRTERR",b%,menufile%),mns%,mne%,ind%)
|Mfrpol% =�countrymenu("FRPOL",%111110) :�menu_attachsub(1,ocfr%,0,frpol%)
�Nnewcal% =�countrymenu("NEWCAL",%111110):�menu_attachsub(1,ocfr%,1,newcal%)
�Nwallis% =�countrymenu("WALLIS",%111110):�menu_attachsub(1,ocfr%,2,wallis%)
� �menu_setwidth(ocfr%,380)
�
�Qocnz% =�menu_make(�wimp_getmessage("OCNZTERR",b%,menufile%),mns%,mne%,ind%)
�Pchatham%=�countrymenu("CHATHAM",%011000):�menu_attachsub(1,ocnz%,0,chatham%)
�Mcook% =�countrymenu("COOK",%111100) :�menu_attachsub(1,ocnz%,1,cook%)
�Skermadec%=�countrymenu("KERMADEC",%110000):�menu_attachsub(1,ocnz%,2,kermadec%)
�Mniue% =�countrymenu("NIUE",%111100) :�menu_attachsub(1,ocnz%,3,niue%)
�Mross% =�countrymenu("ROSS",%010000) :�menu_attachsub(1,ocnz%,4,ross%)
�Ptokelau%=�countrymenu("TOKELAU",%111000):�menu_attachsub(1,ocnz%,5,tokelau%)
� �menu_setwidth(ocnz%,250)
�
Qocus% =�menu_make(�wimp_getmessage("OCUSTERR",b%,menufile%),mns%,mne%,ind%)
Pamsamoa%=�countrymenu("AMSAMOA",%110110):�menu_attachsub(1,ocus%,0,amsamoa%)
Nbelau% =�countrymenu("BELAU",%111100) :�menu_attachsub(1,ocus%,1,belau%)
&Mguam% =�countrymenu("GUAM",%111110) :�menu_attachsub(1,ocus%,2,guam%)
0Smarshall%=�countrymenu("MARSHALL",%111100):�menu_attachsub(1,ocus%,3,marshall%)
:Omicron% =�countrymenu("MICRON",%111100) :�menu_attachsub(1,ocus%,4,micron%)
DMnmar% =�countrymenu("NMAR",%111110) :�menu_attachsub(1,ocus%,5,nmar%)
N �menu_setwidth(ocus%,300)
X
b� Attaching menus
l&�menu_attachsub(1,afr%,0,algeria%)
v%�menu_attachsub(1,afr%,1,angola%)
�$�menu_attachsub(1,afr%,2,benin%)
�&�menu_attachsub(1,afr%,3,botswan%)
�&�menu_attachsub(1,afr%,4,burkina%)
�&�menu_attachsub(1,afr%,5,burundi%)
�&�menu_attachsub(1,afr%,6,cameron%)
�&�menu_attachsub(1,afr%,7,capverd%)
�&�menu_attachsub(1,afr%,8,cafrrep%)
�#�menu_attachsub(1,afr%,9,chad%)
�'�menu_attachsub(1,afr%,10,comoros%)
�'�menu_attachsub(1,afr%,11,djibuti%)
�%�menu_attachsub(1,afr%,12,egypt%)
�'�menu_attachsub(1,afr%,13,eqginea%)
�'�menu_attachsub(1,afr%,14,eritrea%)
'�menu_attachsub(1,afr%,15,ethopia%)
%�menu_attachsub(1,afr%,16,gabon%)
&�menu_attachsub(1,afr%,17,gambia%)
%�menu_attachsub(1,afr%,18,ghana%)
*&�menu_attachsub(1,afr%,19,guinea%)
4'�menu_attachsub(1,afr%,20,guinbis%)
>%�menu_attachsub(1,afr%,21,ivory%)
H%�menu_attachsub(1,afr%,22,kenya%)
R'�menu_attachsub(1,afr%,23,lesotho%)
\'�menu_attachsub(1,afr%,24,liberia%)
f%�menu_attachsub(1,afr%,25,libya%)
p#�menu_attachsub(1,afr%,26,mad%)
z&�menu_attachsub(1,afr%,27,malawi%)
�$�menu_attachsub(1,afr%,28,mali%)
�*�menu_attachsub(1,afr%,29,mauritania%)
�)�menu_attachsub(1,afr%,30,mauritius%)
�'�menu_attachsub(1,afr%,31,morocco%)
�%�menu_attachsub(1,afr%,32,mozam%)
�'�menu_attachsub(1,afr%,33,namibia%)
�%�menu_attachsub(1,afr%,34,niger%)
�'�menu_attachsub(1,afr%,35,nigeria%)
�&�menu_attachsub(1,afr%,36,rwanda%)
�&�menu_attachsub(1,afr%,37,saotom%)
�'�menu_attachsub(1,afr%,38,senegal%)
�#�menu_attachsub(1,afr%,39,sey%)
�&�menu_attachsub(1,afr%,40,sierra%)
'�menu_attachsub(1,afr%,41,somalia%)
&�menu_attachsub(1,afr%,42,southa%)
%�menu_attachsub(1,afr%,43,sudan%)
$#�menu_attachsub(1,afr%,44,tan%)
.$�menu_attachsub(1,afr%,45,togo%)
8%�menu_attachsub(1,afr%,46,tunis%)
B&�menu_attachsub(1,afr%,47,uganda%)
L&�menu_attachsub(1,afr%,48,sahara%)
V%�menu_attachsub(1,afr%,49,zaire%)
`&�menu_attachsub(1,afr%,50,zambia%)
j$�menu_attachsub(1,afr%,51,zimb%)
t&�menu_attachsub(1,afr%,52,brterr%)
~'�menu_attachsub(1,afr%,53,frterrs%)
�'�menu_attachsub(1,afr%,54,norterr%)
�'�menu_attachsub(1,afr%,55,porterr%)
�&�menu_attachsub(1,afr%,56,spterr%)
�&�menu_attachsub(1,amr%,0,antigua%)
�$�menu_attachsub(1,amr%,1,argen%)
�&�menu_attachsub(1,amr%,2,bahamas%)
�#�menu_attachsub(1,amr%,3,barb%)
�%�menu_attachsub(1,amr%,4,belize%)
�&�menu_attachsub(1,amr%,5,bolivia%)
�%�menu_attachsub(1,amr%,6,brazil%)
�%�menu_attachsub(1,amr%,7,canada%)
�$�menu_attachsub(1,amr%,8,chile%)
%�menu_attachsub(1,amr%,9,colomb%)
%�menu_attachsub(1,amr%,10,costa%)
$�menu_attachsub(1,amr%,11,cuba%)
#�menu_attachsub(1,amr%,12,dom%)
(&�menu_attachsub(1,amr%,13,domrep%)
2'�menu_attachsub(1,amr%,14,ecuador%)
<%�menu_attachsub(1,amr%,15,elsal%)
F'�menu_attachsub(1,amr%,16,grenada%)
P$�menu_attachsub(1,amr%,17,guat%)
Z&�menu_attachsub(1,amr%,18,guyana%)
d%�menu_attachsub(1,amr%,19,haiti%)
n$�menu_attachsub(1,amr%,20,hond%)
x'�menu_attachsub(1,amr%,21,jamaica%)
�&�menu_attachsub(1,amr%,22,mexico%)
�#�menu_attachsub(1,amr%,23,nic%)
�&�menu_attachsub(1,amr%,24,panama%)
�%�menu_attachsub(1,amr%,25,parag%)
�$�menu_attachsub(1,amr%,26,peru%)
�%�menu_attachsub(1,amr%,27,kitts%)
�%�menu_attachsub(1,amr%,28,lucia%)
�'�menu_attachsub(1,amr%,29,vincent%)
�'�menu_attachsub(1,amr%,30,surinam%)
�$�menu_attachsub(1,amr%,31,trin%)
�#�menu_attachsub(1,amr%,32,usa%)
�'�menu_attachsub(1,amr%,33,uruguay%)
�#�menu_attachsub(1,amr%,34,ven%)
&�menu_attachsub(1,amr%,35,ambrit%)
&�menu_attachsub(1,amr%,36,amdane%)
'�menu_attachsub(1,amr%,37,amdutch%)
"$�menu_attachsub(1,amr%,38,amfr%)
,$�menu_attachsub(1,amr%,39,amus%)
6"�menu_attachsub(1,asi%,0,afg%)
@"�menu_attachsub(1,asi%,1,arm%)
J#�menu_attachsub(1,asi%,2,azer%)
T&�menu_attachsub(1,asi%,3,bahrain%)
^#�menu_attachsub(1,asi%,4,bang%)
h%�menu_attachsub(1,asi%,5,bhutan%)
r%�menu_attachsub(1,asi%,6,brunei%)
|$�menu_attachsub(1,asi%,7,burma%)
�#�menu_attachsub(1,asi%,8,camb%)
�$�menu_attachsub(1,asi%,9,china%)
�&�menu_attachsub(1,asi%,10,cyprus%)
�'�menu_attachsub(1,asi%,11,georgia%)
�%�menu_attachsub(1,asi%,12,india%)
�$�menu_attachsub(1,asi%,13,indo%)
�$�menu_attachsub(1,asi%,14,iran%)
�$�menu_attachsub(1,asi%,15,iraq%)
�&�menu_attachsub(1,asi%,16,israel%)
�%�menu_attachsub(1,asi%,17,japan%)
�&�menu_attachsub(1,asi%,18,jordan%)
�&�menu_attachsub(1,asi%,19,kazakh%)
�'�menu_attachsub(1,asi%,20,kirghiz%)
&�menu_attachsub(1,asi%,21,korean%)
'�menu_attachsub(1,asi%,22,koreas%)
&�menu_attachsub(1,asi%,23,kuwait%)
&$�menu_attachsub(1,asi%,24,laos%)
0'�menu_attachsub(1,asi%,25,lebanon%)
:%�menu_attachsub(1,asi%,26,malay%)
D'�menu_attachsub(1,asi%,27,maldive%)
N&�menu_attachsub(1,asi%,28,mongol%)
X%�menu_attachsub(1,asi%,29,nepal%)
b$�menu_attachsub(1,asi%,30,oman%)
l#�menu_attachsub(1,asi%,31,pak%)
v$�menu_attachsub(1,asi%,32,phil%)
�%�menu_attachsub(1,asi%,33,qatar%)
�%�menu_attachsub(1,asi%,34,saudi%)
�$�menu_attachsub(1,asi%,35,sing%)
�#�menu_attachsub(1,asi%,36,sri%)
�%�menu_attachsub(1,asi%,37,syria%)
�0�menu_attachsub(1,asi%,38,taiwan%)
�%�menu_attachsub(1,asi%,39,tajik%)
�$�menu_attachsub(1,asi%,40,thai%)
�$�menu_attachsub(1,asi%,41,turk%)
�'�menu_attachsub(1,asi%,42,turkmen%)
�#�menu_attachsub(1,asi%,43,uae%)
�%�menu_attachsub(1,asi%,44,uzbek%)
�'�menu_attachsub(1,asi%,45,vietnam%)
%�menu_attachsub(1,asi%,46,yemen%)
$�menu_attachsub(1,asi%,47,asus%)
$�menu_attachsub(1,asi%,48,asbr%)
&�menu_attachsub(1,asi%,49,asport%)
*&�menu_attachsub(1,eur%,0,albania%)
4&�menu_attachsub(1,eur%,1,andorra%)
>&�menu_attachsub(1,eur%,2,austria%)
H&�menu_attachsub(1,eur%,3,belgium%)
R#�menu_attachsub(1,eur%,4,belo%)
\%�menu_attachsub(1,eur%,5,bosnia%)
f%�menu_attachsub(1,eur%,6,bulgar%)
p+�menu_attachsub(1,eur%,7,croatia%)
z%�menu_attachsub(1,eur%,8,czecho%)
�&�menu_attachsub(1,eur%,9,denmark%)
�'�menu_attachsub(1,eur%,10,estonia%)
�'�menu_attachsub(1,eur%,11,finland%)
�&�menu_attachsub(1,eur%,12,france%)
�'�menu_attachsub(1,eur%,13,germany%)
�&�menu_attachsub(1,eur%,14,greece%)
�'�menu_attachsub(1,eur%,15,hungary%)
�'�menu_attachsub(1,eur%,16,iceland%)
�)�menu_attachsub(1,eur%,17,ireland%)
�%�menu_attachsub(1,eur%,18,italy%)
�&�menu_attachsub(1,eur%,19,latvia%)
�&�menu_attachsub(1,eur%,20,liecht%)
�$�menu_attachsub(1,eur%,21,lith%)
#�menu_attachsub(1,eur%,22,lux%)
'�menu_attachsub(1,eur%,23,macedon%)
%�menu_attachsub(1,eur%,24,malta%)
$&�menu_attachsub(1,eur%,25,moldav%)
.&�menu_attachsub(1,eur%,26,monaco%)
8'�menu_attachsub(1,eur%,27,holland%)
B&�menu_attachsub(1,eur%,28,norway%)
L&�menu_attachsub(1,eur%,29,poland%)
V$�menu_attachsub(1,eur%,30,port%)
`'�menu_attachsub(1,eur%,31,romania%)
j&�menu_attachsub(1,eur%,32,russia%)
t&�menu_attachsub(1,eur%,33,sanmar%)
~&�menu_attachsub(1,eur%,34,slovak%)
�'�menu_attachsub(1,eur%,35,slovene%)
�%�menu_attachsub(1,eur%,36,spain%)
�&�menu_attachsub(1,eur%,37,sweden%)
�%�menu_attachsub(1,eur%,38,switz%)
�'�menu_attachsub(1,eur%,39,ukraine%)
�"�menu_attachsub(1,eur%,40,uk%)
�'�menu_attachsub(1,eur%,41,vatican%)
�#�menu_attachsub(1,eur%,42,yug%)
�'�menu_attachsub(1,eur%,43,eurbrit%)
�&�menu_attachsub(1,eur%,44,eurdan%)
�&�menu_attachsub(1,eur%,45,eurnor%)
�'�menu_attachsub(1,eur%,46,eurport%)
&�menu_attachsub(1,oce%,0,austral%)
#�menu_attachsub(1,oce%,1,fiji%)
$�menu_attachsub(1,oce%,2,kirib%)
$�menu_attachsub(1,oce%,3,nauru%)
(!�menu_attachsub(1,oce%,4,nz%)
2"�menu_attachsub(1,oce%,5,png%)
<&�menu_attachsub(1,oce%,6,solomon%)
F$�menu_attachsub(1,oce%,7,tonga%)
P%�menu_attachsub(1,oce%,8,tuvalu%)
Z&�menu_attachsub(1,oce%,9,vanuatu%)
d&�menu_attachsub(1,oce%,10,wsamoa%)
n%�menu_attachsub(1,oce%,11,ocaus%)
x$�menu_attachsub(1,oce%,12,ocbr%)
�$�menu_attachsub(1,oce%,13,occh%)
�$�menu_attachsub(1,oce%,14,ocfr%)
�$�menu_attachsub(1,oce%,15,ocnz%)
�$�menu_attachsub(1,oce%,16,ocus%)
��
�:
�!� Create a menu for a country
�#� �countrymenu(country$,flags%)
�9country1$=�wimp_getmessage(country$+"1",b%,menufile%)
�posit%=�country1$,",")
�%countrymenu$=�country1$,posit%-1)
�9� (flags% � %100000)<>0 � countrymenu$+=",Population"
�3� (flags% � %010000)<>0 � countrymenu$+=",Area"
9� (flags% � %001000)<>0 � countrymenu$+=",Government"
;� (flags% � %000100)<>0 � countrymenu$+=",Capital City"
:� (flags% � %000010)<>0 � countrymenu$+=",Large Towns"
" � (flags% � %000001)<>0 �
," countrymenu$+=", Regions:,"
6? countrymenu$+=�wimp_getmessage(country$+"4",b%,menufile%)
@ �
J$posit2%=�country1$,",",posit%+1)
T4country%=�menu_make(countrymenu$,mns%,mne%,ind%)
^
sub%=0
h�� (flags% � %100000)<>0 � temp1%=�menu_make("Population,"+�country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=�country1$,",",posit%+1): �menu_attachsub(0,country%,sub%,temp1%): sub%+=1
r�� (flags% � %010000)<>0 � temp2%=�menu_make("Area (km�),"+�country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=�country1$,",",posit%+1): �menu_attachsub(0,country%,sub%,temp2%): sub%+=1
|�� (flags% � %001000)<>0 � temp3%=�menu_make("Government,"+�country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=�country1$,",",posit%+1): �menu_attachsub(0,country%,sub%,temp3%): sub%+=1
��� (flags% � %000100)<>0 � temp4%=�menu_make("Capital City,"+�country1$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%): posit%=posit2%: posit2%=�country1$,",",posit%+1): �menu_attachsub(0,country%,sub%,temp4%): sub%+=1
� � (flags% � %000010)<>0 �
�� bigcit%=�menu_make("Large Towns,"+�wimp_getmessage(country$+"2",b%,menufile%),mns%,mne%,ind%): posit%=posit2%: �menu_attachsub(0,country%,sub%,bigcit%): sub%+=1
�: citpops$=�wimp_getmessage(country$+"3",b%,menufile%)
� posit%=0
�, � city%=1 � �menu_countitems(bigcit%)
�' posit2%=�citpops$,",",posit%+1)
�\ temp%=�menu_make("Population,"+�citpops$,posit%+1,posit2%-posit%-1),mns%,mne%,ind%):
�8 posit%=posit2%: posit2%=�country1$,",",posit%+1)
�0 �menu_attachsub(0,bigcit%,city%-1,temp%)
� �
� �
�B� (flags% � %000001)<>0 � �menu_setitemline(country%,sub%-1,�)
percentage+=100/countries%
'ș"Hourglass_Percentage",percentage
=country%
&
08� ================== Libraries =====================
:=ݤwimp_error(C`$,I_%):� D`%,E`%:D`%=�:F`$="":G`$="":Ȏ� �
D1� 1<<30:H`$="":d_$="Error from "+C`$:F`$="OK"
N8� (1<<30)+1:H`$="":d_$="Reminder from "+C`$:F`$="OK"
X�:D`%=�:H`$=" at line "+Þ+" Error code: "+ß+" (OK to continue, Cancel to quit)":d_$="Error from "+C`$:F`$="Continue":G`$="Quit"
bE�:E`%=�wimp_reporterror(�$+H`$,d_$,F`$,G`$,I_%):� D`%=� � E`%=2 �
l�E`%=�wimp_reporterror("Are you sure you want to quit? (OK to continue, Cancel to quit)","Question from "+C`$,"Continue","Quit",I_%)
v�:=(E`%=2)
�
�+ݤwimp_reporterror(I`$,d_$,F`$,G`$,I_%)
�I_%!0=�: $(I_%+4)=I`$
� � G`$="" �
�6 ș"Wimp_ReportError",I_%,%010001,d_$ � ,result_%
� �
�8 ș"Wimp_ReportError",I_%,%010011,d_$ � ,result_%
� �
�
=result_%
�
�.��wimp_close(A`%):ș262365,A`%,&4B534154:�
�
�4��menu_show(g_%,K_%,L_%):ș262356,,g_%,K_%,L_%:�
!
! ���menu_iconbar(g_%,I_%):� y_%,h_%:ș262351,,I_%:y_%=�menu_countitems(g_%):Q_%=y_%*44:� h_%=1 � y_%:�menu_getitemline(g_%,h_%-1)� Q_%+=24
!,�:ș262356,,g_%,!I_%-(g_%!16/2),96+Q_%:�
!
!*���menu_window(a_%,I_%):� O_%,P_%,Q_%,R_%:ș262351,,I_%:O_%=I_%!0:P_%=I_%!4:!I_%=a_%:ș262347,,I_%:Q_%=I_%!8-I_%!16:R_%=I_%!4-I_%!12:�menu_show(a_%,O_%+R_%/2,P_%-Q_%/2):�
!4
!>`��menu_adjust(I_%,g_%):�LOCAL `_%:SYS262351,,I_%:`_%=(I_%!8 AND 1):IF `_%=FALSE THEN ENDPROC
!Hș262356,,g_%:�
!R
!\,��win_opentemplates(D_$):ș262361,,D_$:�
!f
!p#��win_closetemplates:ș262362:�
!z
!�ݤwimp_openmessages(P`$):� Q`%,R`%,S`%:ș8,15,P`$ � Q`%,,,,R`%:� Q`%=0 �� 0,"Message file not found in FNwimp_openmessages"
!�/� T`%16,S`%R`%+16:ș267521,T`%,P`$,S`%:=T`%
!�
!��ݤmenu_make(g_$,� e_%,f_%,� j_%):� o_%,p_%,q_%,r_%,s_%:o_%=�:p_%=�:q_%=�:r_%=�:s_%=�:t_%=�g_$,","):d_$=�g_$,t_%-1):R_%=�d_$-3:g_%=�menu_header(d_$,R_%*16+32,e_%,f_%)
!�9h_%=0:u_%=�g_$,",",t_%+1):�:h_$=�g_$,t_%+1,u_%-1-t_%)
!�)�h_$,1)="�" � o_%=�:h_$=�h_$,�h_$-1)
!�)�h_$,1)="-" � p_%=�:h_$=�h_$,�h_$-1)
!�k�h_$,1)="@" � q_%=�:h_$=�h_$,�h_$-1):v_%=(�h_$-48)*10:h_$=�h_$,�h_$-1):v_%+=(�h_$-48):h_$=�h_$,�h_$-1)
!�)�h_$,1)="+" � r_%=�:h_$=�h_$,�h_$-1)
!�)�h_$,1)="*" � s_%=�:h_$=�h_$,�h_$-1)
!�N�menu_item(h_$,-1,e_%,f_%,j_%):� o_%=� ��menu_setitemtick(g_%,h_%,�):o_%=�
!�/� p_%=� ��menu_setitemline(g_%,h_%,�):p_%=�
!�:� q_%=� ��menu_setitemwrite(g_%,h_%,�,j_%,v_%+1):q_%=�
"/� r_%=� ��menu_setitemmess(g_%,h_%,�):r_%=�
"/� s_%=� ��menu_setitemgrey(g_%,h_%,�):s_%=�
":t_%=u_%:u_%=�g_$,",",u_%+1):h_%+=1:�h_$>R_%� R_%=�h_$
"$@� t_%=0:g_%!16=R_%*16+32:�menu_setitemlast(g_%,h_%-1,�):=g_%
".
"8Zݤwimp_getmessage(U`$,I_%,T`_%):� a%:ș267522,T`_%,U`$,I_%�,,x_%:=�wimp_getstring(x_%)
"B
"L>��menu_attachsub(flag%,g_%,h_%,i_%):!(g_%+28+h_%*24+4)=i_%
"V � flag% �
"`- flagcountry$=�menu_getitemtext(g_%,h_%)
"j0 � �flagcountry$," ")>0 � more%=1 � more%=0
"t ȕ more%>0
"~ more%=�flagcountry$," ")
"�, � more%>0 �flagcountry$,more%,1)="_"
"� �
"�5 �menu_setitemval(g_%,h_%,"S"+�flagcountry$,12))
"� �
"��
"�
"�Zݤmenu_getitemtext(g_%,h_%):� (g_%!(28+24*h_%+8)�%100000000)<>0 � =$g_%!(28+24*h_%+12)
"�(=�wimp_getstring(g_%+(28+24*h_%+12))
"�
"�|��menu_setitemval(k_%,h_%,n_$):� (k_%!(28+h_%*24+8)�%100000000)=0 �� 0,"Menu item not indirected in PROCmenu_setitemval"
"�4$ind%=n_$:k_%!(28+h_%*24+16)=ind%:ind%+=�n_$+1:�
"�
# ���menu_extend(g_$,� e_%,f_%,� j_%):� o_%,p_%,q_%,r_%,s_%:o_%=�:p_%=�:q_%=�:r_%=�:s_%=�:�menu_setitemlast(g_%,h_%-1,�):t_%=0:u_%=�g_$,",",t_%+1):�:h_$=�g_$,t_%+1,u_%-1-t_%):�h_$,1)="�" � o_%=�:h_$=�h_$,�h_$-1)
#
)�h_$,1)="-" � p_%=�:h_$=�h_$,�h_$-1)
#k�h_$,1)="@" � q_%=�:h_$=�h_$,�h_$-1):v_%=(�h_$-48)*10:h_$=�h_$,�h_$-1):v_%+=(�h_$-48):h_$=�h_$,�h_$-1)
# )�h_$,1)="+" � r_%=�:h_$=�h_$,�h_$-1)
#()�h_$,1)="*" � s_%=�:h_$=�h_$,�h_$-1)
#2O�menu_item(h_$,-1,e_%,f_%,j_%):� o_%=� � �menu_setitemtick(g_%,h_%,�):o_%=�
#<0� p_%=� � �menu_setitemline(g_%,h_%,�):p_%=�
#F;� q_%=� � �menu_setitemwrite(g_%,h_%,�,j_%,v_%+1):q_%=�
#P0� r_%=� � �menu_setitemmess(g_%,h_%,�):r_%=�
#Z0� s_%=� � �menu_setitemgrey(g_%,h_%,�):s_%=�
#dOt_%=u_%:u_%=�g_$,",",u_%+1):h_%+=1:� t_%=0:�menu_setitemlast(g_%,h_%-1,�):�
#n
#x���menu_deleteitem(g_%,h_%):� z_%,t_%:z_%=�:t_%=28+h_%*24:� (g_%!t_%�%10000000)<>0 � h_%=0 �� 0,"Attempt to delete only menu item"
#�?� (g_%!t_%�%10000000)<>0 � �menu_setitemlast(g_%,h_%-1,�):�
#���:g_%!(t_%+0)=g_%!(t_%+24):g_%!(t_%+4)=g_%!(t_%+28):g_%!(t_%+8)=g_%!(t_%+32):g_%!(t_%+12)=g_%!(t_%+36):g_%!(t_%+16)=g_%!(t_%+40):g_%!(t_%+20)=g_%!(t_%+44):� (g_%!t_%� %10000000)<>0 � z_%=�
#�t_%+=24:� z_%=�:�
#�
#�[ݤmenu_countitems(g_%):� x_%:x_%=28:ȕ (g_%!x_%�%10000000)=0:x_%+=24:�:=((x_%-28)/24)+1
#�
#�-��menu_setitemline(g_%,h_%,W_%):� W_%=� �
#�-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00000010
#�(�:� (g_%!(28+h_%*24)�%00000010)<>0 �
#�-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00000010
#��
#��:�
#�
$���icon_settext(S_%,T_%,U_$,I_%,V_%):!I_%=S_%:I_%!4=T_%:ș262350,,I_%:� (I_%!24 �%100000000)=0 �� 0,"Icon text not indirected in PROCicon_seticontext"
$K$(I_%!28)=U_$:� V_%� I_%!0=S_%:I_%!4=T_%:I_%!8=0:I_%!12=0:ș262349,,I_%
$�
$"
$,Tݤwin_open(J_%,I_%):!I_%=J_%:ș262347,,I_%:� (I_%!32 �%10000000000000000)<>0 �=�
$6=�
$@
$J���icon_setval(S_%,T_%,U_$,I_%,V_%):!I_%=S_%:I_%!4=T_%:ș262350,,I_%:� (I_%!24 �%100000000)=0 �� 0,"Icon text not indirected in PROCicon_seticonval"
$TK$(I_%!32)=U_$:� V_%� I_%!0=S_%:I_%!4=T_%:I_%!8=0:I_%!12=0:ș262349,,I_%
$^�
$h
$r?ݤmenu_getitemline(g_%,h_%):=(g_%!(28+h_%*24)�%00000010)<>0
$|
$�Tݤmenu_header(d_$,R_%,� e_%,f_%):� g_%:� e_%+28>f_%�� 0,"Not enough menu space!"
$�eg_%=e_%:$(e_%)=d_$:e_%?12=7:e_%?13=2:e_%?14=7:e_%?15=1:e_%!16=R_%:e_%!20=44:e_%!24=0:e_%+=28:=g_%
$�
$�R��menu_item(h_$,i_%,� e_%,f_%,� j_%):� e_%+24>f_%�� 0,"Not enough menu space!"
$�.!e_%=0:e_%!4=i_%:e_%!8=&07000021:�h_$<0 �
$�$(e_%+12)=h_$
$�M�:e_%!8=&17000333:e_%!12=j_%:e_%!16=-1:e_%!20=�h_$+1:$j_%=h_$:j_%+=�h_$+1
$��:e_%+=24:�
$�
$�2��menu_setitemtick(g_%,h_%,W_%):� W_%=TRUETHEN
$�-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00000001
$�(�:� (g_%!(28+h_%*24)�%00000001)<>0 �
$�-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00000001
%�
%�:�
%
%&=��menu_setitemwrite(g_%,h_%,W_%,� j_%,m_%):� W_%=TRUETHEN
%0�g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00000100:g_%!(28+h_%*24+8)=g_%!(28+h_%*24+8)�%100000000:$j_%=$(g_%+28+h_%*24+12):g_%!(28+h_%*24+12)=j_%:g_%!(28+h_%*24+16)=-1:g_%!(28+h_%*24+20)=m_%:j_%+=m_%+1
%:(�:� (g_%!(28+h_%*24)�%00000100)<>0 �
%D-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00000100
%N�
%X�:�
%b
%l2��menu_setitemmess(g_%,h_%,W_%):� W_%=TRUETHEN
%v-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00001000
%�(�:� (g_%!(28+h_%*24)�%00001000)<>0 �
%�-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%00001000
%��
%��:�
%�
%�2��menu_setitemgrey(g_%,h_%,W_%):� W_%=TRUETHEN
%�Bg_%!(28+h_%*24+8)=(g_%!(28+h_%*24+8)�%10000000000000000000000)
%�9�:� (g_%!(28+h_%*24+8)�%10000000000000000000000)<>0 �
%�@g_%!(28+h_%*24+8)=g_%!(28+h_%*24+8)�%10000000000000000000000
%��
%��:�
%�
%�-��menu_setitemlast(g_%,h_%,W_%):� W_%=� �
&-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%10000000
& (�:� (g_%!(28+h_%*24)�%10000000)<>0 �
&-g_%!(28+h_%*24)=g_%!(28+h_%*24)�%10000000
& �
&*�:�
&4
&>)��menu_setwidth(g_%,R_%):g_%!16=R_%:�
&H
&RGݤwimp_getstring(n_%):� V`%:ȕ n_%?V`%>31:V`%+=1:�:n_%?V`%=13:=$n_%
&\
&fnݤwimp_initialise(A`$,messagesblk_%):ș262336,300,&4B534154,A`$,messagesblk_% � A`%:errorhappened_%=�:=A`%
� 00000000 0d 00 0a 1c f4 20 3e 20 21 45 61 72 74 68 44 61 |..... > !EarthDa|
00000010 74 61 2e 21 52 75 6e 49 6d 61 67 65 0d 00 14 21 |ta.!RunImage...!|
00000020 f4 20 56 65 72 73 69 6f 6e 20 31 2e 30 30 20 20 |. Version 1.00 |
00000030 28 30 31 2d 4a 75 6c 2d 31 39 39 35 29 0d 00 1e |(01-Jul-1995)...|
00000040 16 f4 20 4a 61 6d 65 73 20 42 75 72 73 61 20 31 |.. James Bursa 1|
00000050 39 39 35 0d 00 28 20 f4 20 4c 69 62 72 61 72 69 |995..( . Librari|
00000060 65 73 20 6c 69 6e 6b 65 64 20 62 79 20 42 6c 69 |es linked by Bli|
00000070 62 49 49 0d 00 32 04 0d 00 3c 31 ee 20 85 20 ee |bII..2...<1. . .|
00000080 20 85 20 87 3a 20 ff 28 22 45 72 72 6f 72 20 30 | . .: .("Error 0|
00000090 20 22 2b f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 | "+.$+" at line |
000000a0 22 2b c3 9e 29 3a 20 e0 0d 00 46 04 0d 00 50 08 |"+..): ...F...P.|
000000b0 f2 64 69 6d 0d 00 5a 2a 74 61 73 6b 25 3d a4 77 |.dim..Z*task%=.w|
000000c0 69 6d 70 5f 69 6e 69 74 69 61 6c 69 73 65 28 22 |imp_initialise("|
000000d0 45 61 72 74 68 44 61 74 61 22 2c 62 25 29 0d 00 |EarthData",b%)..|
000000e0 64 09 f2 69 6e 69 74 0d 00 6e 15 70 6f 73 25 3d |d..init..n.pos%=|
000000f0 a4 69 63 6f 6e 62 61 72 69 63 6f 6e 0d 00 78 04 |.iconbaricon..x.|
00000100 0d 00 82 3f ee 20 85 20 e7 20 a4 77 69 6d 70 5f |...?. . . .wimp_|
00000110 65 72 72 6f 72 28 22 45 61 72 74 68 44 61 74 61 |error("EarthData|
00000120 22 2c 62 25 29 3d b9 20 8c 20 f2 77 69 6d 70 5f |",b%)=. . .wimp_|
00000130 63 6c 6f 73 65 28 74 61 73 6b 25 29 3a 20 e0 0d |close(task%): ..|
00000140 00 8c 04 0d 00 96 06 20 f5 0d 00 a0 0b 20 20 f2 |....... ..... .|
00000150 70 6f 6c 6c 0d 00 aa 0c 20 fd 20 71 75 69 74 25 |poll.... . quit%|
00000160 0d 00 b4 05 20 0d 00 be 16 f2 77 69 6d 70 5f 63 |.... .....wimp_c|
00000170 6c 6f 73 65 28 74 61 73 6b 25 29 0d 00 c8 05 e0 |lose(task%).....|
00000180 0d 00 d2 05 3a 0d 00 dc 17 f4 20 4d 61 69 6e 20 |....:..... Main |
00000190 70 72 6f 67 72 61 6d 20 6c 6f 6f 70 0d 00 e6 0a |program loop....|
000001a0 dd f2 70 6f 6c 6c 0d 00 f0 1c c8 99 20 22 57 69 |..poll...... "Wi|
000001b0 6d 70 5f 50 6f 6c 6c 22 2c 30 2c 62 25 20 b8 20 |mp_Poll",0,b% . |
000001c0 72 25 0d 00 fa 0c 20 c8 8e 20 72 25 20 ca 0d 01 |r%.... .. r% ...|
000001d0 04 13 20 20 c9 20 30 3a 20 f2 61 6e 69 6d 61 74 |.. . 0: .animat|
000001e0 65 0d 01 0e 16 20 20 c9 20 31 3a 20 f2 72 65 64 |e.... . 1: .red|
000001f0 72 61 77 69 6e 66 6f 0d 01 18 23 20 20 c9 20 32 |rawinfo...# . 2|
00000200 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 |: .. "Wimp_OpenW|
00000210 69 6e 64 6f 77 22 2c 2c 62 25 0d 01 22 24 20 20 |indow",,b%.."$ |
00000220 c9 20 33 3a 20 c8 99 20 22 57 69 6d 70 5f 43 6c |. 3: .. "Wimp_Cl|
00000230 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 01 |oseWindow",,b%..|
00000240 2c 16 20 20 c9 20 36 3a 20 f2 6d 6f 75 73 65 63 |,. . 6: .mousec|
00000250 6c 69 63 6b 0d 01 36 15 20 20 c9 20 39 3a 20 f2 |lick..6. . 9: .|
00000260 6d 65 6e 75 63 6c 69 63 6b 0d 01 40 17 20 20 c9 |menuclick..@. .|
00000270 20 31 37 2c 31 38 3a 20 f2 72 65 63 69 65 76 65 | 17,18: .recieve|
00000280 0d 01 4a 06 20 cb 0d 01 54 05 e1 0d 01 5e 05 3a |..J. ...T....^.:|
00000290 0d 01 68 1b f4 20 52 65 63 69 76 65 64 20 77 69 |..h.. Recived wi|
000002a0 6d 70 20 6d 65 73 73 61 67 65 73 0d 01 72 0d dd |mp messages..r..|
000002b0 f2 72 65 63 69 65 76 65 0d 01 7c 0f 20 c8 8e 20 |.recieve..|. .. |
000002c0 62 25 21 31 36 20 ca 0d 01 86 12 20 20 c9 20 30 |b%!16 ..... . 0|
000002d0 3a 20 71 75 69 74 25 3d b9 0d 01 90 13 20 20 c9 |: quit%=..... .|
000002e0 20 26 35 30 32 3a 20 f2 68 65 6c 70 0d 01 9a 06 | &502: .help....|
000002f0 20 cb 0d 01 a4 05 e1 0d 01 ae 05 3a 0d 01 b8 1f | ..........:....|
00000300 f4 20 43 61 6c 6c 65 64 20 77 68 65 6e 20 6d 6f |. Called when mo|
00000310 75 73 65 20 63 6c 69 63 6b 65 64 0d 01 c2 10 dd |use clicked.....|
00000320 f2 6d 6f 75 73 65 63 6c 69 63 6b 0d 01 cc 0f 20 |.mouseclick.... |
00000330 c8 8e 20 62 25 21 31 32 20 ca 0d 01 d6 15 20 20 |.. b%!12 ..... |
00000340 c9 20 2d 32 3a 20 c8 8e 20 62 25 21 38 20 ca 0d |. -2: .. b%!8 ..|
00000350 01 e0 3e 20 20 20 20 c9 20 34 3a 20 f2 6d 65 6e |..> . 4: .men|
00000360 75 5f 73 68 6f 77 28 6d 61 69 6e 6d 65 6e 75 25 |u_show(mainmenu%|
00000370 2c 30 2c 31 30 30 30 29 3a 20 63 75 72 6d 65 6e |,0,1000): curmen|
00000380 75 25 3d 6d 61 69 6e 6d 65 6e 75 25 20 0d 01 ea |u%=mainmenu% ...|
00000390 3a 20 20 20 20 c9 20 32 3a 20 f2 6d 65 6e 75 5f |: . 2: .menu_|
000003a0 69 63 6f 6e 62 61 72 28 62 61 72 6d 65 6e 75 25 |iconbar(barmenu%|
000003b0 2c 62 25 29 3a 20 63 75 72 6d 65 6e 75 25 3d 62 |,b%): curmenu%=b|
000003c0 61 72 6d 65 6e 75 25 0d 01 f4 41 20 20 20 20 c9 |armenu%...A .|
000003d0 20 31 3a 20 f2 6d 65 6e 75 5f 73 68 6f 77 28 6d | 1: .menu_show(m|
000003e0 61 69 6e 6d 65 6e 75 25 2c 30 2c 31 30 30 30 29 |ainmenu%,0,1000)|
000003f0 3a 20 63 75 72 6d 65 6e 75 25 3d 6d 61 69 6e 6d |: curmenu%=mainm|
00000400 65 6e 75 25 20 20 20 20 0d 01 fe 08 20 20 20 cb |enu% .... .|
00000410 0d 02 08 06 20 cb 0d 02 12 05 e1 0d 02 1c 05 3a |.... ..........:|
00000420 0d 02 26 14 f4 20 4d 65 6e 75 20 73 65 6c 65 63 |..&.. Menu selec|
00000430 74 69 6f 6e 0d 02 30 0f dd f2 6d 65 6e 75 63 6c |tion..0...menucl|
00000440 69 63 6b 0d 02 3a 0d 72 65 6f 70 65 6e 25 3d b9 |ick..:.reopen%=.|
00000450 0d 02 44 28 c8 99 20 22 57 69 6d 70 5f 44 65 63 |..D(.. "Wimp_Dec|
00000460 6f 64 65 4d 65 6e 75 22 2c 2c 63 75 72 6d 65 6e |odeMenu",,curmen|
00000470 75 25 2c 62 25 2c 63 25 0d 02 4e 0d 20 c8 8e 20 |u%,b%,c%..N. .. |
00000480 24 63 25 20 ca 0d 02 58 34 20 20 c9 20 22 49 6e |$c% ...X4 . "In|
00000490 66 6f 22 3a 20 f2 6d 65 6e 75 5f 77 69 6e 64 6f |fo": .menu_windo|
000004a0 77 28 77 69 6e 69 6e 66 6f 25 2c 62 25 29 3a 20 |w(wininfo%,b%): |
000004b0 72 65 6f 70 65 6e 25 3d a3 0d 02 62 17 20 20 c9 |reopen%=...b. .|
000004c0 20 22 51 75 69 74 22 3a 20 71 75 69 74 25 3d b9 | "Quit": quit%=.|
000004d0 0d 02 6c 06 20 cb 0d 02 76 29 e7 20 72 65 6f 70 |..l. ...v). reop|
000004e0 65 6e 25 20 8c 20 f2 6d 65 6e 75 5f 61 64 6a 75 |en% . .menu_adju|
000004f0 73 74 28 63 25 2c 63 75 72 6d 65 6e 75 25 29 0d |st(c%,curmenu%).|
00000500 02 80 05 e1 0d 02 8a 05 3a 0d 02 94 16 f4 20 49 |........:..... I|
00000510 6e 74 65 72 61 63 74 69 76 65 20 68 65 6c 70 0d |nteractive help.|
00000520 02 9e 0a dd f2 68 65 6c 70 0d 02 a8 0f 68 65 6c |.....help....hel|
00000530 70 25 3d 62 25 2b 32 30 0d 02 b2 0f 20 c8 8e 20 |p%=b%+20.... .. |
00000540 62 25 21 33 32 20 ca 0d 02 bc 85 20 20 c9 20 2d |b%!32 ..... . -|
00000550 32 20 20 20 20 20 20 3a 20 24 68 65 6c 70 25 3d |2 : $help%=|
00000560 22 54 68 69 73 20 69 73 20 74 68 65 20 28 73 70 |"This is the (sp|
00000570 69 6e 6e 69 6e 67 29 20 45 61 72 74 68 44 61 74 |inning) EarthDat|
00000580 61 20 69 63 6f 6e 2e 7c 6d 45 61 72 74 68 44 61 |a icon.|mEarthDa|
00000590 74 61 20 69 73 20 61 20 77 6f 72 6c 64 20 44 61 |ta is a world Da|
000005a0 74 61 62 61 73 65 2e 7c 6d 43 6c 69 63 6b 20 5c |tabase.|mClick \|
000005b0 73 20 74 6f 20 76 69 65 77 20 74 68 65 20 64 61 |s to view the da|
000005c0 74 61 20 6d 65 6e 75 73 2e 7c 6d 22 0d 02 c6 66 |ta menus.|m"...f|
000005d0 20 20 c9 20 77 69 6e 69 6e 66 6f 25 3a 20 24 68 | . wininfo%: $h|
000005e0 65 6c 70 25 3d 22 54 68 69 73 20 77 69 6e 64 6f |elp%="This windo|
000005f0 77 20 67 69 76 65 73 20 69 6e 66 6f 72 6d 61 74 |w gives informat|
00000600 69 6f 6e 20 61 62 6f 75 74 20 45 61 72 74 68 44 |ion about EarthD|
00000610 61 74 61 2e 7c 6d 47 6f 6f 64 20 61 6e 69 6d 61 |ata.|mGood anima|
00000620 74 69 6f 6e 2c 20 69 73 6e 27 74 20 69 74 3f 7c |tion, isn't it?||
00000630 6d 22 0d 02 d0 62 20 20 7f 20 20 20 20 3a 20 63 |m"...b . : c|
00000640 25 21 30 3d 2d 31 3a 20 63 25 21 34 3d 2d 31 3a |%!0=-1: c%!4=-1:|
00000650 20 63 25 21 38 3d 2d 31 3a 20 63 25 21 31 32 3d | c%!8=-1: c%!12=|
00000660 2d 31 3a 20 63 25 21 31 36 3d 2d 31 3a 20 63 25 |-1: c%!16=-1: c%|
00000670 21 32 30 3d 2d 31 3a 20 63 25 21 32 34 3d 2d 31 |!20=-1: c%!24=-1|
00000680 3a 20 63 25 21 32 38 3d 2d 31 3a 20 63 25 21 33 |: c%!28=-1: c%!3|
00000690 32 3d 2d 31 0d 02 da 3b 20 20 20 20 20 20 20 20 |2=-1...; |
000006a0 20 20 20 20 20 20 20 20 20 c8 99 22 57 69 6d 70 | .."Wimp|
000006b0 5f 47 65 74 4d 65 6e 75 53 74 61 74 65 22 2c 31 |_GetMenuState",1|
000006c0 2c 63 25 2c 62 25 21 33 32 2c 62 25 21 33 36 0d |,c%,b%!32,b%!36.|
000006d0 02 e4 38 20 20 20 20 20 20 20 20 20 20 20 20 20 |..8 |
000006e0 20 20 20 20 c8 99 22 57 69 6d 70 5f 44 65 63 6f | .."Wimp_Deco|
000006f0 64 65 4d 65 6e 75 22 2c 2c 63 75 72 6d 65 6e 75 |deMenu",,curmenu|
00000700 25 2c 63 25 2c 63 25 0d 02 ee 20 20 20 20 20 20 |%,c%,c%... |
00000710 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 8e 20 | .. |
00000720 24 28 63 25 29 20 ca 0d 02 f8 72 20 20 20 20 20 |$(c%) ....r |
00000730 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . |
00000740 22 49 6e 66 6f 22 3a 20 24 68 65 6c 70 25 3d 22 |"Info": $help%="|
00000750 4d 6f 76 65 20 74 68 65 20 70 6f 69 6e 74 65 72 |Move the pointer|
00000760 20 72 69 67 68 74 20 6f 72 20 63 6c 69 63 6b 20 | right or click |
00000770 5c 73 20 74 6f 20 73 65 65 20 69 6e 66 6f 72 6d |\s to see inform|
00000780 61 74 69 6f 6e 20 61 62 6f 75 74 20 45 61 72 74 |ation about Eart|
00000790 68 44 61 74 61 2e 7c 6d 22 0d 03 02 58 20 20 20 |hData.|m"...X |
000007a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007b0 c9 20 22 51 75 69 74 22 3a 20 24 68 65 6c 70 25 |. "Quit": $help%|
000007c0 3d 22 43 6c 69 63 6b 20 5c 73 20 74 6f 20 71 75 |="Click \s to qu|
000007d0 69 74 20 45 61 72 74 68 44 61 74 61 2e 7c 6d 28 |it EarthData.|m(|
000007e0 44 6f 6e 27 74 20 74 72 79 20 69 74 21 29 7c 6d |Don't try it!)|m|
000007f0 22 0d 03 0c 85 20 20 20 20 20 20 20 20 20 20 20 |".... |
00000800 20 20 20 20 20 20 20 20 7f 20 3a 20 24 68 65 6c | . : $hel|
00000810 70 25 3d 22 54 68 69 73 20 69 73 20 61 6e 20 45 |p%="This is an E|
00000820 61 72 74 68 44 61 74 61 20 6d 65 6e 75 2e 7c 6d |arthData menu.|m|
00000830 4d 6f 76 65 20 74 68 65 20 70 6f 69 6e 74 65 72 |Move the pointer|
00000840 20 74 6f 20 76 69 65 77 20 6f 74 68 65 72 20 6d | to view other m|
00000850 65 6e 75 73 2e 7c 6d 45 61 72 74 68 44 61 74 61 |enus.|mEarthData|
00000860 20 69 73 20 61 20 77 6f 72 6c 64 20 64 61 74 61 | is a world data|
00000870 62 61 73 65 2e 22 0d 03 16 17 20 20 20 20 20 20 |base.".... |
00000880 20 20 20 20 20 20 20 20 20 20 20 20 cb 0d 03 20 | ... |
00000890 06 20 cb 0d 03 2a 38 62 25 21 30 3d 34 2b 34 2a |. ...*8b%!0=4+4*|
000008a0 a8 28 32 30 2b 28 a9 28 24 68 65 6c 70 25 29 29 |.(20+(.($help%))|
000008b0 2f 34 29 3a 20 62 25 21 31 32 3d 62 25 21 38 3a |/4): b%!12=b%!8:|
000008c0 20 62 25 21 31 36 3d 26 35 30 33 0d 03 34 23 c8 | b%!16=&503..4#.|
000008d0 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 |."Wimp_SendMessa|
000008e0 67 65 22 2c 31 37 2c 62 25 2c 62 25 21 34 0d 03 |ge",17,b%,b%!4..|
000008f0 3e 05 e1 0d 03 48 05 3a 0d 03 52 26 f4 20 52 65 |>....H.:..R&. Re|
00000900 64 72 61 77 20 69 6e 66 6f 20 62 6f 78 20 28 73 |draw info box (s|
00000910 63 72 6f 6c 6c 69 6e 67 20 74 65 78 74 29 0d 03 |crolling text)..|
00000920 5c 10 dd f2 72 65 64 72 61 77 69 6e 66 6f 0d 03 |\...redrawinfo..|
00000930 66 25 c8 99 22 57 69 6d 70 5f 52 65 64 72 61 77 |f%.."Wimp_Redraw|
00000940 57 69 6e 64 6f 77 22 2c 2c 62 25 20 b8 20 6d 6f |Window",,b% . mo|
00000950 72 65 25 0d 03 70 42 c8 99 22 46 6f 6e 74 5f 46 |re%..pB.."Font_F|
00000960 69 6e 64 46 6f 6e 74 22 2c 2c 22 48 6f 6d 65 72 |indFont",,"Homer|
00000970 74 6f 6e 2e 4d 65 64 69 75 6d 22 2c 32 32 34 2c |ton.Medium",224,|
00000980 32 32 34 2c 30 2c 30 20 b8 20 66 6f 6e 74 68 61 |224,0,0 . fontha|
00000990 6e 64 6c 65 25 0d 03 7a 20 c8 99 22 46 6f 6e 74 |ndle%..z .."Font|
000009a0 5f 53 65 74 46 6f 6e 74 22 2c 66 6f 6e 74 68 61 |_SetFont",fontha|
000009b0 6e 64 6c 65 25 0d 03 84 0d 20 c8 95 20 6d 6f 72 |ndle%.... .. mor|
000009c0 65 25 0d 03 8e 2b 20 20 78 6f 72 69 67 25 3d 62 |e%...+ xorig%=b|
000009d0 25 21 34 2d 62 25 21 32 30 3a 20 79 6f 72 69 67 |%!4-b%!20: yorig|
000009e0 25 3d 62 25 21 31 36 2d 62 25 21 32 34 0d 03 98 |%=b%!16-b%!24...|
000009f0 3a 20 20 c8 99 22 46 6f 6e 74 5f 50 61 69 6e 74 |: .."Font_Paint|
00000a00 22 2c 2c 61 75 74 68 6f 72 24 2c 25 31 30 30 30 |",,author$,%1000|
00000a10 30 2c 78 6f 72 69 67 25 2b 31 36 30 2c 79 6f 72 |0,xorig%+160,yor|
00000a20 69 67 25 2d 31 36 35 0d 03 a2 27 20 20 c8 99 22 |ig%-165...' .."|
00000a30 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c |Wimp_GetRectangl|
00000a40 65 22 2c 2c 62 25 20 b8 20 6d 6f 72 65 25 0d 03 |e",,b% . more%..|
00000a50 ac 06 20 ce 0d 03 b6 21 c8 99 22 46 6f 6e 74 5f |.. ....!.."Font_|
00000a60 4c 6f 73 65 46 6f 6e 74 22 2c 66 6f 6e 74 68 61 |LoseFont",fontha|
00000a70 6e 64 6c 65 25 0d 03 c0 05 e1 0d 03 ca 05 3a 0d |ndle%.........:.|
00000a80 03 d4 29 f4 20 41 6e 69 6d 61 74 65 20 73 70 69 |..). Animate spi|
00000a90 6e 6e 69 6e 67 20 45 61 72 74 68 20 61 6e 64 20 |nning Earth and |
00000aa0 69 6e 66 6f 20 62 6f 78 0d 03 de 0d dd f2 61 6e |info box......an|
00000ab0 69 6d 61 74 65 0d 03 e8 32 f2 69 63 6f 6e 5f 73 |imate...2.icon_s|
00000ac0 65 74 74 65 78 74 28 2d 31 2c 70 6f 73 25 2c 22 |ettext(-1,pos%,"|
00000ad0 65 61 72 74 68 22 2b c3 73 70 72 69 74 65 6e 6f |earth"+.spriteno|
00000ae0 25 2c 62 25 2c b9 29 0d 03 f2 1f 20 e7 20 a4 77 |%,b%,.).... . .w|
00000af0 69 6e 5f 6f 70 65 6e 28 77 69 6e 69 6e 66 6f 25 |in_open(wininfo%|
00000b00 2c 62 25 29 20 8c 0d 03 fc 37 20 20 f2 69 63 6f |,b%) ....7 .ico|
00000b10 6e 5f 73 65 74 76 61 6c 28 77 69 6e 69 6e 66 6f |n_setval(wininfo|
00000b20 25 2c 38 2c 22 53 65 61 72 74 68 22 2b c3 73 70 |%,8,"Searth"+.sp|
00000b30 72 69 74 65 6e 6f 25 2c 62 25 2c b9 29 0d 04 06 |riteno%,b%,.)...|
00000b40 18 20 20 20 e7 20 91 3e 6f 6c 64 74 69 6d 65 25 |. . .>oldtime%|
00000b50 2b 31 30 20 8c 0d 04 10 26 20 20 20 20 61 75 74 |+10 ....& aut|
00000b60 68 6f 72 24 3d c1 24 61 75 74 68 6f 72 73 25 2c |hor$=.$authors%,|
00000b70 61 75 74 68 6f 72 25 2c 34 31 29 0d 04 1a 3c 20 |author%,41)...< |
00000b80 20 20 20 e7 20 a9 28 61 75 74 68 6f 72 24 29 3c | . .(author$)<|
00000b90 34 31 20 8c 20 61 75 74 68 6f 72 24 2b 3d c0 24 |41 . author$+=.$|
00000ba0 61 75 74 68 6f 72 73 25 2c 34 31 2d a9 28 61 75 |authors%,41-.(au|
00000bb0 74 68 6f 72 24 29 29 0d 04 24 36 20 20 20 20 61 |thor$))..$6 a|
00000bc0 75 74 68 6f 72 25 2b 3d 31 3a 20 e7 20 61 75 74 |uthor%+=1: . aut|
00000bd0 68 6f 72 25 3e a9 28 24 61 75 74 68 6f 72 73 25 |hor%>.($authors%|
00000be0 29 20 8c 20 61 75 74 68 6f 72 25 3d 30 0d 04 2e |) . author%=0...|
00000bf0 37 20 20 20 20 c8 99 22 57 69 6d 70 5f 46 6f 72 |7 .."Wimp_For|
00000c00 63 65 52 65 64 72 61 77 22 2c 77 69 6e 69 6e 66 |ceRedraw",wininf|
00000c10 6f 25 2c 31 36 30 2c 2d 31 37 34 2c 37 38 30 2c |o%,160,-174,780,|
00000c20 2d 31 33 38 0d 04 38 12 20 20 20 20 6f 6c 64 74 |-138..8. oldt|
00000c30 69 6d 65 25 3d 91 0d 04 42 08 20 20 20 cd 0d 04 |ime%=...B. ...|
00000c40 4c 06 20 cd 0d 04 56 2f 73 70 72 69 74 65 6e 6f |L. ...V/spriteno|
00000c50 25 2d 3d 31 3a 20 e7 20 73 70 72 69 74 65 6e 6f |%-=1: . spriteno|
00000c60 25 3d 30 20 8c 20 73 70 72 69 74 65 6e 6f 25 3d |%=0 . spriteno%=|
00000c70 31 31 37 0d 04 60 05 e1 0d 04 6a 05 3a 0d 04 74 |117..`....j.:..t|
00000c80 3f f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |?. =============|
00000c90 3d 3d 3d 3d 3d 20 49 6e 69 74 69 61 6c 69 73 61 |===== Initialisa|
00000ca0 74 69 6f 6e 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |tion ===========|
00000cb0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 04 7e 05 |============..~.|
00000cc0 3a 0d 04 88 2d f4 20 44 69 6d 65 6e 73 69 6f 6e |:...-. Dimension|
00000cd0 20 6d 65 6d 6f 72 79 20 26 20 69 6e 69 74 69 61 | memory & initia|
00000ce0 6c 69 73 65 20 76 61 72 69 61 62 6c 65 73 0d 04 |lise variables..|
00000cf0 92 09 dd f2 64 69 6d 0d 04 9c 4c de 20 62 25 20 |....dim...L. b% |
00000d00 35 31 32 2c 77 73 25 20 31 36 30 2c 63 25 20 32 |512,ws% 160,c% 2|
00000d10 35 36 2c 6d 65 6e 73 70 63 25 20 32 35 30 30 30 |56,menspc% 25000|
00000d20 30 2c 69 6e 64 25 20 37 30 30 30 30 2c 66 6f 6e |0,ind% 70000,fon|
00000d30 74 25 20 32 35 36 2c 61 75 74 68 6f 72 73 25 20 |t% 256,authors% |
00000d40 32 35 36 0d 04 a6 2d 77 73 65 6e 64 25 3d 77 73 |256...-wsend%=ws|
00000d50 25 2b 31 36 30 3a 20 6d 65 6e 73 70 63 65 6e 64 |%+160: menspcend|
00000d60 25 3d 6d 65 6e 73 70 63 25 2b 32 35 30 30 30 30 |%=menspc%+250000|
00000d70 0d 04 b0 2c 6d 6e 73 25 3d 6d 65 6e 73 70 63 25 |...,mns%=menspc%|
00000d80 3a 20 6d 6e 65 25 3d 6d 65 6e 73 70 63 65 6e 64 |: mne%=menspcend|
00000d90 25 3a 20 61 75 74 68 6f 72 25 3d 30 0d 04 ba 15 |%: author%=0....|
00000da0 62 25 21 30 3d 26 35 30 32 3a 20 62 25 21 34 3d |b%!0=&502: b%!4=|
00000db0 30 0d 04 c4 ef 24 61 75 74 68 6f 72 73 25 3d 22 |0....$authors%="|
00000dc0 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 67 | Prog|
00000dd0 72 61 6d 6d 69 6e 67 3a 20 4a 61 6d 65 73 20 42 |ramming: James B|
00000de0 75 72 73 61 20 20 20 20 20 20 20 20 20 20 20 20 |ursa |
00000df0 20 20 20 20 49 64 65 61 3a 20 46 72 61 6e 63 69 | Idea: Franci|
00000e00 73 20 42 75 72 73 61 20 20 20 20 20 20 20 20 20 |s Bursa |
00000e10 20 20 20 20 20 20 20 46 6c 61 67 73 3a 20 4a 61 | Flags: Ja|
00000e20 6d 65 73 20 42 75 72 73 61 20 20 20 20 20 20 20 |mes Bursa |
00000e30 20 20 20 20 20 20 20 20 20 20 52 65 73 65 61 72 | Resear|
00000e40 63 68 3a 20 46 72 61 6e 63 69 73 20 42 75 72 73 |ch: Francis Burs|
00000e50 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |a |
00000e60 20 53 70 69 6e 6e 69 6e 67 20 57 6f 72 6c 64 3a | Spinning World:|
00000e70 20 4a 61 6d 65 73 20 42 75 72 73 61 20 20 20 20 | James Bursa |
00000e80 20 20 20 20 20 20 20 20 20 20 20 20 44 61 74 61 | Data|
00000e90 3a 20 46 72 61 6e 63 69 73 20 42 75 72 73 61 22 |: Francis Bursa"|
00000ea0 0d 04 ce 26 61 75 74 68 6f 72 24 3d c0 24 61 75 |...&author$=.$au|
00000eb0 74 68 6f 72 73 25 2c 34 31 29 3a 20 6f 6c 64 74 |thors%,41): oldt|
00000ec0 69 6d 65 25 3d 30 0d 04 d8 05 e1 0d 04 e2 05 3a |ime%=0.........:|
00000ed0 0d 04 ec 13 f4 20 53 74 61 72 74 20 70 72 6f 67 |..... Start prog|
00000ee0 72 61 6d 0d 04 f6 0a dd f2 69 6e 69 74 0d 05 00 |ram......init...|
00000ef0 45 70 65 72 63 65 6e 74 61 67 65 3d 30 3a 20 63 |Epercentage=0: c|
00000f00 6f 75 6e 74 72 69 65 73 25 3d 32 34 35 3a 20 c8 |ountries%=245: .|
00000f10 99 22 48 6f 75 72 67 6c 61 73 73 5f 50 65 72 63 |."Hourglass_Perc|
00000f20 65 6e 74 61 67 65 22 2c 70 65 72 63 65 6e 74 61 |entage",percenta|
00000f30 67 65 0d 05 0a 0b 71 75 69 74 25 3d a3 0d 05 14 |ge....quit%=....|
00000f40 13 f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 65 73 |..load_templates|
00000f50 0d 05 1e 0e f2 6d 61 69 6e 5f 6d 65 6e 75 0d 05 |.....main_menu..|
00000f60 28 17 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 |(..."Hourglass_S|
00000f70 6d 61 73 68 22 0d 05 32 11 f2 63 6c 65 61 72 5f |mash"..2..clear_|
00000f80 73 63 72 65 65 6e 0d 05 3c 05 e1 0d 05 46 05 3a |screen..<....F.:|
00000f90 0d 05 50 1e f4 20 43 72 65 61 74 65 20 45 61 72 |..P.. Create Ear|
00000fa0 74 68 20 6f 6e 20 69 63 6f 6e 20 62 61 72 0d 05 |th on icon bar..|
00000fb0 5a 11 dd a4 69 63 6f 6e 62 61 72 69 63 6f 6e 0d |Z...iconbaricon.|
00000fc0 05 64 10 de 20 73 70 72 69 74 65 25 20 32 30 0d |.d.. sprite% 20.|
00000fd0 05 6e 11 73 70 72 69 74 65 6e 6f 25 3d 31 31 37 |.n.spriteno%=117|
00000fe0 0d 05 78 17 24 73 70 72 69 74 65 25 3d 22 65 61 |..x.$sprite%="ea|
00000ff0 72 74 68 31 31 37 22 0d 05 82 41 21 62 25 3d 2d |rth117"...A!b%=-|
00001000 31 3a 20 62 25 21 34 3d 2d 34 30 3a 20 62 25 21 |1: b%!4=-40: b%!|
00001010 38 3d 2d 31 35 3a 20 62 25 21 31 32 3d 31 30 30 |8=-15: b%!12=100|
00001020 3a 20 62 25 21 31 36 3d 31 30 30 3a 20 62 25 21 |: b%!16=100: b%!|
00001030 32 30 3d 26 33 31 30 32 0d 05 8c 4f 62 25 21 32 |20=&3102...Ob%!2|
00001040 34 3d 73 70 72 69 74 65 25 3a 20 62 25 21 32 38 |4=sprite%: b%!28|
00001050 3d 73 70 72 69 74 65 61 72 65 61 25 3a 20 62 25 |=spritearea%: b%|
00001060 21 33 32 3d 31 31 3a 20 c8 99 22 57 69 6d 70 5f |!32=11: .."Wimp_|
00001070 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 62 25 20 |CreateIcon",,b% |
00001080 b8 20 69 63 6f 6e 25 0d 05 96 0a 3d 69 63 6f 6e |. icon%....=icon|
00001090 25 0d 05 a0 05 3a 0d 05 aa 2f f4 20 4c 6f 61 64 |%....:.../. Load|
000010a0 20 74 65 6d 70 6c 61 74 65 20 66 69 6c 65 20 77 | template file w|
000010b0 69 74 68 20 6c 6f 63 61 6c 20 73 70 72 69 74 65 |ith local sprite|
000010c0 20 61 72 65 61 0d 05 b4 14 dd f2 6c 6f 61 64 5f | area......load_|
000010d0 74 65 6d 70 6c 61 74 65 73 0d 05 be 31 c8 99 22 |templates...1.."|
000010e0 4f 53 5f 46 69 6c 65 22 2c 35 2c 22 45 61 72 74 |OS_File",5,"Eart|
000010f0 68 44 61 74 61 52 65 73 3a 53 70 72 69 74 65 73 |hDataRes:Sprites|
00001100 22 20 b8 20 2c 2c 2c 2c 4c 25 0d 05 c8 4e de 20 |" . ,,,,L%...N. |
00001110 73 70 72 69 74 65 61 72 65 61 25 20 4c 25 2b 31 |spritearea% L%+1|
00001120 36 3a 20 21 73 70 72 69 74 65 61 72 65 61 25 3d |6: !spritearea%=|
00001130 4c 25 2b 31 36 3a 20 73 70 72 69 74 65 61 72 65 |L%+16: spriteare|
00001140 61 25 21 34 3d 30 3a 20 73 70 72 69 74 65 61 72 |a%!4=0: spritear|
00001150 65 61 25 21 38 3d 31 36 0d 05 d2 37 73 70 72 69 |ea%!8=16...7spri|
00001160 74 65 61 72 65 61 25 21 31 32 3d 34 3a 20 c8 99 |tearea%!12=4: ..|
00001170 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&|
00001180 31 30 39 2c 73 70 72 69 74 65 61 72 65 61 25 0d |109,spritearea%.|
00001190 05 dc 3c c8 99 20 22 4f 53 5f 53 70 72 69 74 65 |..<.. "OS_Sprite|
000011a0 4f 70 22 2c 26 31 30 41 2c 73 70 72 69 74 65 61 |Op",&10A,spritea|
000011b0 72 65 61 25 2c 22 45 61 72 74 68 44 61 74 61 52 |rea%,"EarthDataR|
000011c0 65 73 3a 53 70 72 69 74 65 73 22 0d 05 e6 30 f2 |es:Sprites"...0.|
000011d0 77 69 6e 5f 6f 70 65 6e 74 65 6d 70 6c 61 74 65 |win_opentemplate|
000011e0 73 28 22 45 61 72 74 68 44 61 74 61 52 65 73 3a |s("EarthDataRes:|
000011f0 54 65 6d 70 6c 61 74 65 73 22 29 0d 05 f0 3f c8 |Templates")...?.|
00001200 99 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c |."Wimp_LoadTempl|
00001210 61 74 65 22 2c 2c 62 25 2c 77 73 25 2c 77 73 65 |ate",,b%,ws%,wse|
00001220 6e 64 25 2c 66 6f 6e 74 25 2c 22 49 6e 66 6f 22 |nd%,font%,"Info"|
00001230 2c 30 20 b8 20 2c 2c 77 73 25 0d 05 fa 15 62 25 |,0 . ,,ws%....b%|
00001240 21 36 34 3d 73 70 72 69 74 65 61 72 65 61 25 0d |!64=spritearea%.|
00001250 06 04 28 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 |..(.."Wimp_Creat|
00001260 65 57 69 6e 64 6f 77 22 2c 2c 62 25 20 b8 20 77 |eWindow",,b% . w|
00001270 69 6e 69 6e 66 6f 25 0d 06 0e 17 f2 77 69 6e 5f |ininfo%.....win_|
00001280 63 6c 6f 73 65 74 65 6d 70 6c 61 74 65 73 0d 06 |closetemplates..|
00001290 18 05 e1 0d 06 22 05 3a 0d 06 2c 20 f4 20 43 6c |.....".:.., . Cl|
000012a0 65 61 72 20 69 6e 74 72 6f 64 75 63 74 69 6f 6e |ear introduction|
000012b0 20 6d 65 73 73 61 67 65 0d 06 36 12 dd f2 63 6c | message..6...cl|
000012c0 65 61 72 5f 73 63 72 65 65 6e 0d 06 40 2f c8 99 |ear_screen..@/..|
000012d0 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 | "OS_ReadModeVar|
000012e0 69 61 62 6c 65 22 2c 2d 31 2c 31 31 20 b8 20 2c |iable",-1,11 . ,|
000012f0 2c 73 63 72 65 65 6e 78 25 0d 06 4a 2f c8 99 20 |,screenx%..J/.. |
00001300 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 |"OS_ReadModeVari|
00001310 61 62 6c 65 22 2c 2d 31 2c 31 32 20 b8 20 2c 2c |able",-1,12 . ,,|
00001320 73 63 72 65 65 6e 79 25 0d 06 54 2b c8 99 20 22 |screeny%..T+.. "|
00001330 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 |OS_ReadModeVaria|
00001340 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c 2c 79 65 |ble",-1,5 . ,,ye|
00001350 69 67 25 0d 06 5e 2b c8 99 20 22 4f 53 5f 52 65 |ig%..^+.. "OS_Re|
00001360 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c |adModeVariable",|
00001370 2d 31 2c 34 20 b8 20 2c 2c 78 65 69 67 25 0d 06 |-1,4 . ,,xeig%..|
00001380 68 3a 73 63 72 65 65 6e 78 25 3d 73 63 72 65 65 |h:screenx%=scree|
00001390 6e 78 25 2a 32 2a 78 65 69 67 25 3a 20 73 63 72 |nx%*2*xeig%: scr|
000013a0 65 65 6e 79 25 3d 73 63 72 65 65 6e 79 25 2a 28 |eeny%=screeny%*(|
000013b0 32 2a 79 65 69 67 25 29 0d 06 72 1f 73 63 72 65 |2*yeig%)..r.scre|
000013c0 65 6e 78 25 3d 28 73 63 72 65 65 6e 78 25 20 81 |enx%=(screenx% .|
000013d0 20 32 29 2d 32 36 38 0d 06 7c 1f 73 63 72 65 65 | 2)-268..|.scree|
000013e0 6e 79 25 3d 28 73 63 72 65 65 6e 79 25 20 81 20 |ny%=(screeny% . |
000013f0 32 29 2d 31 37 30 0d 06 86 4d c8 99 22 57 69 6d |2)-170...M.."Wim|
00001400 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c 2d |p_ForceRedraw",-|
00001410 31 2c 73 63 72 65 65 6e 78 25 2c 73 63 72 65 65 |1,screenx%,scree|
00001420 6e 79 25 2b 37 30 2c 73 63 72 65 65 6e 78 25 2b |ny%+70,screenx%+|
00001430 36 30 30 2c 73 63 72 65 65 6e 79 25 2b 33 34 30 |600,screeny%+340|
00001440 2b 37 30 0d 06 90 05 e1 0d 06 9a 05 3a 0d 06 a4 |+70.........:...|
00001450 12 f4 20 43 72 65 61 74 65 20 6d 65 6e 75 73 0d |.. Create menus.|
00001460 06 ae 0f dd f2 6d 61 69 6e 5f 6d 65 6e 75 0d 06 |.....main_menu..|
00001470 b8 35 6d 65 6e 75 66 69 6c 65 25 3d a4 77 69 6d |.5menufile%=.wim|
00001480 70 5f 6f 70 65 6e 6d 65 73 73 61 67 65 73 28 22 |p_openmessages("|
00001490 45 61 72 74 68 44 61 74 61 52 65 73 3a 4d 65 6e |EarthDataRes:Men|
000014a0 75 22 29 0d 06 c2 4c 62 61 72 6d 65 6e 75 25 3d |u")...Lbarmenu%=|
000014b0 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
000014c0 5f 67 65 74 6d 65 73 73 61 67 65 28 22 42 41 52 |_getmessage("BAR|
000014d0 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c |",b%,menufile%),|
000014e0 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d |mns%,mne%,ind%).|
000014f0 06 cc 4e 6d 61 69 6e 6d 65 6e 75 25 3d a4 6d 65 |..Nmainmenu%=.me|
00001500 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 |nu_make(.wimp_ge|
00001510 74 6d 65 73 73 61 67 65 28 22 4d 41 49 4e 22 2c |tmessage("MAIN",|
00001520 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e |b%,menufile%),mn|
00001530 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 06 d6 |s%,mne%,ind%)...|
00001540 2a f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |*.menu_attachsub|
00001550 28 30 2c 62 61 72 6d 65 6e 75 25 2c 30 2c 77 69 |(0,barmenu%,0,wi|
00001560 6e 69 6e 66 6f 25 29 0d 06 e0 2b f2 6d 65 6e 75 |ninfo%)...+.menu|
00001570 5f 61 74 74 61 63 68 73 75 62 28 30 2c 6d 61 69 |_attachsub(0,mai|
00001580 6e 6d 65 6e 75 25 2c 35 2c 77 69 6e 69 6e 66 6f |nmenu%,5,wininfo|
00001590 25 29 0d 06 ea 12 f2 6d 61 6b 65 5f 64 61 74 61 |%).....make_data|
000015a0 62 61 73 65 0d 06 f4 05 e1 0d 06 fe 05 3a 0d 07 |base.........:..|
000015b0 08 18 f4 20 54 68 65 20 6d 61 69 6e 20 70 72 6f |... The main pro|
000015c0 63 65 64 75 72 65 0d 07 12 13 dd f2 6d 61 6b 65 |cedure......make|
000015d0 5f 64 61 74 61 62 61 73 65 0d 07 1c 4c 61 66 72 |_database...Lafr|
000015e0 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 |%=.menu_make(.wi|
000015f0 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 41 |mp_getmessage("A|
00001600 46 52 49 43 41 31 22 2c 62 25 2c 6d 65 6e 75 66 |FRICA1",b%,menuf|
00001610 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00001620 69 6e 64 25 29 0d 07 26 49 f2 6d 65 6e 75 5f 65 |ind%)..&I.menu_e|
00001630 78 74 65 6e 64 28 a4 77 69 6d 70 5f 67 65 74 6d |xtend(.wimp_getm|
00001640 65 73 73 61 67 65 28 22 41 46 52 49 43 41 32 22 |essage("AFRICA2"|
00001650 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d |,b%,menufile%),m|
00001660 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 07 |ns%,mne%,ind%)..|
00001670 30 49 f2 6d 65 6e 75 5f 65 78 74 65 6e 64 28 a4 |0I.menu_extend(.|
00001680 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
00001690 22 41 46 52 49 43 41 33 22 2c 62 25 2c 6d 65 6e |"AFRICA3",b%,men|
000016a0 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
000016b0 25 2c 69 6e 64 25 29 0d 07 3a 49 f2 6d 65 6e 75 |%,ind%)..:I.menu|
000016c0 5f 65 78 74 65 6e 64 28 a4 77 69 6d 70 5f 67 65 |_extend(.wimp_ge|
000016d0 74 6d 65 73 73 61 67 65 28 22 41 46 52 49 43 41 |tmessage("AFRICA|
000016e0 34 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 |4",b%,menufile%)|
000016f0 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 |,mns%,mne%,ind%)|
00001700 0d 07 44 4d 61 6d 72 25 3d a4 6d 65 6e 75 5f 6d |..DMamr%=.menu_m|
00001710 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 |ake(.wimp_getmes|
00001720 73 61 67 65 28 22 41 4d 45 52 49 43 41 31 22 2c |sage("AMERICA1",|
00001730 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e |b%,menufile%),mn|
00001740 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 07 4e |s%,mne%,ind%)..N|
00001750 4a f2 6d 65 6e 75 5f 65 78 74 65 6e 64 28 a4 77 |J.menu_extend(.w|
00001760 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 |imp_getmessage("|
00001770 41 4d 45 52 49 43 41 32 22 2c 62 25 2c 6d 65 6e |AMERICA2",b%,men|
00001780 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
00001790 25 2c 69 6e 64 25 29 0d 07 58 4a f2 6d 65 6e 75 |%,ind%)..XJ.menu|
000017a0 5f 65 78 74 65 6e 64 28 a4 77 69 6d 70 5f 67 65 |_extend(.wimp_ge|
000017b0 74 6d 65 73 73 61 67 65 28 22 41 4d 45 52 49 43 |tmessage("AMERIC|
000017c0 41 33 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 |A3",b%,menufile%|
000017d0 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 |),mns%,mne%,ind%|
000017e0 29 0d 07 62 4a 61 73 69 25 3d a4 6d 65 6e 75 5f |)..bJasi%=.menu_|
000017f0 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 |make(.wimp_getme|
00001800 73 73 61 67 65 28 22 41 53 49 41 31 22 2c 62 25 |ssage("ASIA1",b%|
00001810 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 |,menufile%),mns%|
00001820 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 07 6c 47 f2 |,mne%,ind%)..lG.|
00001830 6d 65 6e 75 5f 65 78 74 65 6e 64 28 a4 77 69 6d |menu_extend(.wim|
00001840 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 41 53 |p_getmessage("AS|
00001850 49 41 32 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 |IA2",b%,menufile|
00001860 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 |%),mns%,mne%,ind|
00001870 25 29 0d 07 76 47 f2 6d 65 6e 75 5f 65 78 74 65 |%)..vG.menu_exte|
00001880 6e 64 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 |nd(.wimp_getmess|
00001890 61 67 65 28 22 41 53 49 41 33 22 2c 62 25 2c 6d |age("ASIA3",b%,m|
000018a0 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d |enufile%),mns%,m|
000018b0 6e 65 25 2c 69 6e 64 25 29 0d 07 80 4c 65 75 72 |ne%,ind%)...Leur|
000018c0 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 |%=.menu_make(.wi|
000018d0 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 45 |mp_getmessage("E|
000018e0 55 52 4f 50 45 31 22 2c 62 25 2c 6d 65 6e 75 66 |UROPE1",b%,menuf|
000018f0 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00001900 69 6e 64 25 29 0d 07 8a 49 f2 6d 65 6e 75 5f 65 |ind%)...I.menu_e|
00001910 78 74 65 6e 64 28 a4 77 69 6d 70 5f 67 65 74 6d |xtend(.wimp_getm|
00001920 65 73 73 61 67 65 28 22 45 55 52 4f 50 45 32 22 |essage("EUROPE2"|
00001930 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d |,b%,menufile%),m|
00001940 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 07 |ns%,mne%,ind%)..|
00001950 94 49 f2 6d 65 6e 75 5f 65 78 74 65 6e 64 28 a4 |.I.menu_extend(.|
00001960 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
00001970 22 45 55 52 4f 50 45 33 22 2c 62 25 2c 6d 65 6e |"EUROPE3",b%,men|
00001980 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
00001990 25 2c 69 6e 64 25 29 0d 07 9e 4c 6f 63 65 25 3d |%,ind%)...Loce%=|
000019a0 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
000019b0 5f 67 65 74 6d 65 73 73 61 67 65 28 22 4f 43 45 |_getmessage("OCE|
000019c0 41 4e 49 41 22 2c 62 25 2c 6d 65 6e 75 66 69 6c |ANIA",b%,menufil|
000019d0 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e |e%),mns%,mne%,in|
000019e0 64 25 29 0d 07 a8 1c f2 6d 65 6e 75 5f 73 65 74 |d%).....menu_set|
000019f0 77 69 64 74 68 28 61 66 72 25 2c 33 30 30 29 0d |width(afr%,300).|
00001a00 07 b2 1c f2 6d 65 6e 75 5f 73 65 74 77 69 64 74 |....menu_setwidt|
00001a10 68 28 61 6d 72 25 2c 33 34 30 29 0d 07 bc 1c f2 |h(amr%,340).....|
00001a20 6d 65 6e 75 5f 73 65 74 77 69 64 74 68 28 61 73 |menu_setwidth(as|
00001a30 69 25 2c 33 34 30 29 0d 07 c6 1c f2 6d 65 6e 75 |i%,340).....menu|
00001a40 5f 73 65 74 77 69 64 74 68 28 65 75 72 25 2c 33 |_setwidth(eur%,3|
00001a50 30 30 29 0d 07 d0 1c f2 6d 65 6e 75 5f 73 65 74 |00).....menu_set|
00001a60 77 69 64 74 68 28 6f 63 65 25 2c 33 34 30 29 0d |width(oce%,340).|
00001a70 07 da 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..'.menu_attachs|
00001a80 75 62 28 30 2c 6d 61 69 6e 6d 65 6e 75 25 2c 30 |ub(0,mainmenu%,0|
00001a90 2c 61 66 72 25 29 0d 07 e4 27 f2 6d 65 6e 75 5f |,afr%)...'.menu_|
00001aa0 61 74 74 61 63 68 73 75 62 28 30 2c 6d 61 69 6e |attachsub(0,main|
00001ab0 6d 65 6e 75 25 2c 31 2c 61 6d 72 25 29 0d 07 ee |menu%,1,amr%)...|
00001ac0 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |'.menu_attachsub|
00001ad0 28 30 2c 6d 61 69 6e 6d 65 6e 75 25 2c 32 2c 61 |(0,mainmenu%,2,a|
00001ae0 73 69 25 29 0d 07 f8 27 f2 6d 65 6e 75 5f 61 74 |si%)...'.menu_at|
00001af0 74 61 63 68 73 75 62 28 30 2c 6d 61 69 6e 6d 65 |tachsub(0,mainme|
00001b00 6e 75 25 2c 33 2c 65 75 72 25 29 0d 08 02 27 f2 |nu%,3,eur%)...'.|
00001b10 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 |menu_attachsub(0|
00001b20 2c 6d 61 69 6e 6d 65 6e 75 25 2c 34 2c 6f 63 65 |,mainmenu%,4,oce|
00001b30 25 29 0d 08 0c 0c f4 20 41 66 72 69 63 61 0d 08 |%)..... Africa..|
00001b40 16 2c 61 6c 67 65 72 69 61 25 3d a4 63 6f 75 6e |.,algeria%=.coun|
00001b50 74 72 79 6d 65 6e 75 28 22 41 4c 47 45 52 49 41 |trymenu("ALGERIA|
00001b60 22 2c 25 31 31 31 31 31 30 29 0d 08 20 2b 61 6e |",%111110).. +an|
00001b70 67 6f 6c 61 25 20 3d a4 63 6f 75 6e 74 72 79 6d |gola% =.countrym|
00001b80 65 6e 75 28 22 41 4e 47 4f 4c 41 22 2c 25 31 31 |enu("ANGOLA",%11|
00001b90 31 31 31 30 29 0d 08 2a 2a 62 65 6e 69 6e 25 20 |1110)..**benin% |
00001ba0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00001bb0 42 45 4e 49 4e 22 2c 25 31 31 31 31 31 30 29 0d |BENIN",%111110).|
00001bc0 08 34 2d 62 6f 74 73 77 61 6e 25 3d a4 63 6f 75 |.4-botswan%=.cou|
00001bd0 6e 74 72 79 6d 65 6e 75 28 22 42 4f 54 53 57 41 |ntrymenu("BOTSWA|
00001be0 4e 41 22 2c 25 31 31 31 31 31 30 29 0d 08 3e 2c |NA",%111110)..>,|
00001bf0 62 75 72 6b 69 6e 61 25 3d a4 63 6f 75 6e 74 72 |burkina%=.countr|
00001c00 79 6d 65 6e 75 28 22 42 55 52 4b 49 4e 41 22 2c |ymenu("BURKINA",|
00001c10 25 31 31 31 31 31 30 29 0d 08 48 2c 62 75 72 75 |%111110)..H,buru|
00001c20 6e 64 69 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |ndi%=.countrymen|
00001c30 75 28 22 42 55 52 55 4e 44 49 22 2c 25 31 31 31 |u("BURUNDI",%111|
00001c40 31 31 30 29 0d 08 52 2c 63 61 6d 65 72 6f 6e 25 |110)..R,cameron%|
00001c50 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 43 |=.countrymenu("C|
00001c60 41 4d 45 52 4f 4e 22 2c 25 31 31 31 31 31 30 29 |AMERON",%111110)|
00001c70 0d 08 5c 2c 63 61 70 76 65 72 64 25 3d a4 63 6f |..\,capverd%=.co|
00001c80 75 6e 74 72 79 6d 65 6e 75 28 22 43 41 50 56 45 |untrymenu("CAPVE|
00001c90 52 44 22 2c 25 31 31 31 31 31 30 29 0d 08 66 2c |RD",%111110)..f,|
00001ca0 63 61 66 72 72 65 70 25 3d a4 63 6f 75 6e 74 72 |cafrrep%=.countr|
00001cb0 79 6d 65 6e 75 28 22 43 41 46 52 52 45 50 22 2c |ymenu("CAFRREP",|
00001cc0 25 31 31 31 31 31 30 29 0d 08 70 29 63 68 61 64 |%111110)..p)chad|
00001cd0 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |% =.countrymen|
00001ce0 75 28 22 43 48 41 44 22 2c 25 31 31 31 31 31 30 |u("CHAD",%111110|
00001cf0 29 0d 08 7a 2c 63 6f 6d 6f 72 6f 73 25 3d a4 63 |)..z,comoros%=.c|
00001d00 6f 75 6e 74 72 79 6d 65 6e 75 28 22 43 4f 4d 4f |ountrymenu("COMO|
00001d10 52 4f 53 22 2c 25 31 31 31 31 31 30 29 0d 08 84 |ROS",%111110)...|
00001d20 2c 64 6a 69 62 75 74 69 25 3d a4 63 6f 75 6e 74 |,djibuti%=.count|
00001d30 72 79 6d 65 6e 75 28 22 44 4a 49 42 4f 55 54 22 |rymenu("DJIBOUT"|
00001d40 2c 25 31 31 31 31 31 30 29 0d 08 8e 04 0d 08 98 |,%111110).......|
00001d50 2a 65 67 79 70 74 25 20 20 3d a4 63 6f 75 6e 74 |*egypt% =.count|
00001d60 72 79 6d 65 6e 75 28 22 45 47 59 50 54 22 2c 25 |rymenu("EGYPT",%|
00001d70 31 31 31 31 31 30 29 0d 08 a2 4f 63 61 69 72 6f |111110)...Ocairo|
00001d80 31 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 |1% =.menu_make(.|
00001d90 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
00001da0 22 45 47 59 50 54 35 22 2c 62 25 2c 6d 65 6e 75 |"EGYPT5",b%,menu|
00001db0 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 |file%),mns%,mne%|
00001dc0 2c 69 6e 64 25 29 0d 08 ac 4f 63 61 69 72 6f 32 |,ind%)...Ocairo2|
00001dd0 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 |% =.menu_make(.w|
00001de0 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 |imp_getmessage("|
00001df0 45 47 59 50 54 36 22 2c 62 25 2c 6d 65 6e 75 66 |EGYPT6",b%,menuf|
00001e00 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00001e10 69 6e 64 25 29 0d 08 b6 4f 63 61 69 72 6f 33 25 |ind%)...Ocairo3%|
00001e20 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 | =.menu_make(.wi|
00001e30 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 45 |mp_getmessage("E|
00001e40 47 59 50 54 37 22 2c 62 25 2c 6d 65 6e 75 66 69 |GYPT7",b%,menufi|
00001e50 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 |le%),mns%,mne%,i|
00001e60 6e 64 25 29 0d 08 c0 4f 63 61 69 72 6f 34 25 20 |nd%)...Ocairo4% |
00001e70 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d |=.menu_make(.wim|
00001e80 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 45 47 |p_getmessage("EG|
00001e90 59 50 54 38 22 2c 62 25 2c 6d 65 6e 75 66 69 6c |YPT8",b%,menufil|
00001ea0 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e |e%),mns%,mne%,in|
00001eb0 64 25 29 0d 08 ca 28 f2 6d 65 6e 75 5f 61 74 74 |d%)...(.menu_att|
00001ec0 61 63 68 73 75 62 28 30 2c 62 69 67 63 69 74 25 |achsub(0,bigcit%|
00001ed0 2c 30 2c 63 61 69 72 6f 31 25 29 0d 08 d4 28 f2 |,0,cairo1%)...(.|
00001ee0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 |menu_attachsub(0|
00001ef0 2c 63 61 69 72 6f 31 25 2c 30 2c 63 61 69 72 6f |,cairo1%,0,cairo|
00001f00 32 25 29 0d 08 de 28 f2 6d 65 6e 75 5f 61 74 74 |2%)...(.menu_att|
00001f10 61 63 68 73 75 62 28 30 2c 63 61 69 72 6f 31 25 |achsub(0,cairo1%|
00001f20 2c 31 2c 63 61 69 72 6f 33 25 29 0d 08 e8 28 f2 |,1,cairo3%)...(.|
00001f30 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 |menu_attachsub(0|
00001f40 2c 63 61 69 72 6f 31 25 2c 33 2c 63 61 69 72 6f |,cairo1%,3,cairo|
00001f50 34 25 29 0d 08 f2 04 0d 08 fc 2c 65 71 67 69 6e |4%).......,eqgin|
00001f60 65 61 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |ea%=.countrymenu|
00001f70 28 22 45 51 47 49 4e 45 41 22 2c 25 31 31 31 31 |("EQGINEA",%1111|
00001f80 31 30 29 0d 09 06 2c 65 72 69 74 72 65 61 25 3d |10)...,eritrea%=|
00001f90 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 45 52 |.countrymenu("ER|
00001fa0 49 54 52 45 41 22 2c 25 31 31 31 31 31 30 29 0d |ITREA",%111110).|
00001fb0 09 10 2c 65 74 68 6f 70 69 61 25 3d a4 63 6f 75 |..,ethopia%=.cou|
00001fc0 6e 74 72 79 6d 65 6e 75 28 22 45 54 48 4f 50 49 |ntrymenu("ETHOPI|
00001fd0 41 22 2c 25 31 31 31 31 31 30 29 0d 09 1a 2a 67 |A",%111110)...*g|
00001fe0 61 62 6f 6e 25 20 20 3d a4 63 6f 75 6e 74 72 79 |abon% =.country|
00001ff0 6d 65 6e 75 28 22 47 41 42 4f 4e 22 2c 25 31 31 |menu("GABON",%11|
00002000 31 31 31 30 29 0d 09 24 2b 67 61 6d 62 69 61 25 |1110)..$+gambia%|
00002010 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00002020 47 41 4d 42 49 41 22 2c 25 31 31 31 31 31 30 29 |GAMBIA",%111110)|
00002030 0d 09 2e 2a 67 68 61 6e 61 25 20 20 3d a4 63 6f |...*ghana% =.co|
00002040 75 6e 74 72 79 6d 65 6e 75 28 22 47 48 41 4e 41 |untrymenu("GHANA|
00002050 22 2c 25 31 31 31 31 31 30 29 0d 09 38 2b 67 75 |",%111110)..8+gu|
00002060 69 6e 65 61 25 20 3d a4 63 6f 75 6e 74 72 79 6d |inea% =.countrym|
00002070 65 6e 75 28 22 47 55 49 4e 45 41 22 2c 25 31 31 |enu("GUINEA",%11|
00002080 31 31 31 30 29 0d 09 42 2d 67 75 69 6e 62 69 73 |1110)..B-guinbis|
00002090 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
000020a0 47 55 49 4e 42 49 53 53 22 2c 25 31 31 31 31 31 |GUINBISS",%11111|
000020b0 30 29 0d 09 4c 2a 69 76 6f 72 79 25 20 20 3d a4 |0)..L*ivory% =.|
000020c0 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 49 56 4f |countrymenu("IVO|
000020d0 52 59 22 2c 25 31 31 31 31 31 30 29 0d 09 56 2a |RY",%111110)..V*|
000020e0 6b 65 6e 79 61 25 20 20 3d a4 63 6f 75 6e 74 72 |kenya% =.countr|
000020f0 79 6d 65 6e 75 28 22 4b 45 4e 59 41 22 2c 25 31 |ymenu("KENYA",%1|
00002100 31 31 31 31 30 29 0d 09 60 2c 6c 65 73 6f 74 68 |11110)..`,lesoth|
00002110 6f 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |o%=.countrymenu(|
00002120 22 4c 45 53 4f 54 48 4f 22 2c 25 31 31 31 31 31 |"LESOTHO",%11111|
00002130 30 29 0d 09 6a 2c 6c 69 62 65 72 69 61 25 3d a4 |0)..j,liberia%=.|
00002140 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4c 49 42 |countrymenu("LIB|
00002150 45 52 49 41 22 2c 25 31 31 31 31 31 30 29 0d 09 |ERIA",%111110)..|
00002160 74 2a 6c 69 62 79 61 25 20 20 3d a4 63 6f 75 6e |t*libya% =.coun|
00002170 74 72 79 6d 65 6e 75 28 22 4c 49 42 59 41 22 2c |trymenu("LIBYA",|
00002180 25 31 31 31 31 31 30 29 0d 09 7e 2f 6d 61 64 25 |%111110)..~/mad%|
00002190 20 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e | =.countrymen|
000021a0 75 28 22 4d 41 44 41 47 41 53 43 41 52 22 2c 25 |u("MADAGASCAR",%|
000021b0 31 31 31 31 31 30 29 0d 09 88 2b 6d 61 6c 61 77 |111110)...+malaw|
000021c0 69 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |i% =.countrymenu|
000021d0 28 22 4d 41 4c 41 57 49 22 2c 25 31 31 31 31 31 |("MALAWI",%11111|
000021e0 30 29 0d 09 92 29 6d 61 6c 69 25 20 20 20 3d a4 |0)...)mali% =.|
000021f0 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4d 41 4c |countrymenu("MAL|
00002200 49 22 2c 25 31 31 31 31 31 30 29 0d 09 9c 32 6d |I",%111110)...2m|
00002210 61 75 72 69 74 61 6e 69 61 25 3d a4 63 6f 75 6e |auritania%=.coun|
00002220 74 72 79 6d 65 6e 75 28 22 4d 41 55 52 49 54 41 |trymenu("MAURITA|
00002230 4e 49 41 22 2c 25 31 31 31 31 31 30 29 0d 09 a6 |NIA",%111110)...|
00002240 04 0d 09 b0 54 6d 61 75 72 69 74 69 75 73 25 3d |....Tmauritius%=|
00002250 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
00002260 5f 67 65 74 6d 65 73 73 61 67 65 28 22 4d 41 55 |_getmessage("MAU|
00002270 52 49 54 49 55 53 22 2c 62 25 2c 6d 65 6e 75 66 |RITIUS",b%,menuf|
00002280 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00002290 69 6e 64 25 29 0d 09 ba 5c 6d 61 75 72 69 74 69 |ind%)...\mauriti|
000022a0 61 6e 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |an%=.countrymenu|
000022b0 28 22 4d 41 55 52 49 54 49 41 4e 22 2c 25 31 31 |("MAURITIAN",%11|
000022c0 31 31 31 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 |1110): .menu_att|
000022d0 61 63 68 73 75 62 28 30 2c 6d 61 75 72 69 74 69 |achsub(0,mauriti|
000022e0 75 73 25 2c 30 2c 6d 61 75 72 69 74 69 61 6e 25 |us%,0,mauritian%|
000022f0 29 0d 09 c4 5c 72 6f 64 72 69 67 75 65 7a 25 3d |)...\rodriguez%=|
00002300 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 52 4f |.countrymenu("RO|
00002310 44 52 49 47 55 45 5a 22 2c 25 31 31 31 31 30 30 |DRIGUEZ",%111100|
00002320 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00002330 75 62 28 30 2c 6d 61 75 72 69 74 69 75 73 25 2c |ub(0,mauritius%,|
00002340 31 2c 72 6f 64 72 69 67 75 65 7a 25 29 0d 09 ce |1,rodriguez%)...|
00002350 04 0d 09 d8 2c 6d 6f 72 6f 63 63 6f 25 3d a4 63 |....,morocco%=.c|
00002360 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4d 4f 52 4f |ountrymenu("MORO|
00002370 43 43 4f 22 2c 25 31 31 31 31 31 30 29 0d 09 e2 |CCO",%111110)...|
00002380 2a 6d 6f 7a 61 6d 25 20 20 3d a4 63 6f 75 6e 74 |*mozam% =.count|
00002390 72 79 6d 65 6e 75 28 22 4d 4f 5a 41 4d 22 2c 25 |rymenu("MOZAM",%|
000023a0 31 31 31 31 31 30 29 0d 09 ec 2c 6e 61 6d 69 62 |111110)...,namib|
000023b0 69 61 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |ia%=.countrymenu|
000023c0 28 22 4e 41 4d 49 42 49 41 22 2c 25 31 31 31 31 |("NAMIBIA",%1111|
000023d0 31 30 29 0d 09 f6 2a 6e 69 67 65 72 25 20 20 3d |10)...*niger% =|
000023e0 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4e 49 |.countrymenu("NI|
000023f0 47 45 52 22 2c 25 31 31 31 31 31 30 29 0d 0a 00 |GER",%111110)...|
00002400 2c 6e 69 67 65 72 69 61 25 3d a4 63 6f 75 6e 74 |,nigeria%=.count|
00002410 72 79 6d 65 6e 75 28 22 4e 49 47 45 52 49 41 22 |rymenu("NIGERIA"|
00002420 2c 25 31 31 31 31 31 30 29 0d 0a 0a 2b 72 77 61 |,%111110)...+rwa|
00002430 6e 64 61 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |nda% =.countryme|
00002440 6e 75 28 22 52 57 41 4e 44 41 22 2c 25 31 31 31 |nu("RWANDA",%111|
00002450 31 31 30 29 0d 0a 14 2c 73 61 6f 74 6f 6d 25 20 |110)...,saotom% |
00002460 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 53 |=.countrymenu("S|
00002470 41 4f 54 4f 4d 45 22 2c 25 31 31 31 31 31 30 29 |AOTOME",%111110)|
00002480 0d 0a 1e 2c 73 65 6e 65 67 61 6c 25 3d a4 63 6f |...,senegal%=.co|
00002490 75 6e 74 72 79 6d 65 6e 75 28 22 53 45 4e 45 47 |untrymenu("SENEG|
000024a0 41 4c 22 2c 25 31 31 31 31 31 30 29 0d 0a 28 28 |AL",%111110)..((|
000024b0 73 65 79 25 20 20 20 20 3d a4 63 6f 75 6e 74 72 |sey% =.countr|
000024c0 79 6d 65 6e 75 28 22 53 45 59 22 2c 25 31 31 31 |ymenu("SEY",%111|
000024d0 31 31 30 29 0d 0a 32 2b 73 69 65 72 72 61 25 20 |110)..2+sierra% |
000024e0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 53 |=.countrymenu("S|
000024f0 49 45 52 52 41 22 2c 25 31 31 31 31 31 30 29 0d |IERRA",%111110).|
00002500 0a 3c 2c 73 6f 6d 61 6c 69 61 25 3d a4 63 6f 75 |.<,somalia%=.cou|
00002510 6e 74 72 79 6d 65 6e 75 28 22 53 4f 4d 41 4c 49 |ntrymenu("SOMALI|
00002520 41 22 2c 25 31 31 31 31 31 30 29 0d 0a 46 2a 73 |A",%111110)..F*s|
00002530 6f 75 74 68 61 25 20 3d a4 63 6f 75 6e 74 72 79 |outha% =.country|
00002540 6d 65 6e 75 28 22 53 4f 55 54 48 22 2c 25 31 31 |menu("SOUTH",%11|
00002550 31 31 31 30 29 0d 0a 50 04 0d 0a 5a 2a 73 75 64 |1110)..P...Z*sud|
00002560 61 6e 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |an% =.countryme|
00002570 6e 75 28 22 53 55 44 41 4e 22 2c 25 31 31 31 31 |nu("SUDAN",%1111|
00002580 31 30 29 0d 0a 64 75 6b 68 61 72 74 31 25 20 3d |10)..dukhart1% =|
00002590 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
000025a0 5f 67 65 74 6d 65 73 73 61 67 65 28 22 53 55 44 |_getmessage("SUD|
000025b0 41 4e 35 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 |AN5",b%,menufile|
000025c0 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 |%),mns%,mne%,ind|
000025d0 25 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |%): .menu_attach|
000025e0 73 75 62 28 30 2c 62 69 67 63 69 74 25 2c 30 2c |sub(0,bigcit%,0,|
000025f0 6b 68 61 72 74 31 25 29 0d 0a 6e 75 6b 68 61 72 |khart1%)..nukhar|
00002600 74 32 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 |t2% =.menu_make(|
00002610 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 |.wimp_getmessage|
00002620 28 22 53 55 44 41 4e 36 22 2c 62 25 2c 6d 65 6e |("SUDAN6",b%,men|
00002630 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
00002640 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 5f 61 |%,ind%): .menu_a|
00002650 74 74 61 63 68 73 75 62 28 30 2c 6b 68 61 72 74 |ttachsub(0,khart|
00002660 31 25 2c 30 2c 6b 68 61 72 74 32 25 29 0d 0a 78 |1%,0,khart2%)..x|
00002670 75 6b 68 61 72 74 33 25 20 3d a4 6d 65 6e 75 5f |ukhart3% =.menu_|
00002680 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 |make(.wimp_getme|
00002690 73 73 61 67 65 28 22 53 55 44 41 4e 37 22 2c 62 |ssage("SUDAN7",b|
000026a0 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 |%,menufile%),mns|
000026b0 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d |%,mne%,ind%): .m|
000026c0 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c |enu_attachsub(0,|
000026d0 6b 68 61 72 74 31 25 2c 31 2c 6b 68 61 72 74 33 |khart1%,1,khart3|
000026e0 25 29 0d 0a 82 75 6b 68 61 72 74 34 25 20 3d a4 |%)...ukhart4% =.|
000026f0 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f |menu_make(.wimp_|
00002700 67 65 74 6d 65 73 73 61 67 65 28 22 53 55 44 41 |getmessage("SUDA|
00002710 4e 38 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 |N8",b%,menufile%|
00002720 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 |),mns%,mne%,ind%|
00002730 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00002740 75 62 28 30 2c 6b 68 61 72 74 31 25 2c 33 2c 6b |ub(0,khart1%,3,k|
00002750 68 61 72 74 34 25 29 0d 0a 8c 75 6b 68 61 72 74 |hart4%)...ukhart|
00002760 35 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 |5% =.menu_make(.|
00002770 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
00002780 22 53 55 44 41 4e 39 22 2c 62 25 2c 6d 65 6e 75 |"SUDAN9",b%,menu|
00002790 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 |file%),mns%,mne%|
000027a0 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 5f 61 74 |,ind%): .menu_at|
000027b0 74 61 63 68 73 75 62 28 30 2c 6b 68 61 72 74 31 |tachsub(0,khart1|
000027c0 25 2c 34 2c 6b 68 61 72 74 35 25 29 0d 0a 96 04 |%,4,khart5%)....|
000027d0 0d 0a a0 28 74 61 6e 25 20 20 20 20 3d a4 63 6f |...(tan% =.co|
000027e0 75 6e 74 72 79 6d 65 6e 75 28 22 54 41 4e 22 2c |untrymenu("TAN",|
000027f0 25 31 31 31 31 31 30 29 0d 0a aa 29 74 6f 67 6f |%111110)...)togo|
00002800 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |% =.countrymen|
00002810 75 28 22 54 4f 47 4f 22 2c 25 31 31 31 31 31 30 |u("TOGO",%111110|
00002820 29 0d 0a b4 2a 74 75 6e 69 73 25 20 20 3d a4 63 |)...*tunis% =.c|
00002830 6f 75 6e 74 72 79 6d 65 6e 75 28 22 54 55 4e 49 |ountrymenu("TUNI|
00002840 53 22 2c 25 31 31 31 31 31 30 29 0d 0a be 2b 75 |S",%111110)...+u|
00002850 67 61 6e 64 61 25 20 3d a4 63 6f 75 6e 74 72 79 |ganda% =.country|
00002860 6d 65 6e 75 28 22 55 47 41 4e 44 41 22 2c 25 31 |menu("UGANDA",%1|
00002870 31 31 31 31 30 29 0d 0a c8 2b 73 61 68 61 72 61 |11110)...+sahara|
00002880 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |% =.countrymenu(|
00002890 22 53 41 48 41 52 41 22 2c 25 31 31 30 30 31 30 |"SAHARA",%110010|
000028a0 29 0d 0a d2 2a 7a 61 69 72 65 25 20 20 3d a4 63 |)...*zaire% =.c|
000028b0 6f 75 6e 74 72 79 6d 65 6e 75 28 22 5a 41 49 52 |ountrymenu("ZAIR|
000028c0 45 22 2c 25 31 31 31 31 31 30 29 0d 0a dc 2b 7a |E",%111110)...+z|
000028d0 61 6d 62 69 61 25 20 3d a4 63 6f 75 6e 74 72 79 |ambia% =.country|
000028e0 6d 65 6e 75 28 22 5a 41 4d 42 49 41 22 2c 25 31 |menu("ZAMBIA",%1|
000028f0 31 31 31 31 30 29 0d 0a e6 2d 7a 69 6d 62 25 20 |11110)...-zimb% |
00002900 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
00002910 22 5a 49 4d 42 41 42 57 45 22 2c 25 31 31 31 31 |"ZIMBABWE",%1111|
00002920 31 30 29 0d 0a f0 04 0d 0a fa 51 62 72 74 65 72 |10).......Qbrter|
00002930 72 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 |r% =.menu_make(.|
00002940 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
00002950 22 42 52 49 54 54 45 52 52 22 2c 62 25 2c 6d 65 |"BRITTERR",b%,me|
00002960 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e |nufile%),mns%,mn|
00002970 65 25 2c 69 6e 64 25 29 0d 0b 04 55 61 73 63 65 |e%,ind%)...Uasce|
00002980 6e 73 69 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |nsi%=.countrymen|
00002990 75 28 22 41 53 43 45 4e 53 49 4f 4e 22 2c 25 31 |u("ASCENSION",%1|
000029a0 31 31 31 30 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 |11100): .menu_at|
000029b0 74 61 63 68 73 75 62 28 31 2c 62 72 74 65 72 72 |tachsub(1,brterr|
000029c0 25 2c 30 2c 61 73 63 65 6e 73 69 25 29 0d 0b 0e |%,0,ascensi%)...|
000029d0 54 68 65 6c 65 6e 61 25 20 3d a4 63 6f 75 6e 74 |Thelena% =.count|
000029e0 72 79 6d 65 6e 75 28 22 48 45 4c 45 4e 41 22 2c |rymenu("HELENA",|
000029f0 25 31 31 31 31 31 30 29 20 20 20 3a 20 f2 6d 65 |%111110) : .me|
00002a00 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 62 |nu_attachsub(1,b|
00002a10 72 74 65 72 72 25 2c 31 2c 68 65 6c 65 6e 61 25 |rterr%,1,helena%|
00002a20 29 0d 0b 18 53 74 72 69 73 74 25 20 20 3d a4 63 |)...Strist% =.c|
00002a30 6f 75 6e 74 72 79 6d 65 6e 75 28 22 54 52 49 53 |ountrymenu("TRIS|
00002a40 54 22 2c 25 31 31 31 31 30 30 29 20 20 20 20 3a |T",%111100) :|
00002a50 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 | .menu_attachsub|
00002a60 28 31 2c 62 72 74 65 72 72 25 2c 32 2c 74 72 69 |(1,brterr%,2,tri|
00002a70 73 74 25 29 0d 0b 22 1f f2 6d 65 6e 75 5f 73 65 |st%).."..menu_se|
00002a80 74 77 69 64 74 68 28 62 72 74 65 72 72 25 2c 32 |twidth(brterr%,2|
00002a90 38 30 29 0d 0b 2c 04 0d 0b 36 4f 66 72 74 65 72 |80)..,...6Ofrter|
00002aa0 72 73 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 |rs%=.menu_make(.|
00002ab0 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
00002ac0 22 46 52 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 |"FRTERR",b%,menu|
00002ad0 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 |file%),mns%,mne%|
00002ae0 2c 69 6e 64 25 29 0d 0b 40 54 6d 61 79 6f 74 74 |,ind%)..@Tmayott|
00002af0 65 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |e%=.countrymenu(|
00002b00 22 4d 41 59 4f 54 54 45 22 2c 25 31 31 31 31 31 |"MAYOTTE",%11111|
00002b10 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |0): .menu_attach|
00002b20 73 75 62 28 31 2c 66 72 74 65 72 72 73 25 2c 30 |sub(1,frterrs%,0|
00002b30 2c 6d 61 79 6f 74 74 65 25 29 0d 0b 4a 54 72 65 |,mayotte%)..JTre|
00002b40 75 6e 69 6f 6e 25 3d a4 63 6f 75 6e 74 72 79 6d |union%=.countrym|
00002b50 65 6e 75 28 22 52 45 55 4e 49 4f 4e 22 2c 25 31 |enu("REUNION",%1|
00002b60 31 31 31 31 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 |11110): .menu_at|
00002b70 74 61 63 68 73 75 62 28 31 2c 66 72 74 65 72 72 |tachsub(1,frterr|
00002b80 73 25 2c 31 2c 72 65 75 6e 69 6f 6e 25 29 0d 0b |s%,1,reunion%)..|
00002b90 54 54 73 6f 75 74 61 6e 74 25 3d a4 63 6f 75 6e |TTsoutant%=.coun|
00002ba0 74 72 79 6d 65 6e 75 28 22 53 4f 55 54 41 4e 54 |trymenu("SOUTANT|
00002bb0 22 2c 25 31 31 31 30 30 31 29 3a 20 f2 6d 65 6e |",%111001): .men|
00002bc0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 66 72 |u_attachsub(1,fr|
00002bd0 74 65 72 72 73 25 2c 32 2c 73 6f 75 74 61 6e 74 |terrs%,2,soutant|
00002be0 25 29 0d 0b 5e 20 f2 6d 65 6e 75 5f 64 65 6c 65 |%)..^ .menu_dele|
00002bf0 74 65 69 74 65 6d 28 73 6f 75 74 61 6e 74 25 2c |teitem(soutant%,|
00002c00 33 29 0d 0b 68 75 73 6f 75 74 32 25 3d a4 6d 65 |3)..husout2%=.me|
00002c10 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 |nu_make(.wimp_ge|
00002c20 74 6d 65 73 73 61 67 65 28 22 53 4f 55 54 41 4e |tmessage("SOUTAN|
00002c30 54 35 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 |T5",b%,menufile%|
00002c40 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 |),mns%,mne%,ind%|
00002c50 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00002c60 75 62 28 30 2c 73 6f 75 74 61 6e 74 25 2c 34 2c |ub(0,soutant%,4,|
00002c70 73 6f 75 74 32 25 29 0d 0b 72 75 73 6f 75 74 33 |sout2%)..rusout3|
00002c80 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 |%=.menu_make(.wi|
00002c90 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 53 |mp_getmessage("S|
00002ca0 4f 55 54 41 4e 54 36 22 2c 62 25 2c 6d 65 6e 75 |OUTANT6",b%,menu|
00002cb0 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 |file%),mns%,mne%|
00002cc0 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 5f 61 74 |,ind%): .menu_at|
00002cd0 74 61 63 68 73 75 62 28 30 2c 73 6f 75 74 61 6e |tachsub(0,soutan|
00002ce0 74 25 2c 35 2c 73 6f 75 74 33 25 29 0d 0b 7c 73 |t%,5,sout3%)..|s|
00002cf0 73 6f 75 74 34 25 3d a4 6d 65 6e 75 5f 6d 61 6b |sout4%=.menu_mak|
00002d00 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 |e(.wimp_getmessa|
00002d10 67 65 28 22 53 4f 55 54 41 4e 54 37 22 2c 62 25 |ge("SOUTANT7",b%|
00002d20 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 |,menufile%),mns%|
00002d30 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 |,mne%,ind%): .me|
00002d40 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c 73 |nu_attachsub(0,s|
00002d50 6f 75 74 32 25 2c 30 2c 73 6f 75 74 34 25 29 0d |out2%,0,sout4%).|
00002d60 0b 86 73 73 6f 75 74 35 25 3d a4 6d 65 6e 75 5f |..ssout5%=.menu_|
00002d70 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 |make(.wimp_getme|
00002d80 73 73 61 67 65 28 22 53 4f 55 54 41 4e 54 38 22 |ssage("SOUTANT8"|
00002d90 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d |,b%,menufile%),m|
00002da0 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 |ns%,mne%,ind%): |
00002db0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00002dc0 30 2c 73 6f 75 74 33 25 2c 30 2c 73 6f 75 74 35 |0,sout3%,0,sout5|
00002dd0 25 29 0d 0b 90 20 f2 6d 65 6e 75 5f 73 65 74 77 |%)... .menu_setw|
00002de0 69 64 74 68 28 66 72 74 65 72 72 73 25 2c 33 34 |idth(frterrs%,34|
00002df0 30 29 0d 0b 9a 04 0d 0b a4 50 6e 6f 72 74 65 72 |0).......Pnorter|
00002e00 72 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 |r%=.menu_make(.w|
00002e10 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 |imp_getmessage("|
00002e20 4e 4f 52 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 |NORTERR",b%,menu|
00002e30 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 |file%),mns%,mne%|
00002e40 2c 69 6e 64 25 29 0d 0b ae 53 62 6f 75 76 65 74 |,ind%)...Sbouvet|
00002e50 69 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |i%=.countrymenu(|
00002e60 22 42 4f 55 56 45 54 22 2c 25 31 31 31 30 30 30 |"BOUVET",%111000|
00002e70 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00002e80 75 62 28 31 2c 6e 6f 72 74 65 72 72 25 2c 30 2c |ub(1,norterr%,0,|
00002e90 62 6f 75 76 65 74 69 25 29 0d 0b b8 20 f2 6d 65 |bouveti%)... .me|
00002ea0 6e 75 5f 73 65 74 77 69 64 74 68 28 6e 6f 72 74 |nu_setwidth(nort|
00002eb0 65 72 72 25 2c 32 35 30 29 0d 0b c2 04 0d 0b cc |err%,250).......|
00002ec0 51 70 6f 72 74 65 72 72 25 3d a4 6d 65 6e 75 5f |Qporterr%=.menu_|
00002ed0 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 |make(.wimp_getme|
00002ee0 73 73 61 67 65 28 22 50 4f 52 54 54 45 52 52 22 |ssage("PORTTERR"|
00002ef0 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d |,b%,menufile%),m|
00002f00 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 0b |ns%,mne%,ind%)..|
00002f10 d6 54 6d 61 64 65 69 72 61 25 3d a4 63 6f 75 6e |.Tmadeira%=.coun|
00002f20 74 72 79 6d 65 6e 75 28 22 4d 41 44 45 49 52 41 |trymenu("MADEIRA|
00002f30 22 2c 25 31 31 31 31 31 30 29 3a 20 f2 6d 65 6e |",%111110): .men|
00002f40 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 70 6f |u_attachsub(1,po|
00002f50 72 74 65 72 72 25 2c 30 2c 6d 61 64 65 69 72 61 |rterr%,0,madeira|
00002f60 25 29 0d 0b e0 20 f2 6d 65 6e 75 5f 73 65 74 77 |%)... .menu_setw|
00002f70 69 64 74 68 28 70 6f 72 74 65 72 72 25 2c 32 35 |idth(porterr%,25|
00002f80 30 29 0d 0b ea 04 0d 0b f4 4f 73 70 74 65 72 72 |0).......Ospterr|
00002f90 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 |% =.menu_make(.w|
00002fa0 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 |imp_getmessage("|
00002fb0 53 50 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 |SPTERR",b%,menuf|
00002fc0 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00002fd0 69 6e 64 25 29 0d 0b fe 52 63 61 6e 61 72 79 73 |ind%)...Rcanarys|
00002fe0 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
00002ff0 43 41 4e 41 52 59 22 2c 25 31 31 31 31 31 30 29 |CANARY",%111110)|
00003000 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |: .menu_attachsu|
00003010 62 28 31 2c 73 70 74 65 72 72 25 2c 30 2c 63 61 |b(1,spterr%,0,ca|
00003020 6e 61 72 79 73 25 29 0d 0c 08 1f f2 6d 65 6e 75 |narys%).....menu|
00003030 5f 73 65 74 77 69 64 74 68 28 73 70 74 65 72 72 |_setwidth(spterr|
00003040 25 2c 32 35 30 29 0d 0c 12 04 0d 0c 1c 0d f4 20 |%,250)......... |
00003050 41 6d 65 72 69 63 61 0d 0c 26 2c 61 6e 74 69 67 |America..&,antig|
00003060 75 61 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |ua%=.countrymenu|
00003070 28 22 41 4e 54 49 47 55 41 22 2c 25 31 31 31 31 |("ANTIGUA",%1111|
00003080 31 30 29 0d 0c 30 04 0d 0c 3a 2b 61 72 67 65 6e |10)..0...:+argen|
00003090 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |% =.countrymenu|
000030a0 28 22 41 52 47 45 4e 54 22 2c 25 31 31 31 31 31 |("ARGENT",%11111|
000030b0 30 29 0d 0c 44 77 62 75 65 6e 6f 73 31 25 3d a4 |0)..Dwbuenos1%=.|
000030c0 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f |menu_make(.wimp_|
000030d0 67 65 74 6d 65 73 73 61 67 65 28 22 41 52 47 45 |getmessage("ARGE|
000030e0 4e 54 35 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 |NT5",b%,menufile|
000030f0 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 |%),mns%,mne%,ind|
00003100 25 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |%): .menu_attach|
00003110 73 75 62 28 30 2c 62 69 67 63 69 74 25 2c 30 2c |sub(0,bigcit%,0,|
00003120 62 75 65 6e 6f 73 31 25 29 0d 0c 4e 78 62 75 65 |buenos1%)..Nxbue|
00003130 6e 6f 73 32 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 |nos2%=.menu_make|
00003140 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 |(.wimp_getmessag|
00003150 65 28 22 41 52 47 45 4e 54 36 22 2c 62 25 2c 6d |e("ARGENT6",b%,m|
00003160 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d |enufile%),mns%,m|
00003170 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 |ne%,ind%): .menu|
00003180 5f 61 74 74 61 63 68 73 75 62 28 30 2c 62 75 65 |_attachsub(0,bue|
00003190 6e 6f 73 31 25 2c 30 2c 62 75 65 6e 6f 73 32 25 |nos1%,0,buenos2%|
000031a0 29 0d 0c 58 78 62 75 65 6e 6f 73 33 25 3d a4 6d |)..Xxbuenos3%=.m|
000031b0 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 |enu_make(.wimp_g|
000031c0 65 74 6d 65 73 73 61 67 65 28 22 41 52 47 45 4e |etmessage("ARGEN|
000031d0 54 37 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 |T7",b%,menufile%|
000031e0 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 |),mns%,mne%,ind%|
000031f0 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00003200 75 62 28 30 2c 62 75 65 6e 6f 73 31 25 2c 31 2c |ub(0,buenos1%,1,|
00003210 62 75 65 6e 6f 73 33 25 29 0d 0c 62 78 62 75 65 |buenos3%)..bxbue|
00003220 6e 6f 73 34 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 |nos4%=.menu_make|
00003230 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 |(.wimp_getmessag|
00003240 65 28 22 41 52 47 45 4e 54 38 22 2c 62 25 2c 6d |e("ARGENT8",b%,m|
00003250 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d |enufile%),mns%,m|
00003260 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 |ne%,ind%): .menu|
00003270 5f 61 74 74 61 63 68 73 75 62 28 30 2c 62 75 65 |_attachsub(0,bue|
00003280 6e 6f 73 31 25 2c 33 2c 62 75 65 6e 6f 73 34 25 |nos1%,3,buenos4%|
00003290 29 0d 0c 6c 04 0d 0c 76 2c 62 61 68 61 6d 61 73 |)..l...v,bahamas|
000032a0 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
000032b0 42 41 48 41 4d 41 53 22 2c 25 31 31 31 31 31 30 |BAHAMAS",%111110|
000032c0 29 0d 0c 80 2d 62 61 72 62 25 20 20 20 3d a4 63 |)...-barb% =.c|
000032d0 6f 75 6e 74 72 79 6d 65 6e 75 28 22 42 41 52 42 |ountrymenu("BARB|
000032e0 41 44 4f 53 22 2c 25 31 31 31 31 31 30 29 0d 0c |ADOS",%111110)..|
000032f0 8a 2b 62 65 6c 69 7a 65 25 20 3d a4 63 6f 75 6e |.+belize% =.coun|
00003300 74 72 79 6d 65 6e 75 28 22 42 45 4c 49 5a 45 22 |trymenu("BELIZE"|
00003310 2c 25 31 31 31 31 31 30 29 0d 0c 94 2c 62 6f 6c |,%111110)...,bol|
00003320 69 76 69 61 25 3d a4 63 6f 75 6e 74 72 79 6d 65 |ivia%=.countryme|
00003330 6e 75 28 22 42 4f 4c 49 56 49 41 22 2c 25 31 31 |nu("BOLIVIA",%11|
00003340 31 31 31 30 29 0d 0c 9e 2b 62 72 61 7a 69 6c 25 |1110)...+brazil%|
00003350 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00003360 42 52 41 5a 49 4c 22 2c 25 31 31 31 31 31 30 29 |BRAZIL",%111110)|
00003370 0d 0c a8 2b 63 61 6e 61 64 61 25 20 3d a4 63 6f |...+canada% =.co|
00003380 75 6e 74 72 79 6d 65 6e 75 28 22 43 41 4e 41 44 |untrymenu("CANAD|
00003390 41 22 2c 25 31 31 31 31 31 30 29 0d 0c b2 2a 63 |A",%111110)...*c|
000033a0 68 69 6c 65 25 20 20 3d a4 63 6f 75 6e 74 72 79 |hile% =.country|
000033b0 6d 65 6e 75 28 22 43 48 49 4c 45 22 2c 25 31 31 |menu("CHILE",%11|
000033c0 31 31 31 30 29 0d 0c bc 2d 63 6f 6c 6f 6d 62 25 |1110)...-colomb%|
000033d0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
000033e0 43 4f 4c 4f 4d 42 49 41 22 2c 25 31 31 31 31 31 |COLOMBIA",%11111|
000033f0 30 29 0d 0c c6 2a 63 6f 73 74 61 25 20 20 3d a4 |0)...*costa% =.|
00003400 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 43 4f 53 |countrymenu("COS|
00003410 54 41 22 2c 25 31 31 31 31 31 30 29 0d 0c d0 29 |TA",%111110)...)|
00003420 63 75 62 61 25 20 20 20 3d a4 63 6f 75 6e 74 72 |cuba% =.countr|
00003430 79 6d 65 6e 75 28 22 43 55 42 41 22 2c 25 31 31 |ymenu("CUBA",%11|
00003440 31 31 31 30 29 0d 0c da 2d 64 6f 6d 25 20 20 20 |1110)...-dom% |
00003450 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00003460 44 4f 4d 49 4e 49 43 41 22 2c 25 31 31 31 31 31 |DOMINICA",%11111|
00003470 30 29 0d 0c e4 2e 64 6f 6d 72 65 70 25 20 3d a4 |0)....domrep% =.|
00003480 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 44 4f 4d |countrymenu("DOM|
00003490 49 4e 49 43 41 4e 22 2c 25 31 31 31 31 31 30 29 |INICAN",%111110)|
000034a0 0d 0c ee 2c 65 63 75 61 64 6f 72 25 3d a4 63 6f |...,ecuador%=.co|
000034b0 75 6e 74 72 79 6d 65 6e 75 28 22 45 43 55 41 44 |untrymenu("ECUAD|
000034c0 4f 52 22 2c 25 31 31 31 31 31 30 29 0d 0c f8 2d |OR",%111110)...-|
000034d0 65 6c 73 61 6c 25 20 20 3d a4 63 6f 75 6e 74 72 |elsal% =.countr|
000034e0 79 6d 65 6e 75 28 22 53 41 4c 56 41 44 4f 52 22 |ymenu("SALVADOR"|
000034f0 2c 25 31 31 31 31 31 30 29 0d 0d 02 2c 67 72 65 |,%111110)...,gre|
00003500 6e 61 64 61 25 3d a4 63 6f 75 6e 74 72 79 6d 65 |nada%=.countryme|
00003510 6e 75 28 22 47 52 45 4e 41 44 41 22 2c 25 31 31 |nu("GRENADA",%11|
00003520 31 31 31 30 29 0d 0d 0c 2e 67 75 61 74 25 20 20 |1110)....guat% |
00003530 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00003540 47 55 41 54 45 4d 41 4c 41 22 2c 25 31 31 31 31 |GUATEMALA",%1111|
00003550 31 30 29 0d 0d 16 2b 67 75 79 61 6e 61 25 20 3d |10)...+guyana% =|
00003560 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 47 55 |.countrymenu("GU|
00003570 59 41 4e 41 22 2c 25 31 31 31 31 31 30 29 0d 0d |YANA",%111110)..|
00003580 20 2a 68 61 69 74 69 25 20 20 3d a4 63 6f 75 6e | *haiti% =.coun|
00003590 74 72 79 6d 65 6e 75 28 22 48 41 49 54 49 22 2c |trymenu("HAITI",|
000035a0 25 31 31 31 31 31 30 29 0d 0d 2a 2d 68 6f 6e 64 |%111110)..*-hond|
000035b0 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |% =.countrymen|
000035c0 75 28 22 48 4f 4e 44 55 52 41 53 22 2c 25 31 31 |u("HONDURAS",%11|
000035d0 31 31 31 30 29 0d 0d 34 2c 6a 61 6d 61 69 63 61 |1110)..4,jamaica|
000035e0 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
000035f0 4a 41 4d 41 49 43 41 22 2c 25 31 31 31 31 31 30 |JAMAICA",%111110|
00003600 29 0d 0d 3e 2b 6d 65 78 69 63 6f 25 20 3d a4 63 |)..>+mexico% =.c|
00003610 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4d 45 58 49 |ountrymenu("MEXI|
00003620 43 4f 22 2c 25 31 31 31 31 31 30 29 0d 0d 48 2e |CO",%111110)..H.|
00003630 6e 69 63 25 20 20 20 20 3d a4 63 6f 75 6e 74 72 |nic% =.countr|
00003640 79 6d 65 6e 75 28 22 4e 49 43 41 52 41 47 55 41 |ymenu("NICARAGUA|
00003650 22 2c 25 31 31 31 31 31 30 29 0d 0d 52 2b 70 61 |",%111110)..R+pa|
00003660 6e 61 6d 61 25 20 3d a4 63 6f 75 6e 74 72 79 6d |nama% =.countrym|
00003670 65 6e 75 28 22 50 41 4e 41 4d 41 22 2c 25 31 31 |enu("PANAMA",%11|
00003680 31 31 31 30 29 0d 0d 5c 2d 70 61 72 61 67 25 20 |1110)..\-parag% |
00003690 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
000036a0 50 41 52 41 47 55 41 59 22 2c 25 31 31 31 31 31 |PARAGUAY",%11111|
000036b0 30 29 0d 0d 66 04 0d 0d 70 29 70 65 72 75 25 20 |0)..f...p)peru% |
000036c0 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
000036d0 22 50 45 52 55 22 2c 25 31 31 31 31 31 30 29 0d |"PERU",%111110).|
000036e0 0d 7a 71 6c 69 6d 61 31 25 3d a4 6d 65 6e 75 5f |.zqlima1%=.menu_|
000036f0 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 |make(.wimp_getme|
00003700 73 73 61 67 65 28 22 50 45 52 55 34 22 2c 62 25 |ssage("PERU4",b%|
00003710 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 |,menufile%),mns%|
00003720 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 |,mne%,ind%): .me|
00003730 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c 62 |nu_attachsub(0,b|
00003740 69 67 63 69 74 25 2c 30 2c 6c 69 6d 61 31 25 29 |igcit%,0,lima1%)|
00003750 0d 0d 84 70 6c 69 6d 61 32 25 3d a4 6d 65 6e 75 |...plima2%=.menu|
00003760 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d |_make(.wimp_getm|
00003770 65 73 73 61 67 65 28 22 50 45 52 55 35 22 2c 62 |essage("PERU5",b|
00003780 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 |%,menufile%),mns|
00003790 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d |%,mne%,ind%): .m|
000037a0 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c |enu_attachsub(0,|
000037b0 6c 69 6d 61 31 25 2c 30 2c 6c 69 6d 61 32 25 29 |lima1%,0,lima2%)|
000037c0 0d 0d 8e 70 6c 69 6d 61 33 25 3d a4 6d 65 6e 75 |...plima3%=.menu|
000037d0 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d |_make(.wimp_getm|
000037e0 65 73 73 61 67 65 28 22 50 45 52 55 36 22 2c 62 |essage("PERU6",b|
000037f0 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 |%,menufile%),mns|
00003800 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d |%,mne%,ind%): .m|
00003810 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c |enu_attachsub(0,|
00003820 6c 69 6d 61 31 25 2c 32 2c 6c 69 6d 61 33 25 29 |lima1%,2,lima3%)|
00003830 0d 0d 98 04 0d 0d a2 2a 6b 69 74 74 73 25 20 20 |.......*kitts% |
00003840 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4b |=.countrymenu("K|
00003850 49 54 54 53 22 2c 25 31 31 31 31 31 30 29 0d 0d |ITTS",%111110)..|
00003860 ac 2a 6c 75 63 69 61 25 20 20 3d a4 63 6f 75 6e |.*lucia% =.coun|
00003870 74 72 79 6d 65 6e 75 28 22 4c 55 43 49 41 22 2c |trymenu("LUCIA",|
00003880 25 31 31 31 31 31 30 29 0d 0d b6 2c 76 69 6e 63 |%111110)...,vinc|
00003890 65 6e 74 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |ent%=.countrymen|
000038a0 75 28 22 56 49 4e 43 45 4e 54 22 2c 25 31 31 31 |u("VINCENT",%111|
000038b0 31 31 30 29 0d 0d c0 2c 73 75 72 69 6e 61 6d 25 |110)...,surinam%|
000038c0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 53 |=.countrymenu("S|
000038d0 55 52 49 4e 41 4d 22 2c 25 31 31 31 31 31 30 29 |URINAM",%111110)|
000038e0 0d 0d ca 2d 74 72 69 6e 25 20 20 20 3d a4 63 6f |...-trin% =.co|
000038f0 75 6e 74 72 79 6d 65 6e 75 28 22 54 52 49 4e 49 |untrymenu("TRINI|
00003900 44 41 44 22 2c 25 31 31 31 31 31 30 29 0d 0d d4 |DAD",%111110)...|
00003910 28 75 73 61 25 20 20 20 20 3d a4 63 6f 75 6e 74 |(usa% =.count|
00003920 72 79 6d 65 6e 75 28 22 55 53 41 22 2c 25 31 31 |rymenu("USA",%11|
00003930 31 31 31 30 29 0d 0d de 2c 75 72 75 67 75 61 79 |1110)...,uruguay|
00003940 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
00003950 55 52 55 47 55 41 59 22 2c 25 31 31 31 31 31 30 |URUGUAY",%111110|
00003960 29 0d 0d e8 28 76 65 6e 25 20 20 20 20 3d a4 63 |)...(ven% =.c|
00003970 6f 75 6e 74 72 79 6d 65 6e 75 28 22 56 45 4e 22 |ountrymenu("VEN"|
00003980 2c 25 31 31 31 31 31 30 29 0d 0d f2 04 0d 0d fc |,%111110).......|
00003990 51 61 6d 62 72 69 74 25 20 3d a4 6d 65 6e 75 5f |Qambrit% =.menu_|
000039a0 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 |make(.wimp_getme|
000039b0 73 73 61 67 65 28 22 41 4d 42 52 54 45 52 52 22 |ssage("AMBRTERR"|
000039c0 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d |,b%,menufile%),m|
000039d0 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 0e |ns%,mne%,ind%)..|
000039e0 06 50 61 6e 67 25 20 20 20 20 3d a4 63 6f 75 6e |.Pang% =.coun|
000039f0 74 72 79 6d 65 6e 75 28 22 41 4e 47 55 49 4c 4c |trymenu("ANGUILL|
00003a00 41 22 2c 25 31 31 31 31 31 30 29 3a 20 f2 6d 65 |A",%111110): .me|
00003a10 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00003a20 6d 62 72 69 74 25 2c 30 2c 61 6e 67 25 29 0d 0e |mbrit%,0,ang%)..|
00003a30 10 50 62 65 72 25 20 20 20 20 3d a4 63 6f 75 6e |.Pber% =.coun|
00003a40 74 72 79 6d 65 6e 75 28 22 42 45 52 4d 55 44 41 |trymenu("BERMUDA|
00003a50 22 2c 25 31 31 31 31 31 30 29 20 3a 20 f2 6d 65 |",%111110) : .me|
00003a60 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00003a70 6d 62 72 69 74 25 2c 31 2c 62 65 72 25 29 0d 0e |mbrit%,1,ber%)..|
00003a80 1a 6e 62 72 61 6e 74 25 20 20 3d a4 63 6f 75 6e |.nbrant% =.coun|
00003a90 74 72 79 6d 65 6e 75 28 22 42 52 41 4e 54 22 2c |trymenu("BRANT",|
00003aa0 25 30 31 31 30 30 31 29 20 20 20 3a 20 f2 6d 65 |%011001) : .me|
00003ab0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00003ac0 6d 62 72 69 74 25 2c 32 2c 62 72 61 6e 74 25 29 |mbrit%,2,brant%)|
00003ad0 3a 20 f2 6d 65 6e 75 5f 64 65 6c 65 74 65 69 74 |: .menu_deleteit|
00003ae0 65 6d 28 62 72 61 6e 74 25 2c 32 29 0d 0e 24 52 |em(brant%,2)..$R|
00003af0 73 6f 75 74 68 67 25 20 3d a4 63 6f 75 6e 74 72 |southg% =.countr|
00003b00 79 6d 65 6e 75 28 22 53 4f 55 54 48 47 22 2c 25 |ymenu("SOUTHG",%|
00003b10 31 31 31 31 30 30 29 20 20 3a 20 f2 6d 65 6e 75 |111100) : .menu|
00003b20 5f 61 74 74 61 63 68 73 75 62 28 31 2c 62 72 61 |_attachsub(1,bra|
00003b30 6e 74 25 2c 32 2c 73 6f 75 74 68 67 25 29 0d 0e |nt%,2,southg%)..|
00003b40 2e 53 76 69 72 67 69 6e 25 20 3d a4 63 6f 75 6e |.Svirgin% =.coun|
00003b50 74 72 79 6d 65 6e 75 28 22 56 49 52 47 49 4e 22 |trymenu("VIRGIN"|
00003b60 2c 25 31 31 31 31 31 30 29 20 20 3a 20 f2 6d 65 |,%111110) : .me|
00003b70 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00003b80 6d 62 72 69 74 25 2c 33 2c 76 69 72 67 69 6e 25 |mbrit%,3,virgin%|
00003b90 29 0d 0e 38 53 63 61 79 6d 61 6e 25 20 3d a4 63 |)..8Scayman% =.c|
00003ba0 6f 75 6e 74 72 79 6d 65 6e 75 28 22 43 41 59 4d |ountrymenu("CAYM|
00003bb0 41 4e 22 2c 25 31 31 31 31 31 30 29 20 20 3a 20 |AN",%111110) : |
00003bc0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00003bd0 31 2c 61 6d 62 72 69 74 25 2c 34 2c 63 61 79 6d |1,ambrit%,4,caym|
00003be0 61 6e 25 29 0d 0e 42 51 66 61 6c 6b 25 20 20 20 |an%)..BQfalk% |
00003bf0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 46 |=.countrymenu("F|
00003c00 41 4c 4b 4c 41 4e 44 22 2c 25 31 31 31 31 31 30 |ALKLAND",%111110|
00003c10 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00003c20 75 62 28 31 2c 61 6d 62 72 69 74 25 2c 35 2c 66 |ub(1,ambrit%,5,f|
00003c30 61 6c 6b 25 29 0d 0e 4c 52 6d 6f 6e 74 25 20 20 |alk%)..LRmont% |
00003c40 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00003c50 4d 4f 4e 54 53 45 52 52 41 54 22 2c 25 31 31 31 |MONTSERRAT",%111|
00003c60 31 31 30 29 3a f2 6d 65 6e 75 5f 61 74 74 61 63 |110):.menu_attac|
00003c70 68 73 75 62 28 31 2c 61 6d 62 72 69 74 25 2c 36 |hsub(1,ambrit%,6|
00003c80 2c 6d 6f 6e 74 25 29 0d 0e 56 52 74 75 72 6b 73 |,mont%)..VRturks|
00003c90 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |% =.countrymenu|
00003ca0 28 22 54 55 52 4b 53 22 2c 25 31 31 31 31 31 30 |("TURKS",%111110|
00003cb0 29 20 20 20 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 |) : .menu_atta|
00003cc0 63 68 73 75 62 28 31 2c 61 6d 62 72 69 74 25 2c |chsub(1,ambrit%,|
00003cd0 37 2c 74 75 72 6b 73 25 29 0d 0e 60 1f f2 6d 65 |7,turks%)..`..me|
00003ce0 6e 75 5f 73 65 74 77 69 64 74 68 28 61 6d 62 72 |nu_setwidth(ambr|
00003cf0 69 74 25 2c 33 36 30 29 0d 0e 6a 04 0d 0e 74 52 |it%,360)..j...tR|
00003d00 61 6d 64 61 6e 65 25 20 3d a4 6d 65 6e 75 5f 6d |amdane% =.menu_m|
00003d10 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 |ake(.wimp_getmes|
00003d20 73 61 67 65 28 22 41 4d 44 41 4e 54 45 52 52 22 |sage("AMDANTERR"|
00003d30 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d |,b%,menufile%),m|
00003d40 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 0e |ns%,mne%,ind%)..|
00003d50 7e 53 67 72 65 65 6e 25 20 20 3d a4 63 6f 75 6e |~Sgreen% =.coun|
00003d60 74 72 79 6d 65 6e 75 28 22 47 52 45 45 4e 4c 41 |trymenu("GREENLA|
00003d70 4e 44 22 2c 25 31 31 31 31 31 30 29 3a 20 f2 6d |ND",%111110): .m|
00003d80 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00003d90 61 6d 64 61 6e 65 25 2c 30 2c 67 72 65 65 6e 25 |amdane%,0,green%|
00003da0 29 0d 0e 88 1f f2 6d 65 6e 75 5f 73 65 74 77 69 |).....menu_setwi|
00003db0 64 74 68 28 61 6d 64 61 6e 65 25 2c 32 35 30 29 |dth(amdane%,250)|
00003dc0 0d 0e 92 04 0d 0e 9c 54 61 6d 64 75 74 63 68 25 |.......Tamdutch%|
00003dd0 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d |=.menu_make(.wim|
00003de0 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 41 4d |p_getmessage("AM|
00003df0 44 55 54 43 48 54 45 52 52 22 2c 62 25 2c 6d 65 |DUTCHTERR",b%,me|
00003e00 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e |nufile%),mns%,mn|
00003e10 65 25 2c 69 6e 64 25 29 0d 0e a6 54 61 72 75 62 |e%,ind%)...Tarub|
00003e20 61 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |a% =.countrymen|
00003e30 75 28 22 41 52 55 42 41 22 2c 25 31 31 31 31 30 |u("ARUBA",%11110|
00003e40 30 29 20 20 20 20 3a 20 f2 6d 65 6e 75 5f 61 74 |0) : .menu_at|
00003e50 74 61 63 68 73 75 62 28 31 2c 61 6d 64 75 74 63 |tachsub(1,amdutc|
00003e60 68 25 2c 30 2c 61 72 75 62 61 25 29 0d 0e b0 53 |h%,0,aruba%)...S|
00003e70 61 6e 74 73 25 20 20 20 3d a4 63 6f 75 6e 74 72 |ants% =.countr|
00003e80 79 6d 65 6e 75 28 22 4e 41 4e 54 49 4c 4c 45 53 |ymenu("NANTILLES|
00003e90 22 2c 25 31 31 31 31 31 30 29 3a 20 f2 6d 65 6e |",%111110): .men|
00003ea0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d |u_attachsub(1,am|
00003eb0 64 75 74 63 68 25 2c 31 2c 61 6e 74 73 25 29 0d |dutch%,1,ants%).|
00003ec0 0e ba 20 f2 6d 65 6e 75 5f 73 65 74 77 69 64 74 |.. .menu_setwidt|
00003ed0 68 28 61 6d 64 75 74 63 68 25 2c 33 30 30 29 0d |h(amdutch%,300).|
00003ee0 0e c4 04 0d 0e ce 51 61 6d 66 72 25 20 20 20 3d |......Qamfr% =|
00003ef0 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
00003f00 5f 67 65 74 6d 65 73 73 61 67 65 28 22 46 52 41 |_getmessage("FRA|
00003f10 4d 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 69 |MTERR",b%,menufi|
00003f20 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 |le%),mns%,mne%,i|
00003f30 6e 64 25 29 0d 0e d8 52 66 67 75 69 61 6e 61 25 |nd%)...Rfguiana%|
00003f40 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 46 |=.countrymenu("F|
00003f50 52 47 55 49 41 4e 41 22 2c 25 31 31 31 31 31 30 |RGUIANA",%111110|
00003f60 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |): .menu_attachs|
00003f70 75 62 28 31 2c 61 6d 66 72 25 2c 30 2c 66 67 75 |ub(1,amfr%,0,fgu|
00003f80 69 61 6e 61 25 29 0d 0e e2 4f 67 75 61 64 25 20 |iana%)...Oguad% |
00003f90 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
00003fa0 22 47 55 41 44 22 2c 25 31 31 31 31 31 30 29 20 |"GUAD",%111110) |
00003fb0 20 20 20 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 | : .menu_attac|
00003fc0 68 73 75 62 28 31 2c 61 6d 66 72 25 2c 31 2c 67 |hsub(1,amfr%,1,g|
00003fd0 75 61 64 25 29 0d 0e ec 4f 6d 61 72 74 25 20 20 |uad%)...Omart% |
00003fe0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00003ff0 4d 41 52 54 22 2c 25 31 31 31 31 31 30 29 20 20 |MART",%111110) |
00004000 20 20 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 | : .menu_attach|
00004010 73 75 62 28 31 2c 61 6d 66 72 25 2c 32 2c 6d 61 |sub(1,amfr%,2,ma|
00004020 72 74 25 29 0d 0e f6 51 70 69 65 72 72 65 25 20 |rt%)...Qpierre% |
00004030 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 50 |=.countrymenu("P|
00004040 49 45 52 52 45 22 2c 25 31 31 31 31 31 30 29 20 |IERRE",%111110) |
00004050 20 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 | : .menu_attachs|
00004060 75 62 28 31 2c 61 6d 66 72 25 2c 33 2c 70 69 65 |ub(1,amfr%,3,pie|
00004070 72 72 65 25 29 0d 0f 00 1d f2 6d 65 6e 75 5f 73 |rre%).....menu_s|
00004080 65 74 77 69 64 74 68 28 61 6d 66 72 25 2c 33 34 |etwidth(amfr%,34|
00004090 30 29 0d 0f 0a 04 0d 0f 14 51 61 6d 75 73 25 20 |0).......Qamus% |
000040a0 20 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 | =.menu_make(.w|
000040b0 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 |imp_getmessage("|
000040c0 55 53 41 4d 54 45 52 52 22 2c 62 25 2c 6d 65 6e |USAMTERR",b%,men|
000040d0 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
000040e0 25 2c 69 6e 64 25 29 0d 0f 1e 51 70 75 65 72 74 |%,ind%)...Qpuert|
000040f0 6f 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |o% =.countrymenu|
00004100 28 22 50 55 45 52 54 4f 22 2c 25 31 31 31 31 31 |("PUERTO",%11111|
00004110 30 29 20 20 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 |0) : .menu_atta|
00004120 63 68 73 75 62 28 31 2c 61 6d 75 73 25 2c 30 2c |chsub(1,amus%,0,|
00004130 70 75 65 72 74 6f 25 29 0d 0f 28 51 75 73 76 69 |puerto%)..(Qusvi|
00004140 72 67 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |rg% =.countrymen|
00004150 75 28 22 55 53 56 49 52 47 49 4e 22 2c 25 31 31 |u("USVIRGIN",%11|
00004160 31 31 31 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 |1110): .menu_att|
00004170 61 63 68 73 75 62 28 31 2c 61 6d 75 73 25 2c 31 |achsub(1,amus%,1|
00004180 2c 75 73 76 69 72 67 25 29 0d 0f 32 1d f2 6d 65 |,usvirg%)..2..me|
00004190 6e 75 5f 73 65 74 77 69 64 74 68 28 61 6d 75 73 |nu_setwidth(amus|
000041a0 25 2c 33 32 30 29 0d 0f 3c 04 0d 0f 46 0a f4 20 |%,320)..<...F.. |
000041b0 41 73 69 61 0d 0f 50 29 61 66 67 25 20 20 20 20 |Asia..P)afg% |
000041c0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 41 |=.countrymenu("A|
000041d0 46 47 22 2c 25 31 31 31 31 31 30 29 20 0d 0f 5a |FG",%111110) ..Z|
000041e0 2e 61 72 6d 25 20 20 20 20 3d a4 63 6f 75 6e 74 |.arm% =.count|
000041f0 72 79 6d 65 6e 75 28 22 41 52 4d 45 4e 49 41 22 |rymenu("ARMENIA"|
00004200 2c 25 31 31 31 31 31 30 29 20 20 0d 0f 64 2f 61 |,%111110) ..d/a|
00004210 7a 65 72 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 |zer% =.country|
00004220 6d 65 6e 75 28 22 41 5a 45 52 22 2c 25 31 31 31 |menu("AZER",%111|
00004230 31 31 30 29 20 20 20 20 20 20 0d 0f 6e 30 62 61 |110) ..n0ba|
00004240 68 72 61 69 6e 25 3d a4 63 6f 75 6e 74 72 79 6d |hrain%=.countrym|
00004250 65 6e 75 28 22 42 41 48 52 41 49 4e 22 2c 25 31 |enu("BAHRAIN",%1|
00004260 31 31 31 31 30 29 20 20 20 20 0d 0f 78 31 62 61 |11110) ..x1ba|
00004270 6e 67 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d |ng% =.countrym|
00004280 65 6e 75 28 22 42 41 4e 47 4c 41 44 45 53 48 22 |enu("BANGLADESH"|
00004290 2c 25 31 31 31 31 31 30 29 20 20 0d 0f 82 30 62 |,%111110) ...0b|
000042a0 68 75 74 61 6e 25 20 3d a4 63 6f 75 6e 74 72 79 |hutan% =.country|
000042b0 6d 65 6e 75 28 22 42 48 55 54 41 4e 22 2c 25 31 |menu("BHUTAN",%1|
000042c0 31 31 31 31 30 29 20 20 20 20 20 0d 0f 8c 32 62 |11110) ...2b|
000042d0 72 75 6e 65 69 25 20 3d a4 63 6f 75 6e 74 72 79 |runei% =.country|
000042e0 6d 65 6e 75 28 22 42 52 55 4e 45 49 22 2c 25 31 |menu("BRUNEI",%1|
000042f0 31 31 31 31 30 29 20 20 20 20 20 20 20 0d 0f 96 |11110) ...|
00004300 2a 62 75 72 6d 61 25 20 20 3d a4 63 6f 75 6e 74 |*burma% =.count|
00004310 72 79 6d 65 6e 75 28 22 42 55 52 4d 41 22 2c 25 |rymenu("BURMA",%|
00004320 31 31 31 31 31 30 29 0d 0f a0 39 63 61 6d 62 25 |111110)...9camb%|
00004330 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 | =.countrymenu|
00004340 28 22 43 41 4d 42 4f 44 49 41 22 2c 25 31 31 31 |("CAMBODIA",%111|
00004350 31 31 30 29 20 20 20 20 20 20 20 20 20 20 20 20 |110) |
00004360 0d 0f aa 2b 63 68 69 6e 61 25 20 20 3d a4 63 6f |...+china% =.co|
00004370 75 6e 74 72 79 6d 65 6e 75 28 22 43 48 49 4e 41 |untrymenu("CHINA|
00004380 22 2c 25 31 31 31 31 31 30 29 20 0d 0f b4 2f 63 |",%111110) .../c|
00004390 79 70 72 75 73 25 20 3d a4 63 6f 75 6e 74 72 79 |yprus% =.country|
000043a0 6d 65 6e 75 28 22 43 59 50 52 55 53 22 2c 25 31 |menu("CYPRUS",%1|
000043b0 31 31 31 31 30 29 20 20 20 20 0d 0f be 2c 67 65 |11110) ...,ge|
000043c0 6f 72 67 69 61 25 3d a4 63 6f 75 6e 74 72 79 6d |orgia%=.countrym|
000043d0 65 6e 75 28 22 47 45 4f 52 47 49 41 22 2c 25 31 |enu("GEORGIA",%1|
000043e0 31 31 31 31 30 29 0d 0f c8 2d 69 6e 64 69 61 25 |11110)...-india%|
000043f0 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
00004400 22 49 4e 44 49 41 22 2c 25 31 31 31 31 31 30 29 |"INDIA",%111110)|
00004410 20 20 20 0d 0f d2 2a 69 6e 64 6f 25 20 20 20 3d | ...*indo% =|
00004420 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 49 4e |.countrymenu("IN|
00004430 44 4f 22 2c 25 31 31 31 31 31 30 29 20 0d 0f dc |DO",%111110) ...|
00004440 29 69 72 61 6e 25 20 20 20 3d a4 63 6f 75 6e 74 |)iran% =.count|
00004450 72 79 6d 65 6e 75 28 22 49 52 41 4e 22 2c 25 31 |rymenu("IRAN",%1|
00004460 31 31 31 31 30 29 0d 0f e6 29 69 72 61 71 25 20 |11110)...)iraq% |
00004470 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
00004480 22 49 52 41 51 22 2c 25 31 31 31 31 31 30 29 0d |"IRAQ",%111110).|
00004490 0f f0 04 0d 0f fa 2b 69 73 72 61 65 6c 25 20 3d |......+israel% =|
000044a0 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 49 53 |.countrymenu("IS|
000044b0 52 41 45 4c 22 2c 25 31 31 31 31 31 30 29 0d 10 |RAEL",%111110)..|
000044c0 04 73 74 65 6c 31 25 20 3d a4 6d 65 6e 75 5f 6d |.stel1% =.menu_m|
000044d0 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 |ake(.wimp_getmes|
000044e0 73 61 67 65 28 22 49 53 52 41 45 4c 35 22 2c 62 |sage("ISRAEL5",b|
000044f0 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 |%,menufile%),mns|
00004500 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d |%,mne%,ind%): .m|
00004510 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c |enu_attachsub(0,|
00004520 62 69 67 63 69 74 25 2c 30 2c 74 65 6c 31 25 29 |bigcit%,0,tel1%)|
00004530 20 0d 10 0e 70 74 65 6c 32 25 20 3d a4 6d 65 6e | ...ptel2% =.men|
00004540 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 |u_make(.wimp_get|
00004550 6d 65 73 73 61 67 65 28 22 49 53 52 41 45 4c 36 |message("ISRAEL6|
00004560 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c |",b%,menufile%),|
00004570 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a |mns%,mne%,ind%):|
00004580 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 | .menu_attachsub|
00004590 28 30 2c 74 65 6c 31 25 2c 30 2c 74 65 6c 32 25 |(0,tel1%,0,tel2%|
000045a0 29 0d 10 18 70 74 65 6c 33 25 20 3d a4 6d 65 6e |)...ptel3% =.men|
000045b0 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 |u_make(.wimp_get|
000045c0 6d 65 73 73 61 67 65 28 22 49 53 52 41 45 4c 37 |message("ISRAEL7|
000045d0 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c |",b%,menufile%),|
000045e0 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a |mns%,mne%,ind%):|
000045f0 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 | .menu_attachsub|
00004600 28 30 2c 74 65 6c 31 25 2c 31 2c 74 65 6c 33 25 |(0,tel1%,1,tel3%|
00004610 29 0d 10 22 78 74 65 6c 34 25 20 3d a4 6d 65 6e |).."xtel4% =.men|
00004620 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 |u_make(.wimp_get|
00004630 6d 65 73 73 61 67 65 28 22 49 53 52 41 45 4c 38 |message("ISRAEL8|
00004640 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c |",b%,menufile%),|
00004650 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a |mns%,mne%,ind%):|
00004660 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 | .menu_attachsub|
00004670 28 30 2c 74 65 6c 31 25 2c 33 2c 74 65 6c 34 25 |(0,tel1%,3,tel4%|
00004680 29 20 20 20 20 20 20 20 20 0d 10 2c 71 74 65 6c |) ..,qtel|
00004690 35 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 |5% =.menu_make(.|
000046a0 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 |wimp_getmessage(|
000046b0 22 49 53 52 41 45 4c 39 22 2c 62 25 2c 6d 65 6e |"ISRAEL9",b%,men|
000046c0 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
000046d0 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 5f 61 |%,ind%): .menu_a|
000046e0 74 74 61 63 68 73 75 62 28 30 2c 74 65 6c 31 25 |ttachsub(0,tel1%|
000046f0 2c 34 2c 74 65 6c 35 25 29 20 0d 10 36 72 74 65 |,4,tel5%) ..6rte|
00004700 6c 36 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 |l6% =.menu_make(|
00004710 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 |.wimp_getmessage|
00004720 28 22 49 53 52 41 45 4c 31 30 22 2c 62 25 2c 6d |("ISRAEL10",b%,m|
00004730 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d |enufile%),mns%,m|
00004740 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 6e 75 |ne%,ind%): .menu|
00004750 5f 61 74 74 61 63 68 73 75 62 28 30 2c 74 65 6c |_attachsub(0,tel|
00004760 31 25 2c 35 2c 74 65 6c 36 25 29 20 0d 10 40 72 |1%,5,tel6%) ..@r|
00004770 74 65 6c 37 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b |tel7% =.menu_mak|
00004780 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 |e(.wimp_getmessa|
00004790 67 65 28 22 49 53 52 41 45 4c 31 31 22 2c 62 25 |ge("ISRAEL11",b%|
000047a0 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 |,menufile%),mns%|
000047b0 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 f2 6d 65 |,mne%,ind%): .me|
000047c0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c 74 |nu_attachsub(0,t|
000047d0 65 6c 31 25 2c 36 2c 74 65 6c 37 25 29 20 0d 10 |el1%,6,tel7%) ..|
000047e0 4a 04 0d 10 54 30 6a 61 70 61 6e 25 20 20 3d a4 |J...T0japan% =.|
000047f0 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4a 41 50 |countrymenu("JAP|
00004800 41 4e 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 |AN",%111110) |
00004810 20 20 0d 10 5e 33 6a 6f 72 64 61 6e 25 20 3d a4 | ..^3jordan% =.|
00004820 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4a 4f 52 |countrymenu("JOR|
00004830 44 41 4e 22 2c 25 31 31 31 31 31 30 29 20 20 20 |DAN",%111110) |
00004840 20 20 20 20 20 0d 10 68 2d 6b 61 7a 61 6b 68 25 | ..h-kazakh%|
00004850 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00004860 4b 41 5a 41 4b 48 22 2c 25 31 31 31 31 31 30 29 |KAZAKH",%111110)|
00004870 20 20 0d 10 72 31 6b 69 72 67 68 69 7a 25 3d a4 | ..r1kirghiz%=.|
00004880 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4b 49 52 |countrymenu("KIR|
00004890 47 48 49 5a 22 2c 25 31 31 31 31 31 30 29 20 20 |GHIZ",%111110) |
000048a0 20 20 20 0d 10 7c 2c 6b 6f 72 65 61 6e 25 20 3d | ..|,korean% =|
000048b0 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4b 4f |.countrymenu("KO|
000048c0 52 45 41 4e 22 2c 25 31 31 31 31 31 30 29 20 0d |REAN",%111110) .|
000048d0 10 86 2f 6b 6f 72 65 61 73 25 20 3d a4 63 6f 75 |../koreas% =.cou|
000048e0 6e 74 72 79 6d 65 6e 75 28 22 4b 4f 52 45 41 53 |ntrymenu("KOREAS|
000048f0 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 0d 10 |",%111110) ..|
00004900 90 30 6b 75 77 61 69 74 25 20 3d a4 63 6f 75 6e |.0kuwait% =.coun|
00004910 74 72 79 6d 65 6e 75 28 22 4b 55 57 41 49 54 22 |trymenu("KUWAIT"|
00004920 2c 25 31 31 31 31 31 30 29 20 20 20 20 20 0d 10 |,%111110) ..|
00004930 9a 2a 6c 61 6f 73 25 20 20 20 3d a4 63 6f 75 6e |.*laos% =.coun|
00004940 74 72 79 6d 65 6e 75 28 22 4c 41 4f 53 22 2c 25 |trymenu("LAOS",%|
00004950 31 31 31 31 31 30 29 20 0d 10 a4 30 6c 65 62 61 |111110) ...0leba|
00004960 6e 6f 6e 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |non%=.countrymen|
00004970 75 28 22 4c 45 42 41 4e 4f 4e 22 2c 25 31 31 31 |u("LEBANON",%111|
00004980 31 31 30 29 20 20 20 20 0d 10 ae 2c 6d 61 6c 61 |110) ...,mala|
00004990 79 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |y% =.countrymen|
000049a0 75 28 22 4d 41 4c 41 59 22 2c 25 31 31 31 31 31 |u("MALAY",%11111|
000049b0 30 29 20 20 0d 10 b8 30 6d 61 6c 64 69 76 65 25 |0) ...0maldive%|
000049c0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4d |=.countrymenu("M|
000049d0 41 4c 44 49 56 45 22 2c 25 31 31 31 31 31 30 29 |ALDIVE",%111110)|
000049e0 20 20 20 20 0d 10 c2 2e 6d 6f 6e 67 6f 6c 25 20 | ....mongol% |
000049f0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4d |=.countrymenu("M|
00004a00 4f 4e 47 4f 4c 22 2c 25 31 31 31 31 31 30 29 20 |ONGOL",%111110) |
00004a10 20 20 0d 10 cc 2f 6e 65 70 61 6c 25 20 20 3d a4 | .../nepal% =.|
00004a20 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4e 45 50 |countrymenu("NEP|
00004a30 41 4c 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 |AL",%111110) |
00004a40 20 0d 10 d6 2f 6f 6d 61 6e 25 20 20 20 3d a4 63 | .../oman% =.c|
00004a50 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4f 4d 41 4e |ountrymenu("OMAN|
00004a60 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 20 20 |",%111110) |
00004a70 0d 10 e0 2f 70 61 6b 25 20 20 20 20 3d a4 63 6f |.../pak% =.co|
00004a80 75 6e 74 72 79 6d 65 6e 75 28 22 50 41 4b 22 2c |untrymenu("PAK",|
00004a90 25 31 31 31 31 31 30 29 20 20 20 20 20 20 20 0d |%111110) .|
00004aa0 10 ea 29 70 68 69 6c 25 20 20 20 3d a4 63 6f 75 |..)phil% =.cou|
00004ab0 6e 74 72 79 6d 65 6e 75 28 22 50 48 49 4c 22 2c |ntrymenu("PHIL",|
00004ac0 25 31 31 31 31 31 30 29 0d 10 f4 33 71 61 74 61 |%111110)...3qata|
00004ad0 72 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |r% =.countrymen|
00004ae0 75 28 22 51 41 54 41 52 22 2c 25 31 31 31 31 31 |u("QATAR",%11111|
00004af0 30 29 20 20 20 20 20 20 20 20 20 0d 10 fe 30 73 |0) ...0s|
00004b00 61 75 64 69 25 20 20 3d a4 63 6f 75 6e 74 72 79 |audi% =.country|
00004b10 6d 65 6e 75 28 22 53 41 55 44 49 22 2c 25 31 31 |menu("SAUDI",%11|
00004b20 31 31 31 30 29 20 20 20 20 20 20 0d 11 08 2d 73 |1110) ...-s|
00004b30 69 6e 67 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 |ing% =.country|
00004b40 6d 65 6e 75 28 22 53 49 4e 47 22 2c 25 31 31 31 |menu("SING",%111|
00004b50 31 31 30 29 20 20 20 20 0d 11 12 29 73 72 69 25 |110) ...)sri%|
00004b60 20 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e | =.countrymen|
00004b70 75 28 22 53 52 49 22 2c 25 31 31 31 31 31 30 29 |u("SRI",%111110)|
00004b80 20 0d 11 1c 2d 73 79 72 69 61 25 20 20 3d a4 63 | ...-syria% =.c|
00004b90 6f 75 6e 74 72 79 6d 65 6e 75 28 22 53 59 52 49 |ountrymenu("SYRI|
00004ba0 41 22 2c 25 31 31 31 31 31 30 29 20 20 20 0d 11 |A",%111110) ..|
00004bb0 26 33 74 61 69 77 61 6e 25 20 3d a4 63 6f 75 6e |&3taiwan% =.coun|
00004bc0 74 72 79 6d 65 6e 75 28 22 54 41 49 57 41 4e 22 |trymenu("TAIWAN"|
00004bd0 2c 25 31 31 31 31 31 30 29 20 20 20 20 20 20 20 |,%111110) |
00004be0 20 0d 11 30 31 74 61 6a 69 6b 25 20 20 3d a4 63 | ..01tajik% =.c|
00004bf0 6f 75 6e 74 72 79 6d 65 6e 75 28 22 54 41 4a 49 |ountrymenu("TAJI|
00004c00 4b 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 20 |K",%111110) |
00004c10 20 20 0d 11 3a 2d 74 68 61 69 25 20 20 20 3d a4 | ..:-thai% =.|
00004c20 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 54 48 41 |countrymenu("THA|
00004c30 49 4c 41 4e 44 22 2c 25 31 31 31 31 31 30 29 0d |ILAND",%111110).|
00004c40 11 44 2c 74 75 72 6b 25 20 20 20 3d a4 63 6f 75 |.D,turk% =.cou|
00004c50 6e 74 72 79 6d 65 6e 75 28 22 54 55 52 4b 45 59 |ntrymenu("TURKEY|
00004c60 22 2c 25 31 31 31 31 31 30 29 20 0d 11 4e 2c 74 |",%111110) ..N,t|
00004c70 75 72 6b 6d 65 6e 25 3d a4 63 6f 75 6e 74 72 79 |urkmen%=.country|
00004c80 6d 65 6e 75 28 22 54 55 52 4b 4d 45 4e 22 2c 25 |menu("TURKMEN",%|
00004c90 31 31 31 31 31 30 29 0d 11 58 28 75 61 65 25 20 |111110)..X(uae% |
00004ca0 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 | =.countrymenu|
00004cb0 28 22 55 41 45 22 2c 25 31 31 31 31 31 30 29 0d |("UAE",%111110).|
00004cc0 11 62 2a 75 7a 62 65 6b 25 20 20 3d a4 63 6f 75 |.b*uzbek% =.cou|
00004cd0 6e 74 72 79 6d 65 6e 75 28 22 55 5a 42 45 4b 22 |ntrymenu("UZBEK"|
00004ce0 2c 25 31 31 31 31 31 30 29 0d 11 6c 2c 76 69 65 |,%111110)..l,vie|
00004cf0 74 6e 61 6d 25 3d a4 63 6f 75 6e 74 72 79 6d 65 |tnam%=.countryme|
00004d00 6e 75 28 22 56 49 45 54 4e 41 4d 22 2c 25 31 31 |nu("VIETNAM",%11|
00004d10 31 31 31 30 29 0d 11 76 2a 79 65 6d 65 6e 25 20 |1110)..v*yemen% |
00004d20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00004d30 59 45 4d 45 4e 22 2c 25 31 31 31 31 31 30 29 0d |YEMEN",%111110).|
00004d40 11 80 04 0d 11 8a 52 61 73 75 73 25 20 20 20 3d |......Rasus% =|
00004d50 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
00004d60 5f 67 65 74 6d 65 73 73 61 67 65 28 22 41 53 41 |_getmessage("ASA|
00004d70 55 53 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 |USTERR",b%,menuf|
00004d80 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00004d90 69 6e 64 25 29 0d 11 94 4d 63 68 72 69 73 25 20 |ind%)...Mchris% |
00004da0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00004db0 43 48 52 49 53 22 2c 25 31 31 31 31 30 30 29 3a |CHRIS",%111100):|
00004dc0 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 | .menu_attachsub|
00004dd0 28 31 2c 61 73 75 73 25 2c 30 2c 63 68 72 69 73 |(1,asus%,0,chris|
00004de0 25 29 0d 11 9e 4d 63 6f 63 6f 73 25 20 20 3d a4 |%)...Mcocos% =.|
00004df0 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 43 4f 43 |countrymenu("COC|
00004e00 4f 53 22 2c 25 31 31 31 31 30 30 29 3a 20 f2 6d |OS",%111100): .m|
00004e10 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00004e20 61 73 75 73 25 2c 31 2c 63 6f 63 6f 73 25 29 0d |asus%,1,cocos%).|
00004e30 11 a8 1d f2 6d 65 6e 75 5f 73 65 74 77 69 64 74 |....menu_setwidt|
00004e40 68 28 61 73 75 73 25 2c 32 30 30 29 0d 11 b2 04 |h(asus%,200)....|
00004e50 0d 11 bc 54 61 73 62 72 25 20 20 20 3d a4 6d 65 |...Tasbr% =.me|
00004e60 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 |nu_make(.wimp_ge|
00004e70 74 6d 65 73 73 61 67 65 28 22 41 53 42 52 49 54 |tmessage("ASBRIT|
00004e80 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 69 6c |TERR",b%,menufil|
00004e90 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e |e%),mns%,mne%,in|
00004ea0 64 25 29 20 0d 11 c6 51 62 72 72 69 6e 64 25 20 |d%) ...Qbrrind% |
00004eb0 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 42 |=.countrymenu("B|
00004ec0 52 49 4e 44 4f 43 22 2c 25 31 31 31 30 30 30 29 |RINDOC",%111000)|
00004ed0 20 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 | : .menu_attachs|
00004ee0 75 62 28 31 2c 61 73 62 72 25 2c 30 2c 62 72 72 |ub(1,asbr%,0,brr|
00004ef0 69 6e 64 25 29 0d 11 d0 50 68 6f 6e 67 6b 25 20 |ind%)...Phongk% |
00004f00 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00004f10 48 4f 4e 47 4b 4f 4e 47 22 2c 25 31 31 31 31 31 |HONGKONG",%11111|
00004f20 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |0): .menu_attach|
00004f30 73 75 62 28 31 2c 61 73 62 72 25 2c 31 2c 68 6f |sub(1,asbr%,1,ho|
00004f40 6e 67 6b 25 29 0d 11 da 1d f2 6d 65 6e 75 5f 73 |ngk%).....menu_s|
00004f50 65 74 77 69 64 74 68 28 61 73 62 72 25 2c 33 34 |etwidth(asbr%,34|
00004f60 30 29 0d 11 e4 04 0d 11 ee 55 61 73 70 6f 72 74 |0).......Uasport|
00004f70 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 |% =.menu_make(.w|
00004f80 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 28 22 |imp_getmessage("|
00004f90 41 53 50 4f 52 54 54 45 52 52 22 2c 62 25 2c 6d |ASPORTTERR",b%,m|
00004fa0 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d |enufile%),mns%,m|
00004fb0 6e 65 25 2c 69 6e 64 25 29 20 20 0d 11 f8 4f 6d |ne%,ind%) ...Om|
00004fc0 61 63 61 75 25 20 20 3d a4 63 6f 75 6e 74 72 79 |acau% =.country|
00004fd0 6d 65 6e 75 28 22 4d 41 43 41 55 22 2c 25 31 31 |menu("MACAU",%11|
00004fe0 31 31 31 30 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 |1110): .menu_att|
00004ff0 61 63 68 73 75 62 28 31 2c 61 73 70 6f 72 74 25 |achsub(1,asport%|
00005000 2c 30 2c 6d 61 63 61 75 25 29 0d 12 02 04 0d 12 |,0,macau%)......|
00005010 0c 0c f4 20 45 75 72 6f 70 65 0d 12 16 2f 61 6c |... Europe.../al|
00005020 62 61 6e 69 61 25 3d a4 63 6f 75 6e 74 72 79 6d |bania%=.countrym|
00005030 65 6e 75 28 22 41 4c 42 41 4e 49 41 22 2c 25 31 |enu("ALBANIA",%1|
00005040 31 31 31 31 30 29 20 20 20 0d 12 20 31 61 6e 64 |11110) .. 1and|
00005050 6f 72 72 61 25 3d a4 63 6f 75 6e 74 72 79 6d 65 |orra%=.countryme|
00005060 6e 75 28 22 41 4e 44 4f 52 52 41 22 2c 25 31 31 |nu("ANDORRA",%11|
00005070 31 31 31 30 29 20 20 20 20 20 0d 12 2a 2f 61 75 |1110) ..*/au|
00005080 73 74 72 69 61 25 3d a4 63 6f 75 6e 74 72 79 6d |stria%=.countrym|
00005090 65 6e 75 28 22 41 55 53 54 52 49 41 22 2c 25 31 |enu("AUSTRIA",%1|
000050a0 31 31 31 31 30 29 20 20 20 0d 12 34 2c 62 65 6c |11110) ..4,bel|
000050b0 67 69 75 6d 25 3d a4 63 6f 75 6e 74 72 79 6d 65 |gium%=.countryme|
000050c0 6e 75 28 22 42 45 4c 47 49 55 4d 22 2c 25 31 31 |nu("BELGIUM",%11|
000050d0 31 31 31 30 29 0d 12 3e 2d 62 65 6c 6f 25 20 20 |1110)..>-belo% |
000050e0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
000050f0 42 45 4c 4f 22 2c 25 31 31 31 31 31 30 29 20 20 |BELO",%111110) |
00005100 20 20 0d 12 48 2f 62 6f 73 6e 69 61 25 20 3d a4 | ..H/bosnia% =.|
00005110 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 42 4f 53 |countrymenu("BOS|
00005120 4e 49 41 22 2c 25 31 31 31 31 31 30 29 20 20 20 |NIA",%111110) |
00005130 20 0d 12 52 34 62 75 6c 67 61 72 25 20 3d a4 63 | ..R4bulgar% =.c|
00005140 6f 75 6e 74 72 79 6d 65 6e 75 28 22 42 55 4c 47 |ountrymenu("BULG|
00005150 41 52 49 41 22 2c 25 31 31 31 31 31 30 29 20 20 |ARIA",%111110) |
00005160 20 20 20 20 20 0d 12 5c 2c 63 72 6f 61 74 69 61 | ..\,croatia|
00005170 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
00005180 43 52 4f 41 54 49 41 22 2c 25 31 31 31 31 31 30 |CROATIA",%111110|
00005190 29 0d 12 66 32 63 7a 65 63 68 6f 25 20 3d a4 63 |)..f2czecho% =.c|
000051a0 6f 75 6e 74 72 79 6d 65 6e 75 28 22 43 5a 45 43 |ountrymenu("CZEC|
000051b0 48 4f 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 |HO",%111110) |
000051c0 20 20 20 0d 12 70 2c 64 65 6e 6d 61 72 6b 25 3d | ..p,denmark%=|
000051d0 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 44 45 |.countrymenu("DE|
000051e0 4e 4d 41 52 4b 22 2c 25 31 31 31 31 31 30 29 0d |NMARK",%111110).|
000051f0 12 7a 2f 65 73 74 6f 6e 69 61 25 3d a4 63 6f 75 |.z/estonia%=.cou|
00005200 6e 74 72 79 6d 65 6e 75 28 22 45 53 54 4f 4e 49 |ntrymenu("ESTONI|
00005210 41 22 2c 25 31 31 31 31 31 30 29 20 20 20 0d 12 |A",%111110) ..|
00005220 84 32 66 69 6e 6c 61 6e 64 25 3d a4 63 6f 75 6e |.2finland%=.coun|
00005230 74 72 79 6d 65 6e 75 28 22 46 49 4e 4c 41 4e 44 |trymenu("FINLAND|
00005240 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 20 20 |",%111110) |
00005250 0d 12 8e 2f 66 72 61 6e 63 65 25 20 3d a4 63 6f |.../france% =.co|
00005260 75 6e 74 72 79 6d 65 6e 75 28 22 46 52 41 4e 43 |untrymenu("FRANC|
00005270 45 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 0d |E",%111110) .|
00005280 12 98 2c 67 65 72 6d 61 6e 79 25 3d a4 63 6f 75 |..,germany%=.cou|
00005290 6e 74 72 79 6d 65 6e 75 28 22 47 45 52 4d 41 4e |ntrymenu("GERMAN|
000052a0 59 22 2c 25 31 31 31 31 31 30 29 0d 12 a2 2f 67 |Y",%111110).../g|
000052b0 72 65 65 63 65 25 20 3d a4 63 6f 75 6e 74 72 79 |reece% =.country|
000052c0 6d 65 6e 75 28 22 47 52 45 45 43 45 22 2c 25 31 |menu("GREECE",%1|
000052d0 31 31 31 31 30 29 20 20 20 20 0d 12 ac 2c 68 75 |11110) ...,hu|
000052e0 6e 67 61 72 79 25 3d a4 63 6f 75 6e 74 72 79 6d |ngary%=.countrym|
000052f0 65 6e 75 28 22 48 55 4e 47 41 52 59 22 2c 25 31 |enu("HUNGARY",%1|
00005300 31 31 31 31 30 29 0d 12 b6 2c 69 63 65 6c 61 6e |11110)...,icelan|
00005310 64 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |d%=.countrymenu(|
00005320 22 49 43 45 4c 41 4e 44 22 2c 25 31 31 31 31 31 |"ICELAND",%11111|
00005330 30 29 0d 12 c0 2c 69 72 65 6c 61 6e 64 25 3d a4 |0)...,ireland%=.|
00005340 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 49 52 45 |countrymenu("IRE|
00005350 4c 41 4e 44 22 2c 25 31 31 31 31 31 30 29 0d 12 |LAND",%111110)..|
00005360 ca 2a 69 74 61 6c 79 25 20 20 3d a4 63 6f 75 6e |.*italy% =.coun|
00005370 74 72 79 6d 65 6e 75 28 22 49 54 41 4c 59 22 2c |trymenu("ITALY",|
00005380 25 31 31 31 31 31 30 29 0d 12 d4 2d 6c 61 74 76 |%111110)...-latv|
00005390 69 61 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |ia% =.countrymen|
000053a0 75 28 22 4c 41 54 56 49 41 22 2c 25 31 31 31 31 |u("LATVIA",%1111|
000053b0 31 30 29 20 20 0d 12 de 2c 6c 69 65 63 68 74 25 |10) ...,liecht%|
000053c0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
000053d0 4c 49 45 43 48 54 22 2c 25 31 31 31 31 31 30 29 |LIECHT",%111110)|
000053e0 20 0d 12 e8 31 6c 69 74 68 25 20 20 20 3d a4 63 | ...1lith% =.c|
000053f0 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4c 49 54 48 |ountrymenu("LITH|
00005400 55 41 4e 49 41 22 2c 25 31 31 31 31 31 30 29 20 |UANIA",%111110) |
00005410 20 20 0d 12 f2 29 6c 75 78 25 20 20 20 20 3d a4 | ...)lux% =.|
00005420 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4c 55 58 |countrymenu("LUX|
00005430 22 2c 25 31 31 31 31 31 30 29 20 0d 12 fc 30 6d |",%111110) ...0m|
00005440 61 63 65 64 6f 6e 25 3d a4 63 6f 75 6e 74 72 79 |acedon%=.country|
00005450 6d 65 6e 75 28 22 4d 41 43 45 44 4f 4e 49 41 22 |menu("MACEDONIA"|
00005460 2c 25 31 31 31 31 31 30 29 20 20 0d 13 06 2e 6d |,%111110) ....m|
00005470 61 6c 74 61 25 20 20 3d a4 63 6f 75 6e 74 72 79 |alta% =.country|
00005480 6d 65 6e 75 28 22 4d 41 4c 54 41 22 2c 25 31 31 |menu("MALTA",%11|
00005490 31 31 31 30 29 20 20 20 20 0d 13 10 2e 6d 6f 6c |1110) ....mol|
000054a0 64 61 76 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |dav% =.countryme|
000054b0 6e 75 28 22 4d 4f 4c 44 41 56 49 41 22 2c 25 31 |nu("MOLDAVIA",%1|
000054c0 31 31 31 31 30 29 20 0d 13 1a 2d 6d 6f 6e 61 63 |11110) ...-monac|
000054d0 6f 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |o% =.countrymenu|
000054e0 28 22 4d 4f 4e 41 43 4f 22 2c 25 31 31 31 31 31 |("MONACO",%11111|
000054f0 30 29 20 20 0d 13 24 2c 68 6f 6c 6c 61 6e 64 25 |0) ..$,holland%|
00005500 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 48 |=.countrymenu("H|
00005510 4f 4c 4c 41 4e 44 22 2c 25 31 31 31 31 31 30 29 |OLLAND",%111110)|
00005520 0d 13 2e 2b 6e 6f 72 77 61 79 25 20 3d a4 63 6f |...+norway% =.co|
00005530 75 6e 74 72 79 6d 65 6e 75 28 22 4e 4f 52 57 41 |untrymenu("NORWA|
00005540 59 22 2c 25 31 31 31 31 31 30 29 0d 13 38 2b 70 |Y",%111110)..8+p|
00005550 6f 6c 61 6e 64 25 20 3d a4 63 6f 75 6e 74 72 79 |oland% =.country|
00005560 6d 65 6e 75 28 22 50 4f 4c 41 4e 44 22 2c 25 31 |menu("POLAND",%1|
00005570 31 31 31 31 30 29 0d 13 42 2d 70 6f 72 74 25 20 |11110)..B-port% |
00005580 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
00005590 22 50 4f 52 54 55 47 41 4c 22 2c 25 31 31 31 31 |"PORTUGAL",%1111|
000055a0 31 30 29 0d 13 4c 2c 72 6f 6d 61 6e 69 61 25 3d |10)..L,romania%=|
000055b0 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 52 4f |.countrymenu("RO|
000055c0 4d 41 4e 49 41 22 2c 25 31 31 31 31 31 30 29 0d |MANIA",%111110).|
000055d0 13 56 2b 72 75 73 73 69 61 25 20 3d a4 63 6f 75 |.V+russia% =.cou|
000055e0 6e 74 72 79 6d 65 6e 75 28 22 52 55 53 53 49 41 |ntrymenu("RUSSIA|
000055f0 22 2c 25 31 31 31 31 31 30 29 0d 13 60 2c 73 61 |",%111110)..`,sa|
00005600 6e 6d 61 72 25 20 3d a4 63 6f 75 6e 74 72 79 6d |nmar% =.countrym|
00005610 65 6e 75 28 22 53 41 4e 4d 41 52 22 2c 25 31 31 |enu("SANMAR",%11|
00005620 31 31 31 30 29 20 0d 13 6a 30 73 6c 6f 76 61 6b |1110) ..j0slovak|
00005630 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |% =.countrymenu(|
00005640 22 53 4c 4f 56 41 4b 49 41 22 2c 25 31 31 31 31 |"SLOVAKIA",%1111|
00005650 31 30 29 20 20 20 0d 13 74 2d 73 6c 6f 76 65 6e |10) ..t-sloven|
00005660 65 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |e%=.countrymenu(|
00005670 22 53 4c 4f 56 45 4e 49 41 22 2c 25 31 31 31 31 |"SLOVENIA",%1111|
00005680 31 30 29 0d 13 7e 2c 73 70 61 69 6e 25 20 20 3d |10)..~,spain% =|
00005690 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 53 50 |.countrymenu("SP|
000056a0 41 49 4e 22 2c 25 31 31 31 31 31 30 29 20 20 0d |AIN",%111110) .|
000056b0 13 88 2d 73 77 65 64 65 6e 25 20 3d a4 63 6f 75 |..-sweden% =.cou|
000056c0 6e 74 72 79 6d 65 6e 75 28 22 53 57 45 44 45 4e |ntrymenu("SWEDEN|
000056d0 22 2c 25 31 31 31 31 31 30 29 20 20 0d 13 92 2f |",%111110) .../|
000056e0 73 77 69 74 7a 25 20 20 3d a4 63 6f 75 6e 74 72 |switz% =.countr|
000056f0 79 6d 65 6e 75 28 22 53 57 49 54 5a 22 2c 25 31 |ymenu("SWITZ",%1|
00005700 31 31 31 31 30 29 20 20 20 20 20 0d 13 9c 2c 75 |11110) ...,u|
00005710 6b 72 61 69 6e 65 25 3d a4 63 6f 75 6e 74 72 79 |kraine%=.country|
00005720 6d 65 6e 75 28 22 55 4b 52 41 49 4e 45 22 2c 25 |menu("UKRAINE",%|
00005730 31 31 31 31 31 30 29 0d 13 a6 2a 75 6b 25 20 20 |111110)...*uk% |
00005740 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 | =.countrymenu|
00005750 28 22 55 4b 22 2c 25 31 31 31 31 31 30 29 20 20 |("UK",%111110) |
00005760 20 0d 13 b0 2d 76 61 74 69 63 61 6e 25 3d a4 63 | ...-vatican%=.c|
00005770 6f 75 6e 74 72 79 6d 65 6e 75 28 22 56 41 54 49 |ountrymenu("VATI|
00005780 43 41 4e 22 2c 25 31 31 31 31 31 30 29 20 0d 13 |CAN",%111110) ..|
00005790 ba 2f 79 75 67 25 20 20 20 20 3d a4 63 6f 75 6e |./yug% =.coun|
000057a0 74 72 79 6d 65 6e 75 28 22 59 55 47 22 2c 25 31 |trymenu("YUG",%1|
000057b0 31 31 31 31 30 29 20 20 20 20 20 20 20 0d 13 c4 |11110) ...|
000057c0 04 0d 13 ce 54 65 75 72 62 72 69 74 25 3d a4 6d |....Teurbrit%=.m|
000057d0 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 |enu_make(.wimp_g|
000057e0 65 74 6d 65 73 73 61 67 65 28 22 45 55 52 42 52 |etmessage("EURBR|
000057f0 49 54 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 |ITTERR",b%,menuf|
00005800 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
00005810 69 6e 64 25 29 0d 13 d8 51 67 69 62 25 20 20 20 |ind%)...Qgib% |
00005820 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00005830 47 49 42 22 2c 25 31 31 31 31 31 30 29 3a f2 6d |GIB",%111110):.m|
00005840 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00005850 65 75 72 62 72 69 74 25 2c 30 2c 67 69 62 25 29 |eurbrit%,0,gib%)|
00005860 20 20 20 20 20 20 0d 13 e2 20 f2 6d 65 6e 75 5f | ... .menu_|
00005870 73 65 74 77 69 64 74 68 28 65 75 72 62 72 69 74 |setwidth(eurbrit|
00005880 25 2c 32 35 30 29 0d 13 ec 04 0d 13 f6 54 65 75 |%,250).......Teu|
00005890 72 64 61 6e 25 20 3d a4 6d 65 6e 75 5f 6d 61 6b |rdan% =.menu_mak|
000058a0 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 |e(.wimp_getmessa|
000058b0 67 65 28 22 45 55 52 44 41 4e 54 45 52 52 22 2c |ge("EURDANTERR",|
000058c0 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e |b%,menufile%),mn|
000058d0 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 20 0d 14 |s%,mne%,ind%) ..|
000058e0 00 51 66 61 72 6f 65 25 20 20 3d a4 63 6f 75 6e |.Qfaroe% =.coun|
000058f0 74 72 79 6d 65 6e 75 28 22 46 41 52 4f 45 22 2c |trymenu("FAROE",|
00005900 25 31 31 31 31 31 30 29 3a f2 6d 65 6e 75 5f 61 |%111110):.menu_a|
00005910 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 64 61 |ttachsub(1,eurda|
00005920 6e 25 2c 30 2c 66 61 72 6f 65 25 29 20 20 20 0d |n%,0,faroe%) .|
00005930 14 0a 1f f2 6d 65 6e 75 5f 73 65 74 77 69 64 74 |....menu_setwidt|
00005940 68 28 65 75 72 64 61 6e 25 2c 32 35 30 29 0d 14 |h(eurdan%,250)..|
00005950 14 04 0d 14 1e 58 65 75 72 6e 6f 72 25 20 3d a4 |.....Xeurnor% =.|
00005960 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f |menu_make(.wimp_|
00005970 67 65 74 6d 65 73 73 61 67 65 28 22 45 55 52 4e |getmessage("EURN|
00005980 4f 52 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 |ORTERR",b%,menuf|
00005990 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c |ile%),mns%,mne%,|
000059a0 69 6e 64 25 29 20 20 20 20 20 0d 14 28 4a 6a 61 |ind%) ..(Jja|
000059b0 6e 25 20 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d |n% =.countrym|
000059c0 65 6e 75 28 22 4a 41 4e 22 2c 25 31 31 31 30 30 |enu("JAN",%11100|
000059d0 30 29 3a f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |0):.menu_attachs|
000059e0 75 62 28 31 2c 65 75 72 6e 6f 72 25 2c 30 2c 6a |ub(1,eurnor%,0,j|
000059f0 61 6e 25 29 0d 14 32 4c 73 76 61 6c 25 20 20 20 |an%)..2Lsval% |
00005a00 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 53 |=.countrymenu("S|
00005a10 56 41 4c 22 2c 25 31 31 31 31 30 30 29 3a f2 6d |VAL",%111100):.m|
00005a20 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00005a30 65 75 72 6e 6f 72 25 2c 31 2c 73 76 61 6c 25 29 |eurnor%,1,sval%)|
00005a40 0d 14 3c 1f f2 6d 65 6e 75 5f 73 65 74 77 69 64 |..<..menu_setwid|
00005a50 74 68 28 65 75 72 6e 6f 72 25 2c 32 35 30 29 0d |th(eurnor%,250).|
00005a60 14 46 04 0d 14 50 56 65 75 72 70 6f 72 74 25 3d |.F...PVeurport%=|
00005a70 a4 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 |.menu_make(.wimp|
00005a80 5f 67 65 74 6d 65 73 73 61 67 65 28 22 45 55 52 |_getmessage("EUR|
00005a90 50 4f 52 54 54 45 52 52 22 2c 62 25 2c 6d 65 6e |PORTTERR",b%,men|
00005aa0 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 |ufile%),mns%,mne|
00005ab0 25 2c 69 6e 64 25 29 20 20 0d 14 5a 54 61 7a 6f |%,ind%) ..ZTazo|
00005ac0 72 65 73 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |res% =.countryme|
00005ad0 6e 75 28 22 41 5a 4f 52 45 53 22 2c 25 31 31 31 |nu("AZORES",%111|
00005ae0 31 31 30 29 3a f2 6d 65 6e 75 5f 61 74 74 61 63 |110):.menu_attac|
00005af0 68 73 75 62 28 31 2c 65 75 72 70 6f 72 74 25 2c |hsub(1,eurport%,|
00005b00 30 2c 61 7a 6f 72 65 73 25 29 20 20 20 0d 14 64 |0,azores%) ..d|
00005b10 04 0d 14 6e 0d f4 20 4f 63 65 61 6e 69 61 0d 14 |...n.. Oceania..|
00005b20 78 2c 61 75 73 74 72 61 6c 25 3d a4 63 6f 75 6e |x,austral%=.coun|
00005b30 74 72 79 6d 65 6e 75 28 22 41 55 53 54 52 41 4c |trymenu("AUSTRAL|
00005b40 22 2c 25 31 31 31 31 31 30 29 0d 14 82 2e 66 69 |",%111110)....fi|
00005b50 6a 69 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d |ji% =.countrym|
00005b60 65 6e 75 28 22 46 49 4a 49 22 2c 25 31 31 31 31 |enu("FIJI",%1111|
00005b70 31 30 29 20 20 20 20 20 0d 14 8c 2e 6b 69 72 69 |10) ....kiri|
00005b80 62 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |b% =.countrymen|
00005b90 75 28 22 4b 49 52 49 42 22 2c 25 31 31 31 31 31 |u("KIRIB",%11111|
00005ba0 30 29 20 20 20 20 0d 14 96 2f 6e 61 75 72 75 25 |0) .../nauru%|
00005bb0 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 | =.countrymenu(|
00005bc0 22 4e 41 55 52 55 22 2c 25 31 31 31 31 31 30 29 |"NAURU",%111110)|
00005bd0 20 20 20 20 20 0d 14 a0 2b 6e 7a 25 20 20 20 20 | ...+nz% |
00005be0 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 | =.countrymenu("|
00005bf0 4e 5a 22 2c 25 31 31 31 31 31 30 29 20 20 20 20 |NZ",%111110) |
00005c00 0d 14 aa 2a 70 6e 67 25 20 20 20 20 3d a4 63 6f |...*png% =.co|
00005c10 75 6e 74 72 79 6d 65 6e 75 28 22 50 4e 47 22 2c |untrymenu("PNG",|
00005c20 25 31 31 31 31 31 30 29 20 20 0d 14 b4 2d 73 6f |%111110) ...-so|
00005c30 6c 6f 6d 6f 6e 25 3d a4 63 6f 75 6e 74 72 79 6d |lomon%=.countrym|
00005c40 65 6e 75 28 22 53 4f 4c 4f 4d 4f 4e 22 2c 25 31 |enu("SOLOMON",%1|
00005c50 31 31 31 31 30 29 20 0d 14 be 2f 74 6f 6e 67 61 |11110) .../tonga|
00005c60 25 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |% =.countrymenu|
00005c70 28 22 54 4f 4e 47 41 22 2c 25 31 31 31 31 31 30 |("TONGA",%111110|
00005c80 29 20 20 20 20 20 0d 14 c8 2f 74 75 76 61 6c 75 |) .../tuvalu|
00005c90 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 |% =.countrymenu(|
00005ca0 22 54 55 56 41 4c 55 22 2c 25 31 31 31 31 31 30 |"TUVALU",%111110|
00005cb0 29 20 20 20 20 0d 14 d2 2d 76 61 6e 75 61 74 75 |) ...-vanuatu|
00005cc0 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 |%=.countrymenu("|
00005cd0 56 41 4e 55 41 54 55 22 2c 25 31 31 31 31 31 30 |VANUATU",%111110|
00005ce0 29 20 0d 14 dc 2b 77 73 61 6d 6f 61 25 20 3d a4 |) ...+wsamoa% =.|
00005cf0 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 57 53 41 |countrymenu("WSA|
00005d00 4d 4f 41 22 2c 25 31 31 31 31 31 30 29 0d 14 e6 |MOA",%111110)...|
00005d10 04 0d 14 f0 58 6f 63 61 75 73 25 20 20 3d a4 6d |....Xocaus% =.m|
00005d20 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 |enu_make(.wimp_g|
00005d30 65 74 6d 65 73 73 61 67 65 28 22 4f 43 41 55 53 |etmessage("OCAUS|
00005d40 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 69 6c |TERR",b%,menufil|
00005d50 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e |e%),mns%,mne%,in|
00005d60 64 25 29 20 20 20 20 20 20 0d 14 fa 54 6c 6f 72 |d%) ...Tlor|
00005d70 64 68 6f 77 65 25 3d a4 63 6f 75 6e 74 72 79 6d |dhowe%=.countrym|
00005d80 65 6e 75 28 22 4c 4f 52 44 48 4f 57 45 22 2c 25 |enu("LORDHOWE",%|
00005d90 31 30 30 30 30 30 29 3a f2 6d 65 6e 75 5f 61 74 |100000):.menu_at|
00005da0 74 61 63 68 73 75 62 28 31 2c 6f 63 61 75 73 25 |tachsub(1,ocaus%|
00005db0 2c 30 2c 6c 6f 72 64 68 6f 77 65 25 29 0d 15 04 |,0,lordhowe%)...|
00005dc0 53 6e 6f 72 66 6f 6c 6b 25 3d a4 63 6f 75 6e 74 |Snorfolk%=.count|
00005dd0 72 79 6d 65 6e 75 28 22 4e 4f 52 46 4f 4c 4b 22 |rymenu("NORFOLK"|
00005de0 2c 25 31 31 31 31 30 30 29 20 20 3a f2 6d 65 6e |,%111100) :.men|
00005df0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 |u_attachsub(1,oc|
00005e00 61 75 73 25 2c 31 2c 6e 6f 72 66 6f 6c 6b 25 29 |aus%,1,norfolk%)|
00005e10 0d 15 0e 1e f2 6d 65 6e 75 5f 73 65 74 77 69 64 |.....menu_setwid|
00005e20 74 68 28 6f 63 61 75 73 25 2c 32 38 30 29 0d 15 |th(ocaus%,280)..|
00005e30 18 04 0d 15 22 58 6f 63 62 72 25 20 20 20 3d a4 |...."Xocbr% =.|
00005e40 6d 65 6e 75 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f |menu_make(.wimp_|
00005e50 67 65 74 6d 65 73 73 61 67 65 28 22 4f 43 42 52 |getmessage("OCBR|
00005e60 54 45 52 52 22 2c 62 25 2c 6d 65 6e 75 66 69 6c |TERR",b%,menufil|
00005e70 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e |e%),mns%,mne%,in|
00005e80 64 25 29 20 20 20 20 20 20 20 0d 15 2c 53 70 69 |d%) ..,Spi|
00005e90 74 63 61 69 72 6e 25 3d a4 63 6f 75 6e 74 72 79 |tcairn%=.country|
00005ea0 6d 65 6e 75 28 22 50 49 54 43 41 49 52 4e 22 2c |menu("PITCAIRN",|
00005eb0 25 31 31 31 31 31 30 29 3a f2 6d 65 6e 75 5f 61 |%111110):.menu_a|
00005ec0 74 74 61 63 68 73 75 62 28 31 2c 6f 63 62 72 25 |ttachsub(1,ocbr%|
00005ed0 2c 30 2c 70 69 74 63 61 69 72 6e 25 29 0d 15 36 |,0,pitcairn%)..6|
00005ee0 1d f2 6d 65 6e 75 5f 73 65 74 77 69 64 74 68 28 |..menu_setwidth(|
00005ef0 6f 63 62 72 25 2c 32 38 30 29 0d 15 40 04 0d 15 |ocbr%,280)..@...|
00005f00 4a 5b 6f 63 63 68 25 20 20 20 3d a4 6d 65 6e 75 |J[occh% =.menu|
00005f10 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d |_make(.wimp_getm|
00005f20 65 73 73 61 67 65 28 22 4f 43 43 48 54 45 52 52 |essage("OCCHTERR|
00005f30 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c |",b%,menufile%),|
00005f40 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 20 |mns%,mne%,ind%) |
00005f50 20 20 20 20 20 20 20 20 20 0d 15 54 4e 65 61 73 | ..TNeas|
00005f60 74 65 72 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |ter% =.countryme|
00005f70 6e 75 28 22 45 41 53 54 45 52 22 2c 25 31 30 30 |nu("EASTER",%100|
00005f80 30 30 30 29 3a f2 6d 65 6e 75 5f 61 74 74 61 63 |000):.menu_attac|
00005f90 68 73 75 62 28 31 2c 6f 63 63 68 25 2c 30 2c 65 |hsub(1,occh%,0,e|
00005fa0 61 73 74 65 72 25 29 0d 15 5e 1d f2 6d 65 6e 75 |aster%)..^..menu|
00005fb0 5f 73 65 74 77 69 64 74 68 28 6f 63 63 68 25 2c |_setwidth(occh%,|
00005fc0 32 38 30 29 0d 15 68 04 0d 15 72 5c 6f 63 66 72 |280)..h...r\ocfr|
00005fd0 25 20 20 20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 |% =.menu_make(|
00005fe0 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 |.wimp_getmessage|
00005ff0 28 22 4f 43 46 52 54 45 52 52 22 2c 62 25 2c 6d |("OCFRTERR",b%,m|
00006000 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d |enufile%),mns%,m|
00006010 6e 65 25 2c 69 6e 64 25 29 20 20 20 20 20 20 20 |ne%,ind%) |
00006020 20 20 20 20 0d 15 7c 4d 66 72 70 6f 6c 25 20 20 | ..|Mfrpol% |
00006030 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 22 46 |=.countrymenu("F|
00006040 52 50 4f 4c 22 2c 25 31 31 31 31 31 30 29 20 3a |RPOL",%111110) :|
00006050 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00006060 31 2c 6f 63 66 72 25 2c 30 2c 66 72 70 6f 6c 25 |1,ocfr%,0,frpol%|
00006070 29 0d 15 86 4e 6e 65 77 63 61 6c 25 20 3d a4 63 |)...Nnewcal% =.c|
00006080 6f 75 6e 74 72 79 6d 65 6e 75 28 22 4e 45 57 43 |ountrymenu("NEWC|
00006090 41 4c 22 2c 25 31 31 31 31 31 30 29 3a f2 6d 65 |AL",%111110):.me|
000060a0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f |nu_attachsub(1,o|
000060b0 63 66 72 25 2c 31 2c 6e 65 77 63 61 6c 25 29 0d |cfr%,1,newcal%).|
000060c0 15 90 4e 77 61 6c 6c 69 73 25 20 3d a4 63 6f 75 |..Nwallis% =.cou|
000060d0 6e 74 72 79 6d 65 6e 75 28 22 57 41 4c 4c 49 53 |ntrymenu("WALLIS|
000060e0 22 2c 25 31 31 31 31 31 30 29 3a f2 6d 65 6e 75 |",%111110):.menu|
000060f0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 66 |_attachsub(1,ocf|
00006100 72 25 2c 32 2c 77 61 6c 6c 69 73 25 29 0d 15 9a |r%,2,wallis%)...|
00006110 1d f2 6d 65 6e 75 5f 73 65 74 77 69 64 74 68 28 |..menu_setwidth(|
00006120 6f 63 66 72 25 2c 33 38 30 29 0d 15 a4 04 0d 15 |ocfr%,380)......|
00006130 ae 51 6f 63 6e 7a 25 20 20 20 3d a4 6d 65 6e 75 |.Qocnz% =.menu|
00006140 5f 6d 61 6b 65 28 a4 77 69 6d 70 5f 67 65 74 6d |_make(.wimp_getm|
00006150 65 73 73 61 67 65 28 22 4f 43 4e 5a 54 45 52 52 |essage("OCNZTERR|
00006160 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 2c |",b%,menufile%),|
00006170 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d |mns%,mne%,ind%).|
00006180 15 b8 50 63 68 61 74 68 61 6d 25 3d a4 63 6f 75 |..Pchatham%=.cou|
00006190 6e 74 72 79 6d 65 6e 75 28 22 43 48 41 54 48 41 |ntrymenu("CHATHA|
000061a0 4d 22 2c 25 30 31 31 30 30 30 29 3a f2 6d 65 6e |M",%011000):.men|
000061b0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 |u_attachsub(1,oc|
000061c0 6e 7a 25 2c 30 2c 63 68 61 74 68 61 6d 25 29 0d |nz%,0,chatham%).|
000061d0 15 c2 4d 63 6f 6f 6b 25 20 20 20 3d a4 63 6f 75 |..Mcook% =.cou|
000061e0 6e 74 72 79 6d 65 6e 75 28 22 43 4f 4f 4b 22 2c |ntrymenu("COOK",|
000061f0 25 31 31 31 31 30 30 29 20 20 20 3a f2 6d 65 6e |%111100) :.men|
00006200 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 |u_attachsub(1,oc|
00006210 6e 7a 25 2c 31 2c 63 6f 6f 6b 25 29 0d 15 cc 53 |nz%,1,cook%)...S|
00006220 6b 65 72 6d 61 64 65 63 25 3d a4 63 6f 75 6e 74 |kermadec%=.count|
00006230 72 79 6d 65 6e 75 28 22 4b 45 52 4d 41 44 45 43 |rymenu("KERMADEC|
00006240 22 2c 25 31 31 30 30 30 30 29 3a f2 6d 65 6e 75 |",%110000):.menu|
00006250 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 6e |_attachsub(1,ocn|
00006260 7a 25 2c 32 2c 6b 65 72 6d 61 64 65 63 25 29 0d |z%,2,kermadec%).|
00006270 15 d6 4d 6e 69 75 65 25 20 20 20 3d a4 63 6f 75 |..Mniue% =.cou|
00006280 6e 74 72 79 6d 65 6e 75 28 22 4e 49 55 45 22 2c |ntrymenu("NIUE",|
00006290 25 31 31 31 31 30 30 29 20 20 20 3a f2 6d 65 6e |%111100) :.men|
000062a0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 |u_attachsub(1,oc|
000062b0 6e 7a 25 2c 33 2c 6e 69 75 65 25 29 0d 15 e0 4d |nz%,3,niue%)...M|
000062c0 72 6f 73 73 25 20 20 20 3d a4 63 6f 75 6e 74 72 |ross% =.countr|
000062d0 79 6d 65 6e 75 28 22 52 4f 53 53 22 2c 25 30 31 |ymenu("ROSS",%01|
000062e0 30 30 30 30 29 20 20 20 3a f2 6d 65 6e 75 5f 61 |0000) :.menu_a|
000062f0 74 74 61 63 68 73 75 62 28 31 2c 6f 63 6e 7a 25 |ttachsub(1,ocnz%|
00006300 2c 34 2c 72 6f 73 73 25 29 0d 15 ea 50 74 6f 6b |,4,ross%)...Ptok|
00006310 65 6c 61 75 25 3d a4 63 6f 75 6e 74 72 79 6d 65 |elau%=.countryme|
00006320 6e 75 28 22 54 4f 4b 45 4c 41 55 22 2c 25 31 31 |nu("TOKELAU",%11|
00006330 31 30 30 30 29 3a f2 6d 65 6e 75 5f 61 74 74 61 |1000):.menu_atta|
00006340 63 68 73 75 62 28 31 2c 6f 63 6e 7a 25 2c 35 2c |chsub(1,ocnz%,5,|
00006350 74 6f 6b 65 6c 61 75 25 29 0d 15 f4 1d f2 6d 65 |tokelau%).....me|
00006360 6e 75 5f 73 65 74 77 69 64 74 68 28 6f 63 6e 7a |nu_setwidth(ocnz|
00006370 25 2c 32 35 30 29 0d 15 fe 04 0d 16 08 51 6f 63 |%,250).......Qoc|
00006380 75 73 25 20 20 20 3d a4 6d 65 6e 75 5f 6d 61 6b |us% =.menu_mak|
00006390 65 28 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 |e(.wimp_getmessa|
000063a0 67 65 28 22 4f 43 55 53 54 45 52 52 22 2c 62 25 |ge("OCUSTERR",b%|
000063b0 2c 6d 65 6e 75 66 69 6c 65 25 29 2c 6d 6e 73 25 |,menufile%),mns%|
000063c0 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 16 12 50 61 |,mne%,ind%)...Pa|
000063d0 6d 73 61 6d 6f 61 25 3d a4 63 6f 75 6e 74 72 79 |msamoa%=.country|
000063e0 6d 65 6e 75 28 22 41 4d 53 41 4d 4f 41 22 2c 25 |menu("AMSAMOA",%|
000063f0 31 31 30 31 31 30 29 3a f2 6d 65 6e 75 5f 61 74 |110110):.menu_at|
00006400 74 61 63 68 73 75 62 28 31 2c 6f 63 75 73 25 2c |tachsub(1,ocus%,|
00006410 30 2c 61 6d 73 61 6d 6f 61 25 29 0d 16 1c 4e 62 |0,amsamoa%)...Nb|
00006420 65 6c 61 75 25 20 20 3d a4 63 6f 75 6e 74 72 79 |elau% =.country|
00006430 6d 65 6e 75 28 22 42 45 4c 41 55 22 2c 25 31 31 |menu("BELAU",%11|
00006440 31 31 30 30 29 20 20 3a f2 6d 65 6e 75 5f 61 74 |1100) :.menu_at|
00006450 74 61 63 68 73 75 62 28 31 2c 6f 63 75 73 25 2c |tachsub(1,ocus%,|
00006460 31 2c 62 65 6c 61 75 25 29 0d 16 26 4d 67 75 61 |1,belau%)..&Mgua|
00006470 6d 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |m% =.countryme|
00006480 6e 75 28 22 47 55 41 4d 22 2c 25 31 31 31 31 31 |nu("GUAM",%11111|
00006490 30 29 20 20 20 3a f2 6d 65 6e 75 5f 61 74 74 61 |0) :.menu_atta|
000064a0 63 68 73 75 62 28 31 2c 6f 63 75 73 25 2c 32 2c |chsub(1,ocus%,2,|
000064b0 67 75 61 6d 25 29 0d 16 30 53 6d 61 72 73 68 61 |guam%)..0Smarsha|
000064c0 6c 6c 25 3d a4 63 6f 75 6e 74 72 79 6d 65 6e 75 |ll%=.countrymenu|
000064d0 28 22 4d 41 52 53 48 41 4c 4c 22 2c 25 31 31 31 |("MARSHALL",%111|
000064e0 31 30 30 29 3a f2 6d 65 6e 75 5f 61 74 74 61 63 |100):.menu_attac|
000064f0 68 73 75 62 28 31 2c 6f 63 75 73 25 2c 33 2c 6d |hsub(1,ocus%,3,m|
00006500 61 72 73 68 61 6c 6c 25 29 0d 16 3a 4f 6d 69 63 |arshall%)..:Omic|
00006510 72 6f 6e 25 20 3d a4 63 6f 75 6e 74 72 79 6d 65 |ron% =.countryme|
00006520 6e 75 28 22 4d 49 43 52 4f 4e 22 2c 25 31 31 31 |nu("MICRON",%111|
00006530 31 30 30 29 20 3a f2 6d 65 6e 75 5f 61 74 74 61 |100) :.menu_atta|
00006540 63 68 73 75 62 28 31 2c 6f 63 75 73 25 2c 34 2c |chsub(1,ocus%,4,|
00006550 6d 69 63 72 6f 6e 25 29 0d 16 44 4d 6e 6d 61 72 |micron%)..DMnmar|
00006560 25 20 20 20 3d a4 63 6f 75 6e 74 72 79 6d 65 6e |% =.countrymen|
00006570 75 28 22 4e 4d 41 52 22 2c 25 31 31 31 31 31 30 |u("NMAR",%111110|
00006580 29 20 20 20 3a f2 6d 65 6e 75 5f 61 74 74 61 63 |) :.menu_attac|
00006590 68 73 75 62 28 31 2c 6f 63 75 73 25 2c 35 2c 6e |hsub(1,ocus%,5,n|
000065a0 6d 61 72 25 29 0d 16 4e 1d f2 6d 65 6e 75 5f 73 |mar%)..N..menu_s|
000065b0 65 74 77 69 64 74 68 28 6f 63 75 73 25 2c 33 30 |etwidth(ocus%,30|
000065c0 30 29 0d 16 58 04 0d 16 62 15 f4 20 41 74 74 61 |0)..X...b.. Atta|
000065d0 63 68 69 6e 67 20 6d 65 6e 75 73 0d 16 6c 26 f2 |ching menus..l&.|
000065e0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
000065f0 2c 61 66 72 25 2c 30 2c 61 6c 67 65 72 69 61 25 |,afr%,0,algeria%|
00006600 29 0d 16 76 25 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..v%.menu_attac|
00006610 68 73 75 62 28 31 2c 61 66 72 25 2c 31 2c 61 6e |hsub(1,afr%,1,an|
00006620 67 6f 6c 61 25 29 0d 16 80 24 f2 6d 65 6e 75 5f |gola%)...$.menu_|
00006630 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 |attachsub(1,afr%|
00006640 2c 32 2c 62 65 6e 69 6e 25 29 0d 16 8a 26 f2 6d |,2,benin%)...&.m|
00006650 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00006660 61 66 72 25 2c 33 2c 62 6f 74 73 77 61 6e 25 29 |afr%,3,botswan%)|
00006670 0d 16 94 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...&.menu_attach|
00006680 73 75 62 28 31 2c 61 66 72 25 2c 34 2c 62 75 72 |sub(1,afr%,4,bur|
00006690 6b 69 6e 61 25 29 0d 16 9e 26 f2 6d 65 6e 75 5f |kina%)...&.menu_|
000066a0 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 |attachsub(1,afr%|
000066b0 2c 35 2c 62 75 72 75 6e 64 69 25 29 0d 16 a8 26 |,5,burundi%)...&|
000066c0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
000066d0 31 2c 61 66 72 25 2c 36 2c 63 61 6d 65 72 6f 6e |1,afr%,6,cameron|
000066e0 25 29 0d 16 b2 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)...&.menu_atta|
000066f0 63 68 73 75 62 28 31 2c 61 66 72 25 2c 37 2c 63 |chsub(1,afr%,7,c|
00006700 61 70 76 65 72 64 25 29 0d 16 bc 26 f2 6d 65 6e |apverd%)...&.men|
00006710 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 |u_attachsub(1,af|
00006720 72 25 2c 38 2c 63 61 66 72 72 65 70 25 29 0d 16 |r%,8,cafrrep%)..|
00006730 c6 23 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.#.menu_attachsu|
00006740 62 28 31 2c 61 66 72 25 2c 39 2c 63 68 61 64 25 |b(1,afr%,9,chad%|
00006750 29 0d 16 d0 27 f2 6d 65 6e 75 5f 61 74 74 61 63 |)...'.menu_attac|
00006760 68 73 75 62 28 31 2c 61 66 72 25 2c 31 30 2c 63 |hsub(1,afr%,10,c|
00006770 6f 6d 6f 72 6f 73 25 29 0d 16 da 27 f2 6d 65 6e |omoros%)...'.men|
00006780 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 |u_attachsub(1,af|
00006790 72 25 2c 31 31 2c 64 6a 69 62 75 74 69 25 29 0d |r%,11,djibuti%).|
000067a0 16 e4 25 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..%.menu_attachs|
000067b0 75 62 28 31 2c 61 66 72 25 2c 31 32 2c 65 67 79 |ub(1,afr%,12,egy|
000067c0 70 74 25 29 0d 16 ee 27 f2 6d 65 6e 75 5f 61 74 |pt%)...'.menu_at|
000067d0 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 31 |tachsub(1,afr%,1|
000067e0 33 2c 65 71 67 69 6e 65 61 25 29 0d 16 f8 27 f2 |3,eqginea%)...'.|
000067f0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006800 2c 61 66 72 25 2c 31 34 2c 65 72 69 74 72 65 61 |,afr%,14,eritrea|
00006810 25 29 0d 17 02 27 f2 6d 65 6e 75 5f 61 74 74 61 |%)...'.menu_atta|
00006820 63 68 73 75 62 28 31 2c 61 66 72 25 2c 31 35 2c |chsub(1,afr%,15,|
00006830 65 74 68 6f 70 69 61 25 29 0d 17 0c 25 f2 6d 65 |ethopia%)...%.me|
00006840 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00006850 66 72 25 2c 31 36 2c 67 61 62 6f 6e 25 29 0d 17 |fr%,16,gabon%)..|
00006860 16 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.&.menu_attachsu|
00006870 62 28 31 2c 61 66 72 25 2c 31 37 2c 67 61 6d 62 |b(1,afr%,17,gamb|
00006880 69 61 25 29 0d 17 20 25 f2 6d 65 6e 75 5f 61 74 |ia%).. %.menu_at|
00006890 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 31 |tachsub(1,afr%,1|
000068a0 38 2c 67 68 61 6e 61 25 29 0d 17 2a 26 f2 6d 65 |8,ghana%)..*&.me|
000068b0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
000068c0 66 72 25 2c 31 39 2c 67 75 69 6e 65 61 25 29 0d |fr%,19,guinea%).|
000068d0 17 34 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |.4'.menu_attachs|
000068e0 75 62 28 31 2c 61 66 72 25 2c 32 30 2c 67 75 69 |ub(1,afr%,20,gui|
000068f0 6e 62 69 73 25 29 0d 17 3e 25 f2 6d 65 6e 75 5f |nbis%)..>%.menu_|
00006900 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 |attachsub(1,afr%|
00006910 2c 32 31 2c 69 76 6f 72 79 25 29 0d 17 48 25 f2 |,21,ivory%)..H%.|
00006920 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006930 2c 61 66 72 25 2c 32 32 2c 6b 65 6e 79 61 25 29 |,afr%,22,kenya%)|
00006940 0d 17 52 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |..R'.menu_attach|
00006950 73 75 62 28 31 2c 61 66 72 25 2c 32 33 2c 6c 65 |sub(1,afr%,23,le|
00006960 73 6f 74 68 6f 25 29 0d 17 5c 27 f2 6d 65 6e 75 |sotho%)..\'.menu|
00006970 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 |_attachsub(1,afr|
00006980 25 2c 32 34 2c 6c 69 62 65 72 69 61 25 29 0d 17 |%,24,liberia%)..|
00006990 66 25 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |f%.menu_attachsu|
000069a0 62 28 31 2c 61 66 72 25 2c 32 35 2c 6c 69 62 79 |b(1,afr%,25,liby|
000069b0 61 25 29 0d 17 70 23 f2 6d 65 6e 75 5f 61 74 74 |a%)..p#.menu_att|
000069c0 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 32 36 |achsub(1,afr%,26|
000069d0 2c 6d 61 64 25 29 0d 17 7a 26 f2 6d 65 6e 75 5f |,mad%)..z&.menu_|
000069e0 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 |attachsub(1,afr%|
000069f0 2c 32 37 2c 6d 61 6c 61 77 69 25 29 0d 17 84 24 |,27,malawi%)...$|
00006a00 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00006a10 31 2c 61 66 72 25 2c 32 38 2c 6d 61 6c 69 25 29 |1,afr%,28,mali%)|
00006a20 0d 17 8e 2a f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...*.menu_attach|
00006a30 73 75 62 28 31 2c 61 66 72 25 2c 32 39 2c 6d 61 |sub(1,afr%,29,ma|
00006a40 75 72 69 74 61 6e 69 61 25 29 0d 17 98 29 f2 6d |uritania%)...).m|
00006a50 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00006a60 61 66 72 25 2c 33 30 2c 6d 61 75 72 69 74 69 75 |afr%,30,mauritiu|
00006a70 73 25 29 0d 17 a2 27 f2 6d 65 6e 75 5f 61 74 74 |s%)...'.menu_att|
00006a80 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 33 31 |achsub(1,afr%,31|
00006a90 2c 6d 6f 72 6f 63 63 6f 25 29 0d 17 ac 25 f2 6d |,morocco%)...%.m|
00006aa0 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00006ab0 61 66 72 25 2c 33 32 2c 6d 6f 7a 61 6d 25 29 0d |afr%,32,mozam%).|
00006ac0 17 b6 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..'.menu_attachs|
00006ad0 75 62 28 31 2c 61 66 72 25 2c 33 33 2c 6e 61 6d |ub(1,afr%,33,nam|
00006ae0 69 62 69 61 25 29 0d 17 c0 25 f2 6d 65 6e 75 5f |ibia%)...%.menu_|
00006af0 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 |attachsub(1,afr%|
00006b00 2c 33 34 2c 6e 69 67 65 72 25 29 0d 17 ca 27 f2 |,34,niger%)...'.|
00006b10 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006b20 2c 61 66 72 25 2c 33 35 2c 6e 69 67 65 72 69 61 |,afr%,35,nigeria|
00006b30 25 29 0d 17 d4 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)...&.menu_atta|
00006b40 63 68 73 75 62 28 31 2c 61 66 72 25 2c 33 36 2c |chsub(1,afr%,36,|
00006b50 72 77 61 6e 64 61 25 29 0d 17 de 26 f2 6d 65 6e |rwanda%)...&.men|
00006b60 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 |u_attachsub(1,af|
00006b70 72 25 2c 33 37 2c 73 61 6f 74 6f 6d 25 29 0d 17 |r%,37,saotom%)..|
00006b80 e8 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.'.menu_attachsu|
00006b90 62 28 31 2c 61 66 72 25 2c 33 38 2c 73 65 6e 65 |b(1,afr%,38,sene|
00006ba0 67 61 6c 25 29 0d 17 f2 23 f2 6d 65 6e 75 5f 61 |gal%)...#.menu_a|
00006bb0 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c |ttachsub(1,afr%,|
00006bc0 33 39 2c 73 65 79 25 29 0d 17 fc 26 f2 6d 65 6e |39,sey%)...&.men|
00006bd0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 |u_attachsub(1,af|
00006be0 72 25 2c 34 30 2c 73 69 65 72 72 61 25 29 0d 18 |r%,40,sierra%)..|
00006bf0 06 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.'.menu_attachsu|
00006c00 62 28 31 2c 61 66 72 25 2c 34 31 2c 73 6f 6d 61 |b(1,afr%,41,soma|
00006c10 6c 69 61 25 29 0d 18 10 26 f2 6d 65 6e 75 5f 61 |lia%)...&.menu_a|
00006c20 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c |ttachsub(1,afr%,|
00006c30 34 32 2c 73 6f 75 74 68 61 25 29 0d 18 1a 25 f2 |42,southa%)...%.|
00006c40 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006c50 2c 61 66 72 25 2c 34 33 2c 73 75 64 61 6e 25 29 |,afr%,43,sudan%)|
00006c60 0d 18 24 23 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |..$#.menu_attach|
00006c70 73 75 62 28 31 2c 61 66 72 25 2c 34 34 2c 74 61 |sub(1,afr%,44,ta|
00006c80 6e 25 29 0d 18 2e 24 f2 6d 65 6e 75 5f 61 74 74 |n%)...$.menu_att|
00006c90 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 34 35 |achsub(1,afr%,45|
00006ca0 2c 74 6f 67 6f 25 29 0d 18 38 25 f2 6d 65 6e 75 |,togo%)..8%.menu|
00006cb0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 |_attachsub(1,afr|
00006cc0 25 2c 34 36 2c 74 75 6e 69 73 25 29 0d 18 42 26 |%,46,tunis%)..B&|
00006cd0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00006ce0 31 2c 61 66 72 25 2c 34 37 2c 75 67 61 6e 64 61 |1,afr%,47,uganda|
00006cf0 25 29 0d 18 4c 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)..L&.menu_atta|
00006d00 63 68 73 75 62 28 31 2c 61 66 72 25 2c 34 38 2c |chsub(1,afr%,48,|
00006d10 73 61 68 61 72 61 25 29 0d 18 56 25 f2 6d 65 6e |sahara%)..V%.men|
00006d20 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 |u_attachsub(1,af|
00006d30 72 25 2c 34 39 2c 7a 61 69 72 65 25 29 0d 18 60 |r%,49,zaire%)..`|
00006d40 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |&.menu_attachsub|
00006d50 28 31 2c 61 66 72 25 2c 35 30 2c 7a 61 6d 62 69 |(1,afr%,50,zambi|
00006d60 61 25 29 0d 18 6a 24 f2 6d 65 6e 75 5f 61 74 74 |a%)..j$.menu_att|
00006d70 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 35 31 |achsub(1,afr%,51|
00006d80 2c 7a 69 6d 62 25 29 0d 18 74 26 f2 6d 65 6e 75 |,zimb%)..t&.menu|
00006d90 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 66 72 |_attachsub(1,afr|
00006da0 25 2c 35 32 2c 62 72 74 65 72 72 25 29 0d 18 7e |%,52,brterr%)..~|
00006db0 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |'.menu_attachsub|
00006dc0 28 31 2c 61 66 72 25 2c 35 33 2c 66 72 74 65 72 |(1,afr%,53,frter|
00006dd0 72 73 25 29 0d 18 88 27 f2 6d 65 6e 75 5f 61 74 |rs%)...'.menu_at|
00006de0 74 61 63 68 73 75 62 28 31 2c 61 66 72 25 2c 35 |tachsub(1,afr%,5|
00006df0 34 2c 6e 6f 72 74 65 72 72 25 29 0d 18 92 27 f2 |4,norterr%)...'.|
00006e00 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006e10 2c 61 66 72 25 2c 35 35 2c 70 6f 72 74 65 72 72 |,afr%,55,porterr|
00006e20 25 29 0d 18 9c 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)...&.menu_atta|
00006e30 63 68 73 75 62 28 31 2c 61 66 72 25 2c 35 36 2c |chsub(1,afr%,56,|
00006e40 73 70 74 65 72 72 25 29 0d 18 a6 26 f2 6d 65 6e |spterr%)...&.men|
00006e50 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d |u_attachsub(1,am|
00006e60 72 25 2c 30 2c 61 6e 74 69 67 75 61 25 29 0d 18 |r%,0,antigua%)..|
00006e70 b0 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.$.menu_attachsu|
00006e80 62 28 31 2c 61 6d 72 25 2c 31 2c 61 72 67 65 6e |b(1,amr%,1,argen|
00006e90 25 29 0d 18 ba 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)...&.menu_atta|
00006ea0 63 68 73 75 62 28 31 2c 61 6d 72 25 2c 32 2c 62 |chsub(1,amr%,2,b|
00006eb0 61 68 61 6d 61 73 25 29 0d 18 c4 23 f2 6d 65 6e |ahamas%)...#.men|
00006ec0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d |u_attachsub(1,am|
00006ed0 72 25 2c 33 2c 62 61 72 62 25 29 0d 18 ce 25 f2 |r%,3,barb%)...%.|
00006ee0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006ef0 2c 61 6d 72 25 2c 34 2c 62 65 6c 69 7a 65 25 29 |,amr%,4,belize%)|
00006f00 0d 18 d8 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...&.menu_attach|
00006f10 73 75 62 28 31 2c 61 6d 72 25 2c 35 2c 62 6f 6c |sub(1,amr%,5,bol|
00006f20 69 76 69 61 25 29 0d 18 e2 25 f2 6d 65 6e 75 5f |ivia%)...%.menu_|
00006f30 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 25 |attachsub(1,amr%|
00006f40 2c 36 2c 62 72 61 7a 69 6c 25 29 0d 18 ec 25 f2 |,6,brazil%)...%.|
00006f50 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00006f60 2c 61 6d 72 25 2c 37 2c 63 61 6e 61 64 61 25 29 |,amr%,7,canada%)|
00006f70 0d 18 f6 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...$.menu_attach|
00006f80 73 75 62 28 31 2c 61 6d 72 25 2c 38 2c 63 68 69 |sub(1,amr%,8,chi|
00006f90 6c 65 25 29 0d 19 00 25 f2 6d 65 6e 75 5f 61 74 |le%)...%.menu_at|
00006fa0 74 61 63 68 73 75 62 28 31 2c 61 6d 72 25 2c 39 |tachsub(1,amr%,9|
00006fb0 2c 63 6f 6c 6f 6d 62 25 29 0d 19 0a 25 f2 6d 65 |,colomb%)...%.me|
00006fc0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00006fd0 6d 72 25 2c 31 30 2c 63 6f 73 74 61 25 29 0d 19 |mr%,10,costa%)..|
00006fe0 14 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.$.menu_attachsu|
00006ff0 62 28 31 2c 61 6d 72 25 2c 31 31 2c 63 75 62 61 |b(1,amr%,11,cuba|
00007000 25 29 0d 19 1e 23 f2 6d 65 6e 75 5f 61 74 74 61 |%)...#.menu_atta|
00007010 63 68 73 75 62 28 31 2c 61 6d 72 25 2c 31 32 2c |chsub(1,amr%,12,|
00007020 64 6f 6d 25 29 0d 19 28 26 f2 6d 65 6e 75 5f 61 |dom%)..(&.menu_a|
00007030 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 25 2c |ttachsub(1,amr%,|
00007040 31 33 2c 64 6f 6d 72 65 70 25 29 0d 19 32 27 f2 |13,domrep%)..2'.|
00007050 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007060 2c 61 6d 72 25 2c 31 34 2c 65 63 75 61 64 6f 72 |,amr%,14,ecuador|
00007070 25 29 0d 19 3c 25 f2 6d 65 6e 75 5f 61 74 74 61 |%)..<%.menu_atta|
00007080 63 68 73 75 62 28 31 2c 61 6d 72 25 2c 31 35 2c |chsub(1,amr%,15,|
00007090 65 6c 73 61 6c 25 29 0d 19 46 27 f2 6d 65 6e 75 |elsal%)..F'.menu|
000070a0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 |_attachsub(1,amr|
000070b0 25 2c 31 36 2c 67 72 65 6e 61 64 61 25 29 0d 19 |%,16,grenada%)..|
000070c0 50 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |P$.menu_attachsu|
000070d0 62 28 31 2c 61 6d 72 25 2c 31 37 2c 67 75 61 74 |b(1,amr%,17,guat|
000070e0 25 29 0d 19 5a 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)..Z&.menu_atta|
000070f0 63 68 73 75 62 28 31 2c 61 6d 72 25 2c 31 38 2c |chsub(1,amr%,18,|
00007100 67 75 79 61 6e 61 25 29 0d 19 64 25 f2 6d 65 6e |guyana%)..d%.men|
00007110 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d |u_attachsub(1,am|
00007120 72 25 2c 31 39 2c 68 61 69 74 69 25 29 0d 19 6e |r%,19,haiti%)..n|
00007130 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |$.menu_attachsub|
00007140 28 31 2c 61 6d 72 25 2c 32 30 2c 68 6f 6e 64 25 |(1,amr%,20,hond%|
00007150 29 0d 19 78 27 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..x'.menu_attac|
00007160 68 73 75 62 28 31 2c 61 6d 72 25 2c 32 31 2c 6a |hsub(1,amr%,21,j|
00007170 61 6d 61 69 63 61 25 29 0d 19 82 26 f2 6d 65 6e |amaica%)...&.men|
00007180 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d |u_attachsub(1,am|
00007190 72 25 2c 32 32 2c 6d 65 78 69 63 6f 25 29 0d 19 |r%,22,mexico%)..|
000071a0 8c 23 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.#.menu_attachsu|
000071b0 62 28 31 2c 61 6d 72 25 2c 32 33 2c 6e 69 63 25 |b(1,amr%,23,nic%|
000071c0 29 0d 19 96 26 f2 6d 65 6e 75 5f 61 74 74 61 63 |)...&.menu_attac|
000071d0 68 73 75 62 28 31 2c 61 6d 72 25 2c 32 34 2c 70 |hsub(1,amr%,24,p|
000071e0 61 6e 61 6d 61 25 29 0d 19 a0 25 f2 6d 65 6e 75 |anama%)...%.menu|
000071f0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 |_attachsub(1,amr|
00007200 25 2c 32 35 2c 70 61 72 61 67 25 29 0d 19 aa 24 |%,25,parag%)...$|
00007210 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00007220 31 2c 61 6d 72 25 2c 32 36 2c 70 65 72 75 25 29 |1,amr%,26,peru%)|
00007230 0d 19 b4 25 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...%.menu_attach|
00007240 73 75 62 28 31 2c 61 6d 72 25 2c 32 37 2c 6b 69 |sub(1,amr%,27,ki|
00007250 74 74 73 25 29 0d 19 be 25 f2 6d 65 6e 75 5f 61 |tts%)...%.menu_a|
00007260 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 25 2c |ttachsub(1,amr%,|
00007270 32 38 2c 6c 75 63 69 61 25 29 0d 19 c8 27 f2 6d |28,lucia%)...'.m|
00007280 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00007290 61 6d 72 25 2c 32 39 2c 76 69 6e 63 65 6e 74 25 |amr%,29,vincent%|
000072a0 29 0d 19 d2 27 f2 6d 65 6e 75 5f 61 74 74 61 63 |)...'.menu_attac|
000072b0 68 73 75 62 28 31 2c 61 6d 72 25 2c 33 30 2c 73 |hsub(1,amr%,30,s|
000072c0 75 72 69 6e 61 6d 25 29 0d 19 dc 24 f2 6d 65 6e |urinam%)...$.men|
000072d0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d |u_attachsub(1,am|
000072e0 72 25 2c 33 31 2c 74 72 69 6e 25 29 0d 19 e6 23 |r%,31,trin%)...#|
000072f0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00007300 31 2c 61 6d 72 25 2c 33 32 2c 75 73 61 25 29 0d |1,amr%,32,usa%).|
00007310 19 f0 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..'.menu_attachs|
00007320 75 62 28 31 2c 61 6d 72 25 2c 33 33 2c 75 72 75 |ub(1,amr%,33,uru|
00007330 67 75 61 79 25 29 0d 19 fa 23 f2 6d 65 6e 75 5f |guay%)...#.menu_|
00007340 61 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 25 |attachsub(1,amr%|
00007350 2c 33 34 2c 76 65 6e 25 29 0d 1a 04 26 f2 6d 65 |,34,ven%)...&.me|
00007360 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00007370 6d 72 25 2c 33 35 2c 61 6d 62 72 69 74 25 29 0d |mr%,35,ambrit%).|
00007380 1a 0e 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..&.menu_attachs|
00007390 75 62 28 31 2c 61 6d 72 25 2c 33 36 2c 61 6d 64 |ub(1,amr%,36,amd|
000073a0 61 6e 65 25 29 0d 1a 18 27 f2 6d 65 6e 75 5f 61 |ane%)...'.menu_a|
000073b0 74 74 61 63 68 73 75 62 28 31 2c 61 6d 72 25 2c |ttachsub(1,amr%,|
000073c0 33 37 2c 61 6d 64 75 74 63 68 25 29 0d 1a 22 24 |37,amdutch%).."$|
000073d0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
000073e0 31 2c 61 6d 72 25 2c 33 38 2c 61 6d 66 72 25 29 |1,amr%,38,amfr%)|
000073f0 0d 1a 2c 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |..,$.menu_attach|
00007400 73 75 62 28 31 2c 61 6d 72 25 2c 33 39 2c 61 6d |sub(1,amr%,39,am|
00007410 75 73 25 29 0d 1a 36 22 f2 6d 65 6e 75 5f 61 74 |us%)..6".menu_at|
00007420 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 30 |tachsub(1,asi%,0|
00007430 2c 61 66 67 25 29 0d 1a 40 22 f2 6d 65 6e 75 5f |,afg%)..@".menu_|
00007440 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 |attachsub(1,asi%|
00007450 2c 31 2c 61 72 6d 25 29 0d 1a 4a 23 f2 6d 65 6e |,1,arm%)..J#.men|
00007460 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 |u_attachsub(1,as|
00007470 69 25 2c 32 2c 61 7a 65 72 25 29 0d 1a 54 26 f2 |i%,2,azer%)..T&.|
00007480 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007490 2c 61 73 69 25 2c 33 2c 62 61 68 72 61 69 6e 25 |,asi%,3,bahrain%|
000074a0 29 0d 1a 5e 23 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..^#.menu_attac|
000074b0 68 73 75 62 28 31 2c 61 73 69 25 2c 34 2c 62 61 |hsub(1,asi%,4,ba|
000074c0 6e 67 25 29 0d 1a 68 25 f2 6d 65 6e 75 5f 61 74 |ng%)..h%.menu_at|
000074d0 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 35 |tachsub(1,asi%,5|
000074e0 2c 62 68 75 74 61 6e 25 29 0d 1a 72 25 f2 6d 65 |,bhutan%)..r%.me|
000074f0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00007500 73 69 25 2c 36 2c 62 72 75 6e 65 69 25 29 0d 1a |si%,6,brunei%)..|
00007510 7c 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 ||$.menu_attachsu|
00007520 62 28 31 2c 61 73 69 25 2c 37 2c 62 75 72 6d 61 |b(1,asi%,7,burma|
00007530 25 29 0d 1a 86 23 f2 6d 65 6e 75 5f 61 74 74 61 |%)...#.menu_atta|
00007540 63 68 73 75 62 28 31 2c 61 73 69 25 2c 38 2c 63 |chsub(1,asi%,8,c|
00007550 61 6d 62 25 29 0d 1a 90 24 f2 6d 65 6e 75 5f 61 |amb%)...$.menu_a|
00007560 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c |ttachsub(1,asi%,|
00007570 39 2c 63 68 69 6e 61 25 29 0d 1a 9a 26 f2 6d 65 |9,china%)...&.me|
00007580 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 |nu_attachsub(1,a|
00007590 73 69 25 2c 31 30 2c 63 79 70 72 75 73 25 29 0d |si%,10,cyprus%).|
000075a0 1a a4 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..'.menu_attachs|
000075b0 75 62 28 31 2c 61 73 69 25 2c 31 31 2c 67 65 6f |ub(1,asi%,11,geo|
000075c0 72 67 69 61 25 29 0d 1a ae 25 f2 6d 65 6e 75 5f |rgia%)...%.menu_|
000075d0 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 |attachsub(1,asi%|
000075e0 2c 31 32 2c 69 6e 64 69 61 25 29 0d 1a b8 24 f2 |,12,india%)...$.|
000075f0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007600 2c 61 73 69 25 2c 31 33 2c 69 6e 64 6f 25 29 0d |,asi%,13,indo%).|
00007610 1a c2 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..$.menu_attachs|
00007620 75 62 28 31 2c 61 73 69 25 2c 31 34 2c 69 72 61 |ub(1,asi%,14,ira|
00007630 6e 25 29 0d 1a cc 24 f2 6d 65 6e 75 5f 61 74 74 |n%)...$.menu_att|
00007640 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 31 35 |achsub(1,asi%,15|
00007650 2c 69 72 61 71 25 29 0d 1a d6 26 f2 6d 65 6e 75 |,iraq%)...&.menu|
00007660 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 |_attachsub(1,asi|
00007670 25 2c 31 36 2c 69 73 72 61 65 6c 25 29 0d 1a e0 |%,16,israel%)...|
00007680 25 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |%.menu_attachsub|
00007690 28 31 2c 61 73 69 25 2c 31 37 2c 6a 61 70 61 6e |(1,asi%,17,japan|
000076a0 25 29 0d 1a ea 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)...&.menu_atta|
000076b0 63 68 73 75 62 28 31 2c 61 73 69 25 2c 31 38 2c |chsub(1,asi%,18,|
000076c0 6a 6f 72 64 61 6e 25 29 0d 1a f4 26 f2 6d 65 6e |jordan%)...&.men|
000076d0 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 |u_attachsub(1,as|
000076e0 69 25 2c 31 39 2c 6b 61 7a 61 6b 68 25 29 0d 1a |i%,19,kazakh%)..|
000076f0 fe 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.'.menu_attachsu|
00007700 62 28 31 2c 61 73 69 25 2c 32 30 2c 6b 69 72 67 |b(1,asi%,20,kirg|
00007710 68 69 7a 25 29 0d 1b 08 26 f2 6d 65 6e 75 5f 61 |hiz%)...&.menu_a|
00007720 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c |ttachsub(1,asi%,|
00007730 32 31 2c 6b 6f 72 65 61 6e 25 29 0d 1b 12 27 f2 |21,korean%)...'.|
00007740 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007750 2c 61 73 69 25 2c 32 32 2c 6b 6f 72 65 61 73 25 |,asi%,22,koreas%|
00007760 29 20 0d 1b 1c 26 f2 6d 65 6e 75 5f 61 74 74 61 |) ...&.menu_atta|
00007770 63 68 73 75 62 28 31 2c 61 73 69 25 2c 32 33 2c |chsub(1,asi%,23,|
00007780 6b 75 77 61 69 74 25 29 0d 1b 26 24 f2 6d 65 6e |kuwait%)..&$.men|
00007790 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 |u_attachsub(1,as|
000077a0 69 25 2c 32 34 2c 6c 61 6f 73 25 29 0d 1b 30 27 |i%,24,laos%)..0'|
000077b0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
000077c0 31 2c 61 73 69 25 2c 32 35 2c 6c 65 62 61 6e 6f |1,asi%,25,lebano|
000077d0 6e 25 29 0d 1b 3a 25 f2 6d 65 6e 75 5f 61 74 74 |n%)..:%.menu_att|
000077e0 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 32 36 |achsub(1,asi%,26|
000077f0 2c 6d 61 6c 61 79 25 29 0d 1b 44 27 f2 6d 65 6e |,malay%)..D'.men|
00007800 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 |u_attachsub(1,as|
00007810 69 25 2c 32 37 2c 6d 61 6c 64 69 76 65 25 29 0d |i%,27,maldive%).|
00007820 1b 4e 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |.N&.menu_attachs|
00007830 75 62 28 31 2c 61 73 69 25 2c 32 38 2c 6d 6f 6e |ub(1,asi%,28,mon|
00007840 67 6f 6c 25 29 0d 1b 58 25 f2 6d 65 6e 75 5f 61 |gol%)..X%.menu_a|
00007850 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c |ttachsub(1,asi%,|
00007860 32 39 2c 6e 65 70 61 6c 25 29 0d 1b 62 24 f2 6d |29,nepal%)..b$.m|
00007870 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00007880 61 73 69 25 2c 33 30 2c 6f 6d 61 6e 25 29 0d 1b |asi%,30,oman%)..|
00007890 6c 23 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |l#.menu_attachsu|
000078a0 62 28 31 2c 61 73 69 25 2c 33 31 2c 70 61 6b 25 |b(1,asi%,31,pak%|
000078b0 29 0d 1b 76 24 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..v$.menu_attac|
000078c0 68 73 75 62 28 31 2c 61 73 69 25 2c 33 32 2c 70 |hsub(1,asi%,32,p|
000078d0 68 69 6c 25 29 0d 1b 80 25 f2 6d 65 6e 75 5f 61 |hil%)...%.menu_a|
000078e0 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c |ttachsub(1,asi%,|
000078f0 33 33 2c 71 61 74 61 72 25 29 0d 1b 8a 25 f2 6d |33,qatar%)...%.m|
00007900 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00007910 61 73 69 25 2c 33 34 2c 73 61 75 64 69 25 29 0d |asi%,34,saudi%).|
00007920 1b 94 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..$.menu_attachs|
00007930 75 62 28 31 2c 61 73 69 25 2c 33 35 2c 73 69 6e |ub(1,asi%,35,sin|
00007940 67 25 29 0d 1b 9e 23 f2 6d 65 6e 75 5f 61 74 74 |g%)...#.menu_att|
00007950 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 33 36 |achsub(1,asi%,36|
00007960 2c 73 72 69 25 29 0d 1b a8 25 f2 6d 65 6e 75 5f |,sri%)...%.menu_|
00007970 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 |attachsub(1,asi%|
00007980 2c 33 37 2c 73 79 72 69 61 25 29 0d 1b b2 30 f2 |,37,syria%)...0.|
00007990 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
000079a0 2c 61 73 69 25 2c 33 38 2c 74 61 69 77 61 6e 25 |,asi%,38,taiwan%|
000079b0 29 20 20 20 20 20 20 20 20 20 20 0d 1b bc 25 f2 |) ...%.|
000079c0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
000079d0 2c 61 73 69 25 2c 33 39 2c 74 61 6a 69 6b 25 29 |,asi%,39,tajik%)|
000079e0 0d 1b c6 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...$.menu_attach|
000079f0 73 75 62 28 31 2c 61 73 69 25 2c 34 30 2c 74 68 |sub(1,asi%,40,th|
00007a00 61 69 25 29 0d 1b d0 24 f2 6d 65 6e 75 5f 61 74 |ai%)...$.menu_at|
00007a10 74 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 34 |tachsub(1,asi%,4|
00007a20 31 2c 74 75 72 6b 25 29 0d 1b da 27 f2 6d 65 6e |1,turk%)...'.men|
00007a30 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 |u_attachsub(1,as|
00007a40 69 25 2c 34 32 2c 74 75 72 6b 6d 65 6e 25 29 0d |i%,42,turkmen%).|
00007a50 1b e4 23 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..#.menu_attachs|
00007a60 75 62 28 31 2c 61 73 69 25 2c 34 33 2c 75 61 65 |ub(1,asi%,43,uae|
00007a70 25 29 0d 1b ee 25 f2 6d 65 6e 75 5f 61 74 74 61 |%)...%.menu_atta|
00007a80 63 68 73 75 62 28 31 2c 61 73 69 25 2c 34 34 2c |chsub(1,asi%,44,|
00007a90 75 7a 62 65 6b 25 29 0d 1b f8 27 f2 6d 65 6e 75 |uzbek%)...'.menu|
00007aa0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 |_attachsub(1,asi|
00007ab0 25 2c 34 35 2c 76 69 65 74 6e 61 6d 25 29 0d 1c |%,45,vietnam%)..|
00007ac0 02 25 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.%.menu_attachsu|
00007ad0 62 28 31 2c 61 73 69 25 2c 34 36 2c 79 65 6d 65 |b(1,asi%,46,yeme|
00007ae0 6e 25 29 0d 1c 0c 24 f2 6d 65 6e 75 5f 61 74 74 |n%)...$.menu_att|
00007af0 61 63 68 73 75 62 28 31 2c 61 73 69 25 2c 34 37 |achsub(1,asi%,47|
00007b00 2c 61 73 75 73 25 29 0d 1c 16 24 f2 6d 65 6e 75 |,asus%)...$.menu|
00007b10 5f 61 74 74 61 63 68 73 75 62 28 31 2c 61 73 69 |_attachsub(1,asi|
00007b20 25 2c 34 38 2c 61 73 62 72 25 29 0d 1c 20 26 f2 |%,48,asbr%).. &.|
00007b30 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007b40 2c 61 73 69 25 2c 34 39 2c 61 73 70 6f 72 74 25 |,asi%,49,asport%|
00007b50 29 0d 1c 2a 26 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..*&.menu_attac|
00007b60 68 73 75 62 28 31 2c 65 75 72 25 2c 30 2c 61 6c |hsub(1,eur%,0,al|
00007b70 62 61 6e 69 61 25 29 0d 1c 34 26 f2 6d 65 6e 75 |bania%)..4&.menu|
00007b80 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 |_attachsub(1,eur|
00007b90 25 2c 31 2c 61 6e 64 6f 72 72 61 25 29 0d 1c 3e |%,1,andorra%)..>|
00007ba0 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |&.menu_attachsub|
00007bb0 28 31 2c 65 75 72 25 2c 32 2c 61 75 73 74 72 69 |(1,eur%,2,austri|
00007bc0 61 25 29 0d 1c 48 26 f2 6d 65 6e 75 5f 61 74 74 |a%)..H&.menu_att|
00007bd0 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 33 2c |achsub(1,eur%,3,|
00007be0 62 65 6c 67 69 75 6d 25 29 0d 1c 52 23 f2 6d 65 |belgium%)..R#.me|
00007bf0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 |nu_attachsub(1,e|
00007c00 75 72 25 2c 34 2c 62 65 6c 6f 25 29 0d 1c 5c 25 |ur%,4,belo%)..\%|
00007c10 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00007c20 31 2c 65 75 72 25 2c 35 2c 62 6f 73 6e 69 61 25 |1,eur%,5,bosnia%|
00007c30 29 0d 1c 66 25 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..f%.menu_attac|
00007c40 68 73 75 62 28 31 2c 65 75 72 25 2c 36 2c 62 75 |hsub(1,eur%,6,bu|
00007c50 6c 67 61 72 25 29 0d 1c 70 2b f2 6d 65 6e 75 5f |lgar%)..p+.menu_|
00007c60 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 |attachsub(1,eur%|
00007c70 2c 37 2c 63 72 6f 61 74 69 61 25 29 20 20 20 20 |,7,croatia%) |
00007c80 20 0d 1c 7a 25 f2 6d 65 6e 75 5f 61 74 74 61 63 | ..z%.menu_attac|
00007c90 68 73 75 62 28 31 2c 65 75 72 25 2c 38 2c 63 7a |hsub(1,eur%,8,cz|
00007ca0 65 63 68 6f 25 29 0d 1c 84 26 f2 6d 65 6e 75 5f |echo%)...&.menu_|
00007cb0 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 |attachsub(1,eur%|
00007cc0 2c 39 2c 64 65 6e 6d 61 72 6b 25 29 0d 1c 8e 27 |,9,denmark%)...'|
00007cd0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00007ce0 31 2c 65 75 72 25 2c 31 30 2c 65 73 74 6f 6e 69 |1,eur%,10,estoni|
00007cf0 61 25 29 0d 1c 98 27 f2 6d 65 6e 75 5f 61 74 74 |a%)...'.menu_att|
00007d00 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 31 31 |achsub(1,eur%,11|
00007d10 2c 66 69 6e 6c 61 6e 64 25 29 0d 1c a2 26 f2 6d |,finland%)...&.m|
00007d20 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00007d30 65 75 72 25 2c 31 32 2c 66 72 61 6e 63 65 25 29 |eur%,12,france%)|
00007d40 0d 1c ac 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...'.menu_attach|
00007d50 73 75 62 28 31 2c 65 75 72 25 2c 31 33 2c 67 65 |sub(1,eur%,13,ge|
00007d60 72 6d 61 6e 79 25 29 0d 1c b6 26 f2 6d 65 6e 75 |rmany%)...&.menu|
00007d70 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 |_attachsub(1,eur|
00007d80 25 2c 31 34 2c 67 72 65 65 63 65 25 29 0d 1c c0 |%,14,greece%)...|
00007d90 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 |'.menu_attachsub|
00007da0 28 31 2c 65 75 72 25 2c 31 35 2c 68 75 6e 67 61 |(1,eur%,15,hunga|
00007db0 72 79 25 29 0d 1c ca 27 f2 6d 65 6e 75 5f 61 74 |ry%)...'.menu_at|
00007dc0 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 31 |tachsub(1,eur%,1|
00007dd0 36 2c 69 63 65 6c 61 6e 64 25 29 0d 1c d4 29 f2 |6,iceland%)...).|
00007de0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007df0 2c 65 75 72 25 2c 31 37 2c 69 72 65 6c 61 6e 64 |,eur%,17,ireland|
00007e00 25 29 20 20 0d 1c de 25 f2 6d 65 6e 75 5f 61 74 |%) ...%.menu_at|
00007e10 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 31 |tachsub(1,eur%,1|
00007e20 38 2c 69 74 61 6c 79 25 29 0d 1c e8 26 f2 6d 65 |8,italy%)...&.me|
00007e30 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 |nu_attachsub(1,e|
00007e40 75 72 25 2c 31 39 2c 6c 61 74 76 69 61 25 29 0d |ur%,19,latvia%).|
00007e50 1c f2 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 |..&.menu_attachs|
00007e60 75 62 28 31 2c 65 75 72 25 2c 32 30 2c 6c 69 65 |ub(1,eur%,20,lie|
00007e70 63 68 74 25 29 0d 1c fc 24 f2 6d 65 6e 75 5f 61 |cht%)...$.menu_a|
00007e80 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c |ttachsub(1,eur%,|
00007e90 32 31 2c 6c 69 74 68 25 29 0d 1d 06 23 f2 6d 65 |21,lith%)...#.me|
00007ea0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 |nu_attachsub(1,e|
00007eb0 75 72 25 2c 32 32 2c 6c 75 78 25 29 0d 1d 10 27 |ur%,22,lux%)...'|
00007ec0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00007ed0 31 2c 65 75 72 25 2c 32 33 2c 6d 61 63 65 64 6f |1,eur%,23,macedo|
00007ee0 6e 25 29 0d 1d 1a 25 f2 6d 65 6e 75 5f 61 74 74 |n%)...%.menu_att|
00007ef0 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 32 34 |achsub(1,eur%,24|
00007f00 2c 6d 61 6c 74 61 25 29 0d 1d 24 26 f2 6d 65 6e |,malta%)..$&.men|
00007f10 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 |u_attachsub(1,eu|
00007f20 72 25 2c 32 35 2c 6d 6f 6c 64 61 76 25 29 0d 1d |r%,25,moldav%)..|
00007f30 2e 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.&.menu_attachsu|
00007f40 62 28 31 2c 65 75 72 25 2c 32 36 2c 6d 6f 6e 61 |b(1,eur%,26,mona|
00007f50 63 6f 25 29 0d 1d 38 27 f2 6d 65 6e 75 5f 61 74 |co%)..8'.menu_at|
00007f60 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 32 |tachsub(1,eur%,2|
00007f70 37 2c 68 6f 6c 6c 61 6e 64 25 29 0d 1d 42 26 f2 |7,holland%)..B&.|
00007f80 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00007f90 2c 65 75 72 25 2c 32 38 2c 6e 6f 72 77 61 79 25 |,eur%,28,norway%|
00007fa0 29 0d 1d 4c 26 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..L&.menu_attac|
00007fb0 68 73 75 62 28 31 2c 65 75 72 25 2c 32 39 2c 70 |hsub(1,eur%,29,p|
00007fc0 6f 6c 61 6e 64 25 29 0d 1d 56 24 f2 6d 65 6e 75 |oland%)..V$.menu|
00007fd0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 |_attachsub(1,eur|
00007fe0 25 2c 33 30 2c 70 6f 72 74 25 29 0d 1d 60 27 f2 |%,30,port%)..`'.|
00007ff0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00008000 2c 65 75 72 25 2c 33 31 2c 72 6f 6d 61 6e 69 61 |,eur%,31,romania|
00008010 25 29 0d 1d 6a 26 f2 6d 65 6e 75 5f 61 74 74 61 |%)..j&.menu_atta|
00008020 63 68 73 75 62 28 31 2c 65 75 72 25 2c 33 32 2c |chsub(1,eur%,32,|
00008030 72 75 73 73 69 61 25 29 0d 1d 74 26 f2 6d 65 6e |russia%)..t&.men|
00008040 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 |u_attachsub(1,eu|
00008050 72 25 2c 33 33 2c 73 61 6e 6d 61 72 25 29 0d 1d |r%,33,sanmar%)..|
00008060 7e 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |~&.menu_attachsu|
00008070 62 28 31 2c 65 75 72 25 2c 33 34 2c 73 6c 6f 76 |b(1,eur%,34,slov|
00008080 61 6b 25 29 0d 1d 88 27 f2 6d 65 6e 75 5f 61 74 |ak%)...'.menu_at|
00008090 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 33 |tachsub(1,eur%,3|
000080a0 35 2c 73 6c 6f 76 65 6e 65 25 29 0d 1d 92 25 f2 |5,slovene%)...%.|
000080b0 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
000080c0 2c 65 75 72 25 2c 33 36 2c 73 70 61 69 6e 25 29 |,eur%,36,spain%)|
000080d0 0d 1d 9c 26 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...&.menu_attach|
000080e0 73 75 62 28 31 2c 65 75 72 25 2c 33 37 2c 73 77 |sub(1,eur%,37,sw|
000080f0 65 64 65 6e 25 29 0d 1d a6 25 f2 6d 65 6e 75 5f |eden%)...%.menu_|
00008100 61 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 |attachsub(1,eur%|
00008110 2c 33 38 2c 73 77 69 74 7a 25 29 0d 1d b0 27 f2 |,38,switz%)...'.|
00008120 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00008130 2c 65 75 72 25 2c 33 39 2c 75 6b 72 61 69 6e 65 |,eur%,39,ukraine|
00008140 25 29 0d 1d ba 22 f2 6d 65 6e 75 5f 61 74 74 61 |%)...".menu_atta|
00008150 63 68 73 75 62 28 31 2c 65 75 72 25 2c 34 30 2c |chsub(1,eur%,40,|
00008160 75 6b 25 29 0d 1d c4 27 f2 6d 65 6e 75 5f 61 74 |uk%)...'.menu_at|
00008170 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c 34 |tachsub(1,eur%,4|
00008180 31 2c 76 61 74 69 63 61 6e 25 29 0d 1d ce 23 f2 |1,vatican%)...#.|
00008190 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
000081a0 2c 65 75 72 25 2c 34 32 2c 79 75 67 25 29 0d 1d |,eur%,42,yug%)..|
000081b0 d8 27 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.'.menu_attachsu|
000081c0 62 28 31 2c 65 75 72 25 2c 34 33 2c 65 75 72 62 |b(1,eur%,43,eurb|
000081d0 72 69 74 25 29 0d 1d e2 26 f2 6d 65 6e 75 5f 61 |rit%)...&.menu_a|
000081e0 74 74 61 63 68 73 75 62 28 31 2c 65 75 72 25 2c |ttachsub(1,eur%,|
000081f0 34 34 2c 65 75 72 64 61 6e 25 29 0d 1d ec 26 f2 |44,eurdan%)...&.|
00008200 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
00008210 2c 65 75 72 25 2c 34 35 2c 65 75 72 6e 6f 72 25 |,eur%,45,eurnor%|
00008220 29 0d 1d f6 27 f2 6d 65 6e 75 5f 61 74 74 61 63 |)...'.menu_attac|
00008230 68 73 75 62 28 31 2c 65 75 72 25 2c 34 36 2c 65 |hsub(1,eur%,46,e|
00008240 75 72 70 6f 72 74 25 29 0d 1e 00 26 f2 6d 65 6e |urport%)...&.men|
00008250 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 |u_attachsub(1,oc|
00008260 65 25 2c 30 2c 61 75 73 74 72 61 6c 25 29 0d 1e |e%,0,austral%)..|
00008270 0a 23 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 |.#.menu_attachsu|
00008280 62 28 31 2c 6f 63 65 25 2c 31 2c 66 69 6a 69 25 |b(1,oce%,1,fiji%|
00008290 29 0d 1e 14 24 f2 6d 65 6e 75 5f 61 74 74 61 63 |)...$.menu_attac|
000082a0 68 73 75 62 28 31 2c 6f 63 65 25 2c 32 2c 6b 69 |hsub(1,oce%,2,ki|
000082b0 72 69 62 25 29 0d 1e 1e 24 f2 6d 65 6e 75 5f 61 |rib%)...$.menu_a|
000082c0 74 74 61 63 68 73 75 62 28 31 2c 6f 63 65 25 2c |ttachsub(1,oce%,|
000082d0 33 2c 6e 61 75 72 75 25 29 0d 1e 28 21 f2 6d 65 |3,nauru%)..(!.me|
000082e0 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f |nu_attachsub(1,o|
000082f0 63 65 25 2c 34 2c 6e 7a 25 29 0d 1e 32 22 f2 6d |ce%,4,nz%)..2".m|
00008300 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c |enu_attachsub(1,|
00008310 6f 63 65 25 2c 35 2c 70 6e 67 25 29 0d 1e 3c 26 |oce%,5,png%)..<&|
00008320 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00008330 31 2c 6f 63 65 25 2c 36 2c 73 6f 6c 6f 6d 6f 6e |1,oce%,6,solomon|
00008340 25 29 0d 1e 46 24 f2 6d 65 6e 75 5f 61 74 74 61 |%)..F$.menu_atta|
00008350 63 68 73 75 62 28 31 2c 6f 63 65 25 2c 37 2c 74 |chsub(1,oce%,7,t|
00008360 6f 6e 67 61 25 29 0d 1e 50 25 f2 6d 65 6e 75 5f |onga%)..P%.menu_|
00008370 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 65 25 |attachsub(1,oce%|
00008380 2c 38 2c 74 75 76 61 6c 75 25 29 0d 1e 5a 26 f2 |,8,tuvalu%)..Z&.|
00008390 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 31 |menu_attachsub(1|
000083a0 2c 6f 63 65 25 2c 39 2c 76 61 6e 75 61 74 75 25 |,oce%,9,vanuatu%|
000083b0 29 0d 1e 64 26 f2 6d 65 6e 75 5f 61 74 74 61 63 |)..d&.menu_attac|
000083c0 68 73 75 62 28 31 2c 6f 63 65 25 2c 31 30 2c 77 |hsub(1,oce%,10,w|
000083d0 73 61 6d 6f 61 25 29 0d 1e 6e 25 f2 6d 65 6e 75 |samoa%)..n%.menu|
000083e0 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 65 |_attachsub(1,oce|
000083f0 25 2c 31 31 2c 6f 63 61 75 73 25 29 0d 1e 78 24 |%,11,ocaus%)..x$|
00008400 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00008410 31 2c 6f 63 65 25 2c 31 32 2c 6f 63 62 72 25 29 |1,oce%,12,ocbr%)|
00008420 0d 1e 82 24 f2 6d 65 6e 75 5f 61 74 74 61 63 68 |...$.menu_attach|
00008430 73 75 62 28 31 2c 6f 63 65 25 2c 31 33 2c 6f 63 |sub(1,oce%,13,oc|
00008440 63 68 25 29 0d 1e 8c 24 f2 6d 65 6e 75 5f 61 74 |ch%)...$.menu_at|
00008450 74 61 63 68 73 75 62 28 31 2c 6f 63 65 25 2c 31 |tachsub(1,oce%,1|
00008460 34 2c 6f 63 66 72 25 29 0d 1e 96 24 f2 6d 65 6e |4,ocfr%)...$.men|
00008470 75 5f 61 74 74 61 63 68 73 75 62 28 31 2c 6f 63 |u_attachsub(1,oc|
00008480 65 25 2c 31 35 2c 6f 63 6e 7a 25 29 0d 1e a0 24 |e%,15,ocnz%)...$|
00008490 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
000084a0 31 2c 6f 63 65 25 2c 31 36 2c 6f 63 75 73 25 29 |1,oce%,16,ocus%)|
000084b0 0d 1e aa 05 e1 0d 1e b4 05 3a 0d 1e be 21 f4 20 |.........:...!. |
000084c0 43 72 65 61 74 65 20 61 20 6d 65 6e 75 20 66 6f |Create a menu fo|
000084d0 72 20 61 20 63 6f 75 6e 74 72 79 0d 1e c8 23 dd |r a country...#.|
000084e0 20 a4 63 6f 75 6e 74 72 79 6d 65 6e 75 28 63 6f | .countrymenu(co|
000084f0 75 6e 74 72 79 24 2c 66 6c 61 67 73 25 29 0d 1e |untry$,flags%)..|
00008500 d2 39 63 6f 75 6e 74 72 79 31 24 3d a4 77 69 6d |.9country1$=.wim|
00008510 70 5f 67 65 74 6d 65 73 73 61 67 65 28 63 6f 75 |p_getmessage(cou|
00008520 6e 74 72 79 24 2b 22 31 22 2c 62 25 2c 6d 65 6e |ntry$+"1",b%,men|
00008530 75 66 69 6c 65 25 29 0d 1e dc 1a 70 6f 73 69 74 |ufile%)....posit|
00008540 25 3d a7 63 6f 75 6e 74 72 79 31 24 2c 22 2c 22 |%=.country1$,","|
00008550 29 0d 1e e6 25 63 6f 75 6e 74 72 79 6d 65 6e 75 |)...%countrymenu|
00008560 24 3d c0 63 6f 75 6e 74 72 79 31 24 2c 70 6f 73 |$=.country1$,pos|
00008570 69 74 25 2d 31 29 0d 1e f0 39 e7 20 28 66 6c 61 |it%-1)...9. (fla|
00008580 67 73 25 20 80 20 25 31 30 30 30 30 30 29 3c 3e |gs% . %100000)<>|
00008590 30 20 8c 20 63 6f 75 6e 74 72 79 6d 65 6e 75 24 |0 . countrymenu$|
000085a0 2b 3d 22 2c 50 6f 70 75 6c 61 74 69 6f 6e 22 0d |+=",Population".|
000085b0 1e fa 33 e7 20 28 66 6c 61 67 73 25 20 80 20 25 |..3. (flags% . %|
000085c0 30 31 30 30 30 30 29 3c 3e 30 20 8c 20 63 6f 75 |010000)<>0 . cou|
000085d0 6e 74 72 79 6d 65 6e 75 24 2b 3d 22 2c 41 72 65 |ntrymenu$+=",Are|
000085e0 61 22 0d 1f 04 39 e7 20 28 66 6c 61 67 73 25 20 |a"...9. (flags% |
000085f0 80 20 25 30 30 31 30 30 30 29 3c 3e 30 20 8c 20 |. %001000)<>0 . |
00008600 63 6f 75 6e 74 72 79 6d 65 6e 75 24 2b 3d 22 2c |countrymenu$+=",|
00008610 47 6f 76 65 72 6e 6d 65 6e 74 22 0d 1f 0e 3b e7 |Government"...;.|
00008620 20 28 66 6c 61 67 73 25 20 80 20 25 30 30 30 31 | (flags% . %0001|
00008630 30 30 29 3c 3e 30 20 8c 20 63 6f 75 6e 74 72 79 |00)<>0 . country|
00008640 6d 65 6e 75 24 2b 3d 22 2c 43 61 70 69 74 61 6c |menu$+=",Capital|
00008650 20 43 69 74 79 22 0d 1f 18 3a e7 20 28 66 6c 61 | City"...:. (fla|
00008660 67 73 25 20 80 20 25 30 30 30 30 31 30 29 3c 3e |gs% . %000010)<>|
00008670 30 20 8c 20 63 6f 75 6e 74 72 79 6d 65 6e 75 24 |0 . countrymenu$|
00008680 2b 3d 22 2c 4c 61 72 67 65 20 54 6f 77 6e 73 22 |+=",Large Towns"|
00008690 0d 1f 22 1e 20 e7 20 28 66 6c 61 67 73 25 20 80 |..". . (flags% .|
000086a0 20 25 30 30 30 30 30 31 29 3c 3e 30 20 8c 0d 1f | %000001)<>0 ...|
000086b0 2c 22 20 20 63 6f 75 6e 74 72 79 6d 65 6e 75 24 |," countrymenu$|
000086c0 2b 3d 22 2c 20 20 52 65 67 69 6f 6e 73 3a 2c 22 |+=", Regions:,"|
000086d0 0d 1f 36 3f 20 20 63 6f 75 6e 74 72 79 6d 65 6e |..6? countrymen|
000086e0 75 24 2b 3d a4 77 69 6d 70 5f 67 65 74 6d 65 73 |u$+=.wimp_getmes|
000086f0 73 61 67 65 28 63 6f 75 6e 74 72 79 24 2b 22 34 |sage(country$+"4|
00008700 22 2c 62 25 2c 6d 65 6e 75 66 69 6c 65 25 29 0d |",b%,menufile%).|
00008710 1f 40 06 20 cd 0d 1f 4a 24 70 6f 73 69 74 32 25 |.@. ...J$posit2%|
00008720 3d a7 63 6f 75 6e 74 72 79 31 24 2c 22 2c 22 2c |=.country1$,",",|
00008730 70 6f 73 69 74 25 2b 31 29 0d 1f 54 34 63 6f 75 |posit%+1)..T4cou|
00008740 6e 74 72 79 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 |ntry%=.menu_make|
00008750 28 63 6f 75 6e 74 72 79 6d 65 6e 75 24 2c 6d 6e |(countrymenu$,mn|
00008760 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 0d 1f 5e |s%,mne%,ind%)..^|
00008770 0a 73 75 62 25 3d 30 0d 1f 68 d7 e7 20 28 66 6c |.sub%=0..h.. (fl|
00008780 61 67 73 25 20 80 20 25 31 30 30 30 30 30 29 3c |ags% . %100000)<|
00008790 3e 30 20 8c 20 74 65 6d 70 31 25 3d a4 6d 65 6e |>0 . temp1%=.men|
000087a0 75 5f 6d 61 6b 65 28 22 50 6f 70 75 6c 61 74 69 |u_make("Populati|
000087b0 6f 6e 2c 22 2b c1 63 6f 75 6e 74 72 79 31 24 2c |on,"+.country1$,|
000087c0 70 6f 73 69 74 25 2b 31 2c 70 6f 73 69 74 32 25 |posit%+1,posit2%|
000087d0 2d 70 6f 73 69 74 25 2d 31 29 2c 6d 6e 73 25 2c |-posit%-1),mns%,|
000087e0 6d 6e 65 25 2c 69 6e 64 25 29 3a 20 70 6f 73 69 |mne%,ind%): posi|
000087f0 74 25 3d 70 6f 73 69 74 32 25 3a 20 70 6f 73 69 |t%=posit2%: posi|
00008800 74 32 25 3d a7 63 6f 75 6e 74 72 79 31 24 2c 22 |t2%=.country1$,"|
00008810 2c 22 2c 70 6f 73 69 74 25 2b 31 29 3a 20 f2 6d |,",posit%+1): .m|
00008820 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c |enu_attachsub(0,|
00008830 63 6f 75 6e 74 72 79 25 2c 73 75 62 25 2c 74 65 |country%,sub%,te|
00008840 6d 70 31 25 29 3a 20 73 75 62 25 2b 3d 31 0d 1f |mp1%): sub%+=1..|
00008850 72 d7 e7 20 28 66 6c 61 67 73 25 20 80 20 25 30 |r.. (flags% . %0|
00008860 31 30 30 30 30 29 3c 3e 30 20 8c 20 74 65 6d 70 |10000)<>0 . temp|
00008870 32 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 22 41 |2%=.menu_make("A|
00008880 72 65 61 20 28 6b 6d b2 29 2c 22 2b c1 63 6f 75 |rea (km.),"+.cou|
00008890 6e 74 72 79 31 24 2c 70 6f 73 69 74 25 2b 31 2c |ntry1$,posit%+1,|
000088a0 70 6f 73 69 74 32 25 2d 70 6f 73 69 74 25 2d 31 |posit2%-posit%-1|
000088b0 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 |),mns%,mne%,ind%|
000088c0 29 3a 20 70 6f 73 69 74 25 3d 70 6f 73 69 74 32 |): posit%=posit2|
000088d0 25 3a 20 70 6f 73 69 74 32 25 3d a7 63 6f 75 6e |%: posit2%=.coun|
000088e0 74 72 79 31 24 2c 22 2c 22 2c 70 6f 73 69 74 25 |try1$,",",posit%|
000088f0 2b 31 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 |+1): .menu_attac|
00008900 68 73 75 62 28 30 2c 63 6f 75 6e 74 72 79 25 2c |hsub(0,country%,|
00008910 73 75 62 25 2c 74 65 6d 70 32 25 29 3a 20 73 75 |sub%,temp2%): su|
00008920 62 25 2b 3d 31 0d 1f 7c d7 e7 20 28 66 6c 61 67 |b%+=1..|.. (flag|
00008930 73 25 20 80 20 25 30 30 31 30 30 30 29 3c 3e 30 |s% . %001000)<>0|
00008940 20 8c 20 74 65 6d 70 33 25 3d a4 6d 65 6e 75 5f | . temp3%=.menu_|
00008950 6d 61 6b 65 28 22 47 6f 76 65 72 6e 6d 65 6e 74 |make("Government|
00008960 2c 22 2b c1 63 6f 75 6e 74 72 79 31 24 2c 70 6f |,"+.country1$,po|
00008970 73 69 74 25 2b 31 2c 70 6f 73 69 74 32 25 2d 70 |sit%+1,posit2%-p|
00008980 6f 73 69 74 25 2d 31 29 2c 6d 6e 73 25 2c 6d 6e |osit%-1),mns%,mn|
00008990 65 25 2c 69 6e 64 25 29 3a 20 70 6f 73 69 74 25 |e%,ind%): posit%|
000089a0 3d 70 6f 73 69 74 32 25 3a 20 70 6f 73 69 74 32 |=posit2%: posit2|
000089b0 25 3d a7 63 6f 75 6e 74 72 79 31 24 2c 22 2c 22 |%=.country1$,","|
000089c0 2c 70 6f 73 69 74 25 2b 31 29 3a 20 f2 6d 65 6e |,posit%+1): .men|
000089d0 75 5f 61 74 74 61 63 68 73 75 62 28 30 2c 63 6f |u_attachsub(0,co|
000089e0 75 6e 74 72 79 25 2c 73 75 62 25 2c 74 65 6d 70 |untry%,sub%,temp|
000089f0 33 25 29 3a 20 73 75 62 25 2b 3d 31 0d 1f 86 d9 |3%): sub%+=1....|
00008a00 e7 20 28 66 6c 61 67 73 25 20 80 20 25 30 30 30 |. (flags% . %000|
00008a10 31 30 30 29 3c 3e 30 20 8c 20 74 65 6d 70 34 25 |100)<>0 . temp4%|
00008a20 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 22 43 61 70 |=.menu_make("Cap|
00008a30 69 74 61 6c 20 43 69 74 79 2c 22 2b c1 63 6f 75 |ital City,"+.cou|
00008a40 6e 74 72 79 31 24 2c 70 6f 73 69 74 25 2b 31 2c |ntry1$,posit%+1,|
00008a50 70 6f 73 69 74 32 25 2d 70 6f 73 69 74 25 2d 31 |posit2%-posit%-1|
00008a60 29 2c 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 |),mns%,mne%,ind%|
00008a70 29 3a 20 70 6f 73 69 74 25 3d 70 6f 73 69 74 32 |): posit%=posit2|
00008a80 25 3a 20 70 6f 73 69 74 32 25 3d a7 63 6f 75 6e |%: posit2%=.coun|
00008a90 74 72 79 31 24 2c 22 2c 22 2c 70 6f 73 69 74 25 |try1$,",",posit%|
00008aa0 2b 31 29 3a 20 f2 6d 65 6e 75 5f 61 74 74 61 63 |+1): .menu_attac|
00008ab0 68 73 75 62 28 30 2c 63 6f 75 6e 74 72 79 25 2c |hsub(0,country%,|
00008ac0 73 75 62 25 2c 74 65 6d 70 34 25 29 3a 20 73 75 |sub%,temp4%): su|
00008ad0 62 25 2b 3d 31 0d 1f 90 1e 20 e7 20 28 66 6c 61 |b%+=1.... . (fla|
00008ae0 67 73 25 20 80 20 25 30 30 30 30 31 30 29 3c 3e |gs% . %000010)<>|
00008af0 30 20 8c 0d 1f 9a a6 20 20 62 69 67 63 69 74 25 |0 ..... bigcit%|
00008b00 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 22 4c 61 72 |=.menu_make("Lar|
00008b10 67 65 20 54 6f 77 6e 73 2c 22 2b a4 77 69 6d 70 |ge Towns,"+.wimp|
00008b20 5f 67 65 74 6d 65 73 73 61 67 65 28 63 6f 75 6e |_getmessage(coun|
00008b30 74 72 79 24 2b 22 32 22 2c 62 25 2c 6d 65 6e 75 |try$+"2",b%,menu|
00008b40 66 69 6c 65 25 29 2c 6d 6e 73 25 2c 6d 6e 65 25 |file%),mns%,mne%|
00008b50 2c 69 6e 64 25 29 3a 20 70 6f 73 69 74 25 3d 70 |,ind%): posit%=p|
00008b60 6f 73 69 74 32 25 3a 20 f2 6d 65 6e 75 5f 61 74 |osit2%: .menu_at|
00008b70 74 61 63 68 73 75 62 28 30 2c 63 6f 75 6e 74 72 |tachsub(0,countr|
00008b80 79 25 2c 73 75 62 25 2c 62 69 67 63 69 74 25 29 |y%,sub%,bigcit%)|
00008b90 3a 20 73 75 62 25 2b 3d 31 0d 1f a4 3a 20 20 63 |: sub%+=1...: c|
00008ba0 69 74 70 6f 70 73 24 3d a4 77 69 6d 70 5f 67 65 |itpops$=.wimp_ge|
00008bb0 74 6d 65 73 73 61 67 65 28 63 6f 75 6e 74 72 79 |tmessage(country|
00008bc0 24 2b 22 33 22 2c 62 25 2c 6d 65 6e 75 66 69 6c |$+"3",b%,menufil|
00008bd0 65 25 29 0d 1f ae 0e 20 20 70 6f 73 69 74 25 3d |e%).... posit%=|
00008be0 30 0d 1f b8 2c 20 20 20 e3 20 63 69 74 79 25 3d |0..., . city%=|
00008bf0 31 20 b8 20 a4 6d 65 6e 75 5f 63 6f 75 6e 74 69 |1 . .menu_counti|
00008c00 74 65 6d 73 28 62 69 67 63 69 74 25 29 0d 1f c2 |tems(bigcit%)...|
00008c10 27 20 20 20 20 70 6f 73 69 74 32 25 3d a7 63 69 |' posit2%=.ci|
00008c20 74 70 6f 70 73 24 2c 22 2c 22 2c 70 6f 73 69 74 |tpops$,",",posit|
00008c30 25 2b 31 29 0d 1f cc 5c 20 20 20 20 74 65 6d 70 |%+1)...\ temp|
00008c40 25 3d a4 6d 65 6e 75 5f 6d 61 6b 65 28 22 50 6f |%=.menu_make("Po|
00008c50 70 75 6c 61 74 69 6f 6e 2c 22 2b c1 63 69 74 70 |pulation,"+.citp|
00008c60 6f 70 73 24 2c 70 6f 73 69 74 25 2b 31 2c 70 6f |ops$,posit%+1,po|
00008c70 73 69 74 32 25 2d 70 6f 73 69 74 25 2d 31 29 2c |sit2%-posit%-1),|
00008c80 6d 6e 73 25 2c 6d 6e 65 25 2c 69 6e 64 25 29 3a |mns%,mne%,ind%):|
00008c90 0d 1f d6 38 20 20 20 20 70 6f 73 69 74 25 3d 70 |...8 posit%=p|
00008ca0 6f 73 69 74 32 25 3a 20 70 6f 73 69 74 32 25 3d |osit2%: posit2%=|
00008cb0 a7 63 6f 75 6e 74 72 79 31 24 2c 22 2c 22 2c 70 |.country1$,",",p|
00008cc0 6f 73 69 74 25 2b 31 29 0d 1f e0 30 20 20 20 20 |osit%+1)...0 |
00008cd0 f2 6d 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 |.menu_attachsub(|
00008ce0 30 2c 62 69 67 63 69 74 25 2c 63 69 74 79 25 2d |0,bigcit%,city%-|
00008cf0 31 2c 74 65 6d 70 25 29 0d 1f ea 08 20 20 20 ed |1,temp%).... .|
00008d00 0d 1f f4 06 20 cd 0d 1f fe 42 e7 20 28 66 6c 61 |.... ....B. (fla|
00008d10 67 73 25 20 80 20 25 30 30 30 30 30 31 29 3c 3e |gs% . %000001)<>|
00008d20 30 20 8c 20 f2 6d 65 6e 75 5f 73 65 74 69 74 65 |0 . .menu_setite|
00008d30 6d 6c 69 6e 65 28 63 6f 75 6e 74 72 79 25 2c 73 |mline(country%,s|
00008d40 75 62 25 2d 31 2c b9 29 0d 20 08 1e 70 65 72 63 |ub%-1,.). ..perc|
00008d50 65 6e 74 61 67 65 2b 3d 31 30 30 2f 63 6f 75 6e |entage+=100/coun|
00008d60 74 72 69 65 73 25 0d 20 12 27 c8 99 22 48 6f 75 |tries%. .'.."Hou|
00008d70 72 67 6c 61 73 73 5f 50 65 72 63 65 6e 74 61 67 |rglass_Percentag|
00008d80 65 22 2c 70 65 72 63 65 6e 74 61 67 65 0d 20 1c |e",percentage. .|
00008d90 0d 3d 63 6f 75 6e 74 72 79 25 0d 20 26 04 0d 20 |.=country%. &.. |
00008da0 30 38 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |08. ============|
00008db0 3d 3d 3d 3d 3d 3d 20 4c 69 62 72 61 72 69 65 73 |====== Libraries|
00008dc0 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ===============|
00008dd0 3d 3d 3d 3d 3d 3d 0d 20 3a 3d dd a4 77 69 6d 70 |======. :=..wimp|
00008de0 5f 65 72 72 6f 72 28 43 60 24 2c 49 5f 25 29 3a |_error(C`$,I_%):|
00008df0 ea 20 44 60 25 2c 45 60 25 3a 44 60 25 3d a3 3a |. D`%,E`%:D`%=.:|
00008e00 46 60 24 3d 22 22 3a 47 60 24 3d 22 22 3a c8 8e |F`$="":G`$="":..|
00008e10 9f 20 ca 0d 20 44 31 c9 20 31 3c 3c 33 30 3a 48 |. .. D1. 1<<30:H|
00008e20 60 24 3d 22 22 3a 64 5f 24 3d 22 45 72 72 6f 72 |`$="":d_$="Error|
00008e30 20 66 72 6f 6d 20 22 2b 43 60 24 3a 46 60 24 3d | from "+C`$:F`$=|
00008e40 22 4f 4b 22 0d 20 4e 38 c9 20 28 31 3c 3c 33 30 |"OK". N8. (1<<30|
00008e50 29 2b 31 3a 48 60 24 3d 22 22 3a 64 5f 24 3d 22 |)+1:H`$="":d_$="|
00008e60 52 65 6d 69 6e 64 65 72 20 66 72 6f 6d 20 22 2b |Reminder from "+|
00008e70 43 60 24 3a 46 60 24 3d 22 4f 4b 22 0d 20 58 87 |C`$:F`$="OK". X.|
00008e80 7f 3a 44 60 25 3d b9 3a 48 60 24 3d 22 20 61 74 |.:D`%=.:H`$=" at|
00008e90 20 6c 69 6e 65 20 22 2b c3 9e 2b 22 20 20 20 45 | line "+..+" E|
00008ea0 72 72 6f 72 20 63 6f 64 65 3a 20 22 2b c3 9f 2b |rror code: "+..+|
00008eb0 22 20 28 4f 4b 20 74 6f 20 63 6f 6e 74 69 6e 75 |" (OK to continu|
00008ec0 65 2c 20 43 61 6e 63 65 6c 20 74 6f 20 71 75 69 |e, Cancel to qui|
00008ed0 74 29 22 3a 64 5f 24 3d 22 45 72 72 6f 72 20 66 |t)":d_$="Error f|
00008ee0 72 6f 6d 20 22 2b 43 60 24 3a 46 60 24 3d 22 43 |rom "+C`$:F`$="C|
00008ef0 6f 6e 74 69 6e 75 65 22 3a 47 60 24 3d 22 51 75 |ontinue":G`$="Qu|
00008f00 69 74 22 0d 20 62 45 cb 3a 45 60 25 3d a4 77 69 |it". bE.:E`%=.wi|
00008f10 6d 70 5f 72 65 70 6f 72 74 65 72 72 6f 72 28 f6 |mp_reporterror(.|
00008f20 24 2b 48 60 24 2c 64 5f 24 2c 46 60 24 2c 47 60 |$+H`$,d_$,F`$,G`|
00008f30 24 2c 49 5f 25 29 3a e7 20 44 60 25 3d b9 20 80 |$,I_%):. D`%=. .|
00008f40 20 45 60 25 3d 32 20 8c 0d 20 6c 87 45 60 25 3d | E`%=2 .. l.E`%=|
00008f50 a4 77 69 6d 70 5f 72 65 70 6f 72 74 65 72 72 6f |.wimp_reporterro|
00008f60 72 28 22 41 72 65 20 79 6f 75 20 73 75 72 65 20 |r("Are you sure |
00008f70 79 6f 75 20 77 61 6e 74 20 74 6f 20 71 75 69 74 |you want to quit|
00008f80 3f 20 28 4f 4b 20 74 6f 20 63 6f 6e 74 69 6e 75 |? (OK to continu|
00008f90 65 2c 20 43 61 6e 63 65 6c 20 74 6f 20 71 75 69 |e, Cancel to qui|
00008fa0 74 29 22 2c 22 51 75 65 73 74 69 6f 6e 20 66 72 |t)","Question fr|
00008fb0 6f 6d 20 22 2b 43 60 24 2c 22 43 6f 6e 74 69 6e |om "+C`$,"Contin|
00008fc0 75 65 22 2c 22 51 75 69 74 22 2c 49 5f 25 29 0d |ue","Quit",I_%).|
00008fd0 20 76 0e cd 3a 3d 28 45 60 25 3d 32 29 0d 20 80 | v..:=(E`%=2). .|
00008fe0 04 0d 20 8a 2b dd a4 77 69 6d 70 5f 72 65 70 6f |.. .+..wimp_repo|
00008ff0 72 74 65 72 72 6f 72 28 49 60 24 2c 64 5f 24 2c |rterror(I`$,d_$,|
00009000 46 60 24 2c 47 60 24 2c 49 5f 25 29 0d 20 94 19 |F`$,G`$,I_%). ..|
00009010 49 5f 25 21 30 3d 9f 3a 20 24 28 49 5f 25 2b 34 |I_%!0=.: $(I_%+4|
00009020 29 3d 49 60 24 0d 20 9e 0f 20 e7 20 47 60 24 3d |)=I`$. .. . G`$=|
00009030 22 22 20 8c 0d 20 a8 36 20 20 c8 99 22 57 69 6d |"" .. .6 .."Wim|
00009040 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 49 |p_ReportError",I|
00009050 5f 25 2c 25 30 31 30 30 30 31 2c 64 5f 24 20 b8 |_%,%010001,d_$ .|
00009060 20 2c 72 65 73 75 6c 74 5f 25 0d 20 b2 06 20 cc | ,result_%. .. .|
00009070 0d 20 bc 38 20 20 c8 99 22 57 69 6d 70 5f 52 65 |. .8 .."Wimp_Re|
00009080 70 6f 72 74 45 72 72 6f 72 22 2c 49 5f 25 2c 25 |portError",I_%,%|
00009090 30 31 30 30 31 31 2c 64 5f 24 20 b8 20 2c 72 65 |010011,d_$ . ,re|
000090a0 73 75 6c 74 5f 25 20 20 0d 20 c6 06 20 cd 0d 20 |sult_% . .. .. |
000090b0 d0 0d 3d 72 65 73 75 6c 74 5f 25 0d 20 da 04 0d |..=result_%. ...|
000090c0 20 e4 2e dd f2 77 69 6d 70 5f 63 6c 6f 73 65 28 | ....wimp_close(|
000090d0 41 60 25 29 3a c8 99 32 36 32 33 36 35 2c 41 60 |A`%):..262365,A`|
000090e0 25 2c 26 34 42 35 33 34 31 35 34 3a e1 0d 20 ee |%,&4B534154:.. .|
000090f0 04 0d 20 f8 34 dd f2 6d 65 6e 75 5f 73 68 6f 77 |.. .4..menu_show|
00009100 28 67 5f 25 2c 4b 5f 25 2c 4c 5f 25 29 3a c8 99 |(g_%,K_%,L_%):..|
00009110 32 36 32 33 35 36 2c 2c 67 5f 25 2c 4b 5f 25 2c |262356,,g_%,K_%,|
00009120 4c 5f 25 3a e1 0d 21 02 04 0d 21 0c 8d dd f2 6d |L_%:..!...!....m|
00009130 65 6e 75 5f 69 63 6f 6e 62 61 72 28 67 5f 25 2c |enu_iconbar(g_%,|
00009140 49 5f 25 29 3a ea 20 79 5f 25 2c 68 5f 25 3a c8 |I_%):. y_%,h_%:.|
00009150 99 32 36 32 33 35 31 2c 2c 49 5f 25 3a 79 5f 25 |.262351,,I_%:y_%|
00009160 3d a4 6d 65 6e 75 5f 63 6f 75 6e 74 69 74 65 6d |=.menu_countitem|
00009170 73 28 67 5f 25 29 3a 51 5f 25 3d 79 5f 25 2a 34 |s(g_%):Q_%=y_%*4|
00009180 34 3a e3 20 68 5f 25 3d 31 20 b8 20 79 5f 25 3a |4:. h_%=1 . y_%:|
00009190 e7 a4 6d 65 6e 75 5f 67 65 74 69 74 65 6d 6c 69 |..menu_getitemli|
000091a0 6e 65 28 67 5f 25 2c 68 5f 25 2d 31 29 8c 20 51 |ne(g_%,h_%-1). Q|
000091b0 5f 25 2b 3d 32 34 0d 21 16 2c ed 3a c8 99 32 36 |_%+=24.!.,.:..26|
000091c0 32 33 35 36 2c 2c 67 5f 25 2c 21 49 5f 25 2d 28 |2356,,g_%,!I_%-(|
000091d0 67 5f 25 21 31 36 2f 32 29 2c 39 36 2b 51 5f 25 |g_%!16/2),96+Q_%|
000091e0 3a e1 0d 21 20 04 0d 21 2a ad dd f2 6d 65 6e 75 |:..! ..!*...menu|
000091f0 5f 77 69 6e 64 6f 77 28 61 5f 25 2c 49 5f 25 29 |_window(a_%,I_%)|
00009200 3a ea 20 4f 5f 25 2c 50 5f 25 2c 51 5f 25 2c 52 |:. O_%,P_%,Q_%,R|
00009210 5f 25 3a c8 99 32 36 32 33 35 31 2c 2c 49 5f 25 |_%:..262351,,I_%|
00009220 3a 4f 5f 25 3d 49 5f 25 21 30 3a 50 5f 25 3d 49 |:O_%=I_%!0:P_%=I|
00009230 5f 25 21 34 3a 21 49 5f 25 3d 61 5f 25 3a c8 99 |_%!4:!I_%=a_%:..|
00009240 32 36 32 33 34 37 2c 2c 49 5f 25 3a 51 5f 25 3d |262347,,I_%:Q_%=|
00009250 49 5f 25 21 38 2d 49 5f 25 21 31 36 3a 52 5f 25 |I_%!8-I_%!16:R_%|
00009260 3d 49 5f 25 21 34 2d 49 5f 25 21 31 32 3a f2 6d |=I_%!4-I_%!12:.m|
00009270 65 6e 75 5f 73 68 6f 77 28 61 5f 25 2c 4f 5f 25 |enu_show(a_%,O_%|
00009280 2b 52 5f 25 2f 32 2c 50 5f 25 2d 51 5f 25 2f 32 |+R_%/2,P_%-Q_%/2|
00009290 29 3a e1 0d 21 34 04 0d 21 3e 60 dd f2 6d 65 6e |):..!4..!>`..men|
000092a0 75 5f 61 64 6a 75 73 74 28 49 5f 25 2c 67 5f 25 |u_adjust(I_%,g_%|
000092b0 29 3a f4 4c 4f 43 41 4c 20 60 5f 25 3a 53 59 53 |):.LOCAL `_%:SYS|
000092c0 32 36 32 33 35 31 2c 2c 49 5f 25 3a 60 5f 25 3d |262351,,I_%:`_%=|
000092d0 28 49 5f 25 21 38 20 41 4e 44 20 31 29 3a 49 46 |(I_%!8 AND 1):IF|
000092e0 20 60 5f 25 3d 46 41 4c 53 45 20 54 48 45 4e 20 | `_%=FALSE THEN |
000092f0 45 4e 44 50 52 4f 43 0d 21 48 13 c8 99 32 36 32 |ENDPROC.!H...262|
00009300 33 35 36 2c 2c 67 5f 25 3a e1 0d 21 52 04 0d 21 |356,,g_%:..!R..!|
00009310 5c 2c dd f2 77 69 6e 5f 6f 70 65 6e 74 65 6d 70 |\,..win_opentemp|
00009320 6c 61 74 65 73 28 44 5f 24 29 3a c8 99 32 36 32 |lates(D_$):..262|
00009330 33 36 31 2c 2c 44 5f 24 3a e1 0d 21 66 04 0d 21 |361,,D_$:..!f..!|
00009340 70 23 dd f2 77 69 6e 5f 63 6c 6f 73 65 74 65 6d |p#..win_closetem|
00009350 70 6c 61 74 65 73 3a c8 99 32 36 32 33 36 32 3a |plates:..262362:|
00009360 e1 0d 21 7a 04 0d 21 84 7f dd a4 77 69 6d 70 5f |..!z..!....wimp_|
00009370 6f 70 65 6e 6d 65 73 73 61 67 65 73 28 50 60 24 |openmessages(P`$|
00009380 29 3a ea 20 51 60 25 2c 52 60 25 2c 53 60 25 3a |):. Q`%,R`%,S`%:|
00009390 c8 99 38 2c 31 35 2c 50 60 24 20 b8 20 51 60 25 |..8,15,P`$ . Q`%|
000093a0 2c 2c 2c 2c 52 60 25 3a e7 20 51 60 25 3d 30 20 |,,,,R`%:. Q`%=0 |
000093b0 8c 85 20 30 2c 22 4d 65 73 73 61 67 65 20 66 69 |.. 0,"Message fi|
000093c0 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 |le not found in |
000093d0 46 4e 77 69 6d 70 5f 6f 70 65 6e 6d 65 73 73 61 |FNwimp_openmessa|
000093e0 67 65 73 22 0d 21 8e 2f de 20 54 60 25 31 36 2c |ges".!./. T`%16,|
000093f0 53 60 25 52 60 25 2b 31 36 3a c8 99 32 36 37 35 |S`%R`%+16:..2675|
00009400 32 31 2c 54 60 25 2c 50 60 24 2c 53 60 25 3a 3d |21,T`%,P`$,S`%:=|
00009410 54 60 25 0d 21 98 04 0d 21 a2 a9 dd a4 6d 65 6e |T`%.!...!....men|
00009420 75 5f 6d 61 6b 65 28 67 5f 24 2c f8 20 65 5f 25 |u_make(g_$,. e_%|
00009430 2c 66 5f 25 2c f8 20 6a 5f 25 29 3a ea 20 6f 5f |,f_%,. j_%):. o_|
00009440 25 2c 70 5f 25 2c 71 5f 25 2c 72 5f 25 2c 73 5f |%,p_%,q_%,r_%,s_|
00009450 25 3a 6f 5f 25 3d a3 3a 70 5f 25 3d a3 3a 71 5f |%:o_%=.:p_%=.:q_|
00009460 25 3d a3 3a 72 5f 25 3d a3 3a 73 5f 25 3d a3 3a |%=.:r_%=.:s_%=.:|
00009470 74 5f 25 3d a7 67 5f 24 2c 22 2c 22 29 3a 64 5f |t_%=.g_$,","):d_|
00009480 24 3d c0 67 5f 24 2c 74 5f 25 2d 31 29 3a 52 5f |$=.g_$,t_%-1):R_|
00009490 25 3d a9 64 5f 24 2d 33 3a 67 5f 25 3d a4 6d 65 |%=.d_$-3:g_%=.me|
000094a0 6e 75 5f 68 65 61 64 65 72 28 64 5f 24 2c 52 5f |nu_header(d_$,R_|
000094b0 25 2a 31 36 2b 33 32 2c 65 5f 25 2c 66 5f 25 29 |%*16+32,e_%,f_%)|
000094c0 0d 21 ac 39 68 5f 25 3d 30 3a 75 5f 25 3d a7 67 |.!.9h_%=0:u_%=.g|
000094d0 5f 24 2c 22 2c 22 2c 74 5f 25 2b 31 29 3a f5 3a |_$,",",t_%+1):.:|
000094e0 68 5f 24 3d c1 67 5f 24 2c 74 5f 25 2b 31 2c 75 |h_$=.g_$,t_%+1,u|
000094f0 5f 25 2d 31 2d 74 5f 25 29 0d 21 b6 29 e7 c0 68 |_%-1-t_%).!.)..h|
00009500 5f 24 2c 31 29 3d 22 80 22 20 8c 20 6f 5f 25 3d |_$,1)="." . o_%=|
00009510 b9 3a 68 5f 24 3d c2 68 5f 24 2c a9 68 5f 24 2d |.:h_$=.h_$,.h_$-|
00009520 31 29 0d 21 c0 29 e7 c0 68 5f 24 2c 31 29 3d 22 |1).!.)..h_$,1)="|
00009530 2d 22 20 8c 20 70 5f 25 3d b9 3a 68 5f 24 3d c2 |-" . p_%=.:h_$=.|
00009540 68 5f 24 2c a9 68 5f 24 2d 31 29 0d 21 ca 6b e7 |h_$,.h_$-1).!.k.|
00009550 c0 68 5f 24 2c 31 29 3d 22 40 22 20 8c 20 71 5f |.h_$,1)="@" . q_|
00009560 25 3d b9 3a 68 5f 24 3d c2 68 5f 24 2c a9 68 5f |%=.:h_$=.h_$,.h_|
00009570 24 2d 31 29 3a 76 5f 25 3d 28 97 68 5f 24 2d 34 |$-1):v_%=(.h_$-4|
00009580 38 29 2a 31 30 3a 68 5f 24 3d c2 68 5f 24 2c a9 |8)*10:h_$=.h_$,.|
00009590 68 5f 24 2d 31 29 3a 76 5f 25 2b 3d 28 97 68 5f |h_$-1):v_%+=(.h_|
000095a0 24 2d 34 38 29 3a 68 5f 24 3d c2 68 5f 24 2c a9 |$-48):h_$=.h_$,.|
000095b0 68 5f 24 2d 31 29 0d 21 d4 29 e7 c0 68 5f 24 2c |h_$-1).!.)..h_$,|
000095c0 31 29 3d 22 2b 22 20 8c 20 72 5f 25 3d b9 3a 68 |1)="+" . r_%=.:h|
000095d0 5f 24 3d c2 68 5f 24 2c a9 68 5f 24 2d 31 29 0d |_$=.h_$,.h_$-1).|
000095e0 21 de 29 e7 c0 68 5f 24 2c 31 29 3d 22 2a 22 20 |!.)..h_$,1)="*" |
000095f0 8c 20 73 5f 25 3d b9 3a 68 5f 24 3d c2 68 5f 24 |. s_%=.:h_$=.h_$|
00009600 2c a9 68 5f 24 2d 31 29 0d 21 e8 4e f2 6d 65 6e |,.h_$-1).!.N.men|
00009610 75 5f 69 74 65 6d 28 68 5f 24 2c 2d 31 2c 65 5f |u_item(h_$,-1,e_|
00009620 25 2c 66 5f 25 2c 6a 5f 25 29 3a e7 20 6f 5f 25 |%,f_%,j_%):. o_%|
00009630 3d b9 20 8c f2 6d 65 6e 75 5f 73 65 74 69 74 65 |=. ..menu_setite|
00009640 6d 74 69 63 6b 28 67 5f 25 2c 68 5f 25 2c b9 29 |mtick(g_%,h_%,.)|
00009650 3a 6f 5f 25 3d a3 0d 21 f2 2f e7 20 70 5f 25 3d |:o_%=..!./. p_%=|
00009660 b9 20 8c f2 6d 65 6e 75 5f 73 65 74 69 74 65 6d |. ..menu_setitem|
00009670 6c 69 6e 65 28 67 5f 25 2c 68 5f 25 2c b9 29 3a |line(g_%,h_%,.):|
00009680 70 5f 25 3d a3 0d 21 fc 3a e7 20 71 5f 25 3d b9 |p_%=..!.:. q_%=.|
00009690 20 8c f2 6d 65 6e 75 5f 73 65 74 69 74 65 6d 77 | ..menu_setitemw|
000096a0 72 69 74 65 28 67 5f 25 2c 68 5f 25 2c b9 2c 6a |rite(g_%,h_%,.,j|
000096b0 5f 25 2c 76 5f 25 2b 31 29 3a 71 5f 25 3d a3 0d |_%,v_%+1):q_%=..|
000096c0 22 06 2f e7 20 72 5f 25 3d b9 20 8c f2 6d 65 6e |"./. r_%=. ..men|
000096d0 75 5f 73 65 74 69 74 65 6d 6d 65 73 73 28 67 5f |u_setitemmess(g_|
000096e0 25 2c 68 5f 25 2c b9 29 3a 72 5f 25 3d a3 0d 22 |%,h_%,.):r_%=.."|
000096f0 10 2f e7 20 73 5f 25 3d b9 20 8c f2 6d 65 6e 75 |./. s_%=. ..menu|
00009700 5f 73 65 74 69 74 65 6d 67 72 65 79 28 67 5f 25 |_setitemgrey(g_%|
00009710 2c 68 5f 25 2c b9 29 3a 73 5f 25 3d a3 0d 22 1a |,h_%,.):s_%=..".|
00009720 3a 74 5f 25 3d 75 5f 25 3a 75 5f 25 3d a7 67 5f |:t_%=u_%:u_%=.g_|
00009730 24 2c 22 2c 22 2c 75 5f 25 2b 31 29 3a 68 5f 25 |$,",",u_%+1):h_%|
00009740 2b 3d 31 3a e7 a9 68 5f 24 3e 52 5f 25 8c 20 52 |+=1:..h_$>R_%. R|
00009750 5f 25 3d a9 68 5f 24 0d 22 24 40 fd 20 74 5f 25 |_%=.h_$."$@. t_%|
00009760 3d 30 3a 67 5f 25 21 31 36 3d 52 5f 25 2a 31 36 |=0:g_%!16=R_%*16|
00009770 2b 33 32 3a f2 6d 65 6e 75 5f 73 65 74 69 74 65 |+32:.menu_setite|
00009780 6d 6c 61 73 74 28 67 5f 25 2c 68 5f 25 2d 31 2c |mlast(g_%,h_%-1,|
00009790 b9 29 3a 3d 67 5f 25 0d 22 2e 04 0d 22 38 5a dd |.):=g_%."..."8Z.|
000097a0 a4 77 69 6d 70 5f 67 65 74 6d 65 73 73 61 67 65 |.wimp_getmessage|
000097b0 28 55 60 24 2c 49 5f 25 2c 54 60 5f 25 29 3a ea |(U`$,I_%,T`_%):.|
000097c0 20 61 25 3a c8 99 32 36 37 35 32 32 2c 54 60 5f | a%:..267522,T`_|
000097d0 25 2c 55 60 24 2c 49 5f 25 b8 2c 2c 78 5f 25 3a |%,U`$,I_%.,,x_%:|
000097e0 3d a4 77 69 6d 70 5f 67 65 74 73 74 72 69 6e 67 |=.wimp_getstring|
000097f0 28 78 5f 25 29 0d 22 42 04 0d 22 4c 3e dd f2 6d |(x_%)."B.."L>..m|
00009800 65 6e 75 5f 61 74 74 61 63 68 73 75 62 28 66 6c |enu_attachsub(fl|
00009810 61 67 25 2c 67 5f 25 2c 68 5f 25 2c 69 5f 25 29 |ag%,g_%,h_%,i_%)|
00009820 3a 21 28 67 5f 25 2b 32 38 2b 68 5f 25 2a 32 34 |:!(g_%+28+h_%*24|
00009830 2b 34 29 3d 69 5f 25 0d 22 56 0e 20 e7 20 66 6c |+4)=i_%."V. . fl|
00009840 61 67 25 20 8c 0d 22 60 2d 20 20 66 6c 61 67 63 |ag% .."`- flagc|
00009850 6f 75 6e 74 72 79 24 3d a4 6d 65 6e 75 5f 67 65 |ountry$=.menu_ge|
00009860 74 69 74 65 6d 74 65 78 74 28 67 5f 25 2c 68 5f |titemtext(g_%,h_|
00009870 25 29 0d 22 6a 30 20 20 e7 20 a7 66 6c 61 67 63 |%)."j0 . .flagc|
00009880 6f 75 6e 74 72 79 24 2c 22 20 22 29 3e 30 20 8c |ountry$," ")>0 .|
00009890 20 6d 6f 72 65 25 3d 31 20 8b 20 6d 6f 72 65 25 | more%=1 . more%|
000098a0 3d 30 0d 22 74 11 20 20 20 c8 95 20 6d 6f 72 65 |=0."t. .. more|
000098b0 25 3e 30 0d 22 7e 20 20 20 20 20 6d 6f 72 65 25 |%>0."~ more%|
000098c0 3d a7 66 6c 61 67 63 6f 75 6e 74 72 79 24 2c 22 |=.flagcountry$,"|
000098d0 20 22 29 0d 22 88 2c 20 20 20 20 e7 20 6d 6f 72 | ")."., . mor|
000098e0 65 25 3e 30 20 c1 66 6c 61 67 63 6f 75 6e 74 72 |e%>0 .flagcountr|
000098f0 79 24 2c 6d 6f 72 65 25 2c 31 29 3d 22 5f 22 0d |y$,more%,1)="_".|
00009900 22 92 08 20 20 20 ce 0d 22 9c 35 20 20 f2 6d 65 |".. ..".5 .me|
00009910 6e 75 5f 73 65 74 69 74 65 6d 76 61 6c 28 67 5f |nu_setitemval(g_|
00009920 25 2c 68 5f 25 2c 22 53 22 2b c0 66 6c 61 67 63 |%,h_%,"S"+.flagc|
00009930 6f 75 6e 74 72 79 24 2c 31 32 29 29 0d 22 a6 06 |ountry$,12))."..|
00009940 20 cd 0d 22 b0 05 e1 0d 22 ba 04 0d 22 c4 5a dd | .."...."...".Z.|
00009950 a4 6d 65 6e 75 5f 67 65 74 69 74 65 6d 74 65 78 |.menu_getitemtex|
00009960 74 28 67 5f 25 2c 68 5f 25 29 3a e7 20 28 67 5f |t(g_%,h_%):. (g_|
00009970 25 21 28 32 38 2b 32 34 2a 68 5f 25 2b 38 29 80 |%!(28+24*h_%+8).|
00009980 25 31 30 30 30 30 30 30 30 30 29 3c 3e 30 20 8c |%100000000)<>0 .|
00009990 20 3d 24 67 5f 25 21 28 32 38 2b 32 34 2a 68 5f | =$g_%!(28+24*h_|
000099a0 25 2b 31 32 29 0d 22 ce 28 3d a4 77 69 6d 70 5f |%+12).".(=.wimp_|
000099b0 67 65 74 73 74 72 69 6e 67 28 67 5f 25 2b 28 32 |getstring(g_%+(2|
000099c0 38 2b 32 34 2a 68 5f 25 2b 31 32 29 29 0d 22 d8 |8+24*h_%+12)).".|
000099d0 04 0d 22 e2 7c dd f2 6d 65 6e 75 5f 73 65 74 69 |..".|..menu_seti|
000099e0 74 65 6d 76 61 6c 28 6b 5f 25 2c 68 5f 25 2c 6e |temval(k_%,h_%,n|
000099f0 5f 24 29 3a e7 20 28 6b 5f 25 21 28 32 38 2b 68 |_$):. (k_%!(28+h|
00009a00 5f 25 2a 32 34 2b 38 29 80 25 31 30 30 30 30 30 |_%*24+8).%100000|
00009a10 30 30 30 29 3d 30 20 8c 85 20 30 2c 22 4d 65 6e |000)=0 .. 0,"Men|
00009a20 75 20 69 74 65 6d 20 6e 6f 74 20 69 6e 64 69 72 |u item not indir|
00009a30 65 63 74 65 64 20 69 6e 20 50 52 4f 43 6d 65 6e |ected in PROCmen|
00009a40 75 5f 73 65 74 69 74 65 6d 76 61 6c 22 0d 22 ec |u_setitemval".".|
00009a50 34 24 69 6e 64 25 3d 6e 5f 24 3a 6b 5f 25 21 28 |4$ind%=n_$:k_%!(|
00009a60 32 38 2b 68 5f 25 2a 32 34 2b 31 36 29 3d 69 6e |28+h_%*24+16)=in|
00009a70 64 25 3a 69 6e 64 25 2b 3d a9 6e 5f 24 2b 31 3a |d%:ind%+=.n_$+1:|
00009a80 e1 0d 22 f6 04 0d 23 00 d5 dd f2 6d 65 6e 75 5f |.."...#....menu_|
00009a90 65 78 74 65 6e 64 28 67 5f 24 2c f8 20 65 5f 25 |extend(g_$,. e_%|
00009aa0 2c 66 5f 25 2c f8 20 6a 5f 25 29 3a ea 20 6f 5f |,f_%,. j_%):. o_|
00009ab0 25 2c 70 5f 25 2c 71 5f 25 2c 72 5f 25 2c 73 5f |%,p_%,q_%,r_%,s_|
00009ac0 25 3a 6f 5f 25 3d a3 3a 70 5f 25 3d a3 3a 71 5f |%:o_%=.:p_%=.:q_|
00009ad0 25 3d a3 3a 72 5f 25 3d a3 3a 73 5f 25 3d a3 3a |%=.:r_%=.:s_%=.:|
00009ae0 f2 6d 65 6e 75 5f 73 65 74 69 74 65 6d 6c 61 73 |.menu_setitemlas|
00009af0 74 28 67 5f 25 2c 68 5f 25 2d 31 2c a3 29 3a 74 |t(g_%,h_%-1,.):t|
00009b00 5f 25 3d 30 3a 75 5f 25 3d a7 67 5f 24 2c 22 2c |_%=0:u_%=.g_$,",|
00009b10 22 2c 74 5f 25 2b 31 29 3a f5 3a 68 5f 24 3d c1 |",t_%+1):.:h_$=.|
00009b20 67 5f 24 2c 74 5f 25 2b 31 2c 75 5f 25 2d 31 2d |g_$,t_%+1,u_%-1-|
00009b30 74 5f 25 29 3a e7 c0 68 5f 24 2c 31 29 3d 22 80 |t_%):..h_$,1)=".|
00009b40 22 20 8c 20 6f 5f 25 3d b9 3a 68 5f 24 3d c2 68 |" . o_%=.:h_$=.h|
00009b50 5f 24 2c a9 68 5f 24 2d 31 29 0d 23 0a 29 e7 c0 |_$,.h_$-1).#.)..|
00009b60 68 5f 24 2c 31 29 3d 22 2d 22 20 8c 20 70 5f 25 |h_$,1)="-" . p_%|
00009b70 3d b9 3a 68 5f 24 3d c2 68 5f 24 2c a9 68 5f 24 |=.:h_$=.h_$,.h_$|
00009b80 2d 31 29 0d 23 14 6b e7 c0 68 5f 24 2c 31 29 3d |-1).#.k..h_$,1)=|
00009b90 22 40 22 20 8c 20 71 5f 25 3d b9 3a 68 5f 24 3d |"@" . q_%=.:h_$=|
00009ba0 c2 68 5f 24 2c a9 68 5f 24 2d 31 29 3a 76 5f 25 |.h_$,.h_$-1):v_%|
00009bb0 3d 28 97 68 5f 24 2d 34 38 29 2a 31 30 3a 68 5f |=(.h_$-48)*10:h_|
00009bc0 24 3d c2 68 5f 24 2c a9 68 5f 24 2d 31 29 3a 76 |$=.h_$,.h_$-1):v|
00009bd0 5f 25 2b 3d 28 97 68 5f 24 2d 34 38 29 3a 68 5f |_%+=(.h_$-48):h_|
00009be0 24 3d c2 68 5f 24 2c a9 68 5f 24 2d 31 29 0d 23 |$=.h_$,.h_$-1).#|
00009bf0 1e 29 e7 c0 68 5f 24 2c 31 29 3d 22 2b 22 20 8c |.)..h_$,1)="+" .|
00009c00 20 72 5f 25 3d b9 3a 68 5f 24 3d c2 68 5f 24 2c | r_%=.:h_$=.h_$,|
00009c10 a9 68 5f 24 2d 31 29 0d 23 28 29 e7 c0 68 5f 24 |.h_$-1).#()..h_$|
00009c20 2c 31 29 3d 22 2a 22 20 8c 20 73 5f 25 3d b9 3a |,1)="*" . s_%=.:|
00009c30 68 5f 24 3d c2 68 5f 24 2c a9 68 5f 24 2d 31 29 |h_$=.h_$,.h_$-1)|
00009c40 0d 23 32 4f f2 6d 65 6e 75 5f 69 74 65 6d 28 68 |.#2O.menu_item(h|
00009c50 5f 24 2c 2d 31 2c 65 5f 25 2c 66 5f 25 2c 6a 5f |_$,-1,e_%,f_%,j_|
00009c60 25 29 3a e7 20 6f 5f 25 3d b9 20 8c 20 f2 6d 65 |%):. o_%=. . .me|
00009c70 6e 75 5f 73 65 74 69 74 65 6d 74 69 63 6b 28 67 |nu_setitemtick(g|
00009c80 5f 25 2c 68 5f 25 2c b9 29 3a 6f 5f 25 3d a3 0d |_%,h_%,.):o_%=..|
00009c90 23 3c 30 e7 20 70 5f 25 3d b9 20 8c 20 f2 6d 65 |#<0. p_%=. . .me|
00009ca0 6e 75 5f 73 65 74 69 74 65 6d 6c 69 6e 65 28 67 |nu_setitemline(g|
00009cb0 5f 25 2c 68 5f 25 2c b9 29 3a 70 5f 25 3d a3 0d |_%,h_%,.):p_%=..|
00009cc0 23 46 3b e7 20 71 5f 25 3d b9 20 8c 20 f2 6d 65 |#F;. q_%=. . .me|
00009cd0 6e 75 5f 73 65 74 69 74 65 6d 77 72 69 74 65 28 |nu_setitemwrite(|
00009ce0 67 5f 25 2c 68 5f 25 2c b9 2c 6a 5f 25 2c 76 5f |g_%,h_%,.,j_%,v_|
00009cf0 25 2b 31 29 3a 71 5f 25 3d a3 0d 23 50 30 e7 20 |%+1):q_%=..#P0. |
00009d00 72 5f 25 3d b9 20 8c 20 f2 6d 65 6e 75 5f 73 65 |r_%=. . .menu_se|
00009d10 74 69 74 65 6d 6d 65 73 73 28 67 5f 25 2c 68 5f |titemmess(g_%,h_|
00009d20 25 2c b9 29 3a 72 5f 25 3d a3 0d 23 5a 30 e7 20 |%,.):r_%=..#Z0. |
00009d30 73 5f 25 3d b9 20 8c 20 f2 6d 65 6e 75 5f 73 65 |s_%=. . .menu_se|
00009d40 74 69 74 65 6d 67 72 65 79 28 67 5f 25 2c 68 5f |titemgrey(g_%,h_|
00009d50 25 2c b9 29 3a 73 5f 25 3d a3 0d 23 64 4f 74 5f |%,.):s_%=..#dOt_|
00009d60 25 3d 75 5f 25 3a 75 5f 25 3d a7 67 5f 24 2c 22 |%=u_%:u_%=.g_$,"|
00009d70 2c 22 2c 75 5f 25 2b 31 29 3a 68 5f 25 2b 3d 31 |,",u_%+1):h_%+=1|
00009d80 3a fd 20 74 5f 25 3d 30 3a f2 6d 65 6e 75 5f 73 |:. t_%=0:.menu_s|
00009d90 65 74 69 74 65 6d 6c 61 73 74 28 67 5f 25 2c 68 |etitemlast(g_%,h|
00009da0 5f 25 2d 31 2c b9 29 3a e1 0d 23 6e 04 0d 23 78 |_%-1,.):..#n..#x|
00009db0 85 dd f2 6d 65 6e 75 5f 64 65 6c 65 74 65 69 74 |...menu_deleteit|
00009dc0 65 6d 28 67 5f 25 2c 68 5f 25 29 3a ea 20 7a 5f |em(g_%,h_%):. z_|
00009dd0 25 2c 74 5f 25 3a 7a 5f 25 3d a3 3a 74 5f 25 3d |%,t_%:z_%=.:t_%=|
00009de0 32 38 2b 68 5f 25 2a 32 34 3a e7 20 28 67 5f 25 |28+h_%*24:. (g_%|
00009df0 21 74 5f 25 80 25 31 30 30 30 30 30 30 30 29 3c |!t_%.%10000000)<|
00009e00 3e 30 20 80 20 68 5f 25 3d 30 20 8c 85 20 30 2c |>0 . h_%=0 .. 0,|
00009e10 22 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c 65 |"Attempt to dele|
00009e20 74 65 20 6f 6e 6c 79 20 6d 65 6e 75 20 69 74 65 |te only menu ite|
00009e30 6d 22 0d 23 82 3f e7 20 28 67 5f 25 21 74 5f 25 |m".#.?. (g_%!t_%|
00009e40 80 25 31 30 30 30 30 30 30 30 29 3c 3e 30 20 8c |.%10000000)<>0 .|
00009e50 20 f2 6d 65 6e 75 5f 73 65 74 69 74 65 6d 6c 61 | .menu_setitemla|
00009e60 73 74 28 67 5f 25 2c 68 5f 25 2d 31 2c b9 29 3a |st(g_%,h_%-1,.):|
00009e70 e1 0d 23 8c c0 f5 3a 67 5f 25 21 28 74 5f 25 2b |..#...:g_%!(t_%+|
00009e80 30 29 3d 67 5f 25 21 28 74 5f 25 2b 32 34 29 3a |0)=g_%!(t_%+24):|
00009e90 67 5f 25 21 28 74 5f 25 2b 34 29 3d 67 5f 25 21 |g_%!(t_%+4)=g_%!|
00009ea0 28 74 5f 25 2b 32 38 29 3a 67 5f 25 21 28 74 5f |(t_%+28):g_%!(t_|
00009eb0 25 2b 38 29 3d 67 5f 25 21 28 74 5f 25 2b 33 32 |%+8)=g_%!(t_%+32|
00009ec0 29 3a 67 5f 25 21 28 74 5f 25 2b 31 32 29 3d 67 |):g_%!(t_%+12)=g|
00009ed0 5f 25 21 28 74 5f 25 2b 33 36 29 3a 67 5f 25 21 |_%!(t_%+36):g_%!|
00009ee0 28 74 5f 25 2b 31 36 29 3d 67 5f 25 21 28 74 5f |(t_%+16)=g_%!(t_|
00009ef0 25 2b 34 30 29 3a 67 5f 25 21 28 74 5f 25 2b 32 |%+40):g_%!(t_%+2|
00009f00 30 29 3d 67 5f 25 21 28 74 5f 25 2b 34 34 29 3a |0)=g_%!(t_%+44):|
00009f10 e7 20 28 67 5f 25 21 74 5f 25 80 20 25 31 30 30 |. (g_%!t_%. %100|
00009f20 30 30 30 30 30 29 3c 3e 30 20 8c 20 7a 5f 25 3d |00000)<>0 . z_%=|
00009f30 b9 0d 23 96 15 74 5f 25 2b 3d 32 34 3a fd 20 7a |..#..t_%+=24:. z|
00009f40 5f 25 3d b9 3a e1 0d 23 a0 04 0d 23 aa 5b dd a4 |_%=.:..#...#.[..|
00009f50 6d 65 6e 75 5f 63 6f 75 6e 74 69 74 65 6d 73 28 |menu_countitems(|
00009f60 67 5f 25 29 3a ea 20 78 5f 25 3a 78 5f 25 3d 32 |g_%):. x_%:x_%=2|
00009f70 38 3a c8 95 20 28 67 5f 25 21 78 5f 25 80 25 31 |8:.. (g_%!x_%.%1|
00009f80 30 30 30 30 30 30 30 29 3d 30 3a 78 5f 25 2b 3d |0000000)=0:x_%+=|
00009f90 32 34 3a ce 3a 3d 28 28 78 5f 25 2d 32 38 29 2f |24:.:=((x_%-28)/|
00009fa0 32 34 29 2b 31 0d 23 b4 04 0d 23 be 2d dd f2 6d |24)+1.#...#.-..m|
00009fb0 65 6e 75 5f 73 65 74 69 74 65 6d 6c 69 6e 65 28 |enu_setitemline(|
00009fc0 67 5f 25 2c 68 5f 25 2c 57 5f 25 29 3a e7 20 57 |g_%,h_%,W_%):. W|
00009fd0 5f 25 3d b9 20 8c 0d 23 c8 2d 67 5f 25 21 28 32 |_%=. ..#.-g_%!(2|
00009fe0 38 2b 68 5f 25 2a 32 34 29 3d 67 5f 25 21 28 32 |8+h_%*24)=g_%!(2|
00009ff0 38 2b 68 5f 25 2a 32 34 29 84 25 30 30 30 30 30 |8+h_%*24).%00000|
0000a000 30 31 30 0d 23 d2 28 cc 3a e7 20 28 67 5f 25 21 |010.#.(.:. (g_%!|
0000a010 28 32 38 2b 68 5f 25 2a 32 34 29 80 25 30 30 30 |(28+h_%*24).%000|
0000a020 30 30 30 31 30 29 3c 3e 30 20 8c 0d 23 dc 2d 67 |00010)<>0 ..#.-g|
0000a030 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 3d 67 |_%!(28+h_%*24)=g|
0000a040 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 82 25 |_%!(28+h_%*24).%|
0000a050 30 30 30 30 30 30 31 30 0d 23 e6 05 cd 0d 23 f0 |00000010.#....#.|
0000a060 07 cd 3a e1 0d 23 fa 04 0d 24 04 99 dd f2 69 63 |..:..#...$....ic|
0000a070 6f 6e 5f 73 65 74 74 65 78 74 28 53 5f 25 2c 54 |on_settext(S_%,T|
0000a080 5f 25 2c 55 5f 24 2c 49 5f 25 2c 56 5f 25 29 3a |_%,U_$,I_%,V_%):|
0000a090 21 49 5f 25 3d 53 5f 25 3a 49 5f 25 21 34 3d 54 |!I_%=S_%:I_%!4=T|
0000a0a0 5f 25 3a c8 99 32 36 32 33 35 30 2c 2c 49 5f 25 |_%:..262350,,I_%|
0000a0b0 3a e7 20 28 49 5f 25 21 32 34 20 80 25 31 30 30 |:. (I_%!24 .%100|
0000a0c0 30 30 30 30 30 30 29 3d 30 20 8c 85 20 30 2c 22 |000000)=0 .. 0,"|
0000a0d0 49 63 6f 6e 20 74 65 78 74 20 6e 6f 74 20 69 6e |Icon text not in|
0000a0e0 64 69 72 65 63 74 65 64 20 69 6e 20 50 52 4f 43 |directed in PROC|
0000a0f0 69 63 6f 6e 5f 73 65 74 69 63 6f 6e 74 65 78 74 |icon_seticontext|
0000a100 22 0d 24 0e 4b 24 28 49 5f 25 21 32 38 29 3d 55 |".$.K$(I_%!28)=U|
0000a110 5f 24 3a e7 20 56 5f 25 8c 20 49 5f 25 21 30 3d |_$:. V_%. I_%!0=|
0000a120 53 5f 25 3a 49 5f 25 21 34 3d 54 5f 25 3a 49 5f |S_%:I_%!4=T_%:I_|
0000a130 25 21 38 3d 30 3a 49 5f 25 21 31 32 3d 30 3a c8 |%!8=0:I_%!12=0:.|
0000a140 99 32 36 32 33 34 39 2c 2c 49 5f 25 0d 24 18 05 |.262349,,I_%.$..|
0000a150 e1 0d 24 22 04 0d 24 2c 54 dd a4 77 69 6e 5f 6f |..$"..$,T..win_o|
0000a160 70 65 6e 28 4a 5f 25 2c 49 5f 25 29 3a 21 49 5f |pen(J_%,I_%):!I_|
0000a170 25 3d 4a 5f 25 3a c8 99 32 36 32 33 34 37 2c 2c |%=J_%:..262347,,|
0000a180 49 5f 25 3a e7 20 28 49 5f 25 21 33 32 20 80 25 |I_%:. (I_%!32 .%|
0000a190 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |1000000000000000|
0000a1a0 30 29 3c 3e 30 20 8c 3d b9 0d 24 36 06 3d a3 0d |0)<>0 .=..$6.=..|
0000a1b0 24 40 04 0d 24 4a 97 dd f2 69 63 6f 6e 5f 73 65 |$@..$J...icon_se|
0000a1c0 74 76 61 6c 28 53 5f 25 2c 54 5f 25 2c 55 5f 24 |tval(S_%,T_%,U_$|
0000a1d0 2c 49 5f 25 2c 56 5f 25 29 3a 21 49 5f 25 3d 53 |,I_%,V_%):!I_%=S|
0000a1e0 5f 25 3a 49 5f 25 21 34 3d 54 5f 25 3a c8 99 32 |_%:I_%!4=T_%:..2|
0000a1f0 36 32 33 35 30 2c 2c 49 5f 25 3a e7 20 28 49 5f |62350,,I_%:. (I_|
0000a200 25 21 32 34 20 80 25 31 30 30 30 30 30 30 30 30 |%!24 .%100000000|
0000a210 29 3d 30 20 8c 85 20 30 2c 22 49 63 6f 6e 20 74 |)=0 .. 0,"Icon t|
0000a220 65 78 74 20 6e 6f 74 20 69 6e 64 69 72 65 63 74 |ext not indirect|
0000a230 65 64 20 69 6e 20 50 52 4f 43 69 63 6f 6e 5f 73 |ed in PROCicon_s|
0000a240 65 74 69 63 6f 6e 76 61 6c 22 0d 24 54 4b 24 28 |eticonval".$TK$(|
0000a250 49 5f 25 21 33 32 29 3d 55 5f 24 3a e7 20 56 5f |I_%!32)=U_$:. V_|
0000a260 25 8c 20 49 5f 25 21 30 3d 53 5f 25 3a 49 5f 25 |%. I_%!0=S_%:I_%|
0000a270 21 34 3d 54 5f 25 3a 49 5f 25 21 38 3d 30 3a 49 |!4=T_%:I_%!8=0:I|
0000a280 5f 25 21 31 32 3d 30 3a c8 99 32 36 32 33 34 39 |_%!12=0:..262349|
0000a290 2c 2c 49 5f 25 0d 24 5e 05 e1 0d 24 68 04 0d 24 |,,I_%.$^...$h..$|
0000a2a0 72 3f dd a4 6d 65 6e 75 5f 67 65 74 69 74 65 6d |r?..menu_getitem|
0000a2b0 6c 69 6e 65 28 67 5f 25 2c 68 5f 25 29 3a 3d 28 |line(g_%,h_%):=(|
0000a2c0 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 80 |g_%!(28+h_%*24).|
0000a2d0 25 30 30 30 30 30 30 31 30 29 3c 3e 30 0d 24 7c |%00000010)<>0.$||
0000a2e0 04 0d 24 86 54 dd a4 6d 65 6e 75 5f 68 65 61 64 |..$.T..menu_head|
0000a2f0 65 72 28 64 5f 24 2c 52 5f 25 2c f8 20 65 5f 25 |er(d_$,R_%,. e_%|
0000a300 2c 66 5f 25 29 3a ea 20 67 5f 25 3a e7 20 65 5f |,f_%):. g_%:. e_|
0000a310 25 2b 32 38 3e 66 5f 25 8c 85 20 30 2c 22 4e 6f |%+28>f_%.. 0,"No|
0000a320 74 20 65 6e 6f 75 67 68 20 6d 65 6e 75 20 73 70 |t enough menu sp|
0000a330 61 63 65 21 22 0d 24 90 65 67 5f 25 3d 65 5f 25 |ace!".$.eg_%=e_%|
0000a340 3a 24 28 65 5f 25 29 3d 64 5f 24 3a 65 5f 25 3f |:$(e_%)=d_$:e_%?|
0000a350 31 32 3d 37 3a 65 5f 25 3f 31 33 3d 32 3a 65 5f |12=7:e_%?13=2:e_|
0000a360 25 3f 31 34 3d 37 3a 65 5f 25 3f 31 35 3d 31 3a |%?14=7:e_%?15=1:|
0000a370 65 5f 25 21 31 36 3d 52 5f 25 3a 65 5f 25 21 32 |e_%!16=R_%:e_%!2|
0000a380 30 3d 34 34 3a 65 5f 25 21 32 34 3d 30 3a 65 5f |0=44:e_%!24=0:e_|
0000a390 25 2b 3d 32 38 3a 3d 67 5f 25 0d 24 9a 04 0d 24 |%+=28:=g_%.$...$|
0000a3a0 a4 52 dd f2 6d 65 6e 75 5f 69 74 65 6d 28 68 5f |.R..menu_item(h_|
0000a3b0 24 2c 69 5f 25 2c f8 20 65 5f 25 2c 66 5f 25 2c |$,i_%,. e_%,f_%,|
0000a3c0 f8 20 6a 5f 25 29 3a e7 20 65 5f 25 2b 32 34 3e |. j_%):. e_%+24>|
0000a3d0 66 5f 25 8c 85 20 30 2c 22 4e 6f 74 20 65 6e 6f |f_%.. 0,"Not eno|
0000a3e0 75 67 68 20 6d 65 6e 75 20 73 70 61 63 65 21 22 |ugh menu space!"|
0000a3f0 0d 24 ae 2e 21 65 5f 25 3d 30 3a 65 5f 25 21 34 |.$..!e_%=0:e_%!4|
0000a400 3d 69 5f 25 3a 65 5f 25 21 38 3d 26 30 37 30 30 |=i_%:e_%!8=&0700|
0000a410 30 30 32 31 3a e7 a9 68 5f 24 3c 30 20 8c 0d 24 |0021:..h_$<0 ..$|
0000a420 b8 11 24 28 65 5f 25 2b 31 32 29 3d 68 5f 24 0d |..$(e_%+12)=h_$.|
0000a430 24 c2 4d cc 3a 65 5f 25 21 38 3d 26 31 37 30 30 |$.M.:e_%!8=&1700|
0000a440 30 33 33 33 3a 65 5f 25 21 31 32 3d 6a 5f 25 3a |0333:e_%!12=j_%:|
0000a450 65 5f 25 21 31 36 3d 2d 31 3a 65 5f 25 21 32 30 |e_%!16=-1:e_%!20|
0000a460 3d a9 68 5f 24 2b 31 3a 24 6a 5f 25 3d 68 5f 24 |=.h_$+1:$j_%=h_$|
0000a470 3a 6a 5f 25 2b 3d a9 68 5f 24 2b 31 0d 24 cc 0f |:j_%+=.h_$+1.$..|
0000a480 cd 3a 65 5f 25 2b 3d 32 34 3a e1 0d 24 d6 04 0d |.:e_%+=24:..$...|
0000a490 24 e0 32 dd f2 6d 65 6e 75 5f 73 65 74 69 74 65 |$.2..menu_setite|
0000a4a0 6d 74 69 63 6b 28 67 5f 25 2c 68 5f 25 2c 57 5f |mtick(g_%,h_%,W_|
0000a4b0 25 29 3a e7 20 57 5f 25 3d 54 52 55 45 54 48 45 |%):. W_%=TRUETHE|
0000a4c0 4e 0d 24 ea 2d 67 5f 25 21 28 32 38 2b 68 5f 25 |N.$.-g_%!(28+h_%|
0000a4d0 2a 32 34 29 3d 67 5f 25 21 28 32 38 2b 68 5f 25 |*24)=g_%!(28+h_%|
0000a4e0 2a 32 34 29 84 25 30 30 30 30 30 30 30 31 0d 24 |*24).%00000001.$|
0000a4f0 f4 28 cc 3a e7 20 28 67 5f 25 21 28 32 38 2b 68 |.(.:. (g_%!(28+h|
0000a500 5f 25 2a 32 34 29 80 25 30 30 30 30 30 30 30 31 |_%*24).%00000001|
0000a510 29 3c 3e 30 20 8c 0d 24 fe 2d 67 5f 25 21 28 32 |)<>0 ..$.-g_%!(2|
0000a520 38 2b 68 5f 25 2a 32 34 29 3d 67 5f 25 21 28 32 |8+h_%*24)=g_%!(2|
0000a530 38 2b 68 5f 25 2a 32 34 29 82 25 30 30 30 30 30 |8+h_%*24).%00000|
0000a540 30 30 31 0d 25 08 05 cd 0d 25 12 07 cd 3a e1 0d |001.%....%...:..|
0000a550 25 1c 04 0d 25 26 3d dd f2 6d 65 6e 75 5f 73 65 |%...%&=..menu_se|
0000a560 74 69 74 65 6d 77 72 69 74 65 28 67 5f 25 2c 68 |titemwrite(g_%,h|
0000a570 5f 25 2c 57 5f 25 2c f8 20 6a 5f 25 2c 6d 5f 25 |_%,W_%,. j_%,m_%|
0000a580 29 3a e7 20 57 5f 25 3d 54 52 55 45 54 48 45 4e |):. W_%=TRUETHEN|
0000a590 0d 25 30 c4 67 5f 25 21 28 32 38 2b 68 5f 25 2a |.%0.g_%!(28+h_%*|
0000a5a0 32 34 29 3d 67 5f 25 21 28 32 38 2b 68 5f 25 2a |24)=g_%!(28+h_%*|
0000a5b0 32 34 29 84 25 30 30 30 30 30 31 30 30 3a 67 5f |24).%00000100:g_|
0000a5c0 25 21 28 32 38 2b 68 5f 25 2a 32 34 2b 38 29 3d |%!(28+h_%*24+8)=|
0000a5d0 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 2b 38 |g_%!(28+h_%*24+8|
0000a5e0 29 84 25 31 30 30 30 30 30 30 30 30 3a 24 6a 5f |).%100000000:$j_|
0000a5f0 25 3d 24 28 67 5f 25 2b 32 38 2b 68 5f 25 2a 32 |%=$(g_%+28+h_%*2|
0000a600 34 2b 31 32 29 3a 67 5f 25 21 28 32 38 2b 68 5f |4+12):g_%!(28+h_|
0000a610 25 2a 32 34 2b 31 32 29 3d 6a 5f 25 3a 67 5f 25 |%*24+12)=j_%:g_%|
0000a620 21 28 32 38 2b 68 5f 25 2a 32 34 2b 31 36 29 3d |!(28+h_%*24+16)=|
0000a630 2d 31 3a 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 |-1:g_%!(28+h_%*2|
0000a640 34 2b 32 30 29 3d 6d 5f 25 3a 6a 5f 25 2b 3d 6d |4+20)=m_%:j_%+=m|
0000a650 5f 25 2b 31 0d 25 3a 28 cc 3a e7 20 28 67 5f 25 |_%+1.%:(.:. (g_%|
0000a660 21 28 32 38 2b 68 5f 25 2a 32 34 29 80 25 30 30 |!(28+h_%*24).%00|
0000a670 30 30 30 31 30 30 29 3c 3e 30 20 8c 0d 25 44 2d |000100)<>0 ..%D-|
0000a680 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 3d |g_%!(28+h_%*24)=|
0000a690 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 82 |g_%!(28+h_%*24).|
0000a6a0 25 30 30 30 30 30 31 30 30 0d 25 4e 05 cd 0d 25 |%00000100.%N...%|
0000a6b0 58 07 cd 3a e1 0d 25 62 04 0d 25 6c 32 dd f2 6d |X..:..%b..%l2..m|
0000a6c0 65 6e 75 5f 73 65 74 69 74 65 6d 6d 65 73 73 28 |enu_setitemmess(|
0000a6d0 67 5f 25 2c 68 5f 25 2c 57 5f 25 29 3a e7 20 57 |g_%,h_%,W_%):. W|
0000a6e0 5f 25 3d 54 52 55 45 54 48 45 4e 0d 25 76 2d 67 |_%=TRUETHEN.%v-g|
0000a6f0 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 3d 67 |_%!(28+h_%*24)=g|
0000a700 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 84 25 |_%!(28+h_%*24).%|
0000a710 30 30 30 30 31 30 30 30 0d 25 80 28 cc 3a e7 20 |00001000.%.(.:. |
0000a720 28 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 |(g_%!(28+h_%*24)|
0000a730 80 25 30 30 30 30 31 30 30 30 29 3c 3e 30 20 8c |.%00001000)<>0 .|
0000a740 0d 25 8a 2d 67 5f 25 21 28 32 38 2b 68 5f 25 2a |.%.-g_%!(28+h_%*|
0000a750 32 34 29 3d 67 5f 25 21 28 32 38 2b 68 5f 25 2a |24)=g_%!(28+h_%*|
0000a760 32 34 29 82 25 30 30 30 30 31 30 30 30 0d 25 94 |24).%00001000.%.|
0000a770 05 cd 0d 25 9e 07 cd 3a e1 0d 25 a8 04 0d 25 b2 |...%...:..%...%.|
0000a780 32 dd f2 6d 65 6e 75 5f 73 65 74 69 74 65 6d 67 |2..menu_setitemg|
0000a790 72 65 79 28 67 5f 25 2c 68 5f 25 2c 57 5f 25 29 |rey(g_%,h_%,W_%)|
0000a7a0 3a e7 20 57 5f 25 3d 54 52 55 45 54 48 45 4e 0d |:. W_%=TRUETHEN.|
0000a7b0 25 bc 42 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 |%.Bg_%!(28+h_%*2|
0000a7c0 34 2b 38 29 3d 28 67 5f 25 21 28 32 38 2b 68 5f |4+8)=(g_%!(28+h_|
0000a7d0 25 2a 32 34 2b 38 29 84 25 31 30 30 30 30 30 30 |%*24+8).%1000000|
0000a7e0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
0000a7f0 29 0d 25 c6 39 cc 3a e7 20 28 67 5f 25 21 28 32 |).%.9.:. (g_%!(2|
0000a800 38 2b 68 5f 25 2a 32 34 2b 38 29 80 25 31 30 30 |8+h_%*24+8).%100|
0000a810 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
0000a820 30 30 30 30 29 3c 3e 30 20 8c 0d 25 d0 40 67 5f |0000)<>0 ..%.@g_|
0000a830 25 21 28 32 38 2b 68 5f 25 2a 32 34 2b 38 29 3d |%!(28+h_%*24+8)=|
0000a840 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 2b 38 |g_%!(28+h_%*24+8|
0000a850 29 82 25 31 30 30 30 30 30 30 30 30 30 30 30 30 |).%1000000000000|
0000a860 30 30 30 30 30 30 30 30 30 30 0d 25 da 05 cd 0d |0000000000.%....|
0000a870 25 e4 07 cd 3a e1 0d 25 ee 04 0d 25 f8 2d dd f2 |%...:..%...%.-..|
0000a880 6d 65 6e 75 5f 73 65 74 69 74 65 6d 6c 61 73 74 |menu_setitemlast|
0000a890 28 67 5f 25 2c 68 5f 25 2c 57 5f 25 29 3a e7 20 |(g_%,h_%,W_%):. |
0000a8a0 57 5f 25 3d b9 20 8c 0d 26 02 2d 67 5f 25 21 28 |W_%=. ..&.-g_%!(|
0000a8b0 32 38 2b 68 5f 25 2a 32 34 29 3d 67 5f 25 21 28 |28+h_%*24)=g_%!(|
0000a8c0 32 38 2b 68 5f 25 2a 32 34 29 84 25 31 30 30 30 |28+h_%*24).%1000|
0000a8d0 30 30 30 30 0d 26 0c 28 cc 3a e7 20 28 67 5f 25 |0000.&.(.:. (g_%|
0000a8e0 21 28 32 38 2b 68 5f 25 2a 32 34 29 80 25 31 30 |!(28+h_%*24).%10|
0000a8f0 30 30 30 30 30 30 29 3c 3e 30 20 8c 0d 26 16 2d |000000)<>0 ..&.-|
0000a900 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 3d |g_%!(28+h_%*24)=|
0000a910 67 5f 25 21 28 32 38 2b 68 5f 25 2a 32 34 29 82 |g_%!(28+h_%*24).|
0000a920 25 31 30 30 30 30 30 30 30 0d 26 20 05 cd 0d 26 |%10000000.& ...&|
0000a930 2a 07 cd 3a e1 0d 26 34 04 0d 26 3e 29 dd f2 6d |*..:..&4..&>)..m|
0000a940 65 6e 75 5f 73 65 74 77 69 64 74 68 28 67 5f 25 |enu_setwidth(g_%|
0000a950 2c 52 5f 25 29 3a 67 5f 25 21 31 36 3d 52 5f 25 |,R_%):g_%!16=R_%|
0000a960 3a e1 0d 26 48 04 0d 26 52 47 dd a4 77 69 6d 70 |:..&H..&RG..wimp|
0000a970 5f 67 65 74 73 74 72 69 6e 67 28 6e 5f 25 29 3a |_getstring(n_%):|
0000a980 ea 20 56 60 25 3a c8 95 20 6e 5f 25 3f 56 60 25 |. V`%:.. n_%?V`%|
0000a990 3e 33 31 3a 56 60 25 2b 3d 31 3a ce 3a 6e 5f 25 |>31:V`%+=1:.:n_%|
0000a9a0 3f 56 60 25 3d 31 33 3a 3d 24 6e 5f 25 0d 26 5c |?V`%=13:=$n_%.&\|
0000a9b0 04 0d 26 66 6e dd a4 77 69 6d 70 5f 69 6e 69 74 |..&fn..wimp_init|
0000a9c0 69 61 6c 69 73 65 28 41 60 24 2c 6d 65 73 73 61 |ialise(A`$,messa|
0000a9d0 67 65 73 62 6c 6b 5f 25 29 3a c8 99 32 36 32 33 |gesblk_%):..2623|
0000a9e0 33 36 2c 33 30 30 2c 26 34 42 35 33 34 31 35 34 |36,300,&4B534154|
0000a9f0 2c 41 60 24 2c 6d 65 73 73 61 67 65 73 62 6c 6b |,A`$,messagesblk|
0000aa00 5f 25 20 b8 20 41 60 25 3a 65 72 72 6f 72 68 61 |_% . A`%:errorha|
0000aa10 70 70 65 6e 65 64 5f 25 3d a3 3a 3d 41 60 25 0d |ppened_%=.:=A`%.|
0000aa20 ff |.|
0000aa21 
.