Multiple names: BIO-PLOTER, BIO-PLOTER.C
FILE INFORMATION
FILENAME(S):
• BIO-PLOTER<br>• BIO-PLOTER.C
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 7 disk(s)
FILE HASH
875f06133271f8b69a4e94bb8abc212df3db84ee2af650ed4911c33b78bde36e
FOUND ON DISKS (7 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D IVERSES | BIO-PLOTER | PRG | Treasure Chest - Wolfgang Rauprich | 3 | 3 | DOWNLOAD FILE |
| U TILITIE | BIO-PLOTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | BIO-PLOTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 1 | DOWNLOAD FILE |
| DIVERSES ON C64 | BIO-PLOTER | PRG | Treasure Chest - Wolfgang Rauprich | 3 | 3 | DOWNLOAD FILE |
| A NWENDER | BIO-PLOTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | BIO-PLOTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 1 | DOWNLOAD FILE |
| SIKKERHEDSKOPIER | BIO-PLOTER.C | PRG | Curtcool, Misc | 32 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 E8 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 F2 03 8F 2A 20 20 20 20 |*****.I....* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 2A 00 6D 08 FC 03 8F 2A | *.m....*|
00000050: 20 20 54 48 49 53 20 41 44 41 50 54 41 54 49 4F | THIS ADAPTATIO|
00000060: 4E 20 46 4F 52 20 50 45 54 20 20 20 2A 00 91 08 |N FOR PET *...|
00000070: 06 04 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |...* |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 2A 00 B5 08 10 04 8F 2A 20 20 20 20 20 20 20 20 |*......* |
000000A0: 20 20 20 20 42 59 20 20 20 20 20 20 20 20 20 20 | BY |
000000B0: 20 20 20 20 2A 00 D9 08 1A 04 8F 2A 20 20 20 20 | *......* |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 2A 00 FD 08 24 04 8F 2A | *...$..*|
000000E0: 20 20 20 20 20 20 20 44 2E 20 53 2E 20 50 45 4E | D. S. PEN|
000000F0: 4E 45 52 20 20 20 20 20 20 20 20 20 2A 00 21 09 |NER *.!.|
00000100: 2E 04 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |...* |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 2A 00 45 09 38 04 8F 2A 20 20 20 20 20 20 4A 55 |*.E.8..* JU|
00000130: 4E 45 2D 49 53 48 20 20 31 39 38 30 20 20 20 20 |NE-ISH 1980 |
00000140: 20 20 20 20 2A 00 69 09 42 04 8F 2A 20 20 20 20 | *.i.B..* |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 2A 00 8D 09 4C 04 8F 2A | *...L..*|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 09 |*************...|
00000190: 56 04 99 22 93 11 11 11 11 11 22 00 BF 09 60 04 |V.."......"...`.|
000001A0: 41 41 24 B2 22 20 20 20 20 20 20 20 20 42 49 4F |AA$." BIO|
000001B0: 52 48 59 54 48 4D 20 50 4C 4F 54 54 45 52 22 00 |RHYTHM PLOTTER".|
000001C0: EF 09 6A 04 41 42 24 B2 22 4F 4E 20 45 4E 54 52 |..j.AB$."ON ENTR|
000001D0: 59 20 4F 46 20 42 49 52 54 48 20 44 41 54 45 20 |Y OF BIRTH DATE |
000001E0: 41 4E 44 20 41 20 53 54 41 52 54 49 4E 47 22 00 |AND A STARTING".|
000001F0: 20 0A 74 04 41 43 24 B2 22 44 41 54 45 2C 20 50 | .t.AC$."DATE, P|
00000200: 4C 4F 54 53 20 41 20 53 48 4F 52 54 20 43 48 41 |LOTS A SHORT CHA|
00000210: 52 54 20 5B 20 32 30 20 44 41 59 53 20 5D 2E 22 |RT [ 20 DAYS ]."|
00000220: 00 4F 0A 7E 04 41 44 24 B2 22 54 4F 20 43 4F 4E |.O.~.AD$."TO CON|
00000230: 54 49 4E 55 45 20 4F 4E 3B 20 50 52 45 53 53 20 |TINUE ON; PRESS |
00000240: 54 48 45 20 53 50 41 43 45 20 42 41 52 2E 22 00 |THE SPACE BAR.".|
00000250: 6C 0A 88 04 41 45 24 B2 22 54 4F 20 45 4E 44 3B |l...AE$."TO END;|
00000260: 20 50 52 45 53 53 20 20 5A 20 2E 22 00 9B 0A 92 | PRESS Z ."....|
00000270: 04 41 46 24 B2 22 54 4F 20 53 54 41 52 54 20 57 |.AF$."TO START W|
00000280: 49 54 48 20 41 20 4E 45 57 20 44 41 54 45 3B 20 |ITH A NEW DATE; |
00000290: 50 52 45 53 53 20 20 53 20 2E 22 00 A4 0A 9C 04 |PRESS S .".....|
000002A0: 99 41 41 24 00 AF 0A A6 04 99 22 11 11 11 22 00 |.AA$......"...".|
000002B0: B8 0A B0 04 99 41 42 24 00 C5 0A BA 04 99 22 11 |.....AB$......".|
000002C0: 22 3B 41 43 24 00 D2 0A C4 04 99 22 11 22 3B 41 |";AC$......".";A|
000002D0: 44 24 00 DF 0A CE 04 99 22 11 22 3B 41 45 24 00 |D$......".";AE$.|
000002E0: EC 0A D8 04 99 22 11 22 3B 41 46 24 00 00 0B E2 |.....".";AF$....|
000002F0: 04 A1 5A 24 3A 8B 5A 24 B2 22 22 89 31 32 35 30 |..Z$:.Z$."".1250|
00000300: 00 19 0B EC 04 96 20 A5 49 28 58 29 B2 B4 28 58 |...... .I(X)..(X|
00000310: 29 AC B5 28 B6 28 58 29 29 00 2D 0B F6 04 96 20 |)..(.(X)).-.... |
00000320: A5 46 28 58 29 B2 58 AB A5 49 28 58 29 00 45 0B |.F(X).X..I(X).E.|
00000330: 00 05 86 20 46 28 31 32 29 2C 4A 28 32 29 2C 4F |... F(12),J(2),O|
00000340: 24 28 35 31 29 00 4F 0B 0A 05 4B B2 32 AC FF 00 |$(51).O...K.2...|
00000350: 61 0B 14 05 81 49 B2 31 A4 31 32 3A 87 46 28 49 |a....I.1.12:.F(I|
00000360: 29 00 69 0B 1E 05 82 20 49 00 92 0B 28 05 83 33 |).i.... I...(..3|
00000370: 31 2C 32 38 2C 33 31 2C 33 30 2C 33 31 2C 33 30 |1,28,31,30,31,30|
00000380: 2C 33 31 2C 33 31 2C 33 30 2C 33 31 2C 33 30 2C |,31,31,30,31,30,|
00000390: 33 31 00 9B 0B 32 05 99 22 93 22 00 C3 0B 3C 05 |31...2.."."...<.|
000003A0: 85 22 42 49 52 54 48 20 44 41 54 45 3A 20 4D 4D |."BIRTH DATE: MM|
000003B0: 2C 44 44 2C 59 59 59 59 20 22 3B 4D 31 2C 44 31 |,DD,YYYY ";M1,D1|
000003C0: 2C 59 31 00 DD 0B 46 05 4D B2 4D 31 3A 44 B2 44 |,Y1...F.M.M1:D.D|
000003D0: 31 3A 59 B2 59 31 3A 8D 20 32 33 36 30 00 E7 0B |1:Y.Y1:. 2360...|
000003E0: 50 05 51 31 B2 4A 44 00 FD 0B 5A 05 4D 32 B2 4D |P.Q1.JD...Z.M2.M|
000003F0: 31 3A 44 32 B2 44 31 3A 59 32 B2 59 31 00 08 0C |1:D2.D1:Y2.Y1...|
00000400: 64 05 8D 20 31 38 36 30 00 12 0C 6E 05 50 49 B2 |d.. 1860...n.PI.|
00000410: 50 32 00 18 0C 78 05 99 00 43 0C 82 05 85 22 53 |P2...x...C...."S|
00000420: 54 41 52 54 49 4E 47 20 44 41 54 45 3A 20 4D 4D |TARTING DATE: MM|
00000430: 2C 44 44 2C 59 59 59 59 20 22 3B 4D 32 2C 44 32 |,DD,YYYY ";M2,D2|
00000440: 2C 59 32 00 5D 0C 8C 05 4D B2 4D 32 3A 44 B2 44 |,Y2.]...M.M2:D.D|
00000450: 32 3A 59 B2 59 32 3A 8D 20 32 33 36 30 00 70 0C |2:Y.Y2:. 2360.p.|
00000460: 96 05 51 32 B2 4A 44 3A 51 46 B2 51 32 AB 51 31 |..Q2.JD:QF.Q2.Q1|
00000470: 00 7B 0C A0 05 8D 20 31 38 36 30 00 93 0C AA 05 |.{.... 1860.....|
00000480: 8F 20 43 41 4C 43 55 4C 41 54 45 53 20 4F 46 46 |. CALCULATES OFF|
00000490: 53 45 54 00 A2 0C B4 05 58 B2 4D 31 3A 8D 31 39 |SET.....X.M1:.19|
000004A0: 36 30 00 B6 0C BE 05 4A 49 B2 4A 32 AA 44 31 AA |60.....JI.J2.D1.|
000004B0: 59 31 AC 33 36 35 00 CD 0C C8 05 8B 20 4A 31 B3 |Y1.365...... J1.|
000004C0: 36 33 39 37 32 33 20 A7 20 50 49 B2 38 00 DD 0C |639723 . PI.8...|
000004D0: D2 05 58 B2 4D 32 3A 8D 20 31 39 36 30 00 F1 0C |..X.M2:. 1960...|
000004E0: DC 05 4A 32 B2 4A 32 AA 44 32 AA 59 32 AC 33 36 |..J2.J2.D2.Y2.36|
000004F0: 35 00 06 0D E6 05 8B 4A 32 B3 36 33 39 37 32 33 |5......J2.639723|
00000500: 20 A7 50 32 B2 38 00 13 0D F0 05 4E 31 B2 59 32 | .P2.8.....N1.Y2|
00000510: AB 2E 31 00 57 0D FA 05 4F B2 4A 32 AB 4A 31 AA |..1.W...O.J2.J1.|
00000520: B5 28 4E 31 AD 34 29 AB B5 28 59 31 AD 34 29 AB |.(N1.4)..(Y1.4).|
00000530: B5 28 4E 31 AD 31 30 30 29 AA B5 28 59 31 AD 31 |.(N1.100)..(Y1.1|
00000540: 30 30 29 AA B5 28 4E 31 AD 34 30 30 29 AB B5 28 |00)..(N1.400)..(|
00000550: 59 31 AD 34 30 30 29 00 66 0D 04 06 8B 4D 31 B1 |Y1.400).f....M1.|
00000560: 32 A7 31 35 37 30 00 75 0D 0E 06 58 B2 59 31 3A |2.1570.u...X.Y1:|
00000570: 8D 32 30 32 30 00 7F 0D 18 06 4F B2 4F AA 58 00 |.2020.....O.O.X.|
00000580: 8F 0D 22 06 8B 4D 32 B1 33 A7 20 31 36 30 30 00 |.."..M2.3. 1600.|
00000590: 9F 0D 2C 06 58 B2 59 32 3A 8D 20 32 30 32 30 00 |..,.X.Y2:. 2020.|
000005A0: A9 0D 36 06 4F B2 4F AA 58 00 BC 0D 40 06 8F 20 |..6.O.O.X...@.. |
000005B0: 50 52 49 4E 54 20 48 45 41 44 45 52 00 C5 0D 4A |PRINT HEADER...J|
000005C0: 06 99 22 93 22 00 EF 0D 54 06 99 A3 37 29 3B 22 |.."."...T...7);"|
000005D0: 44 4F 57 4E 22 3B A3 32 30 29 3B 22 43 52 49 54 |DOWN";.20);"CRIT|
000005E0: 49 43 41 4C 22 3B A3 33 38 29 3B 22 55 50 22 00 |ICAL";.38);"UP".|
000005F0: 1A 0E 5E 06 48 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D |..^.H$."--------|
00000600: 2D 2D 2D 2D 2D 2D 2D 2D 21 2D 2D 2D 2D 2D 2D 2D |--------!-------|
00000610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 27 0E 68 06 99 |---------".'.h..|
00000620: 20 A3 37 29 3B 48 24 00 47 0E 72 06 8F 20 53 45 | .7);H$.G.r.. SE|
00000630: 54 20 46 28 32 29 20 54 4F 20 32 39 20 46 4F 52 |T F(2) TO 29 FOR|
00000640: 20 4C 50 20 59 52 53 00 50 0E 7C 06 58 B2 59 32 | LP YRS.P.|.X.Y2|
00000650: 00 60 0E 86 06 46 28 32 29 B2 46 28 32 29 AA 58 |.`...F(2).F(2).X|
00000660: 00 74 0E 90 06 8F 20 4D 41 4B 41 20 44 45 20 43 |.t.... MAKA DE C|
00000670: 48 41 52 54 00 7D 0E 9A 06 59 B2 51 46 00 89 0E |HART.}...Y.QF...|
00000680: A4 06 99 22 13 11 11 11 22 00 99 0E AE 06 81 20 |..."...."...... |
00000690: 4F B2 4F A4 20 4F AA 31 39 00 B1 0E B8 06 99 4D |O.O. O.19......M|
000006A0: 32 3B 22 2F 22 3B 44 32 3B A3 32 33 29 3B 22 21 |2;"/";D2;.23);"!|
000006B0: 22 00 CA 0E C2 06 8F 20 49 4E 43 52 55 4D 45 4E |"...... INCRUMEN|
000006C0: 54 20 54 48 45 20 44 41 54 45 00 DC 0E CC 06 8B |T THE DATE......|
000006D0: 20 50 32 B2 38 20 A7 20 31 37 37 30 00 E8 0E D6 | P2.8 . 1770....|
000006E0: 06 50 32 B2 50 32 AA 31 00 FA 0E E0 06 8B 20 50 |.P2.P2.1...... P|
000006F0: 32 B1 37 20 A7 20 50 32 B2 31 00 06 0F EA 06 44 |2.7 . P2.1.....D|
00000700: 32 B2 44 32 AA 31 00 1D 0F F4 06 8B 20 44 32 B1 |2.D2.1...... D2.|
00000710: 46 28 4D 32 29 A7 20 8D 20 32 33 35 30 00 30 0F |F(M2). . 2350.0.|
00000720: FE 06 8B 20 4D 32 B3 31 33 20 A7 20 31 38 31 30 |... M2.13 . 1810|
00000730: 00 41 0F 08 07 4D 32 B2 31 3A 59 32 B2 59 32 AA |.A...M2.1:Y2.Y2.|
00000740: 31 00 52 0F 12 07 58 B2 59 32 3A 46 28 32 29 B2 |1.R...X.Y2:F(2).|
00000750: 32 38 00 5D 0F 1C 07 8D 20 32 30 32 30 00 6D 0F |28.].... 2020.m.|
00000760: 26 07 46 28 32 29 B2 46 28 32 29 AA 58 00 75 0F |&.F(2).F(2).X.u.|
00000770: 30 07 82 20 4F 00 80 0F 3A 07 89 20 32 31 30 30 |0.. O...:.. 2100|
00000780: 00 9F 0F 44 07 8F 20 46 49 4E 44 41 20 44 45 20 |...D.. FINDA DE |
00000790: 44 41 5A 45 20 4F 46 20 44 45 20 57 45 45 4B 00 |DAZE OF DE WEEK.|
000007A0: B7 0F 4E 07 4E 31 B2 4D 32 AA 31 32 AC B5 28 2E |..N.N1.M2.12..(.|
000007B0: 36 AA 31 AD 4D 32 29 00 CC 0F 58 07 4E 32 B2 59 |6.1.M2)...X.N2.Y|
000007C0: 32 AB B5 28 2E 36 AA 31 AD 4D 32 29 00 E2 0F 62 |2..(.6.1.M2)...b|
000007D0: 07 4E 33 B2 B5 28 31 33 AC 28 4E 31 AA 31 29 AD |.N3..(13.(N1.1).|
000007E0: 35 29 00 F3 0F 6C 07 4E 34 B2 B5 28 35 AC 4E 32 |5)...l.N4..(5.N2|
000007F0: AD 34 29 00 04 10 76 07 4E 35 B2 B5 28 4E 32 AD |.4)...v.N5..(N2.|
00000800: 31 30 30 29 00 15 10 80 07 4E 36 B2 B5 28 4E 32 |100).....N6..(N2|
00000810: AD 34 30 30 29 00 2D 10 8A 07 4E 37 B2 4E 33 AA |.400).-...N7.N3.|
00000820: 4E 34 AB 4E 35 AA 4E 36 AA 44 32 AB 31 00 43 10 |N4.N5.N6.D2.1.C.|
00000830: 94 07 50 32 B2 4E 37 AB 37 AC B5 28 4E 37 AD 37 |..P2.N7.7..(N7.7|
00000840: 29 AA 31 00 49 10 9E 07 8E 00 63 10 A8 07 8F 20 |).1.I.....c.... |
00000850: 44 41 5A 45 20 49 4E 20 50 41 53 54 20 4D 4F 4E |DAZE IN PAST MON|
00000860: 54 48 53 00 6C 10 B2 07 4A 32 B2 30 00 7C 10 BC |THS.l...J2.0.|..|
00000870: 07 81 20 49 B2 31 20 A4 20 58 AB 31 00 8B 10 C6 |.. I.1 . X.1....|
00000880: 07 4A 32 B2 4A 32 AA 46 28 49 29 00 93 10 D0 07 |.J2.J2.F(I).....|
00000890: 82 20 49 00 99 10 DA 07 8E 00 B1 10 E4 07 8F 20 |. I............ |
000008A0: 43 48 45 43 4B 20 46 4F 52 20 4C 45 41 50 20 59 |CHECK FOR LEAP Y|
000008B0: 52 00 CD 10 EE 07 8B 20 58 AD 34 30 30 AB B5 28 |R...... X.400..(|
000008C0: 58 AD 34 30 30 29 B2 30 A7 32 30 36 30 00 E9 10 |X.400).0.2060...|
000008D0: F8 07 8B 20 58 AD 31 30 30 AB B5 28 58 AD 31 30 |... X.100..(X.10|
000008E0: 30 29 B2 30 A7 32 30 38 30 00 01 11 02 08 8B 58 |0).0.2080......X|
000008F0: AD 34 AB B5 28 58 AD 34 29 B3 B1 30 A7 32 30 38 |.4..(X.4)..0.208|
00000900: 30 00 09 11 0C 08 58 B2 31 00 0F 11 16 08 8E 00 |0.....X.1.......|
00000910: 17 11 20 08 58 B2 30 00 1D 11 2A 08 8E 00 25 11 |.. .X.0...*...%.|
00000920: 34 08 4F B2 59 00 30 11 3E 08 99 22 13 11 11 22 |4.O.Y.0.>.."..."|
00000930: 00 40 11 48 08 81 20 4F B2 4F A4 20 4F AA 31 39 |.@.H.. O.O. O.19|
00000940: 00 62 11 52 08 58 B2 28 BF 28 4B AC 28 4F AD 32 |.b.R.X.(.(K.(O.2|
00000950: 33 AB B5 28 4F AD 32 33 29 29 29 AC 31 35 29 AA |3..(O.23))).15).|
00000960: 32 34 00 6A 11 5C 08 50 B2 58 00 77 11 66 08 99 |24.j.\.P.X.w.f..|
00000970: A3 50 29 3B 22 50 22 00 7F 11 70 08 82 20 4F 00 |.P);"P"...p.. O.|
00000980: 87 11 7A 08 4F B2 59 00 92 11 84 08 99 22 13 11 |..z.O.Y......"..|
00000990: 11 22 00 A2 11 8E 08 81 20 4F B2 4F A4 20 4F AA |."...... O.O. O.|
000009A0: 31 39 00 C4 11 98 08 58 B2 28 BF 28 4B AC 28 4F |19.....X.(.(K.(O|
000009B0: AD 33 33 AB B5 28 30 AD 33 33 29 29 29 AC 31 35 |.33..(0.33))).15|
000009C0: 29 AA 32 34 00 CC 11 A2 08 49 B2 58 00 D9 11 AC |).24.....I.X....|
000009D0: 08 99 A3 49 29 3B 22 49 22 00 E1 11 B6 08 82 20 |...I);"I"...... |
000009E0: 4F 00 E9 11 C0 08 4F B2 59 00 F4 11 CA 08 99 22 |O.....O.Y......"|
000009F0: 13 11 11 22 00 04 12 D4 08 81 20 4F B2 4F A4 20 |..."...... O.O. |
00000A00: 4F AA 31 38 00 26 12 DE 08 58 B2 28 BF 28 4B AC |O.18.&...X.(.(K.|
00000A10: 28 4F AD 32 38 AB B5 28 4F AD 32 38 29 29 29 AC |(O.28..(O.28))).|
00000A20: 31 35 29 AA 32 34 00 2E 12 E8 08 45 B2 58 00 3B |15).24.....E.X.;|
00000A30: 12 F2 08 99 A3 45 29 3B 22 45 22 00 43 12 FC 08 |.....E);"E".C...|
00000A40: 82 20 4F 00 5A 12 06 09 A1 5A 24 3A 8B 20 5A 24 |. O.Z....Z$:. Z$|
00000A50: B2 22 22 20 A7 20 32 33 31 30 00 6B 12 10 09 8B |."" . 2310.k....|
00000A60: 20 5A 24 B2 22 5A 22 20 A7 20 80 00 7F 12 1A 09 | Z$."Z" . ......|
00000A70: 8B 20 5A 24 B2 22 53 22 20 A7 20 31 33 33 30 00 |. Z$."S" . 1330.|
00000A80: 9A 12 24 09 4F B2 4F AA 32 30 3A 51 46 B2 51 46 |..$.O.O.20:QF.QF|
00000A90: AA 32 30 3A 89 20 31 36 30 30 00 AD 12 2E 09 44 |.20:. 1600.....D|
00000AA0: 32 B2 31 3A 4D 32 B2 4D 32 AA 31 3A 8E 00 DB 12 |2.1:M2.M2.1:....|
00000AB0: 38 09 59 59 B2 59 AA A5 49 28 28 4D AB 31 34 29 |8.YY.Y..I((M.14)|
00000AC0: AD 31 32 29 3A 4D 4D B2 31 33 AA 31 32 AC A5 46 |.12):MM.13.12..F|
00000AD0: 28 28 4D AB 31 34 29 AD 31 32 29 00 0F 13 42 09 |((M.14).12)...B.|
00000AE0: 4A 44 B2 44 AA A5 49 28 28 33 36 37 AC 4D 4D AA |JD.D..I((367.MM.|
00000AF0: 35 29 AD 31 32 29 AA A5 49 28 33 36 35 2E 32 35 |5).12)..I(365.25|
00000B00: AC 28 59 59 AA 34 37 31 32 29 29 AB 32 2E 35 00 |.(YY.4712)).2.5.|
00000B10: 15 13 4C 09 8E 00 00 00 |..L..... |
..%....******************************.I.
...* *.M....*
THIS ADAPTATION FOR PET *......*
*......*
BY *.Y....*
*...$..* D. S. PEN
NER *.!....*
*.E.8..* JUNE-ISH 1980
*.I.B..*
*...L..******************************...
V.."......"...`.AA$." BIORHYTHM P
LOTTER"...J.AB$."ON ENTRY OF BIRTH DATE
AND A STARTING". .T.AC$."DATE, PLOTS A S
HORT CHART [ 20 DAYS ].".O.~.AD$."TO CON
TINUE ON; PRESS THE SPACE BAR.".L...AE$.
"TO END; PRESS Z .".....AF$."TO START W
ITH A NEW DATE; PRESS S ."......AA$....
.."..."......AB$.E....".";AC$.R.D..".";A
D$...N..".";AE$...X..".";AF$......Z$:.Z$
."".1250...... .I(X)..(X)..(.(X)).-....
.F(X).X..I(X).E.... F(12),J(2),O$(51).O.
..K.2...A....I.1.12:.F(I).I.... I...(..3
1,28,31,30,31,30,31,31,30,31,30,31...2..
".".C.<.."BIRTH DATE: MM,DD,YYYY ";M1,D1
,Y1...F.M.M1:D.D1:Y.Y1:. 2360...P.Q1.JD.
..Z.M2.M1:D2.D1:Y2.Y1...D.. 1860...N.PI.
P2...X...C...."STARTING DATE: MM,DD,YYYY
";M2,D2,Y2.]...M.M2:D.D2:Y.Y2:. 2360.P.
..Q2.JD:QF.Q2.Q1.{. .. 1860...... CALCUL
ATES OFFSET.....X.M1:.1960.....JI.J2.D1.
Y1.365.M.H.. J1.639723 . PI.8...R.X.M2:.
1960.....J2.J2.D2.Y2.365......J2.639723
.P2.8.....N1.Y2..1.W...O.J2.J1..(N1.4).
.(Y1.4)..(N1.100)..(Y1.100)..(N1.400)..(
Y1.400).F....M1.2.1570.U...X.Y1:.2020..
..O.O.X..."..M2.3. 1600...,.X.Y2:. 2020.
..6.O.O.X...@.. PRINT HEADER.E.J.."."...
T...7);"DOWN";.20);"CRITICAL";.38);"UP".
..^.H$."----------------!---------------
-".'.H.. .7);H$.G.R.. SET F(2) TO 29 FOR
LP YRS.P.|.X.Y2.`...F(2).F(2).X.T.... M
AKA DE CHART.}...Y.QF......"...."......
O.O. O.19......M2;"/";D2;.23);"!".J.B..
INCRUMENT THE DATE...L.. P2.8 . 1770...V
.P2.P2.1...... P2.7 . P2.1.....D2.D2.1..
.... D2.F(M2). . 2350.0.... M2.13 . 1810
.A...M2.1:Y2.Y2.1.R...X.Y2:F(2).28.]....
2020.M.&.F(2).F(2).X.U.0.. O...:.. 2100
...D.. FINDA DE DAZE OF DE WEEK...N.N1.M
2.12..(.6.1.M2).L.X.N2.Y2..(.6.1.M2)...B
.N3..(13.(N1.1).5)...L.N4..(5.N2.4)...V.
N5..(N2.100).....N6..(N2.400).-...N7.N3.
N4.N5.N6.D2.1.C...P2.N7.7..(N7.7).1.I...
..C.... DAZE IN PAST MONTHS.L...J2.0.|..
.. I.1 . X.1...F.J2.J2.F(I)...P.. I...Z.
....... CHECK FOR LEAP YR.M.... X.400..(
X.400).0.2060...... X.100..(X.100).0.208
0......X.4..(X.4)..0.2080.....X.1.......
.. .X.0...*...%.4.O.Y.0.>.."...".@.H.. O
.O. O.19.B.R.X.(.(K.(O.23..(O.23))).15).
24.J.\.P.X.W.F...P);"P"..P.. O...Z.O.Y.
....."..."...... O.O. O.19.D...X.(.(K.(O
.33..(0.33))).15).24.L...I.X.Y.....I);"I
"...... O.....O.Y...J.."..."...T.. O.O.
O.18.&...X.(.(K.(O.28..(O.28))).15).24..
...E.X.;.....E);"E".C.... O.Z....Z$:. Z$
."" . 2310.K.... Z$."Z" . ...... Z$."S"
. 1330...$.O.O.20:QF.QF.20:. 1600.....D
2.1:M2.M2.1:....8.YY.Y..I((M.14).12):MM.
13.12..F((M.14).12)...B.JD.D..I((367.MM.
5).12)..I(365.25.(YY.4712)).2.5...L.....
> CLICK IMAGE PREVIEW FOR FULL MODAL