Programmer 7500

home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / OBERON20.ZIP / SYSTEM.EXE / IFS.MOD < prev next >
Unknown | 1993-03-22 | 2.3 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: 'oBIFS.Mod'	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 49 46 53 2e 4d 6f | 64 00 00 00 00 00 00 00 |oBIFS.Mo|d.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 08 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 03 00 00 | 00 01 0f 00 5f 02 00 00 |nt......|...._...|
|00000060| 02 0f 00 04 00 00 00 01 | 0f 00 ba 02 00 00 02 0f |........|........|
|00000070| 00 03 00 00 00 01 0f 00 | d4 02 00 00 02 0f 00 03 |........|........|
|00000080| 00 00 00 01 0f 00 9c 00 | 00 00 00 9e 08 00 00 4d |........|.......M|
|00000090| 4f 44 55 4c 45 20 20 49 | 46 53 3b 0d 28 2a 20 49 |ODULE  I|FS;.(* I|
|000000a0| 74 65 72 61 74 65 64 20 | 46 75 6e 63 74 69 6f 6e |terated |Function|
|000000b0| 20 53 79 73 74 65 6d 2c | 20 70 61 67 65 20 39 32 | System,| page 92|
|000000c0| 20 2a 29 0d 49 4d 50 4f | 52 54 20 20 52 61 6e 64 | *).IMPO|RT  Rand|
|000000d0| 6f 6d 4e 75 6d 62 65 72 | 73 2c 20 49 6e 2c 20 4f |omNumber|s, In, O|
|000000e0| 75 74 2c 20 58 59 70 6c | 61 6e 65 3b 0d 0d 56 41 |ut, XYpl|ane;..VA|
|000000f0| 52 0d 09 61 31 2c 20 62 | 31 2c 20 63 31 2c 20 64 |R..a1, b|1, c1, d|
|00000100| 31 2c 20 65 31 2c 20 66 | 31 2c 20 70 31 3a 20 52 |1, e1, f|1, p1: R|
|00000110| 45 41 4c 3b 20 20 20 28 | 2a 20 49 46 53 20 70 61 |EAL;   (|* IFS pa|
|00000120| 72 61 6d 65 74 65 72 73 | 20 2a 29 0d 09 61 32 2c |rameters| *)..a2,|
|00000130| 20 62 32 2c 20 63 32 2c | 20 64 32 2c 20 65 32 2c | b2, c2,| d2, e2,|
|00000140| 20 66 32 2c 20 70 32 3a | 20 52 45 41 4c 3b 20 20 | f2, p2:| REAL;  |
|00000150| 20 28 2a 20 49 46 53 20 | 70 61 72 61 6d 65 74 65 | (* IFS |paramete|
|00000160| 72 73 20 2a 29 0d 09 61 | 33 2c 20 62 33 2c 20 63 |rs *)..a|3, b3, c|
|00000170| 33 2c 20 64 33 2c 20 65 | 33 2c 20 66 33 2c 20 70 |3, d3, e|3, f3, p|
|00000180| 33 3a 20 52 45 41 4c 3b | 20 20 20 28 2a 20 49 46 |3: REAL;|   (* IF|
|00000190| 53 20 70 61 72 61 6d 65 | 74 65 72 73 20 2a 29 0d |S parame|ters *).|
|000001a0| 09 61 34 2c 20 62 34 2c | 20 63 34 2c 20 64 34 2c |.a4, b4,| c4, d4,|
|000001b0| 20 65 34 2c 20 66 34 2c | 20 70 34 3a 20 52 45 41 | e4, f4,| p4: REA|
|000001c0| 4c 3b 20 20 20 28 2a 20 | 49 46 53 20 70 61 72 61 |L;   (* |IFS para|
|000001d0| 6d 65 74 65 72 73 20 2a | 29 0d 09 58 2c 20 59 3a |meters *|)..X, Y:|
|000001e0| 20 52 45 41 4c 3b 09 09 | 28 2a 20 74 68 65 20 70 | REAL;..|(* the p|
|000001f0| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 70 |osition |of the p|
|00000200| 65 6e 20 2a 29 0d 09 78 | 30 3a 20 49 4e 54 45 47 |en *)..x|0: INTEG|
|00000210| 45 52 3b 09 28 2a 20 44 | 69 73 74 61 6e 63 65 20 |ER;.(* D|istance |
|00000220| 6f 66 20 6f 72 69 67 69 | 6e 20 66 6d 20 6c 65 66 |of origi|n fm lef|
|00000230| 74 20 65 64 67 65 5b 70 | 69 78 65 6c 73 5d 20 2a |t edge[p|ixels] *|
|00000240| 29 0d 09 79 30 3a 20 49 | 4e 54 45 47 45 52 3b 09 |)..y0: I|NTEGER;.|
|00000250| 28 2a 20 44 69 73 74 61 | 6e 63 65 20 6f 66 20 6f |(* Dista|nce of o|
|00000260| 72 69 67 69 6e 20 66 72 | 6f 6d 20 62 6f 74 74 6f |rigin fr|om botto|
|00000270| 6d 20 65 64 67 65 5b 70 | 69 78 65 6c 73 5d 20 2a |m edge[p|ixels] *|
|00000280| 29 0d 09 65 3a 20 49 4e | 54 45 47 45 52 3b 09 28 |)..e: IN|TEGER;.(|
|00000290| 2a 20 53 69 7a 65 20 6f | 66 20 75 6e 69 74 20 69 |* Size o|f unit i|
|000002a0| 6e 74 65 72 76 61 6c 20 | 5b 70 69 78 65 6c 73 5d |nterval |[pixels]|
|000002b0| 20 2a 29 0d 09 69 6e 69 | 74 69 61 6c 69 7a 65 64 | *)..ini|tialized|
|000002c0| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 09 28 2a 20 41 72 |: BOOLEA|N;.(* Ar|
|000002d0| 65 20 70 61 72 61 6d 65 | 74 65 72 73 20 69 6e 69 |e parame|ters ini|
|000002e0| 74 69 61 6c 69 7a 65 64 | 3f 20 2a 29 0d 0d 50 52 |tialized|? *)..PR|
|000002f0| 4f 43 45 44 55 52 45 20 | 20 44 72 61 77 2a 3b 09 |OCEDURE | Draw*;.|
|00000300| 28 2a 20 63 6f 6d 6d 61 | 6e 64 20 6d 61 72 6b 65 |(* comma|nd marke|
|00000310| 64 20 66 6f 72 20 65 78 | 70 6f 72 74 20 2a 29 0d |d for ex|port *).|
|00000320| 56 41 52 0d 09 78 2c 20 | 79 3a 20 52 45 41 4c 3b |VAR..x, |y: REAL;|
|00000330| 20 09 09 09 09 28 2a 20 | 6e 65 77 20 70 6f 73 69 | ....(* |new posi|
|00000340| 74 69 6f 6e 20 2a 29 0d | 09 78 69 2c 20 65 74 61 |tion *).|.xi, eta|
|00000350| 3a 20 49 4e 54 45 47 45 | 52 3b 09 20 20 20 28 2a |: INTEGE|R;.   (*|
|00000360| 20 70 69 78 65 6c 20 63 | 6f 6f 72 64 69 6e 61 74 | pixel c|oordinat|
|00000370| 65 73 20 6f 66 20 70 65 | 6e 20 2a 29 0d 09 72 6e |es of pe|n *)..rn|
|00000380| 3a 20 52 45 41 4c 3b 0d | 42 45 47 49 4e 0d 49 46 |: REAL;.|BEGIN.IF|
|00000390| 20 69 6e 69 74 69 61 6c | 69 7a 65 64 20 54 48 45 | initial|ized THE|
|000003a0| 4e 0d 09 52 45 50 45 41 | 54 0d 09 09 72 6e 20 3a |N..REPEA|T...rn :|
|000003b0| 3d 20 52 61 6e 64 6f 6d | 4e 75 6d 62 65 72 73 2e |= Random|Numbers.|
|000003c0| 55 6e 69 66 6f 72 6d 28 | 29 3b 0d 09 09 49 46 20 |Uniform(|);...IF |
|000003d0| 72 6e 20 3c 20 70 31 20 | 54 48 45 4e 0d 09 09 09 |rn < p1 |THEN....|
|000003e0| 78 20 3a 3d 20 61 31 20 | 2a 20 58 20 2b 20 62 31 |x := a1 |* X + b1|
|000003f0| 20 2a 20 59 20 2b 20 65 | 31 3b 09 79 20 3a 3d 20 | * Y + e|1;.y := |
|00000400| 63 31 20 2a 20 58 20 2b | 20 64 31 20 2a 20 59 20 |c1 * X +| d1 * Y |
|00000410| 2b 20 66 31 0d 09 09 45 | 4c 53 49 46 20 72 6e 20 |+ f1...E|LSIF rn |
|00000420| 3c 20 28 70 31 20 2b 20 | 70 32 29 20 54 48 45 4e |< (p1 + |p2) THEN|
|00000430| 0d 09 09 09 78 20 3a 3d | 20 61 32 20 2a 20 58 20 |....x :=| a2 * X |
|00000440| 2b 20 62 32 20 2a 20 59 | 20 2b 20 65 32 3b 09 79 |+ b2 * Y| + e2;.y|
|00000450| 20 3a 3d 20 63 32 20 2a | 20 58 20 2b 20 64 32 20 | := c2 *| X + d2 |
|00000460| 2a 20 59 20 2b 20 66 32 | 0d 09 09 45 4c 53 49 46 |* Y + f2|...ELSIF|
|00000470| 20 72 6e 20 3c 20 28 70 | 31 20 2b 20 70 32 20 2b | rn < (p|1 + p2 +|
|00000480| 20 70 33 29 20 54 48 45 | 4e 0d 09 09 09 78 20 3a | p3) THE|N....x :|
|00000490| 3d 20 61 33 20 2a 20 58 | 20 2b 20 62 33 20 2a 20 |= a3 * X| + b3 * |
|000004a0| 59 20 2b 20 65 33 3b 09 | 79 20 3a 3d 20 63 33 20 |Y + e3;.|y := c3 |
|000004b0| 2a 20 58 20 2b 20 64 33 | 20 2a 20 59 20 2b 20 66 |* X + d3| * Y + f|
|000004c0| 33 0d 09 09 45 4c 53 45 | 0d 09 09 09 78 20 3a 3d |3...ELSE|....x :=|
|000004d0| 20 61 34 20 2a 20 58 20 | 2b 20 62 34 20 2a 20 59 | a4 * X |+ b4 * Y|
|000004e0| 20 2b 20 65 34 3b 09 79 | 20 3a 3d 20 63 34 20 2a | + e4;.y| := c4 *|
|000004f0| 20 58 20 2b 20 64 34 20 | 2a 20 59 20 2b 20 66 34 | X + d4 |* Y + f4|
|00000500| 0d 09 09 45 4e 44 3b 0d | 09 09 58 20 3a 3d 20 78 |...END;.|..X := x|
|00000510| 3b 20 20 78 69 20 3a 3d | 20 78 30 20 2b 20 53 48 |;  xi :=| x0 + SH|
|00000520| 4f 52 54 28 45 4e 54 49 | 45 52 28 58 2a 65 29 29 |ORT(ENTI|ER(X*e))|
|00000530| 3b 0d 09 09 59 20 3a 3d | 20 79 3b 20 20 65 74 61 |;...Y :=| y;  eta|
|00000540| 20 3a 3d 20 79 30 20 2b | 20 53 48 4f 52 54 28 45 | := y0 +| SHORT(E|
|00000550| 4e 54 49 45 52 28 59 2a | 65 29 29 3b 0d 09 09 58 |NTIER(Y*|e));...X|
|00000560| 59 70 6c 61 6e 65 2e 44 | 6f 74 28 78 69 2c 20 65 |Yplane.D|ot(xi, e|
|00000570| 74 61 2c 20 58 59 70 6c | 61 6e 65 2e 64 72 61 77 |ta, XYpl|ane.draw|
|00000580| 29 0d 09 55 4e 54 49 4c | 20 20 22 73 22 20 3d 20 |)..UNTIL|  "s" = |
|00000590| 58 59 70 6c 61 6e 65 2e | 4b 65 79 28 29 0d 45 4e |XYplane.|Key().EN|
|000005a0| 44 0d 45 4e 44 20 44 72 | 61 77 3b 0d 0d 50 52 4f |D.END Dr|aw;..PRO|
|000005b0| 43 45 44 55 52 45 20 49 | 6e 69 74 2a 3b 09 28 2a |CEDURE I|nit*;.(*|
|000005c0| 20 63 6f 6d 6d 61 6e 64 | 20 6d 61 72 6b 65 64 20 | command| marked |
|000005d0| 66 6f 72 20 65 78 70 6f | 72 74 20 2a 29 0d 42 45 |for expo|rt *).BE|
|000005e0| 47 49 4e 0d 09 58 20 3a | 3d 20 30 3b 20 20 20 59 |GIN..X :|= 0;   Y|
|000005f0| 20 3a 3d 20 30 3b 09 09 | 28 2a 20 49 6e 69 74 69 | := 0;..|(* Initi|
|00000600| 61 6c 20 70 6f 73 69 74 | 69 6f 6e 20 6f 66 20 70 |al posit|ion of p|
|00000610| 65 6e 20 2a 29 0d 09 69 | 6e 69 74 69 61 6c 69 7a |en *)..i|nitializ|
|00000620| 65 64 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 49 6e |ed := FA|LSE;..In|
|00000630| 2e 4f 70 65 6e 3b 0d 09 | 49 6e 2e 49 6e 74 28 78 |.Open;..|In.Int(x|
|00000640| 30 29 3b 09 09 49 6e 2e | 49 6e 74 28 79 30 29 3b |0);..In.|Int(y0);|
|00000650| 09 09 49 6e 2e 49 6e 74 | 28 65 29 3b 20 09 0d 09 |..In.Int|(e); ...|
|00000660| 49 6e 2e 52 65 61 6c 28 | 61 31 29 3b 09 49 6e 2e |In.Real(|a1);.In.|
|00000670| 52 65 61 6c 28 61 32 29 | 3b 20 09 49 6e 2e 52 65 |Real(a2)|; .In.Re|
|00000680| 61 6c 28 61 33 29 3b 09 | 49 6e 2e 52 65 61 6c 28 |al(a3);.|In.Real(|
|00000690| 61 34 29 3b 0d 09 49 6e | 2e 52 65 61 6c 28 62 31 |a4);..In|.Real(b1|
|000006a0| 29 3b 09 49 6e 2e 52 65 | 61 6c 28 62 32 29 3b 09 |);.In.Re|al(b2);.|
|000006b0| 49 6e 2e 52 65 61 6c 28 | 62 33 29 3b 09 49 6e 2e |In.Real(|b3);.In.|
|000006c0| 52 65 61 6c 28 62 34 29 | 3b 0d 09 49 6e 2e 52 65 |Real(b4)|;..In.Re|
|000006d0| 61 6c 28 63 31 29 3b 09 | 49 6e 2e 52 65 61 6c 28 |al(c1);.|In.Real(|
|000006e0| 63 32 29 3b 09 49 6e 2e | 52 65 61 6c 28 63 33 29 |c2);.In.|Real(c3)|
|000006f0| 3b 09 49 6e 2e 52 65 61 | 6c 28 63 34 29 3b 0d 09 |;.In.Rea|l(c4);..|
|00000700| 49 6e 2e 52 65 61 6c 28 | 64 31 29 3b 09 49 6e 2e |In.Real(|d1);.In.|
|00000710| 52 65 61 6c 28 64 32 29 | 3b 09 49 6e 2e 52 65 61 |Real(d2)|;.In.Rea|
|00000720| 6c 28 64 33 29 3b 09 49 | 6e 2e 52 65 61 6c 28 64 |l(d3);.I|n.Real(d|
|00000730| 34 29 3b 0d 09 49 6e 2e | 52 65 61 6c 28 65 31 29 |4);..In.|Real(e1)|
|00000740| 3b 09 49 6e 2e 52 65 61 | 6c 28 65 32 29 3b 09 49 |;.In.Rea|l(e2);.I|
|00000750| 6e 2e 52 65 61 6c 28 65 | 33 29 3b 09 49 6e 2e 52 |n.Real(e|3);.In.R|
|00000760| 65 61 6c 28 65 34 29 3b | 0d 09 49 6e 2e 52 65 61 |eal(e4);|..In.Rea|
|00000770| 6c 28 66 31 29 3b 09 49 | 6e 2e 52 65 61 6c 28 66 |l(f1);.I|n.Real(f|
|00000780| 32 29 3b 09 49 6e 2e 52 | 65 61 6c 28 66 33 29 3b |2);.In.R|eal(f3);|
|00000790| 09 49 6e 2e 52 65 61 6c | 28 66 34 29 3b 0d 09 49 |.In.Real|(f4);..I|
|000007a0| 6e 2e 52 65 61 6c 28 70 | 31 29 3b 09 49 6e 2e 52 |n.Real(p|1);.In.R|
|000007b0| 65 61 6c 28 70 32 29 3b | 09 49 6e 2e 52 65 61 6c |eal(p2);|.In.Real|
|000007c0| 28 70 33 29 3b 09 49 6e | 2e 52 65 61 6c 28 70 34 |(p3);.In|.Real(p4|
|000007d0| 29 3b 0d 09 49 46 20 49 | 6e 2e 44 6f 6e 65 20 54 |);..IF I|n.Done T|
|000007e0| 48 45 4e 20 58 59 70 6c | 61 6e 65 2e 4f 70 65 6e |HEN XYpl|ane.Open|
|000007f0| 3b 20 20 69 6e 69 74 69 | 61 6c 69 7a 65 64 20 3a |;  initi|alized :|
|00000800| 3d 20 54 52 55 45 20 0d | 09 45 4c 53 45 20 4f 75 |= TRUE .|.ELSE Ou|
|00000810| 74 2e 53 74 72 69 6e 67 | 28 22 50 61 72 61 6d 65 |t.String|("Parame|
|00000820| 74 65 72 20 65 72 72 6f | 72 22 29 3b 20 4f 75 74 |ter erro|r"); Out|
|00000830| 2e 4c 6e 0d 09 45 4e 44 | 0d 45 4e 44 20 49 6e 69 |.Ln..END|.END Ini|
|00000840| 74 3b 0d 0d 42 45 47 49 | 4e 20 20 69 6e 69 74 69 |t;..BEGI|N  initi|
|00000850| 61 6c 69 7a 65 64 20 3a | 3d 20 46 41 4c 53 45 0d |alized :|= FALSE.|
|00000860| 45 4e 44 20 49 46 53 2e | 09 28 2a 20 43 6f 70 79 |END IFS.|.(* Copy|
|00000870| 72 69 67 68 74 20 4d 2e | 20 52 65 69 73 65 72 2c |right M.| Reiser,|
|00000880| 20 31 39 39 32 20 2a 29 | 0d 0d 49 46 53 2e 49 6e | 1992 *)|..IFS.In|
|00000890| 69 74 20 32 30 30 20 35 | 30 20 34 30 0d 30 2e 30 |it 200 5|0 40.0.0|
|000008a0| 20 30 2e 38 35 20 30 2e | 32 20 2d 30 2e 31 35 0d | 0.85 0.|2 -0.15.|
|000008b0| 30 2e 30 20 30 2e 30 34 | 20 2d 30 2e 32 36 20 30 |0.0 0.04| -0.26 0|
|000008c0| 2e 32 38 0d 30 2e 30 20 | 2d 30 2e 30 34 20 30 2e |.28.0.0 |-0.04 0.|
|000008d0| 32 33 20 30 2e 32 36 0d | 30 2e 31 36 20 30 2e 38 |23 0.26.|0.16 0.8|
|000008e0| 35 20 30 2e 32 32 20 30 | 2e 32 34 0d 30 2e 30 20 |5 0.22 0|.24.0.0 |
|000008f0| 30 2e 30 20 30 2e 30 20 | 30 2e 30 20 0d 30 2e 30 |0.0 0.0 |0.0 .0.0|
|00000900| 20 31 2e 36 20 31 2e 36 | 20 30 2e 34 34 0d 30 2e | 1.6 1.6| 0.44.0.|
|00000910| 30 31 20 30 2e 38 35 20 | 30 2e 30 37 20 30 2e 30 |01 0.85 |0.07 0.0|
|00000920| 37 20 7e 0d 0d 49 46 53 | 2e 44 72 61 77          |7 ~..IFS|.Draw   |
+--------+-------------------------+-------------------------+--------+--------+