ZXTape! 0Created with Ramsoft MakeTZXWOOD 6 6 8 20:0::"":0,0;"":"" LOGO @'m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lmlB<B<BBBD@BBDbBBBBB@BBBR@BBBB@B~BJNZBBD@BBDFB$<B<HSIMULATION)'):)  THE SPREAD OF DISEASE IN WOODLAND  SCI-SOFT DEC 1983 BY P.COOKE  #23658j\,0:caps off v=65110V:break off (Im$(n )="month"+("s"n1):t$(n)="tree"+("s"n1) ddub=64900:setup=1000:run=2000:analyse=3000 :setwood=5000:instruct=7000X:enter=9000(#:clbot=9100#:title=9900& eFsetup=1000:run=2000:enter=9000(#:clbot=9100# na$(5,3):a$(1)=16+4+"":a$(5)=16+2+"":a$(3)=16+0+"":a$(2)=16+1+"":a$(4)=16+0+" " x2spread=502:survive=502:lasts=4 title instruct setup run analyse  210  va(10 ,10 ):g(24,3):7:6:0::z$=" Spread of disease in woodland.":v=dub An=110 :n+2,2;4;"":n [3,13 ;"  ";4,13 ;"   " 14,70F:83S,0:0,83S:-83S,0:0,-83S:0,62>:255,0 6,15;"Chance of disease";7,15;"spreading";9 ,15;"Chance of tree";10 ,15;"surviving";12 ,15;"Disease lasts ";13 ,15;"(months)" Ctree=100d:distree=0:immun=0:5000:clbot L6000p:clbot  enter:  running it month=1 15,6;"Start of month ";month;17,6;tree;10 ;"Healthy ";t$(tree);18,6;distree;10 ;"Diseased ";t$(distree);19,6;immun;10 ;"Immune ";t$(immun) Ig(month,1)=tree:g(month,2)=distree:g(month,3)=immun #1;0,0;1;" Calculating, Please wait ":b(10 ,10 ):n=110 :m=110 :b(n,m)=a(n,m):m:n:.1}L,12 4Rn=110 :m=110 :b(n,m)<42600( :not infected Bo=-112:n+o<1n+o>10 2300 a(n+o,m)02300 "(100d*)>spread2300 ca(n+o,m)=4:n+o+2,m+1;2;"":distree=distree+1:tree=tree-1 o `Bo=-112:m+o<1m+o>10 2500 ja(n,m+o)02500 t"(100d*)>spread2500 ~ca(n,m+o)=4:n+2,m+o+1;2;"":distree=distree+1:tree=tree-1 o 9a(n,m)=a(n,m)+1:a(n,m)survivea(n,m)=2:n+2,m+1;"" :distree=distree-1:2600( aa(n,m)=1:immun=immun+1:distree=distree-1:n+2,m+1;1;"" ( m:n:done 2"":month=month+1:15,6;"Start of month ";month;17,6;" ";17,6;tree;18,6;" ";18,6;distree;19,6;" ";19,6;immun 2420,1;"Two years have passed.":enter: Fdistree=0clbot:16,0;("The disease has died out"tree>0)+("The disease has killed all the trees ."(tree+immun=0))+("Only the immune trees have survived."(tree=0immun>0)):enter: _#1;0,0;"Press M for another month Q to finish C to change the wood"; (z$=:z$"q"z$"m"z$"c"2710 "":z$="q" z$="m"2010 .z$="c"clbot:5000:clbot:2010  analyse 0:z$=" Spread of disease in woodland.":v=dub n=9 216:n,3;"0 5 10 15 20 25";n-5,0;"100";n-1,0;"0":n:21,27;"month" &n=02:26,480*n+9 :200,0:26,480*n+9 :0,40(:m=15:26+35#*m,480*n+7:0,3:m:m=14:25,480*n+10 *m+9 :3,0:m:n 0o4,26;4;"";10 ,26;2;"";16,26;1;" " n=02:ink=4-(2n>0)-(1n=2):ink;32 ,480*(2-n)+9 +.4L*g(1,n+1):m=2month-1:ink;7,.4L*(g(m,n+1)-g(m-1,n+1)):m:n 7enter::z$=" Spread of disease in woodland.":v=dub distree=06,0;("The disease died out"tree>0)+("The disease killed all the trees"(tree+immun=0))+("Only the immune trees survived"(tree=0immun>0))''"after ";month;" ";m$(month);"." distree05,0;"You stopped after ";month;" ";m$(month)''"You had ....";13 ;tree;" healthy ";t$(tree);13 ;distree;16;"Diseased ";t$(distree);13 ;immun;16;"Immune ";t$(immun)  enter: 15,0;" Use the cursor keys & to move around the wood."'" Press H to put in a healthy tree , D for a diseased tree and Space for no tree ."'" Press Q to finish." .x=1:y=1:ox=1:oy=1 7ox+2,oy+1;1;0;8;"" cox+2,oy+1;1;0;8;"";x+2,y+1;8;1;""; z$=:z$=""5110 z$"5"z$"8"ox=x:oy=y:x=x+(z$="6"x<10 )-(z$="7"x>1):y=y+(z$="8"y<10 )-(z$="5"y>1):5100  z$="h"tree=tree+(a(x,y)0):distree=distree-(a(x,y)4):x+2,y+1;1;1;a$(1):a(x,y)=0:5900 :5100 z$="d"tree=tree-(a(x,y)=0):distree=distree+(a(x,y)<4):x+2,y+1;1;1;a$(5):a(x,y)=4:5900 :5100 z$=" "tree=tree-(a(x,y)=0):distree=distree-(a(x,y)4):x+2,y+1;0;1;"":a(x,y)=1:5900 :5100 (z$"q"5110 27x+2,y+1;1;0;8;"":  Tox=x:oy=y:y=y+1:y=11 y=1:x=x+1:x=11 x=1  pon=1:15,0;" Use the cursor keys to change the chance that a tree will catch the disease ,the chance it will survive, and how long the disease lasts."'" move the pointer up and down."'" change the value up or down."; z0#1;0,4;"Press Q to finish." Թ7,28;" ";10 ,28;" ";13 ,28;" ";7,28;6;spread/100d;10 ,28;survive/100d;13 ,28;lasts; 43+3*on,14;2;1;"" ""Ʀ"8"Ʀ"5"6120 z$=:z$=""6130 'z$="6"z$="7"6900:6110 ,z$="q"3+3*on,14;" ": z$"8"z$"5"6120 %62008+100d*on:6100 +spread=spread+5*((z$="8")-(z$="5"))  spread<0spread=0 $spread>100dspread=100d  -survive=survive+5*((z$="8")-(z$="5"))  &survive>100dsurvive=100d "survive<0survive=0  d!lasts=lasts+((z$="8")-(z$="5")) n lasts>12 lasts=12 xlasts<1lasts=1  ;3+3*on,14;" ":on=on+(z$="6")-(z$="7") on=4on=1 on=0on=3  Winstructions XK6:6:0::z$=" Spread of disease in woodland.":v=dub bi8,0;"Press"'''" I ... for Instructions"''12 ;"or"''" R ... to Run the simulation." l!z$=:z$"i"z$"r"7020l v z$="r" 0:0,9 ;:z$="Instructions":v=dub 5,0;"This program models the spread of a disease (like Dutch Elm disease) in a wood."''"The wood is represented by a 10 by 10 grid and you must startthe model by putting in healthy trees (shown ) and diseased trees (shown )." `'"You can also put in spaces between the trees ,which will stop the spread of disease." 7enter::0,9 ;:z$="Instructions":v=dub 4,0;"After the wood has been planned out there are three things in the model that you can change. They are ..." ''"1.. The chance of the disease spreading. This is a probability ,which means a decimal between 0 and 1. 0 means it is impossible and 1 means it is certain to happen. 0.5 would mean a chance of one in 2 ." 7enter::0,9 ;:z$="Instructions":v=dub 4,0;"2.. The chance of a tree surviving the disease. This is another probability and gives the chance of a tree living through the disease and becoming immune () or dying ()."  '"3.. This gives how long in months the disease lasts. You can change it from 1 month up to 12 months. After the disease has passed the tree will either die or become immune to the disease." 7enter::0,9 ;:z$="Instructions":v=dub  4,0;"The program will then show the spread of the disease each month on the grid."''"After 24 months ,or when you decide to stop ,the program will show graphically the numbers of healthy, diseased and immune trees each month." *enter:7000X #& #' enter #(""9000(# #2B#1;0,4;9 ;"Press ENTER to continue" #< z$=:z$13 90102# #F #clbottom #9"":n=1521:n,0;31;" ";:n: &6:0:0:4::4,13 ;:z$="The":v=dub:6,7;:z$="Spread of Disease":v=dub:8,10 ;:z$="in Woodland":v=dub:23675{\,0:17,9 ;" ltd 1984":23675{\,88X:enter: ' $"":"":"ok":.1}L,12 : '64899:7:0:0:0:0:0:7::5,5;1;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"": '3:"wood"9998':"wood"64900,636| &wood |~ú*K\~Z`  #~( #^#V#͇P:\G>!2@:\G>2A#N#F#x~# x o&)))<:@O:AG y >2@xg'''''o@w$<?v>> G^>>VG!;\::\(3:(>2\>2:H\8G???2H\> 2\>2MMuYkWMVv> P P P . @@@@8Dl8TllBBGB>>R+ɪ%756D&fJLJJؐؐQQY*9))̩TTX COUNTRIES N'NGN/ COUNTRIES OF THE WORLD :  P.COOKE FEB 1983 : :   SCI-SOFT 1984 : : : : %A$(X,Y)=22+X+Y qB$(T)=("Name "T=1)+("Capital "T=2)+("Area (in sq Km) "T=3)+("Population "T=4) IT$(T)=(A$T=1)+(B$T=2)+(C$T=3)+(D$T=4) +S$(C)=(F$C=1)+(G$C=2) oc$(l)=("Begins with "l=1)+("Ends with "l=2)+("Contains "l=3)+("Equals "l=4) Xd$(l)=("Less than "l=1)+("Greater than "l=2)+("Equals "l=3) GE$(T)=("CAP "T=2)+("AREA "T=3)+("POP "T=4) Az$(a,a$)=22+a+º((40(-a$)/2)+a$  (23658j\,8:CAPS ON 2VPR=620000:PR2=620033:SC=620066:QUERY=620099:ENTER=4900$ P 9900& c*** MAIN MENU *** dU6:0:6::8000@:1,10 ;:Z$="MAIN MENU":V=PR2 n!7,0;" PRESS :=-" xH10 ,2;"1 To find all details about a Country" .13 ,2;"2 To list all Countries" c15,2;"3 To search for a Country's capital, area or population" !19,2;"4 For Help" ;"":#1;0,5;0;"Press 1 2 3 or 4" z$=:z$<"1"z$>"4"200 z=z$ Z10 +(3z>1)+(2z>2)+(4z=4),2;1;z o"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 4 to choose again" ""235 z$=:z$=""240 z$13 120x  choice made !"":8000@:8010J:cls "main loop ': ,1000*z 1: 6'********************************" h"":#1;0,0;0;" Press ENTER to return to Main Menu" ""410 13 420  100d find about a country 37,2;"Find out about which country ?"  8020T i$=""1010 .i$(1)=" "i$=i$(2):1020 .i$(i$)=" "i$=i$(̱i$-1):1020 21,0;" ";15,2;" ";15,2;i$ M#1;0,0;0;" Is this O.K. (press Y or N) " $!z$=:z$"Y"z$"N"1060$ ."":z$="N"1000 8Gf$=i$:z$=a$(1,1)+"Print : "+f$:7:v=pr:6 BZ8010J:#1;1,0;0;1;" Searching " L 9000(# V<a$,b$,c$,d$:a$="end"20,0;f$;" not found": `a$f$1110V +z$=z$(8,f$)+a$(11 ,5)+"Capital"+a$(11 ,26)+"Population"+a$(12 ,5)+b$+a$(12 ,26)+d$+a$(15,5)+"Area (sq Km)"+a$(15,26)+"Pop Density"+a$(16,5)+c$+a$(16,26)+((((d$/c$)*100d))/100d)  v=pr: list all countries -7,0;"Do you want a list of :-" ڲ10 ,2;"1 Just the countries names";12 ,2;"2 Names and Capitals";14,2;"3 Names and Areas or";16,2;"4 Names and Populations" ;"":#1;0,2;0;"Press 1 2 3 or 4" ""2030 !z$=:z$<"1"z$>"4"2040 .z=z$:8+2*z,2;1;z  o"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 4 to choose again" ""2070 =""2075  13 2010 *9s(4):s(1)=1:z>1s(z)=1 /JZ$=A$(1,1)+"List : Name":z>1z$=z$+" and "+b$(z) 4EZ$=Z$+A$(5,0):7:v=pr:6:"":8010J > 9000(# H@M=18+(8Z=1):a$,b$,c$,d$:a$="end" Xz$="NAME : "+a$+13 :n=24:s(n)z$=z$+" "+b$(n)+t$(n)+13  N:v=pr .01z# =,12 :=""M l#1;0,0;0;" List Paused ENTER to continue S to stop" ""2240 "S"Ʀ13 2250  ="S" "":2120H search Q7,2;"Search for a country by name ,capital , area or population ." ^condition=1:t(2):l(2):o(2):f$="":g$="":or=1:and=0 110 ,0;"Do you want to search by :-" z12 ,2;"1 Name";14,2;"2 Capital";16,2;"3 Area";18,2;"4 Population" 7#1;0,2;0;"Press 1 2 3 or 4" !z$=:z$<"1"z$>"4"3050 /z=z$:10 +2*z,2;1;z o"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 4 to choose again" ""3075 z$=:z$=""3080 z$13 3030 "":8010J:cls/bottom &Mt(condition)=z:5000+(200t(condition)>2):string/numeric 0condition=23200 :r10 ,0;"Do you want to use another condition ?";#1;0,5;"Press Y or N" D!z$=:z$"Y"z$"N"3140D N3z$="Y"condition=2:8010J:3020 +condition=1or=1:3300 R8010J:10 ,0;"Do you want the computer to show the country" g14,2;"1 If both conditions are true";16,2;"2 If either condition is true" 3#1;0,2;0;"Press 1 or 2" !z$=:z$<"1"z$>"2"3230 z=z$ (12 +2*z,2;1;z o"":#1;0,0;0;" Press ENTER to confirm your choice or 1 or 2 to choose again" ""3270 =""3280 13 3200 iand=(z=1):or=(z=2):z$=a$(2,6)+("and"and)+("or"or):7:v=pr:6 all set up !!!!! 0"":8010J:z$=a$(5,0):v=pr 9000(#:data pointer Ha$,b$,c$,d$:a$="end" R1#1;1,0;0;"check ";a$; c=1condition:6000p+(200t(c)>2):o(c)=ok:c:#1;1,0;" "; (o(1)o(2)and)((o(1)o(2))or)z$="Found : "+a$+13 +((e$(t(1))+t$(t(1))+13 )(t(1)>1O(1)))+((e$(t(2))+t$(t(2))+13 )(t(2)>1O(2))):v=pr '.006yD,12 :=""3400H l#1;0,0;0;" List Paused ENTER to continue S to stop" ""3540 13 Ʀ"S"3550 ="S" "":3400H 1:0: help /1,13 ;:Z$="HELP":V=620033 6,2;"This program is called a"'"DATABASE."''"It contains information about all the major countries in the world." d'"The program helps you to find out about the countries using the 3 options on the main menu." ENTER  8010J c6,2;"The program stores each"'"countries name , capital city , area and population." ܼ''"If you just want to know all about one country you would use option 1 ."''"The program will then search through till it finds that country and show you the"'"information ." ENTER  8010J 6,2;"Option 2 lets you see a list"'"of all the countries."''" Option 3 lets you ,for example,find all the countries whose name begins with Z , or find all the countries with a population bigger than 1000000" enter  8010J h6,2;"The best way to use the"'"program is to experiment and getused to the way it works." "2'"Each choice is explained as you work through." , $B#1;0,5;0;"Press ENTER to continue" .""4910. 813 49208 B.1}L,12 :"":  string 47,2;"Search by ";b$(t(1));" :" C9 ,0;"Which of these conditions do youwish to use :-" 12 ,2;"1 Begins with";14,2;"2 Ends with";16,2;"3 Contains";18,2;"4 Equals" ;"":#1;0,2;0;"Press 1 2 3 or 4" !z$=:z$<"1"z$>"4"5040 /z=z$:10 +2*z,2;1;z o"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 4 to choose again" ""5065 =""5070 13 5020 "":l(condition)=z G"":8010J:10 ,0;b$(t(condition));c$(l(condition)) 8020T:i$=""5120 _21,0;" ";15,2;34";i$;34"  P"":#1;0,0;0;" Is this O.K. (press Y or N)" !z$=:z$"Y"z$"N"5140 z$="N"5100 (condition=1f$=i$ 2condition=2g$=i$ <z$=a$(1+(2condition=2),1)+b$(t(condition))+c$(l(condition))+34"+s$(condition)+34":7:v=pr:6 F"":8010J: O numeric P47,2;"Search by ";b$(t(1));" :" ZC9 ,0;"Which of these conditions do youwish to use :-" dj12 ,2;"1 Is less than";14,2;"2 Is greater than";16,2;"3 Equals" n9"":#1;0,2;0;"Press 1 2 or 3" x!z$=:z$<"1"z$>"3"5240x /z=z$:10 +2*z,2;1;z o"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 3 to choose again" ""5265 =""5270 13 5220d "":l(condition)=z G"":8010J:10 ,0;b$(t(condition));d$(l(condition)) 8120:i$=""5320 K21,0;" ";15,2;i$ P"":#1;0,0;0;" Is this O.K. (press Y or N)" !z$=:z$"Y"z$"N"5340 z$="N"5300 condition=1f$=i$ condition=2g$=i$ z$=a$(1+(2condition=2),1)+b$(t(condition))+d$(l(condition))+s$(condition):7:v=pr:6 "":8010J: osearch string p5ok=0:p$=s$(c):q$=t$(t(c)):l1=p$:l2=q$ z.l(c)=1l2l1q$(l1)=p$ok=1: Dl(c)=2l2l1t$(t(c))(l2-l1+1)=s$(c)ok=1: .l(c)=4t$(t(c))=s$(c)ok=1: l(c)3l2POK=1: V!L(C)=3Q=POK=1: ` ?** SUBROUTINES ** @7:0:N=04:N,0;" ":N:0,136:255,0:0,39':-255,0:0,-39':6:0: JIN=621:N,0;" ";:N: T+I$="":C=1:21,0;">_"; ^""8030^ hZ$=:Z$=""8040h r*Z$=13 1;21,C;"_": |$Z$=12 C=18030^ yZ$=12 I$=I$(C-2)+I$(C):C=C-1:21,0;">";I$;" ";21,C;1;"_":8030^ ]Z$=9 CDZI$OC=C:C=C+1:21,OC;1;"_";21,C;"_":8030^ aZ$=8C>1OC=C:C=C-1:21,OC;1;"_";21,C;"_":8030^ }Z$" "Z$""ƱI$<30I$=I$(C-1)+Z$+I$(C):C=C+1:21,0;">";I$;" ";1;21,C;"_"  8030^ +I$="":C=1:21,0;">_"; ""8130 Z$=:Z$=""8140 *Z$=13 1;21,C;"_": $Z$=12 C=18130 yZ$=12 I$=I$(C-2)+I$(C):C=C-1:21,0;">";I$;" ";21,C;1;"_":8130 ]Z$=9 CDZI$OC=C:C=C+1:21,OC;1;"_";21,C;"_":8130 aZ$=8C>1OC=C:C=C-1:21,OC;1;"_";21,C;"_":8130 }Z$"0"Z$"9"ƱI$<30I$=I$(C-1)+Z$+I$(C):C=C+1:21,0;">";I$;" ";1;21,C;"_"  8130 #(+"AFGHANISTAN","KABUL","648000","15108000" #)&"ALBANIA","TIRANE","29000","2608000" #**"ALGERIA","ALGIERS","2382000","18514000" #+'"ANGOLA","LUANDA","1247000","6733000" #,1"ARGENTINA","BUENOS AIRES","2767000","26393000" #--"AUSTRALIA","CANBERRA","7687000","14250000" #.&"AUSTRIA","VIENNA","84000","7508000" #/%"BAHAMAS","NASSAU","14000","225000" #0*"BANGLADESH","DACCA","145000","84665000" #1("BARBADOS","BRIDGETOWN","400","265000" #2("BELGIUM","BRUSSELS","31000","9850000" #3)"BENIN","PORTO-NOVO","113000","3377000" #4&"BHUTAN","THIMPHU","47000","1250000" #5'"BOLIVIA","SUCRE","1099000","5136000" #6)"BOTSWANA","GABORONE","600000","726000" #7+"BRAZIL","BRASILIA","8512000","115398000" #8'"BULGARIA","SOFIA","111000","8815000" #9'"BURMA","RANGOON","677000","32205000" #:)"BURUNDI","BUJUMBURA","28000","4256000" #<,"CAMBODIA","PHNOM PENH","181000","8573000" #=)"CAMEROON","YAOUNDE","475000","8058000" #>("CANADA","OTTOWA","9977000","23499000" #?8"CENTRAL AFRICAN REPUBLIC","BANGUI","623000","2370000" #@'"CHAD","NDJAMENA","1284000","4310000" #A("CHILE","SANTIAGO","757000","10857000" #B("CHINA","PEKING","9597000","975230000" #C*"COLOMBIA","BOGOTA","1139000","25646000" #D$"COMOROS","MORONI","2200","370000" #E*"CONGO","BRAZZAVILLE","342000","1459000" #F+"COSTA RICA","SAN JOSE","51000","2111000" #G$"CUBA","HAVANA","115000","9729000" #H$"CYPRUS","NICOSIA","9000","617000" #I/"CZECHOSLOVAKIA","PRAGUE","128000","15138000" #P*"DENMARK","COPENHAGEN","43000","5104000" #Q("DJIBOUTI","DJIBOUTI","22000","113000" #R8"DOMINICAN REPUBLIC","SANTO DOMINGO","49000","5125000" #S&"ECUADOR","QUITO","284000","7814000" #T&"EGYPT","CAIRO","1001000","41000000" #U0"EL SALVADOR","SAN SALVADOR","21000","4366000" #V3"EQUATORIAL GUINEA","REY MALABO","28000","346000" #W/"ETHIOPIA","ADDIS ABEBA","1222000","29707000" #Z "FIJI","SUVA","18000","607000" #[)"FINLAND","HELSINKI","337000","4752000" #\&"FRANCE","PARIS","547000","53280000" #d("GABON","LIBREVILLE","268000","538000" #e$"GAMBIA","BANJUL","11000","570000" #f2"EAST GERMANY","EAST BERLIN","108000","16758000" #g+"WEST GERMANY","BONN","249000","61310000" #h%"GHANA","ACCRA","239000","10969000" #i&"GREECE","ATHENS","132000","9360000" #j,"GUATEMALA","GUATEMALA","108000","6621000" #k'"GUINEA","CONAKRY","246000","4764000" #l+"GUINEA-BISSAU","BISSAU","36000","777000" #m)"GUYANA","GEORGETOWN","215000","820000" #x,"HAITI","PORT AU PRINCE","28000","4834000" #y-"HONDURAS","TEGUCIGALPA","112000","3439000" #z)"HUNGARY","BUDAPEST","93000","10699000" #{)"ICELAND","REYKJAVIC","103000","224000" #|'"INDIA","DELHI","3289000","638390000" #}-"INDONESIA","JAKARTA","2027000","145100000" #~&"IRAN","TEHRAN","1648000","35213000" #&"IRAQ","BAGHDAD","435000","12327000" #&"IRELAND","DUBLIN","70000","3365000" #("ISRAEL","JERUSALEM","21000","3690000" #$"ITALY","ROME","301000","56698000" #,"IVORY COAST","ABIDJAN","321000","7613000" #("JAMAICA","KINGSTON","11000","2133000" #&"JAPAN","TOKYO","372000","114898000" #$"JORDAN","AMMAN","98000","2984000" #'"KENYA","NAIROBI","583000","14856000" #/"NORTH KOREA","PYONGYANG","121000","17072000" #*"SOUTH KOREA","SEOUL","98000","37020000" #%"KUWAIT","KUWAIT","18000","1199000" #'"LAOS","VIENTIANE","237000","3546000" #&"LEBANON","BEIRUT","10000","3012000" #&"LESOTHO","MASERU","30000","1215000" #)"LIBERIA","MONROVIA","111000","1742000" #'"LIBYA","TRIPOLI","1760000","2748000" #+"LUXEMBOURG","LUXEMBOURG","3000","356000" #0"MADAGASCAR","ANTANANARIVO","588000","8290000" #("MALAWI","LILONGWE","118000","5669000" #/"MALAYSIA","KUALA LUMPUR","330000","12960000" #""MALDIVES","MALE","300","140000" #%"MALI","BAMAKO","1240000","6290000" ##"MALTA","VALLETTA","300","340000" #/"MAURITANIA","NOUAKCHOTT","1031000","1545000" #*"MAURITIUS","PORT LOUIS","2000","924000" #("MEXICO","MEXICO","1973000","66944000" #-"MONGOLIA","ULAN BATOR","1565000","1576000" #'"MOROCCO","RABAT","447000","18906000" #+"MOZAMBIQUE","MAPUTO","783000","11756000" #("NEPAL","KATMANDU","142000","13422000" #."NETHERLANDS","AMSTERDAM","41000","13986000" #/"NEW ZEALAND","WELLINGTON","269000","3107000" #*"NICARAGUA","MANAGUA","130000","2395000" #&"NIGER","NIAMEY","1267000","4994000" #'"NIGERIA","LAGOS","924000","77217000" #$"NORWAY","OSLO","324000","4060000" ##"OMAN","MUSCAT","212000","839000" #,"PAKISTAN","ISLAMABAD","804000","76790000" #%"PANAMA","PANAMA","76000","1826000" #6"PAPUA NEW GUINEA","PORT MORESBY","462000","3000000" #*"PARAGUAY","ASUNCION","407000","2888000" #$"PERU","LIMA","1285000","16820000" #,"PHILIPPINES","MANILA","300000","46350000" #'"POLAND","WARSAW","313000","35010000" #'"PORTUGAL","LISBON","92000","9798000" #+"ROMANIA","BUCHAREST","238000","21855000" #%"RWANDA","KIGALI","26000","4510000" #-"SAUDI ARABIA","RIYADH","2150000","7865000" #&"SENEGAL","DAKAR","196000","5381000" #-"SIERRA LEONE","FREETOWN","72000","3292000" #)"SINGAPORE","SINGAPORE","600","2334000" #."SOLOMON ISLANDS","HONIARA","28000","221000" #2"SOMALI REPUBLIC","MOGADISHU","638000","3443000" #0"SOUTH AFRICA","PRETORIA","1221000","27700000" #&"SPAIN","MADRID","505000","37110000" #*"SRI LANKA","COLOMBO","66000","14346000" #)"SUDAN","KHARTOUM","2505000","17376000" #*"SURINAM","PARAMARIBO","163000","374000" #("SWAZILAND","MBABANE","17000","544000" #)"SWEDEN","STOCKHOLM","450000","8278000" #)"SWITZERLAND","BERNE","41000","6337000" #'"SYRIA","DAMASCUS","185000","8090000" #&"TAIWAN","TAIPEI","36000","15500000" #0"TANZANIA","DAR-ES-SALAAM","945000","16553000" #*"THAILAND","BANGKOK","514000","45100000" #!"TOGO","LOME","56000","2409000" ##"TONGA","NUKUALOFA","700","95000" #8"TRINIDAD AND TOBAGO","PORT OF SPAIN","5000","1133000" #&"TUNISIA","TUNIS","164000","6077000" #'"TURKEY","ANKARA","781000","43200000" #$"TUVALU","FANAFUTI","24600","7000" #("UGANDA","KAMPALA","236000","12780000" #5"UNITED ARAB EMIRATES","ABU DHABI","84000","710000" #("USSR","MOSCOW","22402000","263400000" #/"UNITED KINGDOM","LONDON","245000","55836000" #4"UNITED STATES","WASHINGTON","9363000","218059000" #0"UPPER VOLTA","OUAGADOUGOU","274000","6554000" $+"URUGUAY","MONTEVIDEO","178000","2865000" $+"VENEZUELA","CARACAS","912000","13122000" $'"VIETNAM","HANOI","330000","49890000" $("WESTERN SAMOA","APIA","3000","151000" $)"NORTH YEMEN","SANA","195000","5642000" $)"SOUTH YEMEN","ADEN","288000","1852000" $-"YUGOSLAVIA","BELGRADE","256000","21914000" $)"ZAIRE","KINSHASA","2345000","27745000" $&"ZAMBIA","LUSAKA","753000","5649000" $("ZIMBABWE","HARARE","391000","6930000" $T"end","","","" &6:6:0::7,10 ;:Z$="Countries of":v=620033:10 ,11 ;:z$="the World":v=620033 &#16,10 ;" 1984" &B#1;0,5;0;"Press ENTER to continue" &13 9930& & '61999/:7:1:0:0:0:0:7::5,9 ;1;"STILL LOADING";7,9 ;" PLEASE WAIT ":"":236066\,86V:236077\,247:V=65110V: '>:"countries"9998':"countries"620000,3535 countries 05 yÀu :\ 2\:\=2\>2\ :\u<2\>2\ *6\o&))):\???OG:\'''8o???g@yo|gOx( 9;=~^(/w#~^(/w+ y :\G:\o&)))))x???o|gX:\Oqx(#q:\(2\>2\:\u<2\*K\~Z`  #~( #^#V#:\2\!\:\ >2\FP#N#F#x~ ym#~2\ #~'W'2\ m ym ym#~W:\2\ m ym#~'''W:\ǂ2\ m ym# ~mm ym# ~mm ym# ~mm9# x>2\FP:\G>!2:\G>2#N#F#x~ͱ# x o&)))<:O:G y >2xg'''''o@w$<o 2H\2\W!Xr# x x $$(~((~(|P||hh XX(*D:   (|(| | @8LTTd8088D8@|8DD8(H||@xD88@xDD8| 8D8DD88DD<8 <<8D8TL\@88DD|DDxDxDDx8D@@D8pHDDHp|@x@@||@x@@@8D@LD8DD|DDD88DD8HP`PHD@@@@@|DlTDDDDdTTLD8DDDD8xDDx@@8DDDT8xDDxHD8@8D8|DDDDD8DDDD(DDDDT(D((DDD(| @|@ pp8T$p |8 G^>>VG!;\::\(3:(>2\>2:H\8G???2H\> 2\>2>Z~~<8pp8<~~Z>c`>c>~cc~```<<~cc~ccc>ccccc`````c~c`|`ccs{ogcXd@FBXd@FB ' {Bz {P\P Xd@FA