home *** CD-ROM | disk | FTP | other *** search
Unknown | 1993-03-22 | 2.6 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
66%
| dexvert
| SoundTracker Module (music/soundTracker)
| ext
| Supported |
66%
| dexvert
| Chip Tracker Module (music/chipTracker)
| ext
| Supported |
66%
| dexvert
| Protracker Module (music/mod)
| ext
| Supported |
66%
| dexvert
| Octalyser Module (music/octalyser)
| ext
| Supported |
66%
| dexvert
| Star Tracker/StarTrekker Module (music/starTracker)
| ext
| Supported |
1%
| dexvert
| Multiplan spreadsheet (document/multiplanSpreadsheet)
| ext
| Unsupported |
1%
| dexvert
| PollyTracker Module (music/pollyTracker)
| ext
| Unsupported |
1%
| dexvert
| Black Viper packed music (music/blackViperPackedMusic)
| ext
| Unsupported |
100%
| file
| data
| default
| |
100%
| gt2
| Kopftext: 'oBBiorhythm.Mod'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 42 69 6f 72 68 79 | 74 68 6d 2e 4d 6f 64 00 |oBBiorhy|thm.Mod.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 01 f0 23 00 00 00 | 01 53 79 6e 74 61 78 31 |....#...|.Syntax1|
|00000030| 30 2e 53 63 6e 2e 46 6e | 74 00 0f 00 f0 09 00 00 |0.Scn.Fn|t.......|
|00000040| 00 f0 09 00 00 4d 4f 44 | 55 4c 45 20 42 69 6f 72 |.....MOD|ULE Bior|
|00000050| 68 79 74 68 6d 3b 20 28 | 2a 4a 2e 20 47 75 74 6b |hythm; (|*J. Gutk|
|00000060| 6e 65 63 68 74 2c 20 31 | 30 2e 37 2e 39 32 2a 29 |necht, 1|0.7.92*)|
|00000070| 0d 20 20 49 4d 50 4f 52 | 54 20 49 6e 2c 20 4f 75 |. IMPOR|T In, Ou|
|00000080| 74 3b 0d 0d 20 20 28 2a | 20 43 61 6c 6c 20 42 69 |t;.. (*| Call Bi|
|00000090| 6f 72 68 79 74 68 6d 2e | 53 68 6f 77 20 64 61 79 |orhythm.|Show day|
|000000a0| 20 6d 6f 6e 74 68 20 79 | 65 61 72 20 6d 6f 6e 74 | month y|ear mont|
|000000b0| 68 20 79 65 61 72 2c 0d | 20 20 20 20 20 20 77 68 |h year,.| wh|
|000000c0| 65 72 65 20 66 69 72 73 | 74 20 64 61 74 65 20 69 |ere firs|t date i|
|000000d0| 73 20 62 69 72 74 68 20 | 64 61 74 65 20 61 6e 64 |s birth |date and|
|000000e0| 20 73 65 63 6f 6e 64 20 | 64 61 74 65 20 69 73 20 | second |date is |
|000000f0| 64 65 73 69 72 65 64 20 | 6d 6f 6e 74 68 2c 0d 20 |desired |month,. |
|00000100| 20 20 20 20 20 66 6f 72 | 20 65 78 61 6d 70 6c 65 | for| example|
|00000110| 20 42 69 6f 72 68 79 74 | 68 6d 2e 53 68 6f 77 20 | Biorhyt|hm.Show |
|00000120| 31 34 20 33 20 31 38 37 | 39 20 34 20 31 39 35 35 |14 3 187|9 4 1955|
|00000130| 20 2a 29 0d 0d 20 20 56 | 41 52 0d 20 20 20 20 49 | *).. V|AR. I|
|00000140| 3a 20 41 52 52 41 59 20 | 33 33 20 4f 46 20 49 4e |: ARRAY |33 OF IN|
|00000150| 54 45 47 45 52 3b 20 28 | 2a 69 6e 74 65 6c 6c 65 |TEGER; (|*intelle|
|00000160| 63 74 75 61 6c 20 63 79 | 63 6c 65 2a 29 20 0d 20 |ctual cy|cle*) . |
|00000170| 20 20 20 45 3a 20 41 52 | 52 41 59 20 32 38 20 4f | E: AR|RAY 28 O|
|00000180| 46 20 49 4e 54 45 47 45 | 52 3b 20 28 2a 65 6d 6f |F INTEGE|R; (*emo|
|00000190| 74 69 6f 6e 61 6c 20 63 | 79 63 6c 65 2a 29 0d 20 |tional c|ycle*). |
|000001a0| 20 20 20 50 3a 20 41 52 | 52 41 59 20 32 33 20 4f | P: AR|RAY 23 O|
|000001b0| 46 20 49 4e 54 45 47 45 | 52 3b 20 28 2a 70 68 79 |F INTEGE|R; (*phy|
|000001c0| 73 69 63 61 6c 20 63 79 | 63 6c 65 2a 29 20 0d 20 |sical cy|cle*) . |
|000001d0| 20 20 20 4d 3a 20 41 52 | 52 41 59 20 31 32 20 4f | M: AR|RAY 12 O|
|000001e0| 46 20 49 4e 54 45 47 45 | 52 3b 20 28 2a 61 63 63 |F INTEGE|R; (*acc|
|000001f0| 75 6d 75 6c 61 74 65 64 | 20 64 61 79 73 2a 29 0d |umulated| days*).|
|00000200| 0d 20 20 50 52 4f 43 45 | 44 55 52 45 20 4e 6f 66 |. PROCE|DURE Nof|
|00000210| 44 61 79 73 20 28 64 2c | 20 6d 2c 20 79 3a 20 4c |Days (d,| m, y: L|
|00000220| 4f 4e 47 49 4e 54 29 3a | 20 4c 4f 4e 47 49 4e 54 |ONGINT):| LONGINT|
|00000230| 3b 0d 20 20 42 45 47 49 | 4e 0d 20 20 20 20 49 46 |;. BEGI|N. IF|
|00000240| 20 79 20 3d 20 30 20 54 | 48 45 4e 20 52 45 54 55 | y = 0 T|HEN RETU|
|00000250| 52 4e 20 4d 5b 6d 2d 31 | 5d 20 2b 20 64 20 2d 20 |RN M[m-1|] + d - |
|00000260| 31 0d 20 20 20 20 45 4c | 53 45 0d 20 20 20 20 20 |1. EL|SE. |
|00000270| 20 49 46 20 28 79 20 4d | 4f 44 20 34 20 3d 20 30 | IF (y M|OD 4 = 0|
|00000280| 29 20 26 20 28 6d 20 3e | 20 32 29 20 54 48 45 4e |) & (m >| 2) THEN|
|00000290| 20 49 4e 43 28 64 29 20 | 45 4e 44 3b 0d 20 20 20 | INC(d) |END;. |
|000002a0| 20 20 20 52 45 54 55 52 | 4e 20 79 2a 33 36 35 20 | RETUR|N y*365 |
|000002b0| 2b 20 28 79 20 2d 20 31 | 29 20 44 49 56 20 34 20 |+ (y - 1|) DIV 4 |
|000002c0| 2b 20 4d 5b 6d 2d 31 5d | 20 2b 20 64 20 2d 20 31 |+ M[m-1]| + d - 1|
|000002d0| 0d 20 20 20 20 45 4e 44 | 0d 20 20 45 4e 44 20 4e |. END|. END N|
|000002e0| 6f 66 44 61 79 73 3b 0d | 0d 20 20 50 52 4f 43 45 |ofDays;.|. PROCE|
|000002f0| 44 55 52 45 20 53 68 6f | 77 2a 3b 0d 20 20 20 20 |DURE Sho|w*;. |
|00000300| 56 41 52 20 62 2c 20 63 | 2c 20 64 2c 20 6d 2c 20 |VAR b, c|, d, m, |
|00000310| 6e 3a 20 49 4e 54 45 47 | 45 52 3b 20 4e 3a 20 4c |n: INTEG|ER; N: L|
|00000320| 4f 4e 47 49 4e 54 3b 0d | 20 20 42 45 47 49 4e 0d |ONGINT;.| BEGIN.|
|00000330| 20 20 20 20 49 6e 2e 4f | 70 65 6e 3b 20 49 6e 2e | In.O|pen; In.|
|00000340| 49 6e 74 28 64 29 3b 20 | 49 6e 2e 49 6e 74 28 6d |Int(d); |In.Int(m|
|00000350| 29 3b 20 49 6e 2e 49 6e | 74 28 62 29 3b 20 49 6e |); In.In|t(b); In|
|00000360| 2e 49 6e 74 28 6e 29 3b | 20 49 6e 2e 49 6e 74 28 |.Int(n);| In.Int(|
|00000370| 63 29 3b 0d 20 20 20 20 | 4e 20 3a 3d 20 28 62 20 |c);. |N := (b |
|00000380| 44 49 56 20 31 30 30 20 | 2d 20 63 20 44 49 56 20 |DIV 100 |- c DIV |
|00000390| 31 30 30 29 2a 33 36 35 | 32 34 0d 20 20 20 20 20 |100)*365|24. |
|000003a0| 20 2b 20 4e 6f 66 44 61 | 79 73 28 31 2c 20 6e 2c | + NofDa|ys(1, n,|
|000003b0| 20 63 20 4d 4f 44 20 31 | 30 30 29 20 2d 20 4e 6f | c MOD 1|00) - No|
|000003c0| 66 44 61 79 73 28 64 2c | 20 6d 2c 20 62 20 4d 4f |fDays(d,| m, b MO|
|000003d0| 44 20 31 30 30 29 3b 0d | 20 20 20 20 64 20 3a 3d |D 100);.| d :=|
|000003e0| 20 31 3b 0d 20 20 20 20 | 52 45 50 45 41 54 0d 20 | 1;. |REPEAT. |
|000003f0| 20 20 20 20 20 4f 75 74 | 2e 53 74 72 69 6e 67 28 | Out|.String(|
|00000400| 22 64 61 79 20 3d 20 22 | 29 3b 20 4f 75 74 2e 49 |"day = "|); Out.I|
|00000410| 6e 74 28 64 2c 20 31 29 | 3b 0d 20 20 20 20 20 20 |nt(d, 1)|;. |
|00000420| 4f 75 74 2e 53 74 72 69 | 6e 67 28 22 20 20 20 49 |Out.Stri|ng(" I|
|00000430| 20 3d 20 22 29 3b 20 4f | 75 74 2e 49 6e 74 28 49 | = "); O|ut.Int(I|
|00000440| 5b 4e 20 4d 4f 44 20 33 | 33 5d 2c 20 31 29 3b 0d |[N MOD 3|3], 1);.|
|00000450| 20 20 20 20 20 20 4f 75 | 74 2e 53 74 72 69 6e 67 | Ou|t.String|
|00000460| 28 22 20 20 20 45 20 3d | 20 22 20 29 3b 20 4f 75 |(" E =| " ); Ou|
|00000470| 74 2e 49 6e 74 28 45 5b | 4e 20 4d 4f 44 20 32 38 |t.Int(E[|N MOD 28|
|00000480| 5d 2c 20 31 29 3b 0d 20 | 20 20 20 20 20 4f 75 74 |], 1);. | Out|
|00000490| 2e 53 74 72 69 6e 67 28 | 22 20 20 20 50 20 3d 20 |.String(|" P = |
|000004a0| 22 29 3b 20 4f 75 74 2e | 49 6e 74 28 50 5b 4e 20 |"); Out.|Int(P[N |
|000004b0| 4d 4f 44 20 32 33 5d 2c | 20 31 29 3b 0d 20 20 20 |MOD 23],| 1);. |
|000004c0| 20 20 20 4f 75 74 2e 4c | 6e 3b 0d 20 20 20 20 20 | Out.L|n;. |
|000004d0| 20 49 4e 43 28 64 29 3b | 20 49 4e 43 28 4e 29 0d | INC(d);| INC(N).|
|000004e0| 20 20 20 20 55 4e 54 49 | 4c 20 64 20 3d 20 33 32 | UNTI|L d = 32|
|000004f0| 3b 0d 20 20 20 20 4f 75 | 74 2e 4c 6e 0d 20 20 45 |;. Ou|t.Ln. E|
|00000500| 4e 44 20 53 68 6f 77 3b | 0d 0d 42 45 47 49 4e 0d |ND Show;|..BEGIN.|
|00000510| 20 20 4d 5b 30 5d 20 3a | 3d 20 30 3b 20 4d 5b 31 | M[0] :|= 0; M[1|
|00000520| 5d 20 3a 3d 20 33 31 3b | 20 4d 5b 32 5d 20 3a 3d |] := 31;| M[2] :=|
|00000530| 20 35 39 3b 20 4d 5b 33 | 5d 20 3a 3d 20 39 30 3b | 59; M[3|] := 90;|
|00000540| 20 4d 5b 34 5d 20 3a 3d | 20 31 32 30 3b 0d 20 20 | M[4] :=| 120;. |
|00000550| 4d 5b 35 5d 20 3a 3d 20 | 31 35 31 3b 20 4d 5b 36 |M[5] := |151; M[6|
|00000560| 5d 20 3a 3d 20 31 38 31 | 3b 20 4d 5b 37 5d 20 3a |] := 181|; M[7] :|
|00000570| 3d 20 32 31 32 3b 20 4d | 5b 38 5d 20 3a 3d 20 32 |= 212; M|[8] := 2|
|00000580| 34 33 3b 20 4d 5b 39 5d | 20 3a 3d 20 32 37 33 3b |43; M[9]| := 273;|
|00000590| 0d 20 20 4d 5b 31 30 5d | 20 3a 3d 20 33 30 34 3b |. M[10]| := 304;|
|000005a0| 20 4d 5b 31 31 5d 20 3a | 3d 20 33 33 34 3b 0d 0d | M[11] :|= 334;..|
|000005b0| 20 20 49 5b 30 5d 20 3a | 3d 20 30 3b 20 49 5b 31 | I[0] :|= 0; I[1|
|000005c0| 5d 20 3a 3d 20 31 39 3b | 20 49 5b 32 5d 20 3a 3d |] := 19;| I[2] :=|
|000005d0| 20 33 37 3b 20 49 5b 33 | 5d 20 3a 3d 20 35 34 3b | 37; I[3|] := 54;|
|000005e0| 20 49 5b 34 5d 20 3a 3d | 20 36 39 3b 0d 20 20 49 | I[4] :=| 69;. I|
|000005f0| 5b 35 5d 20 3a 3d 20 38 | 31 3b 20 49 5b 36 5d 20 |[5] := 8|1; I[6] |
|00000600| 3a 3d 20 39 31 3b 20 49 | 5b 37 5d 20 3a 3d 20 39 |:= 91; I|[7] := 9|
|00000610| 37 3b 20 49 5b 38 5d 20 | 3a 3d 20 31 30 30 3b 20 |7; I[8] |:= 100; |
|00000620| 49 5b 39 5d 20 3a 3d 20 | 39 39 3b 0d 20 20 49 5b |I[9] := |99;. I[|
|00000630| 31 30 5d 20 3a 3d 20 39 | 35 3b 20 49 5b 31 31 5d |10] := 9|5; I[11]|
|00000640| 20 3a 3d 20 38 37 3b 20 | 49 5b 31 32 5d 20 3a 3d | := 87; |I[12] :=|
|00000650| 20 37 36 3b 20 49 5b 31 | 33 5d 20 3a 3d 20 36 32 | 76; I[1|3] := 62|
|00000660| 3b 20 49 5b 31 34 5d 20 | 3a 3d 20 34 36 3b 0d 20 |; I[14] |:= 46;. |
|00000670| 20 49 5b 31 35 5d 20 3a | 3d 20 32 38 3b 20 49 5b | I[15] :|= 28; I[|
|00000680| 31 36 5d 20 3a 3d 20 31 | 30 3b 20 49 5b 31 37 5d |16] := 1|0; I[17]|
|00000690| 20 3a 3d 20 2d 31 30 3b | 20 49 5b 31 38 5d 20 3a | := -10;| I[18] :|
|000006a0| 3d 20 2d 32 38 3b 20 49 | 5b 31 39 5d 20 3a 3d 20 |= -28; I|[19] := |
|000006b0| 2d 34 36 3b 0d 20 20 49 | 5b 32 30 5d 20 3a 3d 20 |-46;. I|[20] := |
|000006c0| 2d 36 32 3b 20 49 5b 32 | 31 5d 20 3a 3d 20 2d 37 |-62; I[2|1] := -7|
|000006d0| 36 3b 20 49 5b 32 32 5d | 20 3a 3d 20 2d 38 37 3b |6; I[22]| := -87;|
|000006e0| 20 49 5b 32 33 5d 20 3a | 3d 20 2d 39 34 3b 20 49 | I[23] :|= -94; I|
|000006f0| 5b 32 34 5d 20 3a 3d 20 | 2d 39 39 3b 0d 20 20 49 |[24] := |-99;. I|
|00000700| 5b 32 35 5d 20 3a 3d 20 | 2d 31 30 30 3b 20 49 5b |[25] := |-100; I[|
|00000710| 32 36 5d 20 3a 3d 20 2d | 39 37 3b 20 49 5b 32 37 |26] := -|97; I[27|
|00000720| 5d 20 3a 3d 20 2d 39 31 | 3b 20 49 5b 32 38 5d 20 |] := -91|; I[28] |
|00000730| 3a 3d 20 2d 38 31 3b 20 | 49 5b 32 39 5d 20 3a 3d |:= -81; |I[29] :=|
|00000740| 20 2d 36 39 3b 0d 20 20 | 49 5b 33 30 5d 20 3a 3d | -69;. |I[30] :=|
|00000750| 20 2d 35 34 3b 20 49 5b | 33 31 5d 20 3a 3d 20 2d | -54; I[|31] := -|
|00000760| 33 37 3b 20 49 5b 33 32 | 5d 20 3a 3d 20 2d 31 39 |37; I[32|] := -19|
|00000770| 3b 0d 0d 20 20 45 5b 30 | 5d 20 3a 3d 20 30 3b 20 |;.. E[0|] := 0; |
|00000780| 45 5b 31 5d 20 3a 3d 20 | 32 32 3b 20 45 5b 32 5d |E[1] := |22; E[2]|
|00000790| 20 3a 3d 20 34 33 3b 20 | 45 5b 33 5d 20 3a 3d 20 | := 43; |E[3] := |
|000007a0| 36 32 3b 20 45 5b 34 5d | 20 3a 3d 20 37 38 3b 0d |62; E[4]| := 78;.|
|000007b0| 20 20 45 5b 35 5d 20 3a | 3d 20 39 30 3b 20 45 5b | E[5] :|= 90; E[|
|000007c0| 36 5d 20 3a 3d 20 39 37 | 3b 20 45 5b 37 5d 20 3a |6] := 97|; E[7] :|
|000007d0| 3d 20 31 30 30 3b 20 45 | 5b 38 5d 20 3a 3d 20 39 |= 100; E|[8] := 9|
|000007e0| 37 3b 20 45 5b 39 5d 20 | 3a 3d 20 39 30 3b 0d 20 |7; E[9] |:= 90;. |
|000007f0| 20 45 5b 31 30 5d 20 3a | 3d 20 37 38 3b 20 45 5b | E[10] :|= 78; E[|
|00000800| 31 31 5d 20 3a 3d 20 36 | 32 3b 20 45 5b 31 32 5d |11] := 6|2; E[12]|
|00000810| 20 3a 3d 20 34 33 3b 20 | 45 5b 31 33 5d 20 3a 3d | := 43; |E[13] :=|
|00000820| 20 32 32 3b 20 45 5b 31 | 34 5d 20 3a 3d 20 30 3b | 22; E[1|4] := 0;|
|00000830| 0d 20 20 45 5b 31 35 5d | 20 3a 3d 20 2d 32 32 3b |. E[15]| := -22;|
|00000840| 20 45 5b 31 36 5d 20 3a | 3d 20 2d 34 33 3b 20 45 | E[16] :|= -43; E|
|00000850| 5b 31 37 5d 20 3a 3d 20 | 2d 36 32 3b 20 45 5b 31 |[17] := |-62; E[1|
|00000860| 38 5d 20 3a 3d 20 2d 37 | 38 3b 20 45 5b 31 39 5d |8] := -7|8; E[19]|
|00000870| 20 3a 3d 20 2d 39 30 3b | 0d 20 20 45 5b 32 30 5d | := -90;|. E[20]|
|00000880| 20 3a 3d 20 2d 39 37 3b | 20 45 5b 32 31 5d 20 3a | := -97;| E[21] :|
|00000890| 3d 20 2d 31 30 30 3b 20 | 45 5b 32 32 5d 20 3a 3d |= -100; |E[22] :=|
|000008a0| 20 2d 39 37 3b 20 45 5b | 32 33 5d 20 3a 3d 20 2d | -97; E[|23] := -|
|000008b0| 39 30 3b 20 45 5b 32 34 | 5d 20 3a 3d 20 2d 37 38 |90; E[24|] := -78|
|000008c0| 3b 0d 20 20 45 5b 32 35 | 5d 20 3a 3d 20 2d 36 32 |;. E[25|] := -62|
|000008d0| 3b 20 45 5b 32 36 5d 20 | 3a 3d 20 2d 34 33 3b 20 |; E[26] |:= -43; |
|000008e0| 45 5b 32 37 5d 20 3a 3d | 20 2d 32 32 3b 0d 0d 20 |E[27] :=| -22;.. |
|000008f0| 20 50 5b 30 5d 20 3a 3d | 20 30 3b 20 50 5b 31 5d | P[0] :=| 0; P[1]|
|00000900| 20 3a 3d 20 32 37 3b 20 | 50 5b 32 5d 20 3a 3d 20 | := 27; |P[2] := |
|00000910| 35 32 3b 20 50 5b 33 5d | 20 3a 3d 20 37 33 3b 20 |52; P[3]| := 73; |
|00000920| 50 5b 34 5d 20 3a 3d 20 | 38 39 3b 0d 20 20 50 5b |P[4] := |89;. P[|
|00000930| 35 5d 20 3a 3d 20 39 38 | 3b 20 50 5b 36 5d 20 3a |5] := 98|; P[6] :|
|00000940| 3d 20 31 30 30 3b 20 50 | 5b 37 5d 20 3a 3d 20 39 |= 100; P|[7] := 9|
|00000950| 34 3b 20 50 5b 38 5d 20 | 3a 3d 20 38 32 3b 20 50 |4; P[8] |:= 82; P|
|00000960| 5b 39 5d 20 3a 3d 20 36 | 33 3b 0d 20 20 50 5b 31 |[9] := 6|3;. P[1|
|00000970| 30 5d 20 3a 3d 20 34 30 | 3b 20 50 5b 31 31 5d 20 |0] := 40|; P[11] |
|00000980| 3a 3d 20 31 34 3b 20 50 | 5b 31 32 5d 20 3a 3d 20 |:= 14; P|[12] := |
|00000990| 2d 31 34 3b 20 50 5b 31 | 33 5d 20 3a 3d 20 2d 34 |-14; P[1|3] := -4|
|000009a0| 30 3b 20 50 5b 31 34 5d | 20 3a 3d 20 2d 36 33 3b |0; P[14]| := -63;|
|000009b0| 0d 20 20 50 5b 31 35 5d | 20 3a 3d 20 2d 38 32 3b |. P[15]| := -82;|
|000009c0| 20 50 5b 31 36 5d 20 3a | 3d 20 2d 39 34 3b 20 50 | P[16] :|= -94; P|
|000009d0| 5b 31 37 5d 20 3a 3d 20 | 2d 31 30 30 3b 20 50 5b |[17] := |-100; P[|
|000009e0| 31 38 5d 20 3a 3d 20 2d | 39 38 3b 20 50 5b 31 39 |18] := -|98; P[19|
|000009f0| 5d 20 3a 3d 20 2d 38 39 | 3b 0d 20 20 50 5b 32 30 |] := -89|;. P[20|
|00000a00| 5d 20 3a 3d 20 2d 37 33 | 3b 20 50 5b 32 31 5d 20 |] := -73|; P[21] |
|00000a10| 3a 3d 20 2d 35 32 3b 20 | 50 5b 32 32 5d 20 3a 3d |:= -52; |P[22] :=|
|00000a20| 20 2d 32 37 0d 45 4e 44 | 20 42 69 6f 72 68 79 74 | -27.END| Biorhyt|
|00000a30| 68 6d 2e 0d 0d | |hm... | |
+--------+-------------------------+-------------------------+--------+--------+