Multiple names: BIOPRINTER, BIO PRINTER

00000000: 01 08 16 08 0A 00 8F 20  42 49 4F 50 52 49 4E 54  |....... BIOPRINT|
00000010: 45 52 20 36 2E 30 00 29  08 14 00 86 41 25 28 31  |ER 6.0.)....A%(1|
00000020: 32 29 2C 4D 24 28 31 32  29 00 4D 08 1E 00 99 22  |2),M$(12).M...."|
00000030: 93 22 A3 39 29 22 12 20  42 20 49 20 4F 20 50 20  |.".9)". B I O P |
00000040: 52 20 49 20 4E 20 54 20  45 20 52 20 22 00 7B 08  |R I N T E R ".{.|
00000050: 28 00 85 22 11 49 4E 50  55 54 20 44 45 56 49 43  |(..".INPUT DEVIC|
00000060: 45 20 23 2C 20 53 43 52  45 45 4E 3D 33 20 50 52  |E #, SCREEN=3 PR|
00000070: 49 4E 54 45 52 3D 34 22  3B 44 56 00 8F 08 32 00  |INTER=4";DV...2.|
00000080: 8B 44 56 B3 B1 33 AF 44  56 B3 B1 34 A7 34 30 00  |.DV..3.DV..4.40.|
00000090: 99 08 3C 00 9F 34 2C 44  56 00 A3 08 46 00 43 4F  |..<..4,DV...F.CO|
000000A0: B2 33 39 00 B3 08 50 00  8B 44 56 B2 34 A7 43 4F  |.39...P..DV.4.CO|
000000B0: B2 37 39 00 D8 08 5A 00  53 24 B2 C7 28 31 29 3A  |.79...Z.S$..(1):|
000000C0: 43 4C B2 B5 28 28 43 4F  AB 31 30 29 AD 32 29 3A  |CL..((CO.10).2):|
000000D0: 43 4E B2 43 4C AA 31 30  00 F4 08 64 00 81 49 B2  |CN.CL.10...d..I.|
000000E0: 31 A4 31 30 3A 43 52 24  B2 43 52 24 AA C7 28 31  |1.10:CR$.CR$..(1|
000000F0: 33 29 3A 82 00 27 09 6E  00 81 49 B2 31 A4 43 4F  |3):..'.n..I.1.CO|
00000100: 3A 53 50 24 B2 53 50 24  AA 22 20 22 3A 41 53 24  |:SP$.SP$." ":AS$|
00000110: B2 41 53 24 AA 22 20 22  3A 41 52 24 B2 41 52 24  |.AS$." ":AR$.AR$|
00000120: AA 22 C0 C0 22 3A 82 00  3C 09 78 00 81 49 B2 31  |."..":..<.x..I.1|
00000130: A4 31 32 3A 87 41 25 28  49 29 3A 82 00 52 09 82  |.12:.A%(I):..R..|
00000140: 00 81 49 B2 30 A4 36 3A  87 44 41 59 24 28 49 29  |..I.0.6:.DAY$(I)|
00000150: 3A 82 00 67 09 8C 00 81  49 B2 31 A4 31 32 3A 87  |:..g....I.1.12:.|
00000160: 4D 24 28 49 29 3A 82 00  70 09 96 00 87 44 44 24  |M$(I):..p....DD$|
00000170: 00 8B 09 A0 00 85 22 11  49 4E 50 55 54 20 59 4F  |......".INPUT YO|
00000180: 55 52 20 4E 41 4D 45 22  3B 4E 24 00 94 09 AA 00  |UR NAME";N$.....|
00000190: 88 5A B2 30 00 BF 09 B4  00 85 22 11 49 4E 50 55  |.Z.0......".INPU|
000001A0: 54 20 53 54 41 52 54 20  44 41 54 45 20 4D 4D 2C  |T START DATE MM,|
000001B0: 44 44 2C 59 59 22 3B 4D  53 2C 44 53 2C 59 53 00  |DD,YY";MS,DS,YS.|
000001C0: DE 09 BE 00 4D 53 B2 B5  28 4D 53 29 3A 44 53 B2  |....MS..(MS):DS.|
000001D0: B5 28 44 53 29 3A 59 53  B2 B5 28 59 53 29 00 09  |.(DS):YS..(YS)..|
000001E0: 0A C8 00 85 22 11 49 4E  50 55 54 20 42 49 52 54  |....".INPUT BIRT|
000001F0: 48 20 44 41 54 45 20 4D  4D 2C 44 44 2C 59 59 22  |H DATE MM,DD,YY"|
00000200: 3B 4D 42 2C 44 42 2C 59  42 00 28 0A D2 00 4D 42  |;MB,DB,YB.(...MB|
00000210: B2 B5 28 4D 42 29 3A 44  42 B2 B5 28 44 42 29 3A  |..(MB):DB..(DB):|
00000220: 59 42 B2 B5 28 59 42 29  00 48 0A DC 00 96 A5 49  |YB..(YB).H.....I|
00000230: 28 58 29 B2 B5 28 43 4C  AC BF 28 32 AC FF AC 58  |(X)..(CL..(2...X|
00000240: AD 33 33 29 AA 2E 35 29  00 68 0A E6 00 96 A5 45  |.33)..5).h.....E|
00000250: 28 58 29 B2 B5 28 43 4C  AC BF 28 32 AC FF AC 58  |(X)..(CL..(2...X|
00000260: AD 32 38 29 AA 2E 35 29  00 88 0A F0 00 96 A5 50  |.28)..5).......P|
00000270: 28 58 29 B2 B5 28 43 4C  AC BF 28 32 AC FF AC 58  |(X)..(CL..(2...X|
00000280: AD 32 33 29 AA 2E 35 29  00 B1 0A FA 00 54 53 B2  |.23)..5).....TS.|
00000290: B5 28 44 53 AA 33 36 35  2E 32 35 AC 59 53 AA 41  |.(DS.365.25.YS.A|
000002A0: 25 28 4D 53 29 AA 2E 30  31 AC 4D 53 AB 2E 30 33  |%(MS)..01.MS..03|
000002B0: 29 00 DA 0A 04 01 54 42  B2 B5 28 44 42 AA 33 36  |).....TB..(DB.36|
000002C0: 35 2E 32 35 AC 59 42 AA  41 25 28 4D 42 29 AA 2E  |5.25.YB.A%(MB)..|
000002D0: 30 31 AC 4D 42 AB 2E 30  33 29 00 E6 0A 0E 01 58  |01.MB..03).....X|
000002E0: B2 54 53 AB 54 42 00 06  0B 18 01 85 22 11 48 4F  |.TS.TB......".HO|
000002F0: 57 20 4D 41 4E 59 20 44  41 59 53 20 54 4F 20 52  |W MANY DAYS TO R|
00000300: 55 4E 22 3B 53 50 00 12  0B 22 01 53 50 B2 53 50  |UN";SP...".SP.SP|
00000310: AB 31 00 2C 0B 2C 01 52  42 B2 54 42 AB 31 AB B5  |.1.,.,.RB.TB.1..|
00000320: 28 28 54 42 AB 31 29 AD  37 29 AC 37 00 36 0B 36  |((TB.1).7).7.6.6|
00000330: 01 99 22 93 22 3B 00 6D  0B 40 01 98 34 2C 43 52  |..".";.m.@..4,CR|
00000340: 24 3B 53 24 22 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 20  |$;S$"********** |
00000350: 42 20 49 20 4F 20 52 20  48 20 59 20 54 20 48 20  |B I O R H Y T H |
00000360: 4D 20 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 22 00 7D 0B  |M **********".}.|
00000370: 4A 01 98 34 2C C8 28 43  52 24 2C 33 29 00 87 0B  |J..4,.(CR$,3)...|
00000380: 54 01 8D 31 30 32 30 00  A6 0B 5E 01 54 24 B2 22  |T..1020...^.T$."|
00000390: 20 41 4E 41 4C 59 53 49  53 20 46 4F 52 20 22 AA  | ANALYSIS FOR ".|
000003A0: 4E 24 AA 22 20 22 00 B6  0B 68 01 54 32 24 B2 53  |N$." "...h.T2$.S|
000003B0: 24 3A 8D 39 35 30 00 D1  0B 72 01 98 34 2C 22 20  |$:.950...r..4," |
000003C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003D0: 22 00 03 0C 7C 01 54 24  B2 22 20 42 4F 52 4E 20  |"...|.T$." BORN |
000003E0: 22 AA 44 41 59 24 28 52  42 29 AA 22 2C 20 22 AA  |".DAY$(RB).", ".|
000003F0: 4D 24 28 4D 42 29 AA C4  28 44 42 29 AA 22 2C 20  |M$(MB)..(DB).", |
00000400: 31 39 22 00 2D 0C 86 01  54 24 B2 54 24 AA C9 28  |19".-...T$.T$..(|
00000410: C4 28 B5 28 59 42 AD 31  30 29 29 2C 31 29 AA C9  |.(.(YB.10)),1)..|
00000420: 28 C4 28 59 42 29 2C 31  29 AA 22 20 22 00 3D 0C  |(.(YB),1)." ".=.|
00000430: 90 01 54 32 24 B2 22 22  3A 8D 39 35 30 00 56 0C  |..T2$."":.950.V.|
00000440: 9A 01 52 B2 54 53 AB 31  AB B5 28 28 54 53 AB 31  |..R.TS.1..((TS.1|
00000450: 29 AD 37 29 AC 37 00 7A  0C A4 01 8F 20 47 4F 54  |).7).7.z.... GOT|
00000460: 4F 35 35 30 20 54 4F 20  53 4B 49 50 20 23 20 4F  |O550 TO SKIP # O|
00000470: 46 20 44 41 59 53 20 49  4E 2E 00 B3 0C AE 01 54  |F DAYS IN......T|
00000480: 24 B2 22 20 53 54 41 52  54 49 4E 47 20 44 41 54  |$." STARTING DAT|
00000490: 45 20 22 AA 44 41 59 24  28 52 29 AA 22 2C 22 AA  |E ".DAY$(R).",".|
000004A0: 4D 24 28 4D 53 29 AA C4  28 44 53 29 AA 22 2C 20  |M$(MS)..(DS).", |
000004B0: 31 39 22 00 DD 0C B8 01  54 24 B2 54 24 AA C9 28  |19".....T$.T$..(|
000004C0: C4 28 B5 28 59 53 AD 31  30 29 29 2C 31 29 AA C9  |.(.(YS.10)),1)..|
000004D0: 28 C4 28 59 53 29 2C 31  29 AA 22 20 22 00 ED 0C  |(.(YS),1)." "...|
000004E0: C2 01 54 32 24 B2 22 22  3A 8D 39 35 30 00 2C 0D  |..T2$."":.950.,.|
000004F0: CC 01 54 24 B2 C4 28 B5  28 32 33 AC 28 58 AD 32  |..T$..(.(23.(X.2|
00000500: 33 AB B5 28 58 AD 32 33  29 29 29 29 AA 22 20 44  |3..(X.23))))." D|
00000510: 41 59 53 20 49 4E 54 4F  20 54 48 45 20 50 48 59  |AYS INTO THE PHY|
00000520: 53 49 43 41 4C 20 43 59  43 4C 45 22 00 3C 0D D6  |SICAL CYCLE".<..|
00000530: 01 54 32 24 B2 22 22 3A  8D 39 35 30 00 7C 0D E0  |.T2$."":.950.|..|
00000540: 01 54 24 B2 C4 28 B5 28  32 38 AC 28 58 AD 32 38  |.T$..(.(28.(X.28|
00000550: AB B5 28 58 AD 32 38 29  29 29 29 AA 22 20 44 41  |..(X.28))))." DA|
00000560: 59 53 20 49 4E 54 4F 20  54 48 45 20 45 4D 4F 54  |YS INTO THE EMOT|
00000570: 49 4F 4E 41 4C 20 43 59  43 4C 45 22 00 8C 0D EA  |IONAL CYCLE"....|
00000580: 01 54 32 24 B2 22 22 3A  8D 39 35 30 00 CF 0D F4  |.T2$."":.950....|
00000590: 01 54 24 B2 C4 28 B5 28  33 33 AC 28 58 AD 33 33  |.T$..(.(33.(X.33|
000005A0: AB B5 28 58 AD 33 33 29  29 29 29 AA 22 20 44 41  |..(X.33))))." DA|
000005B0: 59 53 20 49 4E 54 4F 20  54 48 45 20 49 4E 54 45  |YS INTO THE INTE|
000005C0: 4C 4C 45 43 54 55 41 4C  20 43 59 43 4C 45 22 00  |LLECTUAL CYCLE".|
000005D0: DF 0D FE 01 54 32 24 B2  22 22 3A 8D 39 35 30 00  |....T2$."":.950.|
000005E0: 0B 0E 08 02 54 24 B2 22  50 20 3D 20 54 48 45 20  |....T$."P = THE |
000005F0: 50 48 59 53 49 43 41 4C  20 43 59 43 4C 45 22 3A  |PHYSICAL CYCLE":|
00000600: 54 32 24 B2 22 22 3A 8D  39 35 30 00 38 0E 12 02  |T2$."":.950.8...|
00000610: 54 24 B2 22 45 20 3D 20  54 48 45 20 45 4D 4F 54  |T$."E = THE EMOT|
00000620: 49 4F 4E 41 4C 20 43 59  43 4C 45 22 3A 54 32 24  |IONAL CYCLE":T2$|
00000630: B2 22 22 3A 8D 39 35 30  00 68 0E 1C 02 54 24 B2  |."":.950.h...T$.|
00000640: 22 49 20 3D 20 54 48 45  20 49 4E 54 45 4C 4C 45  |"I = THE INTELLE|
00000650: 43 54 55 41 4C 20 43 59  43 4C 45 22 3A 54 32 24  |CTUAL CYCLE":T2$|
00000660: B2 22 22 3A 8D 39 35 30  00 6F 0E 26 02 98 34 00  |."":.950.o.&..4.|
00000670: 96 0E 30 02 98 34 2C A6  38 29 22 44 4F 57 4E 22  |..0..4,.8)"DOWN"|
00000680: A6 32 38 29 22 43 52 49  54 49 43 41 4C 22 A6 32  |.28)"CRITICAL".2|
00000690: 38 29 22 55 50 22 00 A0  0E 3A 02 8D 31 31 39 30  |8)"UP"...:..1190|
000006A0: 00 AA 0E 44 02 8D 31 32  31 30 00 B0 0E 4E 02 8F  |...D..1210...N..|
000006B0: 00 E4 0E 58 02 54 24 B2  C8 28 44 41 59 24 28 52  |...X.T$..(DAY$(R|
000006C0: 29 2C 33 29 AA 22 20 22  AA CA 28 44 44 24 2C 32  |),3)." "..(DD$,2|
000006D0: AC 44 53 AB 31 2C 32 29  AA 22 20 A1 22 AA 4D 24  |.DS.1,2)." .".M$|
000006E0: 28 4D 53 29 00 FA 0E 62  02 46 28 30 29 B2 43 4E  |(MS)...b.F(0).CN|
000006F0: 3A 46 24 28 30 29 B2 22  DD 22 00 16 0F 6C 02 46  |:F$(0)."."...l.F|
00000700: 28 31 29 B2 43 4E AA A5  49 28 58 29 3A 46 24 28  |(1).CN..I(X):F$(|
00000710: 31 29 B2 22 49 22 00 32  0F 76 02 46 28 32 29 B2  |1)."I".2.v.F(2).|
00000720: 43 4E AA A5 45 28 58 29  3A 46 24 28 32 29 B2 22  |CN..E(X):F$(2)."|
00000730: 45 22 00 4E 0F 80 02 46  28 33 29 B2 43 4E AA A5  |E".N...F(3).CN..|
00000740: 50 28 58 29 3A 46 24 28  33 29 B2 22 50 22 00 56  |P(X):F$(3)."P".V|
00000750: 0F 8A 02 46 B2 30 00 61  0F 94 02 81 49 B2 30 A4  |...F.0.a....I.0.|
00000760: 32 00 6E 0F 9E 02 81 4A  B2 49 AA 31 A4 33 00 81  |2.n....J.I.1.3..|
00000770: 0F A8 02 8B 46 28 49 29  B3 46 28 4A 29 A7 37 34  |....F(I).F(J).74|
00000780: 30 00 C4 0F B2 02 8B 46  28 49 29 B2 46 28 4A 29  |0......F(I).F(J)|
00000790: AF 46 28 49 29 B2 43 4E  A7 8B 46 28 49 29 B2 43  |.F(I).CN..F(I).C|
000007A0: 4E A7 46 28 49 29 B2 30  3A 46 24 28 49 29 B2 22  |N.F(I).0:F$(I)."|
000007B0: 22 3A 46 24 28 4A 29 B2  22 43 22 3A 46 B2 31 3A  |":F$(J)."C":F.1:|
000007C0: 89 37 34 30 00 F2 0F BC  02 8B 46 28 49 29 B2 46  |.740......F(I).F|
000007D0: 28 4A 29 A7 46 28 49 29  B2 30 3A 46 24 28 49 29  |(J).F(I).0:F$(I)|
000007E0: B2 22 22 3A 46 24 28 4A  29 B2 22 58 22 3A 89 37  |."":F$(J)."X":.7|
000007F0: 34 30 00 06 10 C6 02 51  B2 46 28 49 29 3A 51 24  |40.....Q.F(I):Q$|
00000800: B2 46 24 28 49 29 00 20  10 D0 02 46 28 49 29 B2  |.F$(I). ...F(I).|
00000810: 46 28 4A 29 3A 46 24 28  49 29 B2 46 24 28 4A 29  |F(J):F$(I).F$(J)|
00000820: 00 34 10 DA 02 46 28 4A  29 B2 51 3A 46 24 28 4A  |.4...F(J).Q:F$(J|
00000830: 29 B2 51 24 00 3D 10 E4  02 82 4A 2C 49 00 5E 10  |).Q$.=....J,I.^.|
00000840: EE 02 8B 46 B2 31 A7 54  24 B2 54 24 AA C8 28 41  |...F.1.T$.T$..(A|
00000850: 52 24 2C 43 4E AB 31 AB  C3 28 54 24 29 29 00 69  |R$,CN.1..(T$)).i|
00000860: 10 F8 02 81 49 B2 30 A4  33 00 75 10 02 03 57 B2  |....I.0.3.u...W.|
00000870: C3 28 54 24 29 00 86 10  0C 03 8B 46 28 49 29 B3  |.(T$)......F(I).|
00000880: B2 57 A7 38 30 30 00 A4  10 16 03 54 24 B2 54 24  |.W.800.....T$.T$|
00000890: AA C8 28 53 50 24 2C 46  28 49 29 AB 57 29 AA 46  |..(SP$,F(I).W).F|
000008A0: 24 28 49 29 00 AA 10 20  03 82 00 D7 10 2A 03 98  |$(I)... .....*..|
000008B0: 34 2C 54 24 3A 58 B2 58  AA 2E 35 3A 8B B5 28 58  |4,T$:X.X..5:..(X|
000008C0: 29 B3 B1 58 A7 54 24 B2  22 20 20 20 20 20 20 20  |)..X.T$."       |
000008D0: A1 22 3A 89 36 31 30 00  E5 10 34 03 8B 5A B2 53  |.":.610...4..Z.S|
000008E0: 50 A7 39 32 30 00 F8 10  3E 03 52 B2 52 AA 31 3A  |P.920...>.R.R.1:|
000008F0: 8B 52 B2 37 A7 52 B2 30  00 24 11 48 03 44 53 B2  |.R.7.R.0.$.H.DS.|
00000900: 44 53 AA 31 3A 8B 4D 53  B2 34 B0 4D 53 B2 36 B0  |DS.1:.MS.4.MS.6.|
00000910: 4D 53 B2 39 B0 4D 53 B2  31 31 A7 4C B2 33 30 3A  |MS.9.MS.11.L.30:|
00000920: 89 38 38 30 00 45 11 52  03 8B 4D 53 B2 32 AF 59  |.880.E.R..MS.2.Y|
00000930: 53 AD 34 B2 B5 28 59 53  AD 34 29 A7 4C B2 32 39  |S.4..(YS.4).L.29|
00000940: 3A 89 38 38 30 00 59 11  5C 03 8B 4D 53 B2 32 A7  |:.880.Y.\..MS.2.|
00000950: 4C B2 32 38 3A 89 38 38  30 00 62 11 66 03 4C B2  |L.28:.880.b.f.L.|
00000960: 33 31 00 81 11 70 03 8B  44 53 B1 4C A7 44 53 B2  |31...p..DS.L.DS.|
00000970: 44 53 AB 4C 3A 4D 53 B2  4D 53 AA 31 3A 89 39 30  |DS.L:MS.MS.1:.90|
00000980: 30 00 B9 11 7A 03 54 24  B2 C8 28 44 41 59 24 28  |0...z.T$..(DAY$(|
00000990: 52 29 2C 33 29 AA 22 20  22 AA CA 28 44 44 24 2C  |R),3)." "..(DD$,|
000009A0: 32 AC 44 53 AB 31 2C 32  29 AA 22 20 A1 22 3A 5A  |2.DS.1,2)." .":Z|
000009B0: B2 5A AA 31 3A 89 36 31  30 00 D4 11 84 03 8B 4D  |.Z.1:.610......M|
000009C0: 53 B2 31 33 A7 4D 53 B2  31 3A 5A B2 5A AA 31 3A  |S.13.MS.1:Z.Z.1:|
000009D0: 89 35 39 30 00 E3 11 8E  03 5A B2 5A AA 31 3A 89  |.590.....Z.Z.1:.|
000009E0: 35 39 30 00 F3 11 98 03  8D 31 31 39 30 3A 8D 31  |590......1190:.1|
000009F0: 32 31 30 00 FE 11 A2 03  98 34 2C 43 52 24 00 07  |210......4,CR$..|
00000A00: 12 AC 03 89 31 36 30 00  16 12 B6 03 43 54 B2 B5  |....160.....CT..|
00000A10: 28 43 4F AD 32 29 00 28  12 C0 03 8B 54 32 24 B2  |(CO.2).(....T2$.|
00000A20: 22 22 A7 43 54 B2 43 4F  00 3F 12 CA 03 54 31 B2  |"".CT.CO.?...T1.|
00000A30: B5 28 28 43 54 AB C3 28  54 24 29 29 AD 32 29 00  |.((CT..(T$)).2).|
00000A40: 53 12 D4 03 8B 54 31 B3  31 A7 99 54 24 3A 89 31  |S....T1.1..T$:.1|
00000A50: 30 31 30 00 6C 12 DE 03  54 32 24 B2 54 32 24 AA  |010.l...T2$.T2$.|
00000A60: C8 28 41 53 24 2C 54 31  29 AA 54 24 00 7A 12 E8  |.(AS$,T1).T$.z..|
00000A70: 03 98 34 2C 54 32 24 3A  98 34 00 80 12 F2 03 8E  |..4,T2$:.4......|
00000A80: 00 BC 12 FC 03 98 34 2C  22 54 48 45 20 50 55 52  |......4,"THE PUR|
00000A90: 50 4F 53 45 20 4F 46 20  42 49 4F 52 48 59 54 48  |POSE OF BIORHYTH|
00000AA0: 4D 20 49 53 20 54 4F 20  50 52 45 44 49 43 54 20  |M IS TO PREDICT |
00000AB0: 41 20 50 48 59 53 49 43  41 4C 2C 22 00 FC 12 06  |A PHYSICAL,"....|
00000AC0: 04 98 34 2C 22 45 4D 4F  54 49 4F 4E 41 4C 20 41  |..4,"EMOTIONAL A|
00000AD0: 4E 44 20 49 4E 54 45 4C  4C 45 43 54 55 41 4C 20  |ND INTELLECTUAL |
00000AE0: 50 41 54 54 45 52 4E 20  54 48 41 54 20 49 4E 44  |PATTERN THAT IND|
00000AF0: 49 43 41 54 45 53 20 59  4F 55 52 22 00 3E 13 10  |ICATES YOUR".>..|
00000B00: 04 98 34 2C 22 55 50 20  41 4E 44 20 44 4F 57 4E  |..4,"UP AND DOWN|
00000B10: 20 44 41 59 53 20 46 4F  52 20 41 4E 59 20 50 45  | DAYS FOR ANY PE|
00000B20: 52 49 4F 44 20 4F 46 20  54 49 4D 45 2E 20 20 42  |RIOD OF TIME.  B|
00000B30: 49 4F 52 48 59 54 48 4D  4E 20 43 41 4E 22 00 7F  |IORHYTHMN CAN"..|
00000B40: 13 1A 04 98 34 2C 22 53  48 4F 57 20 57 48 49 43  |....4,"SHOW WHIC|
00000B50: 48 20 44 41 59 53 20 57  45 52 45 20 47 4F 4F 44  |H DAYS WERE GOOD|
00000B60: 20 4F 52 20 42 41 44 20  46 4F 52 20 59 4F 55 20  | OR BAD FOR YOU |
00000B70: 42 45 47 49 4E 4E 49 4E  47 20 57 49 54 48 22 00  |BEGINNING WITH".|
00000B80: BC 13 24 04 98 34 2C 22  59 4F 55 52 20 42 49 52  |..$..4,"YOUR BIR|
00000B90: 54 48 2E 20 20 49 54 20  43 41 4E 20 41 4C 53 4F  |TH.  IT CAN ALSO|
00000BA0: 20 53 48 4F 57 20 59 4F  55 20 57 48 49 43 48 20  | SHOW YOU WHICH |
00000BB0: 46 55 54 55 52 45 20 44  41 59 53 22 00 F9 13 2E  |FUTURE DAYS"....|
00000BC0: 04 98 34 2C 22 57 49 4C  4C 20 42 45 20 47 4F 4F  |..4,"WILL BE GOO|
00000BD0: 44 20 4F 52 20 42 41 44  20 46 4F 52 20 59 4F 55  |D OR BAD FOR YOU|
00000BE0: 2E 20 20 54 48 45 53 45  20 50 52 45 44 49 43 54  |.  THESE PREDICT|
00000BF0: 49 4F 4E 53 20 41 52 45  22 00 39 14 38 04 98 34  |IONS ARE".9.8..4|
00000C00: 2C 22 42 41 53 45 44 20  4F 4E 20 53 43 49 45 4E  |,"BASED ON SCIEN|
00000C10: 54 49 46 49 43 20 53 54  55 44 49 45 53 20 54 4F  |TIFIC STUDIES TO|
00000C20: 20 44 45 54 45 52 4D 49  4E 45 20 57 48 59 20 41  | DETERMINE WHY A|
00000C30: 43 43 49 44 45 4E 54 53  22 00 76 14 42 04 98 34  |CCIDENTS".v.B..4|
00000C40: 2C 22 4F 43 43 55 52 2E  20 20 49 54 20 57 41 53  |,"OCCUR.  IT WAS|
00000C50: 20 4C 45 41 52 4E 45 44  20 54 48 52 4F 55 47 48  | LEARNED THROUGH|
00000C60: 20 54 48 45 53 45 20 53  54 55 44 49 45 53 20 54  | THESE STUDIES T|
00000C70: 48 41 54 20 41 22 00 B1  14 4C 04 98 34 2C 22 50  |HAT A"...L..4,"P|
00000C80: 48 59 53 49 43 41 4C 20  43 59 43 4C 45 20 4F 43  |HYSICAL CYCLE OC|
00000C90: 43 55 52 53 20 45 56 45  52 59 20 32 33 20 44 41  |CURS EVERY 23 DA|
00000CA0: 59 53 2C 20 41 4E 20 45  4D 4F 54 49 4F 4E 41 4C  |YS, AN EMOTIONAL|
00000CB0: 22 00 F0 14 56 04 98 34  2C 22 43 59 43 4C 45 20  |"...V..4,"CYCLE |
00000CC0: 4F 43 43 55 52 53 20 45  56 45 52 59 20 32 38 20  |OCCURS EVERY 28 |
00000CD0: 44 41 59 53 2C 20 41 4E  44 20 41 4E 20 49 4E 54  |DAYS, AND AN INT|
00000CE0: 45 4C 4C 45 43 54 55 41  4C 20 43 59 43 4C 45 22  |ELLECTUAL CYCLE"|
00000CF0: 00 2F 15 60 04 98 34 2C  22 4F 43 43 55 52 53 20  |./.`..4,"OCCURS |
00000D00: 45 56 45 52 59 20 33 33  20 44 41 59 53 2E 20 20  |EVERY 33 DAYS.  |
00000D10: 54 48 45 20 43 52 49 54  49 43 41 4C 20 44 41 59  |THE CRITICAL DAY|
00000D20: 53 20 4F 43 43 55 52 20  44 55 52 49 4E 47 22 00  |S OCCUR DURING".|
00000D30: 69 15 6A 04 98 34 2C 22  54 48 45 20 54 52 41 4E  |i.j..4,"THE TRAN|
00000D40: 53 49 54 49 4F 4E 20 46  52 4F 4D 20 50 4F 53 49  |SITION FROM POSI|
00000D50: 54 49 56 45 20 54 4F 20  4E 45 47 41 54 49 56 45  |TIVE TO NEGATIVE|
00000D60: 20 53 54 41 54 45 53 2E  22 00 A9 15 74 04 98 34  | STATES."...t..4|
00000D70: 2C 22 44 55 52 49 4E 47  20 54 48 45 20 43 52 49  |,"DURING THE CRI|
00000D80: 54 49 43 41 4C 20 44 41  59 53 20 59 4F 55 20 41  |TICAL DAYS YOU A|
00000D90: 52 45 20 4D 4F 52 45 20  50 52 4F 4E 45 20 54 4F  |RE MORE PRONE TO|
00000DA0: 20 45 52 52 4F 52 53 2C  22 00 E7 15 7E 04 98 34  | ERRORS,"...~..4|
00000DB0: 2C 22 41 43 43 49 44 45  4E 54 20 41 4E 44 20 50  |,"ACCIDENT AND P|
00000DC0: 48 59 53 49 43 41 4C 20  53 45 54 42 41 43 4B 53  |HYSICAL SETBACKS|
00000DD0: 2E 20 20 54 48 49 53 20  42 49 4F 52 48 59 54 48  |.  THIS BIORHYTH|
00000DE0: 4D 20 50 4C 4F 54 22 00  09 16 88 04 98 34 2C 22  |M PLOT"......4,"|
00000DF0: 46 4C 41 47 53 20 54 48  45 20 43 52 49 54 49 43  |FLAGS THE CRITIC|
00000E00: 41 4C 20 44 41 59 53 2E  22 00 13 16 92 04 98 34  |AL DAYS."......4|
00000E10: 3A 98 34 00 19 16 9C 04  8E 00 32 16 A6 04 81 49  |:.4.......2....I|
00000E20: B2 31 A4 43 4F 3A 98 34  2C 22 B2 22 3B 3A 82 3A  |.1.CO:.4,".";:.:|
00000E30: 98 34 00 38 16 B0 04 8E  00 51 16 BA 04 81 49 B2  |.4.8.....Q....I.|
00000E40: 31 A4 43 4F 3A 98 34 2C  22 B1 22 3B 3A 82 3A 98  |1.CO:.4,".";:.:.|
00000E50: 34 00 57 16 C4 04 8E 00  87 16 CE 04 83 30 2C 33  |4.W..........0,3|
00000E60: 31 2C 35 39 2C 39 30 2C  31 32 30 2C 31 35 31 2C  |1,59,90,120,151,|
00000E70: 31 38 31 2C 32 31 32 2C  32 34 33 2C 32 37 33 2C  |181,212,243,273,|
00000E80: 33 30 34 2C 33 33 34 00  C5 16 D8 04 83 4D 4F 4E  |304,334......MON|
00000E90: 44 41 59 2C 54 55 45 53  44 41 59 2C 57 45 44 4E  |DAY,TUESDAY,WEDN|
00000EA0: 45 53 44 41 59 2C 54 48  55 52 53 44 41 59 2C 46  |ESDAY,THURSDAY,F|
00000EB0: 52 49 44 41 59 2C 53 41  54 55 52 44 41 59 2C 53  |RIDAY,SATURDAY,S|
00000EC0: 55 4E 44 41 59 00 FC 16  E2 04 83 4A 41 4E 55 41  |UNDAY......JANUA|
00000ED0: 52 59 2C 46 45 42 52 55  41 52 59 2C 4D 41 52 43  |RY,FEBRUARY,MARC|
00000EE0: 48 2C 41 50 52 49 4C 2C  4D 41 59 2C 4A 55 4E 45  |H,APRIL,MAY,JUNE|
00000EF0: 2C 4A 55 4C 59 2C 41 55  47 55 53 54 00 25 17 EC  |,JULY,AUGUST.%..|
00000F00: 04 83 53 45 50 54 45 4D  42 45 52 2C 4F 43 54 4F  |..SEPTEMBER,OCTO|
00000F10: 42 45 52 2C 4E 4F 56 45  4D 42 45 52 2C 44 45 43  |BER,NOVEMBER,DEC|
00000F20: 45 4D 42 45 52 00 6B 17  F6 04 83 22 20 31 20 32  |EMBER.k...." 1 2|
00000F30: 20 33 20 34 20 35 20 36  20 37 20 38 20 39 31 30  | 3 4 5 6 7 8 910|
00000F40: 31 31 31 32 31 33 31 34  31 35 31 36 31 37 31 38  |1112131415161718|
00000F50: 31 39 32 30 32 31 32 32  32 33 32 34 32 35 32 36  |1920212223242526|
00000F60: 32 37 32 38 32 39 33 30  33 31 22 00 00 00        |2728293031"...  |

....... BIOPRINTER 6.0.)....A%(12),M$(12
).M....".".9)". B I O P R I N T E R ".{.
(..".INPUT DEVICE #, SCREEN=3 PRINTER=4"
;DV...2..DV..3.DV..4.40...<..4,DV...F.CO
.39...P..DV.4.CO.79.X.Z.S$.G(1):CL..((CO
.10).2):CN.CL.10...D..I.1.10:CR$.CR$.G(1
3):..'.N..I.1.CO:SP$.SP$." ":AS$.AS$." "
:AR$.AR$."..":..<.X..I.1.12:.A%(I):..R..
..I.0.6:.DAY$(I):..G....I.1.12:.M$(I):..
P....DD$... ..".INPUT YOUR NAME";N$.....
.Z.0......".INPUT START DATE MM,DD,YY";M
S,DS,YS.....MS..(MS):DS..(DS):YS..(YS)..
.H..".INPUT BIRTH DATE MM,DD,YY";MB,DB,Y
B.(.R.MB..(MB):DB..(DB):YB..(YB).H.....I
(X)..(CL..(2...X.33)..5).H.....E(X)..(CL
..(2...X.28)..5).......P(X)..(CL..(2...X
.23)..5).....TS..(DS.365.25.YS.A%(MS)..0
1.MS..03).Z...TB..(DB.365.25.YB.A%(MB)..
01.MB..03).....X.TS.TB......".HOW MANY D
AYS TO RUN";SP...".SP.SP.1.,.,.RB.TB.1..
((TB.1).7).7.6.6..".";.M.@..4,CR$;S$"***
******* B I O R H Y T H M **********".}.
J..4,H(CR$,3)...T..1020...^.T$." ANALYSI
S FOR ".N$." "...H.T2$.S$:.950.Q.R..4," 
                "...|.T$." BORN ".DAY$(R
B).", ".M$(MB).D(DB).", 19".-...T$.T$.I(
D(.(YB.10)),1).I(D(YB),1)." ".=...T2$.""
:.950.V...R.TS.1..((TS.1).7).7.Z.... GOT
O550 TO SKIP # OF DAYS IN......T$." STAR
TING DATE ".DAY$(R).",".M$(MS).D(DS).", 
19".....T$.T$.I(D(.(YS.10)),1).I(D(YS),1
)." "...B.T2$."":.950.,.L.T$.D(.(23.(X.2
3..(X.23))))." DAYS INTO THE PHYSICAL CY
CLE".<.V.T2$."":.950.|...T$.D(.(28.(X.28
..(X.28))))." DAYS INTO THE EMOTIONAL CY
CLE".....T2$."":.950.O...T$.D(.(33.(X.33
..(X.33))))." DAYS INTO THE INTELLECTUAL
 CYCLE".....T2$."":.950.....T$."P = THE 
PHYSICAL CYCLE":T2$."":.950.8...T$."E = 
THE EMOTIONAL CYCLE":T2$."":.950.H...T$.
"I = THE INTELLECTUAL CYCLE":T2$."":.950
.O.&..4...0..4,.8)"DOWN".28)"CRITICAL".2
8)"UP". .:..1190...D..1210...N.....X.T$.
H(DAY$(R),3)." ".J(DD$,2.DS.1,2)." .".M$
(MS)...B.F(0).CN:F$(0)."."...L.F(1).CN..
I(X):F$(1)."I".2.V.F(2).CN..E(X):F$(2)."
E".N...F(3).CN..P(X):F$(3)."P".V...F.0.A
....I.0.2.N....J.I.1.3......F(I).F(J).74
0.D....F(I).F(J).F(I).CN..F(I).CN.F(I).0
:F$(I)."":F$(J)."C":F.1:.740......F(I).F
(J).F(I).0:F$(I)."":F$(J)."X":.740...F.Q
.F(I):Q$.F$(I). .P.F(I).F(J):F$(I).F$(J)
.4.Z.F(J).Q:F$(J).Q$.=....J,I.^....F.1.T
$.T$.H(AR$,CN.1.C(T$)).I....I.0.3.U...W.
C(T$)......F(I)..W.800.....T$.T$.H(SP$,F
(I).W).F$(I)... ...W.*..4,T$:X.X..5:..(X
)..X.T$."       .":.610...4..Z.SP.920...
>.R.R.1:.R.7.R.0.$.H.DS.DS.1:.MS.4.MS.6.
MS.9.MS.11.L.30:.880.E.R..MS.2.YS.4..(YS
.4).L.29:.880.Y.\..MS.2.L.28:.880.B.F.L.
31...P..DS.L.DS.DS.L:MS.MS.1:.900...Z.T$
.H(DAY$(R),3)." ".J(DD$,2.DS.1,2)." .":Z
.Z.1:.610.T....MS.13.MS.1:Z.Z.1:.590....
.Z.Z.1:.590......1190:.1210......4,CR$..
....160.....CT..(CO.2).(....T2$."".CT.CO
.?.J.T1..((CT.C(T$)).2).S.T..T1.1..T$:.1
010.L...T2$.T2$.H(AS$,T1).T$.Z....4,T2$:
.4............4,"THE PURPOSE OF BIORHYTH
M IS TO PREDICT A PHYSICAL,"......4,"EMO
TIONAL AND INTELLECTUAL PATTERN THAT IND
ICATES YOUR".>....4,"UP AND DOWN DAYS FO
R ANY PERIOD OF TIME.  BIORHYTHMN CAN".
....4,"SHOW WHICH DAYS WERE GOOD OR BAD 
FOR YOU BEGINNING WITH"...$..4,"YOUR BIR
TH.  IT CAN ALSO SHOW YOU WHICH FUTURE D
AYS"......4,"WILL BE GOOD OR BAD FOR YOU
.  THESE PREDICTIONS ARE".9.8..4,"BASED 
ON SCIENTIFIC STUDIES TO DETERMINE WHY A
CCIDENTS".V.B..4,"OCCUR.  IT WAS LEARNED
 THROUGH THESE STUDIES THAT A"...L..4,"P
HYSICAL CYCLE OCCURS EVERY 23 DAYS, AN E
MOTIONAL"...V..4,"CYCLE OCCURS EVERY 28 
DAYS, AND AN INTELLECTUAL CYCLE"./.`..4,
"OCCURS EVERY 33 DAYS.  THE CRITICAL DAY
S OCCUR DURING".I.J..4,"THE TRANSITION F
ROM POSITIVE TO NEGATIVE STATES."...T..4
,"DURING THE CRITICAL DAYS YOU ARE MORE 
PRONE TO ERRORS,"...~..4,"ACCIDENT AND P
HYSICAL SETBACKS.  THIS BIORHYTHM PLOT".
.....4,"FLAGS THE CRITICAL DAYS."......4
:.4.......2....I.1.CO:.4,".";:.:.4.8....
.Q....I.1.CO:.4,".";:.:.4.W.D.....N..0,3
1,59,90,120,151,181,212,243,273,304,334.
E.X..MONDAY,TUESDAY,WEDNESDAY,THURSDAY,F
RIDAY,SATURDAY,SUNDAY......JANUARY,FEBRU
ARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST.%..
..SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER.K.
..." 1 2 3 4 5 6 7 8 9101112131415161718
19202122232425262728293031"...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL