SHA.BIORYTHMUS
FILE INFORMATION
FILENAME(S): SHA.BIORYTHMUS
FILE TYPE(S): USR
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-02 22:11:25
APPEARS ON: 1 disk(s)
FILE HASH
2845fdbd43e608d731cb5e16f2687278f0fc37063b00d5d88cef2eef738bfe5c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 046A | SHA.BIORYTHMUS | USR | Treasure Chest - ToGuMi | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 67 07 70 00 00 00 00 00 00 00 5F 00 14 14 CB 4C |g.p......._....L| 00000010: 24 28 31 29 2A 32 35 3A CB 4F 24 28 33 29 2A 31 |$(1)*25:.O$(3)*1| 00000020: 39 0D 00 1E 18 22 4E 22 DD 22 20 47 45 42 55 52 |9...."N"." GEBUR| 00000030: 54 53 44 41 54 55 4D 20 3F 22 3A C2 0D 00 28 19 |TSDATUM ?":...(.| 00000040: E0 31 35 30 3A 41 3D 4E 3A 51 24 3D 48 24 3A 57 |.150:A=N:Q$=H$:W| 00000050: 24 3D 4A 24 3A 52 3D 59 0D 00 32 1F DD 22 48 45 |$=J$:R=Y..2.."HE| 00000060: 55 54 49 47 45 53 20 44 41 54 55 4D 20 3F 22 3A |UTIGES DATUM ?":| 00000070: E0 31 35 30 3A 4E 3D 4E 2D 41 0D 00 3C 0F E0 22 |.150:N=N-A..<.."| 00000080: 49 22 3A E0 22 45 22 3A E0 22 56 22 0D 00 46 32 |I":."E":."V"..F2| 00000090: DE 22 20 20 49 4E 54 3A 20 22 3B 49 3B 22 25 22 |." INT: ";I;"%"| 000000A0: 3A DE 22 20 20 45 4D 4F 3A 22 3B 45 3B 22 25 22 |:." EMO:";E;"%"| 000000B0: 3A DE 22 20 20 56 49 54 3A 20 22 3B 56 3B 22 25 |:." VIT: ";V;"%| 000000C0: 22 0D 00 50 16 DD 22 20 20 4B 55 52 56 45 22 3A |"..P.." KURVE":| 000000D0: D4 AD 3C 3E 22 22 D2 22 4B 22 0D 00 5A 18 DD 22 |..<>""."K"..Z.."| 000000E0: 20 20 54 41 42 45 4C 4C 45 22 3A D4 AD 3C 3E 22 | TABELLE":..<>"| 000000F0: 22 D2 22 54 22 0D 00 64 1B DD 22 20 20 4E 45 55 |"."T"..d.." NEU| 00000100: 45 49 4E 47 41 42 45 22 3A D4 AD 3C 3E 22 22 D2 |EINGABE":..<>"".| 00000110: 22 4E 22 0D 00 6E 04 C6 38 30 0D 00 78 35 22 49 |"N"..n..80..x5"I| 00000120: 22 49 3D 28 28 4E 2F 33 33 29 2D 98 28 4E 2F 33 |"I=((N/33)-.(N/3| 00000130: 33 29 29 2A 32 2A FB 3A 49 3D 98 28 2E 35 2B 31 |3))*2*.:I=.(.5+1| 00000140: 30 30 30 30 2A 95 49 29 2F 31 30 30 3A 55 3D 49 |0000*.I)/100:U=I| 00000150: 3A E3 0D 00 82 35 22 45 22 45 3D 28 28 4E 2F 32 |:....5"E"E=((N/2| 00000160: 38 29 2D 98 28 4E 2F 32 38 29 29 2A 32 2A FB 3A |8)-.(N/28))*2*.:| 00000170: 45 3D 98 28 2E 35 2B 31 30 30 30 30 2A 95 45 29 |E=.(.5+10000*.E)| 00000180: 2F 31 30 30 3A 55 3D 45 3A E3 0D 00 8C 35 22 56 |/100:U=E:....5"V| 00000190: 22 56 3D 28 28 4E 2F 32 33 29 2D 98 28 4E 2F 32 |"V=((N/23)-.(N/2| 000001A0: 33 29 29 2A 32 2A FB 3A 56 3D 98 28 2E 35 2B 31 |3))*2*.:V=.(.5+1| 000001B0: 30 30 30 30 2A 95 56 29 2F 31 30 30 3A 55 3D 56 |0000*.V)/100:U=V| 000001C0: 3A E3 0D 00 96 40 DF 22 20 20 20 20 54 41 47 3A |:....@." TAG:| 000001D0: 20 22 3B 44 3A DF 22 20 20 20 4D 4F 4E 41 54 3A | ";D:." MONAT:| 000001E0: 20 22 3B 4D 3A DF 22 20 20 20 20 4A 41 48 52 3A | ";M:." JAHR:| 000001F0: 20 22 3B 59 3A D4 59 3C 31 30 30 D2 D6 59 3D 59 | ";Y:.Y<100..Y=Y| 00000200: 2B 31 39 30 30 0D 00 A0 4D 4E 3D 59 2A 33 36 35 |+1900...MN=Y*365| 00000210: 2B 98 28 59 2F 34 29 2B 98 28 59 2F 34 30 30 29 |+.(Y/4)+.(Y/400)| 00000220: 2D 98 28 59 2F 31 30 30 29 3A D4 98 28 59 2F 34 |-.(Y/100):..(Y/4| 00000230: 29 3C 3E 59 2F 34 A1 4D 3D 32 A1 44 3E 32 38 D2 |)<>Y/4.M=2.D>28.| 00000240: DE 22 46 41 4C 53 43 48 44 41 54 55 4D 20 21 22 |."FALSCHDATUM !"| 00000250: 3A C6 22 4E 22 0D 00 AA 17 D4 98 28 59 2F 34 29 |:."N"......(Y/4)| 00000260: 3D 59 2F 34 A1 4D 3C 33 D2 D6 4E 3D 4E 2D 31 0D |=Y/4.M<3..N=N-1.| 00000270: 00 AF 35 4C 24 28 31 29 3D 22 32 33 31 32 32 33 |..5L$(1)="231223| 00000280: 33 34 35 35 36 36 22 3A 4E 3D 4E 2D 32 30 2B A4 |345566":N=N-20+.| 00000290: AA 28 4C 24 28 31 29 2C 4D 2C 31 29 2B 33 30 2A |.(L$(1),M,1)+30*| 000002A0: 28 4D 2D 32 29 2B 44 0D 00 B4 26 50 3D 4E 2D 37 |(M-2)+D...&P=N-7| 000002B0: 2A 98 28 4E 2F 37 29 2B 31 3A 4C 24 28 31 29 3D |*.(N/7)+1:L$(1)=| 000002C0: 22 53 41 53 4F 4D 4F 44 49 4D 49 44 4F 46 52 22 |"SASOMODIMIDOFR"| 000002D0: 0D 00 B9 3E 42 24 3D AA 28 4C 24 28 31 29 2C 32 |...>B$=.(L$(1),2| 000002E0: 2A 50 2D 31 2C 32 29 3A 58 3D 44 3A E0 31 39 30 |*P-1,2):X=D:.190| 000002F0: 3A DD 22 20 22 3B 42 24 3B 22 20 20 20 22 3B 48 |:." ";B$;" ";H| 00000300: 24 3B 22 2E 22 3B 4A 24 3B 22 2E 22 3B 4B 24 3A |$;".";J$;".";K$:| 00000310: E3 0D 00 BE 17 48 24 3D A9 58 3A D4 58 3C 31 30 |.....H$=.X:.X<10| 00000320: D2 D6 48 24 3D 22 30 22 2B 48 24 0D 00 C8 17 4A |..H$="0"+H$....J| 00000330: 24 3D A9 4D 3A D4 4D 3C 31 30 D2 D6 4A 24 3D 22 |$=.M:.M<10..J$="| 00000340: 30 22 2B 4A 24 0D 00 D2 1E 4B 24 3D A9 28 59 2D |0"+J$....K$=.(Y-| 00000350: 31 39 30 30 29 3A D4 59 3C 31 30 D2 D6 4B 24 3D |1900):.Y<10..K$=| 00000360: 22 30 22 2B 4B 24 0D 00 DC 02 E3 0D 00 E6 29 22 |"0"+K$........)"| 00000370: 54 22 E4 3A D5 58 3D 31 D0 4D 3A DB 5A 3A D9 58 |T".:.X=1.M:.Z:.X| 00000380: 3A D4 98 28 59 2F 34 29 3D 59 2F 34 A1 4D 3D 32 |:..(Y/4)=Y/4.M=2| 00000390: D2 D6 5A 3D 5A 2B 31 0D 00 F0 05 E0 33 34 30 0D |..Z=Z+1.....340.| 000003A0: 00 FA 4A E2 22 20 20 41 55 53 47 41 42 45 20 45 |..J." AUSGABE E| 000003B0: 52 46 4F 4C 47 54 20 49 4E 20 25 22 3A E2 22 22 |RFOLGT IN %":.""| 000003C0: 3A E2 22 20 20 20 20 20 20 49 4E 54 20 3D 20 47 |:." INT = G| 000003D0: 45 49 53 54 22 3A E2 22 20 20 20 20 20 20 45 4D |EIST":." EM| 000003E0: 4F 20 3D 20 47 45 46 55 45 48 4C 22 0D 01 04 42 |O = GEFUEHL"...B| 000003F0: E2 22 20 20 20 20 20 20 56 49 54 20 3D 20 4B 4F |." VIT = KO| 00000400: 45 52 50 45 52 22 3A E2 22 22 3A E2 22 47 45 42 |ERPER":."":."GEB| 00000410: 55 52 54 53 44 41 54 55 4D 3A 20 22 3B 51 24 3B |URTSDATUM: ";Q$;| 00000420: 22 2E 22 3B 57 24 3B 22 2E 22 3B A9 52 3A E2 22 |".";W$;".";.R:."| 00000430: 22 0D 01 0E 25 DC 33 31 2C 32 38 2C 33 31 2C 33 |"...%.31,28,31,3| 00000440: 30 2C 33 31 2C 33 30 2C 33 31 2C 33 31 2C 33 30 |0,31,30,31,31,30| 00000450: 2C 33 31 2C 33 30 2C 33 31 0D 01 18 33 D5 58 3D |,31,30,31...3.X=| 00000460: 44 D0 5A 3A E0 22 49 22 3A E0 22 45 22 3A E0 22 |D.Z:."I":."E":."| 00000470: 56 22 3A 4E 3D 4E 2B 31 3A E0 31 39 30 3A E2 48 |V":N=N+1:.190:.H| 00000480: 24 3B 22 2E 22 3B 4A 24 3B 22 2E 22 3B 4B 24 0D |$;".";J$;".";K$.| 00000490: 01 22 1B CA 22 26 26 26 26 26 26 26 26 26 26 26 |.".."&&&&&&&&&&&| 000004A0: 26 26 26 26 26 23 23 23 23 2E 23 23 22 0D 01 2C |&&&&&####.##"..,| 000004B0: 42 E2 22 20 20 20 20 20 20 20 20 20 20 49 4E 54 |B." INT| 000004C0: 3A 20 20 22 3B 49 3A E2 22 20 20 20 20 20 20 20 |: ";I:." | 000004D0: 20 20 20 45 4D 4F 3A 20 20 22 3B 45 3A E2 22 20 | EMO: ";E:." | 000004E0: 20 20 20 20 20 20 20 20 20 56 49 54 3A 20 20 22 | VIT: "| 000004F0: 3B 56 0D 01 36 1D CA 3A D9 58 3A E2 22 22 3A E2 |;V..6..:.X:."":.| 00000500: 22 22 3A 4E 3D 4E 2D 28 5A 2D 44 2B 31 29 3A C6 |"":N=N-(Z-D+1):.| 00000510: 38 30 0D 01 54 3A E2 22 22 3A E2 22 2A 2A 2A 2A |80..T:."":."****| 00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000530: 2A 2A 2A 22 3A E2 22 2A 2A 2A 2A 2A 20 42 49 4F |***":."***** BIO| 00000540: 52 48 59 54 48 4D 55 53 20 2A 2A 2A 2A 2A 22 0D |RHYTHMUS *****".| 00000550: 01 59 21 E2 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.Y!."***********| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A E2 22 |************":."| 00000570: 22 3A E3 0D 01 5E 30 22 4B 22 3A E0 33 34 30 3A |":...^0"K":.340:| 00000580: E2 22 47 45 42 55 52 54 53 44 41 54 55 4D 3A 20 |."GEBURTSDATUM: | 00000590: 22 3B 51 24 3B 22 2E 22 3B 57 24 3B 22 2E 22 3B |";Q$;".";W$;".";| 000005A0: A9 52 3A E2 22 22 0D 01 68 26 E4 3A D5 58 3D 31 |.R:.""..h&.:.X=1| 000005B0: D0 4D 3A DB 5A 3A D9 58 3A D4 98 28 59 2F 34 29 |.M:.Z:.X:..(Y/4)| 000005C0: 3D 59 2F 34 A1 4D 3D 32 D2 D6 5A 3D 5A 2B 31 0D |=Y/4.M=2..Z=Z+1.| 000005D0: 01 72 3F 4F 24 28 31 29 3D 22 20 20 20 20 20 20 |.r?O$(1)=" | 000005E0: 20 47 20 45 20 49 20 53 20 54 22 3A 4F 24 28 32 | G E I S T":O$(2| 000005F0: 29 3D 22 20 20 20 20 20 47 20 45 20 46 20 55 20 |)=" G E F U | 00000600: 45 20 48 20 4C 22 3A 5A 31 3D 31 3A 4E 3D 4E 2D |E H L":Z1=1:N=N-| 00000610: 44 0D 01 77 1B 4F 24 28 33 29 3D 22 20 20 20 20 |D..w.O$(3)=" | 00000620: 20 4B 20 4F 20 45 20 52 20 50 20 45 20 52 22 0D | K O E R P E R".| 00000630: 01 7C 25 E2 22 41 55 53 47 41 42 45 4D 4F 4E 41 |.|%."AUSGABEMONA| 00000640: 54 3A 20 20 20 20 22 3B 4A 24 3B 22 2E 31 39 22 |T: ";J$;".19"| 00000650: 3B 4B 24 3A E2 22 22 0D 01 86 38 E2 4F 24 28 5A |;K$:.""...8.O$(Z| 00000660: 31 29 3A E2 22 22 3A E2 22 20 20 20 20 20 20 20 |1):."":." | 00000670: 20 20 20 20 20 30 22 3A E2 22 20 20 49 49 49 49 | 0":." IIII| 00000680: 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 |IIIIIIIIIIIIIIII| 00000690: 49 22 0D 01 90 2C D5 58 3D 31 D0 5A 3A 4E 3D 4E |I"...,.X=1.Z:N=N| 000006A0: 2B 31 3A D3 5A 31 E0 22 49 22 2C 22 45 22 2C 22 |+1:.Z1."I","E","| 000006B0: 56 22 3A 55 3D 98 28 55 2F 31 30 2B 31 31 2E 35 |V":U=.(U/10+11.5| 000006C0: 29 0D 01 9A 25 4C 24 28 31 29 3D 22 20 2D 22 3A |)...%L$(1)=" -":| 000006D0: D4 58 2F 31 30 3D 98 28 58 2F 31 30 29 D2 D6 4C |.X/10=.(X/10)..L| 000006E0: 24 28 31 29 3D 22 2D 2D 22 0D 01 A4 09 D4 55 3D |$(1)="--".....U=| 000006F0: 31 D2 34 34 30 0D 01 AE 1E D5 58 31 3D 31 D0 55 |1.440.....X1=1.U| 00000700: 2D 31 3A 4C 24 28 31 29 3D 4C 24 28 31 29 2B 22 |-1:L$(1)=L$(1)+"| 00000710: 20 22 3A D9 58 31 0D 01 B8 10 4C 24 28 31 29 3D | ":.X1....L$(1)=| 00000720: 4C 24 28 31 29 2B 22 2A 22 0D 01 C2 10 E2 4C 24 |L$(1)+"*".....L$| 00000730: 28 31 29 3A D9 58 3A 4E 3D 4E 2D 5A 0D 01 CC 1A |(1):.X:N=N-Z....| 00000740: 5A 31 3D 5A 31 2B 31 3A E2 22 22 3A E2 22 22 3A |Z1=Z1+1:."":."":| 00000750: D4 5A 31 3C 34 D2 33 39 30 0D 01 D6 0A 4E 3D 4E |.Z1<4.390....N=N| 00000760: 2B 44 3A C6 38 30 0D FF FF |+D:.80... |
G.P......._...KL$(1)*25:KO$(3)*19...."N" ." GEBURTSDATUM ?":B..(..150:A=N:Q$=H$:W $=J$:R=Y..2.."HEUTIGES DATUM ?":.150:N=N -A..<.."I":."E":."V"..F2." INT: ";I;"%" :." EMO:";E;"%":." VIT: ";V;"%"..P.." KURVE":T.<>""R"K"..Z.." TABELLE":T.<>" "R"T"..D.." NEUEINGABE":T.<>""R"N"..N.F 80..X5"I"I=((N/33)-.(N/33))*2*.:I=.(.5+1 0000*.I)/100:U=I:....5"E"E=((N/28)-.(N/2 8))*2*.:E=.(.5+10000*.E)/100:U=E:....5"V "V=((N/23)-.(N/23))*2*.:V=.(.5+10000*.V) /100:U=V:....@." TAG: ";D:." MONAT: ";M:." JAHR: ";Y:TY<100RVY=Y+1900.. MN=Y*365+.(Y/4)+.(Y/400)-.(Y/100):T.(Y/4 )<>Y/4.M=2.D>28R."FALSCHDATUM !":F"N"... .T.(Y/4)=Y/4.M<3RVN=N-1...5L$(1)="231223 345566":N=N-20+..(L$(1),M,1)+30*(M-2)+D. ..&P=N-7*.(N/7)+1:L$(1)="SASOMODIMIDOFR" ...>B$=.(L$(1),2*P-1,2):X=D:.190:." ";B$ ;" ";H$;".";J$;".";K$:.....H$=.X:TX<10 RVH$="0"+H$..H.J$=.M:TM<10RVJ$="0"+J$..R .K$=.(Y-1900):TY<10RVK$="0"+K$........)" T".:UX=1PM:.Z:YX:T.(Y/4)=Y/4.M=2RVZ=Z+1. ....340...J." AUSGABE ERFOLGT IN %":."" :." INT = GEIST":." EMO = GEFU EHL"...B." VIT = KOERPER":."":."GEB URTSDATUM: ";Q$;".";W$;".";.R:.""...%.31 ,28,31,30,31,30,31,31,30,31,30,31...3UX= DPZ:."I":."E":."V":N=N+1:.190:.H$;".";J$ ;".";K$..".J"&&&&&&&&&&&&&&&&####.##".., B." INT: ";I:." EMO: ";E:." VIT: ";V..6.J:YX:."":. "":N=N-(Z-D+1):F80..T:."":."************ ***********":."***** BIORHYTHMUS *****". .Y!."***********************":."":...^0" K":.340:."GEBURTSDATUM: ";Q$;".";W$;"."; .R:.""..H&.:UX=1PM:.Z:YX:T.(Y/4)=Y/4.M=2 RVZ=Z+1..R?O$(1)=" G E I S T":O$(2 )=" G E F U E H L":Z1=1:N=N-D..W.O$( 3)=" K O E R P E R"..|%."AUSGABEMONA T: ";J$;".19";K$:.""...8.O$(Z1):."":. " 0":." IIIIIIIIIIIIIIIIIIII I"...,UX=1PZ:N=N+1:SZ1."I","E","V":U=.(U /10+11.5)...%L$(1)=" -":TX/10=.(X/10)RVL $(1)="--"....TU=1R440....UX1=1PU-1:L$(1) =L$(1)+" ":YX1....L$(1)=L$(1)+"*"..B..L$ (1):YX:N=N-Z..L.Z1=Z1+1:."":."":TZ1<4R39 0..V.N=N+D:F80...
> CLICK IMAGE PREVIEW FOR FULL MODAL