|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 28922 (0x70fa)
Description: Bits:30000582 20? Kopi 75.02.10 GA4 r<
Types: 8-hole paper tape
Notes: Gier Text
algol<begin integer lt,spm,x,y,z,v; _____ _______array tæller[1:119]; _____[ t a b ] boolean h1,h2,h3,h4,c; _______procedure Aandsvag; _________begin _____lt:=R⨯20;writetext(if lt=0 then |< __ ____ <Er nationalsporten vandpolo.| else > ____[ t a b ] if lt=1 then |< __ ____ <Er møntfoden gysser.| else > ____[ t a b ] if lt=2 then |< __ ____ <Er landets ideal tøffelhelten.| else > ____[ t a b ] if lt=3 then |< __ ____ <Er nationaldragten mamelukker og træsko.| else > ____[ t a b ] if lt=4 then |< __ ____ <Løber Gudenaaen igennem.| else > ____[ t a b ] if lt=5 then |< __ ____ <Er vest den vej -----> | else > ____[ t a b ] if lt=6 then |< __ ____ <Er det her en kone koster 7 spyd, 3 lerkrukker og 12 grise.| else > ____[ t a b ] if lt=7 then |< __ ____ <Findes der makaronimarker her.| else > ____[ t a b ] if lt=8 then |< __ ____ <Har De parkeret Deres vogn korrekt.| else > ____[ t a b ] if lt=9 then |< __ ____ <Er hovednæringsmidlet tyggegummi.| else > ____[ t a b ] if lt=10 then |< __ ____ <Har De nogensinde været der.| else > ____[ t a b ] if lt=11 then |< __ ____ <sp∧n<1>q:i-+789 - Undskyld skrev jeg forkert. |____.| else GIER > ____[ t a b ] if lt=12 then |< __ ____ <Kendes landet paa sine store dværge.| else > ____[ t a b ] if lt=13 then |< __ ____ <Lever der tamme moskusdrager.| else > ____[ t a b ] if lt=14 then |< __ ____ <Har dronning Margrethe været dronning for dette land.| else > ____[ t a b ] if lt=15 then |< __ ____ <Findes der i landets flag en blaa struds.| else > ____[ t a b ] if lt=16 then |< __ ____ <Er det tømmermændenes hjemland.| else > ____[ t a b ] if lt=17 then |< __ ____ <Tror befolkningen paa onde aander.| else > ____[ t a b ] if lt=18 then |< __ ____ <sta- sta- stammer be- be- befolkningen.| else > ____[ t a b ] if lt=19 then |< __ ____ <Elsker befolkningen Sauerkraut.| else > ____|< <Lever indbyggerne i snehytter.|); >end; ___procedure UDSKR; _________begin _____[ t a b ] writetext(|< <[ t a b ] Er det |); >[ t a b ] if lt>58 then go to Halvdel 2; __ ____ __ __[ t a b ] writetext(if lt=1then|<Afghanistan |else __ ____< >____[ t a b ] [ t a b ] iflt=2then|<Albanien |else __ ____< >____[ t a b ] [ t a b ] iflt=3then|<Algerie |else __ ____< >____[ t a b ] [ t a b ] iflt=4then|<Andorra |else __ ____< >____[ t a b ] [ t a b ] iflt=5then|<Argentina |else __ ____< >____[ t a b ] [ t a b ] iflt=6then|<Australien|else __ ____< >____[ t a b ] [ t a b ] iflt=7then|<Belgien |else __ ____< >____[ t a b ] [ t a b ] iflt=8then|<Bhutan |else __ ____< >____[ t a b ] [ t a b ] iflt=9then|<Bolivia |else __ ____< >____[ t a b ] [ t a b ] iflt=10then|<Brasilien |else __ ____< >____[ t a b ] [ t a b ] iflt=11then|<Bulgarien |else __ ____< >____[ t a b ] [ t a b ] iflt=12then|<Burma |else __ ____< >____[ t a b ] [ t a b ] iflt=13then|<Cambodge |else __ ____< >____[ t a b ] [ t a b ] iflt=14then|<Cameroun |else __ ____< >____[ t a b ] [ t a b ] iflt=15then|<Canada |else __ ____< >____[ t a b ] [ t a b ] iflt=16then|<Centralafrikanske Føderation |else __ ____< >____[ t a b ] [ t a b ] iflt=17then|<Centralafrikanske Republik |else __ ____< >____[ t a b ] [ t a b ] iflt=18then|<Ceylon |else __ ____< >____[ t a b ] [ t a b ] iflt=19then|<Chile |else __ ____< >____[ t a b ] [ t a b ] iflt=20then|<Colombia |else __ ____< >____[ t a b ] [ t a b ] iflt=21then|<Congo |else __ ____< >____[ t a b ] [ t a b ] iflt=22then|<Costa Rica |else __ ____< >____[ t a b ] [ t a b ] iflt=23then|<Cuba |else __ ____< >____[ t a b ] [ t a b ] iflt=24then|<Danmark |else __ ____< >____[ t a b ] [ t a b ] iflt=25then|<Ecuador |else __ ____< >____[ t a b ] [ t a b ] iflt=26then|<Eire |else __ ____< >____[ t a b ] [ t a b ] iflt=27then|<Elfenbenskysten |else __ ____< >____[ t a b ] [ t a b ] iflt=28then|<England |else __ ____< >____[ t a b ] [ t a b ] iflt=29then|<Etiopien |else __ ____< >____[ t a b ] [ t a b ] iflt=30then|<Filippinerne |else __ ____< >____[ t a b ] [ t a b ] iflt=31then|<Finland |else __ ____< >____[ t a b ] [ t a b ] iflt=32then|<Frankrig |else __ ____< >____[ t a b ] [ t a b ] iflt=33then|<Gabon |else __ ____< >____[ t a b ] [ t a b ] iflt=34then|<Ghana |else __ ____< >____[ t a b ] [ t a b ] iflt=35then|<Grækenland |else __ ____< >____[ t a b ] [ t a b ] iflt=36then|<Guinea |else __ ____< >____[ t a b ] [ t a b ] iflt=37then|<Guatemala |else __ ____< >____[ t a b ] [ t a b ] iflt=38then|<Haiti |else __ ____< >____[ t a b ] [ t a b ] iflt=39then|<Holland |else __ ____< >____[ t a b ] [ t a b ] iflt=40then|<Honduras |else __ ____< >____[ t a b ] [ t a b ] iflt=41then|<India |else __ ____< >____[ t a b ] [ t a b ] iflt=42then|<Iran(Persien) |else __ ____< >____[ t a b ] [ t a b ] iflt=43then|<Iraq |else __ ____< >____[ t a b ] [ t a b ] iflt=44then|<Island |else __ ____< >____[ t a b ] [ t a b ] iflt=45then|<Israel |else __ ____< >____[ t a b ] [ t a b ] iflt=46then|<Italien |else __ ____< >____[ t a b ] [ t a b ] iflt=47then|<Japan |else __ ____< >____[ t a b ] [ t a b ] iflt=48then|<Jordan |else __ ____< >____[ t a b ] [ t a b ] iflt=49then|<Jugoslavien |else __ ____< >____[ t a b ] [ t a b ] iflt=50then|<Kina |else __ ____< >____[ t a b ] [ t a b ] iflt=51then|<Kuwait |else __ ____< >____[ t a b ] [ t a b ] iflt=52then|<Kypern |else __ ____< >____[ t a b ] [ t a b ] iflt=53then|<Laos |else __ ____< >____[ t a b ] [ t a b ] iflt=54then|<Libanon |else __ ____< >____[ t a b ] [ t a b ] iflt=55then|<Liberia |else __ ____< >____[ t a b ] [ t a b ] iflt=56then|<Libia |else __ ____< >____[ t a b ] [ t a b ] iflt=57then|<Lichtenstein |else __ ____< >____[ t a b ] [ t a b ] |<Luxemburg |); < >goto TSL; ____Halvdel 2:[ t a b ] writetext[ t a b ] [ t a b ] (iflt=59then|<Madagascar |else __ ____< >____[ t a b ] [ t a b ] iflt=60then|<Malaya |else __ ____< >____[ t a b ] [ t a b ] iflt=61then|<Mali |else __ ____< >____[ t a b ] [ t a b ] iflt=62then|<Marokko |else __ ____< >____[ t a b ] [ t a b ] iflt=63then|<Mauretanien |else __ ____< >____[ t a b ] [ t a b ] iflt=64then|<Mexico |else __ ____< >____[ t a b ] [ t a b ] iflt=65then|<Monaco |else __ ____< >____[ t a b ] [ t a b ] iflt=66then|<Mongoliet |else __ ____< >____[ t a b ] [ t a b ] iflt=67then|<Nepal |else __ ____< >____[ t a b ] [ t a b ] iflt=68then|<New Zealand |else __ ____< >____[ t a b ] [ t a b ] iflt=69then|<Nicaragua |else __ ____< >____[ t a b ] [ t a b ] iflt=70then|<Niger |else __ ____< >____[ t a b ] [ t a b ] iflt=71then|<Nigeria |else __ ____< >____[ t a b ] [ t a b ] iflt=72then|<Nord Korea |else __ ____< >____[ t a b ] [ t a b ] iflt=73then|<Nord Vietnam |else __ ____< >____[ t a b ] [ t a b ] iflt=74then|<Norge |else __ ____< >____[ t a b ] [ t a b ] iflt=75then|<Oman |else __ ____< >____[ t a b ] [ t a b ] iflt=76then|<Pakistan/Bangla Desh| else __ ____< > ____[ t a b ] [ t a b ] iflt=77then|<Panama |else __ ____< >____[ t a b ] [ t a b ] iflt=78then|<Paraguay |else __ ____< >____[ t a b ] [ t a b ] iflt=79then|<Peru |else __ ____< >____[ t a b ] [ t a b ] iflt=80then|<Polen |else __ ____< >____[ t a b ] [ t a b ] iflt=81then|<Portugal |else __ ____< >____[ t a b ] [ t a b ] iflt=82then|<Rep.Congo |else __ ____< >____[ t a b ] [ t a b ] iflt=83then|<Rep.Dominicana |else __ ____< >____[ t a b ] [ t a b ] iflt=84then|<Rep.Volta |else __ ____< >____[ t a b ] [ t a b ] iflt=85then|<Rumænien |else __ ____< >____[ t a b ] [ t a b ] iflt=86then|<San Marino |else __ ____< >____[ t a b ] [ t a b ] iflt=87then|<San Salvador |else __ ____< >____[ t a b ] [ t a b ] iflt=88then|<Saudi Arabien |else __ ____< >____[ t a b ] [ t a b ] iflt=89then|<Schweiz |else __ ____< >____[ t a b ] [ t a b ] iflt=90then|<Senegal |else __ ____< >____[ t a b ] [ t a b ] iflt=91then|<Sierre Leone |else __ ____< >____[ t a b ] [ t a b ] iflt=92then|<Singapore |else __ ____< >____[ t a b ] [ t a b ] iflt=93then|<Somali |else __ ____< >____[ t a b ] [ t a b ] iflt=94then|<Spanien |else __ ____< >____[ t a b ] [ t a b ] iflt=95then|<Sudan |else __ ____< >____[ t a b ] [ t a b ] iflt=96then|<Sverige |else __ ____< >____[ t a b ] [ t a b ] iflt=97then|<Sydafrikanske Union |else __ ____< >____[ t a b ] [ t a b ] iflt=98then|<Syd Korea |else __ ____< >____[ t a b ] [ t a b ] iflt=99then|<Syd Vietnam |else __ ____< >____[ t a b ] [ t a b ] iflt=100then|<Syrien |else __ ____< >____[ t a b ] [ t a b ] iflt=101then|<Taiwan(Formosa) |else __ ____< >____[ t a b ] [ t a b ] iflt=102then|<Tchad |else __ ____< >____[ t a b ] [ t a b ] iflt=103then|<Thailand |else __ ____< >____[ t a b ] [ t a b ] iflt=104then|<Tibet |else __ ____< >____[ t a b ] [ t a b ] iflt=105then|<Tjekkoslovakiet |else __ ____< >____[ t a b ] [ t a b ] iflt=106then|<Tunis |else __ ____< >____[ t a b ] [ t a b ] iflt=107then|<Tyrkiet |else __ ____< >____[ t a b ] [ t a b ] iflt=108then|<Ungarn |else __ ____< >____[ t a b ] [ t a b ] iflt=109then|<Uruguay |else __ ____< >____[ t a b ] [ t a b ] iflt=110then|<USA |else __ ____< >____[ t a b ] [ t a b ] iflt=111then|<USSR |else __ ____< >____[ t a b ] [ t a b ] iflt=112then|<Vatikanet |else __ ____< >____[ t a b ] [ t a b ] iflt=113then|<Venezuela |else __ ____< >____[ t a b ] [ t a b ] iflt=114then|<Vest Tyskland |else __ ____< >____[ t a b ] [ t a b ] iflt=115then|<Yemen |else __ ____< >____[ t a b ] [ t a b ] iflt=116then|<Ægypten |else __ ____< >____[ t a b ] [ t a b ] iflt=117then|<Østrig |else __ ____< >____[ t a b ] [ t a b ] iflt=118then|<Øst Tyskland |else __ ____< >____TSL:[ t a b ] [ t a b ] |<Indonesien |); < >end; ___procedure Gæt; _________begin array ST[0:11]; _____ _____integer ha; _______for ha:=0 step 1 until 11 do ___ ____ _____ __ST[ha]:=STØ; ha:=R⨯10; lt:=ST[ha];for ha:=1 step 1 until 119 do ___ ____ _____ __tæller[ha]:=abs(tæller[ha]);end; ___integer procedure STØ; _______ _________begin integer v,m; _____ _______v:=m:=1;TOMM: if tæller[v]< tæller[v+m] then __ ____begin v:=v+m; m:=1 ; end else m:=m+1; _____ ___ ____go to if v=119 ∨ v+m =120 then TUD else TOMM; __ __ __ ____ ____TUD: tæller[v]:=-tæller[v]; STØ:=v;end; ___real procedure R; ____ _________begin _____[ t a b ] own integer x,y,z; ___ _______[ t a b ] if c then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] x:=394852741;[ t a b ] [ t a b ] y:=263822912;[ t a b ] end; ___[ t a b ] z:=x+y;if z_536870911 then __ > ____[ t a b ] z:=z-536870911;x:=y; y:=z;[ t a b ] R:=z/536870910;end; ___[ t a b ] boolean procedure svar; _______ _________[ t a b ] begininteger a; ____________[ t a b ] a:=0; Hi:[ t a b ] select(17); char:=lyn;[ t a b ] if char=37then go to NEJ else __ ____ __ __ ____[ t a b ] if char=33 then go to JA;writecr; __ ____ __ __[ t a b ] writetext(|<OM IGEN. <|); a:=1; >[ t a b ] go to Hi; __ __NEJ:[ t a b ] char:=lyn; if char=53 then go to NEJJ; __ ____ __ __OM IGEN.[ t a b ] writetext(if a=0 then|< __ ____<| else|< > ____<FUMLEFINGER - OM IGEN.|); a:=1; go to Hi; > __ __NEJJ:[ t a b ] char:=lyn; if char=33 then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] svar:=false; _____[ t a b ] [ t a b ] go to UU __ __[ t a b ] end; ___OM IGEN[ t a b ] writetext(if a=0then|< __ ____<| else |< > ____ <FUMLEFINGER - OM IGEN.|); a:=1; >[ t a b ] go to Hi; __ __JA:[ t a b ] char:=lyn; if char=49 then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] svar:=true; ____[ t a b ] [ t a b ] go to UU __ __[ t a b ] [ t a b ] end; ___OM IGEN.[ t a b ] writetext(if a=0 then|< __ ____<| else |< > ____ <FUMLEFINGER - OM IGEN.|); a:=1; go to Hi; > __ __UU:;[ t a b ] end ___[ t a b ] c:=true; x:=R; select(16); ____OP:writecr;[ t a b ] for lt:=1 step 1 until 119 do tæller[lt]:=read integer; c:=false; x:=R; ___ ____ _____ __ _____[ t a b ] writecr; writetext(|<TÆNK PAA EN SELVSTÆNDIG NATION. <(ca. 15 sek. tænkepause.)|); >OM: Gæt;[ t a b ] writetext(|< <KLAR.|); >[ t a b ] if-, svar then go to OM else UDSKR; spm:=1; __ ____ __ __ ____[ t a b ] if svar then go to FÆRDIG; __ ____ __ __START:h1:=h2:=h3:=h4:=false; _____[ t a b ] writetext(|< <Ligger landet paa en ø (evt. flere øer).|); spm:=2; >[ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] spm:=spm+1;[ t a b ] [ t a b ] writetext(|< <Ligger øen i nærheden af Florida.|); >[ t a b ] [ t a b ] if svar then go to AMØ; __ ____ __ __[ t a b ] [ t a b ] writetext(|< <Kænguruens hjemland.|); spm:=spm+1; >[ t a b ] [ t a b ] if -, svar then go to Ø; __ ____ __ __[ t a b ] [ t a b ] lt:=6; go to TY; __ __[ t a b ] end; ___[ t a b ] writetext(|< <Tilhører landet den kommunistiske blok.|); >[ t a b ] spm:=spm+1;[ t a b ] if svar then go to KOM; __ ____ __ __[ t a b ] writetext(|< <Ligger den verdensdel, landet tilhører, umiddelbart øst for Atlanterhavet.|); >[ t a b ] spm:=spm+1;[ t a b ] if svar then go to EUAF; __ ____ __ __[ t a b ] writetext(|< <Befinder verdens højeste bjerge sig i den verdensdel, landet tilhører.|); >[ t a b ] spm:=spm+1;[ t a b ] if svar then go to AS; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Kænguruens hjemland.|); >[ t a b ] if -, svar then go to AM; __ ____ __ __[ t a b ] lt:=6;TY:EUAF: spm:=spm+1;[ t a b ] UDSKR; go to if svar then FÆRDIG else FEJL; __ __ __ ____ ____[ t a b ] writetext(|< <Kan befolkningen bade i det blaa Middelhav.|); >[ t a b ] if svar then go to MH; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Lever der vilde giraffer i den verdensdel, landet tilhører.|); >[ t a b ] if svar then go to AF; spm:=spm+1; __ ____ __ __[ t a b ] Aandsvag; h1:=svar; spm:=spm+1;[ t a b ] writetext(|< <Har landet kyststrækninger.|); if svar then go to YE; > __ ____ __ __[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Er landets navn paa mere end 8 bogstaver.|); >[ t a b ] if svarthen go to IOE; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Landet kendt for sin urfremstilling.|); >[ t a b ] if svar then begin lt:=89; go to TY; __ ____ _____ __ __[ t a b ] [ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Wienervalsens hjemland.|); if svar then > __ ____[ t a b ] [ t a b ] lt:=117 else lt:=4; ____[ t a b ] [ t a b ] go to TY; __ __IOE:[ t a b ] spm:=spm+1; writetext(|< <Ligger landet paa den italienske halvø.|); >[ t a b ] if svar then begin spm:=spm+1; __ ____ _____[ t a b ] [ t a b ] [ t a b ] [ t a b ] writetext(|< <Bor paven der.|);lt:=ifsvarthen112else86; go to TY; > __ ____ ____ __ __[ t a b ] [ t a b ] [ t a b ] [ t a b ] end; ___[ t a b ] spm:=spm+1; writetext(|< <Findes der en kendt POPradiostation af samme navn.|); >[ t a b ] lt:= if svar then 58 else 57; __ ____ ____[ t a b ] go to TY; __ __YE:[ t a b ] spm:=spm+1; writetext(|< <Er det et kongerige.|); >[ t a b ] if svar then go to YEK; __ ____ __ __[ t a b ] spm:=spm+1; writetext(|< <Har dette lands indbyggere forsøgt at opkøbe store dele af den jydske vestkyst.| >);[ t a b ] if svar then lt:=114 else begin __ ____ ____ _____[ t a b ] spm:=spm+1; writetext(|< <Laves der Portvin her.|); >[ t a b ] lt:= if svar then 81 else 31; end; __ ____ ____ ___[ t a b ] go to TY; __ __YEK:[ t a b ] spm:=spm+1; writetext(|< <Skisportnation.|); if svar then > __ ____[ t a b ] begin spm:=spm+1; writetext(|< _____ <Er Tordenskjold født her.|); >[ t a b ] lt:= if svar then 74 else96; go to TY; __ ____ ____ __ __[ t a b ] end; ___[ t a b ] spm:=spm+1; writetext(|< <H.C. Andersens hjemland.|); if svar then lt:=24 else > __ ____ ____[ t a b ] begin spm:=spm+1; writetext(|< _____ <Har landet mange vejrmøller og tulipanmarker.|); >[ t a b ] lt:= if svar then 39 else 7; end; __ ____ ____ ___MH:[ t a b ] go to TY; __ __[ t a b ] Aandsvag; h1:=svar; spm:=spm+2;[ t a b ] writetext(|< <Har landet kyst til Atlanterhavet.|); >[ t a b ] if svar then __ ____[ t a b ] begin spm:=spm+1; _____[ t a b ] [ t a b ] writetext(|< <Er befolkningen katolikker.|); >[ t a b ] [ t a b ] if-,svar then __ ____[ t a b ] [ t a b ] begin _____[ t a b ] [ t a b ] [ t a b ] lt:=62;[ t a b ] [ t a b ] [ t a b ] go to TY; __ __[ t a b ] [ t a b ] end; ___[ t a b ] [ t a b ] spm:=spm+1;[ t a b ] [ t a b ] writetext(|< <Kendt for Dior-modellerne.|); >[ t a b ] [ t a b ] if svar then lt:=32 else lt:=94; __ ____ ____[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Er befolkningen muhammedanere.|); >[ t a b ] if svar then go to MUH; __ ____ __ __[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Har landet støvleform.|); >[ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] lt:=46;[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <har Danmark leveret en dronning hertil.|); >[ t a b ] lt:= if svar then 35 else 65; __ ____ ____MUH:[ t a b ] go to TY; __ __[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Gaar Atlasbjergene igennem.|); >[ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] spm:=spm+1;[ t a b ] [ t a b ] writetext(|< <Er en stor del af landet ørken.|); >[ t a b ] [ t a b ] lt:=if svar then 3 else 106; __ ____ ____[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Er det Farao ernes hjemland.|); >[ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] lt:=116;[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Ligger landet i 2 verdensdele.|); >[ t a b ] lt:= if svar then 107 else 56; __ ____ ____[ t a b ] go to TY; __ __AM:[ t a b ] spm:=spm+1; writetext(|< <Ligger landet mellem Honduras og Colombia.|); >[ t a b ] if svar then go to MEL; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Er hovedsproget spansk.|); >[ t a b ] if svar then go to SYD; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Er landet kendt for sin kaffeavl.|); >[ t a b ] if svar then lt:=10 else begin __ ____ ____ _____[ t a b ] spm:=spm+1; writetext(|<Hedder præsidenten Ford.|); < >[ t a b ] lt:= if svar then 110 else 15; end; __ ____ ____ ___[ t a b ] go to TY; __ __SYD:[ t a b ] spm:=spm+1; writetext(|< <Løber Amazonfloden eller en af dens bifloder gennem landet.|); >[ t a b ] if svar then go to VEST; __ ____ __ __[ t a b ] Aandsvag; h2:=svar; spm:=spm+2;[ t a b ] writetext(|< <Er vi nord for Bolivia.|); >[ t a b ] if svar then go to MIDT; __ ____ __ __[ t a b ] spm:=spm+1; writetext(|< <Ender landets navn paa GUAY.|); >[ t a b ] if svar then begin spm:=spm+1; __ ____ _____[ t a b ] writetext(|< <Hedder hovedstaden Montevideo.|); >[ t a b ] lt:= if svar then 109 else 78; __ ____ ____[ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1; writetext(|< <Er landet kendt for sine store sletter(PAMPAS).|); >VEST: spm:=spm+2; Aandsvag; h1:=svar;[ t a b ] lt:=if svar then 5 else 19;go to TY; __ ____ ____ __ __[ t a b ] writetext(|< <Kan landets lystfiskere fiske i Stillehavet.|); >[ t a b ] if svar then go toKIT; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Er landet opkaldt efter frihedshelten Simon Bolivar.|); >[ t a b ] lt:= if svar then 9 else 113;goto TY; __ ____ ____ ____KIT:[ t a b ] spm:=spm+1; writetext(|< <Hedder landets hovedstad QUITO.|); >[ t a b ] if svar then lt:=25 else begin __ ____ ____ _____[ t a b ] lt:=20; spm:=spm+1; UDSKR;[ t a b ] if svar then go to FÆRDIG else lt:=79; __ ____ __ __ ____[ t a b ] end; ___[ t a b ] go to TY; __ __MEL:[ t a b ] spm:=spm+1; writetext(|< <Gaar folk med panamahatte og gennemskæres landet af en stor kanal.|); >[ t a b ] if svar then lt:=77 else begin __ ____ ____ _____[ t a b ] Aandsvag; spm:=spm+2; h1:=svar;[ t a b ] lt:=69; UDSKR; if svar then go to FÆRDIG; __ ____ __ __[ t a b ] lt:=22; end; ___MIDT:[ t a b ] go to TY; __ __[ t a b ] spm:=spm+1; lt:=64; UDSKR;[ t a b ] if svar then go to FÆRDIG; spm:=spm+1; __ ____ __ __[ t a b ] writetext(|< <Har landet kun kyst til Stillehavet.|); >[ t a b ] if svar then lt:=87 else begin __ ____ ____ _____[ t a b ] spm:=spm+1; writetext(|< <Grænser det til Mexico.|); >[ t a b ] lt:= if svar then 37 else 40; end; __ ____ ____ ___[ t a b ] go to TY; __ __AMØ:[ t a b ] spm:=spm+1; writetext(|< <Er landets styre kommunistisk.|); >if svar then lt:= 23 else begin __ ____ ____ _____[ t a b ] spm:=spm+2; Aandsvag; h1:=svar;[ t a b ] lt:=38; UDSKR; if svar then go to FÆRDIG; __ ____ __ __[ t a b ] lt:=83; end; ___NO:[ t a b ] go to TY; __ __[ t a b ] Aandsvag; h1:=svar; spm:=spm+2;[ t a b ] writetext(|< <Har landet kyst til Middelhavet.|); >[ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] spm:=spm+1;[ t a b ] [ t a b ] writetext(|< <Ender landet paa n.|); >[ t a b ] [ t a b ] if-,svar then __ ____[ t a b ] [ t a b ] begin _____[ t a b ] [ t a b ] [ t a b ] spm:=spm+1;[ t a b ] [ t a b ] [ t a b ] writetext(|< <Kommer Jaffa-appelsinerne herfra.|); >[ t a b ] [ t a b ] [ t a b ] lt:= if svar then 45 else 107; __ ____ ____[ t a b ] [ t a b ] [ t a b ] go to TY; __ __[ t a b ] [ t a b ] end; ___[ t a b ] [ t a b ] Aandsvag; h1:=svar;[ t a b ] [ t a b ] spm:=spm+2;[ t a b ] [ t a b ] writetext(|< <Gennemløbes landet af Eufrat.|); >[ t a b ] [ t a b ] lt:= if svar then 100 else 54; __ ____ ____[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] Aandsvag; h1:=svar; spm:=spm+2;[ t a b ] writetext(|< <Kyst til den Persiske bugt.|); >[ t a b ] if-,svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] spm:=spm+1;[ t a b ] [ t a b ] writetext(|< <Gaar den nordlige vendekreds her igennem.|); >[ t a b ] [ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] lt:=75;[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Har det grænser til Israel.|); >[ t a b ] lt:= if svar then 48 else 115; __ ____ ____[ t a b ] go to TY; __ __end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Ender landet paa n.|); >[ t a b ] if-, svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] Aandsvag; h1:=svar; spm:=spm+2;[ t a b ] [ t a b ] writetext(|< <Har det grænser til Syrien.|); >[ t a b ] lt:= if svar then 43 else 51; __ ____ ____[ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Er hovedstaden en kendt pilgrimsby.|); >[ t a b ] if svar then __ ____[ t a b ] begin _____[ t a b ] [ t a b ] lt:=88;[ t a b ] [ t a b ] go to TY; __ __[ t a b ] end; ___[ t a b ] spm:=spm+1;[ t a b ] writetext(|< <Er landet berømt for sine tæpper.|); >[ t a b ] lt:= if svar then 42 else 75; __ ____ ____[ t a b ] go to TY; __ __Ø: spm:=spm+2; writetext(|< <Er ris et vigtigt fødemiddel for befolkningen.|); >h3:=svar; writetext(|< <Ligger øen nær Syd Afrika.|); >if svar then begin lt:=59; go to TY; __ ____ _____ __ __end; ___if h3 then go to ØØ; spm:=spm+1; __ ____ __ __writetext(|< <Har landet over 40 millioner indbyggere.|); >if svar then begin lt:=28; __ ____ _____go to TY; __ __end; spm:=spm+1; ___writetext(|< <Er landet en af Danmarks største konkurrenter paadet britiske smør- og bacon marked.|); >if svar then begin lt:=68; go to TY; end; __ ____ _____ __ __ ___spm:=spm+1; writetext(|< <Ligger øen i nærheden af Tyrkiet.|); >if svar then begin lt:=52; go to TY; end; __ ____ _____ __ __ ___spm:=spm+1; writetext(|< <Er møntfoden kroner.|); >lt:=if svar then 44 else 26; go to TY; __ ____ ____ __ __ØØ: spm:=spm+1; lt:=119;UDSKR; if svar then go to FÆRDIG; __ ____ __ __spm:=spm+1; writetext(|< <Kendes landet for sin store teavl.|); >if svar then begin lt:=18; go to TY; end; __ ____ _____ __ __ ___spm:=spm+1; writetext(|< <Er det herfra Manillahamp stammer.|); >if svar then begin lt:=30; go to TY; end; __ ____ _____ __ __ ___spm:=spm+1; writetext(|< <Skal der være Olympiade her i 1964.|); >lt:=if svar then 47 else 101; __ ____ ____go to TY; __ __KOM: spm:=spm+1; writetext(|< <Har landet opsendt VOSTOK 5.|); >if svar then begin lt:=111; go to TY; end; __ ____ _____ __ __ ___ _spm:=spm+2; writetext(|< <Grænser landet til USSR.|); >h1:=if svar then true else false; __ ____ ____ ____ _____writetext(|< <Er indbyggerne af mongolsk race.|); >h2:=if svar then true else false; __ ____ ____ ____ _____if -, h2 then go to K2; __ ____ __ __spm:=spm+1; lt:=72; UDSKR;if svar then go to FÆRDIG; __ ____ __ __if h1∧h2 then begin spm:=spm+1; __ ____ _____writetext(|< <Over 500 millioner indbyggere.|); >lt:=if svar then 50 else 66; __ ____ ____go to TY; end; __ __ ___spm:=spm+1; writetext(|< <Findes verdens største bjerge her.|); >lt:=if svar then 104 else 73; __ ____ ____go to TY; __ __K2:if -, h1 then begin __ ____ _____spm:=spm+1; writetext(|< <Kan indbyggerne bade i DONAU uden at rejse udenlands.|); >if svar then begin spm:=spm+1; __ ____ _____writetext(|< <Hedder præsidenten TITO.|); >[ s t o p ] lt:=if svar then 49 else 11; go to TY; __ ____ ____ __ __end; ___spm:=spm+1; writetext(|< <Kan en dansker sejle hertil paa under 4 timer.|); >lt:=if svar then 118 else 2; go to TY; __ ____ ____ __ __end; ___spm:=spm+1; writetext(|< <Kan indbyggerne bade i havet uden at rejse udenlands.|); >spm:=spm+1;if svar then begin writetext(|< __ ____ _____ <Findes der en by ved navn Gdansk i dette land.|); >lt:=if svar then 80 else 85; go to TY; __ ____ ____ __ __end; ___writetext(|< <Rimer hovedstaden paa Det Vilde Vest.|); >lt:=if svar then 108 else 105; __ ____ ____go to TY; __ __AF: Aandsvag; h1:=svar; spm:=spm+2;writetext(|< <Har landet kyststrækning.|); >if -, svar then __ ____begin _____spm:=spm+1; lt:=70; UDSKR;if svar then go to FÆRDIG; Aandsvag; h1:=svar; __ ____ __ __spm:=spm+2;writetext(|< <Grænser det til Niger.|); >if -, svar then __ ____begin _____spm:=spm+1; lt:=16;UDSKR;if svar then go to FÆRDIG; __ ____ __ __spm:=spm+1;lt:=17; go to TY; __ __end; ___spm:=spm+1;writetext(|< <Findes der en sø af samme navn.|); >if svar then __ ____begin _____lt:=102; go to TY; __ __end; ___spm:=spm+1;writetext(|< <Rimer det paa kali.|); >lt:=if svar then61 else84; __ ____ ____go to TY; __ __end; ___[ s t o p ] spm:=spm+1;writetext(|< <Er forbogstavet s.|); >if svar then __ ____begin _____spm:=spm+1;writetext(|< <Indeholder det et af Afrikas yderpunkter (Kap er)|); >if -, svar then __ ____begin _____spm:=spm+1;writetext(|< <Gemmenstrømmes det af Nilen|); >lt:= if svar then 95 else 91; __ ____ ____go to TY; __ __end; ___spm:=spm+1;writetext(|< <Er det særlig kendt for sin raceadskillelsespolitik.|); >if svar then __ ____begin _____lt:=97; go to TY; __ __end; ___spm:=spm+1;writetext(|< <Løber Senegalfloden igennem.|); >lt:= if svar then 90 else 93; __ ____ ____go to TY; __ __end; ___spm:=spm+1;writetext(|< <Ligger det vest for Nigeria.|); >if -, svarthen go to IVN; __ ____ __ __Aandsvag; h1:=svar; spm:=spm+2;writetext(|< <Gennemstrømes det af Senegal floden.|); >if svar then __ ____begin _____spm:=spm+1;writetext(|< <Findes der en bugt af samme navn.|); >lt:=if svar then 36 else 63; __ ____ ____go toTY; __ __end; ___spm:=spm+1;writetext(|< <Kendt for sit elfenben.|); >if svar then __ ____begin _____lt:=27; go to TY; __ __end; ___spm:=spm+1;writetext(|< <Betyder landets navn frihed.|); >lt:=if svar then 55 else 34; __ ____ ____go to TY; __ __[ s t o p ] IVN: spm:=spm+1; lt:=21; UDSKR;if svar then go to FÆRDIG; __ ____ __ __spm:=spm+1;writetext(|< <Har det kyst til Guinea bugten.|); >if -, svar then __ ____begin _____lt:=29; go to TY; __ __end; ___Aandsvag; h1:=svar; spm:=spm+2;writetext(|< <Kan befolkningen let komme til at sejle paa Tshad søen.|); >if -, svar then __ ____begin _____lt:=33; UDSKR;if svar then go to FÆRDIG; __ ____ __ __lt:=82; go to TY; __ __end; ___spm:=spm+1;writetext(|< <Danner de første 5 bogstaver navnet paa enanden Afrikansk stat.|); >lt:=if svar then 71 else 14; __ ____ ____go to TY; __ __AS: spm:=spm+2; Aandsvag; h3:=svar;writetext(|< <Er det øst for Persien.|); >if -, svar then go to NO; spm:=spm+1; __ ____ __ __writetext(|< <Ender landets navn paa tan.|); >if svar then begin spm:=spm+1; __ ____ _____writetext(|< <Er landets areal større end Danmarks.|); >if -, svar then begin lt:=8; go to TY; end; __ ____ _____ __ __ ___spm:=spm+1; writetext(|< <Var landet delt i to af India.|); >lt:=if svar then 76 else 1; __ ____ ____go to TY; end; __ __ ___spm:=spm+1; writetext(|< <Rimer landets hovedstad paa NU ER DET NOK:|); >if svar then begin lt:=103; go to TY;end; __ ____ _____ __ __ ___spm:=spm+1; writetext(|< <Kan landets indbyggere ved at passere een grænse komme ___til THAILAND.|); >if svar then begin __ ____ _____spm:=spm+2; Aandsvag; h3:=svar;writetext(|< <Har landet grænsebesvær med Kina.|); >if svar then begin spm:=spm+1; __ ____ _____writetext(|< <Er det her Mandalay ligger.|); >[ s t o p ] lt:=if svar then 12 else 53; __ ____ ____go to TY; end; spm:=spm+1; __ __ ___writetext(|< <Er der under 4 timer sejlads til Sumatra.|); >lt:=if svar then 60 else 13; __ ____ ____go to TY; end; spm:=spm+1; __ __ ___writetext(|< <Flygtede mange tibetanere hertil under krigen Tibet - Kina.|); >if svar then begin spm:=spm+1; writetext(|< __ ____ _____ <Hedder ministerpræsidenten Gandhi|); >lt:=if svar then 41 else 67; go to TY; __ ____ ____ __ __end; spm:=spm+1; writetext(|< ___ <Nord for Hong Kong.|); >if svar then begin lt:=98; go to TY; __ ____ _____ __ __end; spm:=spm+1; ___writetext(|< <Bestaar landet kun af een by.|); >lt:=if svar then 92 else 99; __ ____ ____go to TY; __ __FÆRDIG:tæller[lt]:=tæller[lt]+1;writetext(|< <Det var GIER paa det |); write(|pdd|,spm); writetext(|<.spørgsmaal|); > < > < >go to LOUT; __ __FEJL:writetext(|< <Desværre er der svaret galt paa et eller flere af de stillede spørgsmaal.Se disse igennem og prøv igen.|); >LOUT:writetext(|< <Skal vi prøve en gang til.|); >if svar then go to OP; for lt:=1 step 1 until 119 do __ ____ __ __ ___ ____ _____ __begin writecr; write(|pddddd|,tæller[lt]); _____ < >end; writecr; ___end; ___run< 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,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,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,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,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,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,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,0,0,0,0, 0,0,