BIO KURVEN
FILE INFORMATION
FILENAME(S): BIO KURVEN
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-10-20 14:30:23
APPEARS ON: 2 disk(s)
FILE HASH
94221d5bb463e2cbc6f25b5f9810658b6c1862d00d31b71a788018fc960d4342
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C013 | BIO KURVEN | PRG | Treasure Chest - Klaus Der Suhler | 16 | 9 | DOWNLOAD FILE |
| 128 ER AKTUELL | BIO KURVEN | PRG | hedning, German ebay | 19 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 5B 25 5B 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 5B 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 5B 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 5B |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 5B 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 5B 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 5B 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 5C | 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 5C 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 5C 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 5C 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 5C |*************..\|
00000190: 56 04 99 22 93 11 11 11 11 11 22 00 BF 5C 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 5C 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 5D 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 5D 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 5D 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 5D 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 5D 9C 04 |PRESS S ."..]..|
000002A0: 99 41 41 24 00 AF 5D A6 04 99 22 11 11 11 22 00 |.AA$..]..."...".|
000002B0: B8 5D B0 04 99 41 42 24 00 C5 5D BA 04 99 22 11 |.]...AB$..]...".|
000002C0: 22 3B 41 43 24 00 D2 5D C4 04 99 22 11 22 3B 41 |";AC$..]...".";A|
000002D0: 44 24 00 DF 5D CE 04 99 22 11 22 3B 41 45 24 00 |D$..]...".";AE$.|
000002E0: EC 5D D8 04 99 22 11 22 3B 41 46 24 00 00 5E 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 5E 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 5E F6 04 96 20 |)..(.(X)).-^... |
00000320: A5 46 28 58 29 B2 58 AB A5 49 28 58 29 00 45 5E |.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 5E 0A 05 4B B2 32 AC FF 00 |$(51).O^..K.2...|
00000350: 61 5E 14 05 81 49 B2 31 A4 31 32 3A 87 46 28 49 |a^...I.1.12:.F(I|
00000360: 29 00 69 5E 1E 05 82 20 49 00 92 5E 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 5E 32 05 99 22 93 22 00 C3 5E 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 5E 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 5E |1:Y.Y1:. 2360..^|
000003E0: 50 05 51 31 B2 4A 44 00 FD 5E 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 5F |1:D2.D1:Y2.Y1.._|
00000400: 64 05 8D 20 31 38 36 30 00 12 5F 6E 05 50 49 B2 |d.. 1860.._n.PI.|
00000410: 50 32 00 18 5F 78 05 99 00 43 5F 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 5F 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 5F |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 5F A0 05 8D 20 31 38 36 30 00 93 5F 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 5F B4 05 58 B2 4D 31 3A 8D 31 39 |SET.._..X.M1:.19|
000004A0: 36 30 00 B6 5F BE 05 4A 49 B2 4A 32 AA 44 31 AA |60.._..JI.J2.D1.|
000004B0: 59 31 AC 33 36 35 00 CD 5F 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 5F |639723 . PI.8.._|
000004D0: D2 05 58 B2 4D 32 3A 8D 20 31 39 36 30 00 F1 5F |..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 60 E6 05 8B 4A 32 B3 36 33 39 37 32 33 |5..`...J2.639723|
00000500: 20 A7 50 32 B2 38 00 13 60 F0 05 4E 31 B2 59 32 | .P2.8..`..N1.Y2|
00000510: AB 2E 31 00 57 60 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 60 04 06 8B 4D 31 B1 |Y1.400).f`...M1.|
00000560: 32 A7 31 35 37 30 00 75 60 0E 06 58 B2 59 31 3A |2.1570.u`..X.Y1:|
00000570: 8D 32 30 32 30 00 7F 60 18 06 4F B2 4F AA 58 00 |.2020..`..O.O.X.|
00000580: 8F 60 22 06 8B 4D 32 B1 33 A7 20 31 36 30 30 00 |.`"..M2.3. 1600.|
00000590: 9F 60 2C 06 58 B2 59 32 3A 8D 20 32 30 32 30 00 |.`,.X.Y2:. 2020.|
000005A0: A9 60 36 06 4F B2 4F AA 58 00 BC 60 40 06 8F 20 |.`6.O.O.X..`@.. |
000005B0: 50 52 49 4E 54 20 48 45 41 44 45 52 00 C5 60 4A |PRINT HEADER..`J|
000005C0: 06 99 22 93 22 00 EF 60 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 61 5E 06 48 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D |.a^.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 61 68 06 99 |---------".'ah..|
00000620: 20 A3 37 29 3B 48 24 00 47 61 72 06 8F 20 53 45 | .7);H$.Gar.. 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 61 7C 06 58 B2 59 32 | LP YRS.Pa|.X.Y2|
00000650: 00 60 61 86 06 46 28 32 29 B2 46 28 32 29 AA 58 |.`a..F(2).F(2).X|
00000660: 00 74 61 90 06 8F 20 4D 41 4B 41 20 44 45 20 43 |.ta... MAKA DE C|
00000670: 48 41 52 54 00 7D 61 9A 06 59 B2 51 46 00 89 61 |HART.}a..Y.QF..a|
00000680: A4 06 99 22 13 11 11 11 22 00 99 61 AE 06 81 20 |..."...."..a... |
00000690: 4F B2 4F A4 20 4F AA 31 39 00 B1 61 B8 06 99 4D |O.O. O.19..a...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 61 C2 06 8F 20 49 4E 43 52 55 4D 45 4E |"..a... INCRUMEN|
000006C0: 54 20 54 48 45 20 44 41 54 45 00 DC 61 CC 06 8B |T THE DATE..a...|
000006D0: 20 50 32 B2 38 20 A7 20 31 37 37 30 00 E8 61 D6 | P2.8 . 1770..a.|
000006E0: 06 50 32 B2 50 32 AA 31 00 FA 61 E0 06 8B 20 50 |.P2.P2.1..a... P|
000006F0: 32 B1 37 20 A7 20 50 32 B2 31 00 06 62 EA 06 44 |2.7 . P2.1..b..D|
00000700: 32 B2 44 32 AA 31 00 1D 62 F4 06 8B 20 44 32 B1 |2.D2.1..b... D2.|
00000710: 46 28 4D 32 29 A7 20 8D 20 32 33 35 30 00 30 62 |F(M2). . 2350.0b|
00000720: FE 06 8B 20 4D 32 B3 31 33 20 A7 20 31 38 31 30 |... M2.13 . 1810|
00000730: 00 41 62 08 07 4D 32 B2 31 3A 59 32 B2 59 32 AA |.Ab..M2.1:Y2.Y2.|
00000740: 31 00 52 62 12 07 58 B2 59 32 3A 46 28 32 29 B2 |1.Rb..X.Y2:F(2).|
00000750: 32 38 00 5D 62 1C 07 8D 20 32 30 32 30 00 6D 62 |28.]b... 2020.mb|
00000760: 26 07 46 28 32 29 B2 46 28 32 29 AA 58 00 75 62 |&.F(2).F(2).X.ub|
00000770: 30 07 82 20 4F 00 80 62 3A 07 89 20 32 31 30 30 |0.. O..b:.. 2100|
00000780: 00 9F 62 44 07 8F 20 46 49 4E 44 41 20 44 45 20 |..bD.. 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 62 4E 07 4E 31 B2 4D 32 AA 31 32 AC B5 28 2E |.bN.N1.M2.12..(.|
000007B0: 36 AA 31 AD 4D 32 29 00 CC 62 58 07 4E 32 B2 59 |6.1.M2)..bX.N2.Y|
000007C0: 32 AB B5 28 2E 36 AA 31 AD 4D 32 29 00 E2 62 62 |2..(.6.1.M2)..bb|
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 62 6C 07 4E 34 B2 B5 28 35 AC 4E 32 |5)..bl.N4..(5.N2|
000007F0: AD 34 29 00 04 63 76 07 4E 35 B2 B5 28 4E 32 AD |.4)..cv.N5..(N2.|
00000800: 31 30 30 29 00 15 63 80 07 4E 36 B2 B5 28 4E 32 |100)..c..N6..(N2|
00000810: AD 34 30 30 29 00 2D 63 8A 07 4E 37 B2 4E 33 AA |.400).-c..N7.N3.|
00000820: 4E 34 AB 4E 35 AA 4E 36 AA 44 32 AB 31 00 43 63 |N4.N5.N6.D2.1.Cc|
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 63 9E 07 8E 00 63 63 A8 07 8F 20 |).1.Ic....cc... |
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 63 B2 07 4A 32 B2 30 00 7C 63 BC |THS.lc..J2.0.|c.|
00000870: 07 81 20 49 B2 31 20 A4 20 58 AB 31 00 8B 63 C6 |.. I.1 . X.1..c.|
00000880: 07 4A 32 B2 4A 32 AA 46 28 49 29 00 93 63 D0 07 |.J2.J2.F(I)..c..|
00000890: 82 20 49 00 99 63 DA 07 8E 00 B1 63 E4 07 8F 20 |. I..c.....c... |
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 63 EE 07 8B 20 58 AD 34 30 30 AB B5 28 |R..c... X.400..(|
000008C0: 58 AD 34 30 30 29 B2 30 A7 32 30 36 30 00 E9 63 |X.400).0.2060..c|
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 64 02 08 8B 58 |0).0.2080..d...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 64 0C 08 58 B2 31 00 0F 64 16 08 8E 00 |0..d..X.1..d....|
00000910: 17 64 20 08 58 B2 30 00 1D 64 2A 08 8E 00 25 64 |.d .X.0..d*...%d|
00000920: 34 08 4F B2 59 00 30 64 3E 08 99 22 13 11 11 22 |4.O.Y.0d>.."..."|
00000930: 00 40 64 48 08 81 20 4F B2 4F A4 20 4F AA 31 39 |.@dH.. O.O. O.19|
00000940: 00 62 64 52 08 58 B2 28 BF 28 4B AC 28 4F AD 32 |.bdR.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 64 5C 08 50 B2 58 00 77 64 66 08 99 |24.jd\.P.X.wdf..|
00000970: A3 50 29 3B 22 50 22 00 7F 64 70 08 82 20 4F 00 |.P);"P"..dp.. O.|
00000980: 87 64 7A 08 4F B2 59 00 92 64 84 08 99 22 13 11 |.dz.O.Y..d..."..|
00000990: 11 22 00 A2 64 8E 08 81 20 4F B2 4F A4 20 4F AA |."..d... O.O. O.|
000009A0: 31 39 00 C4 64 98 08 58 B2 28 BF 28 4B AC 28 4F |19..d..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 64 A2 08 49 B2 58 00 D9 64 AC |).24..d..I.X..d.|
000009D0: 08 99 A3 49 29 3B 22 49 22 00 E1 64 B6 08 82 20 |...I);"I"..d... |
000009E0: 4F 00 E9 64 C0 08 4F B2 59 00 F4 64 CA 08 99 22 |O..d..O.Y..d..."|
000009F0: 13 11 11 22 00 04 65 D4 08 81 20 4F B2 4F A4 20 |..."..e... O.O. |
00000A00: 4F AA 31 38 00 26 65 DE 08 58 B2 28 BF 28 4B AC |O.18.&e..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 65 E8 08 45 B2 58 00 3B |15).24..e..E.X.;|
00000A30: 65 F2 08 99 A3 45 29 3B 22 45 22 00 43 65 FC 08 |e....E);"E".Ce..|
00000A40: 82 20 4F 00 4C 65 06 09 A1 F9 5A 24 00 5D 65 10 |. O.Le....Z$.]e.|
00000A50: 09 8B 20 5A 24 B2 22 5A 22 20 A7 20 80 00 71 65 |.. Z$."Z" . ..qe|
00000A60: 1A 09 8B 20 5A 24 B2 22 53 22 20 A7 20 31 33 33 |... Z$."S" . 133|
00000A70: 30 00 8C 65 24 09 4F B2 4F AA 32 30 3A 51 46 B2 |0..e$.O.O.20:QF.|
00000A80: 51 46 AA 32 30 3A 89 20 31 36 30 30 00 9F 65 2E |QF.20:. 1600..e.|
00000A90: 09 44 32 B2 31 3A 4D 32 B2 4D 32 AA 31 3A 8E 00 |.D2.1:M2.M2.1:..|
00000AA0: CD 65 38 09 59 59 B2 59 AA A5 49 28 28 4D AB 31 |.e8.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 66 |.F((M.14).12)..f|
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 66 4C 09 8E 00 00 00 |5..fL..... |
.[%[...******************************.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".
.A^.H$."----------------!---------------
-".'AH.. .7);H$.GAR.. SET F(2) TO 29 FOR
LP YRS.PA|.X.Y2.`A..F(2).F(2).X.TA... M
AKA DE CHART.}A..Y.QF..A..."...."..A...
O.O. O.19..A...M2;"/";D2;.23);"!".JAB..
INCRUMENT THE DATE..AL.. P2.8 . 1770..AV
.P2.P2.1..A... P2.7 . P2.1..B..D2.D2.1..
B... D2.F(M2). . 2350.0B... M2.13 . 1810
.AB..M2.1:Y2.Y2.1.RB..X.Y2:F(2).28.]B...
2020.MB&.F(2).F(2).X.UB0.. O..B:.. 2100
..BD.. FINDA DE DAZE OF DE WEEK..BN.N1.M
2.12..(.6.1.M2).LBX.N2.Y2..(.6.1.M2)..BB
.N3..(13.(N1.1).5)..BL.N4..(5.N2.4)..CV.
N5..(N2.100)..C..N6..(N2.400).-C..N7.N3.
N4.N5.N6.D2.1.CC..P2.N7.7..(N7.7).1.IC..
..CC... DAZE IN PAST MONTHS.LC..J2.0.|C.
.. I.1 . X.1..CF.J2.J2.F(I)..CP.. I..CZ.
...C... CHECK FOR LEAP YR.MC... X.400..(
X.400).0.2060..C... X.100..(X.100).0.208
0..D...X.4..(X.4)..0.2080..D..X.1..D....
.D .X.0..D*...%D4.O.Y.0D>.."...".@DH.. O
.O. O.19.BDR.X.(.(K.(O.23..(O.23))).15).
24.JD\.P.X.WDF...P);"P".DP.. O..DZ.O.Y.
.D..."..."..D... O.O. O.19.DD..X.(.(K.(O
.33..(0.33))).15).24.LD..I.X.YD....I);"I
"..D... O..D..O.Y..DJ.."..."..ET.. O.O.
O.18.&E..X.(.(K.(O.28..(O.28))).15).24..
E..E.X.;E....E);"E".CE... O.LE....Z$.]E.
.. Z$."Z" . ..QE... Z$."S" . 1330..E$.O.
O.20:QF.QF.20:. 1600..E..D2.1:M2.M2.1:..
ME8.YY.Y..I((M.14).12):MM.13.12..F((M.14
).12)..FB.JD.D..I((367.MM.5).12)..I(365.
25.(YY.4712)).2.5..FL.....
> CLICK IMAGE PREVIEW FOR FULL MODAL