BIO PRINTER
FILE INFORMATION
FILENAME(S): BIO PRINTER
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
760f1d908e840592e5890535d5841779e1748e14db850872f0e044a1290a6a38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | BIO PRINTER | PRG | Sailor, Ganheden | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 00 00 86 41 25 28 31 32 29 2C 4D 24 |..4....A%(12),M$| 00000010: 28 31 32 29 3A 99 22 93 22 A3 39 29 22 12 20 42 |(12):.".".9)". B| 00000020: 20 49 20 4F 20 50 20 52 20 49 20 4E 20 54 20 45 | I O P R I N T E| 00000030: 20 52 20 22 00 71 08 01 00 85 22 11 49 4E 50 55 | R ".q....".INPU| 00000040: 54 20 44 45 56 49 43 45 20 23 2C 20 53 43 52 45 |T DEVICE #, SCRE| 00000050: 45 4E 3D 33 20 50 52 49 4E 54 45 52 3D 34 22 3B |EN=3 PRINTER=4";| 00000060: 44 56 3A 8B 44 56 B3 B1 33 AF 44 56 B3 B1 34 A7 |DV:.DV..3.DV..4.| 00000070: 31 00 8D 08 02 00 9F 34 2C 44 56 3A 43 4F B2 33 |1......4,DV:CO.3| 00000080: 39 3A 8B 44 56 B2 34 A7 43 4F B2 37 39 00 32 09 |9:.DV.4.CO.79.2.| 00000090: 03 00 53 24 B2 C7 28 31 29 3A 43 4C B2 B5 28 28 |..S$..(1):CL..((| 000000A0: 43 4F AB 31 30 29 AD 32 29 3A 43 4E B2 43 4C AA |CO.10).2):CN.CL.| 000000B0: 31 30 3A 81 49 B2 31 A4 31 30 3A 43 52 24 B2 43 |10:.I.1.10:CR$.C| 000000C0: 52 24 AA C7 28 31 33 29 3A 82 3A 81 49 B2 31 A4 |R$..(13):.:.I.1.| 000000D0: 43 4F 3A 53 50 24 B2 53 50 24 AA 22 20 22 3A 41 |CO:SP$.SP$." ":A| 000000E0: 53 24 B2 41 53 24 AA 22 20 22 3A 41 52 24 B2 41 |S$.AS$." ":AR$.A| 000000F0: 52 24 AA 22 C0 C0 22 3A 82 3A 81 49 B2 31 A4 31 |R$."..":.:.I.1.1| 00000100: 32 3A 87 41 25 28 49 29 3A 82 3A 81 49 B2 30 A4 |2:.A%(I):.:.I.0.| 00000110: 36 3A 87 44 41 59 24 28 49 29 3A 82 3A 81 49 B2 |6:.DAY$(I):.:.I.| 00000120: 31 A4 31 32 3A 87 4D 24 28 49 29 3A 82 3A 87 44 |1.12:.M$(I):.:.D| 00000130: 44 24 00 2A 0A 04 00 85 22 11 49 4E 50 55 54 20 |D$.*....".INPUT | 00000140: 59 4F 55 52 20 4E 41 4D 45 22 3B 4E 24 3A 88 5A |YOUR NAME";N$:.Z| 00000150: B2 30 3A 85 22 11 49 4E 50 55 54 20 53 54 41 52 |.0:.".INPUT STAR| 00000160: 54 20 44 41 54 45 20 4D 4D 2C 44 44 2C 59 59 22 |T DATE MM,DD,YY"| 00000170: 3B 4D 53 2C 44 53 2C 59 53 3A 4D 53 B2 B5 28 4D |;MS,DS,YS:MS..(M| 00000180: 53 29 3A 44 53 B2 B5 28 44 53 29 3A 59 53 B2 B5 |S):DS..(DS):YS..| 00000190: 28 59 53 29 3A 85 22 11 49 4E 50 55 54 20 42 49 |(YS):.".INPUT BI| 000001A0: 52 54 48 20 44 41 54 45 20 4D 4D 2C 44 44 2C 59 |RTH DATE MM,DD,Y| 000001B0: 59 22 3B 4D 42 2C 44 42 2C 59 42 3A 4D 42 B2 B5 |Y";MB,DB,YB:MB..| 000001C0: 28 4D 42 29 3A 44 42 B2 B5 28 44 42 29 3A 59 42 |(MB):DB..(DB):YB| 000001D0: B2 B5 28 59 42 29 3A 96 A5 49 28 58 29 B2 B5 28 |..(YB):..I(X)..(| 000001E0: 43 4C AC BF 28 32 AC FF AC 58 AD 33 33 29 AA 2E |CL..(2...X.33)..| 000001F0: 35 29 3A 96 A5 45 28 58 29 B2 B5 28 43 4C AC BF |5):..E(X)..(CL..| 00000200: 28 32 AC FF AC 58 AD 32 38 29 AA 2E 35 29 3A 96 |(2...X.28)..5):.| 00000210: A5 50 28 58 29 B2 B5 28 43 4C AC BF 28 32 AC FF |.P(X)..(CL..(2..| 00000220: AC 58 AD 32 33 29 AA 2E 35 29 00 1E 0B 05 00 54 |.X.23)..5).....T| 00000230: 53 B2 B5 28 44 53 AA 33 36 35 2E 32 35 AC 59 53 |S..(DS.365.25.YS| 00000240: AA 41 25 28 4D 53 29 AA 2E 30 31 AC 4D 53 AB 2E |.A%(MS)..01.MS..| 00000250: 30 33 29 3A 54 42 B2 B5 28 44 42 AA 33 36 35 2E |03):TB..(DB.365.| 00000260: 32 35 AC 59 42 AA 41 25 28 4D 42 29 AA 2E 30 31 |25.YB.A%(MB)..01| 00000270: AC 4D 42 AB 2E 30 33 29 3A 58 B2 54 53 AB 54 42 |.MB..03):X.TS.TB| 00000280: 3A 85 22 11 48 4F 57 20 4D 41 4E 59 20 44 41 59 |:.".HOW MANY DAY| 00000290: 53 20 54 4F 20 52 55 4E 22 3B 53 50 3A 53 50 B2 |S TO RUN";SP:SP.| 000002A0: 53 50 AB 31 3A 52 42 B2 54 42 AB 31 AB B5 28 28 |SP.1:RB.TB.1..((| 000002B0: 54 42 AB 31 29 AD 37 29 AC 37 3A 99 22 93 22 3B |TB.1).7).7:.".";| 000002C0: 3A 98 34 2C 43 52 24 3B 53 24 22 2A 2A 2A 2A 2A |:.4,CR$;S$"*****| 000002D0: 2A 2A 2A 2A 2A 20 42 20 49 20 4F 20 52 20 48 20 |***** B I O R H | 000002E0: 59 20 54 20 48 20 4D 20 2A 2A 2A 2A 2A 2A 2A 2A |Y T H M ********| 000002F0: 2A 2A 22 3A 98 34 2C C8 28 43 52 24 2C 33 29 3A |**":.4,.(CR$,3):| 00000300: 8D 33 33 3A 54 24 B2 22 20 41 4E 41 4C 59 53 49 |.33:T$." ANALYSI| 00000310: 53 20 46 4F 52 20 22 AA 4E 24 AA 22 20 22 00 13 |S FOR ".N$." "..| 00000320: 0C 06 00 54 32 24 B2 53 24 3A 8D 32 39 3A 98 34 |...T2$.S$:.29:.4| 00000330: 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |," | 00000340: 20 20 20 22 3A 54 24 B2 22 20 42 4F 52 4E 20 22 | ":T$." BORN "| 00000350: AA 44 41 59 24 28 52 42 29 AA 22 2C 20 22 AA 4D |.DAY$(RB).", ".M| 00000360: 24 28 4D 42 29 AA C4 28 44 42 29 AA 22 2C 20 31 |$(MB)..(DB).", 1| 00000370: 39 22 3A 54 24 B2 54 24 AA C9 28 C4 28 B5 28 59 |9":T$.T$..(.(.(Y| 00000380: 42 AD 31 30 29 29 2C 31 29 AA C9 28 C4 28 59 42 |B.10)),1)..(.(YB| 00000390: 29 2C 31 29 AA 22 20 22 3A 54 32 24 B2 22 22 3A |),1)." ":T2$."":| 000003A0: 8D 32 39 3A 52 B2 54 53 AB 31 AB B5 28 28 54 53 |.29:R.TS.1..((TS| 000003B0: AB 31 29 AD 37 29 AC 37 3A 54 24 B2 22 20 53 54 |.1).7).7:T$." ST| 000003C0: 41 52 54 49 4E 47 20 44 41 54 45 20 22 AA 44 41 |ARTING DATE ".DA| 000003D0: 59 24 28 52 29 AA 22 2C 22 AA 4D 24 28 4D 53 29 |Y$(R).",".M$(MS)| 000003E0: AA C4 28 44 53 29 AA 22 2C 20 31 39 22 3A 54 24 |..(DS).", 19":T$| 000003F0: B2 54 24 AA C9 28 C4 28 B5 28 59 53 AD 31 30 29 |.T$..(.(.(YS.10)| 00000400: 29 2C 31 29 AA C9 28 C4 28 59 53 29 2C 31 29 AA |),1)..(.(YS),1).| 00000410: 22 20 22 00 F9 0C 07 00 54 32 24 B2 22 22 3A 8D |" ".....T2$."":.| 00000420: 32 39 3A 54 24 B2 C4 28 B5 28 32 33 AC 28 58 AD |29:T$..(.(23.(X.| 00000430: 32 33 AB B5 28 58 AD 32 33 29 29 29 29 AA 22 20 |23..(X.23))))." | 00000440: 44 41 59 53 20 49 4E 54 4F 20 54 48 45 20 50 48 |DAYS INTO THE PH| 00000450: 59 53 49 43 41 4C 20 43 59 43 4C 45 22 3A 54 32 |YSICAL CYCLE":T2| 00000460: 24 B2 22 22 3A 8D 32 39 3A 54 24 B2 C4 28 B5 28 |$."":.29:T$..(.(| 00000470: 32 38 AC 28 58 AD 32 38 AB B5 28 58 AD 32 38 29 |28.(X.28..(X.28)| 00000480: 29 29 29 AA 22 20 44 41 59 53 20 49 4E 54 4F 20 |)))." DAYS INTO | 00000490: 54 48 45 20 45 4D 4F 54 49 4F 4E 41 4C 20 43 59 |THE EMOTIONAL CY| 000004A0: 43 4C 45 22 3A 54 32 24 B2 22 22 3A 8D 32 39 3A |CLE":T2$."":.29:| 000004B0: 54 24 B2 C4 28 B5 28 33 33 AC 28 58 AD 33 33 AB |T$..(.(33.(X.33.| 000004C0: B5 28 58 AD 33 33 29 29 29 29 AA 22 20 44 41 59 |.(X.33))))." DAY| 000004D0: 53 20 49 4E 54 4F 20 54 48 45 20 49 4E 54 45 4C |S INTO THE INTEL| 000004E0: 4C 45 43 54 55 41 4C 20 43 59 43 4C 45 22 3A 54 |LECTUAL CYCLE":T| 000004F0: 32 24 B2 22 22 3A 8D 32 39 00 A5 0D 08 00 54 24 |2$."":.29.....T$| 00000500: B2 22 50 20 3D 20 54 48 45 20 50 48 59 53 49 43 |."P = THE PHYSIC| 00000510: 41 4C 20 43 59 43 4C 45 22 3A 54 32 24 B2 22 22 |AL CYCLE":T2$.""| 00000520: 3A 8D 32 39 3A 54 24 B2 22 45 20 3D 20 54 48 45 |:.29:T$."E = THE| 00000530: 20 45 4D 4F 54 49 4F 4E 41 4C 20 43 59 43 4C 45 | EMOTIONAL CYCLE| 00000540: 22 3A 54 32 24 B2 22 22 3A 8D 32 39 3A 54 24 B2 |":T2$."":.29:T$.| 00000550: 22 49 20 3D 20 54 48 45 20 49 4E 54 45 4C 4C 45 |"I = THE INTELLE| 00000560: 43 54 55 41 4C 20 43 59 43 4C 45 22 3A 54 32 24 |CTUAL CYCLE":T2$| 00000570: B2 22 22 3A 8D 32 39 3A 98 34 3A 98 34 2C A6 38 |."":.29:.4:.4,.8| 00000580: 29 22 44 4F 57 4E 22 A6 32 38 29 22 43 52 49 54 |)"DOWN".28)"CRIT| 00000590: 49 43 41 4C 22 A6 32 38 29 22 55 50 22 3A 8D 33 |ICAL".28)"UP":.3| 000005A0: 37 3A 8D 33 38 00 DB 0D 09 00 3A 3A 54 24 B2 C8 |7:.38.....::T$..| 000005B0: 28 44 41 59 24 28 52 29 2C 33 29 AA 22 20 22 AA |(DAY$(R),3)." ".| 000005C0: CA 28 44 44 24 2C 32 AC 44 53 AB 31 2C 32 29 AA |.(DD$,2.DS.1,2).| 000005D0: 22 20 A1 22 AA 4D 24 28 4D 53 29 00 5B 0E 0A 00 |" .".M$(MS).[...| 000005E0: 46 28 30 29 B2 43 4E 3A 46 24 28 30 29 B2 22 DD |F(0).CN:F$(0).".| 000005F0: 22 3A 46 28 31 29 B2 43 4E AA A5 49 28 58 29 3A |":F(1).CN..I(X):| 00000600: 46 24 28 31 29 B2 22 49 22 3A 46 28 32 29 B2 43 |F$(1)."I":F(2).C| 00000610: 4E AA A5 45 28 58 29 3A 46 24 28 32 29 B2 22 45 |N..E(X):F$(2)."E| 00000620: 22 3A 46 28 33 29 B2 43 4E AA A5 50 28 58 29 3A |":F(3).CN..P(X):| 00000630: 46 24 28 33 29 B2 22 50 22 3A 46 B2 30 3A 81 49 |F$(3)."P":F.0:.I| 00000640: B2 30 A4 32 3A 81 4A B2 49 AA 31 A4 33 3A 8B 46 |.0.2:.J.I.1.3:.F| 00000650: 28 49 29 B3 46 28 4A 29 A7 31 34 00 9D 0E 0B 00 |(I).F(J).14.....| 00000660: 8B 46 28 49 29 B2 46 28 4A 29 AF 46 28 49 29 B2 |.F(I).F(J).F(I).| 00000670: 43 4E A7 8B 46 28 49 29 B2 43 4E A7 46 28 49 29 |CN..F(I).CN.F(I)| 00000680: B2 30 3A 46 24 28 49 29 B2 22 22 3A 46 24 28 4A |.0:F$(I)."":F$(J| 00000690: 29 B2 22 43 22 3A 46 B2 31 3A 89 31 34 00 CA 0E |)."C":F.1:.14...| 000006A0: 0C 00 8B 46 28 49 29 B2 46 28 4A 29 A7 46 28 49 |...F(I).F(J).F(I| 000006B0: 29 B2 30 3A 46 24 28 49 29 B2 22 22 3A 46 24 28 |).0:F$(I)."":F$(| 000006C0: 4A 29 B2 22 58 22 3A 89 31 34 00 04 0F 0D 00 51 |J)."X":.14.....Q| 000006D0: B2 46 28 49 29 3A 51 24 B2 46 24 28 49 29 3A 46 |.F(I):Q$.F$(I):F| 000006E0: 28 49 29 B2 46 28 4A 29 3A 46 24 28 49 29 B2 46 |(I).F(J):F$(I).F| 000006F0: 24 28 4A 29 3A 46 28 4A 29 B2 51 3A 46 24 28 4A |$(J):F(J).Q:F$(J| 00000700: 29 B2 51 24 00 2A 0F 0E 00 82 4A 2C 49 3A 8B 46 |).Q$.*....J,I:.F| 00000710: B2 31 A7 54 24 B2 54 24 AA C8 28 41 52 24 2C 43 |.1.T$.T$..(AR$,C| 00000720: 4E AB 31 AB C3 28 54 24 29 29 00 49 0F 0F 00 81 |N.1..(T$)).I....| 00000730: 49 B2 30 A4 33 3A 57 B2 C3 28 54 24 29 3A 8B 46 |I.0.3:W..(T$):.F| 00000740: 28 49 29 B3 B2 57 A7 31 37 00 67 0F 10 00 54 24 |(I)..W.17.g...T$| 00000750: B2 54 24 AA C8 28 53 50 24 2C 46 28 49 29 AB 57 |.T$..(SP$,F(I).W| 00000760: 29 AA 46 24 28 49 29 00 95 0F 11 00 82 3A 98 34 |).F$(I)......:.4| 00000770: 2C 54 24 3A 58 B2 58 AA 2E 35 3A 8B B5 28 58 29 |,T$:X.X..5:..(X)| 00000780: B3 B1 58 A7 54 24 B2 22 20 20 20 20 20 20 20 A1 |..X.T$." .| 00000790: 22 3A 89 31 30 00 A2 0F 12 00 8B 5A B2 53 50 A7 |":.10......Z.SP.| 000007A0: 32 38 00 B5 0F 13 00 52 B2 52 AA 31 3A 8B 52 B2 |28.....R.R.1:.R.| 000007B0: 37 A7 52 B2 30 00 E0 0F 14 00 44 53 B2 44 53 AA |7.R.0.....DS.DS.| 000007C0: 31 3A 8B 4D 53 B2 34 B0 4D 53 B2 36 B0 4D 53 B2 |1:.MS.4.MS.6.MS.| 000007D0: 39 B0 4D 53 B2 31 31 A7 4C B2 33 30 3A 89 32 34 |9.MS.11.L.30:.24| 000007E0: 00 00 10 15 00 8B 4D 53 B2 32 AF 59 53 AD 34 B2 |......MS.2.YS.4.| 000007F0: B5 28 59 53 AD 34 29 A7 4C B2 32 39 3A 89 32 34 |.(YS.4).L.29:.24| 00000800: 00 13 10 16 00 8B 4D 53 B2 32 A7 4C B2 32 38 3A |......MS.2.L.28:| 00000810: 89 32 34 00 1C 10 17 00 4C B2 33 31 00 3A 10 18 |.24.....L.31.:..| 00000820: 00 8B 44 53 B1 4C A7 44 53 B2 44 53 AB 4C 3A 4D |..DS.L.DS.DS.L:M| 00000830: 53 B2 4D 53 AA 31 3A 89 32 36 00 71 10 19 00 54 |S.MS.1:.26.q...T| 00000840: 24 B2 C8 28 44 41 59 24 28 52 29 2C 33 29 AA 22 |$..(DAY$(R),3)."| 00000850: 20 22 AA CA 28 44 44 24 2C 32 AC 44 53 AB 31 2C | "..(DD$,2.DS.1,| 00000860: 32 29 AA 22 20 A1 22 3A 5A B2 5A AA 31 3A 89 31 |2)." .":Z.Z.1:.1| 00000870: 30 00 8A 10 1A 00 8B 4D 53 B2 31 33 A7 4D 53 B2 |0......MS.13.MS.| 00000880: 31 3A 5A B2 5A AA 31 3A 89 39 00 97 10 1B 00 5A |1:Z.Z.1:.9.....Z| 00000890: B2 5A AA 31 3A 89 39 00 AD 10 1C 00 8D 33 37 3A |.Z.1:.9......37:| 000008A0: 8D 33 38 3A 98 34 2C 43 52 24 3A 89 34 00 CA 10 |.38:.4,CR$:.4...| 000008B0: 1D 00 43 54 B2 B5 28 43 4F AD 32 29 3A 8B 54 32 |..CT..(CO.2):.T2| 000008C0: 24 B2 22 22 A7 43 54 B2 43 4F 00 EF 10 1E 00 54 |$."".CT.CO.....T| 000008D0: 31 B2 B5 28 28 43 54 AB C3 28 54 24 29 29 AD 32 |1..((CT..(T$)).2| 000008E0: 29 3A 8B 54 31 B3 31 A7 99 54 24 3A 89 33 32 00 |):.T1.1..T$:.32.| 000008F0: 12 11 1F 00 54 32 24 B2 54 32 24 AA C8 28 41 53 |....T2$.T2$..(AS| 00000900: 24 2C 54 31 29 AA 54 24 3A 98 34 2C 54 32 24 3A |$,T1).T$:.4,T2$:| 00000910: 98 34 00 18 11 20 00 8E 00 0B 12 21 00 98 34 2C |.4... .....!..4,| 00000920: 22 54 48 45 20 50 55 52 50 4F 53 45 20 4F 46 20 |"THE PURPOSE OF | 00000930: 42 49 4F 52 48 59 54 48 4D 20 49 53 20 54 4F 20 |BIORHYTHM IS TO | 00000940: 50 52 45 44 49 43 54 20 41 20 50 48 59 53 49 43 |PREDICT A PHYSIC| 00000950: 41 4C 2C 22 3A 98 34 2C 22 45 4D 4F 54 49 4F 4E |AL,":.4,"EMOTION| 00000960: 41 4C 20 41 4E 44 20 49 4E 54 45 4C 4C 45 43 54 |AL AND INTELLECT| 00000970: 55 41 4C 20 50 41 54 54 45 52 4E 20 54 48 41 54 |UAL PATTERN THAT| 00000980: 20 49 4E 44 49 43 41 54 45 53 20 59 4F 55 52 22 | INDICATES YOUR"| 00000990: 3A 98 34 2C 22 55 50 20 41 4E 44 20 44 4F 57 4E |:.4,"UP AND DOWN| 000009A0: 20 44 41 59 53 20 46 4F 52 20 41 4E 59 20 50 45 | DAYS FOR ANY PE| 000009B0: 52 49 4F 44 20 4F 46 20 54 49 4D 45 2E 20 20 42 |RIOD OF TIME. B| 000009C0: 49 4F 52 48 59 54 48 4D 4E 20 43 41 4E 22 3A 98 |IORHYTHMN CAN":.| 000009D0: 34 2C 22 53 48 4F 57 20 57 48 49 43 48 20 44 41 |4,"SHOW WHICH DA| 000009E0: 59 53 20 57 45 52 45 20 47 4F 4F 44 20 4F 52 20 |YS WERE GOOD OR | 000009F0: 42 41 44 20 46 4F 52 20 59 4F 55 20 42 45 47 49 |BAD FOR YOU BEGI| 00000A00: 4E 4E 49 4E 47 20 57 49 54 48 22 00 F6 12 22 00 |NNING WITH"...".| 00000A10: 98 34 2C 22 59 4F 55 52 20 42 49 52 54 48 2E 20 |.4,"YOUR BIRTH. | 00000A20: 20 49 54 20 43 41 4E 20 41 4C 53 4F 20 53 48 4F | IT CAN ALSO SHO| 00000A30: 57 20 59 4F 55 20 57 48 49 43 48 20 46 55 54 55 |W YOU WHICH FUTU| 00000A40: 52 45 20 44 41 59 53 22 3A 98 34 2C 22 57 49 4C |RE DAYS":.4,"WIL| 00000A50: 4C 20 42 45 20 47 4F 4F 44 20 4F 52 20 42 41 44 |L BE GOOD OR BAD| 00000A60: 20 46 4F 52 20 59 4F 55 2E 20 20 54 48 45 53 45 | FOR YOU. THESE| 00000A70: 20 50 52 45 44 49 43 54 49 4F 4E 53 20 41 52 45 | PREDICTIONS ARE| 00000A80: 22 3A 98 34 2C 22 42 41 53 45 44 20 4F 4E 20 53 |":.4,"BASED ON S| 00000A90: 43 49 45 4E 54 49 46 49 43 20 53 54 55 44 49 45 |CIENTIFIC STUDIE| 00000AA0: 53 20 54 4F 20 44 45 54 45 52 4D 49 4E 45 20 57 |S TO DETERMINE W| 00000AB0: 48 59 20 41 43 43 49 44 45 4E 54 53 22 3A 98 34 |HY ACCIDENTS":.4| 00000AC0: 2C 22 4F 43 43 55 52 2E 20 20 49 54 20 57 41 53 |,"OCCUR. IT WAS| 00000AD0: 20 4C 45 41 52 4E 45 44 20 54 48 52 4F 55 47 48 | LEARNED THROUGH| 00000AE0: 20 54 48 45 53 45 20 53 54 55 44 49 45 53 20 54 | THESE STUDIES T| 00000AF0: 48 41 54 20 41 22 00 DD 13 23 00 98 34 2C 22 50 |HAT A"...#..4,"P| 00000B00: 48 59 53 49 43 41 4C 20 43 59 43 4C 45 20 4F 43 |HYSICAL CYCLE OC| 00000B10: 43 55 52 53 20 45 56 45 52 59 20 32 33 20 44 41 |CURS EVERY 23 DA| 00000B20: 59 53 2C 20 41 4E 20 45 4D 4F 54 49 4F 4E 41 4C |YS, AN EMOTIONAL| 00000B30: 22 3A 98 34 2C 22 43 59 43 4C 45 20 4F 43 43 55 |":.4,"CYCLE OCCU| 00000B40: 52 53 20 45 56 45 52 59 20 32 38 20 44 41 59 53 |RS EVERY 28 DAYS| 00000B50: 2C 20 41 4E 44 20 41 4E 20 49 4E 54 45 4C 4C 45 |, AND AN INTELLE| 00000B60: 43 54 55 41 4C 20 43 59 43 4C 45 22 3A 98 34 2C |CTUAL CYCLE":.4,| 00000B70: 22 4F 43 43 55 52 53 20 45 56 45 52 59 20 33 33 |"OCCURS EVERY 33| 00000B80: 20 44 41 59 53 2E 20 20 54 48 45 20 43 52 49 54 | DAYS. THE CRIT| 00000B90: 49 43 41 4C 20 44 41 59 53 20 4F 43 43 55 52 20 |ICAL DAYS OCCUR | 00000BA0: 44 55 52 49 4E 47 22 3A 98 34 2C 22 54 48 45 20 |DURING":.4,"THE | 00000BB0: 54 52 41 4E 53 49 54 49 4F 4E 20 46 52 4F 4D 20 |TRANSITION FROM | 00000BC0: 50 4F 53 49 54 49 56 45 20 54 4F 20 4E 45 47 41 |POSITIVE TO NEGA| 00000BD0: 54 49 56 45 20 53 54 41 54 45 53 2E 22 00 7D 14 |TIVE STATES.".}.| 00000BE0: 24 00 98 34 2C 22 44 55 52 49 4E 47 20 54 48 45 |$..4,"DURING THE| 00000BF0: 20 43 52 49 54 49 43 41 4C 20 44 41 59 53 20 59 | CRITICAL DAYS Y| 00000C00: 4F 55 20 41 52 45 20 4D 4F 52 45 20 50 52 4F 4E |OU ARE MORE PRON| 00000C10: 45 20 54 4F 20 45 52 52 4F 52 53 2C 22 3A 98 34 |E TO ERRORS,":.4| 00000C20: 2C 22 41 43 43 49 44 45 4E 54 20 41 4E 44 20 50 |,"ACCIDENT AND P| 00000C30: 48 59 53 49 43 41 4C 20 53 45 54 42 41 43 4B 53 |HYSICAL SETBACKS| 00000C40: 2E 20 20 54 48 49 53 20 42 49 4F 52 48 59 54 48 |. THIS BIORHYTH| 00000C50: 4D 20 50 4C 4F 54 22 3A 98 34 2C 22 46 4C 41 47 |M PLOT":.4,"FLAG| 00000C60: 53 20 54 48 45 20 43 52 49 54 49 43 41 4C 20 44 |S THE CRITICAL D| 00000C70: 41 59 53 2E 22 3A 98 34 3A 98 34 3A 8E 00 98 14 |AYS.":.4:.4:....| 00000C80: 25 00 81 49 B2 31 A4 43 4F 3A 98 34 2C 22 B2 22 |%..I.1.CO:.4,"."| 00000C90: 3B 3A 82 3A 98 34 3A 8E 00 71 15 26 00 81 49 B2 |;:.:.4:..q.&..I.| 00000CA0: 31 A4 43 4F 3A 98 34 2C 22 B1 22 3B 3A 82 3A 98 |1.CO:.4,".";:.:.| 00000CB0: 34 3A 8E 3A 83 30 2C 33 31 2C 35 39 2C 39 30 2C |4:.:.0,31,59,90,| 00000CC0: 31 32 30 2C 31 35 31 2C 31 38 31 2C 32 31 32 2C |120,151,181,212,| 00000CD0: 32 34 33 2C 32 37 33 2C 33 30 34 2C 33 33 34 3A |243,273,304,334:| 00000CE0: 83 4D 4F 4E 44 41 59 2C 54 55 45 53 44 41 59 2C |.MONDAY,TUESDAY,| 00000CF0: 57 45 44 4E 45 53 44 41 59 2C 54 48 55 52 53 44 |WEDNESDAY,THURSD| 00000D00: 41 59 2C 46 52 49 44 41 59 2C 53 41 54 55 52 44 |AY,FRIDAY,SATURD| 00000D10: 41 59 2C 53 55 4E 44 41 59 3A 83 4A 41 4E 55 41 |AY,SUNDAY:.JANUA| 00000D20: 52 59 2C 46 45 42 52 55 41 52 59 2C 4D 41 52 43 |RY,FEBRUARY,MARC| 00000D30: 48 2C 41 50 52 49 4C 2C 4D 41 59 2C 4A 55 4E 45 |H,APRIL,MAY,JUNE| 00000D40: 2C 4A 55 4C 59 2C 41 55 47 55 53 54 3A 83 53 45 |,JULY,AUGUST:.SE| 00000D50: 50 54 45 4D 42 45 52 2C 4F 43 54 4F 42 45 52 2C |PTEMBER,OCTOBER,| 00000D60: 4E 4F 56 45 4D 42 45 52 2C 44 45 43 45 4D 42 45 |NOVEMBER,DECEMBE| 00000D70: 52 00 B7 15 27 00 83 22 20 31 20 32 20 33 20 34 |R...'.." 1 2 3 4| 00000D80: 20 35 20 36 20 37 20 38 20 39 31 30 31 31 31 32 | 5 6 7 8 9101112| 00000D90: 31 33 31 34 31 35 31 36 31 37 31 38 31 39 32 30 |1314151617181920| 00000DA0: 32 31 32 32 32 33 32 34 32 35 32 36 32 37 32 38 |2122232425262728| 00000DB0: 32 39 33 30 33 31 22 00 00 00 |293031"... |
..4....A%(12),M$(12):.".".9)". B I O P R I N T E R ".Q....".INPUT DEVICE #, SCRE EN=3 PRINTER=4";DV:.DV..3.DV..4.1......4 ,DV:CO.39:.DV.4.CO.79.2...S$.G(1):CL..(( CO.10).2):CN.CL.10:.I.1.10:CR$.CR$.G(13) :.:.I.1.CO:SP$.SP$." ":AS$.AS$." ":AR$.A R$."..":.:.I.1.12:.A%(I):.:.I.0.6:.DAY$( I):.:.I.1.12:.M$(I):.:.DD$.*....".INPUT YOUR NAME";N$:.Z.0:.".INPUT START DATE M M,DD,YY";MS,DS,YS:MS..(MS):DS..(DS):YS.. (YS):.".INPUT BIRTH DATE MM,DD,YY";MB,DB ,YB:MB..(MB):DB..(DB):YB..(YB):..I(X)..( CL..(2...X.33)..5):..E(X)..(CL..(2...X.2 8)..5):..P(X)..(CL..(2...X.23)..5).....T S..(DS.365.25.YS.A%(MS)..01.MS..03):TB.. (DB.365.25.YB.A%(MB)..01.MB..03):X.TS.TB :.".HOW MANY DAYS TO RUN";SP:SP.SP.1:RB. TB.1..((TB.1).7).7:.".";:.4,CR$;S$"***** ***** B I O R H Y T H M **********":.4,H (CR$,3):.33:T$." ANALYSIS FOR ".N$." ".. ...T2$.S$:.29:.4," ":T$. " BORN ".DAY$(RB).", ".M$(MB).D(DB).", 1 9":T$.T$.I(D(.(YB.10)),1).I(D(YB),1)." " :T2$."":.29:R.TS.1..((TS.1).7).7:T$." ST ARTING DATE ".DAY$(R).",".M$(MS).D(DS)." , 19":T$.T$.I(D(.(YS.10)),1).I(D(YS),1). " ".....T2$."":.29:T$.D(.(23.(X.23..(X.2 3))))." DAYS INTO THE PHYSICAL CYCLE":T2 $."":.29:T$.D(.(28.(X.28..(X.28))))." DA YS INTO THE EMOTIONAL CYCLE":T2$."":.29: T$.D(.(33.(X.33..(X.33))))." DAYS INTO T HE INTELLECTUAL CYCLE":T2$."":.29.....T$ ."P = THE PHYSICAL CYCLE":T2$."":.29:T$. "E = THE EMOTIONAL CYCLE":T2$."":.29:T$. "I = THE INTELLECTUAL CYCLE":T2$."":.29: .4:.4,.8)"DOWN".28)"CRITICAL".28)"UP":.3 7:.38.....::T$.H(DAY$(R),3)." ".J(DD$,2. DS.1,2)." .".M$(MS).[...F(0).CN:F$(0).". ":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:.J.I.1.3:.F(I).F(J).14......F(I).F( J).F(I).CN..F(I).CN.F(I).0:F$(I)."":F$(J )."C":F.1:.14.J....F(I).F(J).F(I).0:F$(I )."":F$(J)."X":.14.....Q.F(I):Q$.F$(I):F (I).F(J):F$(I).F$(J):F(J).Q:F$(J).Q$.*.. ..J,I:.F.1.T$.T$.H(AR$,CN.1.C(T$)).I.... I.0.3:W.C(T$):.F(I)..W.17.G...T$.T$.H(SP $,F(I).W).F$(I)......:.4,T$:X.X..5:..(X) ..X.T$." .":.10......Z.SP.28.....R .R.1:.R.7.R.0.....DS.DS.1:.MS.4.MS.6.MS. 9.MS.11.L.30:.24......MS.2.YS.4..(YS.4). L.29:.24......MS.2.L.28:.24.....L.31.:.. ..DS.L.DS.DS.L:MS.MS.1:.26.Q...T$.H(DAY$ (R),3)." ".J(DD$,2.DS.1,2)." .":Z.Z.1:.1 0......MS.13.MS.1:Z.Z.1:.9.....Z.Z.1:.9. .....37:.38:.4,CR$:.4.J...CT..(CO.2):.T2 $."".CT.CO.....T1..((CT.C(T$)).2):.T1.1. .T$:.32.....T2$.T2$.H(AS$,T1).T$:.4,T2$: .4... .....!..4,"THE PURPOSE OF BIORHYTH M IS TO PREDICT A PHYSICAL,":.4,"EMOTION AL AND INTELLECTUAL PATTERN THAT INDICAT ES YOUR":.4,"UP AND DOWN DAYS FOR ANY PE RIOD OF TIME. BIORHYTHMN CAN":.4,"SHOW WHICH DAYS WERE GOOD OR BAD FOR YOU BEGI NNING WITH"..."..4,"YOUR BIRTH. IT CAN ALSO SHOW YOU WHICH FUTURE DAYS":.4,"WIL L BE GOOD OR BAD FOR YOU. THESE PREDICT IONS ARE":.4,"BASED ON SCIENTIFIC STUDIE S TO DETERMINE WHY ACCIDENTS":.4,"OCCUR. IT WAS LEARNED THROUGH THESE STUDIES T HAT A"...#..4,"PHYSICAL CYCLE OCCURS EVE RY 23 DAYS, AN EMOTIONAL":.4,"CYCLE OCCU RS EVERY 28 DAYS, AND AN INTELLECTUAL CY CLE":.4,"OCCURS EVERY 33 DAYS. THE CRIT ICAL DAYS OCCUR DURING":.4,"THE TRANSITI ON FROM POSITIVE TO NEGATIVE STATES.".}. $..4,"DURING THE CRITICAL DAYS YOU ARE M ORE PRONE TO ERRORS,":.4,"ACCIDENT AND P HYSICAL SETBACKS. THIS BIORHYTHM PLOT": .4,"FLAGS THE CRITICAL DAYS.":.4:.4:.... %..I.1.CO:.4,".";:.:.4:..Q.&..I.1.CO:.4, ".";:.:.4:.:.0,31,59,90,120,151,181,212, 243,273,304,334:.MONDAY,TUESDAY,WEDNESDA Y,THURSDAY,FRIDAY,SATURDAY,SUNDAY:.JANUA RY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AU GUST:.SEPTEMBER,OCTOBER,NOVEMBER,DECEMBE R...'.." 1 2 3 4 5 6 7 8 910111213141516 171819202122232425262728293031"...
> CLICK IMAGE PREVIEW FOR FULL MODAL