| / Programmer 7500
/ MAX_PROGRAMMERS.iso / CLIPPER / MISC / OBERON20.ZIP / SYSTEM.EXE / RANDOMNU.MOD
| < prev | next > |
| Unknown | 1993-03-22 | 668 b |
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text| 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: 'oBRandomNumbers.Mod' | default (weak) |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 52 61 6e 64 6f 6d | 4e 75 6d 62 65 72 73 2e |oBRandom|Numbers.|
|00000010| 4d 6f 64 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Mod.....|........|
|00000020| 00 00 01 f0 6d 00 00 00 | 01 53 79 6e 74 61 78 31 |....m...|.Syntax1|
|00000030| 30 2e 53 63 6e 2e 46 6e | 74 00 0f 00 07 00 00 00 |0.Scn.Fn|t.......|
|00000040| 02 53 79 6e 74 61 78 31 | 30 62 2e 53 63 6e 2e 46 |.Syntax1|0b.Scn.F|
|00000050| 6e 74 00 0f 00 0d 00 00 | 00 01 0f 00 54 00 00 00 |nt......|....T...|
|00000060| 02 0f 00 07 00 00 00 01 | 0f 00 d4 00 00 00 02 0f |........|........|
|00000070| 00 03 00 00 00 01 0f 00 | 4c 00 00 00 02 0f 00 08 |........|L.......|
|00000080| 00 00 00 01 0f 00 73 00 | 00 00 00 0d 02 00 00 4d |......s.|.......M|
|00000090| 4f 44 55 4c 45 20 52 61 | 6e 64 6f 6d 4e 75 6d 62 |ODULE Ra|ndomNumb|
|000000a0| 65 72 73 3b 20 20 0d 28 | 2a 20 52 61 6e 64 6f 6d |ers; .(|* Random|
|000000b0| 20 4e 75 6d 62 65 72 20 | 47 65 6e 65 72 61 74 6f | Number |Generato|
|000000c0| 72 2c 20 70 61 67 65 20 | 31 32 20 2a 29 0d 49 4d |r, page |12 *).IM|
|000000d0| 50 4f 52 54 20 4d 61 74 | 68 3b 0d 0d 56 41 52 20 |PORT Mat|h;..VAR |
|000000e0| 5a 3a 20 4c 4f 4e 47 49 | 4e 54 3b 0d 0d 50 52 4f |Z: LONGI|NT;..PRO|
|000000f0| 43 45 44 55 52 45 20 55 | 6e 69 66 6f 72 6d 2a 28 |CEDURE U|niform*(|
|00000100| 29 3a 20 52 45 41 4c 3b | 0d 43 4f 4e 53 54 0d 61 |): REAL;|.CONST.a|
|00000110| 20 3d 20 31 36 38 30 37 | 3b 09 6d 20 3d 20 32 31 | = 16807|;.m = 21|
|00000120| 34 37 34 38 33 36 34 37 | 3b 20 09 0d 71 20 3d 20 |47483647|; ..q = |
|00000130| 6d 20 44 49 56 20 61 3b | 09 72 20 3d 20 6d 20 4d |m DIV a;|.r = m M|
|00000140| 4f 44 20 61 3b 0d 56 41 | 52 20 67 3a 20 4c 4f 4e |OD a;.VA|R g: LON|
|00000150| 47 49 4e 54 3b 0d 42 45 | 47 49 4e 0d 09 67 20 3a |GINT;.BE|GIN..g :|
|00000160| 3d 20 61 2a 28 5a 20 4d | 4f 44 20 71 29 20 2d 20 |= a*(Z M|OD q) - |
|00000170| 72 2a 28 5a 20 44 49 56 | 20 71 29 3b 0d 09 49 46 |r*(Z DIV| q);..IF|
|00000180| 20 67 20 3e 20 30 20 54 | 48 45 4e 20 5a 20 3a 3d | g > 0 T|HEN Z :=|
|00000190| 20 67 20 45 4c 53 45 20 | 5a 20 3a 3d 20 67 20 2b | g ELSE |Z := g +|
|000001a0| 20 6d 20 45 4e 44 3b 0d | 09 52 45 54 55 52 4e 20 | m END;.|.RETURN |
|000001b0| 5a 2a 28 31 2e 30 2f 6d | 29 0d 45 4e 44 20 55 6e |Z*(1.0/m|).END Un|
|000001c0| 69 66 6f 72 6d 3b 0d 0d | 50 52 4f 43 45 44 55 52 |iform;..|PROCEDUR|
|000001d0| 45 20 45 78 70 2a 28 6d | 75 3a 20 52 45 41 4c 29 |E Exp*(m|u: REAL)|
|000001e0| 3a 20 52 45 41 4c 3b 0d | 42 45 47 49 4e 0d 09 52 |: REAL;.|BEGIN..R|
|000001f0| 45 54 55 52 4e 20 2d 4d | 61 74 68 2e 6c 6e 28 55 |ETURN -M|ath.ln(U|
|00000200| 6e 69 66 6f 72 6d 28 29 | 29 2f 6d 75 0d 45 4e 44 |niform()|)/mu.END|
|00000210| 20 45 78 70 3b 0d 0d 50 | 52 4f 43 45 44 55 52 45 | Exp;..P|ROCEDURE|
|00000220| 20 49 6e 69 74 53 65 65 | 64 2a 28 73 65 65 64 3a | InitSee|d*(seed:|
|00000230| 20 4c 4f 4e 47 49 4e 54 | 29 3b 0d 42 45 47 49 4e | LONGINT|);.BEGIN|
|00000240| 0d 09 5a 20 3a 3d 20 73 | 65 65 64 0d 45 4e 44 20 |..Z := s|eed.END |
|00000250| 49 6e 69 74 53 65 65 64 | 3b 0d 0d 42 45 47 49 4e |InitSeed|;..BEGIN|
|00000260| 0d 09 5a 20 3a 3d 20 31 | 3b 0d 45 4e 44 20 52 61 |..Z := 1|;.END Ra|
|00000270| 6e 64 6f 6d 4e 75 6d 62 | 65 72 73 2e 09 28 2a 20 |ndomNumb|ers..(* |
|00000280| 43 6f 70 79 72 69 67 68 | 74 20 4d 2e 20 52 65 69 |Copyrigh|t M. Rei|
|00000290| 73 65 72 2c 20 31 39 39 | 32 20 2a 29 |ser, 199|2 *) |
+--------+-------------------------+-------------------------+--------+--------+