POPULATION.40
FILE INFORMATION
FILENAME(S): POPULATION.40
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-12-02 23:47:36
APPEARS ON: 1 disk(s)
FILE HASH
55fbe1ceddc317d184a72b846b56226b9e4db4e37833d50859dc6e696c96fcd1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GEOGRAPHY | POPULATION.40 | PRG | swasti, flohmarkt | 19 | 0 | 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 B7 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 22 00 E1 08 40 01 99 22 11 11 |LATION"...@.."..| 000004C0: 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 | 2. STUD| 000004D0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS| 000004E0: 22 00 0B 09 45 01 99 22 11 11 20 20 20 20 20 20 |"...E..".. | 000004F0: 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E | 3. TEACHER IN| 00000500: 53 54 52 55 43 54 49 4F 4E 53 22 00 26 09 4A 01 |STRUCTIONS".&.J.| 00000510: 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 |.".. 4. | 00000520: 51 55 49 54 11 22 00 52 09 4F 01 99 22 20 20 20 |QUIT.".R.O.." | 00000530: 20 2D 2D 2D 2D 2D 2D 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 22 00 7D 09 54 01 99 22 11 11 20 20 20 20 20 |-".}.T..".. | 00000560: 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 | PRESS A NUMBER| 00000570: 20 4B 45 59 20 28 31 2D 34 29 20 22 3B 00 91 09 | KEY (1-4) ";...| 00000580: 59 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 |Y.UL.1:US$."1234| 00000590: 22 00 A0 09 5B 01 8D 33 35 3A 55 53 24 B2 22 22 |"...[..35:US$.""| 000005A0: 00 BD 09 5E 01 91 C5 28 55 52 24 29 8D 31 30 30 |...^...(UR$).100| 000005B0: 30 2C 34 30 30 2C 35 30 30 2C 33 39 30 00 C6 09 |0,400,500,390...| 000005C0: 63 01 89 33 30 30 00 DA 09 72 01 8B 55 5A B2 31 |c..300...r..UZ.1| 000005D0: A7 9E 55 50 25 3A 89 31 35 35 00 E0 09 77 01 8E |..UP%:.155...w..| 000005E0: 00 08 0A 86 01 9E 55 45 3A 99 22 9A 93 22 3A 8B |......UE:."..":.| 000005F0: 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C 31 |UW.0..UY,6:.UX,1| 00000600: 34 3A 9E 55 55 2C 31 34 00 10 0A 8B 01 9C 3A 80 |4:.UU,14......:.| 00000610: 00 35 0A 90 01 99 22 93 22 3A 97 55 54 2C 55 4C |.5....".":.UT,UL| 00000620: 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 31 31 3A 97 |%:.UW.0..UY,11:.| 00000630: 55 58 2C 31 32 00 6D 0A 95 01 55 54 24 B2 22 20 |UX,12.m...UT$." | 00000640: D0 4F 50 55 4C 41 54 49 4F 4E 22 3A 55 48 B2 31 |.OPULATION":UH.1| 00000650: 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 |:UP.0:UG$.".TUDE| 00000660: 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 9C 0A |NT .NST":.850...| 00000670: 9A 01 99 22 11 11 11 20 20 20 D4 48 49 53 20 50 |..."... .HIS P| 00000680: 52 4F 47 52 41 4D 20 49 53 20 44 45 53 49 47 4E |ROGRAM IS DESIGN| 00000690: 45 44 20 54 4F 20 47 52 41 50 48 22 00 C9 0A 9B |ED TO GRAPH"....| 000006A0: 01 99 22 11 20 50 4F 50 55 4C 41 54 49 4F 4E 20 |..". POPULATION | 000006B0: FF FF 52 41 4D 49 44 FF FF FF FF 9A 88 FF AF FF |..RAMID.........| 000006C0: FF D2 DA FF D0 FF FF FF FF FF 14 FF 2A FF FF 08 |............*...| 000006D0: C4 88 FF FF FF 80 02 FF FF FF FF 20 C1 FF 23 F1 |........... ..#.| 000006E0: FF 23 B7 FF 07 99 FF FF 07 FF FF FF FF FF FF 07 |.#..............| 000006F0: 58 FF 4F 4E 43 45 22 00 23 0B 9D 01 99 22 11 20 |X.ONCE".#....". | 00000700: 59 4F 55 20 45 4E 54 45 52 20 54 48 45 20 4E 41 |YOU ENTER THE NA| 00000710: 54 55 52 41 4C 20 47 52 4F 57 54 48 20 52 41 54 |TURAL GROWTH RAT| 00000720: 45 2E 22 00 4E 0B 9E 01 99 22 11 20 D4 48 49 53 |E.".N....". .HIS| 00000730: 20 49 53 20 44 4F 4E 45 20 46 4F 52 20 41 20 53 | IS DONE FOR A S| 00000740: 45 52 49 45 53 20 4F 46 20 46 49 56 45 22 00 7A |ERIES OF FIVE".z| 00000750: 0B 9F 01 99 22 11 20 59 45 41 52 20 50 45 52 49 |....". YEAR PERI| 00000760: 4F 44 53 2C 20 55 4E 54 49 4C 20 59 4F 55 20 44 |ODS, UNTIL YOU D| 00000770: 45 43 49 44 45 20 59 4F 55 22 00 A0 0B A0 01 99 |ECIDE YOU"......| 00000780: 22 11 20 57 41 4E 54 20 54 4F 20 53 54 4F 50 20 |". WANT TO STOP | 00000790: 54 48 45 20 53 49 4D 55 4C 41 54 49 4F 4E 2E 22 |THE SIMULATION."| 000007A0: 00 DF 0B A1 01 8D 38 33 35 3A 55 48 B2 31 3A 8D |......835:UH.1:.| 000007B0: 38 35 30 3A 99 22 11 11 20 20 20 C9 46 20 59 4F |850:.".. .F YO| 000007C0: 55 20 57 41 4E 54 2C 20 59 4F 55 20 43 41 4E 20 |U WANT, YOU CAN | 000007D0: 41 4C 53 4F 20 43 48 4F 4F 53 45 20 54 4F 22 00 |ALSO CHOOSE TO".| 000007E0: 0A 0C A2 01 99 22 11 20 45 4E 54 45 52 20 59 4F |.....". ENTER YO| 000007F0: 55 52 20 4F 57 4E 20 50 4F 50 55 4C 41 54 49 4F |UR OWN POPULATIO| 00000800: 4E 20 46 49 47 55 52 45 53 22 00 30 0C A3 01 99 |N FIGURES".0....| 00000810: 22 11 20 53 4F 20 54 48 41 54 20 54 48 45 59 20 |". SO THAT THEY | 00000820: 4D 41 59 20 42 45 20 47 52 41 50 48 45 44 2E 22 |MAY BE GRAPHED."| 00000830: 00 5F 0C A4 01 99 22 11 20 20 20 C9 46 20 59 4F |._....". .F YO| 00000840: 55 20 43 48 4F 4F 53 45 20 54 48 49 53 20 4F 50 |U CHOOSE THIS OP| 00000850: 54 49 4F 4E 2C 20 59 4F 55 20 57 49 4C 4C 22 00 |TION, YOU WILL".| 00000860: 89 0C A5 01 99 22 11 20 42 45 20 41 53 4B 45 44 |.....". BE ASKED| 00000870: 20 54 4F 20 45 4E 54 45 52 20 46 49 52 53 54 20 | TO ENTER FIRST | 00000880: 54 48 45 20 4D 41 4C 45 22 00 B9 0C A6 01 99 22 |THE MALE"......"| 00000890: 11 20 50 4F 50 55 4C 41 54 49 4F 4E 20 49 4E 20 |. POPULATION IN | 000008A0: 54 48 45 20 53 50 45 43 49 46 49 45 44 20 41 47 |THE SPECIFIED AG| 000008B0: 45 20 47 52 4F 55 50 2E 22 00 E4 0C A7 01 99 22 |E GROUP."......"| 000008C0: 11 20 20 20 CE 45 58 54 2C 20 59 4F 55 20 4D 55 |. .EXT, YOU MU| 000008D0: 53 54 20 45 4E 54 45 52 20 54 48 45 20 46 45 4D |ST ENTER THE FEM| 000008E0: 41 4C 45 22 00 10 0D A8 01 99 22 11 20 50 4F 50 |ALE"......". POP| 000008F0: 55 4C 41 54 49 4F 4E 20 46 4F 52 20 54 48 45 20 |ULATION FOR THE | 00000900: 53 41 4D 45 20 41 47 45 20 47 52 4F 55 50 2E 22 |SAME AGE GROUP."| 00000910: 00 19 0D E5 01 8D 38 33 35 00 2D 0D EA 01 8B 55 |......835.-....U| 00000920: 5A B2 31 A7 9E 55 50 25 3A 89 31 35 35 00 33 0D |Z.1..UP%:.155.3.| 00000930: EF 01 8E 00 57 0D F4 01 99 22 93 22 3A 97 55 54 |....W....".":.UT| 00000940: 2C 55 4C 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 32 |,UL%:.UW.0..UY,2| 00000950: 3A 97 55 58 2C 31 30 00 8F 0D F5 01 55 54 24 B2 |:.UX,10.....UT$.| 00000960: 22 20 D0 4F 50 55 4C 41 54 49 4F 4E 22 3A 55 48 |" .OPULATION":UH| 00000970: B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 |.1:UP.0:UG$.".EA| 00000980: 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 |CHER .NST":.850.| 00000990: BC 0D F6 01 99 22 11 11 20 20 20 20 20 D4 4F 20 |.....".. .O | 000009A0: 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 |THE BEST OF OUR | 000009B0: 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 E7 0D F7 |KNOWLEDGE,."....| 000009C0: 01 99 22 20 20 20 20 20 54 48 49 53 20 50 52 4F |.." THIS PRO| 000009D0: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P| 000009E0: 55 42 4C 49 43 11 22 00 12 0E F8 01 99 22 20 20 |UBLIC."......" | 000009F0: 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 | DOMAIN. .F T| 00000A00: 48 49 53 20 49 53 20 4E 4F 54 20 54 52 55 45 2C |HIS IS NOT TRUE,| 00000A10: 11 22 00 30 0E F9 01 99 22 20 20 20 20 20 50 4C |.".0...." PL| 00000A20: 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 22 |EASE CONTACT:.."| 00000A30: 00 59 0E FA 01 99 22 20 20 20 20 20 20 C3 CF CD |.Y...." ...| 00000A40: CD CF C4 CF D2 C5 A0 C2 D5 D3 C9 CE C5 D3 D3 A0 |................| 00000A50: CD C1 C3 C8 C9 CE C5 D3 22 00 7D 0E FB 01 99 22 |........".}...."| 00000A60: 20 20 20 20 20 20 20 20 20 20 11 33 33 37 30 20 | .3370 | 00000A70: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 A2 0E |.HARMACY .VE....| 00000A80: FC 01 99 22 20 20 20 20 20 20 20 20 20 20 11 C1 |..." ..| 00000A90: 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 |GINCOURT, .NTARI| 00000AA0: 4F 22 00 C4 0E FD 01 99 22 20 20 20 20 20 20 20 |O"......" | 00000AB0: 20 20 20 11 C3 41 4E 41 44 41 2C 20 CD 31 D7 20 | ..ANADA, .1. | 00000AC0: 32 CB 34 22 00 E5 0E FE 01 99 22 20 20 20 20 20 |2.4"......" | 00000AD0: 20 20 20 20 20 11 28 34 31 36 29 20 34 39 39 2D | .(416) 499-| 00000AE0: 34 32 39 32 22 00 F8 0E FF 01 55 48 B2 31 3A 8D |4292".....UH.1:.| 00000AF0: 38 33 35 3A 8D 38 35 30 00 1F 0F 00 02 99 22 20 |835:.850......" | 00000B00: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .| 00000B10: 41 4D 45 3A 20 D0 4F 50 55 4C 41 54 49 4F 4E 00 |AME: .OPULATION.| 00000B20: 42 0F 01 02 99 22 20 20 20 20 20 20 11 D7 52 49 |B...." ..RI| 00000B30: 54 54 45 4E 20 42 59 20 20 3A 20 D5 4E 4B 4E 4F |TTEN BY : .NKNO| 00000B40: 57 4E 00 68 0F 02 02 99 22 20 20 20 20 20 20 11 |WN.h...." .| 00000B50: D2 45 56 49 53 45 44 20 42 59 20 20 3A 20 C3 2E |.EVISED BY : ..| 00000B60: 20 C6 4F 53 54 45 52 22 00 95 0F 03 02 99 22 20 | .OSTER"......" | 00000B70: 20 20 20 20 20 11 11 D4 48 49 53 20 50 52 4F 47 | ...HIS PROG| 00000B80: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON | 00000B90: 41 4E 59 11 11 00 BC 0F 04 02 99 22 20 20 20 20 |ANY........" | 00000BA0: 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 | ......2.0 .| 00000BB0: C5 D4 20 C3 4F 4D 50 55 54 45 52 11 00 E3 0F 05 |.. .OMPUTER.....| 00000BC0: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....| 00000BD0: C3 20 34 2E 30 20 D0 C5 D4 A0 C3 4F 4D 50 55 54 |. 4.0 .....OMPUT| 00000BE0: 45 52 11 00 05 10 06 02 99 22 20 20 20 20 20 20 |ER......." | 00000BF0: 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 4F 4D 50 | 8032 ... .OMP| 00000C00: 55 54 45 52 11 00 2A 10 07 02 99 22 20 20 20 20 |UTER..*...." | 00000C10: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 | .OMMODORE 6| 00000C20: 34 20 C3 4F 4D 50 55 54 45 52 00 33 10 49 02 8D |4 .OMPUTER.3.I..| 00000C30: 38 33 35 00 47 10 4E 02 8B 55 5A B2 31 A7 9E 55 |835.G.N..UZ.1..U| 00000C40: 50 25 3A 89 31 35 35 00 4D 10 53 02 8E 00 81 10 |P%:.155.M.S.....| 00000C50: BC 02 99 55 43 24 22 93 11 11 11 42 45 46 4F 52 |...UC$"....BEFOR| 00000C60: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P| 00000C70: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803| 00000C80: 32 00 B9 10 C1 02 99 22 20 20 20 20 20 20 4C 4F |2......" LO| 00000C90: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032| 00000CA0: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......| 00000CB0: 11 11 11 11 11 11 22 3A 80 00 E1 10 20 03 99 22 |......":.... .."| 00000CC0: 93 11 1D 1F 22 3B 3A 97 55 54 2C 55 55 25 3A 8B |....";:.UT,UU%:.| 00000CD0: 55 57 B2 30 A7 97 55 59 2C 31 3A 97 55 58 2C 31 |UW.0..UY,1:.UX,1| 00000CE0: 34 00 F7 10 21 03 81 49 B2 31 A4 33 38 3A 99 22 |4...!..I.1.38:."| 00000CF0: 12 20 92 22 3B 3A 82 00 0F 11 22 03 81 49 B2 31 |. .";:...."..I.1| 00000D00: A4 32 32 3A 99 22 11 9D 12 20 92 22 3B 3A 82 00 |.22:."... .";:..| 00000D10: 27 11 23 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D |'.#..I.1.37:."..| 00000D20: 12 20 92 22 3B 3A 82 00 3F 11 24 03 81 49 B2 31 |. .";:..?.$..I.1| 00000D30: A4 32 32 3A 99 22 91 9D 12 20 92 22 3B 3A 82 00 |.22:."... .";:..| 00000D40: 5F 11 25 03 99 22 13 11 11 11 11 11 11 11 11 1D |_.%.."..........| 00000D50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1F 12 A9 20 20 92 00 |............ ..| 00000D60: 79 11 26 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |y.&.."..........| 00000D70: 12 20 92 20 20 12 20 92 A9 00 A5 11 27 03 99 22 |. . . .....'.."| 00000D80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 1C |........... . .| 00000D90: 12 A3 DF 1F 92 20 4F 20 4D 20 4D 20 4F 20 44 20 |..... O M M O D | 00000DA0: 4F 20 52 20 45 00 BB 11 28 03 99 22 1D 1D 1D 1D |O R E...(.."....| 00000DB0: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 E1 11 29 03 |........ ....).| 00000DC0: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 00000DD0: 1D 1D 1D 1D 1C 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL| 00000DE0: 11 00 01 12 2A 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....*.."........| 00000DF0: 1D 1D 1D 1D 1D 1D 1D 1D 1F 53 4F 46 54 57 41 52 |.........SOFTWAR| 00000E00: 45 00 1F 12 2B 03 99 22 11 1D 1D 1D 1D 1D 1D 1D |E...+.."........| 00000E10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 31 39 38 33 1F 00 |..........1983..| 00000E20: 5B 12 2C 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |[.,...(UD$,24);"| 00000E30: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS | 00000E40: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI| 00000E50: 54 92 22 55 43 24 3A 55 49 B2 30 00 82 12 2D 03 |T."UC$:UI.0...-.| 00000E60: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 55 |.UI$:.UI$.." ".U| 00000E70: 49 B2 55 49 AA 31 3A 8B 55 49 B3 32 35 30 A7 38 |I.UI.1:.UI.250.8| 00000E80: 31 33 00 8B 12 2E 03 89 33 30 30 00 C6 12 43 03 |13......300...C.| 00000E90: 97 55 4E 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 |.UN,0:..(UD$,24)| 00000EA0: 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |;".......PRESS S| 00000EB0: 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 |PACE BAR TO CONT| 00000EC0: 49 4E 55 45 92 22 00 DD 12 48 03 A1 55 49 24 3A |INUE."...H..UI$:| 00000ED0: 8B 55 49 24 B3 B1 22 20 22 A7 38 34 30 00 E3 12 |.UI$.." ".840...| 00000EE0: 4D 03 8E 00 15 13 52 03 55 50 B2 55 50 AA 31 3A |M.....R.UP.UP.1:| 00000EF0: 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 |.".".(UT$.UP$,21| 00000F00: 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 |);.(UP$.UG$..(UP| 00000F10: 29 2C 31 38 29 00 44 13 57 03 99 22 20 2D 2D 2D |),18).D.W.." ---| 00000F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F40: 2D 2D 2D 22 00 7E 13 5C 03 8B 55 48 B2 30 A7 99 |---".~.\..UH.0..| 00000F50: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,| 00000F60: 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |7);"HELP - PRESS| 00000F70: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 8F | H <RETURN>"..| 00000F80: 13 61 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 |.a.UH.0:."..":..| 00000F90: C7 13 6B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..k...(UD$,24);"| 00000FA0: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M| 00000FB0: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... | 00000FC0: 20 20 20 20 22 3A 8E 00 17 14 84 03 55 58 24 B2 | ":......UX$.| 00000FD0: 22 48 22 3A 55 53 B2 33 32 37 36 38 3A 55 31 B2 |"H":US.32768:U1.| 00000FE0: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19| 00000FF0: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:| 00001000: 55 42 B2 31 30 32 34 3A 55 44 B2 31 30 38 34 3A |UB.1024:UD.1084:| 00001010: 55 45 B2 31 31 30 35 00 60 14 85 03 55 54 B2 35 |UE.1105.`...UT.5| 00001020: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.| 00001030: 31 34 3A 55 50 25 B2 31 31 35 38 3A 55 4E B2 31 |14:UP%.1158:UN.1| 00001040: 35 38 3A 97 35 30 30 30 33 2C 30 3A 55 57 B2 C2 |58:.50003,0:UW..| 00001050: 28 35 30 30 30 33 29 3A 55 46 B2 C2 28 35 33 29 |(50003):UF..(53)| 00001060: 00 AE 14 86 03 8B 55 57 B2 30 A7 55 53 B2 31 30 |......UW.0.US.10| 00001070: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210| 00001080: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U| 00001090: 43 B2 32 30 34 3A 55 42 B2 32 30 34 38 3A 55 58 |C.204:UB.2048:UX| 000010A0: B2 35 33 32 38 30 3A 55 44 B2 32 30 36 34 00 F8 |.53280:UD.2064..| 000010B0: 14 87 03 8B 55 57 B2 30 A7 55 54 B2 35 33 32 37 |....UW.0.UT.5327| 000010C0: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:| 000010D0: 55 50 25 B2 32 31 35 31 3A 55 4E B2 31 39 38 3A |UP%.2151:UN.198:| 000010E0: 55 59 B2 35 33 32 38 31 3A 55 55 B2 32 31 39 39 |UY.53281:UU.2199| 000010F0: 3A 55 45 B2 32 30 38 37 00 24 15 88 03 55 43 24 |:UE.2087.$...UC$| 00001100: B2 C7 28 31 35 35 29 3A 55 56 B2 31 32 31 34 3A |..(155):UV.1214:| 00001110: 8B 55 57 B2 30 A7 55 46 B2 31 39 36 3A 55 56 B2 |.UW.0.UF.196:UV.| 00001120: 32 32 33 38 00 75 15 89 03 55 44 24 B2 22 13 11 |2238.u...UD$."..| 00001130: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001140: 11 11 11 11 11 11 11 22 3A 55 50 24 B2 22 20 20 |.......":UP$." | 00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001170: 20 20 20 20 22 00 92 15 8A 03 86 20 44 32 28 35 | "...... D2(5| 00001180: 2C 31 38 29 2C 44 4D 28 31 38 29 2C 44 46 28 31 |,18),DM(18),DF(1| 00001190: 38 29 00 BE 15 8B 03 86 20 44 31 28 35 2C 31 38 |8)...... D1(5,18| 000011A0: 29 2C 20 4D 28 35 2C 31 38 29 2C 46 28 35 2C 31 |), M(5,18),F(5,1| 000011B0: 38 29 2C 4C 28 31 38 29 2C 52 28 31 38 29 00 DE |8),L(18),R(18)..| 000011C0: 15 8C 03 58 34 B2 35 36 3A 58 33 B2 35 35 3A 58 |...X4.56:X3.55:X| 000011D0: 32 B2 35 37 3A 58 31 B2 34 39 3A 51 B2 34 00 E4 |2.57:X1.49:Q.4..| 000011E0: 15 8D 03 8E 00 07 16 8E 03 8D 39 30 30 3A 99 22 |..........900:."| 000011F0: 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 |.":.".":. SHIFTE| 00001200: 44 20 53 50 41 43 45 00 1D 16 93 03 8B C2 28 55 |D SPACE.......(U| 00001210: 53 AA 34 30 29 B3 B1 39 36 A7 37 30 30 00 43 16 |S.40)..96.700.C.| 00001220: 98 03 8B 28 B8 28 30 29 AB 28 B4 28 B8 28 30 29 |...(.(0).(.(.(0)| 00001230: 29 B3 30 29 AC 36 35 35 33 36 29 B1 35 30 30 A7 |).0).65536).500.| 00001240: 39 33 35 00 73 16 9D 03 99 55 43 24 22 93 11 11 |935.s....UC$"...| 00001250: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE| 00001260: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG| 00001270: 48 11 22 00 99 16 A2 03 99 22 4D 45 4D 4F 52 59 |H."......"MEMORY| 00001280: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO| 00001290: 47 52 41 4D 20 21 22 3A 80 00 AF 16 A7 03 99 88 |GRAM !":........| 000012A0: FF FF 3B FF FF FF 24 BB BD FF FF 6F FF FF FF A2 |..;...$....o....| 000012B0: 31 0D 63 FF A4 BB BF FF FF FF 6A 3B BF FF FF FF |1.c.......j;....| 000012C0: FF 4A 3B BF FF FF FF FF 6F FF FF FF 22 7F 2D 6A |.J;.....o...".-j| 000012D0: FF EC FF FF FF FF FF 6C FF FF 2C 55 46 AB 34 3A |.......l..,UF.4:| 000012E0: 9C 3A 8D 39 30 30 00 1D 17 B6 03 8B 55 57 B2 31 |.:.900......UW.1| 000012F0: 36 30 A7 97 31 31 30 33 2C 38 38 3A 97 31 31 30 |60..1103,88:.110| 00001300: 34 2C 32 32 38 3A 97 31 31 30 37 2C 38 35 3A 97 |4,228:.1107,85:.| 00001310: 31 31 31 31 2C 32 32 38 3A 89 39 36 35 00 56 17 |1111,228:.965.V.| 00001320: BB 03 8B 55 57 B3 B1 31 A7 99 22 93 54 48 49 53 |...UW..1..".THIS| 00001330: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO| 00001340: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI| 00001350: 4E 45 21 22 3A 80 00 85 17 C0 03 97 31 31 30 33 |NE!":.......1103| 00001360: 2C 34 39 3A 97 31 31 30 34 2C 32 33 30 3A 97 31 |,49:.1104,230:.1| 00001370: 31 30 37 2C 34 36 3A 97 31 31 31 31 2C 32 33 30 |107,46:.1111,230| 00001380: 3A 89 39 36 35 00 8D 17 C5 03 9E 55 44 00 9B 17 |:.965......UD...| 00001390: CA 03 8D 38 30 30 3A 89 33 30 30 00 B4 17 E8 03 |...800:.300.....| 000013A0: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:| 000013B0: 55 5A B2 30 00 D6 17 E9 03 99 22 93 22 55 43 24 |UZ.0......"."UC$| 000013C0: 3B 3A 8C 3A 8B 55 57 B2 30 A7 97 55 59 2C 36 3A |;:.:.UW.0..UY,6:| 000013D0: 97 55 58 2C 31 34 00 F6 17 F2 03 58 34 B2 35 36 |.UX,14.....X4.56| 000013E0: 3A 58 33 B2 35 35 3A 58 32 B2 35 37 3A 58 31 B2 |:X3.55:X2.57:X1.| 000013F0: 34 39 3A 51 B2 34 00 2D 18 24 04 55 47 24 B2 22 |49:Q.4.-.$.UG$."| 00001400: 22 3A 55 54 24 B2 22 20 50 4F 50 55 4C 41 54 49 |":UT$." POPULATI| 00001410: 4F 4E 20 50 59 52 41 4D 49 44 53 22 3A 55 48 B2 |ON PYRAMIDS":UH.| 00001420: 30 3A 55 50 B2 30 3A 55 47 24 B2 22 22 00 5B 18 |0:UP.0:UG$."".[.| 00001430: 38 04 8D 38 35 30 3A 99 22 11 11 11 20 44 4F 20 |8..850:."... DO | 00001440: 59 4F 55 20 57 49 53 48 20 54 4F 3A 20 31 2E 20 |YOU WISH TO: 1. | 00001450: 45 4E 54 45 52 20 44 41 54 41 22 00 7D 18 42 04 |ENTER DATA".}.B.| 00001460: 99 A3 31 37 29 3B 22 11 32 2E 20 53 45 4C 45 43 |..17);".2. SELEC| 00001470: 54 20 41 20 44 41 54 41 20 53 45 54 22 00 AA 18 |T A DATA SET"...| 00001480: 47 04 99 22 11 11 20 50 52 45 53 53 20 54 48 45 |G..".. PRESS THE| 00001490: 20 4E 55 4D 42 45 52 20 4F 46 20 59 4F 55 52 20 | NUMBER OF YOUR | 000014A0: 43 48 4F 49 43 45 3F 20 22 3B 00 CA 18 4C 04 55 |CHOICE? ";...L.U| 000014B0: 53 24 B2 22 31 32 48 22 3A 55 4C B2 31 3A 8D 33 |S$."12H":UL.1:.3| 000014C0: 35 3A 41 B2 C5 28 55 52 24 29 00 DE 18 56 04 8B |5:A..(UR$)...V..| 000014D0: 20 41 B2 31 A7 42 B2 31 3A 89 31 31 34 30 00 E8 | A.1.B.1:.1140..| 000014E0: 18 60 04 8D 31 36 33 30 00 F2 18 6A 04 89 31 32 |.`..1630...j..12| 000014F0: 32 30 00 11 19 74 04 55 47 24 B2 22 44 41 54 41 |20...t.UG$."DATA| 00001500: 20 45 4E 54 52 59 22 3A 55 50 B2 31 3A 8D 38 35 | ENTRY":UP.1:.85| 00001510: 30 00 3C 19 7E 04 99 22 11 20 54 4F 20 41 44 44 |0.<.~..". TO ADD| 00001520: 20 44 41 54 41 2C 20 46 49 52 53 54 20 45 4E 54 | DATA, FIRST ENT| 00001530: 45 52 20 54 48 45 20 4D 41 4C 45 22 00 69 19 7F |ER THE MALE".i..| 00001540: 04 99 22 11 20 50 4F 50 55 4C 41 54 49 4F 4E 20 |..". POPULATION | 00001550: 46 4F 52 20 54 48 45 20 41 47 45 20 47 52 4F 55 |FOR THE AGE GROU| 00001560: 50 20 53 48 4F 57 4E 2E 22 00 95 19 81 04 99 22 |P SHOWN."......"| 00001570: 11 20 54 48 45 4E 20 54 59 50 45 20 49 4E 20 54 |. THEN TYPE IN T| 00001580: 48 45 20 46 45 4D 41 4C 45 20 50 4F 50 55 4C 41 |HE FEMALE POPULA| 00001590: 54 49 4F 4E 22 00 B6 19 82 04 99 22 11 20 46 4F |TION"......". FO| 000015A0: 52 20 54 48 45 20 53 41 4D 45 20 41 47 45 20 47 |R THE SAME AGE G| 000015B0: 52 4F 55 50 2E 22 00 E0 19 84 04 99 22 11 20 59 |ROUP."......". Y| 000015C0: 4F 55 20 4D 55 53 54 20 44 4F 20 54 48 49 53 20 |OU MUST DO THIS | 000015D0: 46 4F 52 20 45 41 43 48 20 4F 46 20 54 48 45 22 |FOR EACH OF THE"| 000015E0: 00 12 1A 85 04 99 22 11 20 45 49 47 48 54 45 45 |......". EIGHTEE| 000015F0: 4E 20 44 49 46 46 45 52 45 4E 54 20 41 47 45 20 |N DIFFERENT AGE | 00001600: 47 52 4F 55 50 53 2E 22 3A 8D 38 33 35 3A 8D 38 |GROUPS.":.835:.8| 00001610: 35 30 00 35 1A 9C 04 55 53 24 B2 22 31 32 33 34 |50.5...US$."1234| 00001620: 35 36 37 38 39 30 48 22 3A 55 4C B2 38 3A 81 49 |567890H":UL.8:.I| 00001630: B2 30 A4 31 37 00 56 1A A6 04 99 22 20 41 47 45 |.0.17.V...." AGE| 00001640: 53 22 3B 49 AC 35 3B 22 2D 22 3B 49 AC 35 AA 34 |S";I.5;"-";I.5.4| 00001650: 3B 22 20 20 22 3B 00 6E 1A AB 04 8D 33 35 3A 4D |;" ";.n....35:M| 00001660: 28 31 2C 49 AA 31 29 B2 C5 28 55 52 24 29 00 9D |(1,I.1)..(UR$)..| 00001670: 1A AC 04 99 22 91 22 3B A3 31 35 AA C3 28 55 52 |....".";.15..(UR| 00001680: 24 29 29 3B 22 1D 2C 22 3B 3A 8D 33 35 3A 46 28 |$));".,";:.35:F(| 00001690: 31 2C 49 AA 31 29 B2 C5 28 55 52 24 29 00 C2 1A |1,I.1)..(UR$)...| 000016A0: B0 04 FF FF ED FF DA 28 11 20 7C 0A FF FF FF F8 |.......(. |.....| 000016B0: FF FF FF 88 FF FF FF FF FF FF FF FF FF FF FF FF |................| 000016C0: FF FF FF FF FF FF FF FF FF 10 FF FF FF D2 FF FF |................| 000016D0: FF AD 04 8F 4E 54 22 11 11 20 52 45 41 44 59 20 |....NT".. READY | 000016E0: 46 4F 52 20 50 59 52 41 4D 49 44 20 47 52 41 50 |FOR PYRAMID GRAP| 000016F0: 48 3F 20 20 20 20 9D 9D 9D 22 3B 3A 55 53 24 3D |H? ...";:US$=| 00001700: 22 59 4E 48 22 3A 55 4C 3D 31 3A 47 4F 53 55 42 |"YNH":UL=1:GOSUB| 00001710: 33 35 3A 41 24 3D 55 52 24 00 3D 1B CE 04 8F 24 |35:A$=UR$.=....$| 00001720: 3C 3E 22 59 22 54 48 45 4E 50 52 49 4E 54 22 91 |<>"Y"THENPRINT".| 00001730: 91 91 91 22 3A 47 4F 54 4F 31 32 32 30 00 47 1B |...":GOTO1220.G.| 00001740: D8 04 8D 31 32 36 30 00 51 1B E2 04 89 31 37 36 |...1260.Q....176| 00001750: 30 00 68 1B EC 04 99 22 93 22 3B 3A 8B 55 57 B2 |0.h....".";:.UW.| 00001760: 30 A7 9E 55 55 2C 31 35 00 8F 1B F6 04 99 22 11 |0..UU,15......".| 00001770: 22 A3 31 30 29 3B 22 4D 41 4C 45 53 1D 1D 1D 1D |".10);"MALES....| 00001780: 1D 1D 1D 1D 1D 1D 46 45 4D 41 4C 45 53 91 22 00 |......FEMALES.".| 00001790: 9F 1B 00 05 81 4A B2 31 38 A4 31 20 A9 AB 31 00 |.....J.18.1 ..1.| 000017A0: AC 1B 02 05 8B 54 B2 30 A7 54 B2 31 00 DA 1B 0A |.....T.0.T.1....| 000017B0: 05 4C 28 4A 29 B2 B5 28 28 4D 28 42 2C 4A 29 AD |.L(J)..((M(B,J).| 000017C0: 54 AC 31 30 30 29 AC 51 29 3A 8B 4C 28 4A 29 B1 |T.100).Q):.L(J).|
.......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"...@..".. 2. STUDENT INST
RUCTIONS"...E..".. 3. TEACHER IN
STRUCTIONS".&.J..".. 4. QUIT.".R
.O.." -------------------------------
-".}.T..".. PRESS A NUMBER KEY (1-
4) ";...Y.UL.1:US$."1234". .[..35:US$.""
...^..E(UR$).1000,400,500,390.F.C..300.Z
.R..UZ.1..UP%:.155...W........UE:."..":.
UW.0..UY,6:.UX,14:.UU,14......:..5....".
":.UT,UL%:.UW.0..UY,11:.UX,12.M...UT$."
POPULATION":UH.1:UP.0:UG$."STUDENT INST"
:.850......"... THIS PROGRAM IS DESIGN
ED TO GRAPH".I....". POPULATION ..RAMID.
.........RZ.P.......*...D.......... A.#.
.#..............X.ONCE".#....". YOU ENTE
R THE NATURAL GROWTH RATE.".N....". THIS
IS DONE FOR A SERIES OF FIVE".Z....". Y
EAR PERIODS, UNTIL YOU DECIDE YOU". . ..
". WANT TO STOP THE SIMULATION."......83
5:UH.1:.850:.".. IF YOU WANT, YOU CAN
ALSO CHOOSE TO"......". ENTER YOUR OWN P
OPULATION FIGURES".0....". SO THAT THEY
MAY BE GRAPHED."._....". IF YOU CHOOSE
THIS OPTION, YOU WILL"......". BE ASKED
TO ENTER FIRST THE MALE"......". POPULA
TION IN THE SPECIFIED AGE GROUP."......"
. NEXT, YOU MUST ENTER THE FEMALE"....
..". POPULATION FOR THE SAME AGE GROUP."
......835.-....UZ.1..UP%:.155.3.....W...
.".":.UT,UL%:.UW.0..UY,2:.UX,10.....UT$.
" POPULATION":UH.1:UP.0:UG$."TEACHER INS
T":.850......".. TO THE BEST OF OUR
KNOWLEDGE,."......" THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF T
HIS IS NOT TRUE,.".0...." PLEASE CON
TACT:..".Y...." COMMODORE BUSINESS
MACHINES".}...." .3370 PHARMACY
AVE......." .AGINCOURT, ONTARI
O".D...." .CANADA, M1W 2K4"....
.." .(416) 499-4292".....UH.1:.
835:.850......" ..PROGRAM NAME: POP
ULATION.B...." .WRITTEN BY : UNKNO
WN.H...." .REVISED BY : C. FOSTER"
......" ..THIS PROGRAM WILL RUN ON
ANY........" BASIC 2.0 PET COMPU
TER......." BASIC 4.0 PET COMPUT
ER......." 8032 CBM COMPUTER..*.
..." COMMODORE 64 COMPUTER.3.I..
835.G.N..UZ.1..UP%:.155.M.S........UC$".
...BEFORE RUNNING THIS PROGRAM ON AN 803
2...A.." LOAD THE 'CBM 4032' PROGRA
M.............":.... .."....";:.UT,UU%:.
UW.0..UY,1:.UX,14...!..I.1.38:.". .";:..
.."..I.1.22:."... .";:..'.#..I.1.37:."..
. .";:..?.$..I.1.22:."... .";:.._.%.."..
.................... ..Y.&.."..........
. . . .....'.."........... . ...... O
M M O D O R E...(.."............ ....).
."...................EDUCATIONAL....*.."
.................SOFTWARE...+.."........
..........1983..[.,..H(UD$,24);"........
..PRESS SPACE BAR OR WAIT."UC$:UI.0...-.
.UI$:.UI$.." ".UI.UI.1:.UI.250.813......
300.F.C..UN,0:.H(UD$,24);".......PRESS S
PACE BAR TO CONTINUE."...H..UI$:.UI$.."
".840...M.....R.UP.UP.1:."."H(UT$.UP$,21
);I(UP$.UG$.D(UP),18).D.W.." -----------
---------------------------".~.\..UH.0..
H(UD$,24);H(UP$,7);"HELP - PRESS H <RE
TURN>"...A.UH.0:."..":..G.K..H(UD$,24);"
ONE MOMENT PLEASE... ":..
....UX$."H":US.32768:U1.196:U2.197:U3.19
8:U4.216:UC.167:UB.1024:UD.1084:UE.1105.
`...UT.59468:UU%.12:UL%.14:UP%.1158:UN.1
58:.50003,0:UW.B(50003):UF.B(53)......UW
.0.US.1024:U1.209:U2.210:U3.211:U4.214:U
C.204:UB.2048:UX.53280:UD.2064......UW.0
.UT.53272:UU%.21:UL%.23:UP%.2151:UN.198:
UY.53281:UU.2199:UE.2087.$...UC$.G(155):
UV.1214:.UW.0.UF.196:UV.2238.U...UD$."..
.......................":UP$."
"...... D2(5
,18),DM(18),DF(18)...... D1(5,18), M(5,1
8),F(5,18),L(18),R(18).....X4.56:X3.55:X
2.57:X1.49:Q.4............900:.".":." ":
. SHIFTED SPACE......B(US.40)..96.700.C.
...(.(0).(.(.(0)).0).65536).500.935.S...
.UC$"...THIS MACHINE DOES NOT HAVE ENOUG
H."......"MEMORY TO RUN THIS PROGRAM !":
..........;...$....O....1.C.......J;....
.J;.....O..."-J.......L..,UF.4:.:.900..
....UW.160..1103,88:.1104,228:.1107,85:.
1111,228:.965.V....UW..1..".THIS PGM WIL
L NOT WORK ON THIS MACHINE!":.......1103
,49:.1104,230:.1107,46:.1111,230:.965...
E..UD...J..800:.300......UZ.1..UP%:.UP%:
UZ.0.V...."."UC$;:.:.UW.0..UY,6:.UX,14..
...X4.56:X3.55:X2.57:X1.49:Q.4.-.$.UG$."
":UT$." POPULATION PYRAMIDS":UH.0:UP.0:U
G$."".[.8..850:."... DO YOU WISH TO: 1.
ENTER DATA".}.B...17);".2. SELECT A DATA
SET"...G..".. PRESS THE NUMBER OF YOUR
CHOICE? ";.J.L.US$."12H":UL.1:.35:A.E(UR
$)...V.. A.1.B.1:.1140...`..1630...J..12
20...T.UG$."DATA ENTRY":UP.1:.850.<.~.."
. TO ADD DATA, FIRST ENTER THE MALE".I.
..". POPULATION FOR THE AGE GROUP SHOWN.
"......". THEN TYPE IN THE FEMALE POPULA
TION"......". FOR THE SAME AGE GROUP."..
....". YOU MUST DO THIS FOR EACH OF THE"
......". EIGHTEEN DIFFERENT AGE GROUPS."
:.835:.850.5...US$."1234567890H":UL.8:.I
.0.17.V...." AGES";I.5;"-";I.5.4;" ";.N
....35:M(1,I.1).E(UR$)......".";.15.C(UR
$));".,";:.35:F(1,I.1).E(UR$).B.......Z(
. |..................................R..
....NT".. READY FOR PYRAMID GRAPH? ..
.";:US$="YNH":UL=1:GOSUB35:A$=UR$.=.N..$
<>"Y"THENPRINT"....":GOTO1220.G.X..1260.
Q....1760.H....".";:.UW.0..UU,15......".
".10);"MALES..........FEMALES."......J.1
8.1 ..1......T.0.T.1.Z...L(J)..((M(B,J).
T.100).Q):.L(J).
> CLICK IMAGE PREVIEW FOR FULL MODAL