FAMILY.C3
FILE INFORMATION
FILENAME(S): FAMILY.C3
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-10-20 14:30:09
APPEARS ON: 3 disk(s)
FILE HASH
c6e7358f712042bc4b0b6bba2c7198b2f8b0f89b10938daefbd9c75c03d9e85b
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0007ED | FAMILY.C3 | PRG | Treasure Chest - Klaus Der Suhler | 16 | 5 | DOWNLOAD FILE |
| FREESOFT DISK NR | FAMILY.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 2 | DOWNLOAD FILE |
| L EHRNEN | FAMILY.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 19 00 3A 00 DA 08 1E 00 3A 00 F6 08 23 00 8F |...:.....:...#..|
000000E0: 20 2B 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 | +++ INPUT SECTI|
000000F0: 4F 4E 20 2B 2B 2B 00 08 09 28 00 55 52 24 B2 22 |ON +++...(.UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 4C 25 A7 55 |......(UT).UL%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 02 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4A B2 |.....UJ$.US$:UJ.|
00000600: 55 4C 00 22 0E FC 00 55 4A 24 B2 55 53 24 3A 55 |UL."...UJ$.US$:U|
00000610: 4B 24 B2 55 47 24 3A 55 4A B2 55 50 3A 55 4B B2 |K$.UG$:UJ.UP:UK.|
00000620: 55 4C 00 28 0E FF 00 8E 00 39 0E 2C 01 8F 20 2A |UL.(.....9.,.. *|
00000630: 2A 20 4D 45 4E 55 20 2A 2A 00 3F 0E 2D 01 3A 00 |* MENU **.?.-.:.|
00000640: 6E 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |n....".":.UT,UU%|
00000650: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000660: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 74 |281,9:.53280,8.t|
00000670: 0E 2F 01 3A 00 91 0E 31 01 99 22 13 20 20 20 20 |./.:...1..". |
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
00000690: 22 00 C0 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000006C0: 00 DC 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000006D0: 31 2E 20 20 20 46 41 4D 49 4C 59 22 00 06 0F 40 |1. FAMILY"...@|
000006E0: 01 99 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 |..".. 2. |
000006F0: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
00000700: 54 49 4F 4E 53 22 00 30 0F 45 01 99 22 11 11 20 |TIONS".0.E..".. |
00000710: 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 | 3. TEACH|
00000720: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |ER INSTRUCTIONS"|
00000730: 00 4C 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 |.L.O..".. |
00000740: 34 2E 20 20 20 51 55 49 54 11 11 22 00 7B 0F 54 |4. QUIT..".{.T|
00000750: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A6 0F 59 01 |----------"...Y.|
00000780: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
00000790: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
000007A0: 2D 34 29 20 22 3B 00 CE 0F 5E 01 55 4C B2 31 3A |-4) ";...^.UL.1:|
000007B0: 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F |US$."1234":.35:.|
000007C0: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 E0 | INPUT ROUTINE..|
000007D0: 0F 5F 01 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 |._...(UR$).1.300|
000007E0: 00 EB 0F 60 01 55 53 24 B2 22 22 00 08 10 63 01 |...`.US$.""...c.|
000007F0: 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 |..(UR$).1000,400|
00000800: 2C 35 30 30 2C 33 39 36 00 11 10 68 01 89 33 30 |,500,396...h..30|
00000810: 30 00 38 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0.8.... ** RE-EN|
00000820: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
00000830: 44 20 45 4E 44 20 2A 2A 00 67 10 8C 01 8B C2 28 |D END **.g.....(|
00000840: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000|
00000850: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)|
00000860: B3 B1 30 A7 33 39 39 00 91 10 8D 01 9E 55 55 AA |..0.399......UU.|
00000870: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..|
00000880: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00000890: 34 00 9D 10 8E 01 99 22 9A 93 22 3A 80 00 A8 10 |4......"..":....|
000008A0: 8F 01 8D 38 37 35 3A 8E 00 C9 10 90 01 8F 20 2A |...875:....... *|
000008B0: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
000008C0: 43 54 49 4F 4E 53 20 2A 2A 00 F8 10 95 01 99 22 |CTIONS **......"|
000008D0: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
000008E0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:|
000008F0: 97 35 33 32 38 30 2C 30 00 19 11 9A 01 55 50 B2 |.53280,0.....UP.|
00000900: 30 3A 55 47 24 B2 22 53 54 55 44 45 4E 54 20 49 |0:UG$."STUDENT I|
00000910: 4E 53 54 22 3A 8D 38 35 30 00 4A 11 9C 01 3A 20 |NST":.850.J...: |
00000920: 20 99 22 11 11 11 11 20 20 20 20 52 45 4D 45 4D | .".... REMEM|
00000930: 42 45 52 20 54 4F 20 48 49 54 20 3C 52 45 54 55 |BER TO HIT <RETU|
00000940: 52 4E 3E 20 41 46 54 45 52 22 00 76 11 9E 01 3A |RN> AFTER".v...:|
00000950: 20 20 99 22 20 20 20 54 59 50 49 4E 47 20 59 4F | ." TYPING YO|
00000960: 55 52 20 41 4E 53 57 45 52 2E 20 54 48 49 53 20 |UR ANSWER. THIS |
00000970: 54 45 4C 4C 53 22 00 A3 11 A0 01 3A 20 20 99 22 |TELLS".....: ."|
00000980: 20 20 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 | THE COMPUTER |
00000990: 54 4F 20 41 43 43 45 50 54 20 57 48 41 54 20 59 |TO ACCEPT WHAT Y|
000009A0: 4F 55 22 00 BD 11 A2 01 3A 20 20 99 22 20 20 20 |OU".....: ." |
000009B0: 48 41 56 45 20 54 59 50 45 44 2E 11 22 00 EA 11 |HAVE TYPED.."...|
000009C0: A4 01 3A 20 20 99 22 20 20 20 20 54 59 50 45 20 |..: ." TYPE |
000009D0: 3C 48 3E 20 41 54 20 41 4E 59 20 54 49 4D 45 20 |<H> AT ANY TIME |
000009E0: 54 4F 20 52 45 54 55 52 4E 22 00 17 12 A6 01 3A |TO RETURN".....:|
000009F0: 20 20 99 22 20 20 20 54 4F 20 54 48 45 20 4D 45 | ." TO THE ME|
00000A00: 4E 55 20 46 4F 52 20 48 45 4C 50 2E 20 20 59 4F |NU FOR HELP. YO|
00000A10: 55 20 57 49 4C 4C 22 00 44 12 A8 01 3A 20 20 99 |U WILL".D...: .|
00000A20: 22 20 20 20 42 45 20 52 45 54 55 52 4E 45 44 20 |" BE RETURNED |
00000A30: 54 4F 20 54 48 45 20 50 4C 41 43 45 20 49 4E 20 |TO THE PLACE IN |
00000A40: 54 48 45 22 00 6F 12 AA 01 3A 20 20 99 22 20 20 |THE".o...: ." |
00000A50: 20 50 52 4F 47 52 41 4D 20 57 48 45 52 45 20 59 | PROGRAM WHERE Y|
00000A60: 4F 55 20 4C 45 46 54 20 4F 46 46 20 41 53 22 00 |OU LEFT OFF AS".|
00000A70: 9D 12 AC 01 3A 20 20 99 22 20 20 20 53 4F 4F 4E |....: ." SOON|
00000A80: 20 41 53 20 54 48 45 20 4F 50 54 49 4F 4E 20 46 | AS THE OPTION F|
00000A90: 52 4F 4D 20 54 48 45 20 4D 45 4E 55 22 00 B7 12 |ROM THE MENU"...|
00000AA0: AE 01 3A 20 20 99 22 20 20 20 49 53 20 43 4F 4D |..: ." IS COM|
00000AB0: 50 4C 45 54 45 2E 22 00 C6 12 E5 01 8D 38 33 35 |PLETE."......835|
00000AC0: 3A 8D 31 30 37 30 00 DA 12 EA 01 8B 55 5A B2 31 |:.1070......UZ.1|
00000AD0: A7 9E 55 50 25 3A 89 32 31 37 00 E0 12 F3 01 8E |..UP%:.217......|
00000AE0: 00 01 13 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 |...... ** TEACHE|
00000AF0: 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |R INSTRUCTIONS *|
00000B00: 2A 00 31 13 F5 01 99 22 93 22 3A 97 55 54 2C 55 |*.1....".":.UT,U|
00000B10: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..|
00000B20: 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 |53281,2:.53280,1|
00000B30: 30 00 61 13 F6 01 55 54 24 B2 22 20 C6 C1 CD C9 |0.a...UT$." ....|
00000B40: CC D9 22 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 |..":UP.0:UG$.".E|
00000B50: 41 43 48 45 52 20 C9 4E 53 54 2E 22 3A 8D 38 35 |ACHER .NST.":.85|
00000B60: 30 00 8F 13 F7 01 99 22 11 11 20 20 20 20 20 20 |0......".. |
00000B70: D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F |.O THE BEST OF O|
00000B80: 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 |UR KNOWLEDGE,.".|
00000B90: B8 13 F8 01 99 22 20 20 20 54 48 49 53 20 50 52 |....." THIS PR|
00000BA0: 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 |OGRAM IS IN THE |
00000BB0: 50 55 42 4C 49 43 11 22 00 E4 13 F9 01 99 22 20 |PUBLIC."......" |
00000BC0: 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 | DOMAIN. .F TH|
00000BD0: 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 |IS IS NOT THE CA|
00000BE0: 53 45 11 22 00 01 14 FA 01 99 22 20 20 20 50 4C |SE."......" PL|
00000BF0: 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 |EASE CONTACT:...|
00000C00: 22 00 2B 14 FB 01 99 22 20 20 20 20 20 20 C3 4F |".+...." .O|
00000C10: 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 |MMODORE .USINESS|
00000C20: 20 CD 41 43 48 49 4E 45 53 11 22 00 4E 14 FC 01 | .ACHINES.".N...|
00000C30: 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 |." 3370|
00000C40: 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 72 | .HARMACY .VE..r|
00000C50: 14 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 |...." .|
00000C60: 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 |GINCOURT, .NTARI|
00000C70: 4F 22 00 94 14 FE 01 99 22 20 20 20 20 20 20 20 |O"......" |
00000C80: 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 | .ANADA .1. |
00000C90: 32 CB 34 22 00 B4 14 FF 01 99 22 20 20 20 20 20 |2.4"......" |
00000CA0: 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 | (416) 499-4|
00000CB0: 32 39 32 22 00 CA 14 00 02 55 50 B2 31 3A 8D 20 |292".....UP.1:. |
00000CC0: 38 33 35 3A 8D 20 38 35 30 3A 00 ED 14 01 02 99 |835:. 850:......|
00000CD0: 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 |" ...ROGRAM |
00000CE0: CE 41 4D 45 3A 20 C6 41 4D 49 4C 59 11 00 12 15 |.AME: .AMILY....|
00000CF0: 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E |..." .RITTEN|
00000D00: 20 C2 59 20 20 3A 20 C1 4E 44 59 20 C7 41 42 4C | .Y : .NDY .ABL|
00000D10: 45 11 00 3A 15 03 02 99 22 20 20 20 20 20 D5 50 |E..:...." .P|
00000D20: 47 52 41 44 45 44 20 C2 59 20 3A 20 C1 52 4D 41 |GRADED .Y : .RMA|
00000D30: 4E 44 20 C1 49 45 4C 4C 4F 11 00 65 15 04 02 99 |ND .IELLO..e....|
00000D40: 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 |" ..HIS PROG|
00000D50: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON |
00000D60: 41 4E 59 11 11 00 85 15 07 02 99 22 20 20 20 20 |ANY........" |
00000D70: 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 | ... 64 ....|
00000D80: D5 D4 C5 D2 11 00 AA 15 08 02 99 22 20 20 20 20 |..........." |
00000D90: 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 | ......... 6|
00000DA0: 34 20 C3 CF CD D0 D5 D4 C5 D2 00 BB 15 1D 02 3A |4 .............:|
00000DB0: 20 20 8D 38 33 35 3A 8D 38 35 30 00 EB 15 21 02 | .835:.850...!.|
00000DC0: 3A 20 20 99 22 11 11 11 20 20 20 20 20 D4 48 49 |: ."... .HI|
00000DD0: 53 20 50 52 4F 47 52 41 4D 20 44 49 53 50 4C 41 |S PROGRAM DISPLA|
00000DE0: 59 53 20 32 31 20 4F 46 46 2D 22 00 1B 16 22 02 |YS 21 OFF-"...".|
00000DF0: 3A 20 20 99 22 11 20 20 20 53 50 52 49 4E 47 20 |: .". SPRING |
00000E00: 4F 46 20 54 57 4F 20 50 41 52 45 4E 54 53 2E 20 |OF TWO PARENTS. |
00000E10: 20 D4 48 45 20 47 45 4E 45 53 22 00 47 16 23 02 | .HE GENES".G.#.|
00000E20: 3A 20 20 99 22 11 20 20 20 4F 46 20 54 48 45 20 |: .". OF THE |
00000E30: 50 41 52 45 4E 54 53 20 43 41 4E 20 42 45 20 43 |PARENTS CAN BE C|
00000E40: 52 45 41 54 45 44 22 00 7A 16 24 02 3A 20 20 99 |REATED".z.$.: .|
00000E50: 22 11 20 20 20 52 41 4E 44 4F 4D 4C 59 20 4F 52 |". RANDOMLY OR|
00000E60: 20 42 59 20 54 48 45 20 53 54 55 44 45 4E 54 27 | BY THE STUDENT'|
00000E70: 53 20 43 48 4F 49 43 45 2E 22 00 95 16 44 02 3A |S CHOICE."...D.:|
00000E80: 20 20 8D 38 33 35 20 3A 55 54 24 B2 22 20 46 41 | .835 :UT$." FA|
00000E90: 4D 49 4C 59 22 00 A9 16 4E 02 8B 55 5A B2 31 A7 |MILY"...N..UZ.1.|
00000EA0: 9E 55 50 25 3A 89 32 31 37 00 AF 16 57 02 8E 00 |.UP%:.217...W...|
00000EB0: D5 16 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |..X.. ** PROGRAM|
00000EC0: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E | MODIFICATION IN|
00000ED0: 53 54 20 2A 2A 00 E6 16 59 02 99 22 93 22 3A 97 |ST **...Y..".":.|
00000EE0: 55 54 2C 55 4C 25 00 06 17 5D 02 55 50 B2 30 3A |UT,UL%...].UP.0:|
00000EF0: 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 |UG$.".ROGRAM .OD|
00000F00: 22 3A 8D 38 35 30 00 0F 17 94 02 8D 38 33 35 00 |":.850......835.|
00000F10: 23 17 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |#....UZ.1..UP%:.|
00000F20: 32 31 37 00 29 17 BB 02 8E 00 4E 17 BC 02 8F 20 |217.).....N.... |
00000F30: 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C |** TO USE 8032 L|
00000F40: 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 84 |OAD CBM4032 **..|
00000F50: 17 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 |....".....BEFORE|
00000F60: 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 | RUNNING THIS PR|
00000F70: 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 |OGRAM ON AN 8032|
00000F80: 20 20 11 11 00 BA 17 D0 02 99 22 20 20 20 20 20 | ........" |
00000F90: 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 | LOAD THE 'CBM 4|
00000FA0: 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 |032' PROGRAM....|
00000FB0: 11 11 11 11 11 11 11 11 11 22 00 C5 17 DA 02 9E |........."......|
00000FC0: 55 55 AA 37 31 00 CB 17 E4 02 80 00 EB 17 20 03 |UU.71......... .|
00000FD0: 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 |. ** T I T L E |
00000FE0: 20 50 20 41 20 47 20 45 20 2A 2A 00 1F 18 22 03 | P A G E **...".|
00000FF0: 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 |."....";:.UT,UU%|
00001000: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00001010: 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 |280,14:.53281,6.|
00001020: 35 18 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 |5.$..I.1.38:."..|
00001030: 92 22 3B 3A 82 00 4D 18 26 03 81 49 B2 31 A4 32 |.";:..M.&..I.1.2|
00001040: 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 65 18 |2:.".....";:..e.|
00001050: 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 |(..I.1.37:."....|
00001060: 92 22 3B 3A 82 00 7D 18 2A 03 81 49 B2 31 A4 32 |.";:..}.*..I.1.2|
00001070: 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 A2 18 |2:.".....";:....|
00001080: 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D |,.."............|
00001090: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 |............... |
000010A0: 20 92 00 C4 18 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D | .......".......|
000010B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 |............ . |
000010C0: 12 20 92 A9 00 E5 18 30 03 99 22 1D 1D 1D 1D 1D |. .....0..".....|
000010D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .|
000010E0: 20 20 12 A3 DF 00 03 19 32 03 99 22 1D 1D 1D 1D | ......2.."....|
000010F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 |................|
00001100: 20 20 92 00 2B 19 34 03 99 22 11 11 1D 1D 1D 1D | ..+.4.."......|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 |........C O M M |
00001120: 4F 20 44 20 4F 20 52 20 45 11 11 00 4E 19 36 03 |O D O R E...N.6.|
00001130: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001140: 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 6D |.EDUCATIONAL...m|
00001150: 19 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.8.."...........|
00001160: 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 88 19 |.....SOFTWARE...|
00001170: 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 |:.. ** COMMODORE|
00001180: 20 4C 4F 47 4F 20 2A 2A 00 C0 19 3B 03 99 C8 28 | LOGO **...;...(|
00001190: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D |UD$,24);".......|
000011A0: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
000011B0: 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 |AR OR WAIT.":I.0|
000011C0: 00 E2 19 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 |...<..A$:.A$.." |
000011D0: 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 |".I.I.1:.I.250.8|
000011E0: 32 38 00 06 1A 3E 03 54 31 24 B2 22 22 3A 54 32 |28...>.T1$."":T2|
000011F0: 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 |$."":T3$."":T4$.|
00001200: 22 22 3A 49 B2 30 00 0F 1A 40 03 89 33 30 30 00 |"":I.0...@..300.|
00001210: 2B 1A 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 |+.C.. ** SPACE B|
00001220: 41 52 20 50 52 45 53 53 20 2A 2A 00 60 1A 48 03 |AR PRESS **.`.H.|
00001230: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001240: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
00001250: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |AR TO CONTINUE."|
00001260: 00 77 1A 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |.w.L..UI$:.UI$..|
00001270: 22 20 22 A7 38 34 34 00 7D 1A 4E 03 8E 00 9D 1A |" ".844.}.N.....|
00001280: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
00001290: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 A9 1A |GN ROUTINE **...|
000012A0: 54 03 55 50 B2 55 50 AA 31 00 D0 1A 57 03 99 22 |T.UP.UP.1...W.."|
000012B0: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
000012C0: C8 28 55 47 24 AA 55 50 24 2C 31 34 29 3B 55 50 |.(UG$.UP$,14);UP|
000012D0: 00 FF 1A 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...\.." --------|
000012E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001300: 33 1B 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 |3.a...(UD$,24);.|
00001310: 28 55 50 24 2C 36 29 3B 22 48 45 4C 50 20 2D 20 |(UP$,6);"HELP - |
00001320: 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 |PRESS H <RETUR|
00001330: 4E 3E 22 00 3F 1B 66 03 99 22 13 11 22 3A 8E 00 |N>".?.f.."..":..|
00001340: 5E 1B 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 |^.k.. ** PLEASE |
00001350: 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 94 |WAIT REMARK **..|
00001360: 1B 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 |.p...(UD$,24);" |
00001370: 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F | ONE MO|
00001380: 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 |MENT PLEASE... |
00001390: 20 20 20 22 00 9A 1B 75 03 8E 00 B7 1B 84 03 8F | "...u........|
000013A0: 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 | ** SET UP VARIA|
000013B0: 42 4C 45 53 20 2A 2A 00 02 1C 85 03 55 58 24 B2 |BLES **.....UX$.|
000013C0: 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 |"H":.UQ%(1000):U|
000013D0: 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 |B.32768:U1.196:U|
000013E0: 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 |2.197:U3.198:U4.|
000013F0: 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 |216:UC.167:UU.10|
00001400: 32 34 00 39 1C 86 03 55 54 B2 35 39 34 36 38 3A |24.9...UT.59468:|
00001410: 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 |UU%.12:UL%.14:UP|
00001420: 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A |%.1146:UM.32768:|
00001430: 97 20 35 30 30 30 33 2C 30 00 7C 1C 87 03 8B C2 |. 50003,0.|.....|
00001440: 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 |(50003).0.UB.102|
00001450: 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A |4:U1.209:U2.210:|
00001460: 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 |U3.211:U4.214:UC|
00001470: B2 32 30 34 3A 55 55 B2 32 30 34 38 00 B4 1C 88 |.204:UU.2048....|
00001480: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 |...(50003).0.UT.|
00001490: 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 |53272:UU%.21:UL%|
000014A0: B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 |.23:UP%.2139:UM.|
000014B0: 31 30 32 34 00 D8 1C 89 03 55 44 24 B2 22 13 11 |1024.....UD$."..|
000014C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000014D0: 11 11 11 11 11 11 11 22 00 0A 1D 8A 03 55 50 24 |.......".....UP$|
000014E0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000014F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001500: 20 20 20 20 20 20 20 20 20 22 00 3F 1D 8B 03 3A | ".?...:|
00001510: 20 20 55 54 24 B2 22 20 46 41 4D 49 4C 59 20 20 | UT$." FAMILY |
00001520: 20 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 | ":. PLACE PROGR|
00001530: 41 4D 20 54 49 54 4C 45 20 48 45 52 45 21 21 00 |AM TITLE HERE!!.|
00001540: 45 1D 8C 03 8E 00 5F 1D 8E 03 8F 20 2A 2A 20 53 |E....._.... ** S|
00001550: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
00001560: 68 1D 93 03 8D 39 30 30 00 7F 1D 94 03 96 A5 52 |h....900.......R|
00001570: 28 58 29 B2 B5 28 32 AC BB 28 31 29 AA 31 29 00 |(X)..(2..(1).1).|
00001580: 9A 1D 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 |..... ** CHECK F|
00001590: 4F 52 20 38 30 33 32 20 2A 2A 00 B8 1D 9D 03 99 |OR 8032 **......|
000015A0: 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 |".":.".":. SHIFT|
000015B0: 45 44 20 53 50 41 43 45 00 CF 1D A2 03 8B C2 28 |ED SPACE.......(|
000015C0: 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 |UB.40)..96..700.|
000015D0: E8 1D A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 |..... ** MEMORY |
000015E0: 43 48 45 43 4B 20 2A 2A 00 FC 1D A4 03 8B 20 B8 |CHECK **...... .|
000015F0: 28 30 29 B1 32 30 30 30 A7 39 33 37 00 2A 1E A5 |(0).2000.937.*..|
00001600: 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 |.."....THIS MACH|
00001610: 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 |INE DOES NOT HAV|
00001620: 45 20 45 4E 4F 55 47 48 11 22 00 4E 1E A6 03 99 |E ENOUGH.".N....|
00001630: 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 |"MEMORY TO RUN T|
00001640: 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 59 |HIS PROGRAM !".Y|
00001650: 1E A7 03 9E 55 55 AA 37 31 00 5F 1E A8 03 80 00 |....UU.71._.....|
00001660: 79 1E A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 |y...."..":..(500|
00001670: 30 33 29 B2 30 A7 39 36 32 00 A8 1E AC 03 8F 20 |03).0.962...... |
00001680: 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 |** BASIC 2.0 OR|
00001690: 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 | 4.0 OR C-64 |
000016A0: 53 45 54 55 50 20 2A 2A 00 E6 1E AD 03 97 31 30 |SETUP **......10|
000016B0: 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 |75,133:.1076,144|
000016C0: 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 |:.1077,234:.1079|
000016D0: 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 |,4:.1080,133:.10|
000016E0: 38 31 2C 31 34 35 00 1C 1F AE 03 97 31 30 39 31 |81,145......1091|
000016F0: 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 |,155:.1098,133:.|
00001700: 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 |1099,144:.1100,2|
00001710: 33 34 3A 97 31 31 30 33 2C 31 33 33 00 3E 1F AF |34:.1103,133.>..|
00001720: 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 |..1104,145:.1105|
00001730: 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 55 |,234:.1082,234.U|
00001740: 1F B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 |.....(50003)..16|
00001750: 30 A7 39 35 35 00 84 1F B6 03 97 31 30 39 33 2C |0.955......1093,|
00001760: 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 |88:.1094,228:.10|
00001770: 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A |97,85:.1102,228:|
00001780: 89 39 36 35 00 99 1F BB 03 8B C2 28 35 30 30 30 |.965.......(5000|
00001790: 33 29 B3 B1 31 A7 39 39 30 00 C8 1F C0 03 97 31 |3)..1.990......1|
000017A0: 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 |093,49:.1094,230|
000017B0: 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C |:.1097,46:.1102,|
000017C0: 32 33 30 3A 89 39 36 35 00 02 20 C2 03 97 32 30 |230:.965.. ...20|
000017D0: 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A |99,141:.2100,20:|
000017E0: 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A |.2101,3:.2103,8:|
000017F0: 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C |.2104,141:.2105,|
00001800: 32 31 00 3E 20 C3 03 97 32 31 30 36 2C 33 3A 97 |21.> ...2106,3:.|
00001810: 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 |2115,145:.2117,5|
00001820: 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 |2:.2118,234:.212|
00001830: 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 78 |1,49:.2122,141.x|
00001840: 20 C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 | ...2123,20:.212|
00001850: 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 |4,3:.2126,234:.2|
00001860: 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 |127,141:.2128,21|
00001870: 3A 97 32 31 32 39 2C 33 00 96 20 C5 03 9E 55 55 |:.2129,3.. ...UU|
00001880: AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 |.48:. DISABLE ST|
00001890: 4F 50 20 4B 45 59 00 A7 20 CA 03 8D 38 30 30 3A |OP KEY.. ...800:|
000018A0: 8F 20 54 49 54 4C 45 00 B7 20 D4 03 89 33 30 30 |. TITLE.. ...300|
000018B0: 3A 8F 20 4D 45 4E 55 00 E8 20 DE 03 99 22 93 54 |:. MENU.. ...".T|
000018C0: 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 |HE PGM WILL NOT |
000018D0: 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 |WORK ON THIS MAC|
000018E0: 48 49 4E 45 21 22 3A 80 00 1D 21 E8 03 8B 55 5A |HINE!":...!...UZ|
000018F0: B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 |.1..UP%:.UP%:UZ.|
00001900: 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 |0:. ** PROGRAM S|
00001910: 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 49 21 |TARTS HERE **.I!|
00001920: E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 |..."..";:.:..(50|
00001930: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00001940: 97 35 33 32 38 30 2C 31 34 00 56 21 F2 03 8F 20 |.53280,14.V!... |
00001950: 46 41 4D 49 4C 59 00 71 21 FC 03 8F 20 41 4E 44 |FAMILY.q!... AND|
00001960: 59 20 47 41 4D 42 4C 45 20 4D 41 52 43 48 20 38 |Y GAMBLE MARCH 8|
00001970: 31 00 96 21 06 04 8F 20 43 4F 4C 55 4D 42 49 41 |1..!... COLUMBIA|
00001980: 20 43 4F 4C 4C 45 47 45 2C 20 31 36 31 39 20 57 | COLLEGE, 1619 W|
00001990: 31 30 20 41 56 45 00 B1 21 10 04 8F 20 56 41 4E |10 AVE..!... VAN|
000019A0: 43 4F 55 56 45 52 20 42 43 20 56 36 4A 20 32 41 |COUVER BC V6J 2A|
000019B0: 32 00 D6 21 1A 04 8F 20 49 44 45 41 20 46 52 4F |2..!... IDEA FRO|
000019C0: 4D 20 22 47 45 4E 45 50 4F 4F 4C 22 20 43 43 20 |M "GENEPOOL" CC |
000019D0: 46 45 42 20 38 31 00 E5 21 24 04 8F 20 47 4F 54 |FEB 81..!$.. GOT|
000019E0: 4F 32 32 39 30 00 01 22 2E 04 8F 20 48 50 3C 3D |O2290.."... HP<=|
000019F0: 33 35 2C 56 50 3C 3D 31 39 3A 52 45 53 54 4F 52 |35,VP<=19:RESTOR|
00001A00: 45 00 26 22 38 04 56 54 24 B2 22 13 11 11 11 11 |E.&"8.VT$.".....|
00001A10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001A20: 11 11 11 11 11 22 00 79 22 42 04 48 54 24 B2 22 |.....".y"B.HT$."|
00001A30: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001A70: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 88 22 4C 04 58 B2 |........".."L.X.|
00001A80: BB 28 AB BB 28 30 29 29 00 97 22 60 04 4E 4F 24 |.(..(0)).."`.NO$|
00001A90: B2 22 DD A7 A5 DD 22 00 AF 22 6A 04 43 48 24 28 |."....".."j.CH$(|
00001AA0: 31 29 B2 22 CA C0 C0 CB 22 3A 8F 20 46 45 4D 00 |1)."....":. FEM.|
00001AB0: C8 22 74 04 43 48 24 28 32 29 B2 22 AD C0 C0 BD |."t.CH$(2)."....|
00001AC0: 22 3A 8F 20 4D 41 4C 45 00 DA 22 7E 04 45 59 24 |":. MALE.."~.EY$|
00001AD0: 28 31 29 B2 22 DD BB AC DD 22 00 EC 22 88 04 45 |(1)."....".."..E|
00001AE0: 59 24 28 32 29 B2 22 DD C9 D5 DD 22 00 FE 22 92 |Y$(2)."...."..".|
00001AF0: 04 48 41 24 28 31 29 B2 22 D5 A2 A2 C9 22 00 10 |.HA$(1)."...."..|
00001B00: 23 9C 04 48 41 24 28 32 29 B2 22 D5 A8 A8 C9 22 |#..HA$(2)."...."|
00001B10: 00 29 23 A6 04 8F 20 57 20 4F 56 45 52 20 47 2C |.)#... W OVER G,|
00001B20: 20 52 20 4F 56 45 52 20 53 00 40 23 C4 04 8B C8 | R OVER S.@#....|
00001B30: 28 55 52 24 2C 31 29 B2 22 32 22 A7 32 33 38 30 |(UR$,1)."2".2380|
00001B40: 00 55 23 CE 04 55 50 B2 30 3A 55 47 24 B2 22 22 |.U#..UP.0:UG$.""|
00001B50: 3A 8D 38 35 30 00 8A 23 D8 04 99 22 11 11 11 11 |:.850..#..."....|
00001B60: 11 11 11 11 11 20 20 20 20 41 52 45 20 54 48 45 |..... ARE THE|
00001B70: 20 47 45 4E 45 53 20 46 4F 52 20 54 48 45 20 50 | GENES FOR THE P|
00001B80: 41 52 45 4E 54 53 20 54 4F 22 00 B5 23 DD 04 99 |ARENTS TO"..#...|
00001B90: 22 11 20 20 20 20 42 45 20 43 48 4F 4F 53 45 4E |". BE CHOOSEN|
00001BA0: 20 52 41 4E 44 4F 4D 4C 59 20 28 59 2F 4E 29 20 | RANDOMLY (Y/N) |
00001BB0: 3F 20 20 22 3B 00 D4 23 E2 04 55 53 24 B2 22 59 |? ";..#..US$."Y|
00001BC0: 4E 48 22 3A 55 4C B2 31 3A 8D 33 35 3A 5A 5A 24 |NH":UL.1:.35:ZZ$|
00001BD0: B2 55 52 24 00 EB 23 F6 04 8B C8 28 5A 5A 24 2C |.UR$..#....(ZZ$,|
00001BE0: 31 29 B2 22 4E 22 A7 31 33 37 30 00 03 24 00 05 |1)."N".1370..$..|
00001BF0: 8B C8 28 5A 5A 24 2C 31 29 B3 B1 22 59 22 A7 31 |..(ZZ$,1).."Y".1|
00001C00: 32 34 30 00 10 24 0A 05 8F 20 52 41 4E 44 4F 4D |240..$... RANDOM|
00001C10: 00 3A 24 14 05 81 49 B2 31 A4 32 3A 46 45 24 28 |.:$...I.1.2:FE$(|
00001C20: 49 29 B2 22 52 22 3A 8B BB 28 31 29 B1 2E 35 A7 |I)."R":..(1)..5.|
00001C30: 46 45 24 28 49 29 B2 22 53 22 00 5D 24 1E 05 46 |FE$(I)."S".]$..F|
00001C40: 48 24 28 49 29 B2 22 57 22 3A 8B BB 28 31 29 B1 |H$(I)."W":..(1).|
00001C50: 2E 35 A7 46 48 24 28 49 29 B2 22 47 22 00 63 24 |.5.FH$(I)."G".c$|
00001C60: 28 05 82 00 8D 24 32 05 81 49 B2 31 A4 32 3A 4D |(....$2..I.1.2:M|
00001C70: 45 24 28 49 29 B2 22 52 22 3A 8B BB 28 31 29 B1 |E$(I)."R":..(1).|
00001C80: 2E 35 A7 4D 45 24 28 49 29 B2 22 53 22 00 B0 24 |.5.ME$(I)."S"..$|
00001C90: 3C 05 4D 48 24 28 49 29 B2 22 57 22 3A 8B BB 28 |<.MH$(I)."W":..(|
00001CA0: 31 29 B1 2E 35 A7 4D 48 24 28 49 29 B2 22 47 22 |1)..5.MH$(I)."G"|
00001CB0: 00 B6 24 46 05 82 00 C0 24 50 05 89 31 39 36 30 |..$F....$P..1960|
00001CC0: 00 D3 24 5A 05 50 41 B2 55 4D AA 32 39 39 3A 8D |..$Z.PA.UM.299:.|
00001CD0: 38 35 30 00 FD 24 64 05 99 22 11 11 20 43 48 4F |850..$d..".. CHO|
00001CE0: 4F 53 45 20 47 45 4E 45 53 20 46 4F 52 20 46 41 |OSE GENES FOR FA|
00001CF0: 54 48 45 52 27 53 20 48 41 49 52 3A 22 00 0F 25 |THER'S HAIR:"..%|
00001D00: 6E 05 99 22 11 22 A3 31 39 29 22 12 57 47 22 00 |n..".".19)".WG".|
00001D10: 25 25 78 05 45 24 28 31 29 B2 22 22 3A 45 24 28 |%%x.E$(1)."":E$(|
00001D20: 32 29 B2 22 22 00 2F 25 82 05 8D 32 38 33 30 00 |2).""./%...2830.|
00001D30: 3A 25 8C 05 97 50 41 2C 33 30 00 45 25 96 05 81 |:%...PA,30.E%...|
00001D40: 49 B2 31 A4 32 00 4F 25 A0 05 8D 32 37 37 30 00 |I.1.2.O%...2770.|
00001D50: 74 25 AA 05 46 48 24 28 49 29 B2 22 47 22 3A 8B |t%..FH$(I)."G":.|
00001D60: 50 41 B2 55 4D AA 32 39 39 A7 46 48 24 28 49 29 |PA.UM.299.FH$(I)|
00001D70: B2 22 57 22 00 85 25 B4 05 48 24 28 49 29 B2 46 |."W"..%..H$(I).F|
00001D80: 48 24 28 49 29 00 8B 25 BE 05 82 00 A1 25 C8 05 |H$(I)..%.....%..|
00001D90: 56 50 B2 31 30 3A 48 50 B2 31 38 3A 53 45 58 B2 |VP.10:HP.18:SEX.|
00001DA0: 32 00 AB 25 D2 05 8D 32 37 33 30 00 B5 25 DC 05 |2..%...2730..%..|
00001DB0: 8D 32 32 32 30 00 C3 25 F0 05 8D 38 33 35 3A 8D |.2220..%...835:.|
00001DC0: 38 35 30 00 ED 25 FA 05 99 22 11 11 20 43 48 4F |850..%...".. CHO|
00001DD0: 4F 53 45 20 47 45 4E 45 53 20 46 4F 52 20 46 41 |OSE GENES FOR FA|
00001DE0: 54 48 45 52 27 53 20 45 59 45 53 3A 22 00 FF 25 |THER'S EYES:"..%|
00001DF0: 04 06 99 22 11 22 A3 31 39 29 22 12 52 53 22 00 |...".".19)".RS".|
00001E00: 09 26 0E 06 8D 32 38 33 30 00 14 26 18 06 97 50 |.&...2830..&...P|
00001E10: 41 2C 33 30 00 1F 26 22 06 81 49 B2 31 A4 32 00 |A,30..&"..I.1.2.|
00001E20: 29 26 2C 06 8D 32 37 37 30 00 4E 26 36 06 46 45 |)&,..2770.N&6.FE|
00001E30: 24 28 49 29 B2 22 53 22 3A 8B 50 41 B2 55 4D AA |$(I)."S":.PA.UM.|
00001E40: 32 39 39 A7 46 45 24 28 49 29 B2 22 52 22 00 5F |299.FE$(I)."R"._|
00001E50: 26 40 06 45 24 28 49 29 B2 46 45 24 28 49 29 00 |&@.E$(I).FE$(I).|
00001E60: 65 26 4A 06 82 00 7B 26 54 06 56 50 B2 31 30 3A |e&J...{&T.VP.10:|
00001E70: 48 50 B2 31 38 3A 53 45 58 B2 32 00 85 26 5E 06 |HP.18:SEX.2..&^.|
00001E80: 8D 32 37 33 30 00 8F 26 68 06 8D 32 32 32 30 00 |.2730..&h..2220.|
00001E90: 9D 26 7C 06 8D 38 33 35 3A 8D 38 35 30 00 C7 26 |.&|..835:.850..&|
00001EA0: 86 06 99 22 11 11 20 43 48 4F 4F 53 45 20 47 45 |...".. CHOOSE GE|
00001EB0: 4E 45 53 20 46 4F 52 20 4D 4F 54 48 45 52 27 53 |NES FOR MOTHER'S|
00001EC0: 20 48 41 49 52 3A 22 00 D9 26 90 06 99 22 11 22 | HAIR:"..&..."."|
00001ED0: A3 31 39 29 22 12 57 47 22 00 E3 26 9A 06 8D 32 |.19)".WG"..&...2|
00001EE0: 38 33 30 00 F9 26 A4 06 45 24 28 31 29 B2 22 22 |830..&..E$(1).""|
00001EF0: 3A 45 24 28 32 29 B2 22 22 00 04 27 AE 06 97 50 |:E$(2).""..'...P|
00001F00: 41 2C 33 30 00 0F 27 B8 06 81 49 B2 31 A4 32 00 |A,30..'...I.1.2.|
00001F10: 19 27 C2 06 8D 32 37 37 30 00 3E 27 CC 06 4D 48 |.'...2770.>'..MH|
00001F20: 24 28 49 29 B2 22 47 22 3A 8B 50 41 B2 55 4D AA |$(I)."G":.PA.UM.|
00001F30: 32 39 39 A7 4D 48 24 28 49 29 B2 22 57 22 00 4F |299.MH$(I)."W".O|
00001F40: 27 D6 06 48 24 28 49 29 B2 4D 48 24 28 49 29 00 |'..H$(I).MH$(I).|
00001F50: 55 27 E0 06 82 00 6B 27 EA 06 56 50 B2 31 30 3A |U'....k'..VP.10:|
00001F60: 48 50 B2 31 38 3A 53 45 58 B2 31 00 75 27 F4 06 |HP.18:SEX.1.u'..|
00001F70: 8D 32 37 33 30 00 7F 27 FE 06 8D 32 32 32 30 00 |.2730..'...2220.|
00001F80: 8D 27 12 07 8D 38 33 35 3A 8D 38 35 30 00 B7 27 |.'...835:.850..'|
00001F90: 1C 07 99 22 11 11 20 43 48 4F 4F 53 45 20 47 45 |...".. CHOOSE GE|
00001FA0: 4E 45 53 20 46 4F 52 20 4D 4F 54 48 45 52 27 53 |NES FOR MOTHER'S|
00001FB0: 20 45 59 45 53 3A 22 00 C9 27 26 07 99 22 11 22 | EYES:"..'&.."."|
00001FC0: A3 31 39 29 22 12 52 53 22 00 D3 27 30 07 8D 32 |.19)".RS"..'0..2|
00001FD0: 38 33 30 00 DE 27 3A 07 97 50 41 2C 33 30 00 E9 |830..':..PA,30..|
00001FE0: 27 44 07 81 49 B2 31 A4 32 00 F3 27 4E 07 8D 32 |'D..I.1.2..'N..2|
00001FF0: 37 37 30 00 18 28 58 07 4D 45 24 28 49 29 B2 22 |770..(X.ME$(I)."|
00002000: 53 22 3A 8B 50 41 B2 55 4D AA 32 39 39 A7 4D 45 |S":.PA.UM.299.ME|
00002010: 24 28 49 29 B2 22 52 22 00 29 28 62 07 45 24 28 |$(I)."R".)(b.E$(|
00002020: 49 29 B2 4D 45 24 28 49 29 00 2F 28 6C 07 82 00 |I).ME$(I)./(l...|
00002030: 45 28 76 07 56 50 B2 31 30 3A 48 50 B2 31 38 3A |E(v.VP.10:HP.18:|
00002040: 53 45 58 B2 31 00 4F 28 80 07 8D 32 37 33 30 00 |SEX.1.O(...2730.|
00002050: 59 28 8A 07 8D 32 32 32 30 00 62 28 9E 07 8D 38 |Y(...2220.b(...8|
00002060: 33 35 00 92 28 A8 07 99 22 93 22 3B 3A 97 55 54 |35..(...".";:.UT|
00002070: 2C 55 55 25 3A 99 A3 31 30 29 22 12 46 41 54 48 |,UU%:..10)".FATH|
00002080: 45 52 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D 4F 54 48 45 |ER.........MOTHE|
00002090: 52 22 00 A7 28 B2 07 56 50 B2 31 3A 48 50 B2 31 |R"..(..VP.1:HP.1|
000020A0: 31 3A 53 45 58 B2 32 00 CE 28 BC 07 81 49 B2 31 |1:SEX.2..(...I.1|
000020B0: A4 32 3A 48 24 28 49 29 B2 46 48 24 28 49 29 3A |.2:H$(I).FH$(I):|
000020C0: 45 24 28 49 29 B2 46 45 24 28 49 29 3A 82 00 D8 |E$(I).FE$(I):...|
000020D0: 28 C6 07 8D 32 37 33 30 00 E2 28 D0 07 8D 32 32 |(...2730..(...22|
000020E0: 32 30 00 F7 28 DA 07 56 50 B2 31 3A 48 50 B2 32 |20..(..VP.1:HP.2|
000020F0: 36 3A 53 45 58 B2 31 00 1E 29 E4 07 81 49 B2 31 |6:SEX.1..)...I.1|
00002100: A4 32 3A 48 24 28 49 29 B2 4D 48 24 28 49 29 3A |.2:H$(I).MH$(I):|
00002110: 45 24 28 49 29 B2 4D 45 24 28 49 29 3A 82 00 28 |E$(I).ME$(I):..(|
00002120: 29 EE 07 8D 32 37 33 30 00 32 29 F8 07 8D 32 32 |)...2730.2)...22|
00002130: 32 30 00 42 29 02 08 8F 20 4F 46 46 53 50 52 49 |20.B)... OFFSPRI|
00002140: 4E 47 00 54 29 0C 08 81 49 B2 31 A4 33 3A 81 4A |NG.T)...I.1.3:.J|
00002150: B2 30 A4 37 00 68 29 16 08 56 50 B2 31 AA 35 AC |.0.7.h)..VP.1.5.|
00002160: 49 3A 48 50 B2 35 AC 4A 00 8E 29 20 08 48 24 28 |I:HP.5.J..) .H$(|
00002170: 31 29 B2 46 48 24 28 A5 52 28 31 29 29 3A 48 24 |1).FH$(.R(1)):H$|
00002180: 28 32 29 B2 4D 48 24 28 A5 52 28 31 29 29 00 B4 |(2).MH$(.R(1))..|
00002190: 29 2A 08 45 24 28 31 29 B2 46 45 24 28 A5 52 28 |)*.E$(1).FE$(.R(|
000021A0: 31 29 29 3A 45 24 28 32 29 B2 4D 45 24 28 A5 52 |1)):E$(2).ME$(.R|
000021B0: 28 31 29 29 00 DB 29 34 08 48 43 B2 31 3A 8B 28 |(1))..)4.HC.1:.(|
000021C0: 48 24 28 31 29 B2 22 47 22 29 AF 28 48 24 28 32 |H$(1)."G").(H$(2|
000021D0: 29 B2 22 47 22 29 A7 48 43 B2 32 00 02 2A 3E 08 |)."G").HC.2..*>.|
000021E0: 45 43 B2 31 3A 8B 28 45 24 28 31 29 B2 22 53 22 |EC.1:.(E$(1)."S"|
000021F0: 29 AF 28 45 24 28 32 29 B2 22 53 22 29 A7 45 43 |).(E$(2)."S").EC|
00002200: B2 32 00 10 2A 48 08 53 45 58 B2 A5 52 28 31 29 |.2..*H.SEX..R(1)|
00002210: 00 1A 2A 52 08 8D 32 32 32 30 00 23 2A 5C 08 82 |..*R..2220.#*\..|
00002220: 4A 2C 49 00 5B 2A 66 08 99 22 11 12 50 52 45 53 |J,I.[*f.."..PRES|
00002230: 53 20 92 45 12 4E 44 2C 20 92 4E 12 45 57 20 50 |S .E.ND, .N.EW P|
00002240: 41 52 45 4E 54 53 20 4F 52 20 92 4D 12 4F 52 45 |ARENTS OR .M.ORE|
00002250: 20 4F 46 46 53 50 52 49 4E 47 22 00 7E 2A 6B 08 | OFFSPRING".~*k.|
00002260: 99 22 20 20 20 20 20 20 20 20 20 20 20 45 4E 54 |." ENT|
00002270: 45 52 20 4F 50 54 49 4F 4E 20 3F 20 22 3B 00 9D |ER OPTION ? ";..|
00002280: 2A 70 08 55 53 24 B2 22 45 4E 4D 22 3A 55 4C B2 |*p.US$."ENM":UL.|
00002290: 31 3A 8D 33 35 3A 5A 5A 24 B2 55 52 24 00 AF 2A |1:.35:ZZ$.UR$..*|
000022A0: 7A 08 8B 5A 5A 24 B2 22 4E 22 A7 31 32 33 30 00 |z..ZZ$."N".1230.|
000022B0: C1 2A 84 08 8B 5A 5A 24 B2 22 4D 22 A7 31 39 36 |.*...ZZ$."M".196|
000022C0: 30 00 C7 2A 8E 08 8E 00 EA 2A A2 08 8F 20 44 52 |0..*.....*... DR|
000022D0: 41 57 20 46 41 43 45 2A 2A 2A 2A 2A 2A 2A 2A 2A |AW FACE*********|
000022E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FC 2A AC 08 99 |**********..*...|
000022F0: C8 28 56 54 24 2C 56 50 AA 31 29 3B 00 0C 2B B6 |.(VT$,VP.1);..+.|
00002300: 08 99 C8 28 48 54 24 2C 48 50 29 3B 00 21 2B C0 |...(HT$,HP);.!+.|
00002310: 08 99 48 41 24 28 48 43 29 22 9D 9D 9D 9D 11 22 |..HA$(HC)"....."|
00002320: 3B 00 36 2B CA 08 99 45 59 24 28 45 43 29 22 9D |;.6+...EY$(EC)".|
00002330: 9D 9D 9D 11 22 3B 00 56 2B D4 08 99 4E 4F 24 22 |....";.V+...NO$"|
00002340: 9D 9D 9D 9D 11 22 43 48 24 28 53 45 58 29 22 9D |....."CH$(SEX)".|
00002350: 9D 9D 9D 11 22 3B 00 76 2B DE 08 99 22 12 22 48 |....";.v+..."."H|
00002360: 24 28 31 29 48 24 28 32 29 45 24 28 31 29 45 24 |$(1)H$(2)E$(1)E$|
00002370: 28 32 29 22 92 22 00 7C 2B E8 08 8E 00 A5 2B F2 |(2)".".|+.....+.|
00002380: 08 99 22 93 22 3A 81 49 B2 55 4D A4 55 4D AA 33 |..".":.I.UM.UM.3|
00002390: 39 3A 97 49 2C 32 32 34 3A 97 49 AA 39 36 30 2C |9:.I,224:.I.960,|
000023A0: 32 32 34 3A 82 00 CF 2B FC 08 81 49 B2 55 4D AA |224:...+...I.UM.|
000023B0: 34 30 A4 55 4D AA 39 32 30 A9 34 30 3A 97 49 2C |40.UM.920.40:.I,|
000023C0: 32 32 34 3A 97 49 AA 33 39 2C 32 32 34 3A 82 00 |224:.I.39,224:..|
000023D0: DC 2B 06 09 99 22 13 11 11 11 11 22 00 F4 2B 10 |.+..."....."..+.|
000023E0: 09 99 A3 39 29 22 20 20 CF A3 20 A4 A7 20 20 20 |...9)" .. .. |
000023F0: 20 20 20 CC 00 10 2C 1A 09 99 A3 39 29 22 20 20 | ...,....9)" |
00002400: CC A4 BA BA BA BA BA BA CD CE CC CC CC CC CE CD |................|
00002410: 00 30 2C 24 09 99 22 13 11 11 11 11 11 11 11 11 |.0,$..".........|
00002420: 11 11 22 A3 31 36 29 22 12 46 41 4D 49 4C 59 22 |..".16)".FAMILY"|
00002430: 00 56 2C 2E 09 99 22 13 11 11 11 11 11 11 11 11 |.V,...".........|
00002440: 11 11 11 11 22 A3 32 35 29 22 41 4E 44 59 20 47 |....".25)"ANDY G|
00002450: 41 4D 42 4C 45 22 00 6C 2C 38 09 99 22 11 11 11 |AMBLE".l,8.."...|
00002460: 11 11 11 11 22 3B 3A 8D 32 37 30 30 00 76 2C 42 |....";:.2700.v,B|
00002470: 09 89 31 30 38 30 00 7F 2C 4C 09 8D 38 35 30 00 |..1080..,L..850.|
00002480: C8 2C 56 09 99 22 54 48 49 53 20 50 52 4F 47 52 |.,V.."THIS PROGR|
00002490: 41 4D 20 53 48 4F 57 53 20 59 4F 55 20 41 20 54 |AM SHOWS YOU A T|
000024A0: 59 50 49 43 41 4C 20 46 41 4D 49 4C 59 20 4F 46 |YPICAL FAMILY OF|
000024B0: 20 4D 41 52 54 49 41 4E 53 3A 20 54 57 4F 20 50 | MARTIANS: TWO P|
000024C0: 41 52 45 4E 54 53 22 3B 00 D6 2C 60 09 99 22 20 |ARENTS";..,`.." |
000024D0: 41 4E 44 20 22 3B 00 0E 2D 6A 09 99 22 54 48 45 |AND ";..-j.."THE|
000024E0: 49 52 20 32 31 20 20 20 43 48 49 4C 44 52 45 4E |IR 21 CHILDREN|
000024F0: 2E 20 59 4F 55 20 43 41 4E 20 54 45 4C 4C 20 54 |. YOU CAN TELL T|
00002500: 48 45 20 44 49 46 46 45 52 45 4E 43 45 22 00 28 |HE DIFFERENCE".(|
00002510: 2D 74 09 99 22 42 45 54 57 45 45 4E 20 4D 41 4C |-t.."BETWEEN MAL|
00002520: 45 20 41 4E 44 20 22 3B 00 69 2D 7E 09 99 22 46 |E AND ";.i-~.."F|
00002530: 45 4D 41 4C 45 20 4D 41 52 54 49 41 4E 53 20 56 |EMALE MARTIANS V|
00002540: 45 52 59 20 20 20 45 41 53 49 4C 59 2E 20 4D 41 |ERY EASILY. MA|
00002550: 4C 45 53 20 48 41 56 45 20 53 51 55 41 52 45 20 |LES HAVE SQUARE |
00002560: 4A 41 57 53 20 41 4E 44 22 00 7F 2D 88 09 99 22 |JAWS AND"..-..."|
00002570: 46 45 4D 41 4C 45 53 20 48 41 56 45 20 22 3B 00 |FEMALES HAVE ";.|
00002580: C8 2D 92 09 99 22 52 4F 55 4E 44 20 4F 4E 45 53 |.-..."ROUND ONES|
00002590: 2E 20 4F 54 48 45 52 20 54 48 41 4E 20 54 48 41 |. OTHER THAN THA|
000025A0: 54 54 48 45 59 20 48 41 56 45 20 57 48 49 54 45 |TTHEY HAVE WHITE|
000025B0: 20 4F 52 20 47 52 41 59 20 48 41 49 52 2C 20 41 | OR GRAY HAIR, A|
000025C0: 4E 44 20 52 4F 55 4E 44 00 F4 2D 9C 09 99 22 4F |ND ROUND..-..."O|
000025D0: 52 20 20 20 53 4C 41 4E 54 45 44 20 45 59 45 53 |R SLANTED EYES|
000025E0: 2E 20 54 48 45 53 45 20 54 52 41 49 54 53 20 41 |. THESE TRAITS A|
000025F0: 52 45 22 3B 00 22 2E A6 09 99 22 20 20 20 20 20 |RE";."...." |
00002600: 43 4F 4E 54 52 4F 4C 4C 45 44 20 42 59 20 47 45 |CONTROLLED BY GE|
00002610: 4E 45 53 20 57 20 41 4E 44 20 47 20 46 4F 52 20 |NES W AND G FOR |
00002620: 22 3B 00 6B 2E B0 09 99 22 54 48 45 20 48 41 49 |";.k...."THE HAI|
00002630: 52 41 4E 44 20 52 20 41 4E 44 20 53 20 46 4F 52 |RAND R AND S FOR|
00002640: 20 54 48 45 20 45 59 45 53 2E 20 57 20 49 53 20 | THE EYES. W IS |
00002650: 44 4F 4D 49 4E 41 4E 54 20 4F 56 45 52 20 47 20 |DOMINANT OVER G |
00002660: 41 4E 44 20 52 20 49 53 20 22 3B 00 A4 2E BA 09 |AND R IS ";.....|
00002670: 99 22 44 4F 4D 49 4E 41 4E 54 20 4F 56 45 52 20 |."DOMINANT OVER |
00002680: 53 2E 20 48 45 52 45 20 20 20 41 52 45 20 54 57 |S. HERE ARE TW|
00002690: 4F 20 54 59 50 49 43 41 4C 20 4D 41 52 54 49 41 |O TYPICAL MARTIA|
000026A0: 4E 53 3A 22 00 EC 2E C4 09 56 50 B2 31 37 3A 48 |NS:".....VP.17:H|
000026B0: 50 B2 31 35 3A 53 45 58 B2 31 3A 48 24 28 31 29 |P.15:SEX.1:H$(1)|
000026C0: B2 22 47 22 3A 48 24 28 32 29 B2 22 57 22 3A 45 |."G":H$(2)."W":E|
000026D0: 24 28 31 29 B2 22 52 22 3A 45 24 28 32 29 B2 22 |$(1)."R":E$(2)."|
000026E0: 53 22 3A 45 43 B2 31 3A 48 43 B2 31 00 F6 2E CE |S":EC.1:HC.1....|
000026F0: 09 8D 32 32 32 30 00 3E 2F D8 09 56 50 B2 31 37 |..2220.>/..VP.17|
00002700: 3A 48 50 B2 32 32 3A 53 45 58 B2 32 3A 48 24 28 |:HP.22:SEX.2:H$(|
00002710: 31 29 B2 22 47 22 3A 48 24 28 32 29 B2 22 47 22 |1)."G":H$(2)."G"|
00002720: 3A 45 24 28 31 29 B2 22 53 22 3A 45 24 28 32 29 |:E$(1)."S":E$(2)|
00002730: B2 22 53 22 3A 45 43 B2 32 3A 48 43 B2 32 00 4E |."S":EC.2:HC.2.N|
00002740: 2F E2 09 8D 32 32 32 30 3A 99 22 11 22 3B 00 5C |/...2220:.".";.\|
00002750: 2F EC 09 8D 38 33 35 3A 8D 38 35 30 00 8B 2F F6 |/...835:.850../.|
00002760: 09 99 22 11 11 59 4F 55 20 4D 41 59 20 43 48 4F |.."..YOU MAY CHO|
00002770: 4F 53 45 20 54 48 45 20 47 45 4E 45 53 20 46 4F |OSE THE GENES FO|
00002780: 52 20 54 48 45 20 48 41 49 52 22 00 B6 2F 00 0A |R THE HAIR"../..|
00002790: 99 22 41 4E 44 20 45 59 45 53 20 4F 46 20 42 4F |."AND EYES OF BO|
000027A0: 54 48 20 54 48 45 20 4D 4F 54 48 45 52 20 41 4E |TH THE MOTHER AN|
000027B0: 44 20 54 48 45 22 00 E2 2F 0A 0A 99 22 46 41 54 |D THE"../..."FAT|
000027C0: 48 45 52 20 57 48 45 4E 20 54 48 45 20 50 52 4F |HER WHEN THE PRO|
000027D0: 47 52 41 4D 20 52 45 51 55 45 53 54 53 20 49 54 |GRAM REQUESTS IT|
000027E0: 2C 22 00 0D 30 14 0A 99 22 42 59 20 43 48 4F 4F |,"..0..."BY CHOO|
000027F0: 53 49 4E 47 20 20 54 57 4F 20 47 45 4E 45 53 20 |SING TWO GENES |
00002800: 53 55 43 48 20 41 53 20 27 47 47 27 22 00 39 30 |SUCH AS 'GG'".90|
00002810: 1E 0A 99 22 4F 52 20 27 52 52 27 20 2D 20 57 48 |..."OR 'RR' - WH|
00002820: 41 54 45 56 45 52 20 59 4F 55 20 4C 49 4B 45 2E |ATEVER YOU LIKE.|
00002830: 20 59 4F 55 20 43 41 4E 22 00 60 30 28 0A 99 22 | YOU CAN".`0(.."|
00002840: 41 4C 53 4F 20 4C 45 54 20 54 48 45 20 50 52 4F |ALSO LET THE PRO|
00002850: 47 52 41 4D 20 43 48 4F 4F 53 45 20 54 48 45 22 |GRAM CHOOSE THE"|
00002860: 00 80 30 32 0A 99 22 50 41 52 45 4E 54 53 27 20 |..02.."PARENTS' |
00002870: 47 45 4E 45 53 20 52 41 4E 44 4F 4D 4C 59 2E 22 |GENES RANDOMLY."|
00002880: 00 AF 30 3C 0A 99 22 11 41 46 54 45 52 20 59 4F |..0<..".AFTER YO|
00002890: 55 20 41 52 45 20 53 48 4F 57 4E 20 54 48 45 20 |U ARE SHOWN THE |
000028A0: 4F 46 46 53 50 52 49 4E 47 2C 20 59 4F 55 22 00 |OFFSPRING, YOU".|
000028B0: DE 30 46 0A 99 22 57 49 4C 4C 20 48 41 56 45 20 |.0F.."WILL HAVE |
000028C0: 41 20 43 48 4F 49 43 45 20 41 53 20 54 4F 20 4D |A CHOICE AS TO M|
000028D0: 4F 52 45 20 4F 46 46 53 50 52 49 4E 47 22 00 0D |ORE OFFSPRING"..|
000028E0: 31 50 0A 99 22 42 59 20 54 48 45 20 53 41 4D 45 |1P.."BY THE SAME|
000028F0: 20 50 41 52 45 4E 54 53 2C 20 44 49 46 46 45 52 | PARENTS, DIFFER|
00002900: 45 4E 54 20 50 41 52 45 4E 54 53 2C 22 00 2B 31 |ENT PARENTS,".+1|
00002910: 5A 0A 99 22 4F 52 20 45 4E 44 49 4E 47 20 54 48 |Z.."OR ENDING TH|
00002920: 45 20 50 52 4F 47 52 41 4D 2E 22 00 4D 31 64 0A |E PROGRAM.".M1d.|
00002930: 99 22 11 11 22 A3 31 31 29 22 48 41 50 50 59 20 |."..".11)"HAPPY |
00002940: 50 52 4F 43 52 45 41 54 49 4F 4E 21 22 00 58 31 |PROCREATION!".X1|
00002950: 6E 0A 8D 38 33 35 3A 8E 00 79 31 82 0A 8F 20 47 |n..835:..y1... G|
00002960: 45 54 2D 43 4F 4E 54 2A 2A 2A 2A 2A 2A 2A 2A 2A |ET-CONT*********|
00002970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 31 8C 0A 99 A3 |*********..1....|
00002980: 38 29 22 12 50 52 45 53 53 20 41 4E 59 20 4B 45 |8)".PRESS ANY KE|
00002990: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 B4 |Y TO CONTINUE"..|
000029A0: 31 96 0A A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 |1...ZZ$:.ZZ$."".|
000029B0: 32 37 31 30 00 BA 31 A0 0A 8E 00 E1 31 AA 0A 48 |2710..1.....1..H|
000029C0: 43 B2 31 3A 8B 28 48 24 28 31 29 B2 22 47 22 29 |C.1:.(H$(1)."G")|
000029D0: AF 28 48 24 28 32 29 B2 22 47 22 29 A7 48 43 B2 |.(H$(2)."G").HC.|
000029E0: 32 00 08 32 B4 0A 45 43 B2 31 3A 8B 28 45 24 28 |2..2..EC.1:.(E$(|
000029F0: 31 29 B2 22 53 22 29 AF 28 45 24 28 32 29 B2 22 |1)."S").(E$(2)."|
00002A00: 53 22 29 A7 45 43 B2 32 00 0E 32 BE 0A 8E 00 30 |S").EC.2..2....0|
00002A10: 32 C8 0A 8F 20 43 48 4F 4F 53 45 20 47 45 4E 45 |2... CHOOSE GENE|
00002A20: 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S***************|
00002A30: 00 3A 32 D2 0A 8D 32 37 31 30 00 69 32 DC 0A 8B |.:2...2710.i2...|
00002A40: 5A 5A 24 B2 22 3C 22 AF 50 41 B2 55 4D AA 33 30 |ZZ$."<".PA.UM.30|
00002A50: 30 A7 97 50 41 2C 33 32 3A 50 41 B2 55 4D AA 32 |0..PA,32:PA.UM.2|
00002A60: 39 39 3A 97 50 41 2C 33 30 00 98 32 E6 0A 8B 5A |99:.PA,30..2...Z|
00002A70: 5A 24 B2 22 3E 22 AF 50 41 B2 55 4D AA 32 39 39 |Z$.">".PA.UM.299|
00002A80: A7 97 50 41 2C 33 32 3A 50 41 B2 55 4D AA 33 30 |..PA,32:PA.UM.30|
00002A90: 30 3A 97 50 41 2C 33 30 00 AD 32 F0 0A 8B 5A 5A |0:.PA,30..2...ZZ|
00002AA0: 24 B3 B1 C7 28 31 33 29 A7 32 37 37 30 00 B3 32 |$...(13).2770..2|
00002AB0: FA 0A 8E 00 C1 32 04 0B 8F 20 4D 45 53 53 41 47 |.....2... MESSAG|
00002AC0: 45 00 EE 32 0E 0B 99 C8 28 56 54 24 2C 31 37 29 |E..2....(VT$,17)|
00002AD0: 3B 22 20 20 20 20 50 52 45 53 53 20 27 3C 27 20 |;" PRESS '<' |
00002AE0: 54 4F 20 4D 4F 56 45 20 4C 45 46 54 20 22 00 1B |TO MOVE LEFT "..|
00002AF0: 33 13 0B 99 C8 28 56 54 24 2C 31 39 29 3B 22 20 |3....(VT$,19);" |
00002B00: 20 20 20 50 52 45 53 53 20 27 3E 27 20 54 4F 20 | PRESS '>' TO |
00002B10: 4D 4F 56 45 20 52 49 47 48 54 22 00 51 33 18 0B |MOVE RIGHT".Q3..|
00002B20: 99 C8 28 56 54 24 2C 32 31 29 3B 22 20 20 20 20 |..(VT$,21);" |
00002B30: 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 57 49 |PRESS RETURN TWI|
00002B40: 43 45 20 57 48 45 4E 20 47 45 4E 45 20 49 53 20 |CE WHEN GENE IS |
00002B50: 22 00 67 33 1D 0B 99 22 20 20 20 20 43 48 4F 4F |".g3..." CHOO|
00002B60: 53 45 4E 2E 22 3A 8E 00 9F 33 22 0B 99 C8 28 56 |SEN.":...3"...(V|
00002B70: 54 24 2C 31 39 29 3B 22 20 20 20 20 20 20 20 20 |T$,19);" |
00002B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00002BA0: D9 33 2C 0B 99 C8 28 56 54 24 2C 32 30 29 3B 22 |.3,...(VT$,20);"|
00002BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002BD0: 20 20 20 20 20 20 22 3A 8E 00 00 00 | ":.... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:.Z...:...#.. +++ INPUT SECTI
ON +++...(.UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UL%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UJ.UL."...UJ$.US$:UK$.UG$:U
J.UP:UK.UL.(.....9.,.. ** MENU **.?.-.:.
N....".":.UT,UU%:.B(50003).0..53281,9:.5
3280,8.T./.:...1..". MENU
"...6.." -------------------------------
-------"...;..".. 1. FAMILY"...@
..".. 2. STUDENT INSTRUCTIONS".0
.E..".. 3. TEACHER INSTRUCTIONS"
.L.O..".. 4. QUIT..".{.T.." ----
----------------------------------"...Y.
.".. PRESS A NUMBER KEY (1-4) ";.N
.^.UL.1:US$."1234":.35:. INPUT ROUTINE..
._..C(UR$).1.300...`.US$.""...C..E(UR$).
1000,400,500,396...H..300.8.... ** RE-EN
ABLE STOP KEY AND END **.G....B(50003)..
1.B(50003)..160.B(50003)..0.399......UU.
71:.B(50003).0..53281,6:.53280,14......"
..":.......875:..I.... ** STUDENT INSTRU
CTIONS **......".":.UT,UU%:.B(50003).0..
53281,0:.53280,0.....UP.0:UG$."STUDENT I
NST":.850.J...: .".... REMEMBER TO H
IT <RETURN> AFTER".V...: ." TYPING YO
UR ANSWER. THIS TELLS"... .: ." THE C
OMPUTER TO ACCEPT WHAT YOU".....: ."
HAVE TYPED..".....: ." TYPE <H> AT A
NY TIME TO RETURN".....: ." TO THE ME
NU FOR HELP. YOU WILL".D...: ." BE R
ETURNED TO THE PLACE IN THE".O...: ."
PROGRAM WHERE YOU LEFT OFF AS".....: .
" SOON AS THE OPTION FROM THE MENU"...
..: ." IS COMPLETE.".F....835:.1070.Z
....UZ.1..UP%:.217............ ** TEACHE
R INSTRUCTIONS **.1....".":.UT,UL%:.B(50
003).0..53281,2:.53280,10.A...UT$." FAMI
LY":UP.0:UG$."TEACHER INST.":.850......"
.. TO THE BEST OF OUR KNOWLEDGE,.".
....." THIS PROGRAM IS IN THE PUBLIC."
......" DOMAIN. IF THIS IS NOT THE CA
SE."......" PLEASE CONTACT:...".+...."
COMMODORE BUSINESS MACHINES.".N...
." 3370 PHARMACY AVE..R...."
AGINCOURT, ONTARIO"......"
CANADA M1W 2K4"......" (41
6) 499-4292".J...UP.1:. 835:. 850:......
" ..PROGRAM NAME: FAMILY......."
WRITTEN BY : ANDY GABLE..:...." UP
GRADED BY : ARMAND AIELLO..E...." .T
HIS PROGRAM WILL RUN ON ANY........"
PET 64 COMPUTER......." COM
MODORE 64 COMPUTER.....: .835:.850...!.
: ."... THIS PROGRAM DISPLAYS 21 OF
F-"...".: .". SPRING OF TWO PARENTS.
THE GENES".G.#.: .". OF THE PARENTS
CAN BE CREATED".Z.$.: .". RANDOMLY OR
BY THE STUDENT'S CHOICE."...D.: .835 :
UT$." FAMILY"...N..UZ.1..UP%:.217...W...
U.X.. ** PROGRAM MODIFICATION INST **...
Y..".":.UT,UL%...].UP.0:UG$."PROGRAM MOD
":.850......835.#....UZ.1..UP%:.217.)...
..N.... ** TO USE 8032 LOAD CBM4032 **..
.F..".....BEFORE RUNNING THIS PROGRAM ON
AN 8032 .....P.." LOAD THE 'CBM 4
032' PROGRAM.............".E.Z..UU.71.K.
...... .. ** T I T L E P A G E **...".
."....";:.UT,UU%:.B(50003).0..53280,14:.
53281,6.5.$..I.1.38:."...";:..M.&..I.1.2
2:.".....";:..E.(..I.1.37:.".....";:..}.
*..I.1.22:.".....";:....,.."............
............... ..D...."...............
.... . . .....0.."................... .
......2..".................... ..+.4.
."..............C O M M O D O R E...N.6.
."...............EDUCATIONAL...M.8.."...
.............SOFTWARE...:.. ** COMMODORE
LOGO **...;..H(UD$,24);"..........PRESS
SPACE BAR OR WAIT.":I.0...<..A$:.A$.."
".I.I.1:.I.250.828...>.T1$."":T2$."":T3$
."":T4$."":I.0...@..300.+.C.. ** SPACE B
AR PRESS **.`.H..H(UD$,24);".......PRESS
SPACE BAR TO CONTINUE.".W.L..UI$:.UI$..
" ".844.}.N.....R.. ** PAGE DESIGN ROUTI
NE **...T.UP.UP.1.P.W.."."H(UT$.UP$,21);
H(UG$.UP$,14);UP...\.." ----------------
----------------------".3.A..H(UD$,24);H
(UP$,6);"HELP - PRESS H <RETURN>".?.F.
."..":..^.K.. ** PLEASE WAIT REMARK **..
.P..H(UD$,24);" ONE MOMENT PLE
ASE... "...U........ ** SET UP VARIA
BLES **.....UX$."H":.UQ%(1000):UB.32768:
U1.196:U2.197:U3.198:U4.216:UC.167:UU.10
24.9...UT.59468:UU%.12:UL%.14:UP%.1146:U
M.32768:. 50003,0.|....B(50003).0.UB.102
4:U1.209:U2.210:U3.211:U4.214:UC.204:UU.
2048......B(50003).0.UT.53272:UU%.21:UL%
.23:UP%.2139:UM.1024.X...UD$."..........
...............".....UP$."
".?...: UT$."
FAMILY ":. PLACE PROGRAM TITLE HERE!!.
E....._.... ** SET VARIABLES **.H....900
......R(X)..(2..(1).1)...... ** CHECK F
OR 8032 **......".":." ":. SHIFTED SPACE
.O....B(UB.40)..96..700...... ** MEMORY
CHECK **...... .(0).2000.937.*...."....T
HIS MACHINE DOES NOT HAVE ENOUGH.".N....
"MEMORY TO RUN THIS PROGRAM !".Y....UU.7
1._.....Y...."..":.B(50003).0.962......
** BASIC 2.0 OR 4.0 OR C-64 SETUP **
......1075,133:.1076,144:.1077,234:.1079
,4:.1080,133:.1081,145......1091,155:.10
98,133:.1099,144:.1100,234:.1103,133.>..
..1104,145:.1105,234:.1082,234.U....B(50
003)..160.955......1093,88:.1094,228:.10
97,85:.1102,228:.965......B(50003)..1.99
0.H....1093,49:.1094,230:.1097,46:.1102,
230:.965.. B..2099,141:.2100,20:.2101,3:
.2103,8:.2104,141:.2105,21.> C..2106,3:.
2115,145:.2117,52:.2118,234:.2121,49:.21
22,141.X D..2123,20:.2124,3:.2126,234:.2
127,141:.2128,21:.2129,3.. E..UU.48:. DI
SABLE STOP KEY.. J..800:. TITLE.. T..300
:. MENU.. ...".THE PGM WILL NOT WORK ON
THIS MACHINE!":...!...UZ.1..UP%:.UP%:UZ.
0:. ** PROGRAM STARTS HERE **.I!..."..";
:.:.B(50003).0..53281,6:.53280,14.V!...
FAMILY.Q!... ANDY GAMBLE MARCH 81..!...
COLUMBIA COLLEGE, 1619 W10 AVE..!... VAN
COUVER BC V6J 2A2.V!... IDEA FROM "GENEP
OOL" CC FEB 81..!$.. GOTO2290.."... HP<=
35,VP<=19:RESTORE.&"8.VT$.".............
.............".Y"B.HT$."................
........................................
................".."L.X..(..(0)).."`.NO$
."....".."J.CH$(1)."J..K":. FEM.H"T.CH$(
2)."....":. MALE.Z"~.EY$(1)."....".."..E
Y$(2).".IU.".."..HA$(1)."U..I"..#..HA$(2
)."U..I".)#... W OVER G, R OVER S.@#D..H
(UR$,1)."2".2380.U#N.UP.0:UG$."":.850..#
X.."......... ARE THE GENES FOR THE P
ARENTS TO"..#...". BE CHOOSEN RANDOML
Y (Y/N) ? ";.T#..US$."YNH":UL.1:.35:ZZ$
.UR$..#...H(ZZ$,1)."N".1370..$...H(ZZ$,1
).."Y".1240..$... RANDOM.:$...I.1.2:FE$(
I)."R":..(1)..5.FE$(I)."S".]$..FH$(I)."W
":..(1)..5.FH$(I)."G".C$(....$2..I.1.2:M
E$(I)."R":..(1)..5.ME$(I)."S"..$<.MH$(I)
."W":..(1)..5.MH$(I)."G"..$F....$P..1960
.S$Z.PA.UM.299:.850..$D..".. CHOOSE GENE
S FOR FATHER'S HAIR:"..%N..".".19)".WG".
%%X.E$(1)."":E$(2).""./%...2830.:%...PA,
30.E%...I.1.2.O% ..2770.T%..FH$(I)."G":.
PA.UM.299.FH$(I)."W"..%..H$(I).FH$(I)..%
.....%H.VP.10:HP.18:SEX.2..%R..2730..%..
.2220.C%...835:.850..%...".. CHOOSE GENE
S FOR FATHER'S EYES:"..%...".".19)".RS".
.&...2830..&...PA,30..&"..I.1.2.)&,..277
0.N&6.FE$(I)."S":.PA.UM.299.FE$(I)."R"._
&@.E$(I).FE$(I).E&J...{&T.VP.10:HP.18:SE
X.2..&^..2730..&H..2220..&|..835:.850.G&
...".. CHOOSE GENES FOR MOTHER'S HAIR:".
Y&...".".19)".WG"..&...2830..&..E$(1).""
:E$(2).""..'...PA,30..'...I.1.2..'B..277
0.>'L.MH$(I)."G":.PA.UM.299.MH$(I)."W".O
'V.H$(I).MH$(I).U'....K'..VP.10:HP.18:SE
X.1.U'...2730.'...2220..'...835:.850..'
...".. CHOOSE GENES FOR MOTHER'S EYES:".
I'&..".".19)".RS".S'0..2830..':..PA,30..
'D..I.1.2..'N..2770..(X.ME$(I)."S":.PA.U
M.299.ME$(I)."R".)(B.E$(I).ME$(I)./(L...
E(V.VP.10:HP.18:SEX.1.O(...2730.Y(...222
0.B(...835..(...".";:.UT,UU%:..10)".FATH
ER.........MOTHER"..(..VP.1:HP.11:SEX.2.
N(...I.1.2:H$(I).FH$(I):E$(I).FE$(I):..X
(F..2730..(P..2220..(Z.VP.1:HP.26:SEX.1.
.)...I.1.2:H$(I).MH$(I):E$(I).ME$(I):..(
)...2730.2)...2220.B)... OFFSPRING.T)...
I.1.3:.J.0.7.H)..VP.1.5.I:HP.5.J..) .H$(
1).FH$(.R(1)):H$(2).MH$(.R(1))..)*.E$(1)
.FE$(.R(1)):E$(2).ME$(.R(1))..)4.HC.1:.(
H$(1)."G").(H$(2)."G").HC.2..*>.EC.1:.(E
$(1)."S").(E$(2)."S").EC.2..*H.SEX..R(1)
..*R..2220.#*\..J,I.[*F.."..PRESS .E.ND,
.N.EW PARENTS OR .M.ORE OFFSPRING".~*K.
." ENTER OPTION ? ";..*P.US$."
ENM":UL.1:.35:ZZ$.UR$..*Z..ZZ$."N".1230.
A*...ZZ$."M".1960.G*.....*... DRAW FACE*
******************..*...H(VT$,VP.1);..+.
..H(HT$,HP);.!+...HA$(HC)".....";.6+J..E
Y$(EC)".....";.V+T..NO$"....."CH$(SEX)".
....";.V+..."."H$(1)H$(2)E$(1)E$(2)".".|
+.....+...".":.I.UM.UM.39:.I,224:.I.960,
224:..O+...I.UM.40.UM.920.40:.I,224:.I.3
9,224:...+..."....."..+....9)" O. ..
L..,....9)" L.......MNLLLLNM.0,$..".
..........".16)".FAMILY".V,...".........
....".25)"ANDY GAMBLE".L,8..".......";:.
2700.V,B..1080.,L..850.H,V.."THIS PROGR
AM SHOWS YOU A TYPICAL FAMILY OF MARTIAN
S: TWO PARENTS";.V,`.." AND ";..-J.."THE
IR 21 CHILDREN. YOU CAN TELL THE DIFFE
RENCE".(-T.."BETWEEN MALE AND ";.I-~.."F
EMALE MARTIANS VERY EASILY. MALES HAVE
SQUARE JAWS AND".-..."FEMALES HAVE ";.
H-..."ROUND ONES. OTHER THAN THATTHEY HA
VE WHITE OR GRAY HAIR, AND ROUND..-..."O
R SLANTED EYES. THESE TRAITS ARE";."..
.." CONTROLLED BY GENES W AND G FOR
";.K...."THE HAIRAND R AND S FOR THE EYE
S. W IS DOMINANT OVER G AND R IS ";.....
."DOMINANT OVER S. HERE ARE TWO TYPICA
L MARTIANS:"...D.VP.17:HP.15:SEX.1:H$(1)
."G":H$(2)."W":E$(1)."R":E$(2)."S":EC.1:
HC.1...N..2220.>/X.VP.17:HP.22:SEX.2:H$(
1)."G":H$(2)."G":E$(1)."S":E$(2)."S":EC.
2:HC.2.N/...2220:.".";.\/...835:.850../.
.."..YOU MAY CHOOSE THE GENES FOR THE HA
IR"../..."AND EYES OF BOTH THE MOTHER AN
D THE"../..."FATHER WHEN THE PROGRAM REQ
UESTS IT,"..0..."BY CHOOSING TWO GENES
SUCH AS 'GG'".90..."OR 'RR' - WHATEVER Y
OU LIKE. YOU CAN".`0(.."ALSO LET THE PRO
GRAM CHOOSE THE"..02.."PARENTS' GENES RA
NDOMLY."..0<..".AFTER YOU ARE SHOWN THE
OFFSPRING, YOU"..0F.."WILL HAVE A CHOICE
AS TO MORE OFFSPRING"..1P.."BY THE SAME
PARENTS, DIFFERENT PARENTS,".+1Z.."OR E
NDING THE PROGRAM.".M1D.."..".11)"HAPPY
PROCREATION!".X1N..835:..Y1... GET-CONT*
*****************..1....8)".PRESS ANY KE
Y TO CONTINUE"..1...ZZ$:.ZZ$."".2710..1
....1..HC.1:.(H$(1)."G").(H$(2)."G").HC.
2..2..EC.1:.(E$(1)."S").(E$(2)."S").EC.2
..2....02H.. CHOOSE GENES***************
.:2R..2710.I2...ZZ$."<".PA.UM.300..PA,32
:PA.UM.299:.PA,30..2...ZZ$.">".PA.UM.299
..PA,32:PA.UM.300:.PA,30..2...ZZ$..G(13)
.2770..2....A2... MESSAGE..2...H(VT$,17)
;" PRESS '<' TO MOVE LEFT "..3...H(VT
$,19);" PRESS '>' TO MOVE RIGHT".Q3..
.H(VT$,21);" PRESS RETURN TWICE WHEN
GENE IS ".G3..." CHOOSEN.":...3"..H(V
T$,19);"
".Y3,..H(VT$,20);"
":....
> CLICK IMAGE PREVIEW FOR FULL MODAL