Artifact 1641b30386c53c16aae065fcec6ea96765e7f1b6:
File editor.rx part of check-in [f0ed5090c8] - editor: remove dependencies on console' vocabulary by crc on 2011-10-25 19:07:10. [annotate]
0000: 28 20 72 65 74 72 6f 20 65 64 69 74 6f 72 20 76 ( retro editor v
0010: 31 31 2d 32 30 31 31 2e 31 30 2e 32 35 20 7e 7e 11-2011.10.25 ~~
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 7e 7e 7e ~~~~~~~~~~~~~~~~
0040: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a ~~~~~~~~~~~~~ ).
0050: 28 20 4b 65 79 20 20 20 20 20 41 63 74 69 6f 6e ( Key Action
0060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
00a0: 28 20 2d 2d 2d 20 20 20 20 20 2d 2d 2d 2d 2d 2d ( --- ------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 -----------
00e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
00f0: 28 20 20 69 20 20 20 20 20 20 4d 6f 76 65 20 63 ( i Move c
0100: 75 72 73 6f 72 20 75 70 20 20 20 20 20 20 20 20 ursor up
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 20 6a 20 20 20 20 20 20 4d 6f 76 65 20 63 ( j Move c
0150: 75 72 73 6f 72 20 6c 65 66 74 20 20 20 20 20 20 ursor left
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0190: 28 20 20 6b 20 20 20 20 20 20 4d 6f 76 65 20 63 ( k Move c
01a0: 75 72 73 6f 72 20 64 6f 77 6e 20 20 20 20 20 20 ursor down
01b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
01e0: 28 20 20 6c 20 20 20 20 20 20 4d 6f 76 65 20 63 ( l Move c
01f0: 75 72 73 6f 72 20 72 69 67 68 74 20 20 20 20 20 ursor right
0200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0230: 28 20 20 5b 20 20 20 20 20 20 53 77 69 74 63 68 ( [ Switch
0240: 20 74 6f 20 70 72 65 76 69 6f 75 73 20 62 6c 6f to previous blo
0250: 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ck
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 5d 20 20 20 20 20 20 53 77 69 74 63 68 ( ] Switch
0290: 20 74 6f 20 6e 65 78 74 20 62 6c 6f 63 6b 20 20 to next block
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
02d0: 28 20 20 65 20 20 20 20 20 20 45 76 61 6c 75 61 ( e Evalua
02e0: 74 65 20 63 75 72 72 65 6e 74 20 62 6c 6f 63 6b te current block
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0320: 28 20 20 45 20 20 20 20 20 20 45 76 61 6c 75 61 ( E Evalua
0330: 74 65 20 61 6c 6c 20 62 6c 6f 63 6b 73 20 20 20 te all blocks
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0370: 28 20 20 6d 20 20 20 20 20 20 4d 6f 76 65 20 63 ( m Move c
0380: 75 72 73 6f 72 20 74 6f 20 73 74 61 72 74 20 6f ursor to start o
0390: 66 20 6e 65 78 74 20 6c 69 6e 65 20 20 20 20 20 f next line
03a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 20 20
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0410: 28 20 20 4a 20 20 20 20 20 20 4d 6f 76 65 20 63 ( J Move c
0420: 75 72 73 6f 72 20 74 6f 20 73 74 61 72 74 20 6f ursor to start o
0430: 66 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 20 f current line
0440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0460: 28 20 20 4b 20 20 20 20 20 20 4d 6f 76 65 20 63 ( K Move c
0470: 75 72 73 6f 72 20 74 6f 20 6c 61 73 74 20 6c 69 ursor to last li
0480: 6e 65 20 6f 66 20 62 6c 6f 63 6b 20 20 20 20 20 ne of block
0490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
04b0: 28 20 20 4c 20 20 20 20 20 20 4d 6f 76 65 20 63 ( L Move c
04c0: 75 72 73 6f 72 20 74 6f 20 65 6e 64 20 6f 66 20 ursor to end of
04d0: 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 20 20 20 current line
04e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0500: 28 20 20 4d 20 20 20 20 20 20 43 65 6e 74 65 72 ( M Center
0510: 20 63 75 72 73 6f 72 20 6f 6e 20 63 75 72 72 65 cursor on curre
0520: 6e 74 20 6c 69 6e 65 20 20 20 20 20 20 20 20 20 nt line
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0550: 28 20 20 7a 20 20 20 20 20 20 45 78 69 74 20 52 ( z Exit R
0560: 78 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 xE
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
05a0: 28 20 20 7b 20 20 20 20 20 20 4c 6f 61 64 20 22 ( { Load "
05b0: 62 6c 6f 63 6b 73 22 20 20 20 20 20 20 20 20 20 blocks"
05c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
05d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
05e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
05f0: 28 20 20 7d 20 20 20 20 20 20 53 61 76 65 20 22 ( } Save "
0600: 62 6c 6f 63 6b 73 22 20 20 20 20 20 20 20 20 20 blocks"
0610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0640: 28 20 54 41 42 20 20 20 20 20 53 77 69 74 63 68 ( TAB Switch
0650: 20 62 65 74 77 65 65 6e 20 65 64 69 74 20 61 6e between edit an
0660: 64 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 20 20 d command mode
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a ).
0690: 28 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ( ~~~~~~~~~~~~~~
06a0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
06b0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
06c0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
06d0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a ~~~~~~~~~~~~~ ).
06e0: 0a 63 68 61 69 6e 3a 20 65 64 69 74 6f 72 27 0a .chain: editor'.
06f0: 0a 7b 7b 0a 20 20 32 20 65 6c 65 6d 65 6e 74 73 .{{. 2 elements
0700: 20 62 75 66 66 65 72 20 63 6f 75 6e 74 0a 20 20 buffer count.
0710: 3a 20 72 65 73 74 6f 72 65 20 28 20 2d 20 20 20 : restore ( -
0720: 29 20 26 67 65 74 63 20 3a 64 65 76 65 63 74 6f ) &getc :devecto
0730: 72 20 6f 6b 20 3b 0a 20 20 3a 20 67 65 74 20 20 r ok ;. : get
0740: 20 20 20 28 20 2d 63 20 20 29 20 40 62 75 66 66 ( -c ) @buff
0750: 65 72 20 40 20 3b 0a 20 20 3a 20 6e 65 78 74 20 er @ ;. : next
0760: 20 20 20 28 20 2d 63 20 20 29 20 40 63 6f 75 6e ( -c ) @coun
0770: 74 20 5b 20 63 6f 75 6e 74 20 2d 2d 20 67 65 74 t [ count -- get
0780: 20 62 75 66 66 65 72 20 2b 2b 20 5d 20 5b 20 33 buffer ++ ] [ 3
0790: 32 20 72 65 73 74 6f 72 65 20 5d 20 69 66 20 3b 2 restore ] if ;
07a0: 0a 20 20 3a 20 72 65 70 6c 61 63 65 20 28 20 2d . : replace ( -
07b0: 20 20 20 29 20 26 6e 65 78 74 20 26 67 65 74 63 ) &next &getc
07c0: 20 3a 69 73 20 3b 0a 20 20 3a 20 65 76 61 6c 20 :is ;. : eval
07d0: 20 20 20 28 20 61 6e 2d 20 29 20 21 63 6f 75 6e ( an- ) !coun
07e0: 74 20 21 62 75 66 66 65 72 20 72 65 70 6c 61 63 t !buffer replac
07f0: 65 20 3b 0a 0a 20 20 37 20 65 6c 65 6d 65 6e 74 e ;.. 7 element
0800: 73 20 23 62 6c 6f 63 6b 73 20 6f 66 66 73 65 74 s #blocks offset
0810: 20 62 6c 6b 20 6c 69 6e 65 20 63 6f 6c 75 6d 6e blk line column
0820: 20 6d 6f 64 65 20 61 63 74 69 76 65 0a 20 20 3a mode active. :
0830: 20 74 6f 42 6c 6f 63 6b 20 20 20 31 36 30 30 20 toBlock 1600
0840: 2a 20 40 6f 66 66 73 65 74 20 2b 20 3b 0a 20 20 * @offset + ;.
0850: 3a 20 74 68 69 73 42 6c 6f 63 6b 20 40 62 6c 6b : thisBlock @blk
0860: 20 74 6f 42 6c 6f 63 6b 20 3b 0a 20 20 3a 20 74 toBlock ;. : t
0870: 6f 4c 69 6e 65 20 20 20 20 38 30 20 2a 20 74 68 oLine 80 * th
0880: 69 73 42 6c 6f 63 6b 20 2b 20 3b 0a 0a 20 20 28 isBlock + ;.. (
0890: 20 63 68 65 63 6b 20 62 6f 75 6e 64 61 72 69 65 check boundarie
08a0: 73 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e s ~~~~~~~~~~~~~~
08b0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
08c0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
08d0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a 20 20 3a ~~~~~~~~~~ ). :
08e0: 20 74 6f 70 20 28 20 2d 20 29 20 20 30 20 21 6c top ( - ) 0 !l
08f0: 69 6e 65 20 3b 0a 20 20 3a 20 62 6f 74 20 28 20 ine ;. : bot (
0900: 2d 20 29 20 31 39 20 21 6c 69 6e 65 20 3b 0a 20 - ) 19 !line ;.
0910: 20 3a 20 62 65 67 20 28 20 2d 20 29 20 20 30 20 : beg ( - ) 0
0920: 21 63 6f 6c 75 6d 6e 20 3b 0a 20 20 3a 20 65 6e !column ;. : en
0930: 64 20 28 20 2d 20 29 20 37 39 20 21 63 6f 6c 75 d ( - ) 79 !colu
0940: 6d 6e 20 3b 0a 20 20 3a 20 6d 69 64 20 28 20 2d mn ;. : mid ( -
0950: 20 29 20 34 31 20 21 63 6f 6c 75 6d 6e 20 3b 0a ) 41 !column ;.
0960: 20 20 3a 20 31 73 74 20 28 20 2d 20 29 20 20 30 : 1st ( - ) 0
0970: 20 21 62 6c 6b 20 3b 0a 20 20 3a 20 62 6f 75 6e !blk ;. : boun
0980: 64 73 20 28 20 2d 20 29 0a 20 20 20 20 40 63 6f ds ( - ). @co
0990: 6c 75 6d 6e 20 2d 31 20 3d 20 5b 20 65 6e 64 20 lumn -1 = [ end
09a0: 6c 69 6e 65 20 2d 2d 20 5d 20 69 66 54 72 75 65 line -- ] ifTrue
09b0: 0a 20 20 20 20 40 63 6f 6c 75 6d 6e 20 38 30 20 . @column 80
09c0: 3d 20 5b 20 62 65 67 20 6c 69 6e 65 20 2b 2b 20 = [ beg line ++
09d0: 5d 20 69 66 54 72 75 65 0a 20 20 20 20 40 6c 69 ] ifTrue. @li
09e0: 6e 65 20 20 20 2d 31 20 3d 20 5b 20 74 6f 70 20 ne -1 = [ top
09f0: 62 6c 6b 20 20 2d 2d 20 5d 20 69 66 54 72 75 65 blk -- ] ifTrue
0a00: 0a 20 20 20 20 40 6c 69 6e 65 20 20 20 32 30 20 . @line 20
0a10: 3d 20 5b 20 62 6f 74 20 62 6c 6b 20 20 2b 2b 20 = [ bot blk ++
0a20: 5d 20 69 66 54 72 75 65 0a 20 20 20 20 40 62 6c ] ifTrue. @bl
0a30: 6b 20 20 20 20 2d 31 20 3d 20 5b 20 31 73 74 20 k -1 = [ 1st
0a40: 20 20 20 20 20 20 20 20 5d 20 69 66 54 72 75 65 ] ifTrue
0a50: 0a 20 20 20 20 40 62 6c 6b 20 20 20 20 40 23 62 . @blk @#b
0a60: 6c 6f 63 6b 73 20 3e 3d 20 5b 20 62 6c 6b 20 2d locks >= [ blk -
0a70: 2d 20 5d 20 69 66 54 72 75 65 20 3b 0a 0a 20 20 - ] ifTrue ;..
0a80: 28 20 64 69 73 70 6c 61 79 20 61 20 62 6c 6f 63 ( display a bloc
0a90: 6b 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e k ~~~~~~~~~~~~~~
0aa0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0ab0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0ac0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a 20 20 ~~~~~~~~~~~ ).
0ad0: 3a 20 72 6f 77 73 20 20 20 20 32 30 20 5b 20 64 : rows 20 [ d
0ae0: 75 70 20 38 30 20 5b 20 40 20 70 75 74 63 20 5d up 80 [ @ putc ]
0af0: 20 5e 74 79 70 65 73 27 42 55 46 46 45 52 20 65 ^types'BUFFER e
0b00: 61 63 68 40 20 38 30 20 2b 20 63 72 20 5d 20 74 ach@ 80 + cr ] t
0b10: 69 6d 65 73 20 3b 0a 20 20 3a 20 6d 6f 64 65 3f imes ;. : mode?
0b20: 20 20 20 40 6d 6f 64 65 20 5b 20 22 49 4e 53 22 @mode [ "INS"
0b30: 20 5d 20 5b 20 22 43 4d 44 22 20 5d 20 69 66 20 ] [ "CMD" ] if
0b40: 3b 0a 20 20 3a 20 2e 62 6c 6f 63 6b 20 20 40 63 ;. : .block @c
0b50: 6f 6c 75 6d 6e 20 40 6c 69 6e 65 20 40 62 6c 6b olumn @line @blk
0b60: 20 6d 6f 64 65 3f 20 22 28 25 73 29 20 23 25 64 mode? "(%s) #%d
0b70: 20 2d 20 25 64 3a 25 64 20 20 22 20 70 75 74 73 - %d:%d " puts
0b80: 20 3b 0a 20 20 3a 20 62 61 72 20 20 20 20 20 38 ;. : bar 8
0b90: 30 20 5b 20 27 2d 20 70 75 74 63 20 5d 20 74 69 0 [ '- putc ] ti
0ba0: 6d 65 73 20 63 72 20 3b 0a 20 20 3a 20 76 62 20 mes cr ;. : vb
0bb0: 20 20 20 20 20 40 62 6c 6b 20 74 6f 42 6c 6f 63 @blk toBloc
0bc0: 6b 20 72 6f 77 73 20 64 72 6f 70 20 62 61 72 20 k rows drop bar
0bd0: 2e 62 6c 6f 63 6b 20 3b 0a 20 20 3a 20 28 76 29 .block ;. : (v)
0be0: 20 20 20 20 20 28 20 20 20 2d 20 20 20 29 20 63 ( - ) c
0bf0: 6c 65 61 72 20 76 62 20 3b 0a 20 20 3a 20 70 6f lear vb ;. : po
0c00: 73 20 20 20 20 20 28 20 20 20 2d 63 6c 20 29 20 s ( -cl )
0c10: 40 63 6f 6c 75 6d 6e 20 40 6c 69 6e 65 20 3b 0a @column @line ;.
0c20: 20 20 3a 20 67 65 74 20 20 20 20 20 28 20 63 6c : get ( cl
0c30: 2d 61 20 20 29 20 74 6f 4c 69 6e 65 20 2b 20 3b -a ) toLine + ;
0c40: 0a 20 20 3a 20 76 61 20 20 20 20 20 20 28 20 20 . : va (
0c50: 61 2d 76 61 20 29 20 64 75 70 20 40 20 73 77 61 a-va ) dup @ swa
0c60: 70 20 3b 0a 20 20 3a 20 63 21 20 20 20 20 20 20 p ;. : c!
0c70: 28 20 20 61 2d 20 20 20 29 20 27 2a 20 73 77 61 ( a- ) '* swa
0c80: 70 20 21 20 3b 0a 20 20 3a 20 73 68 6f 77 20 20 p ! ;. : show
0c90: 20 20 28 20 76 61 2d 20 20 20 29 20 64 75 70 20 ( va- ) dup
0ca0: 63 21 20 28 76 29 20 21 20 3b 0a 20 20 3a 20 64 c! (v) ! ;. : d
0cb0: 69 73 70 6c 61 79 20 28 20 20 20 2d 20 20 20 29 isplay ( - )
0cc0: 20 62 6f 75 6e 64 73 20 70 6f 73 20 67 65 74 20 bounds pos get
0cd0: 76 61 20 73 68 6f 77 20 3b 0a 0a 20 20 28 20 69 va show ;.. ( i
0ce0: 6e 70 75 74 20 70 72 6f 63 65 73 73 69 6e 67 20 nput processing
0cf0: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0d00: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0d10: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
0d20: 7e 7e 7e 7e 7e 7e 7e 7e 20 29 0a 20 20 3a 20 61 ~~~~~~~~ ). : a
0d30: 64 76 61 6e 63 65 3f 20 28 20 20 2d 20 20 29 20 dvance? ( - )
0d40: 6c 69 6e 65 20 2b 2b 20 40 6c 69 6e 65 20 32 30 line ++ @line 20
0d50: 20 3e 3d 20 5b 20 30 20 21 6c 69 6e 65 20 62 6c >= [ 0 !line bl
0d60: 6b 20 2b 2b 20 5d 20 69 66 54 72 75 65 20 30 20 k ++ ] ifTrue 0
0d70: 21 63 6f 6c 75 6d 6e 20 3b 0a 20 20 3a 20 64 65 !column ;. : de
0d80: 6c 20 28 20 2d 20 29 0a 20 20 20 20 40 63 6f 6c l ( - ). @col
0d90: 75 6d 6e 20 64 75 70 0a 20 20 20 20 5b 20 64 75 umn dup. [ du
0da0: 70 20 38 30 20 3d 0a 20 20 20 20 20 20 5b 20 64 p 80 =. [ d
0db0: 72 6f 70 20 21 63 6f 6c 75 6d 6e 20 64 69 73 70 rop !column disp
0dc0: 6c 61 79 20 20 20 20 30 20 5d 0a 20 20 20 20 20 lay 0 ].
0dd0: 20 5b 20 33 32 20 6f 76 65 72 20 40 6c 69 6e 65 [ 32 over @line
0de0: 20 67 65 74 20 21 20 31 2b 20 2d 31 20 5d 20 69 get ! 1+ -1 ] i
0df0: 66 0a 20 20 20 20 5d 20 77 68 69 6c 65 20 3b 0a f. ] while ;.
0e00: 20 20 3a 20 72 65 6d 61 70 20 20 20 20 28 20 63 : remap ( c
0e10: 2d 63 20 29 0a 20 20 20 20 64 75 70 20 20 39 20 -c ). dup 9
0e20: 3d 20 5b 20 64 72 6f 70 20 32 37 20 5d 20 69 66 = [ drop 27 ] if
0e30: 54 72 75 65 0a 20 20 20 20 64 75 70 20 31 33 20 True. dup 13
0e40: 3d 20 5b 20 64 72 6f 70 20 20 30 20 5d 20 69 66 = [ drop 0 ] if
0e50: 54 72 75 65 0a 20 20 20 20 64 75 70 20 31 30 20 True. dup 10
0e60: 3d 20 5b 20 64 72 6f 70 20 20 30 20 61 64 76 61 = [ drop 0 adva
0e70: 6e 63 65 3f 20 64 69 73 70 6c 61 79 20 5d 20 69 nce? display ] i
0e80: 66 54 72 75 65 20 3b 0a 20 20 3a 20 69 6e 70 75 fTrue ;. : inpu
0e90: 74 20 20 20 20 28 20 20 2d 20 20 29 0a 20 20 20 t ( - ).
0ea0: 20 72 65 70 65 61 74 0a 20 20 20 20 20 20 64 69 repeat. di
0eb0: 73 70 6c 61 79 0a 20 20 20 20 20 20 40 6d 6f 64 splay. @mod
0ec0: 65 20 30 3b 20 64 72 6f 70 0a 20 20 20 20 20 20 e 0; drop.
0ed0: 67 65 74 63 20 30 3b 0a 20 20 20 20 20 20 64 75 getc 0;. du
0ee0: 70 20 32 37 20 3c 3e 20 30 3b 20 64 72 6f 70 0a p 27 <> 0; drop.
0ef0: 20 20 20 20 20 20 64 75 70 20 20 38 20 3d 20 5b dup 8 = [
0f00: 20 64 72 6f 70 20 63 6f 6c 75 6d 6e 20 2d 2d 20 drop column --
0f10: 64 69 73 70 6c 61 79 20 5d 20 5b 20 70 6f 73 20 display ] [ pos
0f20: 67 65 74 20 21 20 63 6f 6c 75 6d 6e 20 2b 2b 20 get ! column ++
0f30: 5d 20 69 66 0a 20 20 20 20 61 67 61 69 6e 20 3b ] if. again ;
0f40: 0a 20 20 3a 20 72 78 65 2e 69 6e 20 20 20 28 20 . : rxe.in (
0f50: 20 2d 63 20 29 20 6d 6f 64 65 20 6f 6e 20 72 65 -c ) mode on re
0f60: 6d 61 70 70 69 6e 67 20 5b 20 72 65 6d 61 70 70 mapping [ remapp
0f70: 69 6e 67 20 6f 66 66 20 69 6e 70 75 74 20 5d 20 ing off input ]
0f80: 70 72 65 73 65 72 76 65 20 6d 6f 64 65 20 6f 66 preserve mode of
0f90: 66 20 3b 0a 20 20 3a 20 6d 61 74 63 68 20 20 20 f ;. : match
0fa0: 20 28 20 63 2d 20 20 29 20 22 24 24 5f 22 20 64 ( c- ) "$$_" d
0fb0: 75 70 20 5b 20 32 20 2b 20 21 20 5d 20 64 69 70 up [ 2 + ! ] dip
0fc0: 20 66 69 6e 64 20 5b 20 40 64 2d 3e 78 74 20 64 find [ @d->xt d
0fd0: 6f 20 5d 20 26 64 72 6f 70 20 69 66 20 3b 0a 20 o ] &drop if ;.
0fe0: 20 3a 20 65 64 69 74 3f 20 20 20 20 28 20 63 2d : edit? ( c-
0ff0: 63 20 29 20 64 75 70 20 32 37 20 3d 20 5b 20 72 c ) dup 27 = [ r
1000: 78 65 2e 69 6e 20 64 72 6f 70 20 5d 20 69 66 54 xe.in drop ] ifT
1010: 72 75 65 20 3b 0a 0a 20 20 28 20 76 61 72 69 6f rue ;.. ( vario
1020: 75 73 20 73 75 70 70 6f 72 74 20 62 69 74 73 20 us support bits
1030: 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~
1040: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
1050: 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e ~~~~~~~~~~~~~~~~
1060: 7e 7e 7e 7e 20 29 0a 20 20 3a 20 6e 65 77 20 20 ~~~~ ). : new
1070: 20 20 20 20 20 20 28 20 20 2d 20 29 20 40 6f 66 ( - ) @of
1080: 66 73 65 74 20 33 32 20 31 36 30 30 20 40 23 62 fset 32 1600 @#b
1090: 6c 6f 63 6b 73 20 2a 20 66 69 6c 6c 20 3b 0a 20 locks * fill ;.
10a0: 20 3a 20 65 20 20 20 20 20 20 20 20 20 20 28 20 : e (
10b0: 20 2d 20 29 20 74 68 69 73 42 6c 6f 63 6b 20 31 - ) thisBlock 1
10c0: 36 30 30 20 65 76 61 6c 20 3b 0a 20 20 3a 20 65 600 eval ;. : e
10d0: 61 20 20 20 20 20 20 20 20 20 28 20 20 2d 20 29 a ( - )
10e0: 20 40 6f 66 66 73 65 74 20 40 23 62 6c 6f 63 6b @offset @#block
10f0: 73 20 31 36 30 30 20 2a 20 65 76 61 6c 20 3b 0a s 1600 * eval ;.
1100: 20 20 3a 20 72 75 6e 20 20 20 20 20 20 20 20 28 : run (
1110: 20 20 2d 20 29 0a 20 20 20 20 61 63 74 69 76 65 - ). active
1120: 20 6f 6e 20 26 72 65 6d 61 70 20 26 72 65 6d 61 on &remap &rema
1130: 70 4b 65 79 73 20 3a 69 73 20 63 6c 65 61 72 0a pKeys :is clear.
1140: 20 20 20 20 5b 20 64 69 73 70 6c 61 79 20 67 65 [ display ge
1150: 74 63 20 65 64 69 74 3f 20 6d 61 74 63 68 20 40 tc edit? match @
1160: 61 63 74 69 76 65 20 5d 20 77 68 69 6c 65 20 3b active ] while ;
1170: 0a 2d 2d 2d 72 65 76 65 61 6c 2d 2d 2d 0a 20 20 .---reveal---.
1180: 3a 20 73 65 74 42 6c 6f 63 6b 73 20 20 28 20 6e : setBlocks ( n
1190: 2d 20 29 20 21 23 62 6c 6f 63 6b 73 20 40 6d 65 - ) !#blocks @me
11a0: 6d 6f 72 79 20 31 36 30 30 20 40 23 62 6c 6f 63 mory 1600 @#bloc
11b0: 6b 73 20 2a 20 2d 20 21 6f 66 66 73 65 74 20 6e ks * - !offset n
11c0: 65 77 20 3b 0a 20 20 3a 20 65 64 69 74 20 28 20 ew ;. : edit (
11d0: 2d 20 29 0a 20 20 20 20 40 63 68 20 32 32 20 3e - ). @ch 22 >
11e0: 3d 20 40 63 77 20 38 30 20 3e 3d 20 61 6e 64 0a = @cw 80 >= and.
11f0: 20 20 20 20 26 72 75 6e 20 5b 20 22 72 65 71 75 &run [ "requ
1200: 69 72 65 73 20 61 6e 20 38 30 78 32 32 20 6f 72 ires an 80x22 or
1210: 20 67 72 65 61 74 65 72 20 64 69 73 70 6c 61 79 greater display
1220: 2c 20 73 6f 72 72 79 21 5c 6e 22 20 70 75 74 73 , sorry!\n" puts
1230: 20 5d 20 69 66 20 3b 0a 20 20 3a 20 24 24 69 20 ] if ;. : $$i
1240: 6c 69 6e 65 20 2d 2d 20 3b 0a 20 20 3a 20 24 24 line -- ;. : $$
1250: 6a 20 63 6f 6c 75 6d 6e 20 2d 2d 20 3b 0a 20 20 j column -- ;.
1260: 3a 20 24 24 6b 20 6c 69 6e 65 20 2b 2b 20 3b 0a : $$k line ++ ;.
1270: 20 20 3a 20 24 24 6c 20 63 6f 6c 75 6d 6e 20 2b : $$l column +
1280: 2b 20 3b 0a 20 20 3a 20 24 24 6d 20 24 24 6b 20 + ;. : $$m $$k
1290: 62 65 67 20 3b 0a 20 20 3a 20 24 24 49 20 74 6f beg ;. : $$I to
12a0: 70 20 3b 0a 20 20 3a 20 24 24 4a 20 62 65 67 20 p ;. : $$J beg
12b0: 3b 0a 20 20 3a 20 24 24 4b 20 62 6f 74 20 3b 0a ;. : $$K bot ;.
12c0: 20 20 3a 20 24 24 4c 20 65 6e 64 20 3b 0a 20 20 : $$L end ;.
12d0: 3a 20 24 24 4d 20 6d 69 64 20 3b 0a 20 20 3a 20 : $$M mid ;. :
12e0: 24 24 44 20 64 65 6c 20 3b 0a 20 20 3a 20 24 24 $$D del ;. : $$
12f0: 5b 20 62 6c 6b 20 2d 2d 20 3b 0a 20 20 3a 20 24 [ blk -- ;. : $
1300: 24 5d 20 62 6c 6b 20 2b 2b 20 3b 0a 20 20 3a 20 $] blk ++ ;. :
1310: 24 24 7b 20 40 6f 66 66 73 65 74 20 22 62 6c 6f $${ @offset "blo
1320: 63 6b 73 22 20 5e 66 69 6c 65 73 27 73 6c 75 72 cks" ^files'slur
1330: 70 20 64 72 6f 70 20 3b 0a 20 20 3a 20 24 24 7d p drop ;. : $$}
1340: 20 40 6f 66 66 73 65 74 20 40 23 62 6c 6f 63 6b @offset @#block
1350: 73 20 31 36 30 30 20 2a 20 22 62 6c 6f 63 6b 73 s 1600 * "blocks
1360: 22 20 5e 66 69 6c 65 73 27 73 70 65 77 20 64 72 " ^files'spew dr
1370: 6f 70 20 3b 0a 20 20 3a 20 24 24 65 20 61 63 74 op ;. : $$e act
1380: 69 76 65 20 6f 66 66 20 20 65 20 3b 0a 20 20 3a ive off e ;. :
1390: 20 24 24 45 20 61 63 74 69 76 65 20 6f 66 66 20 $$E active off
13a0: 65 61 20 3b 0a 20 20 3a 20 24 24 7a 20 61 63 74 ea ;. : $$z act
13b0: 69 76 65 20 6f 66 66 20 20 20 20 3b 0a 20 20 31 ive off ;. 1
13c0: 32 38 20 73 65 74 42 6c 6f 63 6b 73 0a 7d 7d 0a 28 setBlocks.}}.
13d0: 3b 63 68 61 69 6e 0a 0a 67 6c 6f 62 61 6c 0a 77 ;chain..global.w
13e0: 69 74 68 20 65 64 69 74 6f 72 27 0a 0a 0a 64 6f ith editor'...do
13f0: 63 7b 0a 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c{..============
1400: 0a 52 65 74 72 6f 20 45 64 69 74 6f 72 0a 3d 3d .Retro Editor.==
1410: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 0a 2d 2d 2d ==========...---
1420: 2d 2d 2d 2d 2d 0a 4f 76 65 72 76 69 65 77 0a 2d -----.Overview.-
1430: 2d 2d 2d 2d 2d 2d 2d 0a 54 68 65 20 52 65 74 72 -------.The Retr
1440: 6f 20 45 64 69 74 6f 72 20 69 73 20 61 20 62 6c o Editor is a bl
1450: 6f 63 6b 20 65 64 69 74 6f 72 20 66 6f 72 20 75 ock editor for u
1460: 73 65 20 77 69 74 68 20 52 65 74 72 6f 2e 0a 0a se with Retro...
1470: 46 6f 72 20 6d 6f 73 74 20 75 73 65 72 73 2c 20 For most users,
1480: 66 69 6c 65 73 20 61 72 65 20 61 20 62 65 74 74 files are a bett
1490: 65 72 20 63 68 6f 69 63 65 2e 20 48 6f 77 65 76 er choice. Howev
14a0: 65 72 20 74 68 65 72 65 20 61 72 65 0a 61 74 20 er there are.at
14b0: 6c 65 61 73 74 20 74 77 6f 20 63 61 73 65 73 20 least two cases
14c0: 77 68 65 72 65 20 79 6f 75 20 6d 61 79 20 77 61 where you may wa
14d0: 6e 74 20 6f 72 20 6e 65 65 64 20 74 6f 20 75 73 nt or need to us
14e0: 65 20 74 68 65 6d 3a 0a 0a 20 2a 20 6b 65 65 70 e them:.. * keep
14f0: 69 6e 67 20 73 6f 75 72 63 65 73 20 65 6d 62 65 ing sources embe
1500: 64 65 64 20 69 6e 20 74 68 65 20 69 6d 61 67 65 ded in the image
1510: 0a 20 2a 20 69 66 20 79 6f 75 20 61 72 65 20 75 . * if you are u
1520: 73 69 6e 67 20 61 20 56 4d 20 74 68 61 74 20 6c sing a VM that l
1530: 61 63 6b 73 20 66 69 6c 65 20 69 2f 6f 0a 0a 0a acks file i/o...
1540: 2d 2d 2d 2d 2d 2d 2d 0a 4c 6f 61 64 69 6e 67 0a -------.Loading.
1550: 2d 2d 2d 2d 2d 2d 2d 0a 0a 3a 3a 0a 0a 20 20 69 -------..::.. i
1560: 6e 63 6c 75 64 65 20 65 64 69 74 6f 72 2e 72 78 nclude editor.rx
1570: 0a 0a 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 51 ...-----------.Q
1580: 75 69 63 6b 20 47 75 69 64 65 0a 2d 2d 2d 2d 2d uick Guide.-----
1590: 2d 2d 2d 2d 2d 2d 0a 0a 53 74 61 72 74 69 6e 67 ------..Starting
15a0: 0a 3d 3d 3d 3d 3d 3d 3d 3d 0a 4f 6e 63 65 20 6c .========.Once l
15b0: 6f 61 64 65 64 2c 20 79 6f 75 27 6c 6c 20 6e 65 oaded, you'll ne
15c0: 65 64 20 74 6f 20 73 74 61 72 74 20 69 74 20 75 ed to start it u
15d0: 73 69 6e 67 20 2a 2a 65 64 69 74 2a 2a 3a 0a 0a sing **edit**:..
15e0: 3a 3a 0a 0a 20 20 65 64 69 74 0a 0a 0a 54 68 65 ::.. edit...The
15f0: 20 49 6e 74 65 72 66 61 63 65 0a 3d 3d 3d 3d 3d Interface.=====
1600: 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 59 6f 75 27 6c 6c ========..You'll
1610: 20 73 65 65 20 61 20 73 63 72 65 65 6e 20 6c 6f see a screen lo
1620: 6f 6b 69 6e 67 20 73 6f 6d 65 74 68 69 6e 67 20 oking something
1630: 6c 69 6b 65 3a 0a 0a 3a 3a 0a 0a 20 20 2a 0a 20 like:..::.. *.
1640: 20 0a 20 20 0a 20 20 0a 20 20 0a 20 20 0a 20 20 . . . . .
1650: 0a 20 20 0a 20 20 0a 20 20 0a 20 20 0a 20 20 0a . . . . . .
1660: 20 20 0a 20 20 0a 20 20 0a 20 20 0a 20 20 0a 20 . . . . .
1670: 20 0a 20 20 0a 20 20 0a 20 20 2d 2d 2d 2d 2d 2d . . . ------
1680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 28 43 4d ----------. (CM
16d0: 44 29 20 23 30 20 2d 20 30 3a 30 0a 0a 0a 54 68 D) #0 - 0:0...Th
16e0: 65 20 61 73 74 65 72 69 73 6b 20 61 74 20 74 68 e asterisk at th
16f0: 65 20 74 6f 70 20 69 73 20 74 68 65 20 63 75 72 e top is the cur
1700: 73 6f 72 2e 20 54 68 65 20 6c 69 6e 65 20 61 74 sor. The line at
1710: 20 74 68 65 0a 62 6f 74 74 6f 6d 20 6d 61 72 6b the.bottom mark
1720: 73 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 s the end of the
1730: 20 63 75 72 72 65 6e 74 20 62 6c 6f 63 6b 2e 20 current block.
1740: 42 65 6c 6f 77 20 74 68 65 20 6c 69 6e 65 0a 69 Below the line.i
1750: 73 20 61 20 73 74 61 74 75 73 20 72 6f 77 2c 20 s a status row,
1760: 73 68 6f 77 69 6e 67 20 74 68 65 20 63 75 72 72 showing the curr
1770: 65 6e 74 20 6d 6f 64 65 20 28 43 4d 44 20 6f 72 ent mode (CMD or
1780: 20 49 4e 53 29 2c 20 74 68 65 0a 63 75 72 72 65 INS), the.curre
1790: 6e 74 20 62 6c 6f 63 6b 20 6e 75 6d 62 65 72 2c nt block number,
17a0: 20 61 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 and the current
17b0: 20 72 6f 77 20 61 6e 64 20 63 6f 6c 75 6d 6e 2e row and column.
17c0: 0a 0a 0a 45 78 69 74 69 6e 67 0a 3d 3d 3d 3d 3d ...Exiting.=====
17d0: 3d 3d 0a 50 72 65 73 73 20 2a 7a 2a 2e 20 54 68 ==.Press *z*. Th
17e0: 69 73 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e is should return
17f0: 20 79 6f 75 20 74 6f 20 74 68 65 20 52 65 74 72 you to the Retr
1800: 6f 20 6c 69 73 74 65 6e 65 72 2e 0a 0a 0a 4e 61 o listener....Na
1810: 76 69 67 61 74 69 6f 6e 0a 3d 3d 3d 3d 3d 3d 3d vigation.=======
1820: 3d 3d 3d 0a 52 65 73 74 61 72 74 20 74 68 65 20 ===.Restart the
1830: 65 64 69 74 6f 72 20 77 69 74 68 20 2a 2a 65 64 editor with **ed
1840: 69 74 2a 2a 2e 0a 0a 54 68 65 20 66 6f 6c 6c 6f it**...The follo
1850: 77 69 6e 67 20 6b 65 79 73 20 63 61 6e 20 62 65 wing keys can be
1860: 20 75 73 65 64 20 74 6f 20 6e 61 76 69 67 61 74 used to navigat
1870: 65 20 74 68 72 6f 75 67 68 20 74 68 65 0a 62 6c e through the.bl
1880: 6f 63 6b 73 2e 0a 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d ocks...+-----+--
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 7c 20 4b 65 ----------+.| Ke
18c0: 79 20 7c 20 55 73 65 64 20 66 6f 72 20 20 20 20 y | Used for
18d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
18e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c |
18f0: 0a 2b 3d 3d 3d 3d 3d 2b 3d 3d 3d 3d 3d 3d 3d 3d .+=====+========
1900: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1910: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1920: 3d 3d 3d 3d 2b 0a 7c 20 20 69 20 20 7c 20 4d 6f ====+.| i | Mo
1930: 76 65 20 63 75 72 73 6f 72 20 75 70 20 20 20 20 ve cursor up
1940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1950: 20 20 20 20 20 20 20 20 20 7c 0a 2b 2d 2d 2d 2d |.+----
1960: 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -+--------------
1970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a --------------+.
1990: 7c 20 20 6a 20 20 7c 20 4d 6f 76 65 20 63 75 72 | j | Move cur
19a0: 73 6f 72 20 6c 65 66 74 20 20 20 20 20 20 20 20 sor left
19b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
19c0: 20 20 20 7c 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d |.+-----+----
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 7c 20 20 6b 20 20 --------+.| k
1a00: 7c 20 4d 6f 76 65 20 63 75 72 73 6f 72 20 64 6f | Move cursor do
1a10: 77 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 wn
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 2b |.+
1a30: 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -----+----------
1a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a60: 2d 2d 2b 0a 7c 20 20 6c 20 20 7c 20 4d 6f 76 65 --+.| l | Move
1a70: 20 63 75 72 73 6f 72 20 72 69 67 68 74 20 20 20 cursor right
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a90: 20 20 20 20 20 20 20 7c 0a 2b 2d 2d 2d 2d 2d 2b |.+-----+
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 7c 20 ------------+.|
1ad0: 20 5b 20 20 7c 20 53 77 69 74 63 68 20 74 6f 20 [ | Switch to
1ae0: 70 72 65 76 69 6f 75 73 20 62 6c 6f 63 6b 20 20 previous block
1af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b00: 20 7c 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d |.+-----+------
1b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b30: 2d 2d 2d 2d 2d 2d 2b 0a 7c 20 20 5d 20 20 7c 20 ------+.| ] |
1b40: 53 77 69 74 63 68 20 74 6f 20 6e 65 78 74 20 62 Switch to next b
1b50: 6c 6f 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 lock
1b60: 20 20 20 20 20 20 20 20 20 20 20 7c 0a 2b 2d 2d |.+--
1b70: 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---+------------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2b 0a 7c 20 20 6d 20 20 7c 20 4d 6f 76 65 20 63 +.| m | Move c
1bb0: 75 72 73 6f 72 20 74 6f 20 73 74 61 72 74 20 6f ursor to start o
1bc0: 66 20 6e 65 78 74 20 6c 69 6e 65 20 20 20 20 20 f next line
1bd0: 20 20 20 20 20 7c 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d |.+-----+--
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 7c 20 20 49 ----------+.| I
1c10: 20 20 7c 20 4d 6f 76 65 20 63 75 72 73 6f 72 20 | Move cursor
1c20: 74 6f 20 74 6f 70 20 6c 69 6e 65 20 6f 66 20 62 to top line of b
1c30: 6c 6f 63 6b 20 20 20 20 20 20 20 20 20 20 20 7c lock |
1c40: 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d .+-----+--------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c70: 2d 2d 2d 2d 2b 0a 7c 20 20 4a 20 20 7c 20 4d 6f ----+.| J | Mo
1c80: 76 65 20 63 75 72 73 6f 72 20 74 6f 20 73 74 61 ve cursor to sta
1c90: 72 74 20 6f 66 20 63 75 72 72 65 6e 74 20 6c 69 rt of current li
1ca0: 6e 65 20 20 20 20 20 20 20 7c 0a 2b 2d 2d 2d 2d ne |.+----
1cb0: 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -+--------------
1cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a --------------+.
1ce0: 7c 20 20 4b 20 20 7c 20 4d 6f 76 65 20 63 75 72 | K | Move cur
1cf0: 73 6f 72 20 74 6f 20 6c 61 73 74 20 6c 69 6e 65 sor to last line
1d00: 20 6f 66 20 62 6c 6f 63 6b 20 20 20 20 20 20 20 of block
1d10: 20 20 20 7c 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d |.+-----+----
1d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d40: 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 7c 20 20 4c 20 20 --------+.| L
1d50: 7c 20 4d 6f 76 65 20 63 75 72 73 6f 72 20 74 6f | Move cursor to
1d60: 20 65 6e 64 20 6f 66 20 63 75 72 72 65 6e 74 20 end of current
1d70: 6c 69 6e 65 20 20 20 20 20 20 20 20 20 7c 0a 2b line |.+
1d80: 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -----+----------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1db0: 2d 2d 2b 0a 7c 20 20 4d 20 20 7c 20 43 65 6e 74 --+.| M | Cent
1dc0: 65 72 20 63 75 72 73 6f 72 20 6f 6e 20 63 75 72 er cursor on cur
1dd0: 72 65 6e 74 20 6c 69 6e 65 20 20 20 20 20 20 20 rent line
1de0: 20 20 20 20 20 20 20 7c 0a 2b 2d 2d 2d 2d 2d 2b |.+-----+
1df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 0a 0a ------------+...
1e20: 45 6e 74 72 79 20 4d 6f 64 65 0a 3d 3d 3d 3d 3d Entry Mode.=====
1e30: 3d 3d 3d 3d 3d 0a 55 73 65 20 74 68 65 20 2a 74 =====.Use the *t
1e40: 61 62 2a 20 6b 65 79 20 74 6f 20 73 77 69 74 63 ab* key to switc
1e50: 68 20 74 6f 20 65 6e 74 72 79 20 6d 6f 64 65 2c h to entry mode,
1e60: 20 61 6e 64 20 61 67 61 69 6e 20 74 6f 0a 73 77 and again to.sw
1e70: 69 74 63 68 20 62 61 63 6b 20 74 6f 20 63 6f 6d itch back to com
1e80: 6d 61 6e 64 20 6d 6f 64 65 2e 0a 0a 0a 45 76 61 mand mode....Eva
1e90: 6c 75 61 74 69 6e 67 20 43 6f 64 65 0a 3d 3d 3d luating Code.===
1ea0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 57 68 65 ============.Whe
1eb0: 6e 20 79 6f 75 27 72 65 20 72 65 61 64 79 20 74 n you're ready t
1ec0: 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 63 6f o process the co
1ed0: 64 65 20 79 6f 75 27 76 65 20 65 6e 74 65 72 65 de you've entere
1ee0: 64 2c 20 75 73 65 0a 74 68 65 20 66 6f 6c 6c 6f d, use.the follo
1ef0: 77 69 6e 67 20 6b 65 79 73 20 74 6f 20 70 61 73 wing keys to pas
1f00: 73 20 74 68 65 20 63 6f 64 65 20 74 6f 20 74 68 s the code to th
1f10: 65 20 6c 69 73 74 65 6e 65 72 2e 0a 0a 2a 2a 4e e listener...**N
1f20: 6f 74 65 3a 2a 2a 20 2a 54 68 69 73 20 77 69 6c ote:** *This wil
1f30: 6c 20 73 74 6f 70 20 74 68 65 20 65 64 69 74 6f l stop the edito
1f40: 72 20 66 72 6f 6d 20 72 75 6e 6e 69 6e 67 2e 20 r from running.
1f50: 59 6f 75 20 77 69 6c 6c 0a 68 61 76 65 20 74 6f You will.have to
1f60: 20 72 65 73 74 61 72 74 20 69 74 20 6d 61 6e 75 restart it manu
1f70: 61 6c 6c 79 20 61 66 74 65 72 20 65 76 61 6c 75 ally after evalu
1f80: 61 74 69 6e 67 20 63 6f 64 65 2e 2a 0a 0a 2b 2d ating code.*..+-
1f90: 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----+-----------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fc0: 2d 2b 0a 7c 20 4b 65 79 20 7c 20 55 73 65 64 20 -+.| Key | Used
1fd0: 66 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 for
1fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ff0: 20 20 20 20 20 20 7c 0a 2b 3d 3d 3d 3d 3d 2b 3d |.+=====+=
2000: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 2b 0a 7c 20 20 ===========+.|
2030: 65 20 20 7c 20 20 45 76 61 6c 75 61 74 65 20 63 e | Evaluate c
2040: 75 72 72 65 6e 74 20 62 6c 6f 63 6b 20 20 20 20 urrent block
2050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2060: 7c 0a 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d |.+-----+-------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2090: 2d 2d 2d 2d 2d 2b 0a 7c 20 20 45 20 20 7c 20 20 -----+.| E |
20a0: 45 76 61 6c 75 61 74 65 20 61 6c 6c 20 62 6c 6f Evaluate all blo
20b0: 63 6b 73 20 20 20 20 20 20 20 20 20 20 20 20 20 cks
20c0: 20 20 20 20 20 20 20 20 20 20 7c 0a 2b 2d 2d 2d |.+---
20d0: 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --+-------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b ---------------+
2100: 0a 0a 0a 4c 6f 61 64 69 6e 67 20 41 6e 64 20 53 ...Loading And S
2110: 61 76 69 6e 67 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d aving.==========
2120: 3d 3d 3d 3d 3d 3d 3d 3d 0a 42 6c 6f 63 6b 73 20 ========.Blocks
2130: 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 are stored in th
2140: 65 20 69 6d 61 67 65 20 66 69 6c 65 2e 20 49 66 e image file. If
2150: 20 79 6f 75 20 61 72 65 20 75 73 69 6e 67 20 61 you are using a
2160: 20 56 4d 0a 74 68 61 74 20 73 75 70 70 6f 72 74 VM.that support
2170: 73 20 74 68 65 20 66 69 6c 65 73 27 20 76 6f 63 s the files' voc
2180: 61 62 75 6c 61 72 79 2c 20 79 6f 75 20 63 61 6e abulary, you can
2190: 20 75 73 65 20 74 68 65 20 66 6f 6c 6c 6f 77 69 use the followi
21a0: 6e 67 0a 6b 65 79 73 20 74 6f 20 69 6d 70 6f 72 ng.keys to impor
21b0: 74 20 61 6e 64 20 65 78 70 6f 72 74 20 74 68 65 t and export the
21c0: 20 62 6c 6f 63 6b 73 20 74 6f 20 72 65 67 75 6c blocks to regul
21d0: 61 72 20 66 69 6c 65 73 2e 0a 0a 2b 2d 2d 2d 2d ar files...+----
21e0: 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -+--------------
21f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a --------------+.
2210: 7c 20 4b 65 79 20 7c 20 55 73 65 64 20 66 6f 72 | Key | Used for
2220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2240: 20 20 20 7c 0a 2b 3d 3d 3d 3d 3d 2b 3d 3d 3d 3d |.+=====+====
2250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2270: 3d 3d 3d 3d 3d 3d 3d 3d 2b 0a 7c 20 20 7b 20 20 ========+.| {
2280: 7c 20 20 4c 6f 61 64 20 74 68 65 20 63 6f 6e 74 | Load the cont
2290: 65 6e 74 73 20 6f 66 20 22 62 6c 6f 63 6b 73 22 ents of "blocks"
22a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 2b |.+
22b0: 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d -----+----------
22c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22e0: 2d 2d 2b 0a 7c 20 20 7d 20 20 7c 20 20 53 74 6f --+.| } | Sto
22f0: 72 65 20 61 6c 6c 20 62 6c 6f 63 6b 73 20 69 6e re all blocks in
2300: 74 6f 20 22 62 6c 6f 63 6b 73 22 20 20 20 20 20 to "blocks"
2310: 20 20 20 20 20 20 20 7c 0a 2b 2d 2d 2d 2d 2d 2b |.+-----+
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 0a 0a 0a ------------+...
2350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 4d 69 73 63 -----------.Misc
2360: 2e 20 4e 6f 74 65 73 0a 2d 2d 2d 2d 2d 2d 2d 2d . Notes.--------
2370: 2d 2d 2d 0a 52 65 74 72 6f 27 73 20 62 6c 6f 63 ---.Retro's bloc
2380: 6b 73 20 61 72 65 20 31 36 30 30 20 63 65 6c 6c ks are 1600 cell
2390: 73 20 69 6e 20 6c 65 6e 67 74 68 20 65 61 63 68 s in length each
23a0: 2e 20 54 68 65 79 20 61 72 65 20 64 69 73 70 6c . They are displ
23b0: 61 79 65 64 20 61 73 0a 38 30 20 63 6f 6c 75 6d ayed as.80 colum
23c0: 6e 73 20 61 6e 64 20 32 30 20 72 6f 77 73 2e 0a ns and 20 rows..
23d0: 0a 7d 64 6f 63 0a .}doc.