POP LIMITS.40
FILE INFORMATION
FILENAME(S): POP LIMITS.40
FILE TYPE(S): PRG
FILE SIZE: 9.7K
FIRST SEEN: 2025-12-02 23:47:36
APPEARS ON: 1 disk(s)
FILE HASH
7654b80d69038be9e017ed1a196a409c93e786d1d060d29b8880b1be202731c5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GEOGRAPHY | POP LIMITS.40 | PRG | swasti, flohmarkt | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 01 00 89 39 31 30 00 36 04 02 00 99 |.......910.6....|
00000010: 22 78 A9 1D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x..........X` .|
00000020: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000030: 8D 15 03 58 60 20 00 61 04 03 00 99 22 78 A9 47 |...X` .a...."x.G|
00000040: 85 90 A9 04 85 91 58 60 20 EA FF A9 FF 85 9B 4C |......X` ......L|
00000050: 58 E4 78 A9 55 85 90 A9 E4 85 91 58 60 20 20 20 |X.x.U......X` |
00000060: 20 00 80 04 04 00 99 22 78 68 68 68 AA 68 A8 68 | ......"xhhh.h.h|
00000070: 68 68 68 68 68 68 98 48 8A 48 58 60 20 20 20 20 |hhhhhh.H.HX` |
00000080: 00 91 04 05 00 99 22 68 68 68 68 68 68 68 60 20 |......"hhhhhhh` |
00000090: 20 00 B8 04 06 00 99 22 A0 FF C8 84 FB A9 D8 85 | ......"........|
000000A0: FC 20 F1 B7 8A A2 04 A0 FF C8 91 FB 88 D0 FB E6 |. ..............|
000000B0: FC CA D0 F6 60 20 20 20 00 D5 04 07 00 99 22 A2 |....` ......".|
000000C0: 04 A0 FF C8 B1 FB 91 FD 88 D0 F9 E6 FC E6 FE CA |................|
000000D0: D0 F2 60 20 20 00 E6 04 23 00 8B 55 57 B2 30 A7 |..` ...#..UW.0.|
000000E0: 9E 55 55 2C 31 35 00 10 05 28 00 97 55 43 2C 30 |.UU,15...(..UC,0|
000000F0: 3A 97 55 4E 2C 30 3A 55 52 24 B2 22 22 3A 55 49 |:.UN,0:UR$."":UI|
00000100: 24 B2 22 22 3A 8B 55 4C B2 30 A7 55 4C B2 33 39 |$."":.UL.0.UL.39|
00000110: 00 24 05 2D 00 A1 55 49 24 3A 8B 55 49 24 B2 22 |.$.-..UI$:.UI$."|
00000120: 22 A7 34 35 00 59 05 32 00 55 41 B2 C6 28 55 49 |".45.Y.2.UA..(UI|
00000130: 24 29 3A 55 52 B2 C3 28 55 52 24 29 3A 8B 55 41 |$):UR..(UR$):.UA|
00000140: B2 31 33 AF 55 52 B1 30 A7 97 55 43 2C 31 3A 99 |.13.UR.0..UC,1:.|
00000150: 22 20 9D 22 3B 3A 89 37 30 00 8E 05 37 00 8B 55 |" .";:.70...7..U|
00000160: 41 B2 32 30 A7 91 AB 28 55 52 B2 30 29 89 34 35 |A.20...(UR.0).45|
00000170: 3A 55 52 24 B2 C8 28 55 52 24 2C 55 52 AB 31 29 |:UR$..(UR$,UR.1)|
00000180: 3A 99 22 9D 20 20 9D 9D 22 3B 3A 89 34 35 00 9C |:.". ..";:.45..|
00000190: 05 3C 00 8B 55 52 B2 55 4C A7 34 35 00 BA 05 41 |.<..UR.UL.45...A|
000001A0: 00 8D 39 35 3A 55 52 24 B2 55 52 24 AA 55 49 24 |..95:UR$.UR$.UI$|
000001B0: 3A 99 55 49 24 3B 3A 89 34 35 00 D3 05 46 00 8B |:.UI$;:.45...F..|
000001C0: 55 52 24 B2 55 58 24 A7 99 22 9D 20 22 3B 3A 89 |UR$.UX$..". ";:.|
000001D0: 31 34 35 00 F6 05 4B 00 81 55 49 B2 55 52 A4 31 |145...K..UI.UR.1|
000001E0: A9 AB 31 3A 8B CA 28 55 52 24 2C 55 49 2C 31 29 |..1:..(UR$,UI,1)|
000001F0: B2 22 20 22 A7 82 00 0C 06 50 00 55 52 24 B2 C8 |." ".....P.UR$..|
00000200: 28 55 52 24 2C 55 49 29 3A 99 3A 8E 00 1E 06 5F |(UR$,UI):.:...._|
00000210: 00 8B C3 28 55 53 24 29 B2 30 A7 31 31 30 00 4A |...(US$).0.110.J|
00000220: 06 64 00 81 55 49 B2 31 A4 C3 28 55 53 24 29 3A |.d..UI.1..(US$):|
00000230: 8B 55 49 24 B3 B1 CA 28 55 53 24 2C 55 49 2C 31 |.UI$...(US$,UI,1|
00000240: 29 A7 82 3A 55 49 24 B2 22 22 00 50 06 69 00 8E |)..:UI$."".P.i..|
00000250: 00 5D 06 6E 00 8B 55 41 B2 34 36 A7 8E 00 70 06 |.].n..UA.46...p.|
00000260: 73 00 8B 55 41 B2 33 32 AF 55 52 B3 B1 30 A7 8E |s..UA.32.UR..0..|
00000270: 00 83 06 78 00 8B 55 41 B1 34 37 AF 55 41 B3 35 |...x..UA.47.UA.5|
00000280: 38 A7 8E 00 96 06 7D 00 8B 55 41 B1 36 34 AF 55 |8.....}..UA.64.U|
00000290: 41 B3 39 31 A7 8E 00 B2 06 82 00 8B 55 41 B3 31 |A.91........UA.1|
000002A0: 39 33 B0 55 41 B1 32 31 38 A7 55 49 24 B2 22 22 |93.UA.218.UI$.""|
000002B0: 3A 8E 00 CF 06 87 00 8B C2 28 55 54 29 B2 55 55 |:........(UT).UU|
000002C0: 25 A7 55 49 24 B2 C7 28 55 41 AB 31 32 38 29 00 |%.UI$..(UA.128).|
000002D0: D5 06 8C 00 8E 00 04 07 91 00 8D 31 37 30 3A 97 |...........170:.|
000002E0: 32 35 31 2C 30 3A 97 32 35 32 2C 55 53 AD 32 35 |251,0:.252,US.25|
000002F0: 36 3A 97 32 35 33 2C 30 3A 97 32 35 34 2C 55 46 |6:.253,0:.254,UF|
00000300: 3A 9E 55 56 00 1C 07 96 00 55 5A B2 31 3A 55 56 |:.UV.....UZ.1:UV|
00000310: 25 B2 C2 28 55 54 29 3A 89 33 30 30 00 62 07 9B |%..(UT):.300.b..|
00000320: 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 |.UZ.0:US$.UJ$:UG|
00000330: 24 B2 55 4B 24 3A 55 54 24 B2 55 4C 24 3A 55 50 |$.UK$:UT$.UL$:UP|
00000340: B2 55 4A 3A 55 4C B2 55 4B 3A 99 22 93 22 3B 3A |.UJ:UL.UK:.".";:|
00000350: 8B 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C |.UW.0..UY,6:.UX,|
00000360: 31 34 00 A1 07 A0 00 97 55 54 2C 55 56 25 3A 97 |14......UT,UV%:.|
00000370: 32 35 31 2C 30 3A 97 32 35 32 2C 55 46 3A 97 32 |251,0:.252,UF:.2|
00000380: 35 33 2C 30 3A 97 32 35 34 2C 55 53 AD 32 35 36 |53,0:.254,US.256|
00000390: 3A 9E 55 56 3A 8B 55 57 B2 30 A7 9E 55 55 2C 31 |:.UV:.UW.0..UU,1|
000003A0: 35 00 CB 07 A5 00 97 55 31 2C 55 31 25 3A 97 55 |5......U1,U1%:.U|
000003B0: 32 2C 55 32 25 3A 97 55 33 2C 55 33 25 AB 31 3A |2,U2%:.U3,U3%.1:|
000003C0: 97 55 34 2C 55 34 25 3A 89 33 35 00 F7 07 AA 00 |.U4,U4%:.35.....|
000003D0: 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 |U1%..(U1):U2%..(|
000003E0: 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 |U2):U3%..(U3):U4|
000003F0: 25 B2 C2 28 55 34 29 00 21 08 AF 00 55 4A 24 B2 |%..(U4).!...UJ$.|
00000400: 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 |US$:UK$.UG$:UL$.|
00000410: 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 3A |UT$:UJ.UP:UK.UL:|
00000420: 8E 00 46 08 2C 01 99 22 93 11 22 3A 97 55 54 2C |..F.,.."..":.UT,|
00000430: 55 55 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 31 32 |UU%:.UW.0..UY,12|
00000440: 3A 97 55 58 2C 36 00 66 08 31 01 99 22 20 20 20 |:.UX,6.f.1.." |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 20 45 | M E|
00000460: 20 4E 20 55 11 22 00 92 08 36 01 99 22 20 20 20 | N U."...6.." |
00000470: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000490: 2D 22 00 BD 08 3B 01 99 22 11 20 20 20 20 20 20 |-"...;..". |
000004A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 50 4F 50 55 | 1. BEGIN POPU|
000004B0: 4C 41 54 49 4F 4E 20 4C 49 4D 49 54 53 00 E7 08 |LATION LIMITS...|
000004C0: 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 |@..".. 2. |
000004D0: 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 | STUDENT INSTRU|
000004E0: 43 54 49 4F 4E 53 22 00 11 09 45 01 99 22 11 11 |CTIONS"...E.."..|
000004F0: 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 | 3. TEAC|
00000500: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS|
00000510: 22 00 2C 09 4A 01 99 22 11 11 20 20 20 20 20 20 |".,.J..".. |
00000520: 20 34 2E 20 20 20 51 55 49 54 11 22 00 58 09 4F | 4. QUIT.".X.O|
00000530: 01 99 22 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ---------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000550: 2D 2D 2D 2D 2D 2D 2D 22 00 83 09 54 01 99 22 11 |-------"...T..".|
00000560: 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 |. PRESS A |
00000570: 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 |NUMBER KEY (1-4)|
00000580: 20 22 3B 00 97 09 59 01 55 4C B2 31 3A 55 53 24 | ";...Y.UL.1:US$|
00000590: B2 22 31 32 33 34 22 00 A6 09 5B 01 8D 33 35 3A |."1234"...[..35:|
000005A0: 55 53 24 B2 22 22 00 C3 09 5E 01 91 C5 28 55 52 |US$.""...^...(UR|
000005B0: 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C |$).1000,400,500,|
000005C0: 33 39 30 00 CC 09 63 01 89 33 30 30 00 E0 09 72 |390...c..300...r|
000005D0: 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 31 35 35 |..UZ.1..UP%:.155|
000005E0: 00 E6 09 77 01 8E 00 0E 0A 86 01 9E 55 45 3A 99 |...w........UE:.|
000005F0: 22 9A 93 22 3A 8B 55 57 B2 30 A7 97 55 59 2C 36 |"..":.UW.0..UY,6|
00000600: 3A 97 55 58 2C 31 34 3A 9E 55 55 2C 31 34 00 16 |:.UX,14:.UU,14..|
00000610: 0A 8B 01 9C 3A 80 00 3B 0A 90 01 99 22 93 22 3A |....:..;....".":|
00000620: 97 55 54 2C 55 4C 25 3A 8B 55 57 B2 30 A7 97 55 |.UT,UL%:.UW.0..U|
00000630: 59 2C 31 31 3A 97 55 58 2C 31 32 00 7A 0A 95 01 |Y,11:.UX,12.z...|
00000640: 55 54 24 B2 22 20 D0 4F 50 55 4C 41 54 49 4F 4E |UT$." .OPULATION|
00000650: 20 CC 49 4D 49 54 53 22 3A 55 48 B2 31 3A 55 50 | .IMITS":UH.1:UP|
00000660: B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 |.0:UG$.".TUDENT |
00000670: C9 4E 53 54 22 3A 8D 38 35 30 00 AC 0A 9A 01 99 |.NST":.850......|
00000680: 22 11 11 20 20 20 D4 48 49 53 20 50 52 4F 47 52 |".. .HIS PROGR|
00000690: 41 4D 20 49 53 20 44 45 53 49 47 4E 45 44 20 54 |AM IS DESIGNED T|
000006A0: 4F 20 53 49 4D 55 4C 41 54 45 11 22 00 D6 0A 9F |O SIMULATE."....|
000006B0: 01 99 22 20 50 4F 50 55 4C 41 54 49 4F 4E 2D 52 |.." POPULATION-R|
000006C0: 45 4C 41 54 45 44 20 47 52 4F 57 54 48 20 4C 49 |ELATED GROWTH LI|
000006D0: 4D 49 54 53 2E 11 00 FF 0A A4 01 99 22 20 D9 4F |MITS........" .O|
000006E0: 55 20 48 41 56 45 20 54 48 45 20 43 48 4F 49 43 |U HAVE THE CHOIC|
000006F0: 45 20 4F 46 20 53 45 4C 45 43 54 49 4E 47 11 00 |E OF SELECTING..|
00000700: 2C 0B A9 01 99 22 20 54 48 45 20 53 54 41 4E 44 |,...." THE STAND|
00000710: 41 52 44 20 53 45 54 20 4F 46 20 47 52 4F 57 54 |ARD SET OF GROWT|
00000720: 48 20 52 41 54 45 53 20 46 4F 52 11 00 5A 0B AE |H RATES FOR..Z..|
00000730: 01 99 22 20 42 49 52 54 48 20 52 41 54 45 53 2C |.." BIRTH RATES,|
00000740: 20 44 45 41 54 48 20 52 41 54 45 53 2C 20 49 4E | DEATH RATES, IN|
00000750: 44 55 53 54 52 49 41 4C 11 22 00 8A 0B B3 01 99 |DUSTRIAL."......|
00000760: 22 20 4F 55 54 50 55 54 20 41 4E 44 20 50 4F 4C |" OUTPUT AND POL|
00000770: 4C 55 54 49 4F 4E 2C 20 4F 52 20 59 4F 55 20 4D |LUTION, OR YOU M|
00000780: 41 59 20 20 20 20 20 20 11 22 00 B5 0B B8 01 99 |AY ."......|
00000790: 22 20 43 48 4F 4F 53 45 20 54 4F 20 50 52 4F 56 |" CHOOSE TO PROV|
000007A0: 49 44 45 20 59 4F 55 52 20 4F 57 4E 20 46 49 47 |IDE YOUR OWN FIG|
000007B0: 55 52 45 53 2E 00 C9 0B BA 01 8D 38 33 35 3A 8D |URES.......835:.|
000007C0: 38 35 30 3A 99 22 11 11 22 00 F8 0B BD 01 99 22 |850:.".."......"|
000007D0: 20 C9 4E 20 54 48 49 53 20 43 41 53 45 20 59 4F | .N THIS CASE YO|
000007E0: 55 20 4D 55 53 54 20 53 45 4C 45 43 54 20 46 49 |U MUST SELECT FI|
000007F0: 52 53 54 20 54 48 45 11 00 27 0C C2 01 99 22 20 |RST THE..'...." |
00000800: 47 52 4F 57 54 48 20 50 45 52 43 45 4E 54 41 47 |GROWTH PERCENTAG|
00000810: 45 20 41 4E 44 20 54 48 45 4E 20 54 48 45 20 59 |E AND THEN THE Y|
00000820: 45 41 52 20 49 54 11 00 41 0C C7 01 99 22 20 57 |EAR IT..A...." W|
00000830: 49 4C 4C 20 42 45 20 41 54 54 41 49 4E 45 44 2E |ILL BE ATTAINED.|
00000840: 22 00 4A 0C E5 01 8D 38 33 35 00 5E 0C EA 01 8B |".J....835.^....|
00000850: 55 5A B2 31 A7 9E 55 50 25 3A 89 31 35 35 00 64 |UZ.1..UP%:.155.d|
00000860: 0C EF 01 8E 00 88 0C F4 01 99 22 93 22 3A 97 55 |..........".":.U|
00000870: 54 2C 55 4C 25 3A 8B 55 57 B2 30 A7 97 55 59 2C |T,UL%:.UW.0..UY,|
00000880: 32 3A 97 55 58 2C 31 30 00 C7 0C F5 01 55 54 24 |2:.UX,10.....UT$|
00000890: B2 22 20 D0 4F 50 55 4C 41 54 49 4F 4E 20 CC 49 |." .OPULATION .I|
000008A0: 4D 49 54 53 22 3A 55 48 B2 31 3A 55 50 B2 30 3A |MITS":UH.1:UP.0:|
000008B0: 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 |UG$.".EACHER .NS|
000008C0: 54 22 3A 8D 38 35 30 00 F4 0C F6 01 99 22 11 11 |T":.850......"..|
000008D0: 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 | .O THE BEST|
000008E0: 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 | OF OUR KNOWLEDG|
000008F0: 45 2C 11 22 00 1F 0D F7 01 99 22 20 20 20 20 20 |E,."......" |
00000900: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000910: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".|
00000920: 4A 0D F8 01 99 22 20 20 20 20 20 44 4F 4D 41 49 |J...." DOMAI|
00000930: 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E |N. .F THIS IS N|
00000940: 4F 54 20 54 52 55 45 2C 11 22 00 68 0D F9 01 99 |OT TRUE,.".h....|
00000950: 22 20 20 20 20 20 50 4C 45 41 53 45 20 43 4F 4E |" PLEASE CON|
00000960: 54 41 43 54 3A 11 11 22 00 91 0D FA 01 99 22 20 |TACT:.."......" |
00000970: 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 A0 C2 | ...........|
00000980: D5 D3 C9 CE C5 D3 D3 A0 CD C1 C3 C8 C9 CE C5 D3 |................|
00000990: 22 00 B5 0D FB 01 99 22 20 20 20 20 20 20 20 20 |"......" |
000009A0: 20 20 11 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | .3370 .HARMACY|
000009B0: 20 C1 56 45 2E 00 DA 0D FC 01 99 22 20 20 20 20 | .VE......." |
000009C0: 20 20 20 20 20 20 11 C1 47 49 4E 43 4F 55 52 54 | ..GINCOURT|
000009D0: 2C 20 CF 4E 54 41 52 49 4F 22 00 FC 0D FD 01 99 |, .NTARIO"......|
000009E0: 22 20 20 20 20 20 20 20 20 20 20 11 C3 41 4E 41 |" ..ANA|
000009F0: 44 41 2C 20 CD 31 D7 20 32 CB 34 22 00 1D 0E FE |DA, .1. 2.4"....|
00000A00: 01 99 22 20 20 20 20 20 20 20 20 20 20 11 28 34 |.." .(4|
00000A10: 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 30 0E |16) 499-4292".0.|
00000A20: FF 01 55 48 B2 31 3A 8D 38 33 35 3A 8D 38 35 30 |..UH.1:.835:.850|
00000A30: 00 5E 0E 00 02 99 22 20 20 20 20 20 20 11 11 D0 |.^...." ...|
00000A40: 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 D0 4F 50 |ROGRAM .AME: .OP|
00000A50: 55 4C 41 54 49 4F 4E 20 CC 49 4D 49 54 53 00 79 |ULATION .IMITS.y|
00000A60: 0E 01 02 99 22 20 20 20 20 20 20 11 D7 52 49 54 |...." ..RIT|
00000A70: 54 45 4E 20 42 59 20 20 3A 00 9F 0E 02 02 99 22 |TEN BY :......"|
00000A80: 20 20 20 20 20 20 11 D2 45 56 49 53 45 44 20 42 | ..EVISED B|
00000A90: 59 A0 20 3A 20 C3 2E 20 C6 4F 53 54 45 52 22 00 |Y. : .. .OSTER".|
00000AA0: CC 0E 03 02 99 22 20 20 20 20 20 20 11 11 D4 48 |....." ...H|
00000AB0: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00000AC0: 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 F3 0E 04 |RUN ON ANY......|
00000AD0: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....|
00000AE0: C3 A0 32 2E 30 20 D0 C5 D4 20 C3 4F 4D 50 55 54 |..2.0 ... .OMPUT|
00000AF0: 45 52 11 00 1A 0F 05 02 99 22 20 20 20 20 20 20 |ER......." |
00000B00: 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 | ..... 4.0 ...|
00000B10: A0 C3 4F 4D 50 55 54 45 52 11 00 3C 0F 06 02 99 |..OMPUTER..<....|
00000B20: 22 20 20 20 20 20 20 20 20 20 38 6F FF FF FF 6F |" 8o...o|
00000B30: FF A1 FF C0 FF DA FF 22 FF FF FF 66 FF FF F0 F4 |......."...f....|
00000B40: FF FF FF FF FF FF FF FF FF FF FF FF AF 4F FF FF |.............O..|
00000B50: FF FF FF 02 FF 20 FF FF 20 FF FF FF FF 88 FF FF |..... .. .......|
00000B60: FF 88 FF FF FF FF FF FF FF FF 02 FF 2F FF FF FF |............/...|
00000B70: A0 FF FF FF 2F 28 FF FF FF FF FF 11 35 35 00 84 |..../(......55..|
00000B80: 0F 53 02 8E 00 B8 0F BC 02 99 55 43 24 22 93 11 |.S........UC$"..|
00000B90: 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00000BA0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00000BB0: 20 41 4E 20 38 30 33 32 00 F0 0F C1 02 99 22 20 | AN 8032......" |
00000BC0: 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 | LOAD THE 'C|
00000BD0: 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D |BM 4032' PROGRAM|
00000BE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 80 |.............":.|
00000BF0: 00 18 10 20 03 99 22 93 11 1D 1F 22 3B 3A 97 55 |... .."....";:.U|
00000C00: 54 2C 55 55 25 3A 8B 55 57 B2 30 A7 97 55 59 2C |T,UU%:.UW.0..UY,|
00000C10: 31 3A 97 55 58 2C 31 34 00 2E 10 21 03 81 49 B2 |1:.UX,14...!..I.|
00000C20: 31 A4 33 38 3A 99 22 12 20 92 22 3B 3A 82 00 46 |1.38:.". .";:..F|
00000C30: 10 22 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |."..I.1.22:."...|
00000C40: 20 92 22 3B 3A 82 00 5E 10 23 03 81 49 B2 31 A4 | .";:..^.#..I.1.|
00000C50: 33 37 3A 99 22 9D 9D 12 20 92 22 3B 3A 82 00 76 |37:."... .";:..v|
00000C60: 10 24 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.$..I.1.22:."...|
00000C70: 20 92 22 3B 3A 82 00 96 10 25 03 99 22 13 11 11 | .";:....%.."...|
00000C80: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000C90: 1F 12 A9 20 20 92 00 B0 10 26 03 99 22 1D 1D 1D |... ....&.."...|
00000CA0: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 |........ . . ..|
00000CB0: 00 DC 10 27 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...'..".........|
00000CC0: 1D 12 20 92 20 20 1C 12 A3 DF 1F 92 20 4F 20 4D |.. . ...... O M|
00000CD0: 20 4D 20 4F 20 44 20 4F 20 52 20 45 00 F2 10 28 | M O D O R E...(|
00000CE0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |.."............ |
00000CF0: 20 92 00 18 11 29 03 99 22 11 11 1D 1D 1D 1D 1D | ....)..".......|
00000D00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 45 44 55 43 |............EDUC|
00000D10: 41 54 49 4F 4E 41 4C 11 00 38 11 2A 03 99 22 1D |ATIONAL..8.*..".|
00000D20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1F |................|
00000D30: 53 4F 46 54 57 41 52 45 00 56 11 2B 03 99 22 11 |SOFTWARE.V.+..".|
00000D40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D50: 1C 31 39 38 33 1F 00 92 11 2C 03 99 C8 28 55 44 |.1983....,...(UD|
00000D60: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |$,24);".........|
00000D70: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
00000D80: 20 4F 52 20 57 41 49 54 92 22 55 43 24 3A 55 49 | OR WAIT."UC$:UI|
00000D90: B2 30 00 B9 11 2D 03 A1 55 49 24 3A 8B 55 49 24 |.0...-..UI$:.UI$|
00000DA0: B3 B1 22 20 22 A7 55 49 B2 55 49 AA 31 3A 8B 55 |.." ".UI.UI.1:.U|
00000DB0: 49 B3 32 35 30 A7 38 31 33 00 C2 11 2E 03 89 33 |I.250.813......3|
00000DC0: 30 30 00 FD 11 43 03 97 55 4E 2C 30 3A 99 C8 28 |00...C..UN,0:..(|
00000DD0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
00000DE0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00000DF0: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 14 12 |TO CONTINUE."...|
00000E00: 48 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |H..UI$:.UI$.." "|
00000E10: A7 38 34 30 00 1A 12 4D 03 8E 00 4C 12 52 03 55 |.840...M...L.R.U|
00000E20: 50 B2 55 50 AA 31 3A 99 22 93 22 C8 28 55 54 24 |P.UP.1:.".".(UT$|
00000E30: AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 |.UP$,21);.(UP$.U|
00000E40: 47 24 AA C4 28 55 50 29 2C 31 38 29 00 7B 12 57 |G$..(UP),18).{.W|
00000E50: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B9 12 5C 03 |----------"...\.|
00000E80: 8B 55 48 B2 30 A7 99 C8 28 55 44 24 2C 32 34 29 |.UH.0...(UD$,24)|
00000E90: 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 |;.(UP$,7);"HELP |
00000EA0: 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 |- PRESS H <RET|
00000EB0: 55 52 4E 3E 20 20 20 20 22 00 CA 12 61 03 55 48 |URN> "...a.UH|
00000EC0: B2 30 3A 99 22 13 11 22 3A 8E 00 08 13 6B 03 99 |.0:."..":....k..|
00000ED0: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00000EE0: 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 | ONE MOMENT|
00000EF0: 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 | PLEASE... "|
00000F00: 3A 99 22 13 11 11 11 22 00 0E 13 6E 03 8E 00 5E |:."...."...n...^|
00000F10: 13 84 03 55 58 24 B2 22 48 22 3A 55 53 B2 33 32 |...UX$."H":US.32|
00000F20: 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 |768:U1.196:U2.19|
00000F30: 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A |7:U3.198:U4.216:|
00000F40: 55 43 B2 31 36 37 3A 55 42 B2 31 30 32 34 3A 55 |UC.167:UB.1024:U|
00000F50: 44 B2 31 30 38 34 3A 55 45 B2 31 31 30 35 00 A7 |D.1084:UE.1105..|
00000F60: 13 85 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 |...UT.59468:UU%.|
00000F70: 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 |12:UL%.14:UP%.11|
00000F80: 35 38 3A 55 4E B2 31 35 38 3A 97 35 30 30 30 33 |58:UN.158:.50003|
00000F90: 2C 30 3A 55 57 B2 C2 28 35 30 30 30 33 29 3A 55 |,0:UW..(50003):U|
00000FA0: 46 B2 C2 28 35 33 29 00 F5 13 86 03 8B 55 57 B2 |F..(53)......UW.|
00000FB0: 30 A7 55 53 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.US.1024:U1.209|
00000FC0: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00000FD0: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 42 B2 |4.214:UC.204:UB.|
00000FE0: 32 30 34 38 3A 55 58 B2 35 33 32 38 30 3A 55 44 |2048:UX.53280:UD|
00000FF0: B2 32 30 36 34 00 3F 14 87 03 8B 55 57 B2 30 A7 |.2064.?....UW.0.|
00001000: 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A |UT.53272:UU%.21:|
00001010: 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 35 31 3A |UL%.23:UP%.2151:|
00001020: 55 4E B2 31 39 38 3A 55 59 B2 35 33 32 38 31 3A |UN.198:UY.53281:|
00001030: 55 55 B2 32 31 39 39 3A 55 45 B2 32 30 38 37 00 |UU.2199:UE.2087.|
00001040: 6B 14 88 03 55 43 24 B2 C7 28 31 35 35 29 3A 55 |k...UC$..(155):U|
00001050: 56 B2 31 32 31 34 3A 8B 55 57 B2 30 A7 55 46 B2 |V.1214:.UW.0.UF.|
00001060: 31 39 36 3A 55 56 B2 32 32 33 38 00 BC 14 89 03 |196:UV.2238.....|
00001070: 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |UD$."...........|
00001080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A |..............":|
00001090: 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UP$." |
000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010B0: 20 20 20 20 20 20 20 20 20 20 20 22 00 DD 14 8A | "....|
000010C0: 03 86 4C 28 31 31 29 2C 5A 28 35 29 2C 54 28 36 |..L(11),Z(5),T(6|
000010D0: 29 2C 52 28 36 29 2C 53 28 36 2C 35 29 00 E3 14 |),R(6),S(6,5)...|
000010E0: 8D 03 8E 00 06 15 8E 03 8D 39 30 30 3A 99 22 93 |.........900:.".|
000010F0: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED|
00001100: 20 53 50 41 43 45 00 1C 15 93 03 8B C2 28 55 53 | SPACE.......(US|
00001110: AA 34 30 29 B3 B1 39 36 A7 37 30 30 00 42 15 98 |.40)..96.700.B..|
00001120: 03 8B 28 B8 28 30 29 AB 28 B4 28 B8 28 30 29 29 |..(.(0).(.(.(0))|
00001130: B3 30 29 AC 36 35 35 33 36 29 B1 35 30 30 A7 39 |.0).65536).500.9|
00001140: 33 35 00 72 15 9D 03 99 55 43 24 22 93 11 11 54 |35.r....UC$"...T|
00001150: 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 |HIS MACHINE DOES|
00001160: 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 | NOT HAVE ENOUGH|
00001170: 11 22 00 98 15 A2 03 99 22 4D 45 4D 4F 52 59 20 |."......"MEMORY |
00001180: 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 |TO RUN THIS PROG|
00001190: 52 41 4D 20 21 22 3A 80 00 AE 15 A7 03 99 22 93 |RAM !":.......".|
000011A0: 22 55 43 24 3A 8B 55 57 B2 30 A7 39 36 35 00 CB |"UC$:.UW.0.965..|
000011B0: 15 AC 03 8B 55 46 B2 36 30 B0 55 46 B2 31 30 38 |....UF.60.UF.108|
000011C0: B0 55 46 B2 31 32 34 A7 39 35 30 00 E5 15 B1 03 |.UF.124.950.....|
000011D0: 97 35 32 2C 30 3A 97 35 33 2C 55 46 AB 34 3A 9C |.52,0:.53,UF.4:.|
000011E0: 3A 8D 39 30 30 00 1C 16 B6 03 8B 55 57 B2 31 36 |:.900......UW.16|
000011F0: 30 A7 97 31 31 30 33 2C 38 38 3A 97 31 31 30 34 |0..1103,88:.1104|
00001200: 2C 32 32 38 3A 97 31 31 30 37 2C 38 35 3A 97 31 |,228:.1107,85:.1|
00001210: 31 31 31 2C 32 32 38 3A 89 39 36 35 00 55 16 BB |111,228:.965.U..|
00001220: 03 8B 55 57 B3 B1 31 A7 99 22 93 54 48 49 53 20 |..UW..1..".THIS |
00001230: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
00001240: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
00001250: 45 21 22 3A 80 00 84 16 C0 03 97 31 31 30 33 2C |E!":.......1103,|
00001260: 34 39 3A 97 31 31 30 34 2C 32 33 30 3A 97 31 31 |49:.1104,230:.11|
00001270: 30 37 2C 34 36 3A 97 31 31 31 31 2C 32 33 30 3A |07,46:.1111,230:|
00001280: 89 39 36 35 00 8C 16 C5 03 9E 55 44 00 9A 16 CA |.965......UD....|
00001290: 03 8D 38 30 30 3A 89 33 30 30 00 B3 16 E8 03 8B |..800:.300......|
000012A0: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
000012B0: 5A B2 30 00 D5 16 E9 03 99 22 93 22 55 43 24 3B |Z.0......"."UC$;|
000012C0: 3A 8C 3A 8B 55 57 B2 30 A7 97 55 59 2C 36 3A 97 |:.:.UW.0..UY,6:.|
000012D0: 55 58 2C 31 34 00 FD 16 F2 03 8F 20 54 48 49 53 |UX,14...... THIS|
000012E0: 20 50 52 4F 47 52 41 4D 20 57 41 53 20 41 44 4A | PROGRAM WAS ADJ|
000012F0: 55 53 54 45 44 20 46 4F 52 20 54 48 45 00 22 17 |USTED FOR THE.".|
00001300: FC 03 8F 20 38 4B 20 50 45 54 20 42 59 20 4A 4F |... 8K PET BY JO|
00001310: 20 41 4E 4E 20 57 49 4C 54 4F 4E 2E 20 49 54 20 | ANN WILTON. IT |
00001320: 49 53 00 4A 17 06 04 8F 20 42 41 53 45 44 20 4F |IS.J.... BASED O|
00001330: 4E 54 48 45 20 50 52 4F 47 52 41 4D 20 4C 49 53 |NTHE PROGRAM LIS|
00001340: 54 45 44 20 49 4E 20 54 48 45 00 75 17 10 04 8F |TED IN THE.u....|
00001350: 20 48 55 4E 54 49 4E 47 54 4F 4E 20 53 45 52 49 | HUNTINGTON SERI|
00001360: 45 53 20 22 4C 49 4D 49 54 53 20 54 4F 20 47 52 |ES "LIMITS TO GR|
00001370: 4F 57 54 48 22 00 84 17 1A 04 8F 20 50 41 43 4B |OWTH"...... PACK|
00001380: 41 47 45 2E 00 AD 17 24 04 8F 20 4C 49 4B 45 20 |AGE....$.. LIKE |
00001390: 54 48 45 20 4F 52 49 47 49 4E 41 4C 20 50 41 43 |THE ORIGINAL PAC|
000013A0: 4B 41 47 45 20 50 52 4F 47 52 41 4D 2C 00 D7 17 |KAGE PROGRAM,...|
000013B0: 2E 04 8F 20 54 48 49 53 20 56 45 52 53 49 4F 4E |... THIS VERSION|
000013C0: 20 49 53 20 44 45 53 49 47 4E 45 44 20 54 4F 20 | IS DESIGNED TO |
000013D0: 42 45 20 55 53 45 44 00 FB 17 38 04 8F 20 57 49 |BE USED...8.. WI|
000013E0: 54 48 49 4E 20 41 20 43 4F 55 52 53 45 20 55 4E |THIN A COURSE UN|
000013F0: 49 54 20 41 4E 44 20 57 49 54 48 00 25 18 42 04 |IT AND WITH.%.B.|
00001400: 8F 20 41 50 50 52 4F 50 52 49 41 54 45 20 50 52 |. APPROPRIATE PR|
00001410: 45 50 41 52 41 54 49 4F 4E 20 41 4E 44 20 46 4F |EPARATION AND FO|
00001420: 4C 4C 4F 57 2D 00 39 18 4C 04 8F 20 55 50 20 45 |LLOW-.9.L.. UP E|
00001430: 58 45 52 43 49 53 45 53 2E 00 5D 18 56 04 55 54 |XERCISES..].V.UT|
00001440: 24 B2 22 20 50 4F 50 55 4C 41 54 49 4F 4E 20 4C |$." POPULATION L|
00001450: 49 4D 49 54 53 22 3A 55 47 24 B2 22 22 00 6D 18 |IMITS":UG$."".m.|
00001460: BA 04 8F 20 52 41 4E 44 4F 4D 49 5A 45 00 7D 18 |... RANDOMIZE.}.|
00001470: C4 04 4B 4B B2 BB 28 54 49 29 AC 31 30 00 98 18 |..KK..(TI).10...|
00001480: CE 04 96 20 A5 41 28 5A 29 B2 53 28 4B 2C 34 29 |... .A(Z).S(K,4)|
00001490: AE 32 AD 31 38 30 AA 31 00 C2 18 D8 04 96 20 A5 |.2.180.1...... .|
000014A0: 42 28 5A 29 B2 28 BD 28 28 31 AB 53 28 4B 2C 35 |B(Z).(.((1.S(K,5|
000014B0: 29 29 AD 32 29 AD 32 AA 2E 35 29 AD 53 28 4B 2C |)).2).2..5).S(K,|
000014C0: 35 29 00 F9 18 E2 04 96 20 A5 43 28 5A 29 B2 31 |5)...... .C(Z).1|
000014D0: 2E 30 32 AA 28 33 39 33 30 AC 5A AB 31 39 35 30 |.02.(3930.Z.1950|
000014E0: AC 5A AE 32 AA 34 36 AC 5A AE 33 AB 2E 33 31 38 |.Z.2.46.Z.3..318|
000014F0: AC 5A AE 34 29 AD 31 45 36 00 29 19 EC 04 96 20 |.Z.4).1E6.).... |
00001500: A5 44 28 5A 29 B2 28 BD 28 AB 46 AC 32 29 AC 28 |.D(Z).(.(.F.2).(|
00001510: 31 AB BA 28 53 28 4B 2C 33 29 29 29 29 AD 32 AA |1..(S(K,3)))).2.|
00001520: BA 28 53 28 4B 2C 33 29 29 00 41 19 F6 04 96 20 |.(S(K,3)).A.... |
00001530: A5 45 28 5A 29 B2 BD 28 31 AB 4D 29 AD 32 AA 2E |.E(Z)..(1.M).2..|
00001540: 35 00 5C 19 00 05 96 20 A5 46 28 5A 29 B2 31 2E |5.\.... .F(Z).1.|
00001550: 30 35 AB 53 28 4B 2C 35 29 AD 32 30 00 6A 19 0A |05.S(K,5).20.j..|
00001560: 05 96 20 A5 47 28 5A 29 B2 31 00 84 19 14 05 96 |.. .G(Z).1......|
00001570: 20 A5 48 28 5A 29 B2 BD 28 AB 53 28 4B 2C 34 29 | .H(Z)..(.S(K,4)|
00001580: AD 36 30 29 00 98 19 1E 05 96 20 A5 49 28 5A 29 |.60)...... .I(Z)|
00001590: B2 2E 33 AA 2E 37 AD 4D 00 BB 19 28 05 96 20 A5 |..3..7.M...(.. .|
000015A0: 4A 28 5A 29 B2 28 BA 28 5A AD 31 30 29 AB 31 29 |J(Z).(.(Z.10).1)|
000015B0: AC 5A AD 31 30 AA 31 2E 30 36 37 00 D6 19 32 05 |.Z.10.1.067...2.|
000015C0: 96 20 A5 4B 28 5A 29 B2 2E 33 AD 53 28 4B 2C 31 |. .K(Z)..3.S(K,1|
000015D0: 29 AE 37 AA 2E 37 00 09 1A 3C 05 96 20 A5 4C 28 |).7..7...<.. .L(|
000015E0: 5A 29 B2 2E 39 30 32 AB 2E 31 30 39 AC 5A AA 2E |Z)..902..109.Z..|
000015F0: 32 37 39 AC 5A AE 32 AB 2E 30 39 37 AC 5A AE 33 |279.Z.2..097.Z.3|
00001600: AA 2E 30 31 32 AC 5A AE 34 00 1C 1A 46 05 96 20 |..012.Z.4...F.. |
00001610: A5 4D 28 5A 29 B2 53 28 4B 2C 32 29 00 38 1A 50 |.M(Z).S(K,2).8.P|
00001620: 05 96 20 A5 52 28 5A 29 B2 B5 28 31 45 33 AC 5A |.. .R(Z)..(1E3.Z|
00001630: AA 2E 35 29 AD 31 45 33 00 6F 1A 5A 05 96 20 A5 |..5).1E3.o.Z.. .|
00001640: 56 28 5A 29 B2 5A AC B4 28 B4 28 5A AB 2E 30 31 |V(Z).Z..(.(Z..01|
00001650: 29 AA 31 29 AA 2E 30 31 AC B4 28 B4 28 5A AB 2E |).1)..01..(.(Z..|
00001660: 30 31 29 AB 31 29 AC B4 28 5A AB 2E 30 31 29 00 |01).1)..(Z..01).|
00001670: 87 1A 64 05 96 20 A5 57 28 5A 29 B2 5A AC B4 28 |..d.. .W(Z).Z..(|
00001680: 31 AA B4 28 5A 29 29 00 AB 1A 6E 05 96 20 A5 58 |1..(Z))...n.. .X|
00001690: 28 5A 29 B2 31 AA 52 28 5A 29 AC 28 31 AB B6 28 |(Z).1.R(Z).(1..(|
000016A0: B4 28 54 AB 54 28 5A 29 29 29 29 00 CD 1A 78 05 |.(T.T(Z))))...x.|
000016B0: 96 20 A5 59 28 5A 29 B2 31 AA 52 28 5A 29 AC B4 |. .Y(Z).1.R(Z)..|
000016C0: 28 31 AA B4 28 54 AB 54 28 5A 29 29 29 00 E5 1A |(1..(T.T(Z)))...|
000016D0: 82 05 96 20 A5 5A 28 5A 29 B2 2E 39 35 AA BB 28 |... .Z(Z)..95..(|
000016E0: 5A 29 AD 31 30 00 F3 1A 87 05 55 48 B2 30 3A 8D |Z).10.....UH.0:.|
000016F0: 38 35 30 00 08 1B D2 05 8F 20 49 4E 49 54 49 41 |850...... INITIA|
00001700: 4C 49 5A 41 54 49 4F 4E 00 26 1B DC 05 87 44 2C |LIZATION.&....D,|
00001710: 46 2C 43 2C 56 2C 45 2C 4A 2C 55 2C 50 2C 4B 2C |F,C,V,E,J,U,P,K,|
00001720: 54 28 36 29 2C 54 00 31 1B E6 05 81 5A B2 31 A4 |T(6),T.1....Z.1.|
00001730: 35 00 42 1B F0 05 87 53 28 4B 2C 5A 29 2C 5A 28 |5.B....S(K,Z),Z(|
00001740: 5A 29 00 4F 1B FA 05 54 28 5A 29 B2 32 30 30 00 |Z).O...T(Z).200.|
00001750: 56 1B 04 06 82 5A 00 62 1B 0E 06 49 B2 A5 4D 28 |V....Z.b...I..M(|
00001760: 30 29 00 70 1B 18 06 47 B2 31 AD A5 41 28 30 29 |0).p...G.1..A(0)|
00001770: 00 8B 1B 22 06 99 3A 99 22 20 53 54 41 4E 44 41 |..."..:." STANDA|
00001780: 52 44 20 52 55 4E 3F 20 20 22 3B 00 A2 1B 2C 06 |RD RUN? ";...,.|
00001790: 55 53 24 B2 22 59 4E 48 22 3A 55 4C B2 31 3A 8D |US$."YNH":UL.1:.|
000017A0: 33 35 00 B5 1B 36 06 8B 55 52 24 B2 22 59 22 20 |35...6..UR$."Y" |
000017B0: A7 31 38 37 30 00 06 1C 54 06 99 22 20 11 57 48 |.1870...T.." .WH|
000017C0: 41 54 20 49 53 20 54 48 45 20 45 4E 44 20 59 45 |AT IS THE END YE|
000017D0: 41 52 20 46 4F 52 22 3A 99 22 20 46 4F 52 20 59 |AR FOR":." FOR Y|
000017E0: 4F 55 52 20 54 45 53 54 3F 20 20 20 20 20 9D 9D |OUR TEST? ..|
000017F0: 9D 9D 22 3B 3A 55 53 24 B2 22 31 32 33 34 35 36 |..";:US$."123456|
00001800: 37 38 39 30 48 22 00 34 1C 5E 06 55 4C B2 34 3A |7890H".4.^.UL.4:|
00001810: 8D 33 35 3A 55 B2 C5 28 55 52 24 29 3A 8B 20 B6 |.35:U..(UR$):. .|
00001820: 28 B5 28 55 AD 32 35 29 29 B3 B1 55 AD 32 35 A7 |(.(U.25))..U.25.|
00001830: 31 36 35 30 00 58 1C 68 06 8B B6 28 55 AB 32 30 |1650.X.h...(U.20|
00001840: 35 30 29 B3 35 30 B0 B6 28 55 AB 32 30 35 30 29 |50).50..(U.2050)|
00001850: B2 35 30 A7 31 36 37 30 00 82 1C 72 06 99 22 20 |.50.1670...r.." |
00001860: 32 30 30 30 3C 3D 59 45 41 52 3C 3D 32 31 30 30 |2000<=YEAR<=2100|
00001870: 20 28 4D 55 4C 54 49 50 4C 45 53 20 4F 46 20 32 | (MULTIPLES OF 2|
00001880: 35 29 00 AA 1C 7C 06 8D 38 33 35 3A 8D 38 36 30 |5)...|..835:.860|
00001890: 3A 99 22 11 11 11 11 11 22 3B 55 50 24 3B 22 91 |:.".....";UP$;".|
000018A0: 91 91 91 22 3A 89 31 36 32 30 00 D7 1C 86 06 99 |...":.1620......|
000018B0: 22 20 56 41 52 49 41 42 4C 45 20 20 20 20 20 20 |" VARIABLE |
000018C0: 20 20 43 48 41 4E 47 45 20 28 50 45 52 43 45 4E | CHANGE (PERCEN|
000018D0: 54 2C 59 45 41 52 29 00 07 1D 90 06 99 22 20 2D |T,YEAR)......" -|
000018E0: 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 20 20 20 20 2D |------- -|
000018F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001900: 2D 2D 2D 2D 22 3A 99 00 13 1D 9A 06 81 58 B2 AB |----":.......X..|
00001910: 31 A4 34 00 1B 1D A4 06 4C B2 31 00 25 1D AE 06 |1.4.....L.1.%...|
00001920: 8D 32 38 33 30 00 36 1D B8 06 8F 50 52 49 4E 54 |.2830.6....PRINT|
00001930: 22 22 2C 22 22 3B 00 70 1D C2 06 55 53 24 B2 22 |"","";.p...US$."|
00001940: 2D 31 32 33 34 35 48 36 37 38 39 30 22 3A 55 4C |-12345H67890":UL|
00001950: B2 34 3A 8D 33 35 3A 51 B2 C5 28 55 52 24 29 3A |.4:.35:Q..(UR$):|
00001960: 99 22 91 91 22 3A 99 A6 32 30 29 22 2C 20 22 3B |."..":..20)", ";|
00001970: 00 81 1D C7 06 8D 33 35 3A 41 B2 C5 28 55 52 24 |......35:A..(UR$|
00001980: 29 00 A7 1D CC 06 8B B6 28 51 AB 35 30 29 AC 4C |).......(Q.50).L|
00001990: B3 31 35 30 B0 B6 28 51 AB 35 30 29 AC 4C B2 31 |.150..(Q.50).L.1|
000019A0: 35 30 A7 31 37 39 30 00 CC 1D D6 06 99 22 20 41 |50.1790......" A|
000019B0: 20 43 48 41 4E 47 45 20 4F 46 20 54 48 49 53 20 | CHANGE OF THIS |
000019C0: 4D 41 47 4E 49 54 55 44 45 20 49 53 00 F3 1D E0 |MAGNITUDE IS....|
000019D0: 06 99 22 20 55 4E 52 45 41 4C 49 53 54 49 43 2E |.." UNREALISTIC.|
000019E0: 20 50 4C 45 41 53 45 20 52 45 43 4F 4E 53 49 44 | PLEASE RECONSID|
000019F0: 45 52 2E 00 27 1E EA 06 8D 38 33 35 3A 8D 38 36 |ER..'....835:.86|
00001A00: 30 3A 99 22 11 11 11 11 11 11 11 11 22 3B 55 50 |0:."........";UP|
00001A10: 24 3A 99 55 50 24 3A 99 55 50 24 3B 22 91 91 91 |$:.UP$:.UP$;"...|
00001A20: 22 3A 89 31 37 31 30 00 31 1E F4 06 89 31 38 36 |":.1710.1....186|
00001A30: 30 00 3F 1E FE 06 8B 51 B2 30 A7 31 38 36 30 00 |0.?....Q.0.1860.|
00001A40: 51 1E 08 07 8B 41 B3 B1 B5 28 41 29 A7 31 38 32 |Q....A...(A).182|
00001A50: 30 00 70 1E 12 07 8B B6 28 41 AB 55 AD 32 AB 39 |0.p.....(A.U.2.9|
00001A60: 38 35 29 B3 55 AD 32 AB 39 38 35 A7 31 38 34 30 |85).U.2.985.1840|
00001A70: 00 A0 1E 1C 07 99 22 20 31 39 37 31 3C 3D 59 45 |......" 1971<=YE|
00001A80: 41 52 3C 3D 22 3B 55 AB 31 3B 22 28 49 4E 54 45 |AR<=";U.1;"(INTE|
00001A90: 47 45 52 53 29 22 3A 8D 38 33 35 3A 8D 38 36 30 |GERS)":.835:.860|
00001AA0: 00 B8 1E 20 07 99 22 11 11 11 11 11 11 11 22 3B |... ..".......";|
00001AB0: 55 50 24 3A 99 55 50 24 00 C8 1E 26 07 99 22 91 |UP$:.UP$...&..".|
00001AC0: 91 22 3A 89 31 37 31 30 00 DA 1E 30 07 54 28 58 |.":.1710...0.T(X|
00001AD0: AA 32 29 B2 41 AB 31 39 37 35 00 EB 1E 3A 07 52 |.2).A.1975...:.R|
00001AE0: 28 58 AA 32 29 B2 51 AD 31 30 30 00 F2 1E 44 07 |(X.2).Q.100...D.|
00001AF0: 82 58 00 FA 1E 4E 07 41 B2 32 00 03 1F 80 07 8D |.X...N.A.2......|
00001B00: 38 35 30 00 2A 1F 8A 07 99 22 11 11 22 3A 99 22 |850.*...."..":."|
00001B10: 20 44 41 54 41 20 46 4F 52 20 54 48 45 20 42 41 | DATA FOR THE BA|
00001B20: 53 45 20 59 45 41 52 22 3A 99 00 34 1F 94 07 89 |SE YEAR":..4....|
00001B30: 33 31 37 30 00 44 1F 9E 07 8F 20 20 47 4F 53 55 |3170.D.... GOSU|
00001B40: 42 38 33 35 00 4E 1F B2 07 8D 31 39 39 30 00 58 |B835.N....1990.X|
00001B50: 1F BC 07 89 32 30 38 30 00 6B 1F C6 07 8D 38 33 |....2080.k....83|
00001B60: 35 3A 55 48 B2 31 3A 8D 38 35 30 00 98 1F D0 07 |5:UH.1:.850.....|
00001B70: 99 22 1D 59 45 41 52 20 20 46 4F 4F 44 20 4E 41 |.".YEAR FOOD NA|
00001B80: 54 20 52 45 53 20 49 4E 44 20 4F 55 54 20 20 50 |T RES IND OUT P|
00001B90: 4F 4C 4C 20 20 50 4F 50 00 CB 1F DA 07 99 22 1D |OLL POP......".|
00001BA0: 2D 2D 2D 2D 20 20 2D 2D 2D 2D 20 2D 2D 2D 2D 2D |---- ---- -----|
00001BB0: 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 20 20 2D 2D 2D 2D |-- ------- ----|
00001BC0: 20 20 2D 2D 2D 22 3A 8D 38 37 35 00 D1 1F E4 07 | ---":.875.....|
00001BD0: 8E 00 00 20 EE 07 99 22 11 20 42 59 20 54 48 45 |... ...". BY THE|
00001BE0: 20 59 45 41 52 22 3B 54 AA 31 39 37 35 3B 22 9D | YEAR";T.1975;".|
00001BF0: 2C 20 50 4F 50 55 4C 41 54 49 4F 4E 20 48 41 53 |, POPULATION HAS|
00001C00: 00 2A 20 F8 07 99 22 11 20 46 41 4C 4C 45 4E 20 |.* ...". FALLEN |
00001C10: 54 4F 20 4C 45 53 53 20 54 48 41 4E 20 48 41 4C |TO LESS THAN HAL|
00001C20: 46 20 54 48 45 20 31 39 37 30 00 56 20 02 08 99 |F THE 1970.V ...|
00001C30: 22 11 20 4C 45 56 45 4C 2C 20 49 4E 44 49 43 41 |". LEVEL, INDICA|
00001C40: 54 49 4E 47 20 41 20 57 4F 52 4C 44 20 43 4F 4C |TING A WORLD COL|
00001C50: 4C 41 50 53 45 2E 00 70 20 0C 08 8F 20 20 20 47 |LAPSE..p ... G|
00001C60: 4F 53 55 42 38 33 35 3A 47 4F 53 55 42 38 35 30 |OSUB835:GOSUB850|
00001C70: 00 7A 20 16 08 89 33 30 35 30 00 90 20 20 08 8F |.z ...3050.. ..|
00001C80: 20 4D 41 4A 4F 52 20 54 49 4D 45 20 4C 4F 4F 50 | MAJOR TIME LOOP|
00001C90: 00 BA 20 2A 08 53 28 4B 2C 33 29 B2 A5 56 28 43 |.. *.S(K,3)..V(C|
00001CA0: AC A5 4D 28 30 29 AC 53 28 4B 2C 35 29 AC A5 5A |..M(0).S(K,5)..Z|
00001CB0: 28 33 29 AD 31 36 45 31 31 29 00 CE 20 34 08 8B |(3).16E11).. 4..|
00001CC0: 53 28 4B 2C 33 29 B3 32 30 A7 32 31 32 30 00 DC |S(K,3).20.2120..|
00001CD0: 20 3E 08 53 28 4B 2C 33 29 B2 32 30 00 F2 20 48 | >.S(K,3).20.. H|
00001CE0: 08 4D B2 53 28 4B 2C 33 29 AD 53 28 4B 2C 35 29 |.M.S(K,3).S(K,5)|
00001CF0: AD 49 00 00 21 52 08 45 B2 45 AC A5 58 28 31 29 |.I..!R.E.E..X(1)|
00001D00: 00 0E 21 5C 08 4A B2 4A AC A5 58 28 32 29 00 32 |..!\.J.J..X(2).2|
00001D10: 21 66 08 42 B2 A5 57 28 45 AC A5 45 28 30 29 AC |!f.B..W(E..E(0).|
00001D20: A5 46 28 30 29 AC A5 47 28 30 29 AC A5 48 28 30 |.F(0)..G(0)..H(0|
00001D30: 29 29 00 60 21 70 08 44 B2 A5 56 28 4A AC A5 49 |)).`!p.D..V(J..I|
00001D40: 28 30 29 AC A5 4A 28 53 28 4B 2C 34 29 29 AC A5 |(0)..J(S(K,4))..|
00001D50: 4B 28 30 29 AC A5 4C 28 53 28 4B 2C 35 29 29 29 |K(0)..L(S(K,5)))|
00001D60: 00 74 21 7A 08 8B 20 A5 49 28 30 29 B3 31 30 A7 |.t!z.. .I(0).10.|
00001D70: 32 31 39 30 00 89 21 84 08 44 B2 A5 56 28 44 AC |2190..!..D..V(D.|
00001D80: 31 30 AD A5 49 28 30 29 29 00 97 21 8E 08 8B 44 |10..I(0))..!...D|
00001D90: B3 31 A7 32 32 31 30 00 9F 21 98 08 44 B2 31 00 |.1.2210..!..D.1.|
00001DA0: BD 21 A2 08 53 28 4B 2C 35 29 B2 A5 56 28 53 28 |.!..S(K,5)..V(S(|
00001DB0: 4B 2C 35 29 AC 28 42 AB 44 AA 31 29 29 00 CC 21 |K,5).(B.D.1))..!|
00001DC0: AC 08 53 B2 47 AC 53 28 4B 2C 33 29 00 DA 21 B6 |..S.G.S(K,3)..!.|
00001DD0: 08 47 B2 47 AC A5 58 28 36 29 00 ED 21 C0 08 57 |.G.G..X(6)..!..W|
00001DE0: B2 53 28 4B 2C 34 29 AD A5 41 28 30 29 00 07 22 |.S(K,4)..A(0).."|
00001DF0: CA 08 53 28 4B 2C 34 29 B2 A5 56 28 53 28 4B 2C |..S(K,4)..V(S(K,|
00001E00: 34 29 AA 53 AB 57 29 00 20 22 D4 08 4E B2 A5 59 |4).S.W). "..N..Y|
00001E10: 28 34 29 AC 53 28 4B 2C 33 29 AD 49 AD 32 35 30 |(4).S(K,3).I.250|
00001E20: 00 38 22 DE 08 53 28 4B 2C 32 29 B2 A5 57 28 53 |.8"..S(K,2)..W(S|
00001E30: 28 4B 2C 32 29 AB 4E 29 00 44 22 E8 08 46 B2 46 |(K,2).N).D"..F.F|
00001E40: AA 2E 30 31 00 52 22 F2 08 56 B2 56 AC A5 58 28 |..01.R"..V.V..X(|
00001E50: 35 29 00 66 22 FC 08 43 B2 43 AC 28 31 AA A5 4D |5).f"..C.C.(1..M|
00001E60: 28 30 29 AC 56 29 00 A2 22 06 09 53 28 4B 2C 31 |(0).V).."..S(K,1|
00001E70: 29 B2 A5 56 28 A5 59 28 33 29 AC A5 42 28 30 29 |)..V(.Y(3)..B(0)|
00001E80: AC A5 43 28 53 28 4B 2C 34 29 29 AC A5 44 28 30 |..C(S(K,4))..D(0|
00001E90: 29 AC 28 31 AA A5 44 28 30 29 29 AC A5 5A 28 31 |).(1..D(0))..Z(1|
00001EA0: 29 29 00 B8 22 10 09 53 28 4B 2C 31 29 B2 53 28 |)).."..S(K,1).S(|
00001EB0: 4B 2C 31 29 AC 2E 37 35 00 CB 22 1A 09 8B 53 28 |K,1)..75.."...S(|
00001EC0: 4B 2C 31 29 B3 32 A7 32 33 35 30 00 D8 22 24 09 |K,1).2.2350.."$.|
00001ED0: 53 28 4B 2C 31 29 B2 32 00 EC 22 2E 09 8B 53 28 |S(K,1).2.."...S(|
00001EE0: 4B 2C 35 29 B3 2E 35 A7 32 30 33 30 00 05 23 38 |K,5)..5.2030..#8|
00001EF0: 09 8B B5 28 B6 28 54 AD 35 29 29 B3 B1 54 AD 35 |...(.(T.5))..T.5|
00001F00: A7 33 30 32 30 00 1D 23 42 09 8B B5 28 54 AD 31 |.3020..#B...(T.1|
00001F10: 30 29 B3 B1 54 AD 31 30 A7 32 34 36 30 00 2B 23 |0)..T.10.2460.+#|
00001F20: 4C 09 8B 4B B2 36 A7 32 34 33 30 00 35 23 56 09 |L..K.6.2430.5#V.|
00001F30: 4B B2 4B AA 31 00 40 23 60 09 81 5A B2 31 A4 35 |K.K.1.@#`..Z.1.5|
00001F40: 00 54 23 6A 09 53 28 4B 2C 5A 29 B2 53 28 4B AB |.T#j.S(K,Z).S(K.|
00001F50: 31 2C 5A 29 00 5B 23 74 09 82 5A 00 73 23 7E 09 |1,Z).[#t..Z.s#~.|
00001F60: 8B 54 AA 31 39 37 35 B2 32 30 35 35 A7 20 8D 31 |.T.1975.2055. .1|
00001F70: 39 39 30 00 84 23 83 09 99 54 AA 31 39 37 35 3B |990..#...T.1975;|
00001F80: A3 36 29 3B 00 92 23 88 09 8B 41 B2 32 A7 33 31 |.6);..#...A.2.31|
00001F90: 31 30 00 A6 23 92 09 8F 20 47 52 41 50 48 20 52 |10..#... GRAPH R|
00001FA0: 4F 55 54 49 4E 45 00 B4 23 9C 09 8B 41 B2 32 A7 |OUTINE..#...A.2.|
00001FB0: 33 30 32 30 00 C1 23 A6 09 4C 28 31 31 29 B2 36 |3020..#..L(11).6|
00001FC0: 31 00 CC 23 B0 09 81 5A B2 31 A4 35 00 E6 23 BA |1..#...Z.1.5..#.|
00001FD0: 09 4C 28 5A 29 B2 B5 28 53 28 4B 2C 5A 29 AC 5A |.L(Z)..(S(K,Z).Z|
00001FE0: 28 5A 29 AA 2E 35 00 FA 23 C4 09 4C 28 5A AA 35 |(Z)..5..#..L(Z.5|
00001FF0: 29 B2 28 5A AB 31 29 AC 31 35 00 14 24 CE 09 8B |).(Z.1).15..$...|
00002000: 4C 28 5A 29 B3 36 30 B0 4C 28 5A 29 B2 36 30 A7 |L(Z).60.L(Z).60.|
00002010: 32 35 34 30 00 23 24 D8 09 4C 28 5A 29 B2 4C 28 |2540.#$..L(Z).L(|
00002020: 31 31 29 00 35 24 E2 09 4C 28 31 31 29 B2 4C 28 |11).5$..L(11).L(|
00002030: 31 31 29 AA 31 00 3C 24 EC 09 82 5A 00 44 24 F6 |11).1.<$...Z.D$.|
00002040: 09 4C B2 30 00 4E 24 00 0A 88 58 B2 31 31 00 5A |.L.0.N$...X.11.Z|
00002050: 24 0A 0A 81 5A B2 31 A4 31 30 00 6E 24 14 0A 8B |$...Z.1.10.n$...|
00002060: 4C 28 5A 29 B1 4C 28 58 29 A7 32 36 36 30 00 82 |L(Z).L(X).2660..|
00002070: 24 1E 0A 8B 4C 28 5A 29 B2 4C 28 58 29 A7 32 36 |$...L(Z).L(X).26|
00002080: 33 30 00 8A 24 28 0A 58 B2 5A 00 92 24 32 0A 51 |30..$(.X.Z..$2.Q|
00002090: B2 30 00 9C 24 3C 0A 89 32 36 36 30 00 B5 24 46 |.0..$<..2660..$F|
000020A0: 0A 4C 28 5A 29 B2 4C 28 5A 29 AA 31 30 30 AC B5 |.L(Z).L(Z).100..|
000020B0: 28 5A AD 36 29 00 C3 24 50 0A 8B 5A B1 35 A7 32 |(Z.6)..$P..Z.5.2|
000020C0: 36 37 30 00 D0 24 5A 0A 51 B2 2E 31 AC 51 AA 5A |670..$Z.Q..1.Q.Z|
000020D0: 00 D7 24 64 0A 82 5A 00 E6 24 6E 0A 8B 58 B2 31 |..$d..Z..$n..X.1|
000020E0: 31 A7 33 30 30 30 00 FE 24 78 0A 8B 54 AD 32 35 |1.3000..$x..T.25|
000020F0: B3 B1 B5 28 54 AD 32 35 29 A7 32 37 33 30 00 08 |...(T.25).2730..|
00002100: 25 82 0A 4C B2 4C AA 31 00 1B 25 8C 0A 8B 4C B2 |%..L.L.1..%...L.|
00002110: 4C 28 58 29 AA 31 A7 32 36 37 30 00 25 25 96 0A |L(X).1.2670.%%..|
00002120: 99 22 2D 22 3B 00 2F 25 A0 0A 89 32 36 39 30 00 |."-";./%...2690.|
00002130: 3E 25 AA 0A 99 A3 4C 28 58 29 AA 36 29 3B 00 4B |>%....L(X).6);.K|
00002140: 25 B4 0A 4C 28 58 29 B2 31 30 30 00 59 25 BE 0A |%..L(X).100.Y%..|
00002150: 8B 51 B2 30 A7 32 38 31 30 00 63 25 C8 0A 99 22 |.Q.0.2810.c%..."|
00002160: 2A 22 3B 00 76 25 D2 0A 4C 28 B5 28 51 AA 2E 35 |*";.v%..L(.(Q..5|
00002170: 29 29 B2 31 30 30 00 8B 25 DC 0A 51 B2 31 30 AC |)).100..%..Q.10.|
00002180: 28 51 AB B5 28 51 AA 2E 35 29 29 00 99 25 E6 0A |(Q..(Q..5))..%..|
00002190: 8B 51 B1 31 A7 32 37 37 30 00 A3 25 F0 0A 89 32 |.Q.1.2770..%...2|
000021A0: 35 36 30 00 AD 25 FA 0A 8D 32 38 37 30 00 B7 25 |560..%...2870..%|
000021B0: 04 0B 89 32 35 36 30 00 D1 25 0E 0B 99 55 50 24 |...2560..%...UP$|
000021C0: 3A 99 22 91 22 3B 3A 8B 58 B1 AB 31 A7 32 38 35 |:.".";:.X..1.285|
000021D0: 30 00 FE 25 18 0B 99 22 91 20 42 49 52 54 48 20 |0..%...". BIRTH |
000021E0: 52 41 54 45 20 20 20 20 20 20 20 20 20 20 20 20 |RATE |
000021F0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 0D | .........";..|
00002200: 26 22 0B 8B 58 B3 B1 30 A7 32 38 37 30 00 3A 26 |&"..X..0.2870.:&|
00002210: 2C 0B 99 22 91 20 44 45 41 54 48 20 52 41 54 45 |,..". DEATH RATE|
00002220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D | .|
00002230: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 49 26 36 0B 8B |........";.I&6..|
00002240: 58 B3 B1 31 A7 32 38 39 30 00 76 26 40 0B 99 22 |X..1.2890.v&@.."|
00002250: 91 20 46 4F 4F 44 20 20 20 20 20 20 20 20 20 20 |. FOOD |
00002260: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
00002270: 9D 9D 9D 9D 22 3B 00 85 26 4A 0B 8B 58 B3 B1 32 |....";..&J..X..2|
00002280: A7 32 39 31 30 00 B2 26 54 0B 99 22 91 20 52 45 |.2910..&T..". RE|
00002290: 53 4F 55 52 43 45 20 55 53 41 47 45 20 20 20 20 |SOURCE USAGE |
000022A0: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D | .........|
000022B0: 22 3B 00 C1 26 5E 0B 8B 58 B3 B1 33 A7 32 39 33 |";..&^..X..3.293|
000022C0: 30 00 EE 26 68 0B 99 22 91 20 49 4E 44 27 4C 20 |0..&h..". IND'L |
000022D0: 4F 55 54 50 55 54 20 20 20 20 20 20 20 20 20 20 |OUTPUT |
000022E0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 FD | .........";..|
000022F0: 26 72 0B 8B 58 B3 B1 34 A7 32 39 35 30 00 2A 27 |&r..X..4.2950.*'|
00002300: 7C 0B 99 22 91 20 50 4F 4C 4C 55 54 49 4F 4E 20 ||..". POLLUTION |
00002310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D | .|
00002320: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 39 27 86 0B 8B |........";.9'...|
00002330: 58 B3 B1 35 A7 32 39 37 30 00 44 27 90 0B 99 22 |X..5.2970.D'..."|
00002340: 20 50 22 3B 00 53 27 9A 0B 8B 58 B3 B1 36 A7 32 | P";.S'...X..6.2|
00002350: 39 39 30 00 5D 27 A4 0B 99 22 49 22 3B 00 63 27 |990.]'..."I";.c'|
00002360: AE 0B 8E 00 6E 27 B8 0B 8F 50 52 49 4E 54 00 74 |....n'...PRINT.t|
00002370: 27 C2 0B 99 00 7E 27 CC 0B 54 B2 54 AA 31 00 91 |'....~'..T.T.1..|
00002380: 27 D6 0B 8B 54 B3 55 AB 31 39 37 34 A7 32 30 39 |'...T.U.1974.209|
00002390: 30 00 9B 27 E0 0B 54 B2 54 AB 31 00 A6 27 EA 0B |0..'..T.T.1..'..|
000023A0: 8F 50 52 49 4E 54 00 AC 27 F4 0B 99 00 BA 27 FE |.PRINT..'.....'.|
000023B0: 0B 8B 41 B3 33 A7 33 31 36 30 00 C4 27 08 0C 8D |..A.3.3160..'...|
000023C0: 31 39 39 30 00 D7 27 12 0C 81 4B B2 31 A4 B5 28 |1990..'...K.1..(|
000023D0: 54 AD 32 35 AA 31 29 00 E7 27 1C 0C 99 31 39 35 |T.25.1)..'...195|
000023E0: 30 AA 32 35 AC 4B 3B 00 07 28 26 0C 99 A3 36 29 |0.25.K;..(&...6)|
000023F0: 3B B5 28 53 28 4B 2C 31 29 AC 32 45 33 AA 2E 35 |;.(S(K,1).2E3..5|
00002400: 29 3B A3 31 32 29 3B 00 30 28 30 0C 99 A5 52 28 |);.12);.0(0...R(|
00002410: 53 28 4B 2C 32 29 29 AC 31 30 30 3B A3 32 30 29 |S(K,2)).100;.20)|
00002420: 3B A5 52 28 53 28 4B 2C 33 29 AC 31 2E 36 29 3B |;.R(S(K,3).1.6);|
00002430: 00 49 28 3A 0C 99 A3 32 37 29 3B A5 52 28 53 28 |.I(:...27);.R(S(|
00002440: 4B 2C 34 29 29 AC 31 30 30 00 68 28 3B 0C 99 22 |K,4)).100.h(;.."|
00002450: 91 22 A3 33 33 29 A5 52 28 53 28 4B 2C 35 29 AC |.".33).R(S(K,5).|
00002460: 50 29 22 20 20 20 20 22 00 76 28 44 0C 8B 41 B2 |P)" ".v(D..A.|
00002470: 32 A7 33 30 32 30 00 7D 28 4E 0C 82 4B 00 8B 28 |2.3020.}(N..K..(|
00002480: 58 0C 8D 38 33 35 3A 8D 38 35 30 00 93 28 62 0C |X..835:.850..(b.|
00002490: 99 3A 99 00 BC 28 6C 0C 99 22 11 20 54 48 45 20 |.:...(l..". THE |
000024A0: 57 4F 52 4C 44 20 49 4E 20 54 48 45 20 59 45 41 |WORLD IN THE YEA|
000024B0: 52 22 3B 54 AA 31 39 37 35 22 2D 22 00 EE 28 76 |R";T.1975"-"..(v|
000024C0: 0C 99 22 11 20 54 48 45 20 50 4F 50 55 4C 41 54 |..". THE POPULAT|
000024D0: 49 4F 4E 20 49 53 22 3B A5 52 28 53 28 4B 2C 35 |ION IS";.R(S(K,5|
000024E0: 29 AC 50 29 3B 22 42 49 4C 4C 49 4F 4E 2C 00 0C |).P);"BILLION,..|
000024F0: 29 80 0C 8B 53 28 4B 2C 34 29 B3 31 30 B0 53 28 |)...S(K,4).10.S(|
00002500: 4B 2C 34 29 B2 31 30 A7 33 32 33 30 00 3D 29 8A |K,4).10.3230.=).|
00002510: 0C 99 22 11 20 50 4F 4C 4C 55 54 49 4F 4E 20 52 |..". POLLUTION R|
00002520: 4F 53 45 20 54 4F 22 3B A5 52 28 53 28 4B 2C 34 |OSE TO";.R(S(K,4|
00002530: 29 29 3B 22 54 49 4D FF 53 20 49 54 FF 00 80 29 |));"TIM.S IT...)|
00002540: FF 0F 99 00 FF FF FF FF 8F FF FF FF FF FF FF FF |................|
00002550: 20 FF FF FF FF FF 08 FF FF FF FF FF FF FF FF FF | ...............|
00002560: 00 20 FF FF FF FF FF FF 22 29 FF FF FF FF FF AF |. ......")......|
00002570: FF FF FF 89 FF 81 00 0C FF 02 A2 FF FF FF 02 FF |................|
00002580: 02 08 FF FF 6D C0 FF 89 FF 82 FA FB FF F9 99 FF |....m...........|
00002590: FF FF FF FF 88 FF FF FF FF FF F9 FF FF FF 19 58 |...............X|
000025A0: FF FF FF 87 07 47 FF FF FF 99 FF FF 8C 79 FF 99 |.....G.......y..|
000025B0: FF C9 FF 99 AC 38 45 34 AD 53 28 4B 2C 35 29 AA |.....8E4.S(K,5).|
000025C0: 2E 35 29 AD 31 30 30 3B 00 DC 29 BC 0C 99 22 2F |.5).100;..)..."/|
000025D0: 50 45 52 53 4F 4E 2F 59 45 41 52 22 00 0F 2A C6 |PERSON/YEAR"..*.|
000025E0: 0C 99 22 11 20 41 4E 44 20 54 48 45 20 44 45 41 |..". AND THE DEA|
000025F0: 54 48 20 52 41 54 45 20 49 53 22 B5 28 44 AC 31 |TH RATE IS".(D.1|
00002600: 45 33 AA 2E 35 29 3B 22 2F 31 30 30 30 2E 22 00 |E3..5);"/1000.".|
00002610: 15 2A D0 0C 99 00 1B 2A DA 0C 99 00 2A 2A E4 0C |.*.....*....**..|
00002620: 8B 54 B2 AB 35 A7 31 39 35 30 00 5C 2A EE 0C 99 |.T..5.1950.\*...|
00002630: 22 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 4E |" DO YOU WANT AN|
00002640: 4F 54 48 45 52 20 52 55 4E 3F 20 20 22 3B 3A 55 |OTHER RUN? ";:U|
00002650: 53 24 B2 22 59 4E 22 3A 55 4C B2 31 00 70 2A F8 |S$."YN":UL.1.p*.|
00002660: 0C 55 48 B2 31 3A 8D 33 35 3A 9C 3A 8D 39 30 30 |.UH.1:.35:.:.900|
00002670: 00 82 2A 02 0D 8B 55 52 24 B2 22 59 22 A7 31 30 |..*...UR$."Y".10|
00002680: 31 30 00 8B 2A 16 0D 89 33 30 30 00 BD 2A 20 0D |10..*...300..* .|
00002690: 83 2E 30 31 35 2C 30 2C 31 36 45 31 31 2C 2E 30 |..015,0,16E11,.0|
000026A0: 34 2C 2E 30 33 35 2C 2E 30 31 35 2C 32 31 30 30 |4,.035,.015,2100|
000026B0: 2C 33 2E 36 2C 31 2C 32 30 30 2C 2D 35 00 D9 2A |,3.6,1,200,-5..*|
000026C0: 2A 0D 83 31 2C 33 30 2C 31 2C 36 30 2C 31 2C 36 |*..1,30,1,60,1,6|
000026D0: 2C 31 2C 33 2C 31 2C 32 30 00 DF 2A 34 0D 80 00 |,1,3,1,20..*4...|
000026E0: 00 00 |.. |
.......910.6...."X..........X` ......L4.
X.1........X` .A...."X.G......X` ......L
X.X.U......X` ......"XHHH.H.HHHHHHH.H
.HX` ......"HHHHHHH` ......" .H...X.
. ..... .H...P...JP.` .U....".. .H....
.P.....JP.` ...#..UW.0..UU,15...(..UC,0
:.UN,0:UR$."":UI$."":.UL.0.UL.39.$.-..UI
$:.UI$."".45.Y.2.UA.F(UI$):UR.C(UR$):.UA
.13.UR.0..UC,1:." .";:.70...7..UA.20...(
UR.0).45:UR$.H(UR$,UR.1):.". ..";:.45..
.<..UR.UL.45...A..95:UR$.UR$.UI$:.UI$;:.
45.S.F..UR$.UX$..". ";:.145...K..UI.UR.1
..1:.J(UR$,UI,1)." ".....P.UR$.H(UR$,UI)
:.:...._..C(US$).0.110.J.D..UI.1.C(US$):
.UI$..J(US$,UI,1)..:UI$."".P.I...].N..UA
.46...P.S..UA.32.UR..0.....X..UA.47.UA.5
8.....}..UA.64.UA.91........UA.193.UA.21
8.UI$."":..O....B(UT).UU%.UI$.G(UA.128).
U..........170:.251,0:.252,US.256:.253,0
:.254,UF:.UV.....UZ.1:UV%.B(UT):.300.B..
.UZ.0:US$.UJ$:UG$.UK$:UT$.UL$:UP.UJ:UL.U
K:.".";:.UW.0..UY,6:.UX,14... ..UT,UV%:.
251,0:.252,UF:.253,0:.254,US.256:.UV:.UW
.0..UU,15.K....U1,U1%:.U2,U2%:.U3,U3%.1:
.U4,U4%:.35.....U1%.B(U1):U2%.B(U2):U3%.
B(U3):U4%.B(U4).!...UJ$.US$:UK$.UG$:UL$.
UT$:UJ.UP:UK.UL:..F.,.."..":.UT,UU%:.UW.
0..UY,12:.UX,6.F.1.." M E
N U."...6.." -----------------------
---------"...;..". 1. BEGIN POPU
LATION LIMITS...@..".. 2. STUDEN
T INSTRUCTIONS"...E..".. 3. TEAC
HER INSTRUCTIONS".,.J..".. 4. QU
IT.".X.O.." -------------------------
-------"...T..".. PRESS A NUMBER K
EY (1-4) ";...Y.UL.1:US$."1234"...[..35:
US$."".C.^..E(UR$).1000,400,500,390.L.C.
.300...R..UZ.1..UP%:.155...W........UE:.
"..":.UW.0..UY,6:.UX,14:.UU,14......:..;
....".":.UT,UL%:.UW.0..UY,11:.UX,12.Z...
UT$." POPULATION LIMITS":UH.1:UP.0:UG$."
STUDENT INST":.850......".. THIS PROGR
AM IS DESIGNED TO SIMULATE.".V...." POPU
LATION-RELATED GROWTH LIMITS........" YO
U HAVE THE CHOICE OF SELECTING..,...." T
HE STANDARD SET OF GROWTH RATES FOR..Z..
.." BIRTH RATES, DEATH RATES, INDUSTRIAL
."......" OUTPUT AND POLLUTION, OR YOU M
AY ."......" CHOOSE TO PROVIDE YOUR
OWN FIGURES..I....835:.850:.".."......"
IN THIS CASE YOU MUST SELECT FIRST THE.
.'.B.." GROWTH PERCENTAGE AND THEN THE Y
EAR IT..A.G.." WILL BE ATTAINED.".J....8
35.^....UZ.1..UP%:.155.D..........".":.U
T,UL%:.UW.0..UY,2:.UX,10.G...UT$." POPUL
ATION LIMITS":UH.1:UP.0:UG$."TEACHER INS
T":.850......".. TO THE BEST OF OUR
KNOWLEDGE,."......" THIS PROGRAM IS
IN THE PUBLIC.".J...." DOMAIN. IF T
HIS IS NOT TRUE,.".H...." PLEASE CON
TACT:.."......" COMMODORE BUSINESS
MACHINES"......" .3370 PHARMACY
AVE..Z...." .AGINCOURT, ONTARI
O"......" .CANADA, M1W 2K4"....
.." .(416) 499-4292".0...UH.1:.
835:.850.^...." ..PROGRAM NAME: POP
ULATION LIMITS.Y...." .WRITTEN BY
:......" .REVISED BY : C. FOSTER".
L...." ..THIS PROGRAM WILL RUN ON A
NY........" BASIC 2.0 PET COMPUT
ER......." BASIC 4.0 PET COMPUTE
R..<...." 8O...O.....Z."...F....
.............O....... .. ...............
..../... .../(......55...S........UC$"..
..BEFORE RUNNING THIS PROGRAM ON AN 8032
...A.." LOAD THE 'CBM 4032' PROGRAM
.............":.... .."....";:.UT,UU%:.U
W.0..UY,1:.UX,14...!..I.1.38:.". .";:..F
."..I.1.22:."... .";:..^.#..I.1.37:."...
.";:..V.$..I.1.22:."... .";:....%.."...
................... ....&.."...........
. . .....'.."........... . ...... O M
M O D O R E...(.."............ ....)..
"...................EDUCATIONAL..8.*..".
................SOFTWARE.V.+..".........
.........1983....,..H(UD$,24);".........
.PRESS SPACE BAR OR WAIT."UC$:UI.0...-..
UI$:.UI$.." ".UI.UI.1:.UI.250.813.B....3
00...C..UN,0:.H(UD$,24);".......PRESS SP
ACE BAR TO CONTINUE."...H..UI$:.UI$.." "
.840...M...L.R.UP.UP.1:."."H(UT$.UP$,21)
;I(UP$.UG$.D(UP),18).{.W.." ------------
--------------------------"...\..UH.0..H
(UD$,24);H(UP$,7);"HELP - PRESS H <RET
URN> ".J.A.UH.0:."..":....K..H(UD$,24
);" ONE MOMENT PLEASE... "
:."...."...N...^...UX$."H":US.32768:U1.1
96:U2.197:U3.198:U4.216:UC.167:UB.1024:U
D.1084:UE.1105.....UT.59468:UU%.12:UL%.1
4:UP%.1158:UN.158:.50003,0:UW.B(50003):U
F.B(53)......UW.0.US.1024:U1.209:U2.210:
U3.211:U4.214:UC.204:UB.2048:UX.53280:UD
.2064.?....UW.0.UT.53272:UU%.21:UL%.23:U
P%.2151:UN.198:UY.53281:UU.2199:UE.2087.
K...UC$.G(155):UV.1214:.UW.0.UF.196:UV.2
238.....UD$.".........................":
UP$."
"......L(11),Z(5),T(6),R(6),S(6,5)...
.........900:.".":." ":. SHIFTED SPACE..
....B(US.40)..96.700.B....(.(0).(.(.(0))
.0).65536).500.935.R....UC$"...THIS MACH
INE DOES NOT HAVE ENOUGH."......"MEMORY
TO RUN THIS PROGRAM !":......."."UC$:.UW
.0.965.K....UF.60.UF.108.UF.124.950.....
.52,0:.53,UF.4:.:.900......UW.160..1103,
88:.1104,228:.1107,85:.1111,228:.965.U..
..UW..1..".THIS PGM WILL NOT WORK ON THI
S MACHINE!":.......1103,49:.1104,230:.11
07,46:.1111,230:.965...E..UD...J..800:.3
00......UZ.1..UP%:.UP%:UZ.0.U...."."UC$;
:.:.UW.0..UY,6:.UX,14...... THIS PROGRAM
WAS ADJUSTED FOR THE.".... 8K PET BY JO
ANN WILTON. IT IS.J.... BASED ONTHE PRO
GRAM LISTED IN THE.U.... HUNTINGTON SERI
ES "LIMITS TO GROWTH"...... PACKAGE....$
.. LIKE THE ORIGINAL PACKAGE PROGRAM,.W.
... THIS VERSION IS DESIGNED TO BE USED.
..8.. WITHIN A COURSE UNIT AND WITH.%.B.
. APPROPRIATE PREPARATION AND FOLLOW-.9.
L.. UP EXERCISES..].V.UT$." POPULATION L
IMITS":UG$."".M.... RANDOMIZE.}.D.KK..(T
I).10...N.. .A(Z).S(K,4).2.180.1.B.X.. .
B(Z).(.((1.S(K,5)).2).2..5).S(K,5)......
.C(Z).1.02.(3930.Z.1950.Z.2.46.Z.3..318
.Z.4).1E6.).... .D(Z).(.(.F.2).(1..(S(K,
3)))).2..(S(K,3)).A.... .E(Z)..(1.M).2..
5.\.... .F(Z).1.05.S(K,5).20.J.... .G(Z)
.1...... .H(Z)..(.S(K,4).60)...... .I(Z)
..3..7.M...(.. .J(Z).(.(Z.10).1).Z.10.1.
067.V.2.. .K(Z)..3.S(K,1).7..7...<.. .L(
Z)..902..109.Z..279.Z.2..097.Z.3..012.Z.
4...F.. .M(Z).S(K,2).8.P.. .R(Z)..(1E3.Z
..5).1E3.O.Z.. .V(Z).Z..(.(Z..01).1)..01
..(.(Z..01).1)..(Z..01)...D.. .W(Z).Z..(
1..(Z))...N.. .X(Z).1.R(Z).(1..(.(T.T(Z)
))).M.X.. .Y(Z).1.R(Z)..(1..(T.T(Z)))...
... .Z(Z)..95..(Z).10.....UH.0:.850...R.
. INITIALIZATION.&....D,F,C,V,E,J,U,P,K,
T(6),T.1....Z.1.5.B....S(K,Z),Z(Z).O...T
(Z).200.V....Z.B...I..M(0).P...G.1..A(0)
..."..:." STANDARD RUN? ";...,.US$."YNH
":UL.1:.35...6..UR$."Y" .1870...T.." .WH
AT IS THE END YEAR FOR":." FOR YOUR TEST
? ....";:US$."1234567890H".4.^.UL.4:
.35:U.E(UR$):. .(.(U.25))..U.25.1650.X.H
...(U.2050).50..(U.2050).50.1670...R.."
2000<=YEAR<=2100 (MULTIPLES OF 25)...|..
835:.860:.".....";UP$;"....":.1620.W....
" VARIABLE CHANGE (PERCENT,YEAR).
....." -------- -----------------
----":.......X..1.4.....L.1.%....2830.6.
...PRINT"","";.P.B.US$."-12345H67890":UL
.4:.35:Q.E(UR$):."..":..20)", ";...G..35
:A.E(UR$)...L...(Q.50).L.150..(Q.50).L.1
50.1790.L.V.." A CHANGE OF THIS MAGNITUD
E IS......" UNREALISTIC. PLEASE RECONSID
ER..'....835:.860:."........";UP$:.UP$:.
UP$;"...":.1710.1....1860.?....Q.0.1860.
Q....A...(A).1820.P.....(A.U.2.985).U.2.
985.1840. ...." 1971<=YEAR<=";U.1;"(INTE
GERS)":.835:.860... ..".......";UP$:.UP$
.H.&.."..":.1710.Z.0.T(X.2).A.1975...:.R
(X.2).Q.100...D..X...N.A.2......850.*...
."..":." DATA FOR THE BASE YEAR":..4....
3170.D.... GOSUB835.N....1990.X....2080
.K.F..835:UH.1:.850...P..".YEAR FOOD NA
T RES IND OUT POLL POP.K.Z..".---- --
-- ------- ------- ---- ---":.875.Q...
... ...". BY THE YEAR";T.1975;"., POPULA
TION HAS.* ...". FALLEN TO LESS THAN HAL
F THE 1970.V ...". LEVEL, INDICATING A W
ORLD COLLAPSE..P ... GOSUB835:GOSUB850
.Z ...3050.. .. MAJOR TIME LOOP.. *.S(K
,3)..V(C..M(0).S(K,5)..Z(3).16E11).N 4..
S(K,3).20.2120.. >.S(K,3).20.. H.M.S(K,3
).S(K,5).I..!R.E.E..X(1)..!\.J.J..X(2).2
!F.B..W(E..E(0)..F(0)..G(0)..H(0)).`!P.D
..V(J..I(0)..J(S(K,4))..K(0)..L(S(K,5)))
.T!Z.. .I(0).10.2190..!..D..V(D.10..I(0)
)..!...D.1.2210..!..D.1..!..S(K,5)..V(S(
K,5).(B.D.1)).L!..S.G.S(K,3).Z!..G.G..X(
6)..!..W.S(K,4)..A(0).."J.S(K,4)..V(S(K,
4).S.W). "T.N..Y(4).S(K,3).I.250.8"..S(K
,2)..W(S(K,2).N).D"..F.F..01.R"..V.V..X(
5).F"..C.C.(1..M(0).V).."..S(K,1)..V(.Y(
3)..B(0)..C(S(K,4))..D(0).(1..D(0))..Z(1
)).."..S(K,1).S(K,1)..75.K"...S(K,1).2.2
350.X"$.S(K,1).2.."...S(K,5)..5.2030..#8
...(.(T.5))..T.5.3020..#B...(T.10)..T.10
.2460.+#L..K.6.2430.5#V.K.K.1.@#`..Z.1.5
.T#J.S(K,Z).S(K.1,Z).[#T..Z.S#~..T.1975.
2055. .1990..#...T.1975;.6);..#...A.2.31
10..#... GRAPH ROUTINE..#...A.2.3020.A#.
.L(11).61.L#...Z.1.5..#..L(Z)..(S(K,Z).Z
(Z)..5..#D.L(Z.5).(Z.1).15..$N..L(Z).60.
L(Z).60.2540.#$X.L(Z).L(11).5$..L(11).L(
11).1.<$...Z.D$..L.0.N$...X.11.Z$...Z.1.
10.N$...L(Z).L(X).2660..$...L(Z).L(X).26
30..$(.X.Z..$2.Q.0..$<..2660..$F.L(Z).L(
Z).100..(Z.6).C$P..Z.5.2670.P$Z.Q..1.Q.Z
.W$D..Z..$N..X.11.3000..$X..T.25...(T.25
).2730..%..L.L.1..%...L.L(X).1.2670.%%..
."-";./% ..2690.>%....L(X).6);.K%..L(X).
100.Y%...Q.0.2810.C%H.."*";.V%R.L(.(Q..5
)).100..%..Q.10.(Q..(Q..5))..%...Q.1.277
0..%...2560..%...2870..%...2560.Q%...UP$
:.".";:.X..1.2850..%...". BIRTH RATE
.........";..&"..X..0.2870.:&
,..". DEATH RATE .........
";.I&6..X..1.2890.V&@..". FOOD
.........";..&J..X..2.2910..&
T..". RESOURCE USAGE .........
";.A&^..X..3.2930..&H..". IND'L OUTPUT
.........";..&R..X..4.2950.*'
|..". POLLUTION .........
";.9'...X..5.2970.D'..." P";.S'...X..6.2
990.]'..."I";.C'....N'...PRINT.T'B...~'L
.T.T.1..'V..T.U.1974.2090..'..T.T.1..'..
.PRINT..'.....'...A.3.3160.D'...1990.W'.
..K.1..(T.25.1)..'...1950.25.K;..(&...6)
;.(S(K,1).2E3..5);.12);.0(0...R(S(K,2)).
100;.20);.R(S(K,3).1.6);.I(:...27);.R(S(
K,4)).100.H(;..".".33).R(S(K,5).P)" "
.V(D..A.2.3020.}(N..K..(X..835:.850..(B.
.:...(L..". THE WORLD IN THE YEAR";T.197
5"-"..(V..". THE POPULATION IS";.R(S(K,5
).P);"BILLION,..)...S(K,4).10.S(K,4).10.
3230.=)...". POLLUTION ROSE TO";.R(S(K,4
));"TIM.S IT...)................ .......
......... ......")......................
....M..........................X.....G..
.....Y...I...8E4.S(K,5)..5).100;..)..."/
PERSON/YEAR"..*F..". AND THE DEATH RATE
IS".(D.1E3..5);"/1000."..*P....*Z...**..
.T..5.1950.\*..." DO YOU WANT ANOTHER RU
N? ";:US$."YN":UL.1.P*..UH.1:.35:.:.900
..*...UR$."Y".1010..*...300..* ...015,0,
16E11,.04,.035,.015,2100,3.6,1,200,-5.Y*
*..1,30,1,60,1,6,1,3,1,20..*4.....
> CLICK IMAGE PREVIEW FOR FULL MODAL