BIORYTM
FILE INFORMATION
FILENAME(S): BIORYTM
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-12-01 01:02:33
APPEARS ON: 1 disk(s)
FILE HASH
f85fdeeaf0f01699893fe57cf53d76aa42cc84cd58b34bd37b2e4a80ebe66ae8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSE | BIORYTM | PRG | hedning, German ebay | 29 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 97 35 33 32 38 30 2C 31 3A 97 |....d..53280,1:.|
00000010: 35 33 32 38 31 2C 31 00 2F 08 6E 00 99 C7 28 31 |53281,1./.n...(1|
00000020: 34 37 29 3A 81 58 B2 31 A4 31 30 3A 99 3A 82 00 |47):.X.1.10:.:..|
00000030: 55 08 78 00 99 A3 31 35 29 22 42 49 4F 52 48 59 |U.x...15)"BIORHY|
00000040: 54 48 4D 22 3A 99 A3 31 35 29 22 2D 2D 2D 2D 2D |THM":..15)"-----|
00000050: 2D 2D 2D 2D 22 00 65 08 82 00 81 54 B2 31 A4 31 |----".e....T.1.1|
00000060: 30 30 30 3A 82 00 73 08 8C 00 99 C7 28 31 34 37 |000:..s.....(147|
00000070: 29 3A 99 00 85 08 96 00 86 41 28 31 35 30 29 3A |):.......A(150):|
00000080: 8D 32 32 39 30 00 94 08 A0 00 44 46 B2 36 2E 32 |.2290.....DF.6.2|
00000090: 38 33 31 38 00 9D 08 AA 00 89 32 34 30 00 B3 08 |8318......240...|
000000A0: B4 00 58 B2 28 56 AD 58 AB B5 28 56 AD 58 29 29 |..X.(V.X..(V.X))|
000000B0: AC 44 46 00 BE 08 BE 00 59 B2 BF 28 58 29 00 D0 |.DF.....Y..(X)..|
000000C0: 08 C8 00 58 B2 58 AC 35 37 2E 32 39 35 37 35 35 |...X.X.57.295755|
000000D0: 00 E0 08 D2 00 59 B2 28 59 AC 31 38 29 AA 34 34 |.....Y.(Y.18).44|
000000E0: 00 EB 08 DC 00 59 B2 B5 28 59 29 00 F5 08 E6 00 |.....Y..(Y).....|
000000F0: 89 32 33 33 30 00 1A 09 F0 00 99 22 53 54 41 52 |.2330......"STAR|
00000100: 54 49 4E 47 20 44 41 54 45 20 28 45 58 20 32 36 |TING DATE (EX 26|
00000110: 2C 38 2C 31 39 38 34 29 3A 22 00 25 09 FA 00 85 |,8,1984):".%....|
00000120: 44 2C 4D 2C 59 00 35 09 04 01 42 B2 44 3A 41 B2 |D,M,Y.5...B.D:A.|
00000130: 4D 3A 43 B2 59 00 3F 09 0E 01 8D 31 33 38 30 00 |M:C.Y.?....1380.|
00000140: 47 09 18 01 5A B2 54 00 6E 09 22 01 99 3A 99 22 |G...Z.T.n."..:."|
00000150: 59 4F 55 52 20 42 49 52 54 48 44 41 59 20 28 45 |YOUR BIRTHDAY (E|
00000160: 58 20 32 36 2C 38 2C 31 39 38 34 29 3A 22 00 79 |X 26,8,1984):".y|
00000170: 09 2C 01 85 44 2C 4D 2C 59 00 89 09 36 01 46 B2 |.,..D,M,Y...6.F.|
00000180: 44 3A 45 B2 4D 3A 47 B2 59 00 93 09 40 01 8D 31 |D:E.M:G.Y...@..1|
00000190: 33 38 30 00 9D 09 4A 01 56 B2 54 AB 5A 00 A8 09 |380...J.V.T.Z...|
000001A0: 54 01 56 B2 B6 28 56 29 00 AF 09 5E 01 3A 3A 00 |T.V..(V)...^.::.|
000001B0: B5 09 68 01 99 00 E4 09 72 01 99 22 48 4F 57 20 |..h.....r.."HOW |
000001C0: 4D 41 4E 59 20 44 41 59 53 20 44 4F 20 59 4F 55 |MANY DAYS DO YOU|
000001D0: 20 57 41 4E 54 20 44 49 53 50 4C 41 59 45 44 22 | WANT DISPLAYED"|
000001E0: 3B 3A 85 4F 00 EA 09 7C 01 99 00 05 0A 86 01 8F |;:.O...|........|
000001F0: 20 2A 2A 2A 20 43 59 43 4C 45 20 43 48 4F 49 43 | *** CYCLE CHOIC|
00000200: 45 20 2A 2A 2A 00 23 0A 90 01 99 A3 31 31 29 22 |E ***.#.....11)"|
00000210: 50 2E 2E 2E 20 50 4C 4F 54 20 50 48 59 53 49 43 |P... PLOT PHYSIC|
00000220: 41 4C 22 00 45 0A 9A 01 99 A3 31 31 29 22 49 2E |AL".E.....11)"I.|
00000230: 2E 2E 20 50 4C 4F 54 20 49 4E 54 45 4C 4C 45 43 |.. PLOT INTELLEC|
00000240: 54 55 41 4C 22 00 66 0A A4 01 99 A3 31 31 29 22 |TUAL".f.....11)"|
00000250: 53 2E 2E 2E 20 50 4C 4F 54 20 53 45 4E 53 49 54 |S... PLOT SENSIT|
00000260: 49 56 49 54 59 22 00 86 0A AE 01 99 A3 31 31 29 |IVITY".......11)|
00000270: 22 41 2E 2E 2E 20 50 4C 4F 54 20 41 4C 4C 20 43 |"A... PLOT ALL C|
00000280: 59 43 4C 45 53 22 00 8C 0A B8 01 99 00 AF 0A C2 |YCLES"..........|
00000290: 01 99 A3 31 32 29 22 12 45 4E 54 45 52 20 53 45 |...12)".ENTER SE|
000002A0: 4C 45 43 54 49 4F 4E 3A 92 22 3B 3A 85 4C 24 00 |LECTION:.";:.L$.|
000002B0: D8 0A CC 01 8B 4C 24 B3 B1 22 50 22 AF 4C 24 B3 |.....L$.."P".L$.|
000002C0: B1 22 49 22 AF 4C 24 B3 B1 22 53 22 AF 4C 24 B3 |."I".L$.."S".L$.|
000002D0: B1 22 41 22 A7 34 35 30 00 E6 0A D6 01 99 C7 28 |."A".450.......(|
000002E0: 31 34 37 29 3A 99 00 EE 0A E0 01 99 3A 99 00 0D |147):.......:...|
000002F0: 0B EA 01 99 22 59 4F 55 52 20 42 49 52 54 48 44 |...."YOUR BIRTHD|
00000300: 41 59 20 49 53 20 22 3B 3A 4D 4E B2 45 00 17 0B |AY IS ";:MN.E...|
00000310: F4 01 8D 31 31 37 30 00 20 0B FE 01 99 46 3B 47 |...1170. ....F;G|
00000320: 00 49 0B 08 02 99 22 59 4F 55 20 57 45 52 45 20 |.I...."YOU WERE |
00000330: 42 4F 52 4E 20 4F 4E 20 41 20 22 3B 3A 44 42 B2 |BORN ON A ";:DB.|
00000340: 4E AA 31 3A 8D 31 33 30 30 00 7E 0B 12 02 99 22 |N.1:.1300.~...."|
00000350: 2C 22 3B 56 3B 22 44 41 59 53 20 28 22 3B B5 28 |,";V;"DAYS (";.(|
00000360: 28 56 AD 33 36 35 29 AC 31 30 30 29 AD 31 30 30 |(V.365).100).100|
00000370: 3B 22 59 45 41 52 53 29 20 41 47 4F 2E 22 00 84 |;"YEARS) AGO."..|
00000380: 0B 1C 02 99 00 A7 0B 26 02 99 22 59 4F 55 52 20 |.......&.."YOUR |
00000390: 42 49 4F 52 48 59 54 48 4D 20 43 59 43 4C 45 53 |BIORHYTHM CYCLES|
000003A0: 20 46 52 4F 4D 3A 22 00 C2 0B 30 02 4D 4E B2 41 | FROM:"...0.MN.A|
000003B0: 3A 8D 31 31 37 30 3A 99 42 3B 43 3B 22 54 4F 20 |:.1170:.B;C;"TO |
000003C0: 22 3B 00 D6 0B 3A 02 53 B2 41 3A 52 B2 42 AA 4F |";...:.S.A:R.B.O|
000003D0: AB 31 3A 54 B2 43 00 E4 0B 44 02 8B 53 B3 31 32 |.1:T.C...D..S.12|
000003E0: A7 36 30 30 00 F7 0B 4E 02 53 B2 31 3A 54 B2 54 |.600...N.S.1:T.T|
000003F0: AA 31 3A 89 36 33 30 00 05 0C 58 02 8B 53 B3 B1 |.1:.630...X..S..|
00000400: 32 A7 36 33 30 00 1A 0C 62 02 8B B5 28 54 AD 34 |2.630...b...(T.4|
00000410: 29 B3 B1 54 AD 34 A7 36 33 30 00 22 0C 6C 02 4B |)..T.4.630.".l.K|
00000420: B2 31 00 39 0C 76 02 8B 52 B3 B2 41 28 53 AA 31 |.1.9.v..R..A(S.1|
00000430: 30 30 29 AA 4B A7 36 36 30 00 5E 0C 80 02 52 B2 |00).K.660.^...R.|
00000440: 52 AB 28 41 28 53 AA 31 30 30 29 AA 4B 29 3A 8B |R.(A(S.100).K):.|
00000450: 53 B3 B1 31 A7 53 B2 53 AA 31 3A 4B B2 30 00 67 |S..1.S.S.1:K.0.g|
00000460: 0C 8A 02 89 35 38 30 00 7B 0C 94 02 4D 4E B2 53 |....580.{...MN.S|
00000470: 3A 8D 31 31 37 30 3A 99 52 3B 54 00 A2 0C 9E 02 |:.1170:.R;T.....|
00000480: 99 3A 99 3A 99 A3 38 29 3B 22 31 2D 20 53 45 4E |.:.:..8);"1- SEN|
00000490: 44 20 43 48 41 52 54 20 54 4F 20 53 43 52 45 45 |D CHART TO SCREE|
000004A0: 4E 22 00 C6 0C A8 02 99 A3 38 29 3B 22 32 2D 20 |N".......8);"2- |
000004B0: 53 45 4E 44 20 43 48 41 52 54 20 54 4F 20 50 52 |SEND CHART TO PR|
000004C0: 49 4E 54 45 52 22 00 EC 0C B2 02 99 3A 99 A3 39 |INTER"......:..9|
000004D0: 29 3B 22 12 45 4E 54 45 52 20 53 45 4C 45 43 54 |);".ENTER SELECT|
000004E0: 49 4F 4E 20 4E 55 4D 42 45 52 92 22 00 FF 0C BC |ION NUMBER."....|
000004F0: 02 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 37 30 30 00 |..Z$:.Z$."".700.|
00000500: 13 0D C6 02 91 C5 28 5A 24 29 89 31 37 36 30 2C |......(Z$).1760,|
00000510: 37 32 30 00 43 0D D0 02 99 3A 99 A3 34 29 22 12 |720.C....:..4)".|
00000520: 54 55 52 4E 20 4F 4E 20 50 52 49 4E 54 45 52 20 |TURN ON PRINTER |
00000530: 41 4E 44 20 50 52 45 53 53 20 52 45 54 55 52 4E |AND PRESS RETURN|
00000540: 2E 92 22 00 56 0D DA 02 A1 5A 24 3A 8B 5A 24 B2 |..".V....Z$:.Z$.|
00000550: 22 22 A7 37 33 30 00 69 0D E4 02 8B 5A 24 B3 B1 |"".730.i....Z$..|
00000560: C7 28 31 33 29 A7 37 33 30 00 7B 0D EE 02 41 24 |.(13).730.{...A$|
00000570: B2 C7 28 31 36 29 3A 9F 34 2C 34 00 A1 0D F8 02 |..(16):.4,4.....|
00000580: 98 34 2C A6 33 36 29 22 53 59 4D 42 4F 4C 53 22 |.4,.36)"SYMBOLS"|
00000590: 3A 98 34 2C A6 33 36 29 22 2D 2D 2D 2D 2D 2D 2D |:.4,.36)"-------|
000005A0: 22 00 BF 0D 02 03 98 34 2C A6 32 38 29 22 58 2E |"......4,.28)"X.|
000005B0: 2E 2E 20 43 45 4E 54 45 52 20 4C 49 4E 45 22 00 |.. CENTER LINE".|
000005C0: E4 0D 0C 03 98 34 2C A6 32 38 29 22 50 2E 2E 2E |.....4,.28)"P...|
000005D0: 20 50 48 59 53 49 43 41 4C 20 28 32 33 2D 44 41 | PHYSICAL (23-DA|
000005E0: 59 53 29 22 00 0C 0E 16 03 98 34 2C A6 32 38 29 |YS)"......4,.28)|
000005F0: 22 53 2E 2E 2E 20 53 45 4E 53 49 54 49 56 49 54 |"S... SENSITIVIT|
00000600: 59 20 28 32 38 2D 44 41 59 53 29 22 00 3A 0E 20 |Y (28-DAYS)".:. |
00000610: 03 98 34 2C A6 32 38 29 22 49 2E 2E 2E 20 49 4E |..4,.28)"I... IN|
00000620: 54 45 4C 4C 45 43 54 55 41 4C 20 28 33 33 2D 44 |TELLECTUAL (33-D|
00000630: 41 59 53 29 22 27 43 46 53 4B 00 44 0E 2A 03 98 |AYS)"'CFSK.D.*..|
00000640: 34 3A 98 34 00 75 0E 34 03 98 34 2C A6 37 29 22 |4:.4.u.4..4,.7)"|
00000650: 44 41 54 45 22 3B A6 39 29 22 28 2D 29 22 3B A6 |DATE";.9)"(-)";.|
00000660: 31 38 29 22 28 58 29 22 3B A6 31 38 29 22 28 2B |18)"(X)";.18)"(+|
00000670: 29 22 3A 98 34 00 7C 0E 3E 03 98 34 00 A9 0E 48 |)":.4.|.>..4...H|
00000680: 03 55 B2 56 AA 4E 3A 55 B2 55 AB 37 AC B5 28 55 |.U.V.N:U.U.7..(U|
00000690: AD 37 29 3A 42 B2 42 AB 31 3A 55 B2 55 AB 31 3A |.7):B.B.1:U.U.1:|
000006A0: 56 B2 56 AB 31 3A 4B B2 30 00 D0 0E 52 03 81 49 |V.V.1:K.0...R..I|
000006B0: B2 31 A4 4F 3A 56 B2 56 AA 31 3A 42 B2 42 AA 31 |.1.O:V.V.1:B.B.1|
000006C0: 3A 55 B2 55 AA 31 3A 8B 41 B3 B1 32 A7 38 38 30 |:U.U.1:.A..2.880|
000006D0: 00 E5 0E 5C 03 8B B5 28 43 AD 34 29 B3 B1 43 AD |...\...(C.4)..C.|
000006E0: 34 A7 38 38 30 00 ED 0E 66 03 4B B2 31 00 04 0F |4.880...f.K.1...|
000006F0: 70 03 8B 42 B3 B2 41 28 41 AA 31 30 30 29 AA 4B |p..B..A(A.100).K|
00000700: A7 39 30 30 00 12 0F 7A 03 41 B2 41 AA 31 3A 42 |.900...z.A.A.1:B|
00000710: B2 31 00 1F 0F 84 03 8B 55 B3 37 A7 39 32 30 00 |.1......U.7.920.|
00000720: 27 0F 8E 03 55 B2 30 00 36 0F 98 03 8B 41 B3 B2 |'...U.0.6....A..|
00000730: 31 32 A7 39 34 30 00 44 0F A2 03 41 B2 31 3A 43 |12.940.D...A.1:C|
00000740: B2 43 AA 31 00 5B 0F AC 03 8B 28 41 B3 B1 45 29 |.C.1.[....(A..E)|
00000750: AA 28 42 B3 B1 46 29 A7 39 36 30 00 8D 0F B6 03 |.(B..F).960.....|
00000760: 98 34 2C A6 32 38 29 22 2D 2D 2D 20 48 41 50 50 |.4,.28)"--- HAPP|
00000770: 59 20 22 3B B6 28 43 AB 47 29 3B 22 20 42 49 52 |Y ";.(C.G);" BIR|
00000780: 54 48 44 41 59 20 2D 2D 2D 22 3A 98 34 00 9E 0F |THDAY ---":.4...|
00000790: C0 03 44 41 B2 55 AA 31 3A 8D 31 35 35 30 00 BA |..DA.U.1:.1550..|
000007A0: 0F CA 03 98 34 2C 22 20 20 20 22 3B 3A 8D 31 36 |....4," ";:.16|
000007B0: 33 30 3A 98 34 2C 42 3B 43 3B 00 D2 0F D4 03 8B |30:.4,B;C;......|
000007C0: 4C 24 B2 22 50 22 B0 4C 24 B2 22 41 22 A7 31 30 |L$."P".L$."A".10|
000007D0: 30 30 00 DC 0F DE 03 89 31 30 31 30 00 F2 0F E8 |00......1010....|
000007E0: 03 58 B2 32 33 3A 8D 31 38 30 3A 41 28 33 30 29 |.X.23:.180:A(30)|
000007F0: B2 59 00 0A 10 F2 03 8B 4C 24 B2 22 53 22 B0 4C |.Y......L$."S".L|
00000800: 24 B2 22 41 22 A7 31 30 33 30 00 14 10 FC 03 89 |$."A".1030......|
00000810: 31 30 34 30 00 2A 10 06 04 58 B2 32 38 3A 8D 31 |1040.*...X.28:.1|
00000820: 38 30 3A 41 28 33 35 29 B2 59 00 43 10 10 04 8B |80:A(35).Y.C....|
00000830: 4C 24 B2 22 49 22 B0 4C 24 B2 22 41 22 A7 31 30 |L$."I".L$."A".10|
00000840: 36 30 20 00 4D 10 1A 04 89 31 30 37 30 00 63 10 |60 .M....1070.c.|
00000850: 24 04 58 B2 33 33 3A 8D 31 38 30 3A 41 28 34 30 |$.X.33:.180:A(40|
00000860: 29 B2 59 00 83 10 2E 04 4D B2 30 3A 81 4C B2 31 |).Y.....M.0:.L.1|
00000870: 39 A4 36 36 3A 98 34 2C 41 24 3B C3 28 C4 28 4C |9.66:.4,A$;.(.(L|
00000880: 29 29 3B 00 9E 10 38 04 8B 41 28 33 30 29 B2 4C |));...8..A(30).L|
00000890: A7 98 34 2C 22 50 22 3B 3A 89 31 31 33 30 00 B9 |..4,"P";:.1130..|
000008A0: 10 42 04 8B 41 28 33 35 29 B2 4C A7 98 34 2C 22 |.B..A(35).L..4,"|
000008B0: 53 22 3B 3A 89 31 31 33 30 00 D4 10 4C 04 8B 41 |S";:.1130...L..A|
000008C0: 28 34 30 29 B2 4C A7 98 34 2C 22 49 22 3B 3A 89 |(40).L..4,"I";:.|
000008D0: 31 31 33 30 00 E6 10 56 04 8B 4C B2 34 30 A7 98 |1130...V..L.40..|
000008E0: 34 2C 22 58 22 3B 00 F4 10 60 04 8B 4C B2 36 36 |4,"X";...`..L.66|
000008F0: A7 98 34 2C 00 0F 11 6A 04 4D B2 4D AA 31 3A 8B |..4,...j.M.M.1:.|
00000900: 4D B3 B1 34 A7 31 31 34 30 3A 4C B2 31 30 30 00 |M..4.1140:L.100.|
00000910: 18 11 74 04 82 4C 2C 49 00 28 11 7E 04 98 34 3A |..t..L,I.(.~..4:|
00000920: A0 34 3A 89 32 33 35 30 00 2F 11 88 04 3A 3A 00 |.4:.2350./...::.|
00000930: 4B 11 92 04 8B 4D 4E B2 31 A7 99 22 4A 41 4E 55 |K....MN.1.."JANU|
00000940: 41 52 59 22 3B 3A 89 32 33 33 30 00 68 11 9C 04 |ARY";:.2330.h...|
00000950: 8B 4D 4E B2 32 A7 99 22 46 45 42 52 55 41 52 59 |.MN.2.."FEBRUARY|
00000960: 22 3B 3A 89 32 33 33 30 00 82 11 A6 04 8B 4D 4E |";:.2330......MN|
00000970: B2 33 A7 99 22 4D 41 52 43 48 22 3B 3A 89 32 33 |.3.."MARCH";:.23|
00000980: 33 30 00 9C 11 B0 04 8B 4D 4E B2 34 A7 99 22 41 |30......MN.4.."A|
00000990: 50 52 49 4C 22 3B 3A 89 32 33 33 30 00 B4 11 BA |PRIL";:.2330....|
000009A0: 04 8B 4D 4E B2 35 A7 99 22 4D 41 59 22 3B 3A 89 |..MN.5.."MAY";:.|
000009B0: 32 33 33 30 00 CD 11 C4 04 8B 4D 4E B2 36 A7 99 |2330......MN.6..|
000009C0: 22 4A 55 4E 45 22 3B 3A 89 32 33 33 30 00 E6 11 |"JUNE";:.2330...|
000009D0: CE 04 8B 4D 4E B2 37 A7 99 22 4A 55 4C 59 22 3B |...MN.7.."JULY";|
000009E0: 3A 89 32 33 33 30 00 01 12 D8 04 8B 4D 4E B2 38 |:.2330......MN.8|
000009F0: A7 99 22 41 55 47 55 53 54 22 3B 3A 89 32 33 33 |.."AUGUST";:.233|
00000A00: 30 00 1F 12 E2 04 8B 4D 4E B2 39 A7 99 22 53 45 |0......MN.9.."SE|
00000A10: 50 54 45 4D 42 45 52 22 3B 3A 89 32 33 33 30 00 |PTEMBER";:.2330.|
00000A20: 3C 12 EC 04 8B 4D 4E B2 31 30 A7 99 22 4F 43 54 |<....MN.10.."OCT|
00000A30: 4F 42 45 52 22 3B 3A 89 32 33 33 30 00 5A 12 F6 |OBER";:.2330.Z..|
00000A40: 04 8B 4D 4E B2 31 31 A7 99 22 4E 4F 56 45 4D 42 |..MN.11.."NOVEMB|
00000A50: 45 52 22 3B 3A 89 32 33 33 30 00 71 12 00 05 99 |ER";:.2330.q....|
00000A60: 22 44 45 43 45 4D 42 45 52 22 3B 3A 89 32 33 33 |"DECEMBER";:.233|
00000A70: 30 00 78 12 0A 05 3A 3A 00 96 12 14 05 8B 44 42 |0.x...::......DB|
00000A80: B2 31 A7 99 22 57 45 44 4E 45 53 44 41 59 22 3B |.1.."WEDNESDAY";|
00000A90: 3A 89 32 33 33 30 00 B3 12 1E 05 8B 44 42 B2 32 |:.2330......DB.2|
00000AA0: A7 99 22 54 48 55 52 53 44 41 59 22 3B 3A 89 32 |.."THURSDAY";:.2|
00000AB0: 33 33 30 00 CE 12 28 05 8B 44 42 B2 33 A7 99 22 |330...(..DB.3.."|
00000AC0: 46 52 49 44 41 59 22 3B 3A 89 32 33 33 30 00 EB |FRIDAY";:.2330..|
00000AD0: 12 32 05 8B 44 42 B2 34 A7 99 22 53 41 54 55 52 |.2..DB.4.."SATUR|
00000AE0: 44 41 59 22 3B 3A 89 32 33 33 30 00 06 13 3C 05 |DAY";:.2330...<.|
00000AF0: 8B 44 42 B2 35 A7 99 22 53 55 4E 44 41 59 22 3B |.DB.5.."SUNDAY";|
00000B00: 3A 89 32 33 33 30 00 21 13 46 05 8B 44 42 B2 36 |:.2330.!.F..DB.6|
00000B10: A7 99 22 4D 4F 4E 44 41 59 22 3B 3A 89 89 89 99 |.."MONDAY";:....|
00000B20: 90 22 FD AF BA 23 E4 00 8D 9D D9 DE B3 32 BE FF |."...#.......2..|
00000B30: FE FE 24 FF FF FF FA 22 FF 2F BE 23 FE FE 22 3F |..$...."./.#.."?|
00000B40: 2F D3 23 B2 4F 3E 46 FA FA FA FA FE 36 4F 6B F2 |/.#.O>F.....6Ok.|
00000B50: 12 47 FB F6 FE 36 6F 6B F2 16 47 FF FB F6 02 FF |.G...6ok..G.....|
00000B60: AF D7 23 B3 4F 6B F2 F2 12 46 FF FA FA F6 47 FB |..#.Ok...F....G.|
00000B70: FA FA F6 02 FE AF DA 03 B6 EF FA 22 21 0F AF 23 |..........."!..#|
00000B80: A4 B6 43 FB 6F EA B2 4F FA FB FB FA 22 6C 0F A1 |..C.o..O...."l..|
00000B90: 03 A4 B6 63 FA FA FA 6F EA B2 4F FA FB FB FA 22 |...c...o..O...."|
00000BA0: 6D 2F EC 23 A4 B3 43 FB FA FA 66 FF FA FA 6F EA |m/.#..C...f...o.|
00000BB0: B2 4F FA FB FB FA 22 6F 2F E2 23 B6 EF FA A2 7F |.O...."o/.#.....|
00000BC0: 2F E6 23 BB 6F FF FD FB E3 12 46 36 46 B6 66 33 |/.#.o.....F6F.f3|
00000BD0: 46 B6 A2 7F AF EB 23 BB 6F 3B 66 32 F2 17 F6 46 |F.....#.o;f2...F|
00000BE0: 33 66 FA A2 F0 AF EF 23 8B 4D B3 33 A7 31 34 39 |3f.....#.M.3.149|
00000BF0: 30 00 FB 13 C8 05 54 B2 54 AA 4B 00 11 14 D2 05 |0.....T.T.K.....|
00000C00: 8B B5 28 48 AD 34 29 B3 B1 48 AD 34 A7 31 35 32 |..(H.4)..H.4.152|
00000C10: 30 00 1F 14 DC 05 8B 4D B1 32 A7 31 35 32 30 00 |0......M.2.1520.|
00000C20: 29 14 E6 05 54 B2 54 AB 31 00 3A 14 F0 05 4E B2 |)...T.T.1.:...N.|
00000C30: 54 AB 37 AC B5 28 54 AD 37 29 00 44 14 FA 05 89 |T.7..(T.7).D....|
00000C40: 32 33 33 30 00 4B 14 04 06 3A 3A 00 65 14 0E 06 |2330.K...::.e...|
00000C50: 8B 44 41 B2 31 A7 98 34 2C 22 57 45 44 22 3B 3A |.DA.1..4,"WED";:|
00000C60: 89 32 33 33 30 00 7F 14 18 06 8B 44 41 B2 32 A7 |.2330......DA.2.|
00000C70: 98 34 2C 22 54 48 55 22 3B 3A 89 32 33 33 30 00 |.4,"THU";:.2330.|
00000C80: 99 14 22 06 8B 44 41 B2 33 A7 98 34 2C 22 46 52 |.."..DA.3..4,"FR|
00000C90: 49 22 3B 3A 89 32 33 33 30 00 B3 14 2C 06 8B 44 |I";:.2330...,..D|
00000CA0: 41 B2 34 A7 98 34 2C 22 53 41 54 22 3B 3A 89 32 |A.4..4,"SAT";:.2|
00000CB0: 33 33 30 00 CD 14 36 06 8B 44 41 B2 35 A7 98 34 |330...6..DA.5..4|
00000CC0: 2C 22 53 55 4E 22 3B 3A 89 32 33 33 30 00 E7 14 |,"SUN";:.2330...|
00000CD0: 40 06 8B 44 41 B2 36 A7 98 34 2C 22 4D 4F 4E 22 |@..DA.6..4,"MON"|
00000CE0: 3B 3A 89 32 33 33 30 00 FB 14 4A 06 98 34 2C 22 |;:.2330...J..4,"|
00000CF0: 54 55 45 22 3B 3A 89 32 33 33 30 00 02 15 54 06 |TUE";:.2330...T.|
00000D00: 3A 3A 00 1B 15 5E 06 8B 41 B2 31 A7 98 34 2C 22 |::...^..A.1..4,"|
00000D10: 4A 41 4E 22 3B 3A 89 32 33 33 30 00 34 15 68 06 |JAN";:.2330.4.h.|
00000D20: 8B 41 B2 32 A7 98 34 2C 22 46 45 42 22 3B 3A 89 |.A.2..4,"FEB";:.|
00000D30: 32 33 33 30 00 4D 15 72 06 8B 41 B2 33 A7 98 34 |2330.M.r..A.3..4|
00000D40: 2C 22 4D 41 52 22 3B 3A 89 32 33 33 30 00 66 15 |,"MAR";:.2330.f.|
00000D50: 7C 06 8B 41 B2 34 A7 98 34 2C 22 41 50 52 22 3B ||..A.4..4,"APR";|
00000D60: 3A 89 32 33 33 30 00 7F 15 86 06 8B 41 B2 35 A7 |:.2330......A.5.|
00000D70: 98 34 2C 22 4D 41 59 22 3B 3A 89 32 33 33 30 00 |.4,"MAY";:.2330.|
00000D80: 98 15 90 06 8B 41 B2 36 A7 98 34 2C 22 4A 55 4E |.....A.6..4,"JUN|
00000D90: 22 3B 3A 89 32 33 33 30 00 B1 15 9A 06 8B 41 B2 |";:.2330......A.|
00000DA0: 37 A7 98 34 2C 22 4A 55 4C 22 3B 3A 89 32 33 33 |7..4,"JUL";:.233|
00000DB0: 30 00 CA 15 A4 06 8B 41 B2 38 A7 98 34 2C 22 41 |0......A.8..4,"A|
00000DC0: 55 47 22 3B 3A 89 32 33 33 30 00 E3 15 AE 06 8B |UG";:.2330......|
00000DD0: 41 B2 39 A7 98 34 2C 22 53 45 50 22 3B 3A 89 32 |A.9..4,"SEP";:.2|
00000DE0: 33 33 30 00 FD 15 B8 06 8B 41 B2 31 30 A7 98 34 |330......A.10..4|
00000DF0: 2C 22 4F 43 54 22 3B 3A 89 32 33 33 30 00 17 16 |,"OCT";:.2330...|
00000E00: C2 06 8B 41 B2 31 31 A7 98 34 2C 22 4E 4F 56 22 |...A.11..4,"NOV"|
00000E10: 3B 3A 89 32 33 33 30 00 2B 16 CC 06 98 34 2C 22 |;:.2330.+....4,"|
00000E20: 44 45 43 22 3B 3A 89 32 33 33 30 00 32 16 D6 06 |DEC";:.2330.2...|
00000E30: 3A 3A 00 3E 16 E0 06 99 C7 28 31 34 37 29 00 60 |::.>.....(147).`|
00000E40: 16 EA 06 99 A3 31 36 29 22 53 59 4D 42 4F 4C 53 |.....16)"SYMBOLS|
00000E50: 22 3A 99 A3 31 36 29 22 2D 2D 2D 2D 2D 2D 2D 22 |":..16)"-------"|
00000E60: 00 7B 16 F4 06 99 A3 35 29 22 58 2E 2E 2E 20 43 |.{.....5)"X... C|
00000E70: 45 4E 54 45 52 20 4C 49 4E 45 22 00 9D 16 FE 06 |ENTER LINE".....|
00000E80: 99 A3 35 29 22 50 2E 2E 2E 20 50 48 59 53 49 43 |..5)"P... PHYSIC|
00000E90: 41 4C 20 28 32 33 2D 44 41 59 53 29 22 00 C2 16 |AL (23-DAYS)"...|
00000EA0: 08 07 99 A3 35 29 22 53 2E 2E 2E 20 53 45 4E 53 |....5)"S... SENS|
00000EB0: 49 54 49 56 49 54 59 20 28 32 38 2D 44 41 59 53 |ITIVITY (28-DAYS|
00000EC0: 29 22 00 E8 16 12 07 99 A3 35 29 22 49 2E 2E 2E |)".......5)"I...|
00000ED0: 20 49 4E 54 45 4C 4C 45 43 54 55 41 4C 20 28 33 | INTELLECTUAL (3|
00000EE0: 33 2D 44 41 59 53 29 22 00 F0 16 1C 07 99 3A 99 |3-DAYS)"......:.|
00000EF0: 00 1A 17 26 07 99 22 44 41 54 45 22 3B A3 31 32 |...&.."DATE";.12|
00000F00: 29 22 28 2D 29 22 3B A3 31 39 29 22 28 58 29 22 |)"(-)";.19)"(X)"|
00000F10: 3B A3 32 37 29 22 28 2B 29 22 00 20 17 30 07 99 |;.27)"(+)". .0..|
00000F20: 00 4D 17 3A 07 55 B2 56 AA 4E 3A 55 B2 55 AB 37 |.M.:.U.V.N:U.U.7|
00000F30: AC B5 28 55 AD 37 29 3A 42 B2 42 AB 31 3A 55 B2 |..(U.7):B.B.1:U.|
00000F40: 55 AB 31 3A 56 B2 56 AB 31 3A 4B B2 30 00 75 17 |U.1:V.V.1:K.0.u.|
00000F50: 44 07 81 49 B2 31 A4 4F 3A 56 B2 56 AA 31 3A 42 |D..I.1.O:V.V.1:B|
00000F60: B2 42 AA 31 3A 55 B2 55 AA 31 3A 8B 41 B3 B1 32 |.B.1:U.U.1:.A..2|
00000F70: A7 31 38 39 30 00 8B 17 4E 07 8B B5 28 43 AD 34 |.1890...N...(C.4|
00000F80: 29 B3 B1 43 AD 34 A7 31 38 39 30 00 93 17 58 07 |)..C.4.1890...X.|
00000F90: 4B B2 31 00 AB 17 62 07 8B 42 B3 B2 41 28 41 AA |K.1...b..B..A(A.|
00000FA0: 31 30 30 29 AA 4B A7 31 39 31 30 00 B9 17 6C 07 |100).K.1910...l.|
00000FB0: 41 B2 41 AA 31 3A 42 B2 31 00 C7 17 76 07 8B 55 |A.A.1:B.1...v..U|
00000FC0: B3 37 A7 31 39 33 30 00 CF 17 80 07 55 B2 30 00 |.7.1930.....U.0.|
00000FD0: DF 17 8A 07 8B 41 B3 B2 31 32 A7 31 39 35 30 00 |.....A..12.1950.|
00000FE0: ED 17 94 07 41 B2 31 3A 43 B2 43 AA 31 00 05 18 |....A.1:C.C.1...|
00000FF0: 9E 07 8B 28 41 B3 B1 45 29 AA 28 42 B3 B1 46 29 |...(A..E).(B..F)|
00001000: A7 31 39 37 30 00 31 18 A8 07 99 A3 37 29 22 2D |.1970.1.....7)"-|
00001010: 2D 2D 20 48 41 50 50 59 20 22 3B B6 28 43 AB 47 |-- HAPPY ";.(C.G|
00001020: 29 3B 22 20 42 49 52 54 48 44 41 59 20 2D 2D 2D |);" BIRTHDAY ---|
00001030: 22 00 42 18 B2 07 44 41 B2 55 AA 31 3A 8D 32 32 |".B...DA.U.1:.22|
00001040: 31 30 00 4A 18 BC 07 99 42 3B 00 62 18 C6 07 8B |10.J....B;.b....|
00001050: 4C 24 B2 22 50 22 B0 4C 24 B2 22 41 22 A7 32 30 |L$."P".L$."A".20|
00001060: 31 30 00 6C 18 D0 07 89 32 30 32 30 00 82 18 DA |10.l....2020....|
00001070: 07 58 B2 32 33 3A 8D 31 38 30 3A 41 28 33 30 29 |.X.23:.180:A(30)|
00001080: B2 59 00 9A 18 E4 07 8B 4C 24 B2 22 53 22 B0 4C |.Y......L$."S".L|
00001090: 24 B2 22 41 22 A7 32 30 34 30 00 A4 18 EE 07 89 |$."A".2040......|
000010A0: 32 30 35 30 00 BA 18 F8 07 58 B2 32 38 3A 8D 31 |2050.....X.28:.1|
000010B0: 38 30 3A 41 28 33 35 29 B2 59 00 D2 18 02 08 8B |80:A(35).Y......|
000010C0: 4C 24 B2 22 49 22 B0 4C 24 B2 22 41 22 A7 32 30 |L$."I".L$."A".20|
000010D0: 37 30 00 DC 18 0C 08 89 32 30 38 30 00 F2 18 16 |70......2080....|
000010E0: 08 58 B2 33 33 3A 8D 31 38 30 3A 41 28 34 30 29 |.X.33:.180:A(40)|
000010F0: B2 59 00 0B 19 20 08 4D B2 30 3A 81 4C B2 31 39 |.Y... .M.0:.L.19|
00001100: A4 36 36 3A 99 A3 4C AD 32 29 3B 00 25 19 2A 08 |.66:..L.2);.%.*.|
00001110: 8B 41 28 33 30 29 B2 4C 20 A7 99 22 50 22 3B 3A |.A(30).L .."P";:|
00001120: 89 32 31 34 30 00 3F 19 34 08 8B 41 28 33 35 29 |.2140.?.4..A(35)|
00001130: B2 4C 20 A7 99 22 53 22 3B 3A 89 32 31 34 30 00 |.L .."S";:.2140.|
00001140: 59 19 3E 08 8B 41 28 34 30 29 B2 4C 20 A7 99 22 |Y.>..A(40).L .."|
00001150: 49 22 3B 3A 89 32 31 34 30 00 69 19 48 08 8B 4C |I";:.2140.i.H..L|
00001160: B2 34 30 A7 99 22 58 22 3B 00 75 19 52 08 8B 4C |.40.."X";.u.R..L|
00001170: B2 36 36 A7 99 00 90 19 5C 08 4D B2 4D AA 31 3A |.66.....\.M.M.1:|
00001180: 8B 4D B3 B1 34 A7 32 31 35 30 3A 4C B2 31 30 30 |.M..4.2150:L.100|
00001190: 00 99 19 66 08 82 4C 2C 49 00 C1 19 70 08 99 3A |...f..L,I...p..:|
000011A0: 99 A3 38 29 3B 22 12 50 52 45 53 53 20 52 45 54 |..8);".PRESS RET|
000011B0: 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |URN TO CONTINUE.|
000011C0: 22 00 D5 19 7A 08 A1 5A 24 3A 8B 5A 24 B2 22 22 |"...z..Z$:.Z$.""|
000011D0: A7 32 31 37 30 00 E9 19 84 08 8B 5A 24 B3 B1 C7 |.2170......Z$...|
000011E0: 28 31 33 29 A7 32 31 37 30 00 F3 19 8E 08 89 32 |(13).2170......2|
000011F0: 33 35 30 00 FA 19 98 08 3A 3A 00 12 1A A2 08 8B |350.....::......|
00001200: 44 41 B2 31 A7 99 22 57 45 44 22 3B 3A 89 32 33 |DA.1.."WED";:.23|
00001210: 33 30 00 2A 1A AC 08 8B 44 41 B2 32 A7 99 22 54 |30.*....DA.2.."T|
00001220: 48 55 22 3B 3A 89 32 33 33 30 00 42 1A B6 08 8B |HU";:.2330.B....|
00001230: 44 41 B2 33 A7 99 22 46 52 49 22 3B 3A 89 32 33 |DA.3.."FRI";:.23|
00001240: 33 30 00 5A 1A C0 08 8B 44 41 B2 34 A7 99 22 53 |30.Z....DA.4.."S|
00001250: 41 54 22 3B 3A 89 32 33 33 30 00 72 1A CA 08 8B |AT";:.2330.r....|
00001260: 44 41 B2 35 A7 99 22 53 55 4E 22 3B 3A 89 32 33 |DA.5.."SUN";:.23|
00001270: 33 30 00 8A 1A D4 08 8B 44 41 B2 36 A7 99 22 4D |30......DA.6.."M|
00001280: 4F 4E 22 3B 3A 89 32 33 33 30 00 9C 1A DE 08 99 |ON";:.2330......|
00001290: 22 54 55 45 22 3B 3A 89 32 33 33 30 00 A3 1A E8 |"TUE";:.2330....|
000012A0: 08 3A 3A 00 B7 1A F2 08 81 49 B2 31 A4 31 32 3A |.::......I.1.12:|
000012B0: 87 41 28 49 29 3A 82 00 CE 1A FC 08 81 49 B2 31 |.A(I):.......I.1|
000012C0: 30 31 A4 31 31 32 3A 87 41 28 49 29 3A 82 00 FE |01.112:.A(I):...|
000012D0: 1A 06 09 83 30 2C 33 31 2C 35 39 2C 39 30 2C 31 |....0,31,59,90,1|
000012E0: 32 30 2C 31 35 31 2C 31 38 31 2C 32 31 32 2C 32 |20,151,181,212,2|
000012F0: 34 33 2C 32 37 33 2C 33 30 34 2C 33 33 34 00 27 |43,273,304,334.'|
00001300: 1B 10 09 83 33 31 2C 32 38 2C 33 31 2C 33 30 2C |....31,28,31,30,|
00001310: 33 31 2C 33 30 2C 33 31 2C 33 31 2C 33 30 2C 33 |31,30,31,31,30,3|
00001320: 31 2C 33 30 2C 33 31 00 2D 1B 1A 09 8E 00 33 1B |1,30,31.-.....3.|
00001330: 24 09 3A 00 41 1B 2E 09 99 C7 28 31 34 37 29 3A |$.:.A.....(147):|
00001340: 99 00 6D 1B 38 09 99 A3 34 29 3B 22 44 4F 20 59 |..m.8...4);"DO Y|
00001350: 4F 55 20 57 41 4E 54 20 41 4E 4F 54 48 45 52 20 |OU WANT ANOTHER |
00001360: 43 48 41 52 54 20 28 59 2F 4E 29 22 3B 00 81 1B |CHART (Y/N)";...|
00001370: 42 09 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 32 33 37 |B..Z$:.Z$."".237|
00001380: 30 00 99 1B 4C 09 8B C8 28 5A 24 2C 31 29 B2 22 |0...L...(Z$,1)."|
00001390: 59 22 A7 9C 3A 89 31 34 30 00 B2 1B 56 09 8B C8 |Y"..:.140...V...|
000013A0: 28 5A 24 2C 31 29 B2 22 4E 22 A7 9C 3A 89 32 34 |(Z$,1)."N"..:.24|
000013B0: 31 30 00 D6 1B 60 09 8B C8 28 5A 24 2C 31 29 B3 |10...`...(Z$,1).|
000013C0: B1 22 59 22 AF C8 28 5A 24 2C 31 29 B3 B1 22 4E |."Y"..(Z$,1).."N|
000013D0: 22 A7 32 33 37 30 00 EE 1B 6A 09 99 C7 28 31 34 |".2370...j...(14|
000013E0: 37 29 3A 81 58 B2 31 A4 31 31 3A 99 3A 82 00 0E |7):.X.1.11:.:...|
000013F0: 1C 74 09 99 A3 31 32 29 3B 22 12 45 4E 44 20 4F |.t...12);".END O|
00001400: 46 20 50 52 4F 47 52 41 4D 2E 92 22 3A 80 00 00 |F PROGRAM..":...|
00001410: 00 |. |
....D..53280,1:.53281,1./.N..G(147):.X.1
.10:.:..U.X...15)"BIORHYTHM":..15)"-----
----".E....T.1.1000:..S....G(147):......
.A(150):.2290... .DF.6.28318......240...
..X.(V.X..(V.X)).DF.....Y..(X).P.H.X.X.5
7.295755...R.Y.(Y.18).44.....Y..(Y).....
.2330......"STARTING DATE (EX 26,8,1984)
:".%....D,M,Y.5...B.D:A.M:C.Y.?....1380.
G...Z.T.N."..:."YOUR BIRTHDAY (EX 26,8,1
984):".Y.,..D,M,Y...6.F.D:E.M:G.Y...@..1
380...J.V.T.Z...T.V..(V)...^.::...H.....
R.."HOW MANY DAYS DO YOU WANT DISPLAYED"
;:.O...|........ *** CYCLE CHOICE ***.#.
....11)"P... PLOT PHYSICAL".E.....11)"I.
.. PLOT INTELLECTUAL".F.....11)"S... PLO
T SENSITIVITY".......11)"A... PLOT ALL C
YCLES".........B...12)".ENTER SELECTION:
.";:.L$.X.L..L$.."P".L$.."I".L$.."S".L$.
."A".450...V..G(147):.......:......."YOU
R BIRTHDAY IS ";:MN.E......1170. ....F;G
.I...."YOU WERE BORN ON A ";:DB.N.1:.130
0.~....",";V;"DAYS (";.((V.365).100).100
;"YEARS) AGO.".........&.."YOUR BIORHYTH
M CYCLES FROM:".B.0.MN.A:.1170:.B;C;"TO
";.V.:.S.A:R.B.O.1:T.C...D..S.12.600...N
.S.1:T.T.1:.630...X..S..2.630...B...(T.4
)..T.4.630.".L.K.1.9.V..R..A(S.100).K.66
0.^...R.R.(A(S.100).K):.S..1.S.S.1:K.0.G
....580.{...MN.S:.1170:.R;T......:.:..8)
;"1- SEND CHART TO SCREEN".F.....8);"2-
SEND CHART TO PRINTER"......:..9);".ENTE
R SELECTION NUMBER."......Z$:.Z$."".700.
..F..E(Z$).1760,720.C.P..:..4)".TURN ON
PRINTER AND PRESS RETURN..".V.Z..Z$:.Z$.
"".730.I....Z$..G(13).730.{...A$.G(16):.
4,4......4,.36)"SYMBOLS":.4,.36)"-------
"......4,.28)"X... CENTER LINE"......4,.
28)"P... PHYSICAL (23-DAYS)"......4,.28)
"S... SENSITIVITY (28-DAYS)".:. ..4,.28)
"I... INTELLECTUAL (33-DAYS)"'CFSK.D.*..
4:.4.U.4..4,.7)"DATE";.9)"(-)";.18)"(X)"
;.18)"(+)":.4.|.>..4...H.U.V.N:U.U.7..(U
.7):B.B.1:U.U.1:V.V.1:K.0.P.R..I.1.O:V.V
.1:B.B.1:U.U.1:.A..2.880...\...(C.4)..C.
4.880...F.K.1...P..B..A(A.100).K.900...Z
.A.A.1:B.1......U.7.920.'...U.0.6....A..
12.940.D...A.1:C.C.1.[....(A..E).(B..F).
960......4,.28)"--- HAPPY ";.(C.G);" BIR
THDAY ---":.4.....DA.U.1:.1550...J..4,"
";:.1630:.4,B;C;.R.T..L$."P".L$."A".10
00......1010.....X.23:.180:A(30).Y......
L$."S".L$."A".1030......1040.*...X.28:.1
80:A(35).Y.C....L$."I".L$."A".1060 .M...
.1070.C.$.X.33:.180:A(40).Y.....M.0:.L.1
9.66:.4,A$;C(D(L));...8..A(30).L..4,"P";
:.1130...B..A(35).L..4,"S";:.1130.T.L..A
(40).L..4,"I";:.1130...V..L.40..4,"X";..
.`..L.66..4,...J.M.M.1:.M..4.1140:L.100.
..T..L,I.(.~..4: 4:.2350./...::.K....MN.
1.."JANUARY";:.2330.H....MN.2.."FEBRUARY
";:.2330......MN.3.."MARCH";:.2330......
MN.4.."APRIL";:.2330......MN.5.."MAY";:.
2330.M.D..MN.6.."JUNE";:.2330...N..MN.7.
."JULY";:.2330...X..MN.8.."AUGUST";:.233
0......MN.9.."SEPTEMBER";:.2330.<....MN.
10.."OCTOBER";:.2330.Z....MN.11.."NOVEMB
ER";:.2330.Q...."DECEMBER";:.2330.X...::
......DB.1.."WEDNESDAY";:.2330......DB.2
.."THURSDAY";:.2330.N.(..DB.3.."FRIDAY";
:.2330...2..DB.4.."SATURDAY";:.2330...<.
.DB.5.."SUNDAY";:.2330.!.F..DB.6.."MONDA
Y";:....."...#....Y..2....$...."./.#.."?
/S#.O>F.....6OK..G...6OK..G......W#.OK..
.F....G.......Z...."!..#..C.O..O...."L..
...C...O..O...."M/.#..C...F...O..O...."O
/.#..../.#.O.....F6F.F3F....#.O;F2...F
3F.....#.M.3.1490...H.T.T.K...R...(H.4).
.H.4.1520......M.2.1520.)...T.T.1.:...N.
T.7..(T.7).D....2330.K...::.E....DA.1..4
,"WED";:.2330.....DA.2..4,"THU";:.2330.
.."..DA.3..4,"FRI";:.2330...,..DA.4..4,"
SAT";:.2330.M.6..DA.5..4,"SUN";:.2330...
@..DA.6..4,"MON";:.2330...J..4,"TUE";:.2
330...T.::...^..A.1..4,"JAN";:.2330.4.H.
.A.2..4,"FEB";:.2330.M.R..A.3..4,"MAR";:
.2330.F.|..A.4..4,"APR";:.2330.....A.5.
.4,"MAY";:.2330......A.6..4,"JUN";:.2330
......A.7..4,"JUL";:.2330.J....A.8..4,"A
UG";:.2330......A.9..4,"SEP";:.2330.....
.A.10..4,"OCT";:.2330...B..A.11..4,"NOV"
;:.2330.+.L..4,"DEC";:.2330.2.V.::.>....
G(147).`.....16)"SYMBOLS":..16)"-------"
.{.....5)"X... CENTER LINE".......5)"P..
. PHYSICAL (23-DAYS)".B.....5)"S... SENS
ITIVITY (28-DAYS)".......5)"I... INTELLE
CTUAL (33-DAYS)"......:....&.."DATE";.12
)"(-)";.19)"(X)";.27)"(+)". .0...M.:.U.V
.N:U.U.7..(U.7):B.B.1:U.U.1:V.V.1:K.0.U.
D..I.1.O:V.V.1:B.B.1:U.U.1:.A..2.1890...
N...(C.4)..C.4.1890...X.K.1...B..B..A(A.
100).K.1910...L.A.A.1:B.1.G.V..U.7.1930.
O...U.0......A..12.1950.....A.1:C.C.1...
...(A..E).(B..F).1970.1.....7)"--- HAPPY
";.(C.G);" BIRTHDAY ---".B...DA.U.1:.22
10.J....B;.B.F..L$."P".L$."A".2010.L.P..
2020...Z.X.23:.180:A(30).Y......L$."S".L
$."A".2040......2050.....X.28:.180:A(35)
.Y.R....L$."I".L$."A".2070......2080....
.X.33:.180:A(40).Y... .M.0:.L.19.66:..L.
2);.%.*..A(30).L .."P";:.2140.?.4..A(35)
.L .."S";:.2140.Y.>..A(40).L .."I";:.214
0.I.H..L.40.."X";.U.R..L.66.....\.M.M.1:
.M..4.2150:L.100...F..L,I.A.P..:..8);".P
RESS RETURN TO CONTINUE.".U.Z..Z$:.Z$.""
.2170......Z$..G(13).2170......2350.....
::......DA.1.."WED";:.2330.*....DA.2.."T
HU";:.2330.B....DA.3.."FRI";:.2330.Z....
DA.4.."SAT";:.2330.R.J..DA.5.."SUN";:.23
30...T..DA.6.."MON";:.2330......"TUE";:.
2330.....::......I.1.12:.A(I):..N....I.1
01.112:.A(I):.......0,31,59,90,120,151,1
81,212,243,273,304,334.'....31,28,31,30,
31,30,31,31,30,31,30,31.-.....3.$.:.A...
.G(147):..M.8...4);"DO YOU WANT ANOTHER
CHART (Y/N)";...B..Z$:.Z$."".2370...L..H
(Z$,1)."Y"..:.140...V..H(Z$,1)."N"..:.24
10.V.`..H(Z$,1).."Y".H(Z$,1).."N".2370..
.J..G(147):.X.1.11:.:....T...12);".END O
F PROGRAM..":....
> CLICK IMAGE PREVIEW FOR FULL MODAL