Artifact 8ccbe0e1132118726e754238ed1ff9dd8b58066a:
File rxe.retro part of check-in [30b3b10062] - Better messages for requesting file names; automatically load extensions by charleschilders on 2010-06-06 15:26:16. [annotate]
0000: 28 20 52 65 74 72 6f 20 45 78 70 65 72 69 6d 65 ( Retro Experime
0010: 6e 74 61 6c 20 45 64 69 74 6f 72 20 7e 7e 7e 7e ntal Editor ~~~~
0020: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0030: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a ~~~~~~~~~~~~~ ).
0040: 28 20 54 68 69 73 20 69 73 20 61 20 72 65 70 6c ( This is a repl
0050: 61 63 65 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 acement for the
0060: 52 45 44 2f 52 45 4d 20 65 64 69 74 6f 72 73 20 RED/REM editors
0070: 75 73 65 64 20 69 6e 20 70 61 73 74 20 20 29 0a used in past ).
0080: 28 20 72 65 6c 65 61 73 65 73 20 6f 66 20 52 65 ( releases of Re
0090: 74 72 6f 2e 20 20 20 20 20 20 20 20 20 20 20 20 tro.
00a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
00c0: 28 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ( ~~~~~~~~~~~~~~
00d0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
00e0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
00f0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a ~~~~~~~~~~~~~ ).
0100: 28 20 4b 65 79 20 20 20 20 20 41 63 74 69 6f 6e ( Key Action
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0140: 28 20 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d ( --- ------
0150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 29 0a ----------- ).
0180: 28 20 20 69 20 20 20 20 20 20 4d 6f 76 65 20 63 ( i Move c
0190: 75 72 73 6f 72 20 75 70 20 20 20 20 20 20 20 20 ursor up
01a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
01c0: 28 20 20 6a 20 20 20 20 20 20 4d 6f 76 65 20 63 ( j Move c
01d0: 75 72 73 6f 72 20 6c 65 66 74 20 20 20 20 20 20 ursor left
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0200: 28 20 20 6b 20 20 20 20 20 20 4d 6f 76 65 20 63 ( k Move c
0210: 75 72 73 6f 72 20 72 69 67 68 74 20 20 20 20 20 ursor right
0220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0240: 28 20 20 6c 20 20 20 20 20 20 4d 6f 76 65 20 63 ( l Move c
0250: 75 72 73 6f 72 20 64 6f 77 6e 20 20 20 20 20 20 ursor down
0260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0280: 28 20 20 5b 20 20 20 20 20 20 53 77 69 74 63 68 ( [ Switch
0290: 20 74 6f 20 70 72 65 76 69 6f 75 73 20 62 6c 6f to previous blo
02a0: 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ck
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
02c0: 28 20 20 5d 20 20 20 20 20 20 53 77 69 74 63 68 ( ] Switch
02d0: 20 74 6f 20 6e 65 78 74 20 62 6c 6f 63 6b 20 20 to next block
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0300: 28 20 20 65 20 20 20 20 20 20 45 76 61 6c 75 61 ( e Evalua
0310: 74 65 20 63 75 72 72 65 6e 74 20 62 6c 6f 63 6b te current block
0320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0340: 28 20 20 45 20 20 20 20 20 20 45 76 61 6c 75 61 ( E Evalua
0350: 74 65 20 61 6c 6c 20 62 6c 6f 63 6b 73 20 20 20 te all blocks
0360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0380: 28 20 20 6d 20 20 20 20 20 20 4d 6f 76 65 20 63 ( m Move c
0390: 75 72 73 6f 72 20 74 6f 20 73 74 61 72 74 20 6f ursor to start o
03a0: 66 20 6e 65 78 74 20 6c 69 6e 65 20 20 20 20 20 f next line
03b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
03c0: 28 20 20 49 20 20 20 20 20 20 4d 6f 76 65 20 63 ( I Move c
03d0: 75 72 73 6f 72 20 74 6f 20 74 6f 70 20 6c 69 6e ursor to top lin
03e0: 65 20 6f 66 20 62 6c 6f 63 6b 20 20 20 20 20 20 e of block
03f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0400: 28 20 20 4a 20 20 20 20 20 20 4d 6f 76 65 20 63 ( J Move c
0410: 75 72 73 6f 72 20 74 6f 20 73 74 61 72 74 20 6f ursor to start o
0420: 66 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 20 f current line
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0440: 28 20 20 4b 20 20 20 20 20 20 4d 6f 76 65 20 63 ( K Move c
0450: 75 72 73 6f 72 20 74 6f 20 6c 61 73 74 20 6c 69 ursor to last li
0460: 6e 65 20 6f 66 20 62 6c 6f 63 6b 20 20 20 20 20 ne of block
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0480: 28 20 20 4c 20 20 20 20 20 20 4d 6f 76 65 20 63 ( L Move c
0490: 75 72 73 6f 72 20 74 6f 20 65 6e 64 20 6f 66 20 ursor to end of
04a0: 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 20 20 20 current line
04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
04c0: 28 20 20 4d 20 20 20 20 20 20 43 65 6e 74 65 72 ( M Center
04d0: 20 63 75 72 73 6f 72 20 6f 6e 20 63 75 72 72 65 cursor on curre
04e0: 6e 74 20 6c 69 6e 65 20 20 20 20 20 20 20 20 20 nt line
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0500: 28 20 20 7a 20 20 20 20 20 20 45 78 69 74 20 52 ( z Exit R
0510: 78 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 xE
0520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0540: 28 20 20 7b 20 20 20 20 20 20 45 78 70 6f 72 74 ( { Export
0550: 20 63 75 72 72 65 6e 74 20 62 6c 6f 63 6b 20 20 current block
0560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0580: 28 20 20 7d 20 20 20 20 20 20 49 6d 70 6f 72 74 ( } Import
0590: 20 61 20 73 61 76 65 64 20 62 6c 6f 63 6b 20 69 a saved block i
05a0: 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 nto the current
05b0: 62 6c 6f 63 6b 20 20 20 20 20 20 20 20 20 29 0a block ).
05c0: 28 20 20 7c 20 20 20 20 20 20 49 6d 70 6f 72 74 ( | Import
05d0: 20 61 6e 20 38 2d 6c 69 6e 65 20 74 65 78 74 20 an 8-line text
05e0: 66 69 6c 65 20 69 6e 74 6f 20 74 68 65 20 63 75 file into the cu
05f0: 72 72 65 6e 74 20 62 6c 6f 63 6b 20 20 20 29 0a rrent block ).
0600: 28 20 20 20 20 20 20 20 20 20 2a 2a 20 69 66 20 ( ** if
0610: 74 68 65 20 6c 69 6e 65 73 20 61 72 65 20 3e 20 the lines are >
0620: 36 34 20 63 68 61 72 73 2c 20 79 6f 75 20 6d 61 64 chars, you ma
0630: 79 20 6f 76 65 72 77 72 69 74 65 20 20 20 29 0a y overwrite ).
0640: 28 20 20 20 20 20 20 20 20 20 2a 2a 20 70 61 72 ( ** par
0650: 74 73 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 ts of the follow
0660: 69 6e 67 20 62 6c 6f 63 6b 2e 20 55 73 65 20 77 ing block. Use w
0670: 69 74 68 20 63 61 75 74 69 6f 6e 2e 20 20 29 0a ith caution. ).
0680: 28 20 54 41 42 20 20 20 20 20 53 77 69 74 63 68 ( TAB Switch
0690: 20 62 65 74 77 65 65 6e 20 65 64 69 74 20 61 6e between edit an
06a0: 64 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 20 20 d command mode
06b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
06c0: 28 20 45 53 43 20 20 20 20 20 53 77 69 74 63 68 ( ESC Switch
06d0: 20 62 65 74 77 65 65 6e 20 65 64 69 74 20 61 6e between edit an
06e0: 64 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 20 20 d command mode
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0700: 28 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ( ~~~~~~~~~~~~~~
0710: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0720: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0730: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a ~~~~~~~~~~~~~ ).
0740: 0a 26 63 6f 6e 73 6f 6c 65 20 6f 70 65 6e 0a 26 .&console open.&
0750: 66 69 6c 65 73 20 6f 70 65 6e 0a 0a 76 6f 63 61 files open..voca
0760: 62 20 72 78 65 3a 3a 63 6f 72 65 0a 28 28 0a 28 b rxe::core.((.(
0770: 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~
0780: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0790: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
07a0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a 20 ~~~~~~~~~~~~ ).
07b0: 20 33 20 65 6c 65 6d 65 6e 74 73 20 23 2d 62 6c 3 elements #-bl
07c0: 6f 63 6b 73 20 6f 66 66 73 65 74 20 62 6c 6b 0a ocks offset blk.
07d0: 20 20 3a 20 62 6c 6f 63 6b 20 20 20 20 20 35 31 : block 51
07e0: 32 20 2a 20 40 6f 66 66 73 65 74 20 2b 20 3b 0a 2 * @offset + ;.
07f0: 20 20 3a 20 28 62 6c 6f 63 6b 29 20 20 20 40 62 : (block) @b
0800: 6c 6b 20 62 6c 6f 63 6b 20 3b 0a 20 20 3a 20 28 lk block ;. : (
0810: 6c 69 6e 65 29 20 20 20 20 36 34 20 2a 20 28 62 line) 64 * (b
0820: 6c 6f 63 6b 29 20 2b 20 3b 0a 0a 20 20 7b 7b 0a lock) + ;.. {{.
0830: 20 20 20 20 3a 20 3c 7c 3e 20 20 20 20 20 72 65 : <|> re
0840: 64 20 27 7c 20 65 6d 69 74 20 3b 0a 20 20 20 20 d '| emit ;.
0850: 3a 20 3c 2b 3e 20 20 20 20 20 72 65 64 20 27 2b : <+> red '+
0860: 20 65 6d 69 74 20 3b 0a 20 20 20 20 3a 20 74 79 emit ;. : ty
0870: 70 65 20 20 20 20 66 6f 72 20 40 2b 20 65 6d 69 pe for @+ emi
0880: 74 20 6e 65 78 74 20 64 72 6f 70 20 3b 0a 20 20 t next drop ;.
0890: 20 20 3a 20 72 6f 77 73 20 20 20 20 38 20 66 6f : rows 8 fo
08a0: 72 20 3c 7c 3e 20 64 75 70 20 36 34 20 63 79 61 r <|> dup 64 cya
08b0: 6e 20 74 79 70 65 20 36 34 20 2b 20 3c 7c 3e 20 n type 64 + <|>
08c0: 63 72 20 6e 65 78 74 20 3b 0a 20 20 20 20 3a 20 cr next ;. :
08d0: 2e 62 6c 6f 63 6b 20 20 73 70 61 63 65 20 2e 22 .block space ."
08e0: 20 23 22 20 40 62 6c 6b 20 2e 20 63 72 20 3b 0a #" @blk . cr ;.
08f0: 20 20 20 20 3a 20 62 61 72 20 20 20 20 20 72 65 : bar re
0900: 64 20 3c 2b 3e 20 36 34 20 66 6f 72 20 27 2d 20 d <+> 64 for '-
0910: 65 6d 69 74 20 6e 65 78 74 20 3c 2b 3e 20 3b 0a emit next <+> ;.
0920: 20 20 20 20 3a 20 76 62 20 20 20 20 20 20 62 61 : vb ba
0930: 72 20 63 72 20 40 62 6c 6b 20 62 6c 6f 63 6b 20 r cr @blk block
0940: 72 6f 77 73 20 64 72 6f 70 20 62 61 72 20 79 65 rows drop bar ye
0950: 6c 6c 6f 77 20 2e 62 6c 6f 63 6b 20 77 68 69 74 llow .block whit
0960: 65 20 3b 0a 20 20 2d 2d 2d 72 65 76 65 61 6c 2d e ;. ---reveal-
0970: 2d 2d 0a 20 20 20 20 3a 20 28 76 29 20 28 20 2d --. : (v) ( -
0980: 20 29 20 20 68 6f 6d 65 20 76 62 20 3b 0a 20 20 ) home vb ;.
0990: 20 20 3a 20 6e 65 77 20 28 20 2d 20 29 20 20 6f : new ( - ) o
09a0: 66 66 73 65 74 20 40 20 33 32 20 35 31 32 20 23 ffset @ 32 512 #
09b0: 2d 62 6c 6f 63 6b 73 20 40 20 2a 20 66 69 6c 6c -blocks @ * fill
09c0: 20 3b 0a 20 20 20 20 3a 20 65 20 20 20 28 20 2d ;. : e ( -
09d0: 20 29 20 20 28 62 6c 6f 63 6b 29 20 35 31 32 20 ) (block) 512
09e0: 65 76 61 6c 20 3b 0a 20 20 20 20 3a 20 65 61 20 eval ;. : ea
09f0: 20 28 20 2d 20 29 20 20 40 6f 66 66 73 65 74 20 ( - ) @offset
0a00: 40 23 2d 62 6c 6f 63 6b 73 20 35 31 32 20 2a 20 @#-blocks 512 *
0a10: 65 76 61 6c 20 3b 0a 20 20 20 20 3a 20 73 65 74 eval ;. : set
0a20: 2d 62 6c 6f 63 6b 73 20 28 20 6e 2d 20 29 0a 20 -blocks ( n- ).
0a30: 20 20 20 20 20 68 65 72 65 20 21 6f 66 66 73 65 here !offse
0a40: 74 20 64 75 70 20 21 23 2d 62 6c 6f 63 6b 73 20 t dup !#-blocks
0a50: 35 31 32 20 2a 20 61 6c 6c 6f 74 20 3b 0a 20 20 512 * allot ;.
0a60: 7d 7d 0a 20 20 31 32 38 20 73 65 74 2d 62 6c 6f }}. 128 set-blo
0a70: 63 6b 73 20 6e 65 77 0a 28 20 7e 7e 7e 7e 7e 7e cks new.( ~~~~~~
0a80: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0a90: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0aa0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0ab0: 7e 7e 7e 7e 7e 20 29 0a 20 20 33 20 65 6c 65 6d ~~~~~ ). 3 elem
0ac0: 65 6e 74 73 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e ents line column
0ad0: 20 6d 6f 64 65 0a 0a 20 20 73 74 75 62 20 72 78 mode.. stub rx
0ae0: 65 2e 64 69 73 70 6c 61 79 0a 20 20 73 74 75 62 e.display. stub
0af0: 20 72 78 65 2e 69 6e 0a 20 20 3a 20 72 78 65 2e rxe.in. : rxe.
0b00: 6b 65 79 20 6b 65 79 20 3b 0a 20 20 3a 20 72 78 key key ;. : rx
0b10: 65 2e 77 72 69 74 65 20 21 20 3b 0a 0a 20 20 28 e.write ! ;.. (
0b20: 20 44 69 73 70 6c 61 79 20 62 6c 6f 63 6b 2c 20 Display block,
0b30: 77 69 74 68 20 63 75 72 73 6f 72 20 29 0a 20 20 with cursor ).
0b40: 3a 20 70 6f 73 20 20 28 20 2d 63 6c 29 20 20 40 : pos ( -cl) @
0b50: 63 6f 6c 75 6d 6e 20 40 6c 69 6e 65 20 3b 0a 20 column @line ;.
0b60: 20 3a 20 67 65 74 20 20 28 20 63 6c 2d 61 29 20 : get ( cl-a)
0b70: 28 6c 69 6e 65 29 20 2b 20 3b 0a 20 20 3a 20 76 (line) + ;. : v
0b80: 61 20 20 20 28 20 61 2d 76 61 29 20 64 75 70 20 a ( a-va) dup
0b90: 40 20 73 77 61 70 20 3b 0a 20 20 3a 20 63 21 20 @ swap ;. : c!
0ba0: 20 20 28 20 61 2d 29 20 20 20 27 2a 20 73 77 61 ( a-) '* swa
0bb0: 70 20 21 20 3b 0a 20 20 3a 20 73 68 6f 77 20 28 p ! ;. : show (
0bc0: 20 76 61 2d 20 29 20 64 75 70 20 63 21 20 28 76 va- ) dup c! (v
0bd0: 29 20 21 20 3b 0a 20 20 3a 20 69 6e 73 6d 6f 64 ) ! ;. : insmod
0be0: 65 20 40 6d 6f 64 65 20 69 66 20 2e 22 20 49 4e e @mode if ." IN
0bf0: 53 22 20 65 6c 73 65 20 2e 22 20 43 4d 44 22 20 S" else ." CMD"
0c00: 74 68 65 6e 20 63 72 20 3b 0a 20 20 3a 20 64 69 then cr ;. : di
0c10: 73 70 6c 61 79 20 28 20 2d 20 29 20 70 6f 73 20 splay ( - ) pos
0c20: 67 65 74 20 76 61 20 73 68 6f 77 20 69 6e 73 6d get va show insm
0c30: 6f 64 65 20 3b 0a 0a 20 20 28 20 42 6f 75 6e 64 ode ;.. ( Bound
0c40: 73 20 63 68 65 63 6b 69 6e 67 20 29 0a 20 20 3a s checking ). :
0c50: 20 74 6f 70 20 28 20 2d 20 29 20 20 30 20 21 6c top ( - ) 0 !l
0c60: 69 6e 65 20 3b 0a 20 20 3a 20 62 6f 74 20 28 20 ine ;. : bot (
0c70: 2d 20 29 20 20 37 20 21 6c 69 6e 65 20 3b 0a 20 - ) 7 !line ;.
0c80: 20 3a 20 62 65 67 20 28 20 2d 20 29 20 20 30 20 : beg ( - ) 0
0c90: 21 63 6f 6c 75 6d 6e 20 3b 0a 20 20 3a 20 65 6e !column ;. : en
0ca0: 64 20 28 20 2d 20 29 20 36 33 20 21 63 6f 6c 75 d ( - ) 63 !colu
0cb0: 6d 6e 20 3b 0a 20 20 3a 20 6d 69 64 20 28 20 2d mn ;. : mid ( -
0cc0: 20 29 20 33 31 20 21 63 6f 6c 75 6d 6e 20 3b 0a ) 31 !column ;.
0cd0: 20 20 3a 20 31 73 74 20 28 20 2d 20 29 20 20 30 : 1st ( - ) 0
0ce0: 20 21 62 6c 6b 20 3b 0a 20 20 3a 20 62 6f 75 6e !blk ;. : boun
0cf0: 64 73 20 28 20 2d 20 29 0a 20 20 20 20 40 63 6f ds ( - ). @co
0d00: 6c 75 6d 6e 20 2d 31 20 3d 69 66 20 65 6e 64 20 lumn -1 =if end
0d10: 6c 69 6e 65 20 2d 2d 20 74 68 65 6e 0a 20 20 20 line -- then.
0d20: 20 40 63 6f 6c 75 6d 6e 20 36 34 20 3d 69 66 20 @column 64 =if
0d30: 62 65 67 20 6c 69 6e 65 20 2b 2b 20 74 68 65 6e beg line ++ then
0d40: 0a 20 20 20 20 40 6c 69 6e 65 20 20 20 2d 31 20 . @line -1
0d50: 3d 69 66 20 74 6f 70 20 62 6c 6b 20 2d 2d 20 74 =if top blk -- t
0d60: 68 65 6e 0a 20 20 20 20 40 6c 69 6e 65 20 20 20 hen. @line
0d70: 20 38 20 3d 69 66 20 62 6f 74 20 62 6c 6b 20 2b 8 =if bot blk +
0d80: 2b 20 74 68 65 6e 0a 20 20 20 20 40 62 6c 6b 20 + then. @blk
0d90: 20 20 20 2d 31 20 3d 69 66 20 31 73 74 20 74 68 -1 =if 1st th
0da0: 65 6e 0a 20 20 20 20 40 62 6c 6b 20 20 20 20 40 en. @blk @
0db0: 23 2d 62 6c 6f 63 6b 73 20 3e 69 66 20 62 6c 6b #-blocks >if blk
0dc0: 20 2d 2d 20 74 68 65 6e 20 3b 0a 0a 20 20 3a 20 -- then ;.. :
0dd0: 69 6e 70 75 74 20 28 20 2d 20 29 0a 20 20 20 20 input ( - ).
0de0: 72 65 70 65 61 74 0a 20 20 20 20 72 78 65 2e 64 repeat. rxe.d
0df0: 69 73 70 6c 61 79 0a 20 20 20 20 20 20 40 6d 6f isplay. @mo
0e00: 64 65 20 30 3b 20 64 72 6f 70 0a 20 20 20 20 20 de 0; drop.
0e10: 20 6b 65 79 0a 20 20 20 20 20 20 64 75 70 20 32 key. dup 2
0e20: 37 20 3c 3e 20 30 3b 20 64 72 6f 70 0a 20 20 20 7 <> 0; drop.
0e30: 20 20 20 64 75 70 20 20 38 20 3d 69 66 20 64 72 dup 8 =if dr
0e40: 6f 70 20 63 6f 6c 75 6d 6e 20 2d 2d 20 72 78 65 op column -- rxe
0e50: 2e 64 69 73 70 6c 61 79 20 5b 20 6f 76 65 72 20 .display [ over
0e60: 38 20 2c 20 2c 20 5d 20 74 68 65 6e 0a 20 20 20 8 , , ] then.
0e70: 20 20 20 64 75 70 20 31 30 20 3d 69 66 20 64 72 dup 10 =if dr
0e80: 6f 70 20 6c 69 6e 65 20 2b 2b 20 65 6c 73 65 20 op line ++ else
0e90: 70 6f 73 20 67 65 74 20 72 78 65 2e 77 72 69 74 pos get rxe.writ
0ea0: 65 20 63 6f 6c 75 6d 6e 20 2b 2b 20 74 68 65 6e e column ++ then
0eb0: 0a 20 20 20 20 61 67 61 69 6e 20 3b 0a 20 20 3a . again ;. :
0ec0: 20 77 73 20 20 20 20 28 20 20 2d 20 20 29 20 77 ws ( - ) w
0ed0: 68 69 74 65 73 70 61 63 65 20 6f 66 66 20 6c 61 hitespace off la
0ee0: 74 65 72 20 77 68 69 74 65 73 70 61 63 65 20 6f ter whitespace o
0ef0: 6e 20 3b 0a 20 20 3a 20 6d 61 74 63 68 20 28 20 n ;. : match (
0f00: 63 2d 20 20 29 20 73 22 20 24 24 5f 22 20 64 75 c- ) s" $$_" du
0f10: 70 20 70 75 73 68 20 32 20 2b 20 21 20 70 6f 70 p push 2 + ! pop
0f20: 20 66 69 6e 64 20 69 66 20 40 64 2d 3e 78 74 20 find if @d->xt
0f30: 65 78 65 63 75 74 65 20 65 6c 73 65 20 64 72 6f execute else dro
0f40: 70 20 74 68 65 6e 20 3b 0a 20 20 3a 20 65 64 69 p then ;. : edi
0f50: 74 3f 20 28 20 63 2d 63 20 29 20 64 75 70 20 32 t? ( c-c ) dup 2
0f60: 37 20 3d 69 66 20 72 78 65 2e 69 6e 20 64 72 6f 7 =if rxe.in dro
0f70: 70 20 74 68 65 6e 20 3b 0a 0a 20 20 3a 20 61 64 p then ;.. : ad
0f80: 76 61 6e 63 65 3f 20 28 20 20 2d 20 20 29 0a 20 vance? ( - ).
0f90: 20 20 20 31 20 2b 6c 69 6e 65 20 40 6c 69 6e 65 1 +line @line
0fa0: 20 38 20 3e 69 66 20 30 20 21 6c 69 6e 65 20 31 8 >if 0 !line 1
0fb0: 20 2b 62 6c 6b 20 74 68 65 6e 20 30 20 21 63 6f +blk then 0 !co
0fc0: 6c 75 6d 6e 20 3b 0a 20 20 3a 20 72 65 6d 61 70 lumn ;. : remap
0fd0: 20 20 20 20 28 20 63 2d 63 20 29 0a 20 20 20 20 ( c-c ).
0fe0: 64 75 70 20 20 39 20 3d 69 66 20 64 72 6f 70 20 dup 9 =if drop
0ff0: 32 37 20 74 68 65 6e 0a 20 20 20 20 64 75 70 20 27 then. dup
1000: 31 33 20 3d 69 66 20 64 72 6f 70 20 31 30 20 74 13 =if drop 10 t
1010: 68 65 6e 0a 20 20 20 20 64 75 70 20 31 30 20 3d hen. dup 10 =
1020: 69 66 20 64 72 6f 70 20 33 32 20 61 64 76 61 6e if drop 32 advan
1030: 63 65 3f 20 74 68 65 6e 20 3b 0a 20 20 68 65 72 ce? then ;. her
1040: 65 20 5d 20 62 6f 75 6e 64 73 20 64 69 73 70 6c e ] bounds displ
1050: 61 79 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 ay ;
1060: 20 20 20 20 20 20 69 73 20 72 78 65 2e 64 69 73 is rxe.dis
1070: 70 6c 61 79 0a 20 20 68 65 72 65 20 5d 20 6d 6f play. here ] mo
1080: 64 65 20 6f 6e 20 77 73 20 69 6e 70 75 74 20 6d de on ws input m
1090: 6f 64 65 20 6f 66 66 20 3b 20 69 73 20 72 78 65 ode off ; is rxe
10a0: 2e 69 6e 0a 29 29 0a 0a 76 6f 63 61 62 20 72 78 .in.))..vocab rx
10b0: 65 3a 3a 6b 65 79 73 0a 28 28 0a 20 20 3a 20 24 e::keys.((. : $
10c0: 24 69 20 6c 69 6e 65 20 2d 2d 20 3b 20 20 20 20 $i line -- ;
10d0: 20 20 20 20 20 20 20 20 28 20 69 20 3d 20 75 70 ( i = up
10e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 ).
10f0: 20 3a 20 24 24 6a 20 63 6f 6c 75 6d 6e 20 2d 2d : $$j column --
1100: 20 3b 20 20 20 20 20 20 20 20 20 20 28 20 6a 20 ; ( j
1110: 3d 20 6c 65 66 74 20 20 20 20 20 20 20 20 20 20 = left
1120: 20 29 0a 20 20 3a 20 24 24 6b 20 6c 69 6e 65 20 ). : $$k line
1130: 2b 2b 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 ++ ;
1140: 28 20 6b 20 3d 20 64 6f 77 6e 20 20 20 20 20 20 ( k = down
1150: 20 20 20 20 20 29 0a 20 20 3a 20 24 24 6c 20 63 ). : $$l c
1160: 6f 6c 75 6d 6e 20 2b 2b 20 3b 20 20 20 20 20 20 olumn ++ ;
1170: 20 20 20 20 28 20 6c 20 3d 20 72 69 67 68 74 20 ( l = right
1180: 20 20 20 20 20 20 20 20 20 29 0a 20 20 3a 20 24 ). : $
1190: 24 6d 20 24 24 6b 20 62 65 67 20 3b 20 20 20 20 $m $$k beg ;
11a0: 20 20 20 20 20 20 20 20 28 20 6d 20 3d 20 65 6e ( m = en
11b0: 74 65 72 20 20 20 20 20 20 20 20 20 20 29 0a 20 ter ).
11c0: 20 3a 20 24 24 49 20 74 6f 70 20 3b 20 20 20 20 : $$I top ;
11d0: 20 20 20 20 20 20 20 20 20 20 20 20 28 20 49 20 ( I
11e0: 3d 20 74 6f 70 20 20 20 20 20 20 20 20 20 20 20 = top
11f0: 20 29 0a 20 20 3a 20 24 24 4a 20 62 65 67 20 3b ). : $$J beg ;
1200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1210: 28 20 4a 20 3d 20 73 74 61 72 74 20 20 20 20 20 ( J = start
1220: 20 20 20 20 20 29 0a 20 20 3a 20 24 24 4b 20 62 ). : $$K b
1230: 6f 74 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 ot ;
1240: 20 20 20 20 28 20 4b 20 3d 20 62 6f 74 74 6f 6d ( K = bottom
1250: 20 20 20 20 20 20 20 20 20 29 0a 20 20 3a 20 24 ). : $
1260: 24 4c 20 65 6e 64 20 3b 20 20 20 20 20 20 20 20 $L end ;
1270: 20 20 20 20 20 20 20 20 28 20 4c 20 3d 20 65 6e ( L = en
1280: 64 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 d ).
1290: 20 3a 20 24 24 4d 20 6d 69 64 20 3b 20 20 20 20 : $$M mid ;
12a0: 20 20 20 20 20 20 20 20 20 20 20 20 28 20 4d 20 ( M
12b0: 3d 20 6d 69 64 64 6c 65 20 20 20 20 20 20 20 20 = middle
12c0: 20 29 0a 20 20 3a 20 24 24 5b 20 62 6c 6b 20 2d ). : $$[ blk -
12d0: 2d 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 - ;
12e0: 28 20 70 20 3d 20 70 72 65 76 69 6f 75 73 20 62 ( p = previous b
12f0: 6c 6f 63 6b 20 29 0a 20 20 3a 20 24 24 5d 20 62 lock ). : $$] b
1300: 6c 6b 20 2b 2b 20 3b 20 20 20 20 20 20 20 20 20 lk ++ ;
1310: 20 20 20 20 28 20 6e 20 3d 20 6e 65 78 74 20 62 ( n = next b
1320: 6c 6f 63 6b 20 20 20 20 20 29 0a 20 20 3a 20 24 lock ). : $
1330: 24 7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $z
1340: 20 20 20 20 20 20 20 20 28 20 7a 20 3d 20 65 78 ( z = ex
1350: 69 74 20 72 78 65 20 20 20 20 20 20 20 29 0a 20 it rxe ).
1360: 20 20 20 26 72 78 65 3a 3a 6b 65 79 73 20 73 68 &rxe::keys sh
1370: 75 74 0a 20 20 20 20 26 72 65 6d 61 70 2d 6b 65 ut. &remap-ke
1380: 79 73 20 3a 64 65 76 65 63 74 6f 72 0a 20 20 20 ys :devector.
1390: 20 70 6f 70 20 70 6f 70 20 32 64 72 6f 70 20 6e pop pop 2drop n
13a0: 6f 72 6d 61 6c 20 3b 0a 20 20 3a 20 24 24 65 20 ormal ;. : $$e
13b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
13c0: 20 20 20 20 20 28 20 65 20 3d 20 65 76 61 6c 75 ( e = evalu
13d0: 61 74 65 20 62 6c 6f 63 6b 20 29 0a 20 20 20 20 ate block ).
13e0: 6e 6f 72 6d 61 6c 20 70 6f 70 20 70 6f 70 20 32 normal pop pop 2
13f0: 64 72 6f 70 20 65 20 3b 0a 20 20 3a 20 24 24 45 drop e ;. : $$E
1400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1410: 20 20 20 20 20 20 28 20 45 20 3d 20 65 76 61 6c ( E = eval
1420: 75 61 74 65 20 61 6c 6c 20 20 20 29 0a 20 20 20 uate all ).
1430: 20 6e 6f 72 6d 61 6c 20 70 6f 70 20 70 6f 70 20 normal pop pop
1440: 32 64 72 6f 70 20 65 61 20 3b 0a 20 20 7b 7b 0a 2drop ea ;. {{.
1450: 20 20 20 20 33 20 65 6c 65 6d 65 6e 74 73 20 66 3 elements f
1460: 69 64 20 61 63 74 69 6f 6e 20 6d 6f 64 65 0a 20 id action mode.
1470: 20 20 20 3a 20 61 73 6b 20 20 20 28 20 20 24 2d : ask ( $-
1480: 20 20 29 20 74 79 70 65 20 73 70 61 63 65 20 33 ) type space 3
1490: 32 20 61 63 63 65 70 74 20 3b 0a 20 20 20 20 3a 2 accept ;. :
14a0: 20 6f 70 65 6e 20 20 28 20 20 20 2d 20 20 29 20 open ( - )
14b0: 74 69 62 20 40 6d 6f 64 65 20 66 6f 70 65 6e 20 tib @mode fopen
14c0: 21 66 69 64 20 3b 0a 20 20 20 20 3a 20 65 6d 69 !fid ;. : emi
14d0: 74 20 20 28 20 20 63 2d 20 20 29 20 40 66 69 64 t ( c- ) @fid
14e0: 20 66 77 72 69 74 65 20 64 72 6f 70 20 3b 0a 20 fwrite drop ;.
14f0: 20 20 20 3a 20 64 75 6d 70 20 20 28 20 61 6e 2d : dump ( an-
1500: 20 20 29 20 66 6f 72 20 40 2b 20 65 6d 69 74 20 ) for @+ emit
1510: 6e 65 78 74 20 64 72 6f 70 20 31 30 20 65 6d 69 next drop 10 emi
1520: 74 20 3b 0a 20 20 20 20 3a 20 6b 65 79 20 20 20 t ;. : key
1530: 28 20 20 20 2d 63 20 29 20 40 66 69 64 20 66 72 ( -c ) @fid fr
1540: 65 61 64 20 3b 0a 20 20 20 20 3a 20 72 65 61 64 ead ;. : read
1550: 20 20 28 20 61 6e 2d 20 20 29 20 66 6f 72 20 6b ( an- ) for k
1560: 65 79 20 73 77 61 70 20 21 2b 20 6e 65 78 74 20 ey swap !+ next
1570: 6b 65 79 20 32 64 72 6f 70 20 3b 0a 20 20 20 20 key 2drop ;.
1580: 3a 20 73 68 6f 72 74 20 28 20 61 6e 2d 20 20 29 : short ( an- )
1590: 20 64 72 6f 70 20 72 65 70 65 61 74 20 6b 65 79 drop repeat key
15a0: 20 64 75 70 20 31 30 20 3d 69 66 20 32 64 72 6f dup 10 =if 2dro
15b0: 70 20 3b 74 68 65 6e 20 73 77 61 70 20 21 2b 20 p ;then swap !+
15c0: 61 67 61 69 6e 20 3b 0a 20 20 20 20 3a 20 61 6c again ;. : al
15d0: 6c 20 20 20 28 20 20 20 2d 61 20 29 20 40 62 6c l ( -a ) @bl
15e0: 6b 20 62 6c 6f 63 6b 20 38 20 66 6f 72 20 64 75 k block 8 for du
15f0: 70 20 36 34 20 40 61 63 74 69 6f 6e 20 65 78 65 p 64 @action exe
1600: 63 75 74 65 20 36 34 20 2b 20 6e 65 78 74 20 3b cute 64 + next ;
1610: 0a 20 20 20 20 3a 20 65 6e 64 20 20 20 28 20 20 . : end (
1620: 61 2d 20 20 29 20 40 66 69 64 20 66 63 6c 6f 73 a- ) @fid fclos
1630: 65 20 32 64 72 6f 70 20 3b 0a 20 20 20 20 3a 20 e 2drop ;. :
1640: 63 6f 6d 6d 6f 6e 20 28 20 20 2d 20 20 29 20 61 common ( - ) a
1650: 73 6b 20 6f 70 65 6e 20 40 66 69 64 20 69 66 20 sk open @fid if
1660: 61 6c 6c 20 65 6e 64 20 74 68 65 6e 20 63 6c 65 all end then cle
1670: 61 72 20 3b 0a 20 20 2d 2d 2d 72 65 76 65 61 6c ar ;. ---reveal
1680: 2d 2d 2d 0a 20 20 20 20 3a 20 24 24 7b 20 20 26 ---. : $${ &
1690: 64 75 6d 70 20 20 21 61 63 74 69 6f 6e 20 3a 77 dump !action :w
16a0: 20 21 6d 6f 64 65 20 73 22 20 53 61 76 65 20 74 !mode s" Save t
16b0: 6f 3a 22 20 63 6f 6d 6d 6f 6e 20 3b 0a 20 20 20 o:" common ;.
16c0: 20 3a 20 24 24 7d 20 20 26 72 65 61 64 20 20 21 : $$} &read !
16d0: 61 63 74 69 6f 6e 20 3a 72 20 21 6d 6f 64 65 20 action :r !mode
16e0: 73 22 20 52 65 61 64 20 66 72 6f 6d 3a 22 20 63 s" Read from:" c
16f0: 6f 6d 6d 6f 6e 20 3b 0a 20 20 20 20 3a 20 24 24 ommon ;. : $$
1700: 7c 20 20 26 73 68 6f 72 74 20 21 61 63 74 69 6f | &short !actio
1710: 6e 20 3a 72 20 21 6d 6f 64 65 20 73 22 20 52 65 n :r !mode s" Re
1720: 61 64 20 66 72 6f 6d 3a 22 20 63 6f 6d 6d 6f 6e ad from:" common
1730: 20 3b 0a 20 20 7d 7d 0a 29 29 0a 0a 3a 20 65 64 ;. }}.))..: ed
1740: 69 74 20 28 20 2d 20 29 0a 20 20 26 72 65 6d 61 it ( - ). &rema
1750: 70 20 26 72 65 6d 61 70 2d 6b 65 79 73 20 3a 69 p &remap-keys :i
1760: 73 0a 20 20 26 72 78 65 3a 3a 6b 65 79 73 20 6f s. &rxe::keys o
1770: 70 65 6e 20 63 6c 65 61 72 20 62 6f 6c 64 0a 20 pen clear bold.
1780: 20 72 65 70 65 61 74 20 72 78 65 2e 64 69 73 70 repeat rxe.disp
1790: 6c 61 79 20 6b 65 79 20 65 64 69 74 3f 20 6d 61 lay key edit? ma
17a0: 74 63 68 20 61 67 61 69 6e 20 3b 0a 0a 26 72 78 tch again ;..&rx
17b0: 65 3a 3a 6b 65 79 73 20 73 68 75 74 0a 26 72 78 e::keys shut.&rx
17c0: 65 3a 3a 63 6f 72 65 20 73 68 75 74 0a 26 66 69 e::core shut.&fi
17d0: 6c 65 73 20 73 68 75 74 0a 26 63 6f 6e 73 6f 6c les shut.&consol
17e0: 65 20 73 68 75 74 0a 0a 28 20 4c 6f 61 64 20 6f e shut..( Load o
17f0: 70 74 69 6f 6e 61 6c 20 65 78 74 65 6e 73 69 6f ptional extensio
1800: 6e 73 20 29 0a 69 6e 63 6c 75 64 65 20 72 78 65 ns ).include rxe
1810: 2e 65 78 74 65 6e 73 69 6f 6e 73 2e 72 65 74 72 .extensions.retr
1820: 6f 0a o.