|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 38400 (0x9600)
Types: TextFile
Names: »geotxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »geotxt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »geotxt«
(geografi=set 106
geodata=set 13
scope day geografi geodata
geografi=algol
geodata=edit c.20
end
geografi)
begin
comment includes all independent nations mentioned in the
Mayland calendar 1970 plus Tibet;
integer nations,textplaces,branches,maxquest,nationplusnames,
no,i,i1,i2,i3,i4,j,k,lt,spm,x,y,z,v,w,ran,qno,shouldbe;
nations:=148;
branches:=100;
maxquest:=12;
textplaces:=550;
nationplusnames:=200;
begin integer array Qrow(0:nations),Q(1:branches,1:4),
A(1:maxquest),nameadr(1:nationplusnames+1),
iso(0:127),kind(1:12);
array Names(1:textplaces),Name(1:12);
real time;
boolean same,D;
procedure whatlanguage;
begin
again:
write (out, <:
dansk/English <63>
:>);
set_position (out, 0, 0);
z :=0;
B:
readchar (in, y);
if y=32 and (z=0 or z=369 or z=522) then goto B;
z :=z+y;
if y <>10 then go_to B;
if z =379 or z=78 then D :=true else
if z =532 or z=79 then D :=false else
if z <>10 then go_to again;
write (out, if D then
<:
TÆNK PÅ EN SELVSTÆNDIG NATION
:> else
<:
THINK OF AN INDEPENDENT NATION
:>);
set_position (out, 0, 0);
end;
integer procedure finddif(n); integer n;
begin integer i,j,k;
for i:=1 step 3 until maxquest-2 do
begin
k:=i//3+1;
for j:=-2,-1,0 do
if abs A(i+j+2)<>Q(n,k) shift (j*8) extract 8 then goto FOUND
end;
FOUND:
finddif:=i+j+1;
if i=maxquest+1 then finddif:=maxquest;
end finddif;
begin zone data(128,1,stderror);
integer l1,l2;
open(data,4,<:geodata:>,0);
read(data,iso);
for i:=0 step 1 until 127 do iso(i):=
iso(i) shift 12 add i;
for i:=97 step 1 until 125 do iso(i):=
iso(i)-32;
intable(iso);
whatlanguage;
write(out,<:<10>:>, if D then <:
Mens De tænker vil jeg hente nødvendig
forhåndsviden fra baggrundslageret.
:> else <:
While you think, I will read some necessary
pre-information from the background files
:>); setposition(out,0,0);
for i:=1 step 1 until branches do
begin
read(data,i1,i2,A); Qrow(i1):=Qrow(i2):=i;
for i1:=1 step 3 until maxquest-2 do
Q(i,i1//3+1):=A(i1) shift 8 add A(i1+1) shift 8 add A(i1+2);
end;
read(data,lt);
lt:=1;
for i:=1 step 1 until nationplusnames do
begin
rep: l1:=readall(data,Name,kind,1);
if l1=1 then goto rep;
l2:=readall(data,Name,kind,l1);
l2:=l2-1; l1:=l1-1;
if l1<1 or l2<1 then goto inputtest;
for j:=1 step 1 until l1+l2 do
Names(lt+j-1):=Name(j);
same:=l1=l2;
if same then
for j:=lt+l1-1 step -1 until lt do
same:=same and Names(j)=Names(j+l1);
if same then
begin
nameadr(i):=lt shift 12 add lt;
lt:=lt+l1
end
else
if kind(1+l1)=2 then
begin
nameadr(i):=round Names(lt+l1) shift 12 add lt;
lt:=lt+l1
end
else
begin
nameadr(i):=lt shift 12 add (lt+l1);
lt:=lt+l1+l2
end;
end;
close(data,true);
nameadr(i):=lt;
inputtest:
if textplaces<>lt+1 then
write(out,<:textplaces:>,lt+1);
lt:=lt-l1;
if Names(lt)<>real<:SAMOA:> then
write(out,<:<10>last text input :>,
string Names(increase(lt)) );
end;
begin
integer array statistik(1:nations+1);
procedure idiot;
begin
x:=x+spm;
x:= if x>17 then x-18 else x;
w :=x*2 + (if -,D then 1 else 0);
write(out, <:<10>:>, (case w+1 of (
<:Er nationalsporten opvask:>,
<:Is the national sport dish washing:>,
<:Kunne De tænke Dem at være statsminister:>,
<:Would you like to be a primeminister:>,
<:Er nationaldragten badedragt og lammeskindspels:>,
<:Is the national dress swim-suit and lamb fur:>,
<:Er månen lavet af hollandsk ost:>,
<:Is the moon made of Dutch cheese:>,
<:Er hovednæringsmidlet tyggegummi:>,
<:Is the main source of nourishment chewing-gum:>,
<:spn<1<g:+-789
Undskyld,skrev jeg forkert:>,
<:spn<1<g:+-789
Excuse me, did I make a mistake:>,
<:Kendes landet på sine store grønne dværge:>,
<:Is the land known by its large green dwarfs:>,
<:Er De sulten:>,
<:Are you hungry:>,
<:Har jeg forresten truffet Dem før:>,
<:By the way, have I ever met you before:>,
<:Er Ronald-Deng præsident i dette land:>,
<:Is Ronald-Deng the president of this country:>,
<:Lever der talende ænder:>,
<:Do the ducks in this country speak:>,
<:Kunne De tænke Dem at have sådan en som mig:>,
<:Would you like to have someone like me:>,
<:Er der en Whiskyflaske på landets flag:>,
<:Is there a Whisky bottle on the countrys flag:>,
<:Holder De af Brahms:>,
<:Do you like Brahms:>,
<:Findes der makaronimarker her:>,
<:Does spagetti grow here:>,
<:Er klokken over 17.00:>,
<:Is is past 5 p.m.:>,
<:Har De nogensinde været der:>,
<:Have you ever been there:>,
<:Lever der lyserøde elefanter:>,
<:Do pink elefants live here:> ) ),
<:<63>:> );
i:=if answer(false) then 1 else 2;
write(out,<:<10>:>, case 2*w+i of (
<:Så kender jeg en masse husmødre, der kunne lide at bo der:>,
<:Det ville nok være umuligt at gøre så populært:>,
<:Then I know a lot of housewifes who would like to live there:>,
<:It would be difficult to make it that popular:>,
<:Desværre kan jeg ikke hjælpe Dem:>,
<:Jeg ville også hellere være en flyvemaskine:>,
<:Sorry, I can not help you:>,
<:Personally I should prefer to be an airplane:>,
<:Det kunne jeg lide at se:>,<:Det ville forbavse mig:>,
<:I should love to see it:>,<:It would have surprised me:>,
<:Jeg gad vide, hvor De ved det fra:>,<:Hvordan kan De nu være sikker:>,
<:I wonder who told you:>,<:How can you be sure:>,
<:Så foretrækker jeg nu øl:>,<:Nej, selv ikke i USA:>,
<:Then I prefer a beer:>,<:No, not even in USA:>,
<:Beklager, jeg skal aldrig gøre det mere:>,
<:Så må det være et sprog jeg ikke kender:>,
<:Sorry, I shall never do it again:>,
<:Then it must be a language I do not know:>,
<:De har nu humoristisk sans:>,
<:De ved jo ikke en gang, hvad en stor grøn dværg er:>,
<:You certainly have a sense of humour:>,
<:You dont even know what a large green dwarf is:>,
<:Det er jeg også, jeg tænker hele tiden på båndsalat:>,
<:Det var heldigt, for jeg har intet at byde på:>,
<:Oh I am glad, because I have nothing to offer you:>,
<:Oh I am, I keep thinking on tape jam:>,
<:Det er rart at se Dem igen:>,<:Jeg er glad for at træffe Dem:>,
<:Nice to meet you again:>,<:I am pleased to meet you:>,
<:Gad vidst om det er United States of China
eller American Folks Republic:>,<:De har helt ret:>,
<:I wonder if it is United States of China
or American Folks Republic:>,<:You are quite right:>,
<:Jamen, Disneyland er ikke uafhængigt:>,
<:Og desuden er Disneyland ikke uafhængigt:>,
<:Yes but, Disneyland is not independent:>,
<:And furthermore, Disneyland is not independent:>,
<:Jeg er sikker på at De aldrig ville fortryde det:>,
<:De ved ikke, hvad De går glip af:>,
<:I am sure you would never regret it:>,
<:You do not know what you will miss:>,
<:Det overrasker mig:>,<:Det tænkte jeg nok:>,
<:I am surprised:>,<:That is what I would guess too:>,
<:Det gør jeg også:>,<:Trist for Dem:>,
<:So do I:>,<:What a pity:>,
<:Så er der vel også pandekagetræer:>,
<:Nej, for makaroni vokser slet ikke:>,
<:And here are pancake trees too, I quess:>,
<:No, spagetti does not grow at all:>,
<:Så tror jeg, jeg går hjem:>,<:Og jeg er så træt:>,
<:Then I think I will go home:>,<:And I am so tired:>,
<:Men jeg ved jo ikke hvor De har været:>,
<:Det er forresten ligemeget:>,
<:But I do not know where you have been:>,
<:It does not matter, by the way:>,
<:Måske skulle De holde op med at drikke:>,
<:Mærkeligt, det gør der alle steder, hvor jeg har været:>,
<:Maybe you should stop drinking:>,
<:Strange, they have been all places, where I have been:>),<:.<10>:>);
end idiot;
procedure ISIT(n); value n; integer n;
begin
n:=nameadr(n) shift (if D then -12 else 0) extract 12;
write(out, <:<10>:>, (if D
then <: Er det :>
else <: Is it :>),
string Names (increase(n)),<: <63>:>);
end ISIT;
procedure GUESS;
begin array ST(0:11);
integer ha;
for ha:=0 step 1 until 11 do
ST(ha):=S;
ha:=R*10;
lt:=ST(ha);
for ha:=1 step 1 until nations do
statistik(ha):=abs(statistik(ha));
end GUESS;
integer procedure S;
begin integer v,m;
v:=m:=1;
TOMM: if statistik(v) < statistik(v+m) then
begin v:=v+m; m:=1 end else m:= m+1;
go_to if v=nations ! v+m= nations+1 then TUD else TOMM;
TUD: statistik(v):= -statistik(v);
S:= v
end;
real procedure R;
R:=random(ran);
boolean procedure answer(sense); boolean sense;
begin integer a,b,c,d;
procedure boob;
begin if a=0 then write (out, if D then <:
om igen
:> else <:
Again please
:>) else write (out, if D then <:
FUMLEFINGER - om igen
:> else <:
CLUMSY - again please
:>);
set_position (out, 0, 0);
a:=1; go_to RPT;
end boob;
a:=0; write (out, <:<10>:>);
set_position (out, 0, 0);
RPT:
c:=0;
AA:
read_char (in, b);
if b=32 then
begin
if c=0 or D and (c=221 or c=139) or -,D and (c=241 or c=157)
then goto AA
end;
if b <>10 then
begin c:=b+c; go_to AA
end;
if -,D then go_to eng;
answer :=if c=139 then true else false;
if c <>221 & c <>139 then boob;
go_to OUT;
eng:
answer :=if c =157 then false else true;
if c <>241 & c <>157 then boob;
OUT:
if sense then
begin
qno:=qno+1;
if qno<13 then A(qno):=if c=221 or c=157 then -no else no
end;
spm:=spm+1
end;
real procedure GOTO(L);
integer L;
begin
goto case L of (G1,G2,G3,G4,G5,G6,G7,G8,G9,G10,G11,G12)
end;
procedure ASK(n); value n; integer n;
begin if n>200 then n:=n-200;
n :=n*2 +(if -,D then 0 else (-1));
write(out,<:<10>:>);
if n<=60 then write(out, case n of (
<:Ligger landet udelukkende på en eller flere øer:>,
<:Is this country situated, exclusively on one or more islands:>,
<:Ligger øen i det Karibiske hav:>,
<:Is this island in the Carribean Sea:>,
<:Hedder statsministeren Fidel Castro:>,
<:Is the prime minister called Fidel Castro:>,
<:Er hovedstaden Port au Prince:>,
<:Is the capital Port au Prince:>,
<:Er det kænguruens hjemland:>,
<:Is this land the home of Kangaroos:>,
<:Er ris befolkningens hovednæringsmiddel:>,
<:Is rice a very important foodstuff for the population:>,
<:Er Java en af de mange øer i dette land:>,
<:Is Java one of the many islands in this country:>,
<:Er dette land kendt for sin te-produktion:>,
<:Is this land known for its tea-production:>,
<:Kommer Manilla-hampen fra dette land:>,
<:Does Manilla hamp come from this land:>,
<:Blev de olympiske lege afholdt her i 1964:>,
<:Were the Olympic Games held here in 1964:>,
<:Ligger Sydafrika indenfor 1000 km:>,
<:Is South Africa inside a range of 1000 miles:>,
<:Mere end 40 millioner indbyggere:>,
<:More than 40 million inhabitants:>,
<:Er der varme kilder i dette land:>,
<:Are there hot springs in this land:>,
<:Er det nord for ækvator:>,
<:Is it North of the Equator:>,
<:Er klimaet varmt:>,
<:Is the climate hot:>,
<:Tilhører landet Europa/Afrika:>,
<:Is the land situated in Europe/Africa:>,
<:Er det øst for Leipzig:>,
<:Is it East of Leipzig:>,
<:Er det øst for Persien:>,
<:Is it East of Persia:>,
<:Kan indbyggerne bade i det blå Middelhav:>,
<:Can the inhabitants bathe in the Mediterranean:>,
<:Gennemløbes landet af Eufrat:>,
<:Does River Euphrates run through this country:>,
<:Kendt for sin sorte kaffe og cigaretter:>,
<:Known for black coffee and cigarettes:>,
<:Er befolkningen muhammedanere:>,
<:Member of the Arab League:>,
<:Grænser landet til Iraq:>,
<:Is this land just over the border from Iraq:>,
<:Er landets navn på mere end 4 bogstaver:>,
<:More than 4 letters in its name:>,
<:Er statsoverhovedet konge og ikke shah eller sheik:>,
<:Is the Head of State a King and not a Shah or a Sheik:>,
<:Er der en stor flod af samme navn:>,
<:Has a big river the same name as this state:>,
<:Er landet berømt for sine tæpper:>,
<:Famous for its carpets and rugs:>,
<:Er landet medlem af østblokken:>,
<:Did this country sign the Warsaw Pact:>,
<:Lever der vilde giraffer i den del af verden landet tilhører:>,
<:Do wild giraffes live in the part of the world in which
this country is situated:>,
<:Har landet kyststrækninger:>,
<:Has this country any coast-line:>))
else if n<=120 then write(out, case n-60 of (
<:Er det første bogstav i landets navn forskelligt fra L:>,
<:Is the first letter in this countrys name different from L:>,
<:Ligger landet på den italienske halvø:>,
<:Does this country lie on the Italian penisula:>,
<:Bor paven her:>,
<:Does the Pope live here:>,
<:Er det Wienervalsens hjemland:>,
<:The home of the Vienna waltz:>,
<:Kendt for sin urfremstilling:>,
<:Known for its manufacture of watches and clocks:>,
<:Er landet nabo til Belgien:>,
<:Is it one of Belgiums neighbours:>,
<:Grænser landet til Sovjetunionen:>,
<:Does this country share a border with USSR:>,
<:Er landet nabo til Rumænien:>,
<:Is this country a neighbour of Romania:>,
<:Er landet nabo til Østtyskland:>,
<:Is this country a neighbour of East Germany:>,
<:Har landet kyst til Adriaterhavet:>,
<:Has this land a coast to the Adriatic Sea:>,
<:Er det et af Østersølandene:>,
<:Is it a Baltic State:>,
<:Er det kejserpingvinens hjemland:>,
<:Is it the home of the emperor penguin:>,
<:Har dette land opsendt Sputnik:>,
<:Did this country send up Vostok 5:>,
<:Er det en del af det afrikanske hovedland:>,
<:Part of the African Mainland:>,
<:Er fransk et officielt sprog i dette land:>,
<:Is French an official language in this country:>,
<:Har landet kyst til Atlanterhavet:>,
<:Has this country a coast to the Atlantic:>,
<:Består det meste af landet af Sahara:>,
<:Is the larger part of this land, Sahara Desert:>,
<:Er indbyggerne romersk katolske:>,
<:Are the inhabitants Roman Catholics:>,
<:Er tyrefægtning en populær sport:>,
<:Is bull fightning popular throughout this country:>,
<:Gennemstrømmes landet af Nilen:>,
<:Does the Nile flow through this country:>,
<:Tilhører en del af dette land mellemøsten:>,
<:Does part of this land belong to the Near East:>,
<:Er det første bogstav i landets navn S:>,
<:Is the first letter of this countrys name S:>,
<:Indeholder det et af Afrikas yderpunkter (Kap-er):>,
<:Does it contain one of Africas Capes:>,
<:Er det særlig kendt for sin raceadskillelsespolitik:>,
<:Does the government practise Apartheid:>,
<:Er det vest for Nigeria:>,
<:Is it West of Nigeria:>,
<:Er der mere end 6 bogstaver i landets navn:>,
<:More than 6 letters in the name of the country:>,
<:Grænser landet til Guinea:>,
<:Does the country share any borders with Guinea:>,
<:Krydser ækvator dette land:>,
<:Does the Equator cross this country:>,
<:Består en af grænserne af Congo-floden:>,
<:Does River Congo form one of its borders:>,
<:Danner de 5 første bogstaver navnet på en anden
afrikansk stat:>,
<:Do the first 5 letters form the name of another African state:>))
else if n<=180 then write(out, case n-120 of (
<:Er landet opkaldt efter sin kyst:>,
<:It is named after its coast line:>,
<:Har det en gang været kendt som guldkysten:>,
<:Was it once known as the Gold Coast:>,
<:Er landet en Republik:>,
<:Is it a Republic:>,
<:Findes der en sø af samme navn:>,
<:Is there a lake of the same name:>,
<:Er der en anden afrikansk stat med et lignende navn:>,
<:Is there another African state with a similar name:>,
<:Er det en nabo til Niger:>,
<:Is it a neighbour to Niger:>,
<:Er dette land et kongerige:>,
<:Is this land a kingdom:>,
<:Har Goethe engang levet her:>,
<:Has Goethe lived here:>,
<:Fremstilles portvinen her:>,
<:Is port wine made there:>,
<:Er det et skandinavisk land:>,
<:Is this land a member of the Scandiavian community:>,
<:Bliver RC8000 fremstillet her:>,
<:Is RC8000 made in this country:>,
<:Uddeles Nobelprisen i fysik herfra:>,
<:Does this country give the Nobel Prize in physics:>,
<:Er dette land kendt for sine cigarer og tulipaner:>,
<:Is this country famous for its cigars and tulips:>,
<:Grænser dette land til Laos:>,
<:Does this country share a border with Laos:>,
<:Gennemløbes landet af Ganges:>,
<:Does the River Ganges run through this country:>,
<:Deles dette land i to dele af Indien:>,
<:Is this land divided into 2 parts by India:>,
<:Er det en føderation som blev grundlagt i 1963:>,
<:Is this a Federation which was founded in 1963:>,
<:Er arealet af dette land større end hele den koreanske halvø:>,
<:Is the area of this country larger than the whole of the
Korean peninsula:>,
<:Ligger en del af Kina nord for dette land:>,
<:Is the country on the northern border of this land a part
of China:>,
<:Ender dette lands navn på -TAN:>,
<:Does the name of this country end with-TAN:>,
<:Er det kendt for sine tæpper:>,
<:Is it famous for its carpets:>,
<:Findes verdens højeste bjerg her:>,
<:Is the worlds highest Mountain situated here:>,
<:Er det syd for den kinesiske mur:>,
<:Is it south of the Chinese Wall:>,
<:Grænser det op til Kina:>,
<:Does it share a border with China:>,
<:Er der mere end 500 millioner indbyggere:>,
<:Are there more than 500 million inhabitants:>,
<:Er det her siameserkattene kommer fra:>,
<:Is this where Siamese cats come from:>,
<:Ender dette lands navn på -NAM:>,
<:Does the name of this country end with - NAM:>,
<:Er Mandalay en by i dette land:>,
<:Is Mandalay a town in this country:>,
<:Ligger landet mellem Honduras og Colombia:>,
<:Situated between Honduras and Colombia:>,
<:Går folk med panama-hatte og gennemskæres landet
af en stor kanal:>,
<:Is this land intersected by a large Canal:>))
else write(out, case n-180 of (
<:En nabo til Panama:>,
<:A neighbour to Panama:>,
<:Ligger en del af landet indenfor polarkredsen:>,
<:Does part of its territory lie within the Arctic circle:>,
<:Er spansk hovedsproget:>,
<:Is Spanish the major language:>,
<:Løber Amazonfloden eller en af dens bifloder
gennem dette land:>,
<:Does the River Amazon or one of its tributaries run
through this country:>,
<:Har landet kyst mod Stillehavet:>,
<:Does it have a Pacific coast line:>,
<:Hedder hovedstaden Quito:>,
<:Is the capital called Quito:>,
<:Er landet opkaldt efter helten Simon Bolivar:>,
<:Is it named after the hero Simon Bolivar:>,
<:Ligger landet nord for Bolivia:>,
<:Is this country North of Bolivia:>,
<:Ender landets navn på -GUAY:>,
<:Does the name of this country end in -GUAY:>,
<:Er Montevideo hovedstaden:>,
<:Is the capital called Montevideo:>,
<:Kendes landet for sine sletter (Pampas):>,
<:Is the land known for its beef-export and Pampas:>,
<:Findes der en bugt af samme navn:>,
<:Is there a gulf with the same name:>,
<:Grænser landet til USA:>,
<:Does it share a border with the USA:>,
<:Er det mindre end Guatemala:>,
<:Is it smaller than Guatemala:>,
<:Er øen berømt for god gammel rom:>,
<:Is the island famous for its old rum:>,
<:Hedder hovedstaden Port of Spain:>,
<:Is the capital Port of Spain:>,
<:Hedder hovedstaden Apia:>,
<:Is the capital called Apia:>,
<:Kan indbyggerne sejle på Den Persiske Bugt:>,
<:Can the inhabitants sail on the Persian bay:>,
<:Er landet en forening af 7 sheikdømmer:>,
<:Is the country a union of 7 sheikdoms:>,
<:Er landet større end Bahrein:>,
<:Is the country larger than Bahrein:>,
<:Er Aden en del af dette land:>,
<:Is Aden part of this country:>,
<:Ligger landet nord for Zambia:>,
<:Is the country situated north of Zambia:>,
<:Ender navnet på -ANDA:>,
<:Does the name end in -ANDA:>,
<:Kan indbyggerne bade i Victoriasøen:>,
<:Can the inhabitants bathe in the Victoria Lake:>,
<:Er det nabo til Rhodesia:>,
<:Is it a neighbour of Rhodesia:>,
<:Hed landet tidligere Nordrhodesia:>,
<:Was this country former called North-Rhodesia:>,
<:Er Salisbury hovedstaden:>,
<:Is the capital called Salisbury:>,
<:Er det det tidligere Basutoland:>,
<:Was the country former called Basuto:>,
<:Hedder hovedstaden Freetown:>,
<:Is Freetown the capital:>,
<:Grænser landet til Mali:>,
<:Does it share any borders with Mali:>,
<:Er Katanga en provins i dette land:>,
<:Is Katanga part of this country:>,
<:Er Nairobi hovedstaden:>,
<:Is Nairobi the capital:>,
<:Er landet større end Grønland:>,
<:Is this country greater than Greenland:>,
<:Ligger landet syd for Cameroun:>,
<:Is this country situated south of Cameroun:>,
<:Ligger landet syd for Thailand:>,
<:Is this country situated south of Thailand:>));
write(out,<:<63>:>);
comment 125 question implemented;
end ASK;
real procedure TEST(n,a,b);
value n; integer n; real a,b;
begin
integer i;
v:=R*7;
if v<=1 or spm=qno and qno=5 then idiot;
no:=n; ASK(n); i:= if answer(true) then a else b;
end;
real procedure mustbe(n);
value n; integer n;
begin ISIT(n); lt:=n;
if answer(true) then go_to FOUND else go_to ERROR
end;
PROGRAM:
lt:=0;
systime(1,0,time); systime(2,time,time);
ran:=time; x:=entier(R*18);
for y :=1 step 1 until nations+1 do
statistik (y) :=1;
goto REPEAT;
NEW:
whatlanguage;
REPEAT:
write (out, if D then <:
ER DE KLAR:> else <:
ARE YOU READY:>,<:<63>:>);
set_position (out, 0, 0);
GUESS;
if -,answer(false) then go_to REPEAT else ISIT(lt);
spm:=0;
if answer(false) then go_to FOUND;
qno:=0;
TEST(1,
TEST(2,
TEST(3,mustbe(23),
TEST(67,
TEST(105,mustbe(138),
TEST(106,mustbe(139),mustbe(136))),
TEST(4,mustbe(38),mustbe(83)))),
GOTO(1)),
TEST(16,GOTO(3),
TEST(17,
TEST(5,mustbe(6),
TEST(18,GOTO(6),
TEST(19,
TEST(23,
TEST(21,mustbe(106),mustbe(99)),
TEST(22,mustbe(54),mustbe(45))),
GOTO(2)
))),GOTO(4))));
G1:
TEST(123,
TEST(5,mustbe(6),mustbe(16)),
TEST(11,
TEST(67,mustbe(127),mustbe(59)),
TEST(6,
TEST(7,mustbe(118),
TEST(8,mustbe(18),
TEST(9,mustbe(30),
TEST(10,mustbe(47),
TEST(67,mustbe(141),mustbe(100)))
))),
TEST(12,mustbe(28),
TEST(13,
TEST(14,mustbe(44),mustbe(68)),
TEST(15,
TEST(67,mustbe(119),
TEST(14,mustbe(52),
TEST(107,mustbe(146),mustbe(145)))),
mustbe(26))
)))));
G2:
TEST(23,
TEST(25,
TEST(26,mustbe(48),mustbe(88)),
TEST(27,mustbe(42),mustbe(51))),
TEST(20,mustbe(43),
TEST(24,
TEST(108,
TEST(109,mustbe(144),
TEST(110,mustbe(142),mustbe(140))),
TEST(111,mustbe(143),mustbe(114))),
mustbe(75))));
G3:
TEST(28,
TEST(43,mustbe(110),
TEST(37,
TEST(39,
TEST(41,mustbe(80),mustbe(104)),
TEST(30,mustbe(85),mustbe(107))),
TEST(38,
TEST(40,mustbe(49),mustbe(11)),
TEST(240,mustbe(2),mustbe(117))))),
TEST(19,GOTO(8),TEST(29,GOTO(10),
TEST(230,GOTO(9),
TEST(35, mustbe(89),
TEST(31,
TEST(32,
TEST(33,mustbe(111),mustbe(86)),
TEST(34,mustbe(116),mustbe(4))),
TEST(36,mustbe(58),mustbe(57))))))));
G4:
TEST(89,
TEST(90,mustbe(77),
TEST(91,mustbe(22),mustbe(69))),
TEST(92,TEST(42,mustbe(16),
TEST(45,mustbe(15),mustbe(109))),
TEST(93,GOTO(5),mustbe(10))));
G5:
TEST(94,TEST(95,
TEST(96,mustbe(25),
TEST(24,mustbe(20),mustbe(79))),
TEST(97,mustbe(9),mustbe(112))),
TEST(98,
TEST(102,
TEST(103,mustbe(64),mustbe(40)),
TEST(104,mustbe(87),
TEST(67,mustbe(137),mustbe(37)))),
TEST(99,TEST(100,mustbe(108),mustbe(78)),
TEST(101,mustbe(5),mustbe(19)))));
G6:
TEST(74,
TEST(85,mustbe(50),
TEST(86,mustbe(102),
TEST(87,
TEST(79,mustbe(73),mustbe(98)),
TEST(88,mustbe(12),mustbe(13))))),
GOTO(7));
G7:
TEST(30,
TEST(43,mustbe(110),
TEST(75,
TEST(76,mustbe(76),mustbe(41)),
TEST(125,TEST(77,mustbe(60),mustbe(147)),
TEST(78,mustbe(66),
TEST(79,mustbe(72),mustbe(97)))))),
TEST(80,
TEST(81,mustbe(1),mustbe(8)),
TEST(82,mustbe(103),
TEST(83,
TEST(84,mustbe(67),mustbe(53)),
mustbe(66)))));
G8:
TEST(44,
TEST(45,
TEST(46,mustbe(62),
TEST(47,mustbe(3),mustbe(105))),
TEST(50,mustbe(115),mustbe(56))),
TEST(48,
TEST(46,
TEST(49,mustbe(93),mustbe(32)),
TEST(40,mustbe(46),mustbe(65))),
TEST(40,mustbe(49),
TEST(51,mustbe(106),mustbe(35)))));
G9:
TEST(67,
TEST(70,
TEST(71,mustbe(24),
TEST(72,mustbe(95),mustbe(74))),
TEST(73,mustbe(39),mustbe(7))),
TEST(69,mustbe(81),
TEST(68,mustbe(113),mustbe(31))));
G10:
TEST(30,
TEST(52,
TEST(53,
TEST(54,mustbe(96),
TEST(55,mustbe(90),mustbe(92))),
TEST(50,mustbe(94),
TEST(119,mustbe(91),mustbe(131)))),
GOTO(11)),GOTO(12));
G11:
TEST(46,
TEST(55,
TEST(56,
TEST(57,
TEST(61,mustbe(27),mustbe(55)),
TEST(47,mustbe(63),mustbe(122))),
TEST(120,
TEST(102,mustbe(36),mustbe(123)),
TEST(62,mustbe(34),mustbe(133)))),
TEST(58,
TEST(59,
TEST(121,mustbe(82),mustbe(21)),
mustbe(33)),
TEST(124,mustbe(148),TEST(60,mustbe(71),mustbe(14))))),
TEST(67,mustbe(29),
TEST(122,mustbe(124),mustbe(132))));
G12:
TEST(14,
TEST(65,mustbe(70),
TEST(66,
TEST(64,mustbe(101),
TEST(24,mustbe(84),mustbe(61))),
mustbe(17))),
TEST(112,
TEST(113,
TEST(114,mustbe(134),mustbe(129)),
mustbe(121)),
TEST(115,
TEST(116,mustbe(135),mustbe(120)),
TEST(67,
TEST(118,mustbe(125),mustbe(130)),
TEST(117,mustbe(128),mustbe(126))))));
FOUND:
statistik(lt):=statistik(lt)+1;
if -,D then go_to eng1;
write (out, <:
Det var RC8000 på det:>, spm, <:. spørgsmål:>); go_to EXIT;
eng1: write (out, <:
That was RC8000 on the:>, spm, if spm>3
then <:th:> else (if spm=2 then <:nd:> else
(if spm=3 then <:rd:> else <:st:>)),
<: question, thank you:>);
go_to EXIT;
ERROR:
write (out, if D then <:
Desværre er der svaret galt på et eller flere af de
stillede spørgsmål. Ønsker De at vide hvilket:> else <:
Unfortunately we seem to disagree about one or more
of the answers to the questions. Do you want to know which one:>,
<:<63> :>);
if answer(false) then
begin
TYPENAME:
write(out,<:<10>:>, if D then
<:Tast nationens navn:<10>:>
else
<:Type name of nation:<10>:> );
setposition(out,0,0);
for j:=readchar(in,i) while i=32 or i=10 do;
repeatchar(in);
i4:=readall(in,Name,kind,1);
k:=48;
for j:=0,j+1 while i1=0 or i1=32 do
begin
if k=48 then
begin
k:=0;
i4:=i4-1;
end;
i1:=Name(i4) shift (-k) extract 8;
k:=k+8
end;
i3:=(j-1) mod 6;
if i3=0 then
begin i3:=6; i4:=i4+1 end;
Name(i4):=Name(i4) shift (-i3*8) shift (i3*8);
if Name(1)=real<:NO:> or Name(1)=real<:NEJ:>
then goto EXIT;
same:=false;
for i:=1, i+1 while i<=nationplusnames and -,same do
begin
i1:=nameadr(i) shift (-12) extract 12;
i2:=nameadr(i) extract 12;
i3:=nameadr(i+1) shift (if i<nations then -12 else 0)
extract 12 - i2;
same:=i3=i4;
if same then
for j:=1 step 1 until i3 do
same:=same and Names(i2+j-1)=Name(j);
if -,same and i1<>i2 and i<nations then
begin
i3:=i2-i1;
same:=i3=i4;
if same then
for j:=1 step 1 until i3 do
same:=same and Names(i1+j-1)=Name(j);
end;
shouldbe:=if i<nations then i else i1;
end;
if -,same then
begin
write(out,if D then <:
Desværre kender jeg ikke nogen nation, der staves således.
Prøv igen:> else <:
Sorry, I do not know a nation spelt this way.
Try once more:>);
goto TYPENAME
end;
if shouldbe=lt then
begin
write(out,<:<10>:>,if D then <:
Jamen, det sagde jeg jo også:> else <:
Yes, but that is what I told you:>,<:<10>:>);
goto EXIT
end;
i1:=Qrow(shouldbe);
i2:=finddif(i1);
if shouldbe=6 or shouldbe=49 or shouldbe=66 or
shouldbe=106 or shouldbe=110 or shouldbe=16 then
begin comment Australia, Yugoslavia, Mongolia,Antarktis,
Turkey and USSR may be found in two different ways;
i3:=if shouldbe= 6 then 6 else
if shouldbe=16 then 83 else
if shouldbe= 49 then 11 else
if shouldbe= 66 then 66 else
if shouldbe=106 then 35 else 19;
i4:=finddif(i3);
if i2<i4 then
begin i1:=i3; i2:=i4 end
end;
write(out,if D then <:<10>De skulle have svaret :> else
<:<10>You should have answered :>,
if A(i2)<0 then (if D then <:ja:> else <:yes:>)
else if D then <:nej:> else <:no:>,
if D then <: på dette spørgsmål:> else
<: on this question:>,<::<10>:>);
ASK(abs A(i2));
write(out,<:<10>:>,if D then <:Er vi enige:>
else <:Do you agree:>,<:<63>:>);
if answer(false) then
write(out,if D then <:okay, tak:>
else <:okay, thank you:>) else
write(out,if D then <:
En af os trænger til er kursus i geografi.
Bring dette papir til Deres lærer og kontakt mig,
hvis læreren er enig med Dem. Tak<10>:> else <:
One of us needs a course in geography.
Bring this paper to your teacher and contact me,
in case the teacher agrees with you. Thank you<10>:>);
end;
EXIT:
write (out, if D then <:
Skal vi prøve igen:> else <:
Shall we try once more:>,<:<63>:>);
if answer(false) then go_to NEW else write(out, if D then <:
Farvel, - jeg håber De morede Dem.<10>:> else <:
Goodbye, - I hope you had some fun.<10>:>);
end
end
end
m e
i/
iso, space, & , ( and ) are here allowed as textparts
0 7 7 7 7 7 7 7 7 7 8 7 8 7 7 7 7 7 7 7 7 7 7 7 7 8 6 6 6 6 6 6
6 7 7 7 7 7 6 5 6 6 7 3 7 3 4 7 2 2 2 2 2 2 2 2 2 2 7 7 7 7 7 7
7 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7
7 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 0
1, 8 1,16,17,5,18,74,30,80,81,0,0,0 Afghanistan, Bhutan
2,117 1,16,28,43,37,38,240,0,0,0,0,0 Albania,
3,105 1,16,28,19,44,45,46,47,0,0,0,0 Algeria, Tunesia
4,116 1,16,28,19,29,230,35,31,32,34,0,0 Andorra, Austria
5, 19 1,16,17,89,92,93,94,98,99,101,0,0 Argentina, Chile
6, 0 1,16,17,5,0,0,0,0,0,0,0,0 Australia
7, 39 1,16,28,19,29,230,67,70,73,0,0,0 Belgium,Holland
101, 0 1,16,28,19,29,30,14,65,66,64,0,0 Chad
9,112 1,16,17,89,92,93,94,95,97,0,0,0 Bolivia, Venezuela
10, 0 1,16,17,89,92,93,0,0,0,0,0,0 Brazil
11, 49 1,16,28,43,37,38,40,0,0,0,0,0 Bulgaria, Yugoslavia
12, 13 1,16,17,5,18,74,85,86,87,88,0,0 Burma, Cambodia
102, 0 1,16,17,5,18,74,85,86,0,0,0,0 Siam
14, 71 1,16,28,19,29,30,52,46,55,58,124,60Cameroun,Nigeria
15,109 1,16,17,89,92,42,45,0,0,0,0,0 Canada,USA
103, 0 1,16,17,5,18,74,30,80,82,0,0,0 Tibet
17, 0 1,16,28,19,29,30,14,65,66,0,0,0 Central African Rebublic
18, 0 1,2,123,11,6,7,8,0,0,0,0,0 Ceylon
110, 0 1,16,28,43,0,0,0,0,0,0,0,0 USSR
20, 79 1,16,17,89,92,93,94,95,96,24,0,0 Columbia,Peru
21, 82 1,16,28,19,29,30,52,46,55,58,59,121Congo, Brazzo Leopoldville
22, 69 1,16,17,89,90,91,0,0,0,0,0,0 Costa Rica, Nicaragua
23, 0 1,2,3,0,0,0,0,0,0,0,0,0 Cuba
24, 0 1,16,28,19,29,230,67,70,71,0,0,0 Denmark
25, 0 1,16,17,89,92,93,94,95,96,0,0,0 Ecuador
26, 0 1,2,123,11,6,12,13,15,0,0,0,0 Eire
27, 55 1,16,28,19,29,30,52,46,55,56,57,61 Ivory Coast,Liberia
28, 0 1,2,123,11,6,12,0,0,0,0,0,0 United Kingdom
29, 0 1,16,28,19,29,30,52,46,67,0,0,0 Ethiopia
30, 0 1,2,123,11,6,7,8,9,0,0,0,0 Phillipines
31,113 1,16,28,19,29,230,67,69,68,0,0,0 Finland,German Federal
32, 93 1,16,28,19,44,48,46,49,0,0,0,0 France,Spain
33, 0 1,16,28,19,29,30,52,46,55,58,59,0 Gabon
34,133 1,16,28,19,29,30,52,46,55,56,120,62Ghana, Togo
35,106 1,16,28,19,44,48,40,51,0,0,0,0 Greece, Turkey
36,123 1,16,28,19,29,30,52,46,55,56,120,102Guinea, Gambia
37,137 1,16,17,89,92,93,94,98,102,104,67,0Guatemala, Guyana
38, 83 1,2,3,67,4,0,0,0,0,0,0,0 Haiti, Dominican Republic
114,143 1,16,17,5,18,19,23,20,24,108,111,0 Yemen, South Yemen
40, 64 1,16,17,89,92,93,94,98,102,103,0,0 Honduras, Mexico
41, 76 1,16,17,5,18,74,30,43,75,76,0,0 India,Pakistan
42, 51 1,16,17,5,18,19,23,25,27,0,0,0 Persia, Kuwait
43, 0 1,16,17,5,18,19,23,20,0,0,0,0 Iraq
44, 68 1,2,123,11,6,12,13,14,0,0,0,0 Iceland, New Zealand
45, 54 1,16,17,5,18,19,23,22,0,0,0,0 Israel, Lebanon
46, 65 1,16,28,19,44,48,46,40,0,0,0,0 Italy, Monaco
47, 0 1,2,123,11,6,7,8,9,10,0,0,0 Japan
48, 88 1,16,17,5,18,19,23,25,26,0,0,0 Jordan, Saudi Arabia
49, 0 1,16,28,19,44,48,40,0,0,0,0,0 Yugoslavia
50, 0 1,16,17,5,18,74,85,0,0,0,0,0 China
118, 0 1,2,123,11,6,0,0,0,0,0,0,0 Indonesia
52, 0 1,2,123,11,6,12,13,15,67,14,0,0 Cyprus
53, 67 1,16,17,5,18,74,30,80,82,83,84,0 Laos, Nepal
119, 0 1,2,123,11,6,12,13,15,67,0,0,0 Malta
120,135 1,16,28,19,29,30,14,112,115,116,0,0Botswana, Zambia
56,115 1,16,28,19,44,45,50,0,0,0,0,0 Libya, Egypt
57, 58 1,16,28,19,29,230,35,31,36,0,0,0 Lichtenstein,Luxemburg
121, 0 1,16,28,19,29,30,14,112,113,0,0,0 Burundi
59,127 1,2,123,11,67,0,0,0,0,0,0,0 Madagaskar, Mauritius
60,147 1,16,17,5,18,74,30,43,75,125,77,0 Malaysia, Singapore
61, 84 1,16,28,19,29,30,14,65,66,64,24,0 Mali, Volta
62, 0 1,16,28,19,44,45,46,0,0,0,0,0 Morocco
63,122 1,16,28,19,29,30,52,46,55,56,57,47 Mauritania, Dahomey
124,132 1,16,28,19,29,30,52,46,67,122,0,0 Kenya, Tanzania
125,130 1,16,28,19,29,30,14,112,115,67,118,0Lesotho, Swaziland
66, 0 1,16,17,5,18,74,30,43,75,125,78,0 Mongolia
126,128 1,16,28,19,29,30,14,112,115,67,117,0Malawi, Rhodesia
129,134 1,16,28,19,29,30,14,112,113,114,0,0Rwandi, Uganda
136,139 1,2,3,67,105,106,0,0,0,0,0,0 Barbados, Trinidad
70, 0 1,16,28,19,29,30,14,65,0,0,0,0 Niger
138, 0 1,2,3,67,105,0,0,0,0,0,0,0 Jamaica
72, 97 1,16,17,5,18,74,30,43,75,125,78,79 North Korea, South Korea
73, 98 1,16,17,5,18,74,85,86,87,79,0,0 North Vietnam, South Vietnam
74, 95 1,16,28,19,29,230,67,70,71,72,0,0 Norway, Sweden
75, 0 1,16,17,5,18,19,23,20,24,0,0,0 Oman
140,142 1,16,17,5,18,19,23,20,24,108,109,110Bahrein, Qatar
77, 0 1,16,17,89,90,0,0,0,0,0,0,0 Panama
78,108 1,16,17,89,92,93,94,98,99,100,0,0 Paraguay, Uruguay
144, 0 1,16,17,5,18,19,23,20,24,108,109,0 Trucial States
80,104 1,16,28,43,37,39,41,0,0,0,0,0 Poland, Czechoslovakia
81, 0 1,16,28,19,29,230,67,69,0,0,0,0 Portugal
145,146 1,2,123,11,6,12,13,15,67,14,107,0 Nauru, West Samoa
6, 16 1,2,123,5,0,0,0,0,0,0,0,0 Australia, Antarktis
66, 0 1,16,17,5,18,74,30,80,82,83,0,0 Mongolia
85,107 1,16,28,43,37,39,30,0,0,0,0,0 Rumania, Hungary
86,111 1,16,28,19,29,230,35,31,32,33,0,0 San Marino, Vatican
87, 0 1,16,17,89,92,93,94,98,102,104,0,0 El Salvador
110, 0 1,16,17,5,18,74,30,43,0,0,0,0 USSR
89, 0 1,16,28,19,29,230,35,0,0,0,0,0 Switzerland
90, 92 1,16,28,19,29,30,52,53,54,55,0,0 Senegal, Somalia
91,131 1,16,28,19,29,30,52,53,50,119,0,0 Sierra Leona, South West Africa
148, 0 1,16,28,19,29,30,52,46,55,58,124,0 Equatorial Guinea
16, 0 1,16,17,89,92,42,0,0,0,0,0,0 Antarktis
94, 0 1,16,28,19,29,30,52,53,50,0,0,0 Sudan
0, 0 0,0,0,0,0,0,0,0,0,0,0,0
96, 0 1,16,28,19,29,30,52,53,54,0,0,0 South Africa
0, 0 0,0,0,0,0,0,0,0,0,0,0,0
0, 0 0,0,0,0,0,0,0,0,0,0,0,0
99,106 1,16,17,5,18,19,23,21,0,0,0,0 Syria, Turkey
100,141 1,2,123,11,6,7,8,9,10,67,0,0 Taiwan, Maldive
dummy 0
Afghanistan
Afghanistan
Albanien
Albania
Algeriet
Algeria
Andorra
Andorra
ARGENTINA
Argentina
Australien
Australia
Belgien
Belgium
Bhutan
Bhutan
Bolivia
Bolivia
Brasilien
Brazil
Bulgarien
Bulgaria
Burma
Burma
Cambodia
Cambodia
Cameroun
Cameroun
Canada
Canada
Antarktis
Antarktis
Centralafrikanske Republik
The Central African Republic
Ceylon
Ceylon
Chile
Chile
Colombia
Colombia
Congo (Brazzaville)
Congo (Brazzaville)
Costa Rica
Costa Rica
Cuba
Cuba
Danmark
Denmark
Ecuador
Ecuador
Irland
Eire
Elfenbenskysten
Ivory Coast
England
The United Kingdom
Etiopien
Ethiopia
Filippinerne
The Phillipines
finland
Finland
Frankrig
France
Gabon
Gabon
Ghana
Ghana
Grækenland
Greece
Guinea
Guinea
Guatemala
Guatemala
Haiti
Haiti
Holland
Holland
Honduras
Honduras
Indien
India
Persien
Persia (Iran)
Irak
Iraq
Island
Iceland
Israel
Israel
Italien
Italy
Japan
Japan
Jordan
Jordan
Jugoslavien
Yugoslavia
Kina
China
Kuwait
Kuwait
Kypern
Cyprus
Laos
Laos
Libanon
Lebanon
Liberia
Liberia
Libyen
Libya
Lichtenstein
Lichtenstein
Luxemburg
Luxemburg
Madagaskar
Madagascar
Malaysia
Malaysia
Mali
Mali
Marokko
Morocco
Mauritanien
Mauritania
Mexico
Mexico
Monaco
Monaco
Mongoliet
Mongolia
Nepal
Nepal
New Zealand
New Zealand
Nicaragua
Nicaragua
Niger
Niger
Nigeria
Nigeria
Nordkorea
North Korea
Nordvietnam
North Vietnam
Norge
Norway
Muscat & Oman
Muscat & Oman
Pakistan
Pakistan
Panama
Panama
Paraguay
Paraguay
Peru
Peru
Polen
Poland
Portugal
Portugal
Congo (Leopoldville)
Congo (Leopoldville)
Dominikanske Republik
Dominican Republic
Øvre Volta
Volta
Rumænien
Rumania
San Marino
San Marino
El Salvador
El Salvador
Saudi Arabien
Saudi Arabia
Schweiz
Switzerland
Senegal
Senegal
Sierra Leone
Sierra Leone
Somali
Somalia
Spanien
Spain
Sudan
Sudan
Sverige
Sweden
Sydafrikanske Union
Union of South Africa
Sydkorea
South Korea
Sydvietnam
South Vietnam
Syrien
Syria
Taiwan (Formosa)
Taiwan (Formosa)
Chad
Chad
Thailand
Siam
Tibet
Tibet
Tjekkoslovakiet
Czechoslovakia
Tunis
Tunisia
Tyrkiet
Turkey
Ungarn
Hungary
Uruguay
Uruguay
USA
U.S.A.
USSR
U.S.S.R.
Vatikanet
Vatican
Venezuela
Venezuala
Vesttyskland
German Federal Republic
Jemen
Yemen
Ægypten
Egypt
Østrig
Austria
Østtyskland
D.D.R.
Indonesien
Indonesia
Malta
Malta
Botswana (Bechuanaland)
Botswana (Bechuana)
Burundi
Burundi
Dahomey
Dahomey
Gambia
Gambia
Kenya
Kenya
Lesotho
Lesotho
Malawi (Nyasaland)
Malawi (Nyasa)
Mauritius
Mauritius
Rhodesia
Rhodesia
Rwanda
Rwanda
Swaziland
Swaziland
Sydvestafrika
South-West Africa
Tanzania
Tanzania
Togo
Togo
Uganda
Uganda
Zambia
Zambia
Barbados
Barbados
Guyana
Guyana
Jamaica
Jamaica
Trinidad & Tobago
Trinidad & Tobago
Bahrein
Bahrein
Maldiverne
Maldive Islands
Qatar
Qatar
Sydjemen
South Yemen
Trucialstaterne
Trucial States
Nauru
Nauru
Vest Samoa
West Samoa
Singapore
Singapore
Ækvatorial Guinea
Equatorial Guinea
Algier
3
Brazil
10
Central African Republic
17
Congo
21
Kongo
21
Storbritanien
28
United Kingdom
28
Great Britain
28
Ætiopien
29
Phillipines
30
Suomi
31
Guldkysten
34
Gold Coast
34
Nederland
39
Persia
42
Iran
42
Liechtenstein
57
Luxembourg
58
Korea
72
Vietnam
73
Muscat
75
Oman
75
Svejts
89
Sydafrikanske Republik
96
Taiwan
100
Formosa
100
Tchad
101
Tunesia
105
SSSR
110
Sovjet
110
Sovjetunionen
110
Rusland
110
DBR
113
D.B.R.
113
Tyskland
113
Germany
113
Egypten
115
UAR
115
DDR
117
D.D.R.
117
Botswana
120
Bechuanaland
120
Bechuana
120
Basutoland
125
Malawi
126
Nyasa
126
Nyasaland
126
South West Africa
131
Trinidad
139
Tobago
139
Trucial-Stater
144
Samoa
146
/,f
▶EOF◀