BIO KURVEN
FILE INFORMATION
FILENAME(S): BIO KURVEN
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-02 16:39:54
APPEARS ON: 1 disk(s)
FILE HASH
db1d11d4194f135b48e7544ea50c577726dad49b642f4974d14180bbc47990a2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 13 | BIO KURVEN | PRG | Treasure Chest - Plattfuss | 31 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 25 1C 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 1C 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 1C 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 43 42 4D 20 20 20 2A 00 91 1C |N FOR CBM *...|
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 1C 10 04 8F 2A 20 20 20 20 20 20 20 20 |*......* |
000000A0: 20 20 20 20 31 32 38 20 20 20 20 20 20 20 20 20 | 128 |
000000B0: 20 20 20 20 2A 00 D9 1C 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 1C 24 04 8F 2A | *...$..*|
000000E0: 20 20 20 20 20 20 20 42 59 20 20 20 20 20 20 20 | BY |
000000F0: 20 20 43 43 52 20 20 20 20 20 20 20 2A 00 21 1D | CCR *.!.|
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 1D 38 04 8F 2A 20 20 43 4F 4D 50 55 54 |*.E.8..* COMPUT|
00000130: 45 52 43 4C 55 42 20 52 55 48 52 47 45 42 49 45 |ERCLUB RUHRGEBIE|
00000140: 54 20 20 20 2A 00 69 1D 42 04 8F 2A 20 20 20 20 |T *.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 1D 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 1D |*************...|
00000190: 56 04 99 22 93 11 11 11 11 11 22 00 BF 1D 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 1D 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 1E 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 1E 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 1E 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 1E 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 1E 9C 04 |PRESS S .".....|
000002A0: 99 41 41 24 00 AF 1E A6 04 99 22 11 11 11 22 00 |.AA$......"...".|
000002B0: B8 1E B0 04 99 41 42 24 00 C5 1E BA 04 99 22 11 |.....AB$......".|
000002C0: 22 3B 41 43 24 00 D2 1E C4 04 99 22 11 22 3B 41 |";AC$......".";A|
000002D0: 44 24 00 DF 1E CE 04 99 22 11 22 3B 41 45 24 00 |D$......".";AE$.|
000002E0: EC 1E D8 04 99 22 11 22 3B 41 46 24 00 00 1F 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 1F 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 1F F6 04 96 20 |)..(.(X)).-.... |
00000320: A5 46 28 58 29 B2 58 AB A5 49 28 58 29 00 45 1F |.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 1F 0A 05 4B B2 32 AC FF 00 |$(51).O...K.2...|
00000350: 61 1F 14 05 81 49 B2 31 A4 31 32 3A 87 46 28 49 |a....I.1.12:.F(I|
00000360: 29 00 69 1F 1E 05 82 20 49 00 92 1F 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 1F 32 05 99 22 93 22 00 C3 1F 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 1F 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 1F |1:Y.Y1:. 2360...|
000003E0: 50 05 51 31 B2 4A 44 00 FD 1F 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 20 |1:D2.D1:Y2.Y1.. |
00000400: 64 05 8D 20 31 38 36 30 00 12 20 6E 05 50 49 B2 |d.. 1860.. n.PI.|
00000410: 50 32 00 18 20 78 05 99 00 43 20 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 20 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 20 |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 20 A0 05 8D 20 31 38 36 30 00 93 20 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 20 B4 05 58 B2 4D 31 3A 8D 31 39 |SET.. ..X.M1:.19|
000004A0: 36 30 00 B6 20 BE 05 4A 49 B2 4A 32 AA 44 31 AA |60.. ..JI.J2.D1.|
000004B0: 59 31 AC 33 36 35 00 CD 20 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 20 |639723 . PI.8.. |
000004D0: D2 05 58 B2 4D 32 3A 8D 20 31 39 36 30 00 F1 20 |..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 21 E6 05 8B 4A 32 B3 36 33 39 37 32 33 |5..!...J2.639723|
00000500: 20 A7 50 32 B2 38 00 13 21 F0 05 4E 31 B2 59 32 | .P2.8..!..N1.Y2|
00000510: AB 2E 31 00 57 21 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 21 04 06 8B 4D 31 B1 |Y1.400).f!...M1.|
00000560: 32 A7 31 35 37 30 00 75 21 0E 06 58 B2 59 31 3A |2.1570.u!..X.Y1:|
00000570: 8D 32 30 32 30 00 7F 21 18 06 4F B2 4F AA 58 00 |.2020..!..O.O.X.|
00000580: 8F 21 22 06 8B 4D 32 B1 33 A7 20 31 36 30 30 00 |.!"..M2.3. 1600.|
00000590: 9F 21 2C 06 58 B2 59 32 3A 8D 20 32 30 32 30 00 |.!,.X.Y2:. 2020.|
000005A0: A9 21 36 06 4F B2 4F AA 58 00 BC 21 40 06 8F 20 |.!6.O.O.X..!@.. |
000005B0: 50 52 49 4E 54 20 48 45 41 44 45 52 00 C5 21 4A |PRINT HEADER..!J|
000005C0: 06 99 22 93 22 00 EF 21 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 22 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 22 68 06 99 |---------".'"h..|
00000620: 20 A3 37 29 3B 48 24 00 47 22 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 22 7C 06 58 B2 59 32 | LP YRS.P"|.X.Y2|
00000650: 00 60 22 86 06 46 28 32 29 B2 46 28 32 29 AA 58 |.`"..F(2).F(2).X|
00000660: 00 74 22 90 06 8F 20 4D 41 4B 41 20 44 45 20 43 |.t"... MAKA DE C|
00000670: 48 41 52 54 00 7D 22 9A 06 59 B2 51 46 00 89 22 |HART.}"..Y.QF.."|
00000680: A4 06 99 22 13 11 11 11 22 00 99 22 AE 06 81 20 |..."....".."... |
00000690: 4F B2 4F A4 20 4F AA 31 39 00 B1 22 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 22 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 22 CC 06 8B |T THE DATE.."...|
000006D0: 20 50 32 B2 38 20 A7 20 31 37 37 30 00 E8 22 D6 | P2.8 . 1770..".|
000006E0: 06 50 32 B2 50 32 AA 31 00 FA 22 E0 06 8B 20 50 |.P2.P2.1.."... P|
000006F0: 32 B1 37 20 A7 20 50 32 B2 31 00 06 23 EA 06 44 |2.7 . P2.1..#..D|
00000700: 32 B2 44 32 AA 31 00 1D 23 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 23 |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 23 08 07 4D 32 B2 31 3A 59 32 B2 59 32 AA |.A#..M2.1:Y2.Y2.|
00000740: 31 00 52 23 12 07 58 B2 59 32 3A 46 28 32 29 B2 |1.R#..X.Y2:F(2).|
00000750: 32 38 00 5D 23 1C 07 8D 20 32 30 32 30 00 6D 23 |28.]#... 2020.m#|
00000760: 26 07 46 28 32 29 B2 46 28 32 29 AA 58 00 75 23 |&.F(2).F(2).X.u#|
00000770: 30 07 82 20 4F 00 80 23 3A 07 89 20 32 31 30 30 |0.. O..#:.. 2100|
00000780: 00 9F 23 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 23 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 23 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 23 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 23 6C 07 4E 34 B2 B5 28 35 AC 4E 32 |5)..#l.N4..(5.N2|
000007F0: AD 34 29 00 04 24 76 07 4E 35 B2 B5 28 4E 32 AD |.4)..$v.N5..(N2.|
00000800: 31 30 30 29 00 15 24 80 07 4E 36 B2 B5 28 4E 32 |100)..$..N6..(N2|
00000810: AD 34 30 30 29 00 2D 24 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 24 |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 24 9E 07 8E 00 63 24 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 24 B2 07 4A 32 B2 30 00 7C 24 BC |THS.l$..J2.0.|$.|
00000870: 07 81 20 49 B2 31 20 A4 20 58 AB 31 00 8B 24 C6 |.. I.1 . X.1..$.|
00000880: 07 4A 32 B2 4A 32 AA 46 28 49 29 00 93 24 D0 07 |.J2.J2.F(I)..$..|
00000890: 82 20 49 00 99 24 DA 07 8E 00 B1 24 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 24 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 24 |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 25 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 25 0C 08 58 B2 31 00 0F 25 16 08 8E 00 |0..%..X.1..%....|
00000910: 17 25 20 08 58 B2 30 00 1D 25 2A 08 8E 00 25 25 |.% .X.0..%*...%%|
00000920: 34 08 4F B2 59 00 30 25 3E 08 99 22 13 11 11 22 |4.O.Y.0%>.."..."|
00000930: 00 40 25 48 08 81 20 4F B2 4F A4 20 4F AA 31 39 |.@%H.. O.O. O.19|
00000940: 00 62 25 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 25 5C 08 50 B2 58 00 77 25 66 08 99 |24.j%\.P.X.w%f..|
00000970: A3 50 29 3B 22 50 22 00 7F 25 70 08 82 20 4F 00 |.P);"P"..%p.. O.|
00000980: 87 25 7A 08 4F B2 59 00 92 25 84 08 99 22 13 11 |.%z.O.Y..%..."..|
00000990: 11 22 00 A2 25 8E 08 81 20 4F B2 4F A4 20 4F AA |."..%... O.O. O.|
000009A0: 31 39 00 C4 25 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 25 A2 08 49 B2 58 00 D9 25 AC |).24..%..I.X..%.|
000009D0: 08 99 A3 49 29 3B 22 49 22 00 E1 25 B6 08 82 20 |...I);"I"..%... |
000009E0: 4F 00 E9 25 C0 08 4F B2 59 00 F4 25 CA 08 99 22 |O..%..O.Y..%..."|
000009F0: 13 11 11 22 00 04 26 D4 08 81 20 4F B2 4F A4 20 |..."..&... O.O. |
00000A00: 4F AA 31 38 00 26 26 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 26 E8 08 45 B2 58 00 3B |15).24..&..E.X.;|
00000A30: 26 F2 08 99 A3 45 29 3B 22 45 22 00 43 26 FC 08 |&....E);"E".C&..|
00000A40: 82 20 4F 00 4C 26 06 09 A1 F9 5A 24 00 5D 26 10 |. O.L&....Z$.]&.|
00000A50: 09 8B 20 5A 24 B2 22 5A 22 20 A7 20 80 00 71 26 |.. Z$."Z" . ..q&|
00000A60: 1A 09 8B 20 5A 24 B2 22 53 22 20 A7 20 31 33 33 |... Z$."S" . 133|
00000A70: 30 00 8C 26 24 09 4F B2 4F AA 32 30 3A 51 46 B2 |0..&$.O.O.20:QF.|
00000A80: 51 46 AA 32 30 3A 89 20 31 36 30 30 00 9F 26 2E |QF.20:. 1600..&.|
00000A90: 09 44 32 B2 31 3A 4D 32 B2 4D 32 AA 31 3A 8E 00 |.D2.1:M2.M2.1:..|
00000AA0: CD 26 38 09 59 59 B2 59 AA A5 49 28 28 4D AB 31 |.&8.YY.Y..I((M.1|
00000AB0: 34 29 AD 31 32 29 3A 4D 4D B2 31 33 AA 31 32 AC |4).12):MM.13.12.|
00000AC0: A5 46 28 28 4D AB 31 34 29 AD 31 32 29 00 01 27 |.F((M.14).12)..'|
00000AD0: 42 09 4A 44 B2 44 AA A5 49 28 28 33 36 37 AC 4D |B.JD.D..I((367.M|
00000AE0: 4D AA 35 29 AD 31 32 29 AA A5 49 28 33 36 35 2E |M.5).12)..I(365.|
00000AF0: 32 35 AC 28 59 59 AA 34 37 31 32 29 29 AB 32 2E |25.(YY.4712)).2.|
00000B00: 35 00 07 27 4C 09 8E 00 00 00 |5..'L..... |
..%....******************************.I.
...* *.M....*
THIS ADAPTATION FOR CBM *......*
*......*
128 *.Y....*
*...$..* BY
CCR *.!....*
*.E.8..* COMPUTERCLUB RUHRGEBIE
T *.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.L&....Z$.]&.
.. Z$."Z" . ..Q&... Z$."S" . 1330..&$.O.
O.20:QF.QF.20:. 1600..&..D2.1:M2.M2.1:..
M&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