> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 50 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..$.P..*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 00 47 08 51 00 8F 2A 20 20 20 20 20 |****.G.Q..* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 2A 00 6A 08 52 00 8F 2A 20 20 | *.j.R..* |
00000050: 20 42 49 4F 20 43 4F 4D 50 41 54 41 42 49 4C 49 | BIO COMPATABILI|
00000060: 54 59 20 50 47 4D 20 20 20 2A 00 8D 08 53 00 8F |TY PGM *...S..|
00000070: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 B0 08 | *...|
00000090: 54 00 8F 2A 20 20 20 20 4F 52 49 47 49 4E 41 4C |T..* ORIGINAL|
000000A0: 20 43 4F 4E 43 45 50 54 20 42 59 20 20 20 20 2A | CONCEPT BY *|
000000B0: 00 D3 08 55 00 8F 2A 20 20 20 20 20 20 20 4A 4F |...U..* JO|
000000C0: 45 20 20 43 41 4E 4E 41 54 41 20 20 20 20 20 20 |E CANNATA |
000000D0: 20 20 2A 00 F6 08 56 00 8F 2A 20 20 20 20 20 20 | *...V..* |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 2A 00 19 09 57 00 8F 2A 20 20 20 | *...W..* |
00000100: 20 47 52 45 41 54 4C 59 20 49 4D 50 52 4F 56 45 | GREATLY IMPROVE|
00000110: 44 20 42 59 20 20 20 20 2A 00 3C 09 58 00 8F 2A |D BY *.<.X..*|
00000120: 20 20 20 20 20 20 28 54 48 41 54 20 20 41 4D 41 | (THAT AMA|
00000130: 5A 49 4E 27 29 20 20 20 20 20 20 2A 00 5F 09 59 |ZIN') *._.Y|
00000140: 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..* |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000160: 82 09 5A 00 8F 2A 20 20 20 20 4D 45 52 47 41 54 |..Z..* MERGAT|
00000170: 52 4F 49 44 20 4D 41 48 4F 4F 4E 45 59 20 20 20 |ROID MAHOONEY |
00000180: 20 2A 00 A5 09 5B 00 8F 2A 20 20 20 20 20 20 20 | *...[..* |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 2A 00 C8 09 5C 00 8F 2A 20 20 20 20 | *...\..* |
000001B0: 20 20 20 4A 55 4E 45 20 32 31 2C 20 31 39 38 31 | JUNE 21, 1981|
000001C0: 20 20 20 20 20 20 20 2A 00 EB 09 5D 00 8F 2A 20 | *...]..* |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 2A 00 0E 0A 5E 00 | *...^.|
000001F0: 8F 2A 20 20 20 20 20 20 20 20 56 45 52 53 49 4F |.* VERSIO|
00000200: 4E 20 32 2E 31 20 20 20 20 20 20 20 20 2A 00 31 |N 2.1 *.1|
00000210: 0A 5F 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 |._..* |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 2A 00 54 0A 60 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.T.`..*********|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 00 5A 0A 61 00 20 00 60 0A 62 00 20 |****.Z.a. .`.b. |
00000260: 00 66 0A 63 00 20 00 84 0A 6E 00 86 20 41 28 32 |.f.c. ...n.. A(2|
00000270: 34 29 2C 42 28 32 39 29 2C 43 28 33 34 29 2C 4D |4),B(29),C(34),M|
00000280: 28 31 32 29 00 8A 0A 6F 00 20 00 BB 0A 78 00 83 |(12)...o. ...x..|
00000290: 31 30 30 2C 39 32 2E 33 2C 38 31 2E 36 2C 37 33 |100,92.3,81.6,73|
000002A0: 2E 39 2C 36 35 2E 32 2C 35 36 2E 35 2C 34 37 2E |.9,65.2,56.5,47.|
000002B0: 38 2C 33 39 2E 31 2C 33 30 2E 34 00 E2 0A 82 00 |8,39.1,30.4.....|
000002C0: 83 32 31 2E 37 2C 31 33 2C 34 2E 33 2C 34 2E 33 |.21.7,13,4.3,4.3|
000002D0: 2C 31 33 2C 32 31 2E 37 2C 33 30 2E 34 2C 33 39 |,13,21.7,30.4,39|
000002E0: 2E 31 00 09 0B 8C 00 83 34 37 2E 38 2C 35 36 2E |.1......47.8,56.|
000002F0: 35 2C 36 35 2E 32 2C 37 33 2E 39 2C 38 31 2E 36 |5,65.2,73.9,81.6|
00000300: 2C 39 32 2E 33 2C 31 30 30 00 33 0B 96 00 83 31 |,92.3,100.3....1|
00000310: 30 30 2C 39 33 2C 38 36 2C 37 39 2C 37 31 2C 36 |00,93,86,79,71,6|
00000320: 34 2C 35 37 2C 35 30 2C 34 33 2C 33 36 2C 32 39 |4,57,50,43,36,29|
00000330: 2C 32 31 00 5C 0B A0 00 83 31 34 2C 37 2C 30 2C |,21.\....14,7,0,|
00000340: 37 2C 31 34 2C 32 31 2C 32 39 2C 33 36 2C 34 33 |7,14,21,29,36,43|
00000350: 2C 35 30 2C 35 37 2C 36 34 2C 37 31 00 6E 0B AA |,50,57,64,71.n..|
00000360: 00 83 37 39 2C 38 36 2C 39 33 2C 31 30 30 00 98 |..79,86,93,100..|
00000370: 0B B4 00 83 31 30 30 2C 39 34 2C 38 38 2C 38 32 |....100,94,88,82|
00000380: 2C 37 36 2C 37 30 2C 36 34 2C 35 38 2C 35 32 2C |,76,70,64,58,52,|
00000390: 34 36 2C 33 39 2C 33 33 00 C0 0B BE 00 83 32 37 |46,39,33......27|
000003A0: 2C 32 31 2C 31 35 2C 39 2C 33 2C 33 2C 39 2C 31 |,21,15,9,3,3,9,1|
000003B0: 35 2C 32 31 2C 32 37 2C 33 33 2C 33 39 2C 34 36 |5,21,27,33,39,46|
000003C0: 00 E1 0B C8 00 83 35 32 2C 35 38 2C 36 34 2C 37 |......52,58,64,7|
000003D0: 30 2C 37 36 2C 38 32 2C 38 38 2C 39 34 2C 31 30 |0,76,82,88,94,10|
000003E0: 30 00 0A 0C D2 00 83 33 31 2C 32 38 2C 33 31 2C |0......31,28,31,|
000003F0: 33 30 2C 33 31 2C 33 30 2C 33 31 2C 33 31 2C 33 |30,31,30,31,31,3|
00000400: 30 2C 33 31 2C 33 30 2C 33 31 00 10 0C D3 00 20 |0,31,30,31..... |
00000410: 00 2B 0C DC 00 81 20 5A B2 31 20 A4 20 32 34 20 |.+.... Z.1 . 24 |
00000420: 3A 87 20 41 28 5A 29 20 3A 20 82 00 46 0C E6 00 |:. A(Z) : ..F...|
00000430: 81 20 5A B2 31 20 A4 20 32 39 20 3A 87 20 42 28 |. Z.1 . 29 :. B(|
00000440: 5A 29 20 3A 20 82 00 61 0C F0 00 81 20 5A B2 31 |Z) : ..a.... Z.1|
00000450: 20 A4 20 33 34 20 3A 87 20 43 28 5A 29 20 3A 20 | . 34 :. C(Z) : |
00000460: 82 00 7C 0C FA 00 81 20 5A B2 31 20 A4 20 31 32 |..|.... Z.1 . 12|
00000470: 20 3A 87 20 4D 28 5A 29 20 3A 20 82 00 82 0C FB | :. M(Z) : .....|
00000480: 00 20 00 A8 0C 0E 01 99 22 93 12 42 49 4F 52 48 |. ......"..BIORH|
00000490: 54 59 48 4D 20 43 4F 4D 50 41 54 41 42 49 4C 49 |TYHM COMPATABILI|
000004A0: 54 59 20 54 45 53 54 22 00 CF 0C 18 01 99 22 11 |TY TEST"......".|
000004B0: 45 4E 54 45 52 20 59 4F 55 52 20 42 49 52 54 48 |ENTER YOUR BIRTH|
000004C0: 44 41 54 45 3A 20 4D 4D 2C 44 44 2C 59 59 22 00 |DATE: MM,DD,YY".|
000004D0: DD 0C 22 01 85 20 50 2C 20 51 2C 20 52 00 E6 0C |..".. P, Q, R...|
000004E0: 2C 01 8D 36 33 30 00 F6 0C 36 01 8B 20 53 B2 30 |,..630...6.. S.0|
000004F0: 20 A7 20 32 39 30 00 FF 0C 40 01 53 31 B2 53 00 | . 290...@.S1.S.|
00000500: 2B 0D 4A 01 99 22 11 45 4E 54 45 52 20 54 48 45 |+.J..".ENTER THE|
00000510: 20 4F 54 48 45 52 20 42 49 52 54 48 44 41 54 45 | OTHER BIRTHDATE|
00000520: 3A 20 4D 4D 2C 44 44 2C 59 59 22 00 39 0D 54 01 |: MM,DD,YY".9.T.|
00000530: 85 20 50 2C 20 51 2C 20 52 00 42 0D 5E 01 8D 36 |. P, Q, R.B.^..6|
00000540: 33 30 00 52 0D 68 01 8B 20 53 B2 30 20 A7 20 33 |30.R.h.. S.0 . 3|
00000550: 33 30 00 5B 0D 72 01 53 32 B2 53 00 6B 0D 7C 01 |30.[.r.S2.S.k.|.|
00000560: 44 39 B2 B6 28 53 31 AB 53 32 29 00 9B 0D 86 01 |D9..(S1.S2).....|
00000570: 58 32 B2 41 28 44 39 AB 28 B5 28 44 39 AD 32 33 |X2.A(D9.(.(D9.23|
00000580: 29 AC 32 33 29 AA 31 29 3A 54 52 B2 58 32 3A 8D |).23).1):TR.X2:.|
00000590: 39 30 30 3A 50 48 24 B2 54 52 24 00 CB 0D 90 01 |900:PH$.TR$.....|
000005A0: 58 33 B2 42 28 44 39 AB 28 B5 28 44 39 AD 32 38 |X3.B(D9.(.(D9.28|
000005B0: 29 AC 32 38 29 AA 31 29 3A 54 52 B2 58 33 3A 8D |).28).1):TR.X3:.|
000005C0: 39 30 30 3A 45 4D 24 B2 54 52 24 00 FB 0D 9A 01 |900:EM$.TR$.....|
000005D0: 58 34 B2 43 28 44 39 AB 28 B5 28 44 39 AD 33 33 |X4.C(D9.(.(D9.33|
000005E0: 29 AC 33 33 29 AA 31 29 3A 54 52 B2 58 34 3A 8D |).33).1):TR.X4:.|
000005F0: 39 30 30 3A 49 4E 24 B2 54 52 24 00 18 0E A4 01 |900:IN$.TR$.....|
00000600: 58 35 B2 28 58 32 AA 58 33 AA 58 34 29 AD 33 3A |X5.(X2.X3.X4).3:|
00000610: 58 35 B2 B5 28 58 35 29 00 2A 0E AE 01 8B 20 58 |X5..(X5).*.... X|
00000620: 35 B3 32 35 20 A7 20 34 37 30 00 3C 0E B8 01 8B |5.25 . 470.<....|
00000630: 20 58 35 B3 35 30 20 A7 20 35 30 30 00 4E 0E C2 | X5.50 . 500.N..|
00000640: 01 8B 20 58 35 B3 37 35 20 A7 20 35 33 30 00 58 |.. X5.75 . 530.X|
00000650: 0E CC 01 89 20 35 35 30 00 8B 0E D6 01 99 22 11 |.... 550......".|
00000660: 11 57 49 54 48 20 41 20 12 43 4F 4D 50 41 54 41 |.WITH A .COMPATA|
00000670: 42 49 4C 49 54 59 92 20 4F 46 20 4F 4E 4C 59 3A |BILITY. OF ONLY:|
00000680: 22 58 35 22 25 20 2E 2E 2E 2E 22 00 AA 0E E0 01 |"X5"% ....".....|
00000690: 99 22 11 54 48 45 52 45 20 41 49 4E 27 54 20 4D |.".THERE AIN'T M|
000006A0: 55 43 48 20 48 4F 50 45 2E 22 00 B3 0E EA 01 89 |UCH HOPE."......|
000006B0: 35 36 30 00 DB 0E F4 01 99 22 11 11 12 43 4F 4D |560......"...COM|
000006C0: 50 41 54 41 42 49 4C 49 54 59 92 20 49 53 3A 20 |PATABILITY. IS: |
000006D0: 22 58 35 22 25 20 2E 2E 2E 2E 22 00 01 0F FE 01 |"X5"% ....".....|
000006E0: 99 22 59 45 57 20 4F 54 54 41 20 42 45 20 41 42 |."YEW OTTA BE AB|
000006F0: 4C 45 20 54 4F 20 47 45 54 20 41 4C 4F 4E 47 2E |LE TO GET ALONG.|
00000700: 22 00 0A 0F 08 02 89 35 36 30 00 36 0F 12 02 99 |"......560.6....|
00000710: 22 11 11 12 43 4F 4D 50 41 54 41 42 49 4C 49 54 |"...COMPATABILIT|
00000720: 59 92 20 49 53 3A 20 22 58 35 22 25 20 2E 2E 2E |Y. IS: "X5"% ...|
00000730: 2E 2E 2E 2E 2E 22 00 5F 0F 17 02 99 22 11 59 45 |....."._....".YE|
00000740: 57 20 43 4F 55 4C 44 20 42 45 20 50 52 45 54 54 |W COULD BE PRETT|
00000750: 59 20 47 4F 4F 44 20 46 52 49 45 4E 44 53 22 00 |Y GOOD FRIENDS".|
00000760: 68 0F 1C 02 89 35 36 30 00 9B 0F 26 02 99 22 11 |h....560...&..".|
00000770: 53 55 50 45 52 20 54 45 52 52 49 46 49 4B 2E 2E |SUPER TERRIFIK..|
00000780: 2E 12 43 4F 4D 50 41 54 41 42 49 4C 49 54 59 92 |..COMPATABILITY.|
00000790: 20 4F 46 3A 20 22 58 35 22 25 22 00 CA 0F 30 02 | OF: "X5"%"...0.|
000007A0: 99 22 11 48 45 52 45 20 41 52 45 20 54 48 45 20 |.".HERE ARE THE |
000007B0: 43 4F 4D 50 41 54 41 42 49 4C 49 54 59 20 42 52 |COMPATABILITY BR|
000007C0: 45 41 4B 44 4F 57 4E 53 3A 22 00 F7 0F 44 02 99 |EAKDOWNS:"...D..|
000007D0: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............|
000007E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000007F0: B8 B8 B8 B8 B8 B8 22 00 26 10 4E 02 99 22 43 4F |......".&.N.."CO|
00000800: 4D 50 41 54 41 42 49 4C 49 54 59 20 4F 46 3A 20 |MPATABILITY OF: |
00000810: 22 50 48 24 A3 32 32 29 22 25 20 50 48 59 53 49 |"PH$.22)"% PHYSI|
00000820: 43 41 4C 4C 59 22 00 56 10 58 02 99 22 43 4F 4D |CALLY".V.X.."COM|
00000830: 50 41 54 41 42 49 4C 49 54 59 20 4F 46 3A 20 22 |PATABILITY OF: "|
00000840: 45 4D 24 A3 32 32 29 22 25 20 45 4D 4F 54 49 4F |EM$.22)"% EMOTIO|
00000850: 4E 41 4C 4C 59 22 00 89 10 62 02 99 22 43 4F 4D |NALLY"...b.."COM|
00000860: 50 41 54 41 42 49 4C 49 54 59 20 4F 46 3A 20 22 |PATABILITY OF: "|
00000870: 49 4E 24 A3 32 32 29 22 25 20 49 4E 54 45 4C 4C |IN$.22)"% INTELL|
00000880: 45 43 54 55 41 4C 4C 59 22 00 9A 10 6C 02 99 22 |ECTUALLY"...l.."|
00000890: 11 11 22 3A 90 3A 89 32 37 30 00 A0 10 6D 02 20 |..":.:.270...m. |
000008A0: 00 A6 10 6E 02 20 00 C9 10 76 02 8F 20 2A 2A 2A |...n. ...v.. ***|
000008B0: 43 41 4C 43 55 4C 41 54 45 20 45 4C 41 50 53 45 |CALCULATE ELAPSE|
000008C0: 44 20 44 41 59 53 2A 2A 2A 00 D8 10 80 02 8B 20 |D DAYS***...... |
000008D0: 52 B3 31 20 A7 38 36 30 00 E8 10 8A 02 8B 20 52 |R.1 .860...... R|
000008E0: B1 39 39 20 A7 38 36 30 00 FB 10 94 02 8B 20 B5 |.99 .860...... .|
000008F0: 28 52 29 B3 B1 52 20 A7 38 36 30 00 07 11 9E 02 |(R)..R .860.....|
00000900: 53 B2 52 AC 33 36 35 00 19 11 A8 02 53 B2 53 AA |S.R.365.....S.S.|
00000910: 28 28 52 AB 31 29 AD 34 29 00 2F 11 B2 02 8B 20 |((R.1).4)./.... |
00000920: 50 B3 31 20 B0 20 50 B1 31 32 20 A7 38 36 30 00 |P.1 . P.12 .860.|
00000930: 42 11 BC 02 8B 20 B5 28 50 29 B3 B1 50 20 A7 38 |B.... .(P)..P .8|
00000940: 36 30 00 50 11 C6 02 81 20 49 B2 31 20 A4 20 50 |60.P.... I.1 . P|
00000950: 00 5F 11 D0 02 20 20 53 B2 53 AA 4D 28 49 29 00 |._... S.S.M(I).|
00000960: 65 11 DA 02 82 00 76 11 E4 02 4C B2 B5 28 28 52 |e.....v...L..((R|
00000970: AD 34 29 AC 34 29 00 85 11 EE 02 8B 20 50 B3 33 |.4).4)...... P.3|
00000980: 20 A7 37 37 30 00 8F 11 F8 02 53 B2 53 AA 31 00 | .770.....S.S.1.|
00000990: 9E 11 02 03 8B 20 51 B3 31 20 A7 38 36 30 00 B2 |..... Q.1 .860..|
000009A0: 11 0C 03 8B 20 51 B3 B1 20 B5 28 51 29 20 A7 38 |.... Q.. .(Q) .8|
000009B0: 36 30 00 C4 11 16 03 8B 51 B1 4D 28 50 29 20 A7 |60......Q.M(P) .|
000009C0: 20 38 31 30 00 CE 11 20 03 89 20 38 34 30 00 DF | 810... .. 840..|
000009D0: 11 2A 03 8B 20 4C B3 B1 30 20 A7 20 38 36 30 00 |.*.. L..0 . 860.|
000009E0: F0 11 34 03 8B 20 50 B3 B1 32 20 A7 20 38 36 30 |..4.. P..2 . 860|
000009F0: 00 01 12 3E 03 8B 20 51 B1 32 39 20 A7 20 38 36 |...>.. Q.29 . 86|
00000A00: 30 00 0B 12 48 03 53 B2 53 AA 51 00 11 12 52 03 |0...H.S.S.Q...R.|
00000A10: 8E 00 39 12 5C 03 99 22 93 49 4E 56 41 4C 49 44 |..9.\..".INVALID|
00000A20: 20 44 41 54 45 20 28 44 55 4D 4D 59 29 20 2A 20 | DATE (DUMMY) * |
00000A30: 52 45 2D 45 4E 54 45 52 22 00 41 12 66 03 53 B2 |RE-ENTER".A.f.S.|
00000A40: 30 00 47 12 70 03 8E 00 67 12 83 03 8F 20 2A 2A |0.G.p...g.... **|
00000A50: 2A 20 46 4F 52 4D 41 54 54 49 4E 27 20 53 55 42 |* FORMATTIN' SUB|
00000A60: 52 54 2E 20 2A 2A 2A 00 82 12 84 03 41 44 44 B2 |RT. ***.....ADD.|
00000A70: 30 3A 8B 20 54 52 B3 31 30 30 20 A7 20 41 44 44 |0:. TR.100 . ADD|
00000A80: B2 31 00 96 12 8E 03 8B 20 54 52 B3 31 30 20 A7 |.1...... TR.10 .|
00000A90: 20 41 44 44 B2 32 00 A4 12 98 03 54 52 24 B2 C4 | ADD.2.....TR$..|
00000AA0: 28 54 52 29 00 C0 12 A2 03 8B 41 44 44 B2 30 20 |(TR)......ADD.0 |
00000AB0: A7 20 54 52 24 B2 C9 28 54 52 24 2C 33 29 3A 8E |. TR$..(TR$,3):.|
00000AC0: 00 CF 12 AC 03 8B 41 44 44 B2 31 20 A7 20 8E 00 |......ADD.1 . ..|
00000AD0: EB 12 B6 03 8B 41 44 44 B2 32 20 A7 20 54 52 24 |.....ADD.2 . TR$|
00000AE0: B2 22 20 22 AA 54 52 24 20 3A 8E 00 00 00 |." ".TR$ :.... |
..$.P..*****************************.G.Q
..* *.J.R..*
BIO COMPATABILITY PGM *...S..*
*...T..* ORIGINAL
CONCEPT BY *.S.U..* JOE CANNA
TA *...V..*
*...W..* GREATLY IMPROVED BY
*.<.X..* (THAT AMAZIN') *._.Y
..* *...Z..*
MERGATROID MAHOONEY *...[..*
*.H.\..* JUNE
21, 1981 *...]..*
*...^..* VERSION 2.1
*.1._..*
*.T.`..*****************************.Z.A
. .`.B. .F.C. ...N.. A(24),B(29),C(34),M
(12)...O. ...X..100,92.3,81.6,73.9,65.2,
56.5,47.8,39.1,30.4......21.7,13,4.3,4.3
,13,21.7,30.4,39.1......47.8,56.5,65.2,7
3.9,81.6,92.3,100.3....100,93,86,79,71,6
4,57,50,43,36,29,21.\. ..14,7,0,7,14,21,
29,36,43,50,57,64,71.N....79,86,93,100..
....100,94,88,82,76,70,64,58,52,46,39,33
......27,21,15,9,3,3,9,15,21,27,33,39,46
...H..52,58,64,70,76,82,88,94,100...R..3
1,28,31,30,31,30,31,31,30,31,30,31...S.
.+.... Z.1 . 24 :. A(Z) : ..F.... Z.1 .
29 :. B(Z) : ..A.... Z.1 . 34 :. C(Z) :
..|.... Z.1 . 12 :. M(Z) : ...... ......
"..BIORHTYHM COMPATABILITY TEST".O....".
ENTER YOUR BIRTHDATE: MM,DD,YY"...".. P,
Q, R...,..630...6.. S.0 . 290...@.S1.S.
+.J..".ENTER THE OTHER BIRTHDATE: MM,DD,
YY".9.T.. P, Q, R.B.^..630.R.H.. S.0 . 3
30.[.R.S2.S.K.|.D9..(S1.S2).....X2.A(D9.
(.(D9.23).23).1):TR.X2:.900:PH$.TR$.K...
X3.B(D9.(.(D9.28).28).1):TR.X3:.900:EM$.
TR$.....X4.C(D9.(.(D9.33).33).1):TR.X4:.
900:IN$.TR$.....X5.(X2.X3.X4).3:X5..(X5)
.*.... X5.25 . 470.<.... X5.50 . 500.N.B
.. X5.75 . 530.X.L.. 550...V.."..WITH A
.COMPATABILITY. OF ONLY:"X5"% ....".....
.".THERE AIN'T MUCH HOPE."......560.....
."...COMPATABILITY. IS: "X5"% ....".....
."YEW OTTA BE ABLE TO GET ALONG."......5
60.6...."...COMPATABILITY. IS: "X5"% ...
....."._....".YEW COULD BE PRETTY GOOD F
RIENDS".H....560...&..".SUPER TERRIFIK..
..COMPATABILITY. OF: "X5"%".J.0..".HERE
ARE THE COMPATABILITY BREAKDOWNS:"...D..
".....................................".
&.N.."COMPATABILITY OF: "PH$.22)"% PHYSI
CALLY".V.X.."COMPATABILITY OF: "EM$.22)"
% EMOTIONALLY"...B.."COMPATABILITY OF: "
IN$.22)"% INTELLECTUALLY"...L.."..":.:.2
70. .M. ...N. .I.V.. ***CALCULATE ELAPSE
D DAYS***.X.... R.1 .860...... R.99 .860
...... .(R)..R .860.....S.R.365.....S.S.
((R.1).4)./.... P.1 . P.12 .860.B.... .(
P)..P .860.P.F.. I.1 . P._.P. S.S.M(I).
E.Z...V...L..((R.4).4)...... P.3 .770...
..S.S.1...... Q.1 .860...... Q.. .(Q) .8
60.D....Q.M(P) . 810.N. .. 840...*.. L..
0 . 860...4.. P..2 . 860...>.. Q.29 . 86
0...H.S.S.Q...R...9.\..".INVALID DATE (D
UMMY) * RE-ENTER".A.F.S.0.G.P...G.... **
* FORMATTIN' SUBRT. ***.....ADD.0:. TR.1
00 . ADD.1...... TR.10 . ADD.2.....TR$.D
(TR)......ADD.0 . TR$.I(TR$,3):..O....AD
D.1 . .......ADD.2 . TR$." ".TR$ :....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL