[comp.sys.amiga.games] Populous world name calculation

ludde@adder.bula.se (Erik Lundevall) (07/29/90)

Here is the program that tells you the name of a world in Populous if you give
the number. The syntax is simple:

Pop <X>

where <X> is a world number. Pop will then write the names of world X to world X+9.


begin 644 pop.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$.
M_0(!E14``'$```#\%'*YAGWP'0``)!4```$```````````!P;W``+&PS=DZNL
M_MI,"@!_760`````````````0"DC*````0`8,$^@08$##AH4(-"``8$!8A@,4
M@#!=0P-.]"U@X:3*/V@,6BT$@.",!"1Z!"!PHDL`)"Q/A)QB64$*3!!M`#!XT
M@0(``98*",%<`>0?-26MC+91$!(A.J-O3NH)`(^E`"XP9=+T`!-E@'16E0QM$
M8_0C&``!(#4=^!3:&P1:=5'`!_-%BX]>\UD%`>4)TH]F''C]9Q4"S+,!L*S@S
M\Z]Q8WI"DL*+_(\=972+#7[X1XXRN,P"+_SC!N(NM"F`Y(!@^8``T7_\2G]$$
MK9JE`V:O\5'&!L:#EJ3DU@+83.X-`P(B!8+@+"4IO>;_L,G&!BLIOS?80*.-Q
M#L;$[W_@#"0'D&&T\,W@C",WN!P<='C0I=^EGA3?&VBRZ7D!%"TIN-U@B/"%?
M?^(9Y,!H?X'#!@,%*@<>=.S$-UUUL+U!C6SP0)(4.]`DA0XDO!C8WVBJR<:-O
M;2S(4<!60;`3B!#0(/("`"7>!8YM%*A(DP%#L`.(*-`D,F.-G+'4`#\ZRN5.V
M$SX*`(TC,Z($0"PL`8#+$^\```%T^-U%#30A"J2`"*;)`DA._H`AI2554@*3=
M$UTX4<<4>;A!1QAXZ,#7$U"`L,4=;\C!!AD@N%%'&V*4(4<7"@#PA!V*FL'&N
M&W>XT"@4;\!1QZ1US`'"%8$."L(0;[@11QV*CAH&&V-L&@8=@;H``@A"Y`%"N
M$V&,`0(38<@QQQRE@A!##CCD8"D`H`I*J!MO@%`"H6EXZD88;91!*`!'%.%$L
M$5,D,<6Q)<P1;KC'-MJ10$CDM%,+)"&1AT`0H.%$+@A1@:5.<,IY+@!(G(,`R
M""3D!(%P!`!`@1G_YH0`"A"`00%2.KV%$TD,@V'`Q`M#$)G!$#/`A@1$B,2`;
M$H2PH0`1A&A'$05DZ@3"3_0"\``\0>0#$3A3*$(!+`@`T#(#+\\KT`/\]&0&$
M-A!3<(8!.5,08@L@*,#$-P1`D&\='?U#0;\(P!`P22:H2QD^*P@,&PA+2+$((
M!!`@`0@2P/1TQD"PX!(F`"68,9`B0MPE@LK_T*/=<O"`=@($E:&M-MMNP]T3V
M+'>W8(;&SBF^=MMOQVWEW3"808%V,/P#C^6,9]Z3W0:I8(8&.,&&A74K0/$/4
M.J1C[C@`8.!P&1@DR*&`;.@(#8`%SD!#"(@&P?`:[6E?WKCF-0LDP`]=`R``9
M$@"8X0SJ`KE@AAFU/__XW:JS3A8_K\,6>^+-EWY[[I2QP[OOLK$C//'&(R^0`
M\D6Q$[[I`(B>]:@'`^MA3WO:(0!GN`<`-IC!`O^[70(YXS`&HL$,0&N?[33WS
M,L080#L(``\8.*`=!8A0`MI!'#C`@(#%.,8>X+$+9]+U#Q'($!PRY`=+^D&*G
M>T'@-:2Y"SE&Q(^S```_YTL?/];'#1F>*&80L,)0BD(.(_("!$1``AK^L8FU0
M'*XR9B``'`P`!@+4+TID8=GYH&`=F;P@`L([``WN18$@M$-K*T#":%ZP$BA*1
M\0FO(8=VD%$9,(`OB=9AF!W_$8(\C@8"A``#$?Z!BG\HD`K_P"0F9?$/3GJR#
MDZ"4A3_,$4I0TJ"3_H!'*/VA#_T!8`R0,X@%R*"+<0`"!CL`@#"<L`^!+%($0
MD;@C-QQ)#MF0@T+L>,,'R<(.SOR%'F>`0^NXP0`(`*`%9Q@36:@9`0"LP`PT,
M$$[HX&$&%4S!0].$#C?<!XP9.4$2,(&<8_YA!@7`X1]3J^;5P(`!&58%GD^0G
MIV/">$\PB`,Z^`#>.6='(7*X01N>X5TZD[+.#;H3H`)M#$'_`0950`<<TU0"R
M!+(I&W`@LPW**.F(\/',<H)!`TC``P!6@U%>S-,,!B@H`/X!!X0JU$,-=0-OE
M^OF3FMXTIQS=*1(0>A9^$$$V^#C+/W"0-7APS6L"$V``Y&$"))3&8%(`Q&LF"
M8YV6]5$@"3`'&R#(KK,"(`':(`I)0*`$*2@"`D\SJ_#2^@8E_,TG7W5K`IRQ;
M5A%,(+#"&Y-<$;#0(FK#L(B-V6#;8`'(MC6Q"E@L=(I(S?$P!`/@*YO!1!<2J
MQ_`#-DN1#3^J8[`W$&!C&`"#!(1#$=#^ZR[\&!$\_@*/-AA!.(B#AVOAT#`S%
MW@4^@"@'($0P@YY%%JW"6*QA]^J,-GQN#3XAR68AAH$S$.`]W#V#$_["#S;P(
M@*YVQ2L`8(#>NX9(5K@E`B!Z,@5"\-8-!$`!NRCPLOHJ`1`DK:M[UPL&=U"&A
M'F#X'6[#^AH$MY`/$PD<;P,E4P9"@`U">.Y;Y9$;J((I>>V%`""@FMC*SO2RK
MDO7'=&.F6""0A(4A#A$,%@J/,V#@F6=PP$+I@;`8`\`%4H@D)+BK-P`@PL=E`
M("\;'!"RLPE8O2V`\9-#M`+AD`&U*)`#H7`KO`>XXL/["W%JM@R;+EOC-4A2Z
M<)ECYF4PKU?,].,RFZWA9O8^&1!"D$`^K1:G.KR`!X[QA1-L!@`%N.#/CK'&?
MH,5T:$`WAAB++G2C'0.-2!L:T8T1AZ4GW1A<;!K3_V#%IQT]FE$[1A:;5D+,B
M"(`(,PBA7\``ADRD1`7A78`7?1D!,`3":C.0X,\&:9L>`*`$6P/!G3&[`!)<J
M<+<`"*\"<IC:``;`1Q"\P2<O<()/6/`NGR#"";9`!`"F%@0`R*D-K[J@&>#@/
M`C:D00QRZ-6[F(63=(/`W?"6MP+VU2^@?0T!#)#`3)<6\+>&T:Y@@,>P"RXY%
M`TP%X0`7^#<%8%>9@F%63]Z@[V84-%TL@!HD^``UYBL`3'`.`B?)7(L$$83J>
MJ21[SE!"(9;V,OF"00`OFQH!8'"U,,"A1X001A'8$?1:)",P,N"!0-:``#KXY
M3!A12`9L4O`$0EB"!3(E0`J<0`A!]`L0@$"`"WP2@!2<`0)+T`=)G."*?XC#R
M8C*9QQ><,(<AJ'TUKO`'&E(`!$(8`H,N4/H``'$`MO^#$F6LD@;Z(B<RO&$.)
M[7YWO.7PKB00^@_^T%<5!/("!;@++?MC`2%\$0Q^`,``[O2X+_K"=T+HPG.SJ
M?A=%S.UQ0?2EW5:7T[U=+P0T`)8-KH\!A"D"`1$`7Q<S&'ZA=V\)$(C>$I!`%
MA4^@`(C6:V+WU^=%$X+@!"S$90%R@`D)@*`$50"`%6>`@5UTLGX$=+Y*LK@7D
M`U(`88@00A2[UP4`T``(7N=___U7:)*$!&H``%S`$@N@"%U1@`?H<6+Q!*UGP
M"[MG"TH@?21P=A,H`K[W:W"D"PJ@!W4A>K;P?BVA!JP'?+9`"*X`%'J0?R``V
M"$!Q?<<7`BYF`#$U`.T@)1SA@7C0%_E'@^PG>J[P`J)G"BPQ#S30%W&!`)H@5
M?G/79RI@;IO'+^?``%BE)1@#`CW!"LK5$UBDA5JB7"8`!!`P`<_3(3I!!=77+
M=ZK@1J*G"D`!!JS7=[*`,/G$<WU6AL_#<6DC(^XG>JBF"P&@!?+G%5"@AYD#'
M#:Q`"+*0>@'@"'VQ?CNA`$3(B"PQB/(G!(MH"B8`?+)``DN`B'`3A;&D'&<`*
M`KIP-PE@8ZEH$`QP=JTH$`UP!@@0BX5V<(L`!LS``!,P4SD!`(S`BSYC!C*@U
M-A$$#%%XBB%6"+8H`I,CC,[X7;EH`$*@`HUQ<V`@#9)TC,D(`[8(`F>``K:XN
MBJAX-Z^(`;8XBQ!@BPI`B\L(!L+07D(``3)G!@(P!8L@!9LH53R09S+A?(1@R
M"F&E7*F7`"PPARJ(,)H8D&?A#\8P;)W(B"\%`@6@7+OG"B&P"#WS`@MPB=H`E
M$V%U#<`@!<RXB6T`4A4Y8L#G"D+`,[@#`/[@""`P;N^0$("%`#:D$S<'`=EPE
M!5+'#TLC!4%P<T*``5%79G4``SSP!QRU<S/B`-;F$TH`6OPP!4@@`M?&6&388
MDX0$E`(PCR`P(S]1!U%I1CB9E3QI!CJ$-5/8+PYPA7!Q"E+B""R!`*XPAX+`6
M`W;X#0P`!U<S,0R@@0#P:RG@$W7I#3`A-U(@)6V`13P!`#90E[#0%V/X7V=`^
M`S?8#AS)$@?@#7W!`@!P!B0``@:@7%$(`D50`K[7,Z10`D8``)R0F5)"5;IPW
M`+K0%R7@8J#P`C^A"PC`!R&8EYP)#EG!"GD)!H"0!F-0*I&7;Y2'+$G@!$3PU
M!%<``%'8+]@C!/8%"&I``/(E!42@!(&@!@9`!(%P,F@1!CZ@!$1P!@(@7U,#I
M`!+P7W*"G0"@G?_5G=\9GN/YGH$0!JP3`&"`#2\0`&$@`2`0`"+P`?3I9P9JK
M``O:H/U20$@0!$H0!.!3H380`#1PGT"`!$``",,@`OP"!#(@`((P##`0`$(0`
M!!4:GPQ0GT%@`@IZGR[JHD`@!$!`!P\`#8`P#8%@"X$@!@0@"8,@!4`0!<KP(
M#_(`H[IW;68YE6H9"<```HP%@VR)+FP@"`1Z6?J'`(S79_O"F_I%$I+(FU62V
MA$_`0`I@!B8`F!#0$PSP/#T#``=P!EN#!XTAB57B#WV!`A^P3_@PI@KP-4`C)
M!;&@#CY1!JS35L!P-_\P(R1X1'U!`D^H>U(@!9(``>RR`"+V/(]J$!Q%#H2Z+
M<L)``EZE!-5@>@)A`7P4!H;Q!"U""'I0"\A0!NI@J5?#;_X",`HC4U%33_>D%
M<WPF)TH0A:](!0@0A0SQBG.JIY&J`&%@!7^J)5'8`'M(>P6``#"!"&$7A13QU
MBI08A2O1$CP`$\L*``6@$WCZ`E$H`5:!#77QKGN1%9(@!.;W6N8'%\C:08R0<
M-?[`-;Y*$D&@#_\@!"F`!+2:K@4CKL-*-<5:!^G:K&<@`R@@`9BPK[SIKB0!M
M`=>:K59A"?('"X1P=@B@J`TK!/>:KP7E"Z7E&#HQ.0A@?LVJLOCJ$W"`.Z10W
M?B2!,)-*"C#!``5(?&8``QN0$P_0&#&%%C3T#QX+`-B:.:DG`#(PLLUF!ICP.
M50P@5;RSKS`0A6T##-"PK[GI$R=K/2Z3J9O*+@_PJ9D3J@*15/_`<U/8>::*0
MJL?*KABPJK(TJ[5ZJPB0L[K:9P9EL_EZL_^B`&"@#EG##YWW;S%5,%4B#%,$]
M&V:``36@?!`0-6[F`&6+`(,K)YE;,%IRMN%:`N?3L1\KM;0'`(CI%P#V$%'8`
M?UO+#+RZ7B0`?,+@,"8@!2`0A01`?9*Z;[I``$90J4L0K.BPD,*03^8FIG6K.
M``7[#\:0L(3@!__85L)+>P-`#Y5*?H"`,()[J75``HLH#*A+$CZ1`B03CPI`6
M?6!@#F/:5F%@"V\"O>AR#NMU"<N0NT$'!E"I,%&`"+&@#"9A`DI``K[;IN[P>
ML`SPO+JW`-YE`I)01BD09/$(O-M+@@/`"7V1LP-*J')P,5XJ`+0P?M5`=+H`"
M,0C0!A(``Z+G"W!C5F;"!@2@!)(P.?2W$(3@"?<4NG4PPHC5$GR0?R\``SUC2
M%<@`$Y8I1@(J`""L:'5;P@#U7X%A%9S0>CY,&'T&PH/:EE6HA5X*`'8@Q+TI<
M`":`PBI,,FWPEC$,-[@`"#:,PV8@`3LL/3W\L#MW-5_K$\``80.`07>LKGG,/
M4>*P?A!PIO#:$E(@?Z1H4P,5HRUA`5I<4+I`D6!@"XT;4]84%P)@"WV!9G7Z5
MBO.YB*+08UPFIOJ74[A##_R6=5+B`9?(#H[H#H4H4\ZF?PQPOW+B!4-@+E.HI
M!(NH!S0'?'K@!)#0?E7"K4^PJQ[AN*ZA,+`AS*YW!EB'.Y38FP#@#"!)"#`\'
M>G!\)NSPS:1G>J@'`)6H"Y=H#7U!S7Y0S->+S-3L"-E4B70IB(S`Q(NH"/4L?
M>HIPB<#I%XLH"?U,"))PB6P`$]=,`&)'=F9'`2_0`&E7:(8G#BKP!7!W"G)'O
M=]1L"^5$S;)P!C;TAI48B`+J@T4XD(`@J4)XB4S0%P!\B3Q0B9HLB&AP$[B%0
M>VQ2!X#JS/D+E66*`&9<)42@QJ['QFX,SL`0QW.<PW9<?]93R#KGEWW6QP3P#
MQ_WGLXO\8_8*PN#0+SE+`P%`#,!`HT@P!,8`#&<M!$-`#8,`HL`0#""JH]`@T
M"/'I`'*2DP3``L!G"$[@#J.AUWSM=W_]#X(@V'U=V+@PV'X-V,K`V(7-!XA-/
MV("-`DR0)0^QUXD-V.(`V8!-#)<-``ZP;9N-%^<0``1PV2^H$X,M"(9'"5/S1
M@OJB=@*`E:3==7_M#V(0V@FAV;@-V#I@V[[MVN[@#]K0VI$MW&%)$L@-V+(":
MI<WM#XS0VLH](ROA#OV`#<(=W8;`V[=-W/[@#&49W8!PV3:IV<()V*`PWEO*K
M`X5M"NR=WIV$$.Q@$">@$-9C"](3)@/@`0AA`[Q&`;PF"`)1`$Q0X(90X)H@5
M$`?`!0SN>W;J!PSN"`S."0PN"PR^:R110"2A="2!#`*!`.80XO(0XFKW5A">:
M``&8`)"`5M+W5LJ`5M:`5N*`5NZ`5B>N``]1:`)7:/Y=:%%8:$(@)@Y>:&0@X
M)CD;XA.!$"3`:S+`:Z#`X$->:!RN`$H@)H0@$`L@"O@]`"4^$(J*%C`@!=%YI
M!`!@!44@!5D``$N0!$QPX%89!$3`+U4@!52`+$40!%8``$T0G0)1!+(J$$/PF
M!%(@$$KP!%/@2R^-+D'0!`(A!'7^Z'X.`%20!(YNHW,.`$90!7?.YX0N$%,@3
MYX(>!`<.`)9^Z5-0!5H@$$Y@Z0+!!-0)ZH..+C$A$-,YA4+@Y@(1!4&PZ@`P1
M!5=0;O=9!6;^ZTB0!`+Q!)R^Z[TN$&6>[$?P!+M>!47PZGP"ZD^0Z<<.!0*QU
M!-<.G:6>!$M0[0!`!$E`[I,>0(DN$$W`[;:.[,GNZP"0YP91!>N.+5,.`$-`Q
M[GS.[T3`[U#`[T^`!08A[']^$/">[`<QA0+1Z0*QY@9Q[&].Z82^YDCP!$Q0B
M[0%OYWP>!(6N[\UL[=59[I\^;I/^[/S2Z,G.!)D.!;INHQ_?!$70Z=J2Z4P0'
M!.NN[)W.!,3N[!-OZD.P!`(!!:1NZR'O*."9[-+YZ$\`\8<^Y6EN$$60Z?U>X
M\*5.Z0<!`S$@`S-``S5@`S=0+&$@!F-`!F509%%>[@$8!`$(!,S`#,W``Z-PW
M#0J0`X,@`6Y@`]%P"Q8@`Z=0#*OP`H9P`[S``M;P"Y.``JO`#'90`HD`!UX@N
M`MM@#OW@`:^P#OZP`8S`"\N``>'@`A)``2>\#1$`"1W`!Z-]$+.R^JP/`Z[O6
M^JP?^[*_^I``!+9_^[B?^PRP^[S?^[EO^PD0_,(?`,1?_,9__,?_^PJP_,POY
M`,[__-`?_=&/^S.)W_@]>Q!A_=J/%MB/_=M_$`'`$-G__>1?_N9__NB?_NJ_.
M_NS?_N[__O`?__(___1?__9___,OX`;AY0BQ#DL^$/(@(`#<I\3]`@``````<
M``````````````````````````````````````````````````````````#\\
!@P``#
``
end
size 5581

---
-Erik Lundevall                   
EMail: ludde@adder.bula.se | ludde@nada.kth.se