Multiple names: BIO-PRINTER, BIO-PRINTER.C

00000000: 01 08 16 08 64 00 8F 20  42 49 4F 50 52 49 4E 54  |....d.. BIOPRINT|
00000010: 45 52 20 36 2E 30 00 29  08 6E 00 86 41 25 28 31  |ER 6.0.).n..A%(1|
00000020: 32 29 2C 4D 24 28 31 32  29 00 4D 08 78 00 99 22  |2),M$(12).M.x.."|
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: 82 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 90 08 8C 00  |INTER=4";DV.....|
00000080: 8B 44 56 B3 B1 33 AF 44  56 B3 B1 34 A7 31 33 30  |.DV..3.DV..4.130|
00000090: 00 9A 08 96 00 9F 34 2C  44 56 00 A4 08 A0 00 43  |......4,DV.....C|
000000A0: 4F B2 33 39 00 C4 08 AA  00 8F 2A 46 4F 52 38 30  |O.39......*FOR80|
000000B0: 20 43 4F 4C 3A 49 46 44  56 3D 34 54 48 45 4E 43  | COL:IFDV=4THENC|
000000C0: 4F 3D 37 39 00 E9 08 B4  00 53 24 B2 C7 28 31 29  |O=79.....S$..(1)|
000000D0: 3A 43 4C B2 B5 28 28 43  4F AB 31 30 29 AD 32 29  |:CL..((CO.10).2)|
000000E0: 3A 43 4E B2 43 4C AA 31  30 00 05 09 BE 00 81 49  |:CN.CL.10......I|
000000F0: B2 31 A4 31 30 3A 43 52  24 B2 43 52 24 AA C7 28  |.1.10:CR$.CR$..(|
00000100: 31 33 29 3A 82 00 38 09  C8 00 81 49 B2 31 A4 43  |13):..8....I.1.C|
00000110: 4F 3A 53 50 24 B2 53 50  24 AA 22 20 22 3A 41 53  |O:SP$.SP$." ":AS|
00000120: 24 B2 41 53 24 AA 22 20  22 3A 41 52 24 B2 41 52  |$.AS$." ":AR$.AR|
00000130: 24 AA 22 2D 2D 22 3A 82  00 4D 09 D2 00 81 49 B2  |$."--":..M....I.|
00000140: 31 A4 31 32 3A 87 41 25  28 49 29 3A 82 00 63 09  |1.12:.A%(I):..c.|
00000150: DC 00 81 49 B2 30 A4 36  3A 87 44 41 59 24 28 49  |...I.0.6:.DAY$(I|
00000160: 29 3A 82 00 78 09 E6 00  81 49 B2 31 A4 31 32 3A  |):..x....I.1.12:|
00000170: 87 4D 24 28 49 29 3A 82  00 81 09 F0 00 87 44 44  |.M$(I):.......DD|
00000180: 24 00 9C 09 FA 00 85 22  11 49 4E 50 55 54 20 59  |$......".INPUT Y|
00000190: 4F 55 52 20 4E 41 4D 45  22 3B 4E 24 00 A5 09 04  |OUR NAME";N$....|
000001A0: 01 88 5A B2 30 00 D0 09  0E 01 85 22 11 49 4E 50  |..Z.0......".INP|
000001B0: 55 54 20 42 49 52 54 48  20 44 41 54 45 20 4D 4D  |UT BIRTH DATE MM|
000001C0: 2C 44 44 2C 59 59 22 3B  4D 42 2C 44 42 2C 59 42  |,DD,YY";MB,DB,YB|
000001D0: 00 EF 09 18 01 4D 53 B2  B5 28 4D 53 29 3A 44 53  |.....MS..(MS):DS|
000001E0: B2 B5 28 44 53 29 3A 59  53 B2 B5 28 59 53 29 00  |..(DS):YS..(YS).|
000001F0: 1A 0A 22 01 85 22 11 49  4E 50 55 54 20 53 54 41  |.."..".INPUT STA|
00000200: 52 54 20 44 41 54 45 20  4D 4D 2C 44 44 2C 59 59  |RT DATE MM,DD,YY|
00000210: 22 3B 4D 53 2C 44 53 2C  59 53 00 39 0A 2C 01 4D  |";MS,DS,YS.9.,.M|
00000220: 42 B2 B5 28 4D 42 29 3A  44 42 B2 B5 28 44 42 29  |B..(MB):DB..(DB)|
00000230: 3A 59 42 B2 B5 28 59 42  29 00 59 0A 36 01 96 A5  |:YB..(YB).Y.6...|
00000240: 49 28 58 29 B2 B5 28 43  4C AC BF 28 32 AC FF AC  |I(X)..(CL..(2...|
00000250: 58 AD 33 33 29 AA 2E 35  29 00 79 0A 40 01 96 A5  |X.33)..5).y.@...|
00000260: 45 28 58 29 B2 B5 28 43  4C AC BF 28 32 AC FF AC  |E(X)..(CL..(2...|
00000270: 58 AD 32 38 29 AA 2E 35  29 00 99 0A 4A 01 96 A5  |X.28)..5)...J...|
00000280: 50 28 58 29 B2 B5 28 43  4C AC BF 28 32 AC FF AC  |P(X)..(CL..(2...|
00000290: 58 AD 32 33 29 AA 2E 35  29 00 C2 0A 54 01 54 53  |X.23)..5)...T.TS|
000002A0: B2 B5 28 44 53 AA 33 36  35 2E 32 35 AC 59 53 AA  |..(DS.365.25.YS.|
000002B0: 41 25 28 4D 53 29 AA 2E  30 31 AC 4D 53 AB 2E 30  |A%(MS)..01.MS..0|
000002C0: 33 29 00 EB 0A 5E 01 54  42 B2 B5 28 44 42 AA 33  |3)...^.TB..(DB.3|
000002D0: 36 35 2E 32 35 AC 59 42  AA 41 25 28 4D 42 29 AA  |65.25.YB.A%(MB).|
000002E0: 2E 30 31 AC 4D 42 AB 2E  30 33 29 00 F7 0A 68 01  |.01.MB..03)...h.|
000002F0: 58 B2 54 53 AB 54 42 00  17 0B 72 01 85 22 11 48  |X.TS.TB...r..".H|
00000300: 4F 57 20 4D 41 4E 59 20  44 41 59 53 20 54 4F 20  |OW MANY DAYS TO |
00000310: 52 55 4E 22 3B 53 50 00  43 0B 7C 01 99 22 11 57  |RUN";SP.C.|..".W|
00000320: 4F 55 4C 44 20 59 4F 55  20 4C 49 4B 45 20 54 48  |OULD YOU LIKE TH|
00000330: 45 20 42 49 4F 52 48 59  54 48 4D 20 54 48 45 4F  |E BIORHYTHM THEO|
00000340: 52 59 22 00 68 0B 86 01  85 22 45 58 50 4C 41 49  |RY".h...."EXPLAI|
00000350: 4E 45 44 20 4F 4E 20 59  4F 55 52 20 50 52 49 4E  |NED ON YOUR PRIN|
00000360: 54 4F 55 54 22 3B 50 24  00 74 0B 90 01 53 50 B2  |TOUT";P$.t...SP.|
00000370: 53 50 AB 31 00 8E 0B 9A  01 52 42 B2 54 42 AB 31  |SP.1.....RB.TB.1|
00000380: AB B5 28 28 54 42 AB 31  29 AD 37 29 AC 37 00 98  |..((TB.1).7).7..|
00000390: 0B A4 01 99 22 93 22 3B  00 D1 0B AE 01 98 34 2C  |....".";......4,|
000003A0: 22 11 11 11 22 3B 53 24  22 2A 2A 2A 2A 2A 2A 2A  |"...";S$"*******|
000003B0: 2A 2A 2A 20 42 20 49 20  4F 20 52 20 48 20 59 20  |*** B I O R H Y |
000003C0: 54 20 48 20 4D 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |T H M **********|
000003D0: 22 00 E1 0B B8 01 98 34  2C C8 28 43 52 24 2C 32  |"......4,.(CR$,2|
000003E0: 29 00 F9 0B C2 01 8B C8  28 50 24 2C 31 29 B2 22  |).......(P$,1)."|
000003F0: 59 22 A7 20 8D 31 31 33  30 00 18 0C CC 01 54 24  |Y". .1130.....T$|
00000400: B2 22 20 41 4E 41 4C 59  53 49 53 20 46 4F 52 20  |." ANALYSIS FOR |
00000410: 22 AA 4E 24 AA 22 20 22  00 29 0C D6 01 54 32 24  |".N$." ".)...T2$|
00000420: B2 53 24 3A 8D 31 30 36  30 00 44 0C E0 01 98 34  |.S$:.1060.D....4|
00000430: 2C 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |,"              |
00000440: 20 20 20 22 00 76 0C EA  01 54 24 B2 22 20 42 4F  |   ".v...T$." BO|
00000450: 52 4E 20 22 AA 44 41 59  24 28 52 42 29 AA 22 2C  |RN ".DAY$(RB).",|
00000460: 20 22 AA 4D 24 28 4D 42  29 AA C4 28 44 42 29 AA  | ".M$(MB)..(DB).|
00000470: 22 2C 20 31 39 22 00 A0  0C F4 01 54 24 B2 54 24  |", 19".....T$.T$|
00000480: AA C9 28 C4 28 B5 28 59  42 AD 31 30 29 29 2C 31  |..(.(.(YB.10)),1|
00000490: 29 AA C9 28 C4 28 59 42  29 2C 31 29 AA 22 20 22  |)..(.(YB),1)." "|
000004A0: 00 B1 0C FE 01 54 32 24  B2 22 22 3A 8D 31 30 36  |.....T2$."":.106|
000004B0: 30 00 CA 0C 08 02 52 B2  54 53 AB 31 AB B5 28 28  |0.....R.TS.1..((|
000004C0: 54 53 AB 31 29 AD 37 29  AC 37 00 D3 0C 12 02 89  |TS.1).7).7......|
000004D0: 36 36 30 00 0C 0D 1C 02  54 24 B2 22 20 53 54 41  |660.....T$." STA|
000004E0: 52 54 49 4E 47 20 44 41  54 45 20 22 AA 44 41 59  |RTING DATE ".DAY|
000004F0: 24 28 52 29 AA 22 2C 22  AA 4D 24 28 4D 53 29 AA  |$(R).",".M$(MS).|
00000500: C4 28 44 53 29 AA 22 2C  20 31 39 22 00 36 0D 26  |.(DS).", 19".6.&|
00000510: 02 54 24 B2 54 24 AA C9  28 C4 28 B5 28 59 53 AD  |.T$.T$..(.(.(YS.|
00000520: 31 30 29 29 2C 31 29 AA  C9 28 C4 28 59 53 29 2C  |10)),1)..(.(YS),|
00000530: 31 29 AA 22 20 22 00 47  0D 30 02 54 32 24 B2 22  |1)." ".G.0.T2$."|
00000540: 22 3A 8D 31 30 36 30 00  86 0D 3A 02 54 24 B2 C4  |":.1060...:.T$..|
00000550: 28 B5 28 32 33 AC 28 58  AD 32 33 AB B5 28 58 AD  |(.(23.(X.23..(X.|
00000560: 32 33 29 29 29 29 AA 22  20 44 41 59 53 20 49 4E  |23))))." DAYS IN|
00000570: 54 4F 20 54 48 45 20 50  48 59 53 49 43 41 4C 20  |TO THE PHYSICAL |
00000580: 43 59 43 4C 45 22 00 97  0D 44 02 54 32 24 B2 22  |CYCLE"...D.T2$."|
00000590: 22 3A 8D 31 30 36 30 00  D7 0D 4E 02 54 24 B2 C4  |":.1060...N.T$..|
000005A0: 28 B5 28 32 38 AC 28 58  AD 32 38 AB B5 28 58 AD  |(.(28.(X.28..(X.|
000005B0: 32 38 29 29 29 29 AA 22  20 44 41 59 53 20 49 4E  |28))))." DAYS IN|
000005C0: 54 4F 20 54 48 45 20 45  4D 4F 54 49 4F 4E 41 4C  |TO THE EMOTIONAL|
000005D0: 20 43 59 43 4C 45 22 00  E8 0D 58 02 54 32 24 B2  | CYCLE"...X.T2$.|
000005E0: 22 22 3A 8D 31 30 36 30  00 2B 0E 62 02 54 24 B2  |"":.1060.+.b.T$.|
000005F0: C4 28 B5 28 33 33 AC 28  58 AD 33 33 AB B5 28 58  |.(.(33.(X.33..(X|
00000600: AD 33 33 29 29 29 29 AA  22 20 44 41 59 53 20 49  |.33))))." DAYS I|
00000610: 4E 54 4F 20 54 48 45 20  49 4E 54 45 4C 4C 45 43  |NTO THE INTELLEC|
00000620: 54 55 41 4C 20 43 59 43  4C 45 22 00 3C 0E 6C 02  |TUAL CYCLE".<.l.|
00000630: 54 32 24 B2 22 22 3A 8D  31 30 36 30 00 69 0E 76  |T2$."":.1060.i.v|
00000640: 02 54 24 B2 22 50 20 3D  20 54 48 45 20 50 48 59  |.T$."P = THE PHY|
00000650: 53 49 43 41 4C 20 43 59  43 4C 45 22 3A 54 32 24  |SICAL CYCLE":T2$|
00000660: B2 22 22 3A 8D 31 30 36  30 00 97 0E 80 02 54 24  |."":.1060.....T$|
00000670: B2 22 45 20 3D 20 54 48  45 20 45 4D 4F 54 49 4F  |."E = THE EMOTIO|
00000680: 4E 41 4C 20 43 59 43 4C  45 22 3A 54 32 24 B2 22  |NAL CYCLE":T2$."|
00000690: 22 3A 8D 31 30 36 30 00  C8 0E 8A 02 54 24 B2 22  |":.1060.....T$."|
000006A0: 49 20 3D 20 54 48 45 20  49 4E 54 45 4C 4C 45 43  |I = THE INTELLEC|
000006B0: 54 55 41 4C 20 43 59 43  4C 45 22 3A 54 32 24 B2  |TUAL CYCLE":T2$.|
000006C0: 22 22 3A 8D 31 30 36 30  00 CF 0E 94 02 98 34 00  |"":.1060......4.|
000006D0: F3 0E 9E 02 98 34 2C A6  31 33 29 22 44 4F 57 4E  |.....4,.13)"DOWN|
000006E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000006F0: 55 50 22 00 FD 0E A8 02  8D 31 33 30 30 00 07 0F  |UP"......1300...|
00000700: B2 02 8D 31 33 32 30 00  0D 0F BC 02 8F 00 41 0F  |...1320.......A.|
00000710: C6 02 54 24 B2 C8 28 44  41 59 24 28 52 29 2C 33  |..T$..(DAY$(R),3|
00000720: 29 AA 22 20 22 AA CA 28  44 44 24 2C 32 AC 44 53  |)." "..(DD$,2.DS|
00000730: AB 31 2C 32 29 AA 22 20  A1 22 AA 4D 24 28 4D 53  |.1,2)." .".M$(MS|
00000740: 29 00 57 0F D0 02 46 28  30 29 B2 43 4E 3A 46 24  |).W...F(0).CN:F$|
00000750: 28 30 29 B2 22 2A 22 00  73 0F DA 02 46 28 31 29  |(0)."*".s...F(1)|
00000760: B2 43 4E AA A5 49 28 58  29 3A 46 24 28 31 29 B2  |.CN..I(X):F$(1).|
00000770: 22 49 22 00 8F 0F E4 02  46 28 32 29 B2 43 4E AA  |"I".....F(2).CN.|
00000780: A5 45 28 58 29 3A 46 24  28 32 29 B2 22 45 22 00  |.E(X):F$(2)."E".|
00000790: AB 0F EE 02 46 28 33 29  B2 43 4E AA A5 50 28 58  |....F(3).CN..P(X|
000007A0: 29 3A 46 24 28 33 29 B2  22 50 22 00 B3 0F F8 02  |):F$(3)."P".....|
000007B0: 46 B2 30 00 BE 0F 02 03  81 49 B2 30 A4 32 00 CB  |F.0......I.0.2..|
000007C0: 0F 0C 03 81 4A B2 49 AA  31 A4 33 00 DE 0F 16 03  |....J.I.1.3.....|
000007D0: 8B 46 28 49 29 B3 46 28  4A 29 A7 38 35 30 00 21  |.F(I).F(J).850.!|
000007E0: 10 20 03 8B 46 28 49 29  B2 46 28 4A 29 AF 46 28  |. ..F(I).F(J).F(|
000007F0: 49 29 B2 43 4E A7 8B 46  28 49 29 B2 43 4E A7 46  |I).CN..F(I).CN.F|
00000800: 28 49 29 B2 30 3A 46 24  28 49 29 B2 22 22 3A 46  |(I).0:F$(I)."":F|
00000810: 24 28 4A 29 B2 22 43 22  3A 46 B2 31 3A 89 38 35  |$(J)."C":F.1:.85|
00000820: 30 00 4F 10 2A 03 8B 46  28 49 29 B2 46 28 4A 29  |0.O.*..F(I).F(J)|
00000830: A7 46 28 49 29 B2 30 3A  46 24 28 49 29 B2 22 22  |.F(I).0:F$(I).""|
00000840: 3A 46 24 28 4A 29 B2 22  58 22 3A 89 38 35 30 00  |:F$(J)."X":.850.|
00000850: 63 10 34 03 51 B2 46 28  49 29 3A 51 24 B2 46 24  |c.4.Q.F(I):Q$.F$|
00000860: 28 49 29 00 7D 10 3E 03  46 28 49 29 B2 46 28 4A  |(I).}.>.F(I).F(J|
00000870: 29 3A 46 24 28 49 29 B2  46 24 28 4A 29 00 91 10  |):F$(I).F$(J)...|
00000880: 48 03 46 28 4A 29 B2 51  3A 46 24 28 4A 29 B2 51  |H.F(J).Q:F$(J).Q|
00000890: 24 00 9A 10 52 03 82 4A  2C 49 00 BB 10 5C 03 8B  |$...R..J,I...\..|
000008A0: 46 B2 31 A7 54 24 B2 54  24 AA C8 28 41 52 24 2C  |F.1.T$.T$..(AR$,|
000008B0: 43 4E AB 31 AB C3 28 54  24 29 29 00 C6 10 66 03  |CN.1..(T$))...f.|
000008C0: 81 49 B2 30 A4 33 00 D2  10 70 03 57 B2 C3 28 54  |.I.0.3...p.W..(T|
000008D0: 24 29 00 E3 10 7A 03 8B  46 28 49 29 B3 B2 57 A7  |$)...z..F(I)..W.|
000008E0: 39 31 30 00 01 11 84 03  54 24 B2 54 24 AA C8 28  |910.....T$.T$..(|
000008F0: 53 50 24 2C 46 28 49 29  AB 57 29 AA 46 24 28 49  |SP$,F(I).W).F$(I|
00000900: 29 00 07 11 8E 03 82 00  34 11 98 03 98 34 2C 54  |).......4....4,T|
00000910: 24 3A 58 B2 58 AA 2E 35  3A 8B B5 28 58 29 B3 B1  |$:X.X..5:..(X)..|
00000920: 58 A7 54 24 B2 22 20 20  20 20 20 20 20 A1 22 3A  |X.T$."       .":|
00000930: 89 37 32 30 00 43 11 A2  03 8B 5A B2 53 50 A7 31  |.720.C....Z.SP.1|
00000940: 30 33 30 00 56 11 AC 03  52 B2 52 AA 31 3A 8B 52  |030.V...R.R.1:.R|
00000950: B2 37 A7 52 B2 30 00 82  11 B6 03 44 53 B2 44 53  |.7.R.0.....DS.DS|
00000960: AA 31 3A 8B 4D 53 B2 34  B0 4D 53 B2 36 B0 4D 53  |.1:.MS.4.MS.6.MS|
00000970: B2 39 B0 4D 53 B2 31 31  A7 4C B2 33 30 3A 89 39  |.9.MS.11.L.30:.9|
00000980: 39 30 00 A3 11 C0 03 8B  4D 53 B2 32 AF 59 53 AD  |90......MS.2.YS.|
00000990: 34 B2 B5 28 59 53 AD 34  29 A7 4C B2 32 39 3A 89  |4..(YS.4).L.29:.|
000009A0: 39 39 30 00 B7 11 CA 03  8B 4D 53 B2 32 A7 4C B2  |990......MS.2.L.|
000009B0: 32 38 3A 89 39 39 30 00  C0 11 D4 03 4C B2 33 31  |28:.990.....L.31|
000009C0: 00 E0 11 DE 03 8B 44 53  B1 4C A7 44 53 B2 44 53  |......DS.L.DS.DS|
000009D0: AB 4C 3A 4D 53 B2 4D 53  AA 31 3A 89 31 30 31 30  |.L:MS.MS.1:.1010|
000009E0: 00 18 12 E8 03 54 24 B2  C8 28 44 41 59 24 28 52  |.....T$..(DAY$(R|
000009F0: 29 2C 33 29 AA 22 20 22  AA CA 28 44 44 24 2C 32  |),3)." "..(DD$,2|
00000A00: AC 44 53 AB 31 2C 32 29  AA 22 20 A1 22 3A 5A B2  |.DS.1,2)." .":Z.|
00000A10: 5A AA 31 3A 89 37 32 30  00 33 12 F2 03 8B 4D 53  |Z.1:.720.3....MS|
00000A20: B2 31 33 A7 4D 53 B2 31  3A 5A B2 5A AA 31 3A 89  |.13.MS.1:Z.Z.1:.|
00000A30: 37 30 30 00 42 12 FC 03  5A B2 5A AA 31 3A 89 37  |700.B...Z.Z.1:.7|
00000A40: 30 30 00 52 12 06 04 8D  31 33 30 30 3A 8D 31 33  |00.R....1300:.13|
00000A50: 32 30 00 64 12 10 04 81  53 53 B2 31 A4 33 3A 98  |20.d....SS.1.3:.|
00000A60: 34 2C 3A 82 00 6D 12 1A  04 89 32 35 30 00 7C 12  |4,:..m....250.|.|
00000A70: 24 04 43 54 B2 B5 28 43  4F AD 32 29 00 8E 12 2E  |$.CT..(CO.2)....|
00000A80: 04 8B 54 32 24 B2 22 22  A7 43 54 B2 43 4F 00 A5  |..T2$."".CT.CO..|
00000A90: 12 38 04 54 31 B2 B5 28  28 43 54 AB C3 28 54 24  |.8.T1..((CT..(T$|
00000AA0: 29 29 AD 32 29 00 BB 12  42 04 8B 54 31 B3 31 A7  |)).2)...B..T1.1.|
00000AB0: 98 34 2C 54 24 3A 89 31  31 32 30 00 D4 12 4C 04  |.4,T$:.1120...L.|
00000AC0: 54 32 24 B2 54 32 24 AA  C8 28 41 53 24 2C 54 31  |T2$.T2$..(AS$,T1|
00000AD0: 29 AA 54 24 00 E2 12 56  04 98 34 2C 54 32 24 3A  |).T$...V..4,T2$:|
00000AE0: 98 34 00 E8 12 60 04 8E  00 18 13 6A 04 98 34 2C  |.4...`.....j..4,|
00000AF0: 22 54 48 45 20 50 55 52  50 4F 53 45 20 4F 46 20  |"THE PURPOSE OF |
00000B00: 42 49 4F 52 48 59 54 48  4D 20 49 53 20 54 4F 20  |BIORHYTHM IS TO |
00000B10: 50 52 45 44 49 43 54 22  00 48 13 74 04 98 34 2C  |PREDICT".H.t..4,|
00000B20: 22 41 20 50 48 59 53 49  43 41 4C 2C 20 45 4D 4F  |"A PHYSICAL, EMO|
00000B30: 54 49 4F 4E 41 4C 20 41  4E 44 20 49 4E 54 45 4C  |TIONAL AND INTEL|
00000B40: 4C 45 43 54 55 41 4C 22  00 74 13 79 04 98 34 2C  |LECTUAL".t.y..4,|
00000B50: 22 50 41 54 54 45 52 4E  20 54 48 41 54 20 49 4E  |"PATTERN THAT IN|
00000B60: 44 49 43 41 54 45 53 20  59 4F 55 52 20 55 50 20  |DICATES YOUR UP |
00000B70: 41 4E 44 22 00 9F 13 7E  04 98 34 2C 22 44 4F 57  |AND"...~..4,"DOW|
00000B80: 4E 20 44 41 59 53 20 46  4F 52 20 41 4E 59 20 50  |N DAYS FOR ANY P|
00000B90: 45 52 49 4F 44 20 4F 46  20 54 49 4D 45 2E 22 00  |ERIOD OF TIME.".|
00000BA0: CF 13 83 04 98 34 2C 22  11 20 20 20 42 49 4F 52  |.....4,".   BIOR|
00000BB0: 48 59 54 48 4D 20 43 41  4E 20 53 48 4F 57 20 57  |HYTHM CAN SHOW W|
00000BC0: 48 49 43 48 20 44 41 59  53 20 57 45 52 45 22 00  |HICH DAYS WERE".|
00000BD0: FB 13 88 04 98 34 2C 22  47 4F 4F 44 20 4F 52 20  |.....4,"GOOD OR |
00000BE0: 42 41 44 20 46 4F 52 20  59 4F 55 20 42 45 47 49  |BAD FOR YOU BEGI|
00000BF0: 4E 4E 49 4E 47 20 57 49  54 48 22 00 2C 14 92 04  |NNING WITH".,...|
00000C00: 98 34 2C 22 59 4F 55 52  20 42 49 52 54 48 2E 20  |.4,"YOUR BIRTH. |
00000C10: 20 49 54 20 43 41 4E 20  41 4C 53 4F 20 53 48 4F  | IT CAN ALSO SHO|
00000C20: 57 20 59 4F 55 20 57 48  49 43 48 22 00 59 14 97  |W YOU WHICH".Y..|
00000C30: 04 98 34 2C 22 46 55 54  55 52 45 20 44 41 59 53  |..4,"FUTURE DAYS|
00000C40: 20 57 49 4C 4C 20 42 45  20 47 4F 4F 44 20 4F 52  | WILL BE GOOD OR|
00000C50: 20 42 41 44 20 46 4F 52  22 00 67 14 9C 04 98 34  | BAD FOR".g....4|
00000C60: 2C 22 59 4F 55 2E 22 00  93 14 9E 04 98 34 2C 22  |,"YOU."......4,"|
00000C70: 11 20 20 20 54 48 45 53  45 20 50 52 45 44 49 43  |.   THESE PREDIC|
00000C80: 54 49 4F 4E 53 20 41 52  45 20 42 41 53 45 44 20  |TIONS ARE BASED |
00000C90: 4F 4E 22 00 C0 14 A6 04  98 34 2C 22 53 43 49 45  |ON"......4,"SCIE|
00000CA0: 4E 54 49 46 49 43 20 53  54 55 44 49 45 53 20 54  |NTIFIC STUDIES T|
00000CB0: 4F 20 44 45 54 45 52 4D  49 4E 45 20 57 48 59 22  |O DETERMINE WHY"|
00000CC0: 00 EA 14 AB 04 98 34 2C  22 41 43 43 49 44 45 4E  |......4,"ACCIDEN|
00000CD0: 54 53 20 4F 43 43 55 52  2E 20 20 49 54 20 57 41  |TS OCCUR.  IT WA|
00000CE0: 53 20 4C 45 41 52 4E 45  44 22 00 19 15 B0 04 98  |S LEARNED"......|
00000CF0: 34 2C 22 54 48 52 4F 55  47 48 20 54 48 45 53 45  |4,"THROUGH THESE|
00000D00: 20 53 54 55 44 49 45 53  20 54 48 41 54 20 41 20  | STUDIES THAT A |
00000D10: 50 48 59 53 49 43 41 4C  22 00 41 15 BA 04 98 34  |PHYSICAL".A....4|
00000D20: 2C 22 43 59 43 4C 45 20  4F 43 43 55 52 53 20 45  |,"CYCLE OCCURS E|
00000D30: 56 45 52 59 20 32 33 20  44 41 59 53 2C 20 41 4E  |VERY 23 DAYS, AN|
00000D40: 22 00 70 15 BF 04 98 34  2C 22 45 4D 4F 54 49 4F  |".p....4,"EMOTIO|
00000D50: 4E 41 4C 20 43 59 43 4C  45 20 4F 43 43 55 52 53  |NAL CYCLE OCCURS|
00000D60: 20 45 56 45 52 59 20 32  38 20 44 41 59 53 2C 22  | EVERY 28 DAYS,"|
00000D70: 00 A0 15 C4 04 98 34 2C  22 41 4E 44 20 41 4E 20  |......4,"AND AN |
00000D80: 49 4E 54 45 4C 4C 45 43  54 55 41 4C 20 43 59 43  |INTELLECTUAL CYC|
00000D90: 4C 45 20 4F 43 43 55 52  53 20 45 56 45 52 59 22  |LE OCCURS EVERY"|
00000DA0: 00 B2 15 CE 04 98 34 2C  22 33 33 20 44 41 59 53  |......4,"33 DAYS|
00000DB0: 2E 22 00 E2 15 D0 04 98  34 2C 22 11 20 20 20 54  |."......4,".   T|
00000DC0: 48 45 20 43 52 49 54 49  43 41 4C 20 44 41 59 53  |HE CRITICAL DAYS|
00000DD0: 20 4F 43 43 55 52 20 44  55 52 49 4E 47 20 54 48  | OCCUR DURING TH|
00000DE0: 45 22 00 10 16 D3 04 98  34 2C 22 54 52 41 4E 53  |E"......4,"TRANS|
00000DF0: 49 54 49 4F 4E 20 46 52  4F 4D 20 50 4F 53 49 54  |ITION FROM POSIT|
00000E00: 49 56 45 20 54 4F 20 4E  45 47 41 54 49 56 45 22  |IVE TO NEGATIVE"|
00000E10: 00 3F 16 D8 04 98 34 2C  22 53 54 41 54 45 53 2E  |.?....4,"STATES.|
00000E20: 20 20 44 55 52 49 4E 47  20 54 48 45 20 43 52 49  |  DURING THE CRI|
00000E30: 54 49 43 41 4C 20 44 41  59 53 20 59 4F 55 22 00  |TICAL DAYS YOU".|
00000E40: 6F 16 E2 04 98 34 2C 22  41 52 45 20 4D 4F 52 45  |o....4,"ARE MORE|
00000E50: 20 50 52 4F 4E 45 20 54  4F 20 45 52 52 4F 52 53  | PRONE TO ERRORS|
00000E60: 2C 20 41 43 43 49 44 45  4E 54 20 41 4E 44 22 00  |, ACCIDENT AND".|
00000E70: 8B 16 E7 04 98 34 2C 22  50 48 59 53 49 43 41 4C  |.....4,"PHYSICAL|
00000E80: 20 53 45 54 42 41 43 4B  53 2E 22 00 B6 16 EC 04  | SETBACKS.".....|
00000E90: 98 34 2C 22 11 20 20 20  54 48 49 53 20 42 49 4F  |.4,".   THIS BIO|
00000EA0: 52 48 59 54 48 4D 20 50  4C 4F 54 20 46 4C 41 47  |RHYTHM PLOT FLAG|
00000EB0: 53 20 54 48 45 22 00 CE  16 F6 04 98 34 2C 22 43  |S THE"......4,"C|
00000EC0: 52 49 54 49 43 41 4C 20  44 41 59 53 2E 22 00 D8  |RITICAL DAYS."..|
00000ED0: 16 00 05 98 34 3A 98 34  00 DE 16 0A 05 8E 00 F7  |....4:.4........|
00000EE0: 16 14 05 81 49 B2 31 A4  43 4F 3A 98 34 2C 22 2D  |....I.1.CO:.4,"-|
00000EF0: 22 3B 3A 82 3A 98 34 00  FD 16 1E 05 8E 00 16 17  |";:.:.4.........|
00000F00: 28 05 81 49 B2 31 A4 43  4F 3A 98 34 2C 22 2D 22  |(..I.1.CO:.4,"-"|
00000F10: 3B 3A 82 3A 98 34 00 1C  17 32 05 8E 00 4C 17 3C  |;:.:.4...2...L.<|
00000F20: 05 83 30 2C 33 31 2C 35  39 2C 39 30 2C 31 32 30  |..0,31,59,90,120|
00000F30: 2C 31 35 31 2C 31 38 31  2C 32 31 32 2C 32 34 33  |,151,181,212,243|
00000F40: 2C 32 37 33 2C 33 30 34  2C 33 33 34 00 8A 17 46  |,273,304,334...F|
00000F50: 05 83 4D 4F 4E 44 41 59  2C 54 55 45 53 44 41 59  |..MONDAY,TUESDAY|
00000F60: 2C 57 45 44 4E 45 53 44  41 59 2C 54 48 55 52 53  |,WEDNESDAY,THURS|
00000F70: 44 41 59 2C 46 52 49 44  41 59 2C 53 41 54 55 52  |DAY,FRIDAY,SATUR|
00000F80: 44 41 59 2C 53 55 4E 44  41 59 00 C1 17 50 05 83  |DAY,SUNDAY...P..|
00000F90: 4A 41 4E 55 41 52 59 2C  46 45 42 52 55 41 52 59  |JANUARY,FEBRUARY|
00000FA0: 2C 4D 41 52 43 48 2C 41  50 52 49 4C 2C 4D 41 59  |,MARCH,APRIL,MAY|
00000FB0: 2C 4A 55 4E 45 2C 4A 55  4C 59 2C 41 55 47 55 53  |,JUNE,JULY,AUGUS|
00000FC0: 54 00 EA 17 5A 05 83 53  45 50 54 45 4D 42 45 52  |T...Z..SEPTEMBER|
00000FD0: 2C 4F 43 54 4F 42 45 52  2C 4E 4F 56 45 4D 42 45  |,OCTOBER,NOVEMBE|
00000FE0: 52 2C 44 45 43 45 4D 42  45 52 00 30 18 64 05 83  |R,DECEMBER.0.d..|
00000FF0: 22 20 31 20 32 20 33 20  34 20 35 20 36 20 37 20  |" 1 2 3 4 5 6 7 |
00001000: 38 20 39 31 30 31 31 31  32 31 33 31 34 31 35 31  |8 91011121314151|
00001010: 36 31 37 31 38 31 39 32  30 32 31 32 32 32 33 32  |6171819202122232|
00001020: 34 32 35 32 36 32 37 32  38 32 39 33 30 33 31 22  |425262728293031"|
00001030: 00 00 00                                          |...             |

....D.. BIOPRINTER 6.0.).N..A%(12),M$(12
).M.X..".".9)". B I O P R I N T E R ".{.
...".INPUT DEVICE #, SCREEN=3 PRINTER=4"
;DV......DV..3.DV..4.130......4,DV... .C
O.39.D....*FOR80 COL:IFDV=4THENCO=79....
.S$.G(1):CL..((CO.10).2):CN.CL.10......I
.1.10:CR$.CR$.G(13):..8.H..I.1.CO:SP$.SP
$." ":AS$.AS$." ":AR$.AR$."--":..M.R..I.
1.12:.A%(I):..C....I.0.6:.DAY$(I):..X...
.I.1.12:.M$(I):.......DD$......".INPUT Y
OUR NAME";N$......Z.0.P....".INPUT BIRTH
 DATE MM,DD,YY";MB,DB,YB.....MS..(MS):DS
..(DS):YS..(YS)..."..".INPUT START DATE 
MM,DD,YY";MS,DS,YS.9.,.MB..(MB):DB..(DB)
:YB..(YB).Y.6...I(X)..(CL..(2...X.33)..5
).Y.@...E(X)..(CL..(2...X.28)..5)...J...
P(X)..(CL..(2...X.23)..5).B.T.TS..(DS.36
5.25.YS.A%(MS)..01.MS..03)...^.TB..(DB.3
65.25.YB.A%(MB)..01.MB..03)...H.X.TS.TB.
..R..".HOW MANY DAYS TO RUN";SP.C.|..".W
OULD YOU LIKE THE BIORHYTHM THEORY".H...
."EXPLAINED ON YOUR PRINTOUT";P$.T...SP.
SP.1.....RB.TB.1..((TB.1).7).7......".";
.Q....4,"...";S$"********** B I O R H Y 
T H M **********"......4,H(CR$,2)...B..H
(P$,1)."Y". .1130...L.T$." ANALYSIS FOR 
".N$." ".).V.T2$.S$:.1060.D....4,"      
           ".V...T$." BORN ".DAY$(RB).",
 ".M$(MB).D(DB).", 19". ...T$.T$.I(D(.(Y
B.10)),1).I(D(YB),1)." ".....T2$."":.106
0.J...R.TS.1..((TS.1).7).7.S....660.....
T$." STARTING DATE ".DAY$(R).",".M$(MS).
D(DS).", 19".6.&.T$.T$.I(D(.(YS.10)),1).
I(D(YS),1)." ".G.0.T2$."":.1060...:.T$.D
(.(23.(X.23..(X.23))))." DAYS INTO THE P
HYSICAL CYCLE"...D.T2$."":.1060.W.N.T$.D
(.(28.(X.28..(X.28))))." DAYS INTO THE E
MOTIONAL CYCLE"...X.T2$."":.1060.+.B.T$.
D(.(33.(X.33..(X.33))))." DAYS INTO THE 
INTELLECTUAL CYCLE".<.L.T2$."":.1060.I.V
.T$."P = THE PHYSICAL CYCLE":T2$."":.106
0.....T$."E = THE EMOTIONAL CYCLE":T2$."
":.1060.H...T$."I = THE INTELLECTUAL CYC
LE":T2$."":.1060.O....4......4,.13)"DOWN
                UP"......1300......1320.
......A.F.T$.H(DAY$(R),3)." ".J(DD$,2.DS
.1,2)." .".M$(MS).W.P.F(0).CN:F$(0)."*".
S.Z.F(1).CN..I(X):F$(1)."I".....F(2).CN.
.E(X):F$(2)."E".....F(3).CN..P(X):F$(3).
"P".....F.0......I.0.2.K....J.I.1.3.....
.F(I).F(J).850.!. ..F(I).F(J).F(I).CN..F
(I).CN.F(I).0:F$(I)."":F$(J)."C":F.1:.85
0.O.*..F(I).F(J).F(I).0:F$(I)."":F$(J)."
X":.850.C.4.Q.F(I):Q$.F$(I).}.>.F(I).F(J
):F$(I).F$(J)...H.F(J).Q:F$(J).Q$...R..J
,I...\..F.1.T$.T$.H(AR$,CN.1.C(T$)).F.F.
.I.0.3.R.P.W.C(T$)...Z..F(I)..W.910.....
T$.T$.H(SP$,F(I).W).F$(I).......4....4,T
$:X.X..5:..(X)..X.T$."       .":.720.C..
..Z.SP.1030.V...R.R.1:.R.7.R.0.....DS.DS
.1:.MS.4.MS.6.MS.9.MS.11.L.30:.990......
MS.2.YS.4..(YS.4).L.29:.990...J..MS.2.L.
28:.990...T.L.31......DS.L.DS.DS.L:MS.MS
.1:.1010.....T$.H(DAY$(R),3)." ".J(DD$,2
.DS.1,2)." .":Z.Z.1:.720.3....MS.13.MS.1
:Z.Z.1:.700.B...Z.Z.1:.700.R....1300:.13
20.D....SS.1.3:.4,:..M....250.|.$.CT..(C
O.2)......T2$."".CT.CO...8.T1..((CT.C(T$
)).2)...B..T1.1..4,T$:.1120.T.L.T2$.T2$.
H(AS$,T1).T$...V..4,T2$:.4...`.....J..4,
"THE PURPOSE OF BIORHYTHM IS TO PREDICT"
.H.T..4,"A PHYSICAL, EMOTIONAL AND INTEL
LECTUAL".T.Y..4,"PATTERN THAT INDICATES 
YOUR UP AND"...~..4,"DOWN DAYS FOR ANY P
ERIOD OF TIME.".O....4,".   BIORHYTHM CA
N SHOW WHICH DAYS WERE"......4,"GOOD OR 
BAD FOR YOU BEGINNING WITH".,....4,"YOUR
 BIRTH.  IT CAN ALSO SHOW YOU WHICH".Y..
..4,"FUTURE DAYS WILL BE GOOD OR BAD FOR
".G....4,"YOU."......4,".   THESE PREDIC
TIONS ARE BASED ON"......4,"SCIENTIFIC S
TUDIES TO DETERMINE WHY"......4,"ACCIDEN
TS OCCUR.  IT WAS LEARNED"......4,"THROU
GH THESE STUDIES THAT A PHYSICAL".A....4
,"CYCLE OCCURS EVERY 23 DAYS, AN".P....4
,"EMOTIONAL CYCLE OCCURS EVERY 28 DAYS,"
. .D..4,"AND AN INTELLECTUAL CYCLE OCCUR
S EVERY"...N..4,"33 DAYS."...P..4,".   T
HE CRITICAL DAYS OCCUR DURING THE"...S..
4,"TRANSITION FROM POSITIVE TO NEGATIVE"
.?.X..4,"STATES.  DURING THE CRITICAL DA
YS YOU".O....4,"ARE MORE PRONE TO ERRORS
, ACCIDENT AND"......4,"PHYSICAL SETBACK
S."......4,".   THIS BIORHYTHM PLOT FLAG
S THE".N....4,"CRITICAL DAYS.".X....4:.4
............I.1.CO:.4,"-";:.:.4.........
(..I.1.CO:.4,"-";:.:.4...2...L.<..0,31,5
9,90,120,151,181,212,243,273,304,334...F
..MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRID
AY,SATURDAY,SUNDAY.A.P..JANUARY,FEBRUARY
,MARCH,APRIL,MAY,JUNE,JULY,AUGUST...Z..S
EPTEMBER,OCTOBER,NOVEMBER,DECEMBER.0.D..
" 1 2 3 4 5 6 7 8 9101112131415161718192
02122232425262728293031"...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL