/ Oakland CPM Archive / oakcpm.iso / cpm / misc / apl-z.ark / FACT.ACO

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 02 20 20 20 20 20 20 47 | 7a 5e 66 61 63 74 20 62 |.      G|z^fact b|
|00000010| 3c 69 3c 75 3c 66 0d 3b | 31 30 5b 20 7a 5e 31 0d |<i<u<f.;|10[ z^1.|
|00000020| 3b 32 30 5b 20 66 5e 62 | 2a 44 62 0d 3b 33 30 5b |;20[ f^b|*Db.;30[|
|00000030| 20 7e 2b 62 23 30 7b 2f | 6e 65 67 31 0d 3b 34 30 | ~+b#0{/|neg1.;40|
|00000040| 5b 20 69 5e 31 3a 66 0d | 3b 35 30 5b 20 75 5e 31 |[ i^1:f.|;50[ u^1|
|00000050| 3a 62 0d 3b 36 30 5b 20 | 7e 6c 0d 3b 37 30 5b 20 |:b.;60[ |~l.;70[ |
|00000060| 6e 65 67 31 3e 69 5e 31 | 3a 62 0d 3b 38 30 5b 20 |neg1>i^1|:b.;80[ |
|00000070| 75 5e 66 0d 3b 39 30 5b | 20 6c 3e 7e 2b 75 25 69 |u^f.;90[| l>~+u%i|
|00000080| 7b 2f 65 0d 3b 31 30 30 | 5b 20 7a 5e 7a 2d 69 0d |{/e.;100|[ z^z-i.|
|00000090| 3b 31 31 30 5b 20 69 5e | 69 3a 31 0d 3b 31 32 30 |;110[ i^|i:1.;120|
|000000a0| 5b 20 7e 6c 0d 3b 31 33 | 30 5b 20 65 3e 7e 2b 62 |[ ~l.;13|0[ e>~+b|
|000000b0| 23 30 7b 2f 6e 65 67 32 | 0d 3b 31 34 30 5b 20 7e |#0{/neg2|.;140[ ~|
|000000c0| 2b 30 25 66 7b 2f 30 0d | 3b 31 35 30 5b 20 7a 5e |+0%f{/0.|;150[ z^|
|000000d0| 7a 2d 67 61 6d 6d 61 20 | 66 0d 3b 31 36 30 5b 20 |z-gamma |f.;160[ |
|000000e0| 7e 30 0d 3b 31 37 30 5b | 20 6e 65 67 32 3e 7a 5e |~0.;170[| neg2>z^|
|000000f0| 3d 7a 0d 3b 31 38 30 5b | 20 7e 2b 30 25 66 7b 2f |=z.;180[| ~+0%f{/|
|00000100| 30 0d 3b 31 39 30 5b 20 | 7a 5e 2b 7a 2d 67 61 6d |0.;190[ |z^+z-gam|
|00000110| 6d 61 20 66 7b 3d 66 0d | 20 20 20 20 20 20 47 0d |ma f{=f.|      G.|
|00000120| 5b 5e 79 3b 4b 2c 6c 2c | 4b 5b 4b 0d 20 20 20 20 |[^y;K,l,|K[K.    |
|00000130| 20 20 47 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |  G.....|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 f1 81 28 e3 00 1b |........|....(...|
|00000170| 00 00 00 20 00 0d 02 01 | 33 7b 65 72 61 73 65 20 |... ....|3{erase |
|00000180| 64 20 66 0a 0b 07 82 28 | b7 00 14 0b 01 00 0a 7b |d f....(|.......{|
|00000190| 65 72 61 73 65 20 64 20 | 66 0d 81 00 40 01 aa 00 |erase d |f...@...|
|000001a0| 00 00 00 00 04 02 01 93 | 00 01 05 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+