home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1998-09-21 | 14.8 KB | [TEXT/MSET] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: fsl_util.mops
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Mon Sep 21 19:24:19 1998, modified Mon Sep 21 19:24:19 1998, creator 'MSET', type ASCII, 14555 bytes "fsl_util.mops" , at 0x395b 381 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MSET] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 66 73 6c 5f 75 74 | 69 6c 2e 6d 6f 70 73 00 |..fsl_ut|il.mops.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 38 db 00 | 00 01 7d b2 2c 90 a3 b2 |.....8..|..}.,...|
|00000060| 2c 90 a3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |,.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ac a4 00 00 |........|........|
|00000080| 5c 20 66 73 6c 5f 75 74 | 69 6c 2e 6d 6f 70 73 20 |\ fsl_ut|il.mops |
|00000090| 20 20 20 20 20 20 20 20 | 41 6e 20 61 75 78 69 6c | |An auxil|
|000000a0| 6c 69 61 72 79 20 66 69 | 6c 65 20 66 6f 72 20 74 |liary fi|le for t|
|000000b0| 68 65 20 46 6f 72 74 68 | 20 53 63 69 65 6e 74 69 |he Forth| Scienti|
|000000c0| 66 69 63 20 4c 69 62 72 | 61 72 79 0d 5c 20 20 20 |fic Libr|ary.\ |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 20 20 20 63 6f 6e 74 | 61 69 6e 73 20 63 6f 6d | cont|ains com|
|000000f0| 6d 6f 6e 6c 79 20 6e 65 | 65 64 65 64 20 64 65 66 |monly ne|eded def|
|00000100| 69 6e 69 74 69 6f 6e 73 | 20 66 6f 72 20 4d 6f 70 |initions| for Mop|
|00000110| 73 2e 0d 5c 20 28 4d 6f | 70 73 20 76 65 72 73 69 |s..\ (Mo|ps versi|
|00000120| 6f 6e 20 20 41 70 72 20 | 31 39 39 38 20 20 4d 69 |on Apr |1998 Mi|
|00000130| 6b 65 20 48 6f 72 65 2e | 20 20 50 75 62 6c 69 63 |ke Hore.| Public|
|00000140| 20 64 6f 6d 61 69 6e 29 | 0d 0d 6e 65 65 64 20 7a | domain)|..need z|
|00000150| 46 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 0d 0d |Floating| point..|
|00000160| 5c 20 64 78 6f 72 2c 20 | 64 6f 72 2c 20 64 61 6e |\ dxor, |dor, dan|
|00000170| 64 20 20 20 20 20 20 20 | 64 6f 75 62 6c 65 20 78 |d |double x|
|00000180| 6f 72 2c 20 6f 72 2c 20 | 61 6e 64 0d 5c 20 73 64 |or, or, |and.\ sd|
|00000190| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|000001a0| 20 20 20 20 73 69 6e 67 | 6c 65 20 2a 20 64 6f 75 | sing|le * dou|
|000001b0| 62 6c 65 20 3d 20 64 6f | 75 62 6c 65 5f 70 72 6f |ble = do|uble_pro|
|000001c0| 64 75 63 74 0d 5c 20 76 | 3a 20 64 65 66 69 6e 65 |duct.\ v|: define|
|000001d0| 73 20 75 73 65 28 20 26 | 20 20 20 20 20 46 6f 72 |s use( &| For|
|000001e0| 20 64 65 66 69 6e 69 6e | 67 20 61 6e 64 20 73 65 | definin|g and se|
|000001f0| 74 74 74 69 6e 67 20 65 | 78 65 63 75 74 69 6f 6e |ttting e|xecution|
|00000200| 20 76 65 63 74 6f 72 73 | 0d 5c 20 25 20 20 20 20 | vectors|.\ % |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000220| 20 50 61 72 73 65 20 6e | 65 78 74 20 74 6f 6b 65 | Parse n|ext toke|
|00000230| 6e 20 61 73 20 61 20 46 | 4c 4f 41 54 0d 5c 20 53 |n as a F|LOAT.\ S|
|00000240| 3e 46 20 20 46 3e 53 20 | 20 20 20 20 20 20 20 20 |>F F>S | |
|00000250| 20 20 20 20 20 43 6f 6e | 76 65 72 73 69 6f 6e 20 | Con|version |
|00000260| 62 65 74 77 65 65 6e 20 | 28 73 69 6e 67 6c 65 29 |between |(single)|
|00000270| 20 69 6e 74 65 67 65 72 | 20 61 6e 64 20 66 6c 6f | integer| and flo|
|00000280| 61 74 0d 5c 20 46 2c 20 | 20 20 20 20 20 20 20 20 |at.\ F, | |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 53 74 6f 72 65 | | Store|
|000002a0| 20 46 4c 4f 41 54 20 61 | 74 20 28 61 6c 69 67 6e | FLOAT a|t (align|
|000002b0| 65 64 29 20 48 45 52 45 | 0d 5c 20 49 4e 54 45 47 |ed) HERE|.\ INTEG|
|000002c0| 45 52 2c 20 44 4f 55 42 | 4c 45 2c 20 46 4c 4f 41 |ER, DOUB|LE, FLOA|
|000002d0| 54 20 20 20 46 6f 72 20 | 73 65 74 74 69 6e 67 20 |T For |setting |
|000002e0| 75 70 20 41 52 52 41 59 | 20 74 79 70 65 73 0d 5c |up ARRAY| types.\|
|000002f0| 20 41 52 52 41 59 20 44 | 41 52 52 41 59 20 20 20 | ARRAY D|ARRAY |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 46 6f 72 20 64 | | For d|
|00000310| 65 63 6c 61 72 69 6e 67 | 20 73 74 61 74 69 63 20 |eclaring| static |
|00000320| 61 6e 64 20 64 79 6e 61 | 6d 69 63 20 61 72 72 61 |and dyna|mic arra|
|00000330| 79 73 0d 5c 20 7d 20 20 | 20 20 20 20 20 20 20 20 |ys.\ } | |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | | F|
|00000350| 6f 72 20 67 65 74 74 69 | 6e 67 20 61 6e 20 41 52 |or getti|ng an AR|
|00000360| 52 41 59 20 6f 72 20 44 | 41 52 52 41 59 20 65 6c |RAY or D|ARRAY el|
|00000370| 65 6d 65 6e 74 20 61 64 | 64 72 65 73 73 0d 5c 20 |ement ad|dress.\ |
|00000380| 26 21 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |&! | |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 46 6f 72 20 73 74 | | For st|
|000003a0| 6f 72 69 6e 67 20 41 52 | 52 41 59 20 61 6c 69 61 |oring AR|RAY alia|
|000003b0| 73 65 73 20 69 6e 20 61 | 20 44 41 52 52 41 59 0d |ses in a| DARRAY.|
|000003c0| 5c 20 50 52 49 4e 54 2d | 57 49 44 54 48 20 20 20 |\ PRINT-|WIDTH |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 68 65 20 | | The |
|000003e0| 6e 75 6d 62 65 72 20 6f | 66 20 65 6c 65 6d 65 6e |number o|f elemen|
|000003f0| 74 73 20 70 65 72 20 6c | 69 6e 65 20 66 6f 72 20 |ts per l|ine for |
|00000400| 70 72 69 6e 74 69 6e 67 | 20 61 72 72 61 79 73 0d |printing| arrays.|
|00000410| 5c 20 7d 46 50 52 49 4e | 54 20 20 20 20 20 20 20 |\ }FPRIN|T |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 72 69 6e | | Prin|
|00000430| 74 20 6f 75 74 20 61 20 | 67 69 76 65 6e 20 61 72 |t out a |given ar|
|00000440| 72 61 79 0d 5c 20 4d 61 | 74 72 69 78 20 20 20 20 |ray.\ Ma|trix |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000460| 46 6f 72 20 64 65 63 6c | 61 72 69 6e 67 20 61 20 |For decl|aring a |
|00000470| 32 2d 44 20 61 72 72 61 | 79 0d 5c 20 7d 7d 20 20 |2-D arra|y.\ }} |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000490| 20 20 20 20 20 20 67 65 | 74 73 20 61 20 4d 61 74 | ge|ts a Mat|
|000004a0| 72 69 78 20 65 6c 65 6d | 65 6e 74 20 61 64 64 72 |rix elem|ent addr|
|000004b0| 65 73 73 0d 5c 20 50 75 | 62 6c 69 63 3a 20 50 72 |ess.\ Pu|blic: Pr|
|000004c0| 69 76 61 74 65 3a 20 52 | 65 73 65 74 5f 53 65 61 |ivate: R|eset_Sea|
|000004d0| 72 63 68 5f 4f 72 64 65 | 72 20 20 20 63 6f 6e 74 |rch_Orde|r cont|
|000004e0| 72 6f 6c 73 20 74 68 65 | 20 76 69 73 69 62 69 6c |rols the| visibil|
|000004f0| 69 74 79 20 6f 66 20 77 | 6f 72 64 73 0d 5c 20 7c |ity of w|ords.\ ||
|00000500| 66 72 61 6d 65 20 66 72 | 61 6d 65 7c 20 20 20 20 |frame fr|ame| |
|00000510| 20 20 20 20 20 20 20 20 | 20 73 65 74 73 20 75 70 | | sets up|
|00000520| 2f 72 65 6d 6f 76 65 73 | 20 61 20 6c 6f 63 61 6c |/removes| a local|
|00000530| 20 76 61 72 69 61 62 6c | 65 20 66 72 61 6d 65 0d | variabl|e frame.|
|00000540| 5c 20 61 20 62 20 63 20 | 64 20 65 20 66 20 67 20 |\ a b c |d e f g |
|00000550| 68 20 20 20 20 20 20 20 | 20 20 20 20 6c 6f 63 61 |h | loca|
|00000560| 6c 20 46 56 41 52 49 41 | 42 4c 45 20 76 61 6c 75 |l FVARIA|BLE valu|
|00000570| 65 73 0d 5c 20 26 61 20 | 26 62 20 26 63 20 26 64 |es.\ &a |&b &c &d|
|00000580| 20 26 65 20 26 66 20 26 | 67 20 26 68 20 20 20 6c | &e &f &|g &h l|
|00000590| 6f 63 61 6c 20 46 56 41 | 52 49 41 42 4c 45 20 61 |ocal FVA|RIABLE a|
|000005a0| 64 64 72 65 73 73 65 73 | 0d 0d 5c 20 54 68 69 73 |ddresses|..\ This|
|000005b0| 20 63 6f 64 65 20 63 6f | 6e 66 6f 72 6d 73 20 77 | code co|nforms w|
|000005c0| 69 74 68 20 41 4e 53 20 | 72 65 71 75 69 72 69 6e |ith ANS |requirin|
|000005d0| 67 3a 0d 5c 20 20 20 20 | 20 20 31 2e 20 54 68 65 |g:.\ | 1. The|
|000005e0| 20 46 6c 6f 61 74 69 6e | 67 2d 50 6f 69 6e 74 20 | Floatin|g-Point |
|000005f0| 77 6f 72 64 20 73 65 74 | 0d 5c 20 20 20 20 20 20 |word set|.\ |
|00000600| 32 2e 20 54 68 65 20 77 | 6f 72 64 73 20 75 6d 64 |2. The w|ords umd|
|00000610| 2a 20 75 6d 64 2f 6d 6f | 64 20 61 6e 64 20 64 2a |* umd/mo|d and d*|
|00000620| 20 61 72 65 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 | are imp|lemented|
|00000630| 0d 5c 20 20 20 20 20 20 | 20 20 20 66 6f 72 20 4d |.\ | for M|
|00000640| 6f 70 73 20 69 6e 20 74 | 68 65 20 66 69 6c 65 20 |ops in t|he file |
|00000650| 64 6f 75 62 6c 65 2e 0d | 5c 20 20 20 20 20 20 33 |double..|\ 3|
|00000660| 2e 20 54 68 65 20 77 6f | 72 64 20 56 4f 43 41 42 |. The wo|rd VOCAB|
|00000670| 55 4c 41 52 59 20 69 73 | 20 64 65 66 69 6e 65 64 |ULARY is| defined|
|00000680| 0d 0d 5c 20 54 68 69 73 | 20 63 6f 64 65 20 69 73 |..\ This| code is|
|00000690| 20 72 65 6c 65 61 73 65 | 64 20 74 6f 20 74 68 65 | release|d to the|
|000006a0| 20 70 75 62 6c 69 63 20 | 64 6f 6d 61 69 6e 20 45 | public |domain E|
|000006b0| 76 65 72 65 74 74 20 43 | 61 72 74 65 72 20 4a 75 |verett C|arter Ju|
|000006c0| 6c 79 20 31 39 39 34 0d | 0d 43 52 20 2e 28 20 46 |ly 1994.|.CR .( F|
|000006d0| 53 4c 5f 55 54 49 4c 2e | 53 45 51 20 20 20 20 20 |SL_UTIL.|SEQ |
|000006e0| 20 56 31 2e 32 30 20 20 | 20 20 20 20 20 20 20 20 | V1.20 | |
|000006f0| 31 37 20 41 70 72 69 6c | 20 31 39 39 35 20 20 20 |17 April| 1995 |
|00000700| 45 46 43 20 29 0d 0d 5c | 20 3d 3d 3d 3d 3d 3d 3d |EFC )..\| =======|
|00000710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00000720| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 63 6f 6e 74 |compilat|ion cont|
|00000730| 72 6f 6c 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |rol ====|========|
|00000740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000750| 5c 20 66 6f 72 20 63 6f | 6e 74 72 6f 6c 20 6f 66 |\ for co|ntrol of|
|00000760| 20 63 6f 6e 64 69 74 69 | 6f 6e 61 6c 20 63 6f 6d | conditi|onal com|
|00000770| 70 69 6c 61 74 69 6f 6e | 20 74 65 73 74 20 63 6f |pilation| test co|
|00000780| 64 65 0d 5c 20 54 52 55 | 45 09 56 41 4c 55 45 20 |de.\ TRU|E.VALUE |
|00000790| 54 45 53 54 2d 43 4f 44 | 45 3f 0d 46 41 4c 53 45 |TEST-COD|E?.FALSE|
|000007a0| 09 56 41 4c 55 45 20 54 | 45 53 54 2d 43 4f 44 45 |.VALUE T|EST-CODE|
|000007b0| 3f 0d 0d 5c 20 46 41 4c | 53 45 20 56 41 4c 55 45 |?..\ FAL|SE VALUE|
|000007c0| 20 3f 54 45 53 54 2d 43 | 4f 44 45 20 20 20 20 20 | ?TEST-C|ODE |
|000007d0| 20 20 20 20 20 20 5c 20 | 6f 62 73 6f 6c 65 74 65 | \ |obsolete|
|000007e0| 2c 20 66 6f 72 20 62 61 | 63 6b 77 61 72 64 20 63 |, for ba|ckward c|
|000007f0| 6f 6d 70 61 74 69 62 6c | 69 74 79 0d 0d 5c 20 66 |ompatibl|ity..\ f|
|00000800| 6f 72 20 63 6f 6e 74 72 | 6f 6c 20 6f 66 20 63 6f |or contr|ol of co|
|00000810| 6e 64 69 74 69 6f 6e 61 | 6c 20 63 6f 6d 70 69 6c |nditiona|l compil|
|00000820| 61 74 69 6f 6e 20 6f 66 | 20 44 79 6e 61 6d 69 63 |ation of| Dynamic|
|00000830| 20 4d 65 6d 6f 72 79 0d | 46 41 4c 53 45 20 43 4f | Memory.|FALSE CO|
|00000840| 4e 53 54 41 4e 54 20 48 | 41 53 2d 4d 45 4d 4f 52 |NSTANT H|AS-MEMOR|
|00000850| 59 2d 57 4f 52 44 53 3f | 0d 0d 5c 20 3d 3d 3d 3d |Y-WORDS?|..\ ====|
|00000860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008a0| 3d 3d 3d 0d 0d 6e 65 65 | 64 20 7a 46 6c 6f 61 74 |===..nee|d zFloat|
|000008b0| 69 6e 67 20 70 6f 69 6e | 74 0d 09 09 5c 20 50 6f |ing poin|t...\ Po|
|000008c0| 77 65 72 4d 6f 70 73 20 | 66 6c 6f 61 74 69 6e 67 |werMops |floating|
|000008d0| 20 70 6f 69 6e 74 0d 6e | 65 65 64 20 64 6f 75 62 | point.n|eed doub|
|000008e0| 6c 65 0d 09 09 5c 20 64 | 6f 75 62 6c 65 20 6e 75 |le...\ d|ouble nu|
|000008f0| 6d 62 65 72 20 77 6f 72 | 64 73 0d 0d 66 61 6c 73 |mber wor|ds..fals|
|00000900| 65 20 2d 3e 20 73 6c 63 | 74 72 73 3f 09 09 09 5c |e -> slc|trs?...\|
|00000910| 20 57 6f 72 64 73 20 65 | 6e 64 69 6e 67 20 69 6e | Words e|nding in|
|00000920| 20 3a 20 61 72 65 20 6e | 6f 72 6d 61 6c 20 77 6f | : are n|ormal wo|
|00000930| 72 64 73 20 69 6e 20 46 | 53 4c 0d 0d 3a 20 54 4f |rds in F|SL..: TO|
|00000940| 09 70 6f 73 74 70 6f 6e | 65 20 2d 3e 20 20 3b 09 |.postpon|e -> ;.|
|00000950| 09 69 6d 6d 65 64 69 61 | 74 65 0d 0d 3a 20 43 4f |.immedia|te..: CO|
|00000960| 4d 50 49 4c 45 09 09 70 | 6f 73 74 70 6f 6e 65 20 |MPILE..p|ostpone |
|00000970| 70 6f 73 74 70 6f 6e 65 | 20 20 3b 09 69 6d 6d 65 |postpone| ;.imme|
|00000980| 64 69 61 74 65 0d 3a 20 | 5b 43 4f 4d 50 49 4c 45 |diate.: |[COMPILE|
|00000990| 5d 09 09 70 6f 73 74 70 | 6f 6e 65 20 70 6f 73 74 |]..postp|one post|
|000009a0| 70 6f 6e 65 20 20 3b 09 | 69 6d 6d 65 64 69 61 74 |pone ;.|immediat|
|000009b0| 65 0d 0d 3a 20 43 52 45 | 41 54 45 09 3c 62 75 69 |e..: CRE|ATE.<bui|
|000009c0| 6c 64 73 20 20 3b 0d 0d | 3a 20 4f 4e 09 69 6e 6c |lds ;..|: ON.inl|
|000009d0| 69 6e 65 7b 20 74 72 75 | 65 20 73 77 61 70 20 21 |ine{ tru|e swap !|
|000009e0| 7d 20 20 3b 0d 3a 20 4f | 46 46 09 69 6e 6c 69 6e |} ;.: O|FF.inlin|
|000009f0| 65 7b 20 66 61 6c 73 65 | 20 73 77 61 70 20 21 7d |e{ false| swap !}|
|00000a00| 20 3b 0d 0d 5c 20 4d 6f | 70 73 20 64 6f 65 73 6e | ;..\ Mo|ps doesn|
|00000a10| 27 74 20 68 61 76 65 20 | 76 6f 63 61 62 75 6c 61 |'t have |vocabula|
|00000a20| 72 69 65 73 20 28 63 6c | 61 73 73 65 73 20 6d 61 |ries (cl|asses ma|
|00000a30| 6b 65 20 74 68 65 6d 20 | 6c 65 73 73 20 75 73 65 |ke them |less use|
|00000a40| 66 75 6c 29 2c 20 73 6f | 0d 5c 20 20 77 65 20 6a |ful), so|.\ we j|
|00000a50| 75 73 74 20 64 65 66 69 | 6e 65 20 74 68 65 73 65 |ust defi|ne these|
|00000a60| 20 77 6f 72 64 73 20 74 | 6f 20 64 6f 20 6e 6f 74 | words t|o do not|
|00000a70| 68 69 6e 67 20 66 6f 72 | 20 6e 6f 77 2e 0d 0d 3a |hing for| now...:|
|00000a80| 20 70 72 69 76 61 74 65 | 3a 20 20 3b 0d 3a 20 70 | private|: ;.: p|
|00000a90| 75 62 6c 69 63 3a 20 20 | 20 3b 0d 3a 20 52 65 73 |ublic: | ;.: Res|
|00000aa0| 65 74 5f 53 65 61 72 63 | 68 5f 4f 72 64 65 72 20 |et_Searc|h_Order |
|00000ab0| 20 3b 0d 0d 0d 5c 20 53 | 6f 6d 65 20 6f 66 20 4a | ;...\ S|ome of J|
|00000ac0| 75 6c 69 61 6e 20 4e 6f | 62 6c 65 27 73 20 66 69 |ulian No|ble's fi|
|00000ad0| 6c 65 73 20 6e 65 65 64 | 20 74 68 65 73 65 3a 0d |les need| these:.|
|00000ae0| 0d 30 2e 30 09 66 63 6f | 6e 73 74 61 6e 74 09 46 |.0.0.fco|nstant.F|
|00000af0| 3d 30 0d 31 2e 30 09 66 | 63 6f 6e 73 74 61 6e 74 |=0.1.0.f|constant|
|00000b00| 09 46 3d 31 0d 0d 5c 20 | 3d 3d 3d 3d 3d 3d 3d 3d |.F=1..\ |========|
|00000b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000b30| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 0d 5c 20 46 53 4c |========|...\ FSL|
|00000b40| 20 4e 6f 6e 20 41 4e 53 | 20 77 6f 72 64 73 0d 0d | Non ANS| words..|
|00000b50| 5c 20 75 6d 64 2f 6d 6f | 64 20 20 20 20 20 28 20 |\ umd/mo|d ( |
|00000b60| 75 71 75 61 64 20 75 64 | 64 69 76 20 2d 2d 20 75 |uquad ud|div -- u|
|00000b70| 64 71 75 6f 74 20 75 64 | 6d 6f 64 20 29 20 75 6e |dquot ud|mod ) un|
|00000b80| 73 69 67 6e 65 64 20 71 | 75 61 64 20 64 69 76 69 |signed q|uad divi|
|00000b90| 64 65 64 20 62 79 20 64 | 6f 75 62 6c 65 0d 5c 20 |ded by d|ouble.\ |
|00000ba0| 75 6d 64 2a 20 20 20 20 | 20 20 20 20 28 20 75 64 |umd* | ( ud|
|00000bb0| 31 20 75 64 32 20 2d 2d | 20 71 70 72 6f 64 20 29 |1 ud2 --| qprod )|
|00000bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 75 6e 73 69 | | unsi|
|00000bd0| 67 6e 65 64 20 64 6f 75 | 62 6c 65 20 6d 75 6c 74 |gned dou|ble mult|
|00000be0| 69 70 6c 79 0d 5c 20 64 | 2a 20 20 20 20 20 20 20 |iply.\ d|* |
|00000bf0| 20 20 20 28 20 64 31 20 | 64 32 20 20 20 2d 2d 20 | ( d1 |d2 -- |
|00000c00| 64 70 72 6f 64 20 29 20 | 20 20 20 20 20 20 20 20 |dprod ) | |
|00000c10| 20 20 20 64 6f 75 62 6c | 65 20 6d 75 6c 74 69 70 | doubl|e multip|
|00000c20| 6c 79 0d 0d 0d 5c 20 46 | 6f 72 20 4d 6f 70 73 20 |ly...\ F|or Mops |
|00000c30| 74 68 65 20 61 62 6f 76 | 65 20 74 68 72 65 65 20 |the abov|e three |
|00000c40| 61 72 65 20 70 72 6f 62 | 61 62 6c 79 20 6e 6f 74 |are prob|ably not|
|00000c50| 20 6e 65 65 64 65 64 20 | 61 73 20 69 74 27 73 20 | needed |as it's |
|00000c60| 61 20 33 32 2d 62 69 74 | 20 46 6f 72 74 68 2e 0d |a 32-bit| Forth..|
|00000c70| 5c 20 42 75 74 20 69 66 | 20 79 6f 75 20 6e 65 65 |\ But if| you nee|
|00000c80| 64 20 74 68 65 6d 2c 20 | 6c 6f 61 64 20 74 68 65 |d them, |load the|
|00000c90| 20 66 69 6c 65 20 64 6f | 75 62 6c 65 2e 0d 0d 0d | file do|uble....|
|00000ca0| 3a 20 64 78 6f 72 20 20 | 20 20 20 20 20 28 20 64 |: dxor | ( d|
|00000cb0| 31 20 64 32 20 2d 2d 20 | 64 20 29 20 20 20 20 20 |1 d2 -- |d ) |
|00000cc0| 20 20 20 20 20 20 20 20 | 5c 20 64 6f 75 62 6c 65 | |\ double|
|00000cd0| 20 78 6f 72 0d 20 20 20 | 20 20 20 52 4f 54 20 58 | xor. | ROT X|
|00000ce0| 4f 52 20 2d 52 4f 54 20 | 58 4f 52 20 53 57 41 50 |OR -ROT |XOR SWAP|
|00000cf0| 0d 3b 0d 0d 3a 20 64 6f | 72 20 20 20 20 20 20 20 |.;..: do|r |
|00000d00| 28 20 64 31 20 64 32 20 | 2d 2d 20 64 20 29 20 20 |( d1 d2 |-- d ) |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 5c 20 64 6f | | \ do|
|00000d20| 75 62 6c 65 20 6f 72 0d | 20 20 20 20 20 20 52 4f |uble or.| RO|
|00000d30| 54 20 4f 52 20 2d 52 4f | 54 20 4f 52 20 53 57 41 |T OR -RO|T OR SWA|
|00000d40| 50 0d 3b 0d 0d 3a 20 64 | 61 6e 64 20 20 20 20 20 |P.;..: d|and |
|00000d50| 28 20 64 31 20 64 32 20 | 2d 2d 20 64 20 29 20 20 |( d1 d2 |-- d ) |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 20 64 | | \ d|
|00000d70| 6f 75 62 6c 65 20 61 6e | 64 0d 20 20 20 20 20 52 |ouble an|d. R|
|00000d80| 4f 54 20 41 4e 44 20 2d | 52 4f 54 20 41 4e 44 20 |OT AND -|ROT AND |
|00000d90| 53 57 41 50 0d 3b 0d 0d | 5c 20 73 69 6e 67 6c 65 |SWAP.;..|\ single|
|00000da0| 20 2a 20 64 6f 75 62 6c | 65 20 3d 20 64 6f 75 62 | * doubl|e = doub|
|00000db0| 6c 65 0d 3a 20 73 64 2a | 20 20 20 28 20 6d 75 6c |le.: sd*| ( mul|
|00000dc0| 74 69 70 6c 69 63 61 6e | 64 20 20 6d 75 6c 74 69 |tiplican|d multi|
|00000dd0| 70 6c 69 65 72 5f 64 6f | 75 62 6c 65 20 20 2d 2d |plier_do|uble --|
|00000de0| 20 70 72 6f 64 75 63 74 | 5f 64 6f 75 62 6c 65 20 | product|_double |
|00000df0| 20 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ). | |
|00000e00| 32 20 50 49 43 4b 20 2a | 20 3e 52 20 20 20 55 4d |2 PICK *| >R UM|
|00000e10| 2a 20 20 20 52 3e 20 2b | 0d 3b 0d 0d 3a 20 44 30 |* R> +|.;..: D0|
|00000e20| 3c 20 20 20 20 20 20 20 | 20 4e 49 50 20 30 3c 20 |< | NIP 0< |
|00000e30| 3b 0d 0d 3a 20 54 2a 20 | 20 20 20 20 20 20 20 20 |;..: T* | |
|00000e40| 54 55 43 4b 20 55 4d 2a | 20 32 53 57 41 50 20 55 |TUCK UM*| 2SWAP U|
|00000e50| 4d 2a 20 53 57 41 50 20 | 3e 52 20 30 20 44 2b 20 |M* SWAP |>R 0 D+ |
|00000e60| 52 3e 20 52 4f 54 20 52 | 4f 54 20 3b 0d 3a 20 54 |R> ROT R|OT ;.: T|
|00000e70| 2f 20 20 20 20 20 20 20 | 20 20 44 55 50 20 3e 52 |/ | DUP >R|
|00000e80| 20 55 4d 2f 4d 4f 44 20 | 52 4f 54 20 52 4f 54 20 | UM/MOD |ROT ROT |
|00000e90| 52 3e 20 55 4d 2f 4d 4f | 44 20 4e 49 50 20 53 57 |R> UM/MO|D NIP SW|
|00000ea0| 41 50 20 3b 0d 0d 3a 20 | 6d 2a 2f 20 20 20 20 20 |AP ;..: |m*/ |
|00000eb0| 20 20 20 3e 52 20 54 2a | 20 52 3e 20 54 2f 20 3b | >R T*| R> T/ ;|
|00000ec0| 0d 0d 0d 5c 20 66 75 6e | 63 74 69 6f 6e 20 76 65 |...\ fun|ction ve|
|00000ed0| 63 74 6f 72 20 64 65 66 | 69 6e 69 74 69 6f 6e 0d |ctor def|inition.|
|00000ee0| 0d 3a 20 76 3a 09 63 72 | 65 61 74 65 20 20 5b 27 |.: v:.cr|eate ['|
|00000ef0| 5d 20 6e 75 6c 6c 20 2c | 20 20 64 6f 65 73 3e 20 |] null ,| does> |
|00000f00| 40 61 62 73 20 65 78 65 | 63 75 74 65 20 20 3b 0d |@abs exe|cute ;.|
|00000f10| 0d 3a 20 64 65 66 69 6e | 65 73 20 20 20 27 20 3e |.: defin|es ' >|
|00000f20| 62 6f 64 79 0d 09 09 09 | 73 74 61 74 65 20 49 46 |body....|state IF|
|00000f30| 09 6c 69 74 5f 61 64 64 | 72 20 20 70 6f 73 74 70 |.lit_add|r postp|
|00000f40| 6f 6e 65 20 72 65 6c 6f | 63 21 0d 20 20 20 20 20 |one relo|c!. |
|00000f50| 20 20 20 20 20 20 09 09 | 20 20 45 4c 53 45 20 20 | ..| ELSE |
|00000f60| 72 65 6c 6f 63 21 0d 20 | 20 20 20 20 20 20 20 20 |reloc!. | |
|00000f70| 20 20 09 09 20 20 54 48 | 45 4e 20 20 3b 20 20 20 | .. TH|EN ; |
|00000f80| 09 09 69 6d 6d 65 64 69 | 61 74 65 0d 0d 0d 3a 20 |..immedi|ate...: |
|00000f90| 75 73 65 28 09 73 74 61 | 74 65 20 49 46 20 20 70 |use(.sta|te IF p|
|00000fa0| 6f 73 74 70 6f 6e 65 20 | 5b 27 5d 20 20 45 4c 53 |ostpone |['] ELS|
|00000fb0| 45 20 20 27 20 20 54 48 | 45 4e 20 20 3b 20 20 09 |E ' TH|EN ; .|
|00000fc0| 69 6d 6d 65 64 69 61 74 | 65 0d 3a 20 26 20 20 20 |immediat|e.: & |
|00000fd0| 20 20 70 6f 73 74 70 6f | 6e 65 20 75 73 65 28 20 | postpo|ne use( |
|00000fe0| 20 3b 09 09 09 09 09 09 | 09 69 6d 6d 65 64 69 61 | ;......|.immedia|
|00000ff0| 74 65 0d 0d 0d 5c 20 70 | 75 73 68 65 73 20 66 6f |te...\ p|ushes fo|
|00001000| 6c 6c 6f 77 69 6e 67 20 | 76 61 6c 75 65 20 74 6f |llowing |value to|
|00001010| 20 74 68 65 20 66 6c 6f | 61 74 20 73 74 61 63 6b | the flo|at stack|
|00001020| 0d 5c 20 2a 2a 2a 20 49 | 6e 20 4d 6f 70 73 2c 20 |.\ *** I|n Mops, |
|00001030| 77 65 20 61 6c 77 61 79 | 73 20 72 65 63 6f 67 6e |we alway|s recogn|
|00001040| 69 7a 65 20 74 68 65 20 | 66 6c 6f 61 74 69 6e 67 |ize the |floating|
|00001050| 20 6e 75 6d 62 65 72 20 | 61 6e 64 20 64 6f 20 74 | number |and do t|
|00001060| 68 65 20 70 75 73 68 2c | 0d 5c 20 20 73 6f 20 77 |he push,|.\ so w|
|00001070| 65 20 64 6f 6e 27 74 20 | 6e 65 65 64 20 74 68 69 |e don't |need thi|
|00001080| 73 20 77 6f 72 64 2e 20 | 20 44 69 73 61 62 6c 69 |s word. | Disabli|
|00001090| 6e 67 20 69 74 20 61 6c | 6c 6f 77 73 20 62 75 69 |ng it al|lows bui|
|000010a0| 6c 74 69 6e 20 63 6f 6e | 73 74 61 6e 74 73 0d 5c |ltin con|stants.\|
|000010b0| 20 20 6c 69 6b 65 20 30 | 2e 30 20 74 6f 20 62 65 | like 0|.0 to be|
|000010c0| 20 72 65 63 6f 67 6e 69 | 7a 65 64 20 77 68 69 63 | recogni|zed whic|
|000010d0| 68 20 77 69 6c 6c 20 67 | 69 76 65 20 62 65 74 74 |h will g|ive bett|
|000010e0| 65 72 20 63 6f 64 65 20 | 69 6e 20 74 68 65 73 65 |er code |in these|
|000010f0| 20 63 61 73 65 73 2e 0d | 0d 5c 20 3a 20 25 20 20 | cases..|.\ : % |
|00001100| 20 42 4c 20 57 4f 52 44 | 20 20 43 4f 55 4e 54 20 | BL WORD| COUNT |
|00001110| 20 3e 46 4c 4f 41 54 20 | 20 30 3d 20 41 42 4f 52 | >FLOAT | 0= ABOR|
|00001120| 54 22 20 4e 41 4e 22 0d | 5c 20 20 20 20 20 20 20 |T" NAN".|\ |
|00001130| 20 20 73 74 61 74 65 20 | 49 46 20 70 6f 73 74 70 | state |IF postp|
|00001140| 6f 6e 65 20 66 6c 69 74 | 65 72 61 6c 20 20 54 48 |one flit|eral TH|
|00001150| 45 4e 20 20 3b 09 09 09 | 69 6d 6d 65 64 69 61 74 |EN ;...|immediat|
|00001160| 65 0d 0d 3a 20 25 20 3b | 09 09 69 6d 6d 65 64 69 |e..: % ;|..immedi|
|00001170| 61 74 65 0d 0d 5c 20 4d | 6f 73 74 20 6f 66 20 74 |ate..\ M|ost of t|
|00001180| 68 65 73 65 20 46 50 20 | 77 6f 72 64 73 20 61 72 |hese FP |words ar|
|00001190| 65 20 61 6c 72 65 61 64 | 79 20 64 65 66 69 6e 65 |e alread|y define|
|000011a0| 64 20 69 6e 20 4d 6f 70 | 73 20 66 6c 6f 61 74 69 |d in Mop|s floati|
|000011b0| 6e 67 20 70 6f 69 6e 74 | 3a 0d 0d 5c 20 3a 20 53 |ng point|:..\ : S|
|000011c0| 3e 46 20 20 20 28 20 6e | 20 2d 2d 20 7c 20 66 3a |>F ( n| -- | f:|
|000011d0| 20 2d 2d 20 78 20 29 20 | 20 20 20 5c 20 69 6e 74 | -- x ) | \ int|
|000011e0| 65 67 65 72 20 74 6f 20 | 66 6c 6f 61 74 0d 5c 20 |eger to |float.\ |
|000011f0| 20 20 20 20 20 20 20 53 | 3e 44 20 20 44 3e 46 0d | S|>D D>F.|
|00001200| 5c 20 3b 0d 5c 0d 5c 20 | 3a 20 46 3e 53 20 20 20 |\ ;.\.\ |: F>S |
|00001210| 20 28 20 2d 2d 20 6e 20 | 7c 20 66 3a 20 78 20 2d | ( -- n || f: x -|
|00001220| 2d 20 29 20 20 20 5c 20 | 66 6c 6f 61 74 20 74 6f |- ) \ |float to|
|00001230| 20 69 6e 74 65 67 65 72 | 0d 5c 20 20 20 20 20 20 | integer|.\ |
|00001240| 20 20 46 3e 44 20 44 52 | 4f 50 0d 5c 20 3b 0d 0d | F>D DR|OP.\ ;..|
|00001250| 5c 20 53 74 6f 72 65 20 | 66 6c 6f 61 74 20 61 74 |\ Store |float at|
|00001260| 20 28 61 6c 69 67 6e 65 | 64 29 20 48 45 52 45 0d | (aligne|d) HERE.|
|00001270| 5c 20 61 6c 72 65 61 64 | 79 20 64 65 66 69 6e 65 |\ alread|y define|
|00001280| 64 20 69 6e 20 46 2d 50 | 43 0d 5c 20 3a 20 46 2c |d in F-P|C.\ : F,|
|00001290| 20 20 20 28 20 2d 2d 20 | 7c 20 66 3a 20 78 20 2d | ( -- || f: x -|
|000012a0| 2d 20 29 20 20 20 20 20 | 20 20 20 20 46 41 4c 49 |- ) | FALI|
|000012b0| 47 4e 20 48 45 52 45 20 | 20 31 20 46 4c 4f 41 54 |GN HERE | 1 FLOAT|
|000012c0| 53 20 41 4c 4c 4f 54 20 | 46 21 20 20 3b 0d 0d 5c |S ALLOT |F! ;..\|
|000012d0| 20 3a 20 46 3d 20 20 20 | 20 46 2d 20 46 30 3d 20 | : F= | F- F0= |
|000012e0| 3b 0d 3a 20 2d 46 52 4f | 54 20 20 20 20 46 52 4f |;.: -FRO|T FRO|
|000012f0| 54 20 46 52 4f 54 20 3b | 0d 5c 20 3a 20 46 32 2a |T FROT ;|.\ : F2*|
|00001300| 20 20 20 25 20 32 2e 30 | 65 30 20 46 2a 20 20 20 | % 2.0|e0 F* |
|00001310| 20 20 3b 0d 5c 20 3a 20 | 46 32 2f 20 20 20 25 20 | ;.\ : |F2/ % |
|00001320| 32 2e 30 65 30 20 46 2f | 20 20 20 20 20 3b 0d 5c |2.0e0 F/| ;.\|
|00001330| 20 3a 20 46 32 44 55 50 | 20 20 20 20 20 46 4f 56 | : F2DUP| FOV|
|00001340| 45 52 20 46 4f 56 45 52 | 20 3b 0d 0d 3a 20 46 32 |ER FOVER| ;..: F2|
|00001350| 44 52 4f 50 20 20 20 20 | 46 44 52 4f 50 20 46 44 |DROP |FDROP FD|
|00001360| 52 4f 50 20 3b 0d 0d 0d | 5c 20 3a 20 43 45 4c 4c |ROP ;...|\ : CELL|
|00001370| 2d 20 20 20 20 5b 20 31 | 20 43 45 4c 4c 53 20 5d |- [ 1| CELLS ]|
|00001380| 20 4c 49 54 45 52 41 4c | 20 2d 20 3b 20 20 20 20 | LITERAL| - ; |
|00001390| 20 20 20 20 20 20 20 5c | 20 62 61 63 6b 75 70 20 | \| backup |
|000013a0| 6f 6e 65 20 63 65 6c 6c | 0d 0d 0d 30 20 56 41 4c |one cell|...0 VAL|
|000013b0| 55 45 20 54 59 50 45 2d | 49 44 20 20 20 20 20 20 |UE TYPE-|ID |
|000013c0| 20 20 20 20 20 20 20 20 | 20 5c 20 66 6f 72 20 62 | | \ for b|
|000013d0| 75 69 6c 64 69 6e 67 20 | 73 74 72 75 63 74 75 72 |uilding |structur|
|000013e0| 65 73 0d 46 41 4c 53 45 | 20 56 41 4c 55 45 20 53 |es.FALSE| VALUE S|
|000013f0| 54 52 55 43 54 2d 41 52 | 52 41 59 3f 0d 0d 5c 20 |TRUCT-AR|RAY?..\ |
|00001400| 73 69 7a 65 20 6f 66 20 | 61 20 72 65 67 75 6c 61 |size of |a regula|
|00001410| 72 20 69 6e 74 65 67 65 | 72 0d 31 20 63 65 6c 6c |r intege|r.1 cell|
|00001420| 73 20 43 4f 4e 53 54 41 | 4e 54 20 49 4e 54 45 47 |s CONSTA|NT INTEG|
|00001430| 45 52 0d 0d 5c 20 73 69 | 7a 65 20 6f 66 20 61 20 |ER..\ si|ze of a |
|00001440| 64 6f 75 62 6c 65 20 69 | 6e 74 65 67 65 72 0d 32 |double i|nteger.2|
|00001450| 20 63 65 6c 6c 73 20 43 | 4f 4e 53 54 41 4e 54 20 | cells C|ONSTANT |
|00001460| 44 4f 55 42 4c 45 0d 0d | 5c 20 73 69 7a 65 20 6f |DOUBLE..|\ size o|
|00001470| 66 20 61 20 72 65 67 75 | 6c 61 72 20 66 6c 6f 61 |f a regu|lar floa|
|00001480| 74 0d 31 20 66 6c 6f 61 | 74 73 20 43 4f 4e 53 54 |t.1 floa|ts CONST|
|00001490| 41 4e 54 20 46 4c 4f 41 | 54 0d 0d 0d 5c 20 31 2d |ANT FLOA|T...\ 1-|
|000014a0| 44 20 61 72 72 61 79 20 | 64 65 66 69 6e 69 74 69 |D array |definiti|
|000014b0| 6f 6e 0d 5c 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |on.\ |--------|
|000014c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014d0| 2d 2d 2d 2d 2d 0d 5c 20 | 20 20 20 7c 20 63 65 6c |-----.\ | | cel|
|000014e0| 6c 5f 73 69 7a 65 20 7c | 20 64 61 74 61 20 61 72 |l_size || data ar|
|000014f0| 65 61 20 20 20 20 20 7c | 0d 5c 20 20 20 20 2d 2d |ea ||.\ --|
|00001500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 3a 20 4d |--------|---..: M|
|00001520| 41 52 52 41 59 20 28 20 | 6e 20 63 65 6c 6c 5f 73 |ARRAY ( |n cell_s|
|00001530| 69 7a 65 20 2d 2d 20 7c | 20 2d 2d 20 61 64 64 72 |ize -- || -- addr|
|00001540| 20 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c | ) | \|
|00001550| 20 6d 6f 6e 6f 74 79 70 | 65 20 61 72 72 61 79 0d | monotyp|e array.|
|00001560| 20 20 20 20 20 43 52 45 | 41 54 45 0d 20 20 20 20 | CRE|ATE. |
|00001570| 20 20 20 44 55 50 20 2c | 20 2a 20 41 4c 4c 4f 54 | DUP ,| * ALLOT|
|00001580| 0d 20 20 20 20 20 44 4f | 45 53 3e 20 43 45 4c 4c |. DO|ES> CELL|
|00001590| 2b 0d 3b 0d 0d 5c 20 20 | 20 20 2d 2d 2d 2d 2d 2d |+.;..\ | ------|
|000015a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015b0| 2d 2d 2d 2d 2d 2d 2d 0d | 5c 20 20 20 20 7c 20 69 |-------.|\ | i|
|000015c0| 64 20 7c 20 63 65 6c 6c | 5f 73 69 7a 65 20 7c 20 |d | cell|_size | |
|000015d0| 64 61 74 61 20 61 72 65 | 61 20 7c 0d 5c 20 20 20 |data are|a |.\ |
|000015e0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000015f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|00001600| 3a 20 53 41 52 52 41 59 | 20 28 20 6e 20 63 65 6c |: SARRAY| ( n cel|
|00001610| 6c 5f 73 69 7a 65 20 2d | 2d 20 7c 20 2d 2d 20 69 |l_size -|- | -- i|
|00001620| 64 20 61 64 64 72 20 29 | 20 20 20 20 20 20 20 20 |d addr )| |
|00001630| 20 20 5c 20 73 74 72 75 | 63 74 75 72 65 20 61 72 | \ stru|cture ar|
|00001640| 72 61 79 0d 20 20 20 20 | 20 43 52 45 41 54 45 0d |ray. | CREATE.|
|00001650| 20 20 20 20 20 20 20 54 | 59 50 45 2d 49 44 20 2c | T|YPE-ID ,|
|00001660| 0d 20 20 20 20 20 20 20 | 44 55 50 20 2c 20 2a 20 |. |DUP , * |
|00001670| 41 4c 4c 4f 54 0d 20 20 | 20 20 20 44 4f 45 53 3e |ALLOT. | DOES>|
|00001680| 20 44 55 50 20 40 20 53 | 57 41 50 20 5b 20 32 20 | DUP @ S|WAP [ 2 |
|00001690| 43 45 4c 4c 53 20 5d 20 | 4c 49 54 45 52 41 4c 20 |CELLS ] |LITERAL |
|000016a0| 2b 0d 3b 0d 0d 3a 20 41 | 52 52 41 59 0d 20 20 20 |+.;..: A|RRAY. |
|000016b0| 20 20 53 54 52 55 43 54 | 2d 41 52 52 41 59 3f 20 | STRUCT|-ARRAY? |
|000016c0| 49 46 20 20 20 53 41 52 | 52 41 59 20 46 41 4c 53 |IF SAR|RAY FALS|
|000016d0| 45 20 54 4f 20 53 54 52 | 55 43 54 2d 41 52 52 41 |E TO STR|UCT-ARRA|
|000016e0| 59 3f 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |Y?. | |
|000016f0| 20 20 20 20 20 20 45 4c | 53 45 20 4d 41 52 52 41 | EL|SE MARRA|
|00001700| 59 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |Y. | |
|00001710| 20 20 20 20 20 54 48 45 | 4e 0d 3b 0d 0d 0d 5c 20 | THE|N.;...\ |
|00001720| 77 6f 72 64 20 66 6f 72 | 20 63 72 65 61 74 69 6f |word for| creatio|
|00001730| 6e 20 6f 66 20 61 20 64 | 79 6e 61 6d 69 63 20 61 |n of a d|ynamic a|
|00001740| 72 72 61 79 20 28 6e 6f | 20 6d 65 6d 6f 72 79 20 |rray (no| memory |
|00001750| 61 6c 6c 6f 63 61 74 65 | 64 29 0d 0d 5c 20 4d 6f |allocate|d)..\ Mo|
|00001760| 6e 6f 74 79 70 65 0d 5c | 20 20 20 20 2d 2d 2d 2d |notype.\| ----|
|00001770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001780| 2d 2d 2d 2d 0d 5c 20 20 | 20 20 7c 20 64 61 74 61 |----.\ | | data|
|00001790| 5f 70 74 72 20 7c 20 63 | 65 6c 6c 5f 73 69 7a 65 |_ptr | c|ell_size|
|000017a0| 20 7c 0d 5c 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | |.\ |--------|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017c0| 0d 0d 3a 20 44 4d 41 52 | 52 41 59 20 20 20 28 20 |..: DMAR|RAY ( |
|000017d0| 63 65 6c 6c 5f 73 69 7a | 65 20 2d 2d 20 29 20 20 |cell_siz|e -- ) |
|000017e0| 20 43 52 45 41 54 45 20 | 20 30 20 2c 20 2c 0d 20 | CREATE | 0 , ,. |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 45 | | DOE|
|00001810| 53 3e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |S>. | |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001830| 20 20 20 20 20 20 20 40 | 20 43 45 4c 4c 2b 0d 3b | @| CELL+.;|
|00001840| 0d 0d 5c 20 53 74 72 75 | 63 74 75 72 65 73 0d 5c |..\ Stru|ctures.\|
|00001850| 20 20 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ----|--------|
|00001860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001870| 0d 5c 20 20 20 20 7c 20 | 64 61 74 61 5f 70 74 72 |.\ | |data_ptr|
|00001880| 20 7c 20 63 65 6c 6c 5f | 73 69 7a 65 20 7c 20 69 | | cell_|size | i|
|00001890| 64 20 7c 0d 5c 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d |d |.\ | -------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 0d 0d 3a | 20 44 53 41 52 52 41 59 |-----..:| DSARRAY|
|000018c0| 20 20 20 28 20 63 65 6c | 6c 5f 73 69 7a 65 20 2d | ( cel|l_size -|
|000018d0| 2d 20 29 20 20 43 52 45 | 41 54 45 20 20 30 20 2c |- ) CRE|ATE 0 ,|
|000018e0| 20 2c 20 54 59 50 45 2d | 49 44 20 2c 0d 20 20 20 | , TYPE-|ID ,. |
|000018f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001900| 20 20 20 20 20 20 20 20 | 20 20 20 44 4f 45 53 3e | | DOES>|
|00001910| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001930| 20 20 20 20 20 44 55 50 | 20 5b 20 32 20 43 45 4c | DUP| [ 2 CEL|
|00001940| 4c 53 20 5d 20 4c 49 54 | 45 52 41 4c 20 2b 20 40 |LS ] LIT|ERAL + @|
|00001950| 20 53 57 41 50 0d 20 20 | 20 20 20 20 20 20 20 20 | SWAP. | |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 40 20 43 45 4c 4c | | @ CELL|
|00001980| 2b 0d 3b 0d 0d 0d 3a 20 | 44 41 52 52 41 59 20 20 |+.;...: |DARRAY |
|00001990| 20 28 20 63 65 6c 6c 5f | 73 69 7a 65 20 2d 2d 20 | ( cell_|size -- |
|000019a0| 29 0d 20 20 20 20 20 53 | 54 52 55 43 54 2d 41 52 |). S|TRUCT-AR|
|000019b0| 52 41 59 3f 20 49 46 20 | 20 20 44 53 41 52 52 41 |RAY? IF | DSARRA|
|000019c0| 59 20 46 41 4c 53 45 20 | 54 4f 20 53 54 52 55 43 |Y FALSE |TO STRUC|
|000019d0| 54 2d 41 52 52 41 59 3f | 0d 20 20 20 20 20 20 20 |T-ARRAY?|. |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 | | ELSE|
|000019f0| 20 44 4d 41 52 52 41 59 | 0d 20 20 20 20 20 20 20 | DMARRAY|. |
|00001a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 48 45 4e | | THEN|
|00001a10| 0d 3b 0d 0d 0d 76 3a 20 | 64 6f 2d 61 6c 69 67 6e |.;...v: |do-align|
|00001a20| 0d 76 3a 20 64 6f 2d 61 | 6c 69 67 6e 65 64 0d 0d |.v: do-a|ligned..|
|00001a30| 3a 20 64 65 66 61 75 6c | 74 2d 61 6c 69 67 6e 6d |: defaul|t-alignm|
|00001a40| 65 6e 74 73 20 20 26 20 | 41 4c 49 47 4e 20 64 65 |ents & |ALIGN de|
|00001a50| 66 69 6e 65 73 20 64 6f | 2d 61 6c 69 67 6e 20 20 |fines do|-align |
|00001a60| 26 20 41 4c 49 47 4e 45 | 44 20 64 65 66 69 6e 65 |& ALIGNE|D define|
|00001a70| 73 20 64 6f 2d 61 6c 69 | 67 6e 65 64 20 3b 0d 3a |s do-ali|gned ;.:|
|00001a80| 20 66 6c 6f 61 74 2d 61 | 6c 69 67 6e 6d 65 6e 74 | float-a|lignment|
|00001a90| 73 20 20 20 20 26 20 46 | 41 4c 49 47 4e 20 64 65 |s & F|ALIGN de|
|00001aa0| 66 69 6e 65 73 20 64 6f | 2d 61 6c 69 67 6e 20 20 |fines do|-align |
|00001ab0| 26 20 46 41 4c 49 47 4e | 45 44 20 64 65 66 69 6e |& FALIGN|ED defin|
|00001ac0| 65 73 20 64 6f 2d 61 6c | 69 67 6e 65 64 20 3b 0d |es do-al|igned ;.|
|00001ad0| 0d 3a 20 58 49 4e 54 45 | 47 45 52 20 20 31 20 43 |.: XINTE|GER 1 C|
|00001ae0| 45 4c 4c 53 20 20 64 65 | 66 61 75 6c 74 2d 61 6c |ELLS de|fault-al|
|00001af0| 69 67 6e 6d 65 6e 74 73 | 20 3b 0d 0d 3a 20 58 44 |ignments| ;..: XD|
|00001b00| 4f 55 42 4c 45 20 20 20 | 32 20 43 45 4c 4c 53 20 |OUBLE |2 CELLS |
|00001b10| 20 64 65 66 61 75 6c 74 | 2d 61 6c 69 67 6e 6d 65 | default|-alignme|
|00001b20| 6e 74 73 20 3b 0d 0d 3a | 20 58 46 4c 4f 41 54 20 |nts ;..:| XFLOAT |
|00001b30| 20 20 31 20 20 46 4c 4f | 41 54 53 20 20 20 20 66 | 1 FLO|ATS f|
|00001b40| 6c 6f 61 74 2d 61 6c 69 | 67 6e 6d 65 6e 74 73 20 |loat-ali|gnments |
|00001b50| 3b 0d 0d 0d 3a 20 58 41 | 52 52 41 59 20 28 20 6e |;...: XA|RRAY ( n|
|00001b60| 20 73 69 7a 65 20 2d 2d | 20 7c 20 2d 2d 20 61 64 | size --| | -- ad|
|00001b70| 64 72 20 29 20 20 20 20 | 20 20 20 5c 20 65 78 70 |dr ) | \ exp|
|00001b80| 65 72 69 6d 65 6e 74 61 | 6c 20 61 72 72 61 79 20 |erimenta|l array |
|00001b90| 77 69 74 68 20 61 6c 69 | 67 6e 6d 65 6e 74 0d 20 |with ali|gnment. |
|00001ba0| 20 20 20 20 43 52 45 41 | 54 45 0d 20 20 20 20 20 | CREA|TE. |
|00001bb0| 20 20 44 55 50 20 2c 20 | 44 4f 2d 41 4c 49 47 4e | DUP , |DO-ALIGN|
|00001bc0| 20 2a 20 41 4c 4c 4f 54 | 0d 20 20 20 20 20 44 4f | * ALLOT|. DO|
|00001bd0| 45 53 3e 20 43 45 4c 4c | 2b 20 44 4f 2d 41 4c 49 |ES> CELL|+ DO-ALI|
|00001be0| 47 4e 45 44 0d 3b 0d 0d | 0d 5c 20 77 6f 72 64 20 |GNED.;..|.\ word |
|00001bf0| 66 6f 72 20 61 6c 69 61 | 73 69 6e 67 20 61 72 72 |for alia|sing arr|
|00001c00| 61 79 73 2c 0d 5c 20 20 | 74 79 70 69 63 61 6c 20 |ays,.\ |typical |
|00001c10| 75 73 61 67 65 3a 20 20 | 61 7b 20 26 20 62 7b 20 |usage: |a{ & b{ |
|00001c20| 26 21 20 20 73 65 74 73 | 20 62 7b 20 74 6f 20 70 |&! sets| b{ to p|
|00001c30| 6f 69 6e 74 20 74 6f 20 | 61 7b 27 73 20 64 61 74 |oint to |a{'s dat|
|00001c40| 61 0d 0d 3a 20 26 21 20 | 20 20 20 28 20 61 64 64 |a..: &! | ( add|
|00001c50| 72 5f 61 20 26 62 20 2d | 2d 20 29 0d 20 20 20 20 |r_a &b -|- ). |
|00001c60| 20 20 20 20 53 57 41 50 | 20 43 45 4c 4c 2d 20 53 | SWAP| CELL- S|
|00001c70| 57 41 50 20 3e 42 4f 44 | 59 20 20 21 0d 3b 0d 0d |WAP >BOD|Y !.;..|
|00001c80| 0d 3a 20 7d 20 20 20 28 | 20 61 64 64 72 20 6e 20 |.: } (| addr n |
|00001c90| 2d 2d 20 61 64 64 72 5b | 6e 5d 29 20 20 20 20 20 |-- addr[|n]) |
|00001ca0| 20 20 5c 20 77 6f 72 64 | 20 74 68 61 74 20 66 65 | \ word| that fe|
|00001cb0| 74 63 68 65 73 20 31 2d | 44 20 61 72 72 61 79 20 |tches 1-|D array |
|00001cc0| 61 64 64 72 65 73 73 65 | 73 0d 20 20 20 20 20 20 |addresse|s. |
|00001cd0| 20 20 20 20 4f 56 45 52 | 20 43 45 4c 4c 2d 20 40 | OVER| CELL- @|
|00001ce0| 0d 20 20 20 20 20 20 20 | 20 20 20 2a 20 53 57 41 |. | * SWA|
|00001cf0| 50 20 2b 0d 3b 0d 0d 0d | 56 41 52 49 41 42 4c 45 |P +.;...|VARIABLE|
|00001d00| 20 70 72 69 6e 74 2d 77 | 69 64 74 68 20 20 20 20 | print-w|idth |
|00001d10| 20 36 20 70 72 69 6e 74 | 2d 77 69 64 74 68 20 21 | 6 print|-width !|
|00001d20| 0d 0d 3a 20 7d 66 70 72 | 69 6e 74 20 28 20 6e 20 |..: }fpr|int ( n |
|00001d30| 27 61 64 64 72 20 2d 2d | 20 29 20 20 20 20 20 20 |'addr --| ) |
|00001d40| 20 5c 20 70 72 69 6e 74 | 20 6e 20 65 6c 65 6d 65 | \ print| n eleme|
|00001d50| 6e 74 73 20 6f 66 20 61 | 20 66 6c 6f 61 74 20 61 |nts of a| float a|
|00001d60| 72 72 61 79 0d 20 20 20 | 20 20 20 20 20 53 57 41 |rray. | SWA|
|00001d70| 50 20 30 20 44 4f 20 49 | 20 70 72 69 6e 74 2d 77 |P 0 DO I| print-w|
|00001d80| 69 64 74 68 20 40 20 4d | 4f 44 20 30 3d 20 49 20 |idth @ M|OD 0= I |
|00001d90| 41 4e 44 20 49 46 20 43 | 52 20 54 48 45 4e 0d 20 |AND IF C|R THEN. |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001db0| 20 44 55 50 20 49 20 7d | 20 46 40 20 46 2e 20 4c | DUP I }| F@ F. L|
|00001dc0| 4f 4f 50 0d 20 20 20 20 | 20 20 20 20 44 52 4f 50 |OOP. | DROP|
|00001dd0| 0d 3b 0d 0d 3a 20 7d 69 | 70 72 69 6e 74 20 28 20 |.;..: }i|print ( |
|00001de0| 6e 20 27 61 64 64 72 20 | 2d 2d 20 29 20 20 20 20 |n 'addr |-- ) |
|00001df0| 20 20 20 20 5c 20 70 72 | 69 6e 74 20 6e 20 65 6c | \ pr|int n el|
|00001e00| 65 6d 65 6e 74 73 20 6f | 66 20 61 6e 20 69 6e 74 |ements o|f an int|
|00001e10| 65 67 65 72 20 61 72 72 | 61 79 0d 20 20 20 20 20 |eger arr|ay. |
|00001e20| 20 20 53 57 41 50 20 30 | 20 44 4f 20 49 20 70 72 | SWAP 0| DO I pr|
|00001e30| 69 6e 74 2d 77 69 64 74 | 68 20 40 20 4d 4f 44 20 |int-widt|h @ MOD |
|00001e40| 30 3d 20 49 20 41 4e 44 | 20 49 46 20 43 52 20 54 |0= I AND| IF CR T|
|00001e50| 48 45 4e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |HEN. | |
|00001e60| 20 20 20 20 20 44 55 50 | 20 49 20 7d 20 40 20 2e | DUP| I } @ .|
|00001e70| 20 4c 4f 4f 50 0d 20 20 | 20 20 20 20 20 44 52 4f | LOOP. | DRO|
|00001e80| 50 0d 3b 0d 0d 3a 20 7d | 66 63 6f 70 79 20 28 20 |P.;..: }|fcopy ( |
|00001e90| 27 73 72 63 20 27 64 65 | 73 74 20 6e 20 2d 2d 20 |'src 'de|st n -- |
|00001ea0| 29 20 20 20 20 5c 20 63 | 6f 70 79 20 6f 6e 65 20 |) \ c|opy one |
|00001eb0| 61 72 72 61 79 20 69 6e | 74 6f 20 61 6e 6f 74 68 |array in|to anoth|
|00001ec0| 65 72 0d 20 20 20 20 20 | 20 20 20 20 30 20 44 4f |er. | 0 DO|
|00001ed0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001ee0| 20 20 4f 56 45 52 20 49 | 20 7d 20 46 40 0d 20 20 | OVER I| } F@. |
|00001ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 | | D|
|00001f00| 55 50 20 20 49 20 7d 20 | 46 21 0d 20 20 20 20 20 |UP I } |F!. |
|00001f10| 20 20 20 20 20 20 20 20 | 20 20 4c 4f 4f 50 0d 20 | | LOOP. |
|00001f20| 20 20 20 20 20 20 20 20 | 32 44 52 4f 50 0d 3b 0d | |2DROP.;.|
|00001f30| 0d 0d 0d 5c 20 32 2d 44 | 20 61 72 72 61 79 20 64 |...\ 2-D| array d|
|00001f40| 65 66 69 6e 69 74 69 6f | 6e 2c 0d 0d 5c 20 4d 6f |efinitio|n,..\ Mo|
|00001f50| 6e 6f 74 79 70 65 0d 5c | 20 20 20 20 2d 2d 2d 2d |notype.\| ----|
|00001f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001f80| 5c 20 20 20 20 7c 20 6d | 20 7c 20 63 65 6c 6c 5f |\ | m| | cell_|
|00001f90| 73 69 7a 65 20 7c 20 20 | 64 61 74 61 20 61 72 65 |size | |data are|
|00001fa0| 61 20 7c 0d 5c 20 20 20 | 20 2d 2d 2d 2d 2d 2d 2d |a |.\ | -------|
|00001fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0d 3a 20 |--------|----..: |
|00001fd0| 4d 4d 41 54 52 49 58 20 | 20 28 20 6e 20 6d 20 73 |MMATRIX | ( n m s|
|00001fe0| 69 7a 65 20 2d 2d 20 29 | 20 20 20 20 20 20 20 20 |ize -- )| |
|00001ff0| 20 20 20 5c 20 64 65 66 | 69 6e 69 6e 67 20 77 6f | \ def|ining wo|
|00002000| 72 64 20 66 6f 72 20 61 | 20 32 2d 64 20 6d 61 74 |rd for a| 2-d mat|
|00002010| 72 69 78 0d 20 20 20 20 | 20 20 20 20 43 52 45 41 |rix. | CREA|
|00002020| 54 45 0d 20 20 20 20 20 | 20 20 20 20 20 20 4f 56 |TE. | OV|
|00002030| 45 52 20 2c 20 44 55 50 | 20 2c 0d 20 20 20 20 20 |ER , DUP| ,. |
|00002040| 20 20 20 20 20 20 2a 20 | 2a 20 41 4c 4c 4f 54 0d | * |* ALLOT.|
|00002050| 20 20 20 20 20 20 20 20 | 44 4f 45 53 3e 20 20 5b | |DOES> [|
|00002060| 20 32 20 43 45 4c 4c 53 | 20 5d 20 4c 49 54 45 52 | 2 CELLS| ] LITER|
|00002070| 41 4c 20 2b 0d 3b 0d 0d | 5c 20 53 74 72 75 63 74 |AL +.;..|\ Struct|
|00002080| 75 72 65 73 0d 5c 20 20 | 20 20 2d 2d 2d 2d 2d 2d |ures.\ | ------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 5c 20 |--------|-----.\ |
|000020b0| 20 20 20 7c 20 69 64 20 | 7c 20 6d 20 7c 20 63 65 | | id || m | ce|
|000020c0| 6c 6c 5f 73 69 7a 65 20 | 7c 20 20 64 61 74 61 20 |ll_size || data |
|000020d0| 61 72 65 61 20 7c 0d 5c | 20 20 20 20 2d 2d 2d 2d |area |.\| ----|
|000020e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00002100| 0d 3a 20 53 4d 41 54 52 | 49 58 20 20 28 20 6e 20 |.: SMATR|IX ( n |
|00002110| 6d 20 73 69 7a 65 20 2d | 2d 20 29 20 20 20 20 20 |m size -|- ) |
|00002120| 20 20 20 20 20 20 5c 20 | 64 65 66 69 6e 69 6e 67 | \ |defining|
|00002130| 20 77 6f 72 64 20 66 6f | 72 20 61 20 32 2d 64 20 | word fo|r a 2-d |
|00002140| 6d 61 74 72 69 78 0d 20 | 20 20 20 20 20 20 20 43 |matrix. | C|
|00002150| 52 45 41 54 45 20 54 59 | 50 45 2d 49 44 20 2c 0d |REATE TY|PE-ID ,.|
|00002160| 20 20 20 20 20 20 20 20 | 20 20 20 4f 56 45 52 20 | | OVER |
|00002170| 2c 20 44 55 50 20 2c 0d | 20 20 20 20 20 20 20 20 |, DUP ,.| |
|00002180| 20 20 20 2a 20 2a 20 41 | 4c 4c 4f 54 0d 20 20 20 | * * A|LLOT. |
|00002190| 20 20 20 20 20 44 4f 45 | 53 3e 20 20 44 55 50 20 | DOE|S> DUP |
|000021a0| 40 20 54 4f 20 54 59 50 | 45 2d 49 44 0d 20 20 20 |@ TO TYP|E-ID. |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 5b 20 33 20 | | [ 3 |
|000021c0| 43 45 4c 4c 53 20 5d 20 | 4c 49 54 45 52 41 4c 20 |CELLS ] |LITERAL |
|000021d0| 2b 0d 3b 0d 0d 0d 3a 20 | 4d 41 54 52 49 58 20 20 |+.;...: |MATRIX |
|000021e0| 28 20 6e 20 6d 20 73 69 | 7a 65 20 2d 2d 20 29 20 |( n m si|ze -- ) |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 5c 20 64 65 66 69 | | \ defi|
|00002200| 6e 69 6e 67 20 77 6f 72 | 64 20 66 6f 72 20 61 20 |ning wor|d for a |
|00002210| 32 2d 64 20 6d 61 74 72 | 69 78 0d 20 20 20 20 20 |2-d matr|ix. |
|00002220| 53 54 52 55 43 54 2d 41 | 52 52 41 59 3f 20 49 46 |STRUCT-A|RRAY? IF|
|00002230| 20 20 20 53 4d 41 54 52 | 49 58 20 46 41 4c 53 45 | SMATR|IX FALSE|
|00002240| 20 54 4f 20 53 54 52 55 | 43 54 2d 41 52 52 41 59 | TO STRU|CT-ARRAY|
|00002250| 3f 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |?. | |
|00002260| 20 20 20 20 20 45 4c 53 | 45 20 4d 4d 41 54 52 49 | ELS|E MMATRI|
|00002270| 58 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |X. | |
|00002280| 20 20 20 20 20 54 48 45 | 4e 0d 0d 3b 0d 0d 3a 20 | THE|N..;..: |
|00002290| 7d 7d 20 20 20 20 28 20 | 61 64 64 72 20 69 20 6a |}} ( |addr i j|
|000022a0| 20 2d 2d 20 61 64 64 72 | 5b 69 5d 5b 6a 5d 20 29 | -- addr|[i][j] )|
|000022b0| 20 20 20 20 5c 20 77 6f | 72 64 20 74 6f 20 66 65 | \ wo|rd to fe|
|000022c0| 74 63 68 20 32 2d 44 20 | 61 72 72 61 79 20 61 64 |tch 2-D |array ad|
|000022d0| 64 72 65 73 73 65 73 0d | 20 20 20 20 20 20 20 20 |dresses.| |
|000022e0| 20 20 20 20 20 20 20 32 | 3e 52 20 20 20 20 20 20 | 2|>R |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 20 | | \ |
|00002300| 69 6e 64 69 63 65 73 20 | 74 6f 20 72 65 74 75 72 |indices |to retur|
|00002310| 6e 20 73 74 61 63 6b 20 | 74 65 6d 70 6f 72 61 72 |n stack |temporar|
|00002320| 69 6c 79 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ily. | |
|00002330| 20 20 20 44 55 50 20 43 | 45 4c 4c 2d 20 43 45 4c | DUP C|ELL- CEL|
|00002340| 4c 2d 20 32 40 20 20 20 | 20 20 5c 20 26 61 5b 30 |L- 2@ | \ &a[0|
|00002350| 5d 5b 30 5d 20 73 69 7a | 65 20 6d 0d 20 20 20 20 |][0] siz|e m. |
|00002360| 20 20 20 20 20 20 20 20 | 20 20 20 52 3e 20 2a 20 | | R> * |
|00002370| 52 3e 20 2b 20 2a 0d 20 | 20 20 20 20 20 20 20 20 |R> + *. | |
|00002380| 20 20 20 20 20 20 2b 0d | 0d 3b 0d 0d 5c 20 44 79 | +.|.;..\ Dy|
|00002390| 6e 61 6d 69 63 20 32 2d | 44 20 61 72 72 61 79 20 |namic 2-|D array |
|000023a0| 64 65 66 69 6e 69 74 69 | 6f 6e 2c 0d 5c 20 20 20 |definiti|on,.\ |
|000023b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000023d0| 5c 20 20 20 20 7c 20 64 | 61 74 61 5f 70 74 72 20 |\ | d|ata_ptr |
|000023e0| 7c 20 63 65 6c 6c 5f 73 | 69 7a 65 20 7c 20 28 69 || cell_s|ize | (i|
|000023f0| 64 29 20 7c 0d 5c 20 20 | 20 20 2d 2d 2d 2d 2d 2d |d) |.\ | ------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002410| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0d 3a 20 44 4d 41 54 |--------|..: DMAT|
|00002420| 52 49 58 20 20 28 20 63 | 65 6c 6c 5f 73 69 7a 65 |RIX ( c|ell_size|
|00002430| 20 2d 2d 20 29 20 20 20 | 20 20 20 20 20 20 20 20 | -- ) | |
|00002440| 5c 20 64 65 66 69 6e 69 | 6e 67 20 77 6f 72 64 20 |\ defini|ng word |
|00002450| 66 6f 72 20 61 20 32 2d | 64 20 6d 61 74 72 69 78 |for a 2-|d matrix|
|00002460| 0d 20 20 20 20 20 20 20 | 20 44 41 52 52 41 59 0d |. | DARRAY.|
|00002470| 3b 0d 0d 0d 0d 0d 3a 20 | 7d 7d 66 70 72 69 6e 74 |;.....: |}}fprint|
|00002480| 20 28 20 6e 20 6d 20 27 | 61 64 64 72 20 2d 2d 20 | ( n m '|addr -- |
|00002490| 29 20 20 20 20 20 20 20 | 5c 20 70 72 69 6e 74 20 |) |\ print |
|000024a0| 6e 58 6d 20 65 6c 65 6d | 65 6e 74 73 20 6f 66 20 |nXm elem|ents of |
|000024b0| 61 20 66 6c 6f 61 74 20 | 32 2d 44 20 61 72 72 61 |a float |2-D arra|
|000024c0| 79 0d 20 20 20 20 20 20 | 20 20 52 4f 54 20 52 4f |y. | ROT RO|
|000024d0| 54 20 53 57 41 50 20 30 | 20 44 4f 0d 20 20 20 20 |T SWAP 0| DO. |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024f0| 20 20 20 20 20 44 55 50 | 20 30 20 44 4f 0d 20 20 | DUP| 0 DO. |
|00002500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002520| 4f 56 45 52 20 4a 20 49 | 20 20 7d 7d 20 46 40 20 |OVER J I| }} F@ |
|00002530| 46 2e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F.. | |
|00002540| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 4f 4f 50 | | LOOP|
|00002550| 0d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002560| 20 20 20 20 20 20 20 20 | 20 20 20 43 52 0d 20 20 | | CR. |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002580| 4c 4f 4f 50 0d 20 20 20 | 20 20 20 20 20 32 44 52 |LOOP. | 2DR|
|00002590| 4f 50 0d 3b 0d 0d 3a 20 | 7d 7d 66 63 6f 70 79 20 |OP.;..: |}}fcopy |
|000025a0| 28 20 27 73 72 63 20 27 | 64 65 73 74 20 6e 20 6d |( 'src '|dest n m|
|000025b0| 20 20 2d 2d 20 29 20 20 | 20 20 20 20 5c 20 63 6f | -- ) | \ co|
|000025c0| 70 79 20 6e 58 6d 20 65 | 6c 65 6d 65 6e 74 73 20 |py nXm e|lements |
|000025d0| 6f 66 20 32 2d 44 20 61 | 72 72 61 79 20 73 72 63 |of 2-D a|rray src|
|000025e0| 20 74 6f 20 64 65 73 74 | 0d 20 20 20 20 20 20 20 | to dest|. |
|000025f0| 20 53 57 41 50 20 30 20 | 44 4f 0d 20 20 20 20 20 | SWAP 0 |DO. |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 44 55 50 20 | | DUP |
|00002610| 30 20 44 4f 0d 20 20 20 | 20 20 20 20 20 20 20 20 |0 DO. | |
|00002620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002630| 20 32 20 50 49 43 4b 20 | 4a 20 49 20 20 7d 7d 20 | 2 PICK |J I }} |
|00002640| 46 40 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F@. | |
|00002650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4f | | O|
|00002660| 56 45 52 20 4a 20 49 20 | 7d 7d 20 46 21 0d 20 20 |VER J I |}} F!. |
|00002670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002680| 20 20 20 20 20 20 4c 4f | 4f 50 0d 20 20 20 20 20 | LO|OP. |
|00002690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4c 4f 4f | | LOO|
|000026a0| 50 0d 20 20 20 20 20 20 | 20 20 44 52 4f 50 20 32 |P. | DROP 2|
|000026b0| 44 52 4f 50 0d 3b 0d 0d | 28 2a 20 2a 2a 2a 2a 2a |DROP.;..|(* *****|
|000026c0| 0d 5c 20 43 6f 64 65 20 | 66 6f 72 20 68 69 64 69 |.\ Code |for hidi|
|000026d0| 6e 67 20 77 6f 72 64 73 | 20 74 68 61 74 20 74 68 |ng words| that th|
|000026e0| 65 20 75 73 65 72 20 64 | 6f 65 73 20 6e 6f 74 20 |e user d|oes not |
|000026f0| 6e 65 65 64 20 74 6f 20 | 61 63 63 65 73 73 0d 5c |need to |access.\|
|00002700| 20 69 6e 74 6f 20 61 20 | 68 69 64 64 65 6e 20 77 | into a |hidden w|
|00002710| 6f 72 64 6c 69 73 74 2e | 0d 0d 4e 6f 74 20 75 73 |ordlist.|..Not us|
|00002720| 65 64 20 69 6e 20 4d 6f | 70 73 20 61 73 20 77 65 |ed in Mo|ps as we|
|00002730| 20 64 6f 6e 27 74 20 68 | 61 76 65 20 76 6f 63 61 | don't h|ave voca|
|00002740| 62 75 6c 61 72 69 65 73 | 2e 0d 0d 0d 5c 20 50 72 |bularies|....\ Pr|
|00002750| 69 76 61 74 65 3a 0d 5c | 20 20 20 20 20 20 20 20 |ivate:.\| |
|00002760| 20 20 77 69 6c 6c 20 61 | 64 64 20 48 49 44 44 45 | will a|dd HIDDE|
|00002770| 4e 20 74 6f 20 74 68 65 | 20 73 65 61 72 63 68 20 |N to the| search |
|00002780| 6f 72 64 65 72 20 61 6e | 64 20 6d 61 6b 65 20 48 |order an|d make H|
|00002790| 49 44 44 45 4e 0d 5c 20 | 20 20 20 20 20 20 20 20 |IDDEN.\ | |
|000027a0| 20 74 68 65 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e | the com|pilation|
|000027b0| 20 77 6f 72 64 6c 69 73 | 74 2e 20 20 57 6f 72 64 | wordlis|t. Word|
|000027c0| 73 20 64 65 66 69 6e 65 | 64 20 61 66 74 65 72 20 |s define|d after |
|000027d0| 74 68 69 73 20 77 69 6c | 6c 0d 5c 20 20 20 20 20 |this wil|l.\ |
|000027e0| 20 20 20 20 20 63 6f 6d | 70 69 6c 65 20 69 6e 74 | com|pile int|
|000027f0| 6f 20 74 68 65 20 48 49 | 44 44 45 4e 20 76 6f 63 |o the HI|DDEN voc|
|00002800| 61 62 75 6c 61 72 79 2e | 0d 5c 20 50 75 62 6c 69 |abulary.|.\ Publi|
|00002810| 63 3a 0d 5c 20 20 20 20 | 20 20 20 20 20 20 77 69 |c:.\ | wi|
|00002820| 6c 6c 20 72 65 73 74 6f | 72 65 20 74 68 65 20 63 |ll resto|re the c|
|00002830| 6f 6d 70 69 6c 61 74 69 | 6f 6e 20 77 6f 72 64 6c |ompilati|on wordl|
|00002840| 69 73 74 20 74 6f 20 77 | 68 61 74 20 69 74 20 77 |ist to w|hat it w|
|00002850| 61 73 20 62 65 66 6f 72 | 65 0d 5c 20 20 20 20 20 |as befor|e.\ |
|00002860| 20 20 20 20 20 48 49 44 | 44 45 4e 20 67 6f 74 20 | HID|DEN got |
|00002870| 61 64 64 65 64 2c 20 69 | 74 20 77 69 6c 6c 20 6c |added, i|t will l|
|00002880| 65 61 76 65 20 48 49 44 | 44 45 4e 20 69 6e 20 74 |eave HID|DEN in t|
|00002890| 68 65 20 73 65 61 72 63 | 68 20 6f 72 64 65 72 0d |he searc|h order.|
|000028a0| 5c 20 20 20 20 20 20 20 | 20 20 20 69 66 20 69 74 |\ | if it|
|000028b0| 20 77 61 73 20 61 6c 72 | 65 61 64 79 20 74 68 65 | was alr|eady the|
|000028c0| 72 65 2e 20 20 20 57 6f | 72 64 73 20 64 65 66 69 |re. Wo|rds defi|
|000028d0| 6e 65 64 20 61 66 74 65 | 72 20 74 68 69 73 20 77 |ned afte|r this w|
|000028e0| 69 6c 6c 20 67 6f 0d 5c | 20 20 20 20 20 20 20 20 |ill go.\| |
|000028f0| 20 20 69 6e 74 6f 20 77 | 68 61 74 65 76 65 72 20 | into w|hatever |
|00002900| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 76 6f 63 |the orig|inal voc|
|00002910| 61 62 75 6c 61 72 79 20 | 77 61 73 2c 20 62 75 74 |abulary |was, but|
|00002920| 20 48 49 44 44 45 4e 20 | 77 6f 72 64 73 0d 5c 20 | HIDDEN |words.\ |
|00002930| 20 20 20 20 20 20 20 20 | 20 61 72 65 20 61 63 63 | | are acc|
|00002940| 65 73 73 61 62 6c 65 20 | 66 6f 72 20 63 6f 6d 70 |essable |for comp|
|00002950| 69 6c 61 74 69 6f 6e 2e | 0d 5c 20 52 65 73 65 74 |ilation.|.\ Reset|
|00002960| 5f 53 65 61 72 63 68 5f | 4f 72 64 65 72 0d 5c 20 |_Search_|Order.\ |
|00002970| 20 20 20 20 20 20 20 20 | 20 54 68 69 73 20 77 69 | | This wi|
|00002980| 6c 6c 20 72 65 73 74 6f | 72 65 20 74 68 65 20 63 |ll resto|re the c|
|00002990| 6f 6d 70 69 6c 61 74 69 | 6f 6e 20 77 6f 72 64 6c |ompilati|on wordl|
|000029a0| 69 73 74 20 61 6e 64 20 | 73 65 61 72 63 68 20 6f |ist and |search o|
|000029b0| 72 64 65 72 0d 5c 20 20 | 20 20 20 20 20 20 20 20 |rder.\ | |
|000029c0| 74 6f 20 77 68 61 74 20 | 74 68 65 79 20 77 65 72 |to what |they wer|
|000029d0| 65 20 62 65 66 6f 72 65 | 20 48 49 44 44 45 4e 20 |e before| HIDDEN |
|000029e0| 67 6f 74 20 61 64 64 65 | 64 2e 20 20 48 49 44 44 |got adde|d. HIDD|
|000029f0| 45 4e 20 77 6f 72 64 73 | 20 77 69 6c 6c 0d 5c 20 |EN words| will.\ |
|00002a00| 20 20 20 20 20 20 20 20 | 20 6e 6f 20 6c 6f 6e 67 | | no long|
|00002a10| 65 72 20 62 65 20 76 69 | 73 69 62 6c 65 2e 0d 0d |er be vi|sible...|
|00002a20| 5c 20 54 68 65 73 65 20 | 74 68 72 65 65 20 77 6f |\ These |three wo|
|00002a30| 72 64 73 20 63 61 6e 20 | 62 65 20 69 6e 76 6f 6b |rds can |be invok|
|00002a40| 65 64 20 69 6e 20 61 6e | 79 20 6f 72 64 65 72 2c |ed in an|y order,|
|00002a50| 20 6d 75 6c 74 69 70 6c | 65 20 74 69 6d 65 73 2c | multipl|e times,|
|00002a60| 20 69 6e 20 61 0d 5c 20 | 66 69 6c 65 2c 20 62 75 | in a.\ |file, bu|
|00002a70| 74 20 52 65 73 65 74 5f | 53 65 61 72 63 68 5f 4f |t Reset_|Search_O|
|00002a80| 72 64 65 72 20 73 68 6f | 75 6c 64 20 66 69 6e 61 |rder sho|uld fina|
|00002a90| 6c 6c 79 20 62 65 20 63 | 61 6c 6c 65 64 20 6c 61 |lly be c|alled la|
|00002aa0| 73 74 20 69 6e 20 6f 72 | 64 65 72 20 74 6f 0d 5c |st in or|der to.\|
|00002ab0| 20 72 65 73 74 6f 72 65 | 20 74 68 69 6e 67 73 20 | restore| things |
|00002ac0| 62 61 63 6b 20 74 6f 20 | 74 68 65 20 77 61 79 20 |back to |the way |
|00002ad0| 74 68 65 79 20 77 65 72 | 65 20 62 65 66 6f 72 65 |they wer|e before|
|00002ae0| 20 74 68 65 20 66 69 6c | 65 20 67 6f 74 20 6c 6f | the fil|e got lo|
|00002af0| 61 64 65 64 2e 0d 0d 5c | 20 57 41 52 4e 49 4e 47 |aded...\| WARNING|
|00002b00| 3a 20 79 6f 75 20 63 61 | 6e 20 70 72 6f 62 61 62 |: you ca|n probab|
|00002b10| 6c 79 20 62 72 65 61 6b | 20 74 68 69 73 20 63 6f |ly break| this co|
|00002b20| 64 65 20 62 79 20 73 65 | 74 74 69 6e 67 20 76 6f |de by se|tting vo|
|00002b30| 63 61 62 75 6c 61 72 69 | 65 73 20 77 68 69 6c 65 |cabulari|es while|
|00002b40| 0d 5c 20 20 20 20 20 20 | 20 20 20 20 50 75 62 6c |.\ | Publ|
|00002b50| 69 63 3a 20 6f 72 20 50 | 72 69 76 61 74 65 3a 20 |ic: or P|rivate: |
|00002b60| 61 72 65 20 73 74 69 6c | 6c 20 61 63 74 69 76 65 |are stil|l active|
|00002b70| 2e 0d 0d 5c 20 74 68 65 | 20 56 6f 63 61 62 75 6c |...\ the| Vocabul|
|00002b80| 61 72 79 20 48 49 44 44 | 45 4e 20 69 73 20 61 6c |ary HIDD|EN is al|
|00002b90| 72 65 61 64 79 20 64 65 | 66 69 6e 65 64 20 69 6e |ready de|fined in|
|00002ba0| 20 46 2d 50 43 0d 5c 20 | 56 6f 63 61 62 75 6c 61 | F-PC.\ |Vocabula|
|00002bb0| 72 79 20 48 49 44 44 45 | 4e 0d 76 61 72 69 61 62 |ry HIDDE|N.variab|
|00002bc0| 6c 65 20 48 49 44 44 45 | 4e 5f 53 45 54 20 20 20 |le HIDDE|N_SET |
|00002bd0| 20 20 20 20 20 48 49 44 | 44 45 4e 5f 53 45 54 20 | HID|DEN_SET |
|00002be0| 4f 66 66 0d 76 61 72 69 | 61 62 6c 65 20 50 72 69 |Off.vari|able Pri|
|00002bf0| 76 61 74 65 5f 55 73 65 | 64 20 20 20 20 20 20 50 |vate_Use|d P|
|00002c00| 72 69 76 61 74 65 5f 55 | 73 65 64 20 4f 66 66 0d |rivate_U|sed Off.|
|00002c10| 76 61 72 69 61 62 6c 65 | 20 4f 4c 44 5f 43 55 52 |variable| OLD_CUR|
|00002c20| 52 45 4e 54 20 20 20 20 | 20 20 20 30 20 4f 4c 44 |RENT | 0 OLD|
|00002c30| 5f 43 55 52 52 45 4e 54 | 20 21 0d 0d 5c 20 54 68 |_CURRENT| !..\ Th|
|00002c40| 65 73 65 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 20 |ese defi|nitions |
|00002c50| 6d 61 79 20 72 65 71 75 | 69 72 65 20 6d 6f 64 69 |may requ|ire modi|
|00002c60| 66 69 63 61 74 69 6f 6e | 20 66 6f 72 20 6e 6f 6e |fication| for non|
|00002c70| 20 46 2d 50 43 20 73 79 | 73 74 65 6d 73 2e 0d 3a | F-PC sy|stems..:|
|00002c80| 20 50 75 62 6c 69 63 3a | 20 28 20 2d 2d 20 29 0d | Public:| ( -- ).|
|00002c90| 20 20 20 20 20 20 20 20 | 20 48 49 44 44 45 4e 5f | | HIDDEN_|
|00002ca0| 53 45 54 20 40 20 49 46 | 20 48 49 44 44 45 4e 5f |SET @ IF| HIDDEN_|
|00002cb0| 53 45 54 20 4f 46 46 0d | 20 20 20 20 20 20 20 20 |SET OFF.| |
|00002cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002cd0| 20 50 52 45 56 49 4f 55 | 53 0d 20 20 20 20 20 20 | PREVIOU|S. |
|00002ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002cf0| 20 20 20 41 4c 53 4f 20 | 48 49 44 44 45 4e 0d 20 | ALSO |HIDDEN. |
|00002d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d10| 20 20 20 20 20 20 20 20 | 4f 4c 44 5f 43 55 52 52 | |OLD_CURR|
|00002d20| 45 4e 54 20 40 20 30 3d | 20 4e 4f 54 20 49 46 0d |ENT @ 0=| NOT IF.|
|00002d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4f 4c | | OL|
|00002d60| 44 5f 43 55 52 52 45 4e | 54 20 40 20 53 45 54 2d |D_CURREN|T @ SET-|
|00002d70| 43 55 52 52 45 4e 54 0d | 20 20 20 20 20 20 20 20 |CURRENT.| |
|00002d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002da0| 20 20 54 48 45 4e 0d 20 | 20 20 20 20 20 20 20 20 | THEN. | |
|00002db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 48 | | TH|
|00002dc0| 45 4e 0d 3b 0d 0d 3a 20 | 50 72 69 76 61 74 65 3a |EN.;..: |Private:|
|00002dd0| 20 28 20 2d 2d 20 29 0d | 20 20 20 20 20 20 20 20 | ( -- ).| |
|00002de0| 20 48 49 44 44 45 4e 5f | 53 45 54 20 40 20 30 3d | HIDDEN_|SET @ 0=|
|00002df0| 20 49 46 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | IF. | |
|00002e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e10| 48 49 44 44 45 4e 5f 53 | 45 54 20 4f 4e 0d 20 20 |HIDDEN_S|ET ON. |
|00002e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e30| 20 20 20 20 20 20 20 20 | 20 20 47 45 54 2d 43 55 | | GET-CU|
|00002e40| 52 52 45 4e 54 20 4f 4c | 44 5f 43 55 52 52 45 4e |RRENT OL|D_CURREN|
|00002e50| 54 20 21 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |T !. | |
|00002e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e70| 50 72 69 76 61 74 65 5f | 55 73 65 64 20 40 20 49 |Private_|Used @ I|
|00002e80| 46 20 50 52 45 56 49 4f | 55 53 20 54 48 45 4e 0d |F PREVIO|US THEN.|
|00002e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 4c 53 4f | | ALSO|
|00002eb0| 20 48 49 44 44 45 4e 20 | 44 45 46 49 4e 49 54 49 | HIDDEN |DEFINITI|
|00002ec0| 4f 4e 53 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ONS. | |
|00002ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ee0| 50 72 69 76 61 74 65 5f | 55 73 65 64 20 4f 6e 0d |Private_|Used On.|
|00002ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f00| 20 20 20 20 20 20 20 20 | 20 20 54 48 45 4e 0d 3b | | THEN.;|
|00002f10| 0d 0d 3a 20 52 65 73 65 | 74 5f 53 65 61 72 63 68 |..: Rese|t_Search|
|00002f20| 5f 4f 72 64 65 72 20 28 | 20 2d 2d 20 29 20 20 20 |_Order (| -- ) |
|00002f30| 20 20 20 20 20 20 5c 20 | 69 6e 76 6f 6b 65 20 77 | \ |invoke w|
|00002f40| 68 65 6e 20 74 68 65 72 | 65 20 77 69 6c 6c 20 62 |hen ther|e will b|
|00002f50| 65 20 6e 6f 20 6d 6f 72 | 65 0d 20 20 20 20 20 20 |e no mor|e. |
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 20 | | \ |
|00002f80| 6d 75 63 6b 69 6e 67 20 | 77 69 74 68 20 76 6f 63 |mucking |with voc|
|00002f90| 61 62 75 6c 61 72 69 65 | 73 20 69 6e 20 61 20 66 |abularie|s in a f|
|00002fa0| 69 6c 65 0d 20 20 20 20 | 20 20 20 20 20 48 49 44 |ile. | HID|
|00002fb0| 44 45 4e 5f 53 45 54 20 | 40 20 49 46 20 50 75 62 |DEN_SET |@ IF Pub|
|00002fc0| 6c 69 63 3a 20 54 48 45 | 4e 0d 20 20 20 20 20 20 |lic: THE|N. |
|00002fd0| 20 20 20 50 52 45 56 49 | 4f 55 53 0d 20 20 20 20 | PREVI|OUS. |
|00002fe0| 20 20 20 20 20 50 72 69 | 76 61 74 65 5f 55 73 65 | Pri|vate_Use|
|00002ff0| 64 20 4f 66 66 0d 20 20 | 20 20 20 20 20 20 20 30 |d Off. | 0|
|00003000| 20 4f 4c 44 5f 43 55 52 | 52 45 4e 54 20 21 0d 3b | OLD_CUR|RENT !.;|
|00003010| 0d 0d 2a 2a 2a 2a 2a 20 | 2a 29 0d 0d 5c 20 20 43 |..***** |*)..\ C|
|00003020| 6f 64 65 20 66 6f 72 20 | 6c 6f 63 61 6c 20 66 76 |ode for |local fv|
|00003030| 61 72 69 61 62 6c 65 73 | 2c 20 6c 6f 6f 73 65 6c |ariables|, loosel|
|00003040| 79 20 62 61 73 65 64 20 | 75 70 6f 6e 20 57 69 6c |y based |upon Wil|
|00003050| 20 42 61 64 65 6e 27 73 | 20 69 64 65 61 20 70 72 | Baden's| idea pr|
|00003060| 65 73 65 6e 74 65 64 0d | 5c 20 20 61 74 20 46 4f |esented.|\ at FO|
|00003070| 52 4d 4c 20 31 39 39 32 | 2e 0d 5c 20 20 54 68 65 |RML 1992|..\ The|
|00003080| 20 69 64 65 61 20 69 73 | 20 74 6f 20 68 61 76 65 | idea is| to have|
|00003090| 20 61 20 66 69 78 65 64 | 20 6e 75 6d 62 65 72 20 | a fixed| number |
|000030a0| 6f 66 20 76 61 72 69 61 | 62 6c 65 73 20 77 69 74 |of varia|bles wit|
|000030b0| 68 20 66 69 78 65 64 20 | 6e 61 6d 65 73 2e 0d 5c |h fixed |names..\|
|000030c0| 20 20 49 20 62 65 6c 69 | 65 76 65 20 74 68 65 20 | I beli|eve the |
|000030d0| 63 6f 64 65 20 73 68 6f | 77 6e 20 68 65 72 65 20 |code sho|wn here |
|000030e0| 77 69 6c 6c 20 77 6f 72 | 6b 20 77 69 74 68 20 61 |will wor|k with a|
|000030f0| 6e 79 2c 20 63 61 73 65 | 20 69 6e 73 65 6e 73 69 |ny, case| insensi|
|00003100| 74 69 76 65 2c 0d 5c 20 | 20 41 4e 53 20 46 6f 72 |tive,.\ | ANS For|
|00003110| 74 68 2e 0d 0d 5c 20 20 | 69 2f 74 46 6f 72 74 68 |th...\ |i/tForth|
|00003120| 20 75 73 65 72 73 20 61 | 72 65 20 61 64 76 69 73 | users a|re advis|
|00003130| 65 64 20 74 6f 20 75 73 | 65 20 46 4c 4f 43 41 4c |ed to us|e FLOCAL|
|00003140| 53 7c 20 69 6e 73 74 65 | 61 64 2e 0d 0d 5c 20 20 |S| inste|ad...\ |
|00003150| 65 78 61 6d 70 6c 65 3a | 20 20 3a 20 74 65 73 74 |example:| : test|
|00003160| 20 20 32 65 20 33 65 20 | 46 52 41 4d 45 7c 20 61 | 2e 3e |FRAME| a|
|00003170| 20 62 20 7c 20 20 61 20 | 66 2e 20 62 20 66 2e 20 | b | a |f. b f. |
|00003180| 7c 46 52 41 4d 45 20 3b | 0d 5c 20 20 20 20 20 20 ||FRAME ;|.\ |
|00003190| 20 20 20 20 20 20 74 65 | 73 74 20 3c 63 72 3e 20 | te|st <cr> |
|000031a0| 33 2e 30 30 30 30 20 32 | 2e 30 30 30 30 20 6f 6b |3.0000 2|.0000 ok|
|000031b0| 0d 0d 5c 20 20 50 53 3a | 20 44 6f 6e 27 74 20 66 |..\ PS:| Don't f|
|000031c0| 6f 72 67 65 74 20 74 6f | 20 75 73 65 20 7c 46 52 |orget to| use |FR|
|000031d0| 41 4d 45 20 62 65 66 6f | 72 65 20 61 6e 20 45 58 |AME befo|re an EX|
|000031e0| 49 54 20 2e 0d 0d 0d 38 | 20 43 4f 4e 53 54 41 4e |IT ....8| CONSTAN|
|000031f0| 54 20 2f 66 6c 6f 63 61 | 6c 73 0d 0d 3a 20 28 66 |T /floca|ls..: (f|
|00003200| 72 61 6d 65 29 20 28 20 | 6e 20 2d 2d 20 29 20 46 |rame) ( |n -- ) F|
|00003210| 4c 4f 41 54 53 20 41 4c | 4c 4f 54 20 3b 0d 0d 3a |LOATS AL|LOT ;..:|
|00003220| 20 46 52 41 4d 45 7c 0d | 20 20 20 20 20 20 20 20 | FRAME|.| |
|00003230| 30 20 3e 52 0d 20 20 20 | 20 20 20 20 20 42 45 47 |0 >R. | BEG|
|00003240| 49 4e 20 20 20 42 4c 20 | 57 4f 52 44 20 20 43 4f |IN BL |WORD CO|
|00003250| 55 4e 54 20 20 31 20 3d | 0d 20 20 20 20 20 20 20 |UNT 1 =|. |
|00003260| 20 20 20 20 20 20 20 20 | 20 53 57 41 50 20 43 40 | | SWAP C@|
|00003270| 20 20 5b 43 48 41 52 5d | 20 7c 20 3d 0d 20 20 20 | [CHAR]| | =. |
|00003280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 4e 44 | | AND|
|00003290| 20 30 3d 0d 20 20 20 20 | 20 20 20 20 57 48 49 4c | 0=. | WHIL|
|000032a0| 45 20 20 20 50 4f 53 54 | 50 4f 4e 45 20 46 2c 20 |E POST|PONE F, |
|000032b0| 20 52 3e 20 31 2b 20 3e | 52 0d 20 20 20 20 20 20 | R> 1+ >|R. |
|000032c0| 20 20 52 45 50 45 41 54 | 0d 20 20 20 20 20 20 20 | REPEAT|. |
|000032d0| 20 2f 46 4c 4f 43 41 4c | 53 20 52 3e 20 2d 20 44 | /FLOCAL|S R> - D|
|000032e0| 55 50 20 30 3c 20 41 42 | 4f 52 54 22 20 74 6f 6f |UP 0< AB|ORT" too|
|000032f0| 20 6d 61 6e 79 20 66 6c | 6f 63 61 6c 73 22 0d 20 | many fl|ocals". |
|00003300| 20 20 20 20 20 20 20 50 | 4f 53 54 50 4f 4e 45 20 | P|OSTPONE |
|00003310| 4c 49 54 45 52 41 4c 20 | 20 50 4f 53 54 50 4f 4e |LITERAL | POSTPON|
|00003320| 45 20 28 66 72 61 6d 65 | 29 20 3b 20 49 4d 4d 45 |E (frame|) ; IMME|
|00003330| 44 49 41 54 45 0d 0d 3a | 20 7c 46 52 41 4d 45 20 |DIATE..:| |FRAME |
|00003340| 28 20 2d 2d 20 29 20 5b | 20 2f 46 4c 4f 43 41 4c |( -- ) [| /FLOCAL|
|00003350| 53 20 4e 45 47 41 54 45 | 20 5d 20 4c 49 54 45 52 |S NEGATE| ] LITER|
|00003360| 41 4c 20 28 46 52 41 4d | 45 29 20 3b 0d 0d 3a 20 |AL (FRAM|E) ;..: |
|00003370| 26 68 20 20 20 20 20 20 | 20 20 20 20 20 20 48 45 |&h | HE|
|00003380| 52 45 20 5b 20 31 20 46 | 4c 4f 41 54 53 20 5d 20 |RE [ 1 F|LOATS ] |
|00003390| 4c 49 54 45 52 41 4c 20 | 2d 20 3b 0d 3a 20 26 67 |LITERAL |- ;.: &g|
|000033a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 48 45 52 45 | | HERE|
|000033b0| 20 5b 20 32 20 46 4c 4f | 41 54 53 20 5d 20 4c 49 | [ 2 FLO|ATS ] LI|
|000033c0| 54 45 52 41 4c 20 2d 20 | 3b 0d 3a 20 26 66 20 20 |TERAL - |;.: &f |
|000033d0| 20 20 20 20 20 20 20 20 | 20 20 48 45 52 45 20 5b | | HERE [|
|000033e0| 20 33 20 46 4c 4f 41 54 | 53 20 5d 20 4c 49 54 45 | 3 FLOAT|S ] LITE|
|000033f0| 52 41 4c 20 2d 20 3b 0d | 3a 20 26 65 20 20 20 20 |RAL - ;.|: &e |
|00003400| 20 20 20 20 20 20 20 20 | 48 45 52 45 20 5b 20 34 | |HERE [ 4|
|00003410| 20 46 4c 4f 41 54 53 20 | 5d 20 4c 49 54 45 52 41 | FLOATS |] LITERA|
|00003420| 4c 20 2d 20 3b 0d 3a 20 | 26 64 20 20 20 20 20 20 |L - ;.: |&d |
|00003430| 20 20 20 20 20 20 48 45 | 52 45 20 5b 20 35 20 46 | HE|RE [ 5 F|
|00003440| 4c 4f 41 54 53 20 5d 20 | 4c 49 54 45 52 41 4c 20 |LOATS ] |LITERAL |
|00003450| 2d 20 3b 0d 3a 20 26 63 | 20 20 20 20 20 20 20 20 |- ;.: &c| |
|00003460| 20 20 20 20 48 45 52 45 | 20 5b 20 36 20 46 4c 4f | HERE| [ 6 FLO|
|00003470| 41 54 53 20 5d 20 4c 49 | 54 45 52 41 4c 20 2d 20 |ATS ] LI|TERAL - |
|00003480| 3b 0d 3a 20 26 62 20 20 | 20 20 20 20 20 20 20 20 |;.: &b | |
|00003490| 20 20 48 45 52 45 20 5b | 20 37 20 46 4c 4f 41 54 | HERE [| 7 FLOAT|
|000034a0| 53 20 5d 20 4c 49 54 45 | 52 41 4c 20 2d 20 3b 0d |S ] LITE|RAL - ;.|
|000034b0| 3a 20 26 61 20 20 20 20 | 20 20 20 20 20 20 20 20 |: &a | |
|000034c0| 48 45 52 45 20 5b 20 38 | 20 46 4c 4f 41 54 53 20 |HERE [ 8| FLOATS |
|000034d0| 5d 20 4c 49 54 45 52 41 | 4c 20 2d 20 3b 0d 0d 3a |] LITERA|L - ;..:|
|000034e0| 20 61 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 | a | &|
|000034f0| 61 20 46 40 20 3b 0d 3a | 20 62 20 20 20 20 20 20 |a F@ ;.:| b |
|00003500| 20 20 20 20 20 20 20 26 | 62 20 46 40 20 3b 0d 3a | &|b F@ ;.:|
|00003510| 20 63 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 | c | &|
|00003520| 63 20 46 40 20 3b 0d 3a | 20 64 20 20 20 20 20 20 |c F@ ;.:| d |
|00003530| 20 20 20 20 20 20 20 26 | 64 20 46 40 20 3b 0d 3a | &|d F@ ;.:|
|00003540| 20 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 | e | &|
|00003550| 65 20 46 40 20 3b 0d 3a | 20 66 20 20 20 20 20 20 |e F@ ;.:| f |
|00003560| 20 20 20 20 20 20 20 26 | 66 20 46 40 20 3b 0d 3a | &|f F@ ;.:|
|00003570| 20 67 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 | g | &|
|00003580| 67 20 46 40 20 3b 0d 3a | 20 68 20 20 20 20 20 20 |g F@ ;.:| h |
|00003590| 20 20 20 20 20 20 20 26 | 68 20 46 40 20 3b 0d 0d | &|h F@ ;..|
|000035a0| 0d 0d 0d 3a 20 46 7e 20 | 20 20 20 20 46 52 41 4d |...: F~ | FRAM|
|000035b0| 45 7c 20 61 20 62 20 63 | 20 7c 0d 20 20 20 20 20 |E| a b c| |. |
|000035c0| 20 20 20 20 20 20 20 20 | 20 63 20 46 30 3d 20 49 | | c F0= I|
|000035d0| 46 20 61 20 62 20 3d 0d | 20 20 20 20 20 20 20 20 |F a b =.| |
|000035e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4c 53 45 | | ELSE|
|000035f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003600| 20 20 20 20 20 20 20 20 | 63 20 46 30 3c 20 49 46 | |c F0< IF|
|00003610| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003630| 61 20 46 41 42 53 20 62 | 20 46 41 42 53 20 46 2b |a FABS b| FABS F+|
|00003640| 20 63 20 46 41 42 53 20 | 46 2a 0d 20 20 20 20 20 | c FABS |F*. |
|00003650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003660| 20 20 20 20 20 20 20 20 | 20 20 61 20 62 20 46 2d | | a b F-|
|00003670| 20 46 41 42 53 0d 20 20 | 20 20 20 20 20 20 20 20 | FABS. | |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003690| 20 20 20 20 20 46 3c 0d | 20 20 20 20 20 20 20 20 | F<.| |
|000036a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036b0| 20 20 20 20 20 45 4c 53 | 45 0d 20 20 20 20 20 20 | ELS|E. |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036d0| 20 20 20 20 20 20 20 20 | 20 61 20 62 20 46 2d 20 | | a b F- |
|000036e0| 46 41 42 53 20 63 20 46 | 53 57 41 50 20 46 3c 0d |FABS c F|SWAP F<.|
|000036f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 54 48 45 | | THE|
|00003710| 4e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N. | |
|00003720| 20 20 20 20 20 20 54 48 | 45 4e 0d 0d 20 20 20 20 | TH|EN.. |
|00003730| 20 20 20 20 20 7c 46 52 | 41 4d 45 0d 3b 0d 0d 0d | |FR|AME.;...|
|00003740| 0d 0d 5c 20 69 66 20 79 | 6f 75 20 6e 65 65 64 20 |..\ if y|ou need |
|00003750| 4a 75 6c 69 61 6e 20 4e | 6f 62 6c 65 27 73 20 61 |Julian N|oble's a|
|00003760| 72 72 61 79 20 69 6d 70 | 6c 65 6d 65 6e 74 61 74 |rray imp|lementat|
|00003770| 69 6f 6e 2c 20 63 6f 6d | 6d 65 6e 74 20 6f 75 74 |ion, com|ment out|
|00003780| 20 74 68 65 20 65 6e 64 | 6c 6f 61 64 2e 0d 0d 65 | the end|load...e|
|00003790| 6e 64 6c 6f 61 64 0d 0d | 0d 5c 20 4e 6f 6e 20 53 |ndload..|.\ Non S|
|000037a0| 54 41 4e 44 41 52 44 20 | 77 6f 72 64 20 64 65 66 |TANDARD |word def|
|000037b0| 69 6e 69 74 69 6f 6e 73 | 3a 20 74 68 65 73 65 20 |initions|: these |
|000037c0| 61 73 73 75 6d 65 20 6e | 6f 20 6e 65 65 64 20 74 |assume n|o need t|
|000037d0| 6f 20 46 41 4c 49 47 4e | 20 66 6c 6f 61 74 69 6e |o FALIGN| floatin|
|000037e0| 67 0d 5c 20 20 20 20 20 | 70 6f 69 6e 74 20 76 61 |g.\ |point va|
|000037f0| 6c 75 65 73 2e 0d 0d 20 | 20 30 20 43 4f 4e 53 54 |lues... | 0 CONST|
|00003800| 41 4e 54 20 52 45 41 4c | 2a 34 0d 20 20 31 20 43 |ANT REAL|*4. 1 C|
|00003810| 4f 4e 53 54 41 4e 54 20 | 52 45 41 4c 2a 38 0d 20 |ONSTANT |REAL*8. |
|00003820| 20 32 20 43 4f 4e 53 54 | 41 4e 54 20 43 4f 4d 50 | 2 CONST|ANT COMP|
|00003830| 4c 45 58 0d 20 20 33 20 | 43 4f 4e 53 54 41 4e 54 |LEX. 3 |CONSTANT|
|00003840| 20 44 43 4f 4d 50 4c 45 | 58 0d 0d 20 20 43 52 45 | DCOMPLE|X.. CRE|
|00003850| 41 54 45 20 4c 45 4e 5f | 54 41 42 20 20 31 20 63 |ATE LEN_|TAB 1 c|
|00003860| 2c 20 32 20 63 2c 20 32 | 20 63 2c 20 34 20 63 2c |, 2 c, 2| c, 4 c,|
|00003870| 0d 20 20 3a 20 23 43 45 | 4c 4c 53 20 20 20 28 20 |. : #CE|LLS ( |
|00003880| 6e 20 2d 2d 20 23 62 29 | 20 20 20 4c 45 4e 5f 54 |n -- #b)| LEN_T|
|00003890| 41 42 20 20 2b 20 20 63 | 40 20 20 3b 0d 0d 0d 5c |AB + c|@ ;...\|
|000038a0| 20 31 2d 64 69 6d 20 61 | 72 72 61 79 3a 20 20 41 | 1-dim a|rray: A|
|000038b0| 7b 20 49 20 7d 20 6c 65 | 61 76 65 73 20 61 64 64 |{ I } le|aves add|
|000038c0| 72 65 73 73 20 6f 66 20 | 69 27 74 68 20 65 6c 74 |ress of |i'th elt|
|000038d0| 20 6f 66 20 76 65 63 74 | 6f 72 20 41 7b 0d 20 20 | of vect|or A{. |
|000038e0| 3a 20 31 41 52 52 41 59 | 20 20 20 28 20 6c 65 6e |: 1ARRAY| ( len|
|000038f0| 67 74 68 20 63 65 6c 6c | 73 2f 66 6c 6f 61 74 20 |gth cell|s/float |
|00003900| 2d 2d 29 20 20 43 52 45 | 41 54 45 20 20 20 44 55 |--) CRE|ATE DU|
|00003910| 50 20 20 2c 20 20 2a 20 | 20 41 4c 4c 4f 54 20 20 |P , * | ALLOT |
|00003920| 3b 0d 20 20 3a 20 7d 20 | 20 20 28 20 78 5b 30 5d |;. : } | ( x[0]|
|00003930| 20 6e 20 20 2d 2d 20 78 | 5b 6e 5d 29 20 20 20 4f | n -- x|[n]) O|
|00003940| 56 45 52 20 40 20 20 2a | 20 20 31 2b 20 20 43 45 |VER @ *| 1+ CE|
|00003950| 4c 4c 53 20 20 2b 20 20 | 20 3b 0d 00 00 00 00 00 |LLS + | ;......|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00003990| 6f 6d 65 20 74 6f 20 61 | 70 70 72 65 63 69 61 74 |ome to a|ppreciat|
|000039a0| 65 20 74 68 65 20 75 73 | 65 66 75 6c 6e 65 73 73 |e the us|efulness|
|000039b0| 0d 66 73 6c 5f 75 74 69 | 6c 2e 6d 6f 70 73 02 00 |.fsl_uti|l.mops..|
|000039c0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000039d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 00 b3 66 c2 71 00 00 | 00 00 00 00 01 7d 73 20 |...f.q..|.....}s |
|00003a00| 63 6f 6d 65 20 75 70 2c | 20 79 6f 75 27 6c 6c 0d |come up,| you'll.|
|00003a10| 67 65 74 20 61 20 6d 65 | 73 73 61 67 65 20 73 61 |get a me|ssage sa|
|00003a20| 79 69 6e 67 20 74 68 61 | 74 20 69 6e 74 65 72 69 |ying tha|t interi|
|00003a30| 6d 2e 64 69 63 20 68 61 | 73 20 62 65 65 6e 20 73 |m.dic ha|s been s|
|00003a40| 61 76 65 64 2c 20 61 6e | 64 20 74 68 65 20 22 3e |aved, an|d the ">|
|00003a50| 22 20 70 72 6f 6d 70 74 | 0d 61 67 61 69 6e 2e 0d |" prompt|.again..|
|00003a60| 0d 69 6e 74 65 72 69 6d | 2e 64 69 63 20 69 73 20 |.interim|.dic is |
|00003a70| 74 68 65 20 70 61 72 74 | 69 61 6c 20 64 69 63 74 |the part|ial dict|
|00003a80| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00003a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 de |........|........|
|00003ab0| 00 00 00 de 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ac0| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00003ad0| 00 3b 02 7e 6f 28 24 5c | 00 00 00 1c 00 32 00 00 |.;.~o($\|.....2..|
|00003ae0| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00003af0| 02 7e 76 6c 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.~vl.Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+
