/ Inside Multimedia 1995 February / IMM0295.ISO / share / os2 / oberon / calc.too

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 43 61 6c 63 2e 54 | 6f 6f 6c 00 00 00 00 00 |oBCalc.T|ool.....|
|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 86 03 00 00 |0.Scn.Fn|t.......|
|00000040| 00 86 03 00 00 43 61 6c | 63 2e 52 65 73 65 74 0d |.....Cal|c.Reset.|
|00000050| 43 61 6c 63 2e 53 65 74 | 20 20 65 67 6f 6e 20 3a |Calc.Set|  egon :|
|00000060| 3d 20 33 33 48 20 20 6f | 74 74 6f 20 3a 3d 20 31 |= 33H  o|tto := 1|
|00000070| 30 30 30 48 20 20 7e 0d | 43 61 6c 63 2e 4c 69 73 |000H  ~.|Calc.Lis|
|00000080| 74 0d 0d 43 61 6c 63 2e | 48 65 78 20 65 67 6f 6e |t..Calc.|Hex egon|
|00000090| 20 2b 20 6f 74 74 6f 0d | 43 61 6c 63 2e 44 65 63 | + otto.|Calc.Dec|
|000000a0| 20 65 67 6f 6e 5e 32 20 | 2a 20 33 0d 43 61 6c 63 | egon^2 |* 3.Calc|
|000000b0| 2e 43 68 61 72 20 22 6a | 22 20 2b 20 37 0d 43 61 |.Char "j|" + 7.Ca|
|000000c0| 6c 63 2e 52 65 61 6c 20 | 63 6f 73 20 28 31 39 33 |lc.Real |cos (193|
|000000d0| 20 2a 20 70 69 29 0d 0d | 28 57 61 72 6e 69 6e 67 | * pi)..|(Warning|
|000000e0| 3a 20 44 75 65 20 74 6f | 20 54 65 78 74 73 20 73 |: Due to| Texts s|
|000000f0| 63 61 6e 6e 65 72 20 70 | 72 6f 62 6c 65 6d 73 2c |canner p|roblems,|
|00000100| 20 61 20 22 2d 22 20 73 | 68 6f 75 6c 64 20 62 65 | a "-" s|hould be|
|00000110| 20 66 6f 6c 6c 6f 77 65 | 64 20 62 79 20 61 20 64 | followe|d by a d|
|00000120| 69 67 69 74 20 6f 72 20 | 61 20 73 70 61 63 65 20 |igit or |a space |
|00000130| 74 6f 20 67 65 74 20 70 | 72 6f 70 70 65 72 20 72 |to get p|ropper r|
|00000140| 65 73 75 6c 74 73 2e 29 | 0d 0d 2d 2d 2d 2d 2d 2d |esults.)|..------|
|00000150| 0d 0d 65 78 70 72 65 73 | 73 69 6f 6e 20 73 79 6e |..expres|sion syn|
|00000160| 74 61 78 3a 0d 09 45 78 | 70 72 20 3d 20 54 65 72 |tax:..Ex|pr = Ter|
|00000170| 6d 20 7b 41 64 64 4f 70 | 20 54 65 72 6d 7d 2e 0d |m {AddOp| Term}..|
|00000180| 09 54 65 72 6d 20 3d 20 | 46 61 63 74 6f 72 20 7b |.Term = |Factor {|
|00000190| 4d 75 6c 4f 70 20 46 61 | 63 74 6f 72 7d 2e 0d 09 |MulOp Fa|ctor}...|
|000001a0| 46 61 63 74 6f 72 20 3d | 20 41 74 6f 6d 20 7b 50 |Factor =| Atom {P|
|000001b0| 6f 77 4f 70 20 41 74 6f | 6d 7d 2e 0d 09 41 74 6f |owOp Ato|m}...Ato|
|000001c0| 6d 20 3d 20 4e 75 6d 62 | 65 72 20 7c 20 46 75 6e |m = Numb|er | Fun|
|000001d0| 63 74 6f 72 20 41 74 6f | 6d 20 7c 20 69 64 65 6e |ctor Ato|m | iden|
|000001e0| 74 20 7c 20 22 28 22 20 | 45 78 70 72 20 22 29 22 |t | "(" |Expr ")"|
|000001f0| 2e 0d 09 50 6f 77 4f 70 | 20 3d 20 22 5e 22 2e 0d |...PowOp| = "^"..|
|00000200| 09 4d 75 6c 4f 70 20 3d | 20 22 2a 22 20 7c 20 22 |.MulOp =| "*" | "|
|00000210| 2f 22 20 7c 20 22 25 22 | 20 7c 20 22 3c 22 20 7c |/" | "%"| | "<" ||
|00000220| 20 22 3e 22 2e 09 2d 2d | 20 25 20 6d 6f 64 75 6c | ">"..--| % modul|
|00000230| 6f 2c 20 3c 20 73 68 69 | 66 74 20 6c 65 66 74 2c |o, < shi|ft left,|
|00000240| 20 3e 20 73 68 69 66 74 | 20 72 69 67 68 74 0d 09 | > shift| right..|
|00000250| 41 64 64 4f 70 20 3d 20 | 5b 22 2b 22 20 7c 20 22 |AddOp = |["+" | "|
|00000260| 2d 22 5d 2e 09 2d 2d 20 | 6e 6f 20 61 64 64 20 6f |-"]..-- |no add o|
|00000270| 70 3a 20 61 64 64 69 74 | 69 6f 6e 28 21 29 0d 09 |p: addit|ion(!)..|
|00000280| 4e 75 6d 62 65 72 20 3d | 20 28 64 69 67 69 74 20 |Number =| (digit |
|00000290| 7b 64 69 67 69 74 7d 29 | 20 7c 20 28 64 69 67 69 |{digit})| | (digi|
|000002a0| 74 20 7b 68 65 78 44 69 | 67 69 74 7d 20 22 48 22 |t {hexDi|git} "H"|
|000002b0| 29 20 7c 20 28 64 69 67 | 69 74 20 7b 68 65 78 44 |) | (dig|it {hexD|
|000002c0| 69 67 69 74 7d 20 22 58 | 22 29 20 7c 20 28 22 22 |igit} "X|") | (""|
|000002d0| 22 20 63 68 61 72 20 22 | 22 22 29 2e 0d 09 46 75 |" char "|"")...Fu|
|000002e0| 6e 63 74 6f 72 20 3d 20 | 22 61 72 63 63 6f 73 22 |nctor = |"arccos"|
|000002f0| 20 7c 20 22 61 72 63 73 | 69 6e 22 20 7c 20 22 61 | | "arcs|in" | "a|
|00000300| 72 63 74 61 6e 22 20 7c | 20 22 63 6f 73 22 20 7c |rctan" || "cos" ||
|00000310| 20 22 65 6e 74 69 65 72 | 22 20 7c 20 22 65 78 70 | "entier|" | "exp|
|00000320| 22 20 7c 20 22 6c 6e 22 | 20 7c 20 22 73 68 6f 72 |" | "ln"| | "shor|
|00000330| 74 22 20 7c 20 22 73 69 | 67 6e 22 20 7c 20 22 73 |t" | "si|gn" | "s|
|00000340| 69 6e 22 20 7c 20 22 73 | 71 72 74 22 20 7c 20 22 |in" | "s|qrt" | "|
|00000350| 74 61 6e 22 2e 0d 0d 41 | 6c 6c 20 6f 70 65 72 61 |tan"...A|ll opera|
|00000360| 74 6f 72 73 20 65 78 63 | 65 70 74 20 66 6f 72 20 |tors exc|ept for |
|00000370| 22 5e 22 20 61 72 65 20 | 6c 65 66 74 2d 61 73 73 |"^" are |left-ass|
|00000380| 6f 63 69 61 74 69 76 65 | 3b 20 22 5e 22 20 69 73 |ociative|; "^" is|
|00000390| 20 72 69 67 68 74 2d 61 | 73 73 6f 63 69 61 74 69 | right-a|ssociati|
|000003a0| 76 65 2e 0d 0d 4e 65 74 | 2e 52 65 63 65 69 76 65 |ve...Net|.Receive|
|000003b0| 46 69 6c 65 73 20 50 6c | 75 74 6f 20 63 61 73 3a |Files Pl|uto cas:|
|000003c0| 43 61 6c 63 2e 4f 62 6a | 20 7e 0d                |Calc.Obj| ~.     |
+--------+-------------------------+-------------------------+--------+--------+