/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / tpu-extras.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 61 74 20 | 4e 6f 76 20 32 37 20 30 | on Sat |Nov 27 0|
|00000040| 33 3a 30 33 3a 32 39 20 | 31 39 39 33 0a 3b 3b 3b |3:03:29 |1993.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 74 70 75 2d 65 78 | 74 72 61 73 2e 65 6c 0a |p/tpu-ex|tras.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 32 31 2e | 39 30 2e 0a 3b 3b 3b 20 |n 19.21.|90..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 64 65 66 63 6f 6e | 73 74 20 74 70 75 2d 65 |.(defcon|st tpu-e|
|000001d0| 78 74 72 61 73 2d 72 65 | 76 69 73 69 6f 6e 20 22 |xtras-re|vision "|
|000001e0| 24 52 65 76 69 73 69 6f | 6e 3a 20 31 2e 36 20 24 |$Revisio|n: 1.6 $|
|000001f0| 22 20 22 5c 0a 52 65 76 | 69 73 69 6f 6e 20 6e 75 |" "\.Rev|ision nu|
|00000200| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 54 50 55 2d |mber of |the TPU-|
|00000210| 65 64 74 20 65 78 74 72 | 61 73 2e 22 29 0a 28 64 |edt extr|as.").(d|
|00000220| 65 66 63 6f 6e 73 74 20 | 74 70 75 2d 74 6f 70 2d |efconst |tpu-top-|
|00000230| 73 63 72 6f 6c 6c 2d 6d | 61 72 67 69 6e 20 30 20 |scroll-m|argin 0 |
|00000240| 22 5c 0a 2a 53 63 72 6f | 6c 6c 20 6d 61 72 67 69 |"\.*Scro|ll margi|
|00000250| 6e 20 61 74 20 74 68 65 | 20 74 6f 70 20 6f 66 20 |n at the| top of |
|00000260| 74 68 65 20 73 63 72 65 | 65 6e 2e 0a 49 6e 74 65 |the scre|en..Inte|
|00000270| 72 70 72 65 74 65 64 20 | 61 73 20 61 20 70 65 72 |rpreted |as a per|
|00000280| 63 65 6e 74 20 6f 66 20 | 74 68 65 20 63 75 72 72 |cent of |the curr|
|00000290| 65 6e 74 20 77 69 6e 64 | 6f 77 20 73 69 7a 65 2e |ent wind|ow size.|
|000002a0| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 74 70 75 |").(defc|onst tpu|
|000002b0| 2d 62 6f 74 74 6f 6d 2d | 73 63 72 6f 6c 6c 2d 6d |-bottom-|scroll-m|
|000002c0| 61 72 67 69 6e 20 30 20 | 22 5c 0a 2a 53 63 72 6f |argin 0 |"\.*Scro|
|000002d0| 6c 6c 20 6d 61 72 67 69 | 6e 20 61 74 20 74 68 65 |ll margi|n at the|
|000002e0| 20 62 6f 74 74 6f 6d 20 | 6f 66 20 74 68 65 20 73 | bottom |of the s|
|000002f0| 63 72 65 65 6e 2e 0a 49 | 6e 74 65 72 70 72 65 74 |creen..I|nterpret|
|00000300| 65 64 20 61 73 20 61 20 | 70 65 72 63 65 6e 74 20 |ed as a |percent |
|00000310| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 77 |of the c|urrent w|
|00000320| 69 6e 64 6f 77 20 73 69 | 7a 65 2e 22 29 0a 28 64 |indow si|ze.").(d|
|00000330| 65 66 76 61 72 20 74 70 | 75 2d 62 61 63 6b 77 61 |efvar tp|u-backwa|
|00000340| 72 64 2d 63 68 61 72 2d | 6c 69 6b 65 2d 74 70 75 |rd-char-|like-tpu|
|00000350| 20 74 20 22 5c 0a 2a 49 | 66 20 6e 6f 6e 2d 6e 69 | t "\.*I|f non-ni|
|00000360| 6c 2c 20 69 6e 20 66 72 | 65 65 20 63 75 72 73 6f |l, in fr|ee curso|
|00000370| 72 20 6d 6f 64 65 20 62 | 61 63 6b 77 61 72 64 2d |r mode b|ackward-|
|00000380| 63 68 61 72 20 28 6c 65 | 66 74 2d 61 72 72 6f 77 |char (le|ft-arrow|
|00000390| 29 20 77 6f 72 6b 73 0a | 6a 75 73 74 20 6c 69 6b |) works.|just lik|
|000003a0| 65 20 54 50 55 2f 65 64 | 74 2e 20 20 4f 74 68 65 |e TPU/ed|t.  Othe|
|000003b0| 72 77 69 73 65 2c 20 62 | 61 63 6b 77 61 72 64 2d |rwise, b|ackward-|
|000003c0| 63 68 61 72 20 77 69 6c | 6c 20 6d 6f 76 65 20 74 |char wil|l move t|
|000003d0| 6f 20 74 68 65 20 65 6e | 64 20 6f 66 0a 74 68 65 |o the en|d of.the|
|000003e0| 20 70 72 65 76 69 6f 75 | 73 20 6c 69 6e 65 20 77 | previou|s line w|
|000003f0| 68 65 6e 20 73 74 61 72 | 74 69 6e 67 20 66 72 6f |hen star|ting fro|
|00000400| 6d 20 61 20 6c 69 6e 65 | 20 62 65 67 69 6e 6e 69 |m a line| beginni|
|00000410| 6e 67 2e 22 29 0a 28 64 | 65 66 76 61 72 20 74 70 |ng.").(d|efvar tp|
|00000420| 75 2d 63 75 72 73 6f 72 | 2d 66 72 65 65 20 6e 69 |u-cursor|-free ni|
|00000430| 6c 20 22 5c 0a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |l "\.If |non-nil,|
|00000440| 20 6c 65 74 20 74 68 65 | 20 63 75 72 73 6f 72 20 | let the| cursor |
|00000450| 72 6f 61 6d 20 66 72 65 | 65 2e 22 29 0a 28 62 79 |roam fre|e.").(by|
|00000460| 74 65 2d 63 6f 64 65 20 | 22 08 83 11 00 c1 5c 6e |te-code |".....\n|
|00000470| 3e 84 16 00 c1 5c 6e 42 | 12 82 16 00 c3 c4 c1 5c |>....\nB|.......\|
|00000480| 22 88 c1 87 22 20 5b 74 | 70 75 2d 67 6e 75 2d 65 |"..." [t|pu-gnu-e|
|00000490| 6d 61 63 73 31 38 2d 70 | 20 74 70 75 2d 73 65 74 |macs18-p| tpu-set|
|000004a0| 2d 63 75 72 73 6f 72 2d | 66 72 65 65 20 65 64 69 |-cursor-|free edi|
|000004b0| 74 2d 70 69 63 74 75 72 | 65 2d 68 6f 6f 6b 20 61 |t-pictur|e-hook a|
|000004c0| 64 64 2d 68 6f 6f 6b 20 | 70 69 63 74 75 72 65 2d |dd-hook |picture-|
|000004d0| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 33 29 0a 28 64 |mode-hoo|k] 3).(d|
|000004e0| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 77 72 69 |efalias |'tpu-wri|
|000004f0| 74 65 2d 66 69 6c 65 2d | 68 6f 6f 6b 20 23 5b 6e |te-file-|hook #[n|
|00000500| 69 6c 20 22 c0 20 85 0b | 00 09 85 0b 00 c2 20 87 |il ". ..|...... .|
|00000510| 22 20 5b 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |" [buffe|r-modifi|
|00000520| 65 64 2d 70 20 74 70 75 | 2d 63 75 72 73 6f 72 2d |ed-p tpu|-cursor-|
|00000530| 66 72 65 65 20 70 69 63 | 74 75 72 65 2d 63 6c 65 |free pic|ture-cle|
|00000540| 61 6e 5d 20 31 20 22 5c | 0a 45 6c 69 6d 69 6e 61 |an] 1 "\|.Elimina|
|00000550| 74 65 20 77 68 69 74 65 | 73 70 61 63 65 20 61 74 |te white|space at|
|00000560| 20 65 6e 64 73 20 6f 66 | 20 6c 69 6e 65 73 2c 20 | ends of| lines, |
|00000570| 69 66 20 74 68 65 20 63 | 75 72 73 6f 72 20 69 73 |if the c|ursor is|
|00000580| 20 66 72 65 65 2e 22 5d | 29 0a 28 62 79 74 65 2d | free."]|).(byte-|
|00000590| 63 6f 64 65 20 22 c0 09 | 3e 84 5c 6e 00 c0 09 42 |code "..|>.\n...B|
|000005a0| 11 c0 87 22 20 5b 74 70 | 75 2d 77 72 69 74 65 2d |..." [tp|u-write-|
|000005b0| 66 69 6c 65 2d 68 6f 6f | 6b 20 77 72 69 74 65 2d |file-hoo|k write-|
|000005c0| 66 69 6c 65 2d 68 6f 6f | 6b 73 5d 20 32 29 0a 28 |file-hoo|ks] 2).(|
|000005d0| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 74 6f |defalias| 'tpu-to|
|000005e0| 70 2d 63 68 65 63 6b 20 | 23 5b 28 62 65 67 20 6c |p-check |#[(beg l|
|000005f0| 69 6e 65 73 29 20 22 c0 | 20 09 5f c2 a5 1b 0c 0b |ines) ".| ._.....|
|00000600| 57 83 13 00 c5 0c 21 82 | 1f 00 0c 0e 06 5a 0b 57 |W.....!.|.....Z.W|
|00000610| 85 1f 00 c5 0b 21 29 87 | 22 20 5b 77 69 6e 64 6f |.....!).|" [windo|
|00000620| 77 2d 68 65 69 67 68 74 | 20 74 70 75 2d 74 6f 70 |w-height| tpu-top|
|00000630| 2d 73 63 72 6f 6c 6c 2d | 6d 61 72 67 69 6e 20 31 |-scroll-|margin 1|
|00000640| 30 30 20 6d 61 72 67 69 | 6e 20 62 65 67 20 72 65 |00 margi|n beg re|
|00000650| 63 65 6e 74 65 72 20 6c | 69 6e 65 73 5d 20 32 20 |center l|ines] 2 |
|00000660| 22 5c 0a 45 6e 66 6f 72 | 63 65 20 73 63 72 6f 6c |"\.Enfor|ce scrol|
|00000670| 6c 20 6d 61 72 67 69 6e | 20 61 74 20 74 68 65 20 |l margin| at the |
|00000680| 74 6f 70 20 6f 66 20 73 | 63 72 65 65 6e 2e 22 5d |top of s|creen."]|
|00000690| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|000006a0| 2d 62 6f 74 74 6f 6d 2d | 63 68 65 63 6b 20 23 5b |-bottom-|check #[|
|000006b0| 28 62 65 67 20 6c 69 6e | 65 73 29 20 22 c0 20 89 |(beg lin|es) ". .|
|000006c0| 19 5c 6e 5f c3 a5 c4 5c | 5c 1d 09 0d 5a c4 5a 1e |.\n_...\|\...Z.Z.|
|000006d0| 06 0e 07 0e 06 56 83 21 | 00 c8 0e 07 21 82 30 00 |.....V.!|....!.0.|
|000006e0| 0e 07 0e 09 5c 5c 0e 06 | 56 85 30 00 c8 0d 5b 21 |....\\..|V.0...[!|
|000006f0| 2b 87 22 20 5b 77 69 6e | 64 6f 77 2d 68 65 69 67 |+." [win|dow-heig|
|00000700| 68 74 20 68 65 69 67 68 | 74 20 74 70 75 2d 62 6f |ht heigh|t tpu-bo|
|00000710| 74 74 6f 6d 2d 73 63 72 | 6f 6c 6c 2d 6d 61 72 67 |ttom-scr|oll-marg|
|00000720| 69 6e 20 31 30 30 20 31 | 20 6d 61 72 67 69 6e 20 |in 100 1| margin |
|00000730| 64 69 66 66 65 72 65 6e | 63 65 20 62 65 67 20 72 |differen|ce beg r|
|00000740| 65 63 65 6e 74 65 72 20 | 6c 69 6e 65 73 5d 20 33 |ecenter |lines] 3|
|00000750| 20 22 5c 0a 45 6e 66 6f | 72 63 65 20 73 63 72 6f | "\.Enfo|rce scro|
|00000760| 6c 6c 20 6d 61 72 67 69 | 6e 20 61 74 20 74 68 65 |ll margi|n at the|
|00000770| 20 62 6f 74 74 6f 6d 20 | 6f 66 20 73 63 72 65 65 | bottom |of scree|
|00000780| 6e 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |n."]).(d|efalias |
|00000790| 27 74 70 75 2d 66 6f 72 | 77 61 72 64 2d 63 68 61 |'tpu-for|ward-cha|
|000007a0| 72 20 23 5b 28 6e 75 6d | 29 20 22 08 83 08 00 c1 |r #[(num|) ".....|
|000007b0| 5c 6e 21 87 5c 6e 75 87 | 22 20 5b 74 70 75 2d 63 |\n!.\nu.|" [tpu-c|
|000007c0| 75 72 73 6f 72 2d 66 72 | 65 65 20 70 69 63 74 75 |ursor-fr|ee pictu|
|000007d0| 72 65 2d 66 6f 72 77 61 | 72 64 2d 63 6f 6c 75 6d |re-forwa|rd-colum|
|000007e0| 6e 20 6e 75 6d 5d 20 32 | 20 22 5c 0a 4d 6f 76 65 |n num] 2| "\.Move|
|000007f0| 20 72 69 67 68 74 20 41 | 52 47 20 63 68 61 72 61 | right A|RG chara|
|00000800| 63 74 65 72 73 20 28 6c | 65 66 74 20 69 66 20 41 |cters (l|eft if A|
|00000810| 52 47 20 69 73 20 6e 65 | 67 61 74 69 76 65 29 2e |RG is ne|gative).|
|00000820| 22 20 22 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "p"]).|(defalia|
|00000830| 73 20 27 74 70 75 2d 62 | 61 63 6b 77 61 72 64 2d |s 'tpu-b|ackward-|
|00000840| 63 68 61 72 20 23 5b 28 | 6e 75 6d 29 20 22 08 84 |char #[(|num) "..|
|00000850| 08 00 c1 5c 6e 21 87 0b | 83 10 00 c4 5c 6e 21 87 |...\n!..|....\n!.|
|00000860| 6e 83 20 00 c1 c5 21 88 | c6 20 88 c4 5c 6e 53 21 |n. ...!.|. ..\nS!|
|00000870| 87 c4 5c 6e 21 87 22 20 | 5b 74 70 75 2d 63 75 72 |..\n!." |[tpu-cur|
|00000880| 73 6f 72 2d 66 72 65 65 | 20 62 61 63 6b 77 61 72 |sor-free| backwar|
|00000890| 64 2d 63 68 61 72 20 6e | 75 6d 20 74 70 75 2d 62 |d-char n|um tpu-b|
|000008a0| 61 63 6b 77 61 72 64 2d | 63 68 61 72 2d 6c 69 6b |ackward-|char-lik|
|000008b0| 65 2d 74 70 75 20 70 69 | 63 74 75 72 65 2d 62 61 |e-tpu pi|cture-ba|
|000008c0| 63 6b 77 61 72 64 2d 63 | 6f 6c 75 6d 6e 20 31 20 |ckward-c|olumn 1 |
|000008d0| 70 69 63 74 75 72 65 2d | 65 6e 64 2d 6f 66 2d 6c |picture-|end-of-l|
|000008e0| 69 6e 65 5d 20 32 20 22 | 5c 0a 4d 6f 76 65 20 6c |ine] 2 "|\.Move l|
|000008f0| 65 66 74 20 41 52 47 20 | 63 68 61 72 61 63 74 65 |eft ARG |characte|
|00000900| 72 73 20 28 72 69 67 68 | 74 20 69 66 20 41 52 47 |rs (righ|t if ARG|
|00000910| 20 69 73 20 6e 65 67 61 | 74 69 76 65 29 2e 22 20 | is nega|tive)." |
|00000920| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|00000930| 27 74 70 75 2d 6e 65 78 | 74 2d 6c 69 6e 65 20 23 |'tpu-nex|t-line #|
|00000940| 5b 28 6e 75 6d 29 20 22 | c0 20 19 5c 6e 83 12 00 |[(num) "|. .\n...|
|00000950| 6d 84 16 00 c3 0c 21 88 | 82 16 00 c5 0c 21 88 c6 |m.....!.|.....!..|
|00000960| 09 0c 5c 22 88 c7 89 16 | 08 29 87 22 20 5b 74 70 |..\"....|.)." [tp|
|00000970| 75 2d 63 75 72 72 65 6e | 74 2d 6c 69 6e 65 20 62 |u-curren|t-line b|
|00000980| 65 67 20 74 70 75 2d 63 | 75 72 73 6f 72 2d 66 72 |eg tpu-c|ursor-fr|
|00000990| 65 65 20 70 69 63 74 75 | 72 65 2d 6d 6f 76 65 2d |ee pictu|re-move-|
|000009a0| 64 6f 77 6e 20 6e 75 6d | 20 6e 65 78 74 2d 6c 69 |down num| next-li|
|000009b0| 6e 65 2d 69 6e 74 65 72 | 6e 61 6c 20 74 70 75 2d |ne-inter|nal tpu-|
|000009c0| 62 6f 74 74 6f 6d 2d 63 | 68 65 63 6b 20 6e 65 78 |bottom-c|heck nex|
|000009d0| 74 2d 6c 69 6e 65 20 74 | 68 69 73 2d 63 6f 6d 6d |t-line t|his-comm|
|000009e0| 61 6e 64 5d 20 33 20 22 | 5c 0a 4d 6f 76 65 20 74 |and] 3 "|\.Move t|
|000009f0| 6f 20 6e 65 78 74 20 6c | 69 6e 65 2e 0a 50 72 65 |o next l|ine..Pre|
|00000a00| 66 69 78 20 61 72 67 75 | 6d 65 6e 74 20 73 65 72 |fix argu|ment ser|
|00000a10| 76 65 73 20 61 73 20 61 | 20 72 65 70 65 61 74 20 |ves as a| repeat |
|00000a20| 63 6f 75 6e 74 2e 22 20 | 22 70 22 5d 29 0a 28 64 |count." |"p"]).(d|
|00000a30| 65 66 61 6c 69 61 73 20 | 27 74 70 75 2d 70 72 65 |efalias |'tpu-pre|
|00000a40| 76 69 6f 75 73 2d 6c 69 | 6e 65 20 23 5b 28 6e 75 |vious-li|ne #[(nu|
|00000a50| 6d 29 20 22 c0 20 19 5c | 6e 83 0e 00 c3 0c 21 88 |m) ". .\|n.....!.|
|00000a60| 82 13 00 c5 0c 5b 21 88 | c6 09 0c 5c 22 88 c7 89 |.....[!.|...\"...|
|00000a70| 16 08 29 87 22 20 5b 74 | 70 75 2d 63 75 72 72 65 |..)." [t|pu-curre|
|00000a80| 6e 74 2d 6c 69 6e 65 20 | 62 65 67 20 74 70 75 2d |nt-line |beg tpu-|
|00000a90| 63 75 72 73 6f 72 2d 66 | 72 65 65 20 70 69 63 74 |cursor-f|ree pict|
|00000aa0| 75 72 65 2d 6d 6f 76 65 | 2d 75 70 20 6e 75 6d 20 |ure-move|-up num |
|00000ab0| 6e 65 78 74 2d 6c 69 6e | 65 2d 69 6e 74 65 72 6e |next-lin|e-intern|
|00000ac0| 61 6c 20 74 70 75 2d 74 | 6f 70 2d 63 68 65 63 6b |al tpu-t|op-check|
|00000ad0| 20 70 72 65 76 69 6f 75 | 73 2d 6c 69 6e 65 20 74 | previou|s-line t|
|00000ae0| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 5d 20 33 20 22 |his-comm|and] 3 "|
|00000af0| 5c 0a 4d 6f 76 65 20 74 | 6f 20 70 72 65 76 69 6f |\.Move t|o previo|
|00000b00| 75 73 20 6c 69 6e 65 2e | 0a 50 72 65 66 69 78 20 |us line.|.Prefix |
|00000b10| 61 72 67 75 6d 65 6e 74 | 20 73 65 72 76 65 73 20 |argument| serves |
|00000b20| 61 73 20 61 20 72 65 70 | 65 61 74 20 63 6f 75 6e |as a rep|eat coun|
|00000b30| 74 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |t." "p"]|).(defal|
|00000b40| 69 61 73 20 27 74 70 75 | 2d 6e 65 78 74 2d 62 65 |ias 'tpu|-next-be|
|00000b50| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 6c 69 6e 65 20 |ginning-|of-line |
|00000b60| 23 5b 28 6e 75 6d 29 20 | 22 c0 20 19 c2 c3 21 88 |#[(num) |". ...!.|
|00000b70| c3 0c 5a 79 88 c5 09 0c | 5c 22 29 87 22 20 5b 74 |..Zy....|\")." [t|
|00000b80| 70 75 2d 63 75 72 72 65 | 6e 74 2d 6c 69 6e 65 20 |pu-curre|nt-line |
|00000b90| 62 65 67 20 62 61 63 6b | 77 61 72 64 2d 63 68 61 |beg back|ward-cha|
|00000ba0| 72 20 31 20 6e 75 6d 20 | 74 70 75 2d 74 6f 70 2d |r 1 num |tpu-top-|
|00000bb0| 63 68 65 63 6b 5d 20 33 | 20 22 5c 0a 4d 6f 76 65 |check] 3| "\.Move|
|00000bc0| 20 74 6f 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | to begi|nning of|
|00000bd0| 20 6c 69 6e 65 3b 20 69 | 66 20 61 74 20 62 65 67 | line; i|f at beg|
|00000be0| 69 6e 6e 69 6e 67 2c 20 | 6d 6f 76 65 20 74 6f 20 |inning, |move to |
|00000bf0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 6e 65 78 |beginnin|g of nex|
|00000c00| 74 20 6c 69 6e 65 2e 0a | 41 63 63 65 70 74 73 20 |t line..|Accepts |
|00000c10| 61 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |a prefix| argumen|
|00000c20| 74 20 66 6f 72 20 74 68 | 65 20 6e 75 6d 62 65 72 |t for th|e number|
|00000c30| 20 6f 66 20 6c 69 6e 65 | 73 20 74 6f 20 6d 6f 76 | of line|s to mov|
|00000c40| 65 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |e." "p"]|).(defal|
|00000c50| 69 61 73 20 27 74 70 75 | 2d 6e 65 78 74 2d 65 6e |ias 'tpu|-next-en|
|00000c60| 64 2d 6f 66 2d 6c 69 6e | 65 20 23 5b 28 6e 75 6d |d-of-lin|e #[(num|
|00000c70| 29 20 22 c0 20 19 5c 6e | 83 25 00 60 19 c3 0c 57 |) ". .\n|.%.`...W|
|00000c80| 83 12 00 0c 79 88 c5 20 | 88 60 09 58 83 21 00 c6 |....y.. |.`.X.!..|
|00000c90| 79 88 c5 20 88 29 82 2b | 00 c6 75 88 0c 7f 88 c7 |y.. .).+|..u.....|
|00000ca0| 09 0c 5c 22 29 87 22 20 | 5b 74 70 75 2d 63 75 72 |..\")." |[tpu-cur|
|00000cb0| 72 65 6e 74 2d 6c 69 6e | 65 20 62 65 67 20 74 70 |rent-lin|e beg tp|
|00000cc0| 75 2d 63 75 72 73 6f 72 | 2d 66 72 65 65 20 31 20 |u-cursor|-free 1 |
|00000cd0| 6e 75 6d 20 70 69 63 74 | 75 72 65 2d 65 6e 64 2d |num pict|ure-end-|
|00000ce0| 6f 66 2d 6c 69 6e 65 20 | 6e 69 6c 20 74 70 75 2d |of-line |nil tpu-|
|00000cf0| 62 6f 74 74 6f 6d 2d 63 | 68 65 63 6b 5d 20 33 20 |bottom-c|heck] 3 |
|00000d00| 22 5c 0a 4d 6f 76 65 20 | 74 6f 20 65 6e 64 20 6f |"\.Move |to end o|
|00000d10| 66 20 6c 69 6e 65 3b 20 | 69 66 20 61 74 20 65 6e |f line; |if at en|
|00000d20| 64 2c 20 6d 6f 76 65 20 | 74 6f 20 65 6e 64 20 6f |d, move |to end o|
|00000d30| 66 20 6e 65 78 74 20 6c | 69 6e 65 2e 0a 41 63 63 |f next l|ine..Acc|
|00000d40| 65 70 74 73 20 61 20 70 | 72 65 66 69 78 20 61 72 |epts a p|refix ar|
|00000d50| 67 75 6d 65 6e 74 20 66 | 6f 72 20 74 68 65 20 6e |gument f|or the n|
|00000d60| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 74 |umber of| lines t|
|00000d70| 6f 20 6d 6f 76 65 2e 22 | 20 22 70 22 5d 29 0a 28 |o move."| "p"]).(|
|00000d80| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 70 72 |defalias| 'tpu-pr|
|00000d90| 65 76 69 6f 75 73 2d 65 | 6e 64 2d 6f 66 2d 6c 69 |evious-e|nd-of-li|
|00000da0| 6e 65 20 23 5b 28 6e 75 | 6d 29 20 22 c0 20 19 5c |ne #[(nu|m) ". .\|
|00000db0| 6e 83 10 00 c3 c4 0d 5a | 21 88 82 15 00 c4 0d 5a |n......Z|!......Z|
|00000dc0| 7f 88 c6 09 0d 5c 22 29 | 87 22 20 5b 74 70 75 2d |.....\")|." [tpu-|
|00000dd0| 63 75 72 72 65 6e 74 2d | 6c 69 6e 65 20 62 65 67 |current-|line beg|
|00000de0| 20 74 70 75 2d 63 75 72 | 73 6f 72 2d 66 72 65 65 | tpu-cur|sor-free|
|00000df0| 20 70 69 63 74 75 72 65 | 2d 65 6e 64 2d 6f 66 2d | picture|-end-of-|
|00000e00| 6c 69 6e 65 20 31 20 6e | 75 6d 20 74 70 75 2d 74 |line 1 n|um tpu-t|
|00000e10| 6f 70 2d 63 68 65 63 6b | 5d 20 33 20 22 5c 0a 4d |op-check|] 3 "\.M|
|00000e20| 6f 76 65 20 45 4f 4c 20 | 75 70 77 61 72 64 2e 0a |ove EOL |upward..|
|00000e30| 41 63 63 65 70 74 73 20 | 61 20 70 72 65 66 69 78 |Accepts |a prefix|
|00000e40| 20 61 72 67 75 6d 65 6e | 74 20 66 6f 72 20 74 68 | argumen|t for th|
|00000e50| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|00000e60| 73 20 74 6f 20 6d 6f 76 | 65 2e 22 20 22 70 22 5d |s to mov|e." "p"]|
|00000e70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 70 75 |).(defal|ias 'tpu|
|00000e80| 2d 63 75 72 72 65 6e 74 | 2d 65 6e 64 2d 6f 66 2d |-current|-end-of-|
|00000e90| 6c 69 6e 65 20 23 5b 6e | 69 6c 20 22 60 18 09 83 |line #[n|il "`...|
|00000ea0| 0c 00 c2 20 88 82 0f 00 | c3 7f 88 08 60 55 85 18 |... ....|....`U..|
|00000eb0| 00 c4 c5 21 29 87 22 20 | 5b 62 65 67 20 74 70 75 |...!)." |[beg tpu|
|00000ec0| 2d 63 75 72 73 6f 72 2d | 66 72 65 65 20 70 69 63 |-cursor-|free pic|
|00000ed0| 74 75 72 65 2d 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |ture-end|-of-line|
|00000ee0| 20 6e 69 6c 20 6d 65 73 | 73 61 67 65 20 22 59 6f | nil mes|sage "Yo|
|00000ef0| 75 20 61 72 65 20 61 6c | 72 65 61 64 79 20 61 74 |u are al|ready at|
|00000f00| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 61 20 6c 69 | the end| of a li|
|00000f10| 6e 65 2e 22 5d 20 32 20 | 22 5c 0a 4d 6f 76 65 20 |ne."] 2 |"\.Move |
|00000f20| 70 6f 69 6e 74 20 74 6f | 20 65 6e 64 20 6f 66 20 |point to| end of |
|00000f30| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2e 22 20 6e |current |line." n|
|00000f40| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00000f50| 74 70 75 2d 66 6f 72 77 | 61 72 64 2d 6c 69 6e 65 |tpu-forw|ard-line|
|00000f60| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 20 19 c2 0b 21 | #[(num)| ". ...!|
|00000f70| 88 c4 09 0b 5c 22 88 c5 | 79 88 29 c6 87 22 20 5b |....\"..|y.).." [|
|00000f80| 74 70 75 2d 63 75 72 72 | 65 6e 74 2d 6c 69 6e 65 |tpu-curr|ent-line|
|00000f90| 20 62 65 67 20 6e 65 78 | 74 2d 6c 69 6e 65 2d 69 | beg nex|t-line-i|
|00000fa0| 6e 74 65 72 6e 61 6c 20 | 6e 75 6d 20 74 70 75 2d |nternal |num tpu-|
|00000fb0| 62 6f 74 74 6f 6d 2d 63 | 68 65 63 6b 20 30 20 6e |bottom-c|heck 0 n|
|00000fc0| 69 6c 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 74 6f |il] 3 "\|.Move to|
|00000fd0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 6e 65 | beginni|ng of ne|
|00000fe0| 78 74 20 6c 69 6e 65 2e | 0a 50 72 65 66 69 78 20 |xt line.|.Prefix |
|00000ff0| 61 72 67 75 6d 65 6e 74 | 20 73 65 72 76 65 73 20 |argument| serves |
|00001000| 61 73 20 61 20 72 65 70 | 65 61 74 20 63 6f 75 6e |as a rep|eat coun|
|00001010| 74 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |t." "p"]|).(defal|
|00001020| 69 61 73 20 27 74 70 75 | 2d 62 61 63 6b 77 61 72 |ias 'tpu|-backwar|
|00001030| 64 2d 6c 69 6e 65 20 23 | 5b 28 6e 75 6d 29 20 22 |d-line #|[(num) "|
|00001040| c0 20 19 c2 0b 5b 21 88 | c4 09 0b 5c 22 88 c5 79 |. ...[!.|...\"..y|
|00001050| 88 29 c6 87 22 20 5b 74 | 70 75 2d 63 75 72 72 65 |.).." [t|pu-curre|
|00001060| 6e 74 2d 6c 69 6e 65 20 | 62 65 67 20 6e 65 78 74 |nt-line |beg next|
|00001070| 2d 6c 69 6e 65 2d 69 6e | 74 65 72 6e 61 6c 20 6e |-line-in|ternal n|
|00001080| 75 6d 20 74 70 75 2d 74 | 6f 70 2d 63 68 65 63 6b |um tpu-t|op-check|
|00001090| 20 30 20 6e 69 6c 5d 20 | 33 20 22 5c 0a 4d 6f 76 | 0 nil] |3 "\.Mov|
|000010a0| 65 20 74 6f 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f |e to beg|inning o|
|000010b0| 66 20 70 72 65 76 69 6f | 75 73 20 6c 69 6e 65 2e |f previo|us line.|
|000010c0| 0a 50 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 |.Prefix |argument|
|000010d0| 20 73 65 72 76 65 73 20 | 61 73 20 72 65 70 65 61 | serves |as repea|
|000010e0| 74 20 63 6f 75 6e 74 2e | 22 20 22 70 22 5d 29 0a |t count.|" "p"]).|
|000010f0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 70 75 2d 70 |(defalia|s 'tpu-p|
|00001100| 61 72 61 67 72 61 70 68 | 20 23 5b 28 6e 75 6d 29 |aragraph| #[(num)|
|00001110| 20 22 c0 19 c2 20 1b c4 | 20 1d 0e 06 c7 55 83 13 | "... ..| ....U..|
|00001120| 00 c8 82 15 00 0e 06 1e | 09 0e 5c 6e c7 55 83 5c |........|..\n.U.\|
|00001130| 22 00 cb 82 24 00 0e 5c | 6e 1e 0c 0d 0e 09 5f cd |"...$..\|n....._.|
|00001140| a5 1e 0e 0d 0e 0c 5f cd | a5 cf 5c 5c 1e 10 0b 0d |......_.|..\\....|
|00001150| 0e 10 5a cf 5a 5d 1e 11 | 8a d2 0e 0e 21 88 60 29 |..Z.Z]..|....!.`)|
|00001160| 1e 13 8a d2 0e 11 21 88 | 60 29 1e 14 8a 0e 14 62 |......!.|`).....b|
|00001170| 88 0d d5 5a 79 88 60 29 | 1e 16 0e 17 83 9e 00 d8 |...Zy.`)|........|
|00001180| 0e 19 21 88 60 0e 16 56 | 83 90 00 8a 0d 79 29 89 |..!.`..V|.....y).|
|00001190| 11 c7 55 83 87 00 da 0e | 0e 21 82 b0 00 da 09 0e |..U.....|.!......|
|000011a0| 10 5a 21 82 b0 00 60 0e | 14 56 85 b0 00 da 0e 11 |.Z!...`.|.V......|
|000011b0| 21 82 b0 00 db 0e 19 21 | 88 60 0e 13 57 85 b0 00 |!......!|.`..W...|
|000011c0| da 0b 0e 0e 5e 21 2e 0b | 87 22 20 5b 6e 69 6c 20 |....^!..|." [nil |
|000011d0| 6c 65 66 74 20 74 70 75 | 2d 63 75 72 72 65 6e 74 |left tpu|-current|
|000011e0| 2d 6c 69 6e 65 20 62 65 | 67 20 77 69 6e 64 6f 77 |-line be|g window|
|000011f0| 2d 68 65 69 67 68 74 20 | 68 65 69 67 68 74 20 74 |-height |height t|
|00001200| 70 75 2d 74 6f 70 2d 73 | 63 72 6f 6c 6c 2d 6d 61 |pu-top-s|croll-ma|
|00001210| 72 67 69 6e 20 30 20 31 | 30 20 74 6f 70 2d 70 65 |rgin 0 1|0 top-pe|
|00001220| 72 63 65 6e 74 20 74 70 | 75 2d 62 6f 74 74 6f 6d |rcent tp|u-bottom|
|00001230| 2d 73 63 72 6f 6c 6c 2d | 6d 61 72 67 69 6e 20 31 |-scroll-|margin 1|
|00001240| 35 20 62 6f 74 74 6f 6d | 2d 70 65 72 63 65 6e 74 |5 bottom|-percent|
|00001250| 20 31 30 30 20 74 6f 70 | 2d 6d 61 72 67 69 6e 20 | 100 top|-margin |
|00001260| 31 20 62 6f 74 74 6f 6d | 2d 75 70 2d 6d 61 72 67 |1 bottom|-up-marg|
|00001270| 69 6e 20 62 6f 74 74 6f | 6d 2d 6d 61 72 67 69 6e |in botto|m-margin|
|00001280| 20 6d 6f 76 65 2d 74 6f | 2d 77 69 6e 64 6f 77 2d | move-to|-window-|
|00001290| 6c 69 6e 65 20 74 6f 70 | 20 62 6f 74 74 6f 6d 20 |line top| bottom |
|000012a0| 32 20 66 61 72 20 74 70 | 75 2d 61 64 76 61 6e 63 |2 far tp|u-advanc|
|000012b0| 65 20 74 70 75 2d 6e 65 | 78 74 2d 70 61 72 61 67 |e tpu-ne|xt-parag|
|000012c0| 72 61 70 68 20 6e 75 6d | 20 72 65 63 65 6e 74 65 |raph num| recente|
|000012d0| 72 20 74 70 75 2d 70 72 | 65 76 69 6f 75 73 2d 70 |r tpu-pr|evious-p|
|000012e0| 61 72 61 67 72 61 70 68 | 5d 20 34 20 22 5c 0a 4d |aragraph|] 4 "\.M|
|000012f0| 6f 76 65 20 74 6f 20 74 | 68 65 20 6e 65 78 74 20 |ove to t|he next |
|00001300| 70 61 72 61 67 72 61 70 | 68 20 69 6e 20 74 68 65 |paragrap|h in the|
|00001310| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 69 | current| directi|
|00001320| 6f 6e 2e 0a 41 20 72 65 | 70 65 61 74 20 63 6f 75 |on..A re|peat cou|
|00001330| 6e 74 20 6d 65 61 6e 73 | 20 6d 6f 76 65 20 74 68 |nt means| move th|
|00001340| 61 74 20 6d 61 6e 79 20 | 70 61 72 61 67 72 61 70 |at many |paragrap|
|00001350| 68 73 2e 22 20 22 70 22 | 5d 29 0a 28 64 65 66 61 |hs." "p"|]).(defa|
|00001360| 6c 69 61 73 20 27 74 70 | 75 2d 70 61 67 65 20 23 |lias 'tp|u-page #|
|00001370| 5b 28 6e 75 6d 29 20 22 | c0 19 c2 20 1b c4 20 1d |[(num) "|... .. .|
|00001380| 0e 06 c7 55 83 13 00 c8 | 82 15 00 0e 06 1e 09 0e |...U....|........|
|00001390| 5c 6e c7 55 83 5c 22 00 | cb 82 24 00 0e 5c 6e 1e |\n.U.\".|..$..\n.|
|000013a0| 0c 0d 0e 09 5f cd a5 1e | 0e 0d 0e 0c 5f cd a5 cf |...._...|...._...|
|000013b0| 5c 5c 1e 10 0b 0d 0e 10 | 5a cf 5a 5d 1e 11 8a d2 |\\......|Z.Z]....|
|000013c0| 0e 0e 21 88 60 29 1e 13 | 8a d2 0e 11 21 88 60 29 |..!.`)..|....!.`)|
|000013d0| 1e 14 8a 0e 14 62 88 0d | d5 5a 79 88 60 29 1e 16 |.....b..|.Zy.`)..|
|000013e0| 0e 17 83 9e 00 d8 0e 19 | 21 88 60 0e 16 56 83 90 |........|!.`..V..|
|000013f0| 00 8a 0d 79 29 89 11 c7 | 55 83 87 00 da 0e 0e 21 |...y)...|U......!|
|00001400| 82 b0 00 da 09 0e 10 5a | 21 82 b0 00 60 0e 14 56 |.......Z|!...`..V|
|00001410| 85 b0 00 da 0e 11 21 82 | b0 00 db 0e 19 21 88 60 |......!.|.....!.`|
|00001420| 0e 13 57 85 b0 00 da 0b | 0e 0e 5e 21 2e 0b 87 22 |..W.....|..^!..."|
|00001430| 20 5b 6e 69 6c 20 6c 65 | 66 74 20 74 70 75 2d 63 | [nil le|ft tpu-c|
|00001440| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 62 65 67 20 |urrent-l|ine beg |
|00001450| 77 69 6e 64 6f 77 2d 68 | 65 69 67 68 74 20 68 65 |window-h|eight he|
|00001460| 69 67 68 74 20 74 70 75 | 2d 74 6f 70 2d 73 63 72 |ight tpu|-top-scr|
|00001470| 6f 6c 6c 2d 6d 61 72 67 | 69 6e 20 30 20 31 30 20 |oll-marg|in 0 10 |
|00001480| 74 6f 70 2d 70 65 72 63 | 65 6e 74 20 74 70 75 2d |top-perc|ent tpu-|
|00001490| 62 6f 74 74 6f 6d 2d 73 | 63 72 6f 6c 6c 2d 6d 61 |bottom-s|croll-ma|
|000014a0| 72 67 69 6e 20 31 35 20 | 62 6f 74 74 6f 6d 2d 70 |rgin 15 |bottom-p|
|000014b0| 65 72 63 65 6e 74 20 31 | 30 30 20 74 6f 70 2d 6d |ercent 1|00 top-m|
|000014c0| 61 72 67 69 6e 20 31 20 | 62 6f 74 74 6f 6d 2d 75 |argin 1 |bottom-u|
|000014d0| 70 2d 6d 61 72 67 69 6e | 20 62 6f 74 74 6f 6d 2d |p-margin| bottom-|
|000014e0| 6d 61 72 67 69 6e 20 6d | 6f 76 65 2d 74 6f 2d 77 |margin m|ove-to-w|
|000014f0| 69 6e 64 6f 77 2d 6c 69 | 6e 65 20 74 6f 70 20 62 |indow-li|ne top b|
|00001500| 6f 74 74 6f 6d 20 32 20 | 66 61 72 20 74 70 75 2d |ottom 2 |far tpu-|
|00001510| 61 64 76 61 6e 63 65 20 | 66 6f 72 77 61 72 64 2d |advance |forward-|
|00001520| 70 61 67 65 20 6e 75 6d | 20 72 65 63 65 6e 74 65 |page num| recente|
|00001530| 72 20 62 61 63 6b 77 61 | 72 64 2d 70 61 67 65 5d |r backwa|rd-page]|
|00001540| 20 34 20 22 5c 0a 4d 6f | 76 65 20 74 6f 20 74 68 | 4 "\.Mo|ve to th|
|00001550| 65 20 6e 65 78 74 20 70 | 61 67 65 20 69 6e 20 74 |e next p|age in t|
|00001560| 68 65 20 63 75 72 72 65 | 6e 74 20 64 69 72 65 63 |he curre|nt direc|
|00001570| 74 69 6f 6e 2e 0a 41 20 | 72 65 70 65 61 74 20 63 |tion..A |repeat c|
|00001580| 6f 75 6e 74 20 6d 65 61 | 6e 73 20 6d 6f 76 65 20 |ount mea|ns move |
|00001590| 74 68 61 74 20 6d 61 6e | 79 20 70 61 67 65 73 2e |that man|y pages.|
|000015a0| 22 20 22 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "p"]).|(defalia|
|000015b0| 73 20 27 74 70 75 2d 73 | 63 72 6f 6c 6c 2d 77 69 |s 'tpu-s|croll-wi|
|000015c0| 6e 64 6f 77 2d 64 6f 77 | 6e 20 23 5b 28 6e 75 6d |ndow-dow|n #[(num|
|000015d0| 29 20 22 c0 20 19 c2 20 | 53 1b 0c 0b 0d 5f c6 a5 |) ". .. |S...._..|
|000015e0| 5f 1e 07 c8 0e 07 5b 21 | 88 c9 09 0e 07 5c 22 2b |_.....[!|.....\"+|
|000015f0| 87 22 20 5b 74 70 75 2d | 63 75 72 72 65 6e 74 2d |." [tpu-|current-|
|00001600| 6c 69 6e 65 20 62 65 67 | 20 77 69 6e 64 6f 77 2d |line beg| window-|
|00001610| 68 65 69 67 68 74 20 68 | 65 69 67 68 74 20 6e 75 |height h|eight nu|
|00001620| 6d 20 74 70 75 2d 70 65 | 72 63 65 6e 74 2d 73 63 |m tpu-pe|rcent-sc|
|00001630| 72 6f 6c 6c 20 31 30 30 | 20 6c 69 6e 65 73 20 6e |roll 100| lines n|
|00001640| 65 78 74 2d 6c 69 6e 65 | 2d 69 6e 74 65 72 6e 61 |ext-line|-interna|
|00001650| 6c 20 74 70 75 2d 74 6f | 70 2d 63 68 65 63 6b 5d |l tpu-to|p-check]|
|00001660| 20 33 20 22 5c 0a 53 63 | 72 6f 6c 6c 20 74 68 65 | 3 "\.Sc|roll the|
|00001670| 20 64 69 73 70 6c 61 79 | 20 64 6f 77 6e 20 74 6f | display| down to|
|00001680| 20 74 68 65 20 6e 65 78 | 74 20 73 65 63 74 69 6f | the nex|t sectio|
|00001690| 6e 2e 0a 41 20 72 65 70 | 65 61 74 20 63 6f 75 6e |n..A rep|eat coun|
|000016a0| 74 20 6d 65 61 6e 73 20 | 73 63 72 6f 6c 6c 20 74 |t means |scroll t|
|000016b0| 68 61 74 20 6d 61 6e 79 | 20 73 65 63 74 69 6f 6e |hat many| section|
|000016c0| 73 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |s." "p"]|).(defal|
|000016d0| 69 61 73 20 27 74 70 75 | 2d 73 63 72 6f 6c 6c 2d |ias 'tpu|-scroll-|
|000016e0| 77 69 6e 64 6f 77 2d 75 | 70 20 23 5b 28 6e 75 6d |window-u|p #[(num|
|000016f0| 29 20 22 c0 20 19 c2 20 | 53 1b 0c 0b 0d 5f c6 a5 |) ". .. |S...._..|
|00001700| 5f 1e 07 c8 0e 07 21 88 | c9 09 0e 07 5c 22 2b 87 |_.....!.|....\"+.|
|00001710| 22 20 5b 74 70 75 2d 63 | 75 72 72 65 6e 74 2d 6c |" [tpu-c|urrent-l|
|00001720| 69 6e 65 20 62 65 67 20 | 77 69 6e 64 6f 77 2d 68 |ine beg |window-h|
|00001730| 65 69 67 68 74 20 68 65 | 69 67 68 74 20 6e 75 6d |eight he|ight num|
|00001740| 20 74 70 75 2d 70 65 72 | 63 65 6e 74 2d 73 63 72 | tpu-per|cent-scr|
|00001750| 6f 6c 6c 20 31 30 30 20 | 6c 69 6e 65 73 20 6e 65 |oll 100 |lines ne|
|00001760| 78 74 2d 6c 69 6e 65 2d | 69 6e 74 65 72 6e 61 6c |xt-line-|internal|
|00001770| 20 74 70 75 2d 62 6f 74 | 74 6f 6d 2d 63 68 65 63 | tpu-bot|tom-chec|
|00001780| 6b 5d 20 33 20 22 5c 0a | 53 63 72 6f 6c 6c 20 74 |k] 3 "\.|Scroll t|
|00001790| 68 65 20 64 69 73 70 6c | 61 79 20 75 70 20 74 6f |he displ|ay up to|
|000017a0| 20 74 68 65 20 6e 65 78 | 74 20 73 65 63 74 69 6f | the nex|t sectio|
|000017b0| 6e 2e 0a 41 20 72 65 70 | 65 61 74 20 63 6f 75 6e |n..A rep|eat coun|
|000017c0| 74 20 6d 65 61 6e 73 20 | 73 63 72 6f 6c 6c 20 74 |t means |scroll t|
|000017d0| 68 61 74 20 6d 61 6e 79 | 20 73 65 63 74 69 6f 6e |hat many| section|
|000017e0| 73 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |s." "p"]|).(defal|
|000017f0| 69 61 73 20 27 74 70 75 | 2d 73 65 61 72 63 68 2d |ias 'tpu|-search-|
|00001800| 69 6e 74 65 72 6e 61 6c | 20 23 5b 28 70 61 74 20 |internal| #[(pat |
|00001810| 26 6f 70 74 69 6f 6e 61 | 6c 20 71 75 69 65 74 29 |&optiona|l quiet)|
|00001820| 20 22 c0 19 c2 20 1b c4 | 20 1d 0e 06 c7 55 83 13 | "... ..| ....U..|
|00001830| 00 c8 82 15 00 0e 06 1e | 09 0e 5c 6e c7 55 83 5c |........|..\n.U.\|
|00001840| 22 00 cb 82 24 00 0e 5c | 6e 1e 0c 0d 0e 09 5f cd |"...$..\|n....._.|
|00001850| a5 1e 0e 0d 0e 0c 5f cd | a5 cf 5c 5c 1e 10 0b 0d |......_.|..\\....|
|00001860| 0e 10 5a cf 5a 5d 1e 11 | 8a d2 0e 0e 21 88 60 29 |..Z.Z]..|....!.`)|
|00001870| 1e 13 8a d2 0e 11 21 88 | 60 29 1e 14 8a 0e 14 62 |......!.|`).....b|
|00001880| 88 0d d5 5a 79 88 60 29 | 1e 16 d7 0e 18 0e 19 5c |...Zy.`)|.......\|
|00001890| 22 88 0e 1a 83 a0 00 60 | 0e 16 56 83 92 00 8a 0d |"......`|..V.....|
|000018a0| 79 29 89 11 c7 55 83 89 | 00 db 0e 0e 21 82 ad 00 |y)...U..|....!...|
|000018b0| db 09 0e 10 5a 21 82 ad | 00 60 0e 14 56 85 ad 00 |....Z!..|.`..V...|
|000018c0| db 0e 11 21 82 ad 00 60 | 0e 13 57 85 ad 00 db 0b |...!...`|..W.....|
|000018d0| 0e 0e 5e 21 2e 0b 87 22 | 20 5b 6e 69 6c 20 6c 65 |..^!..."| [nil le|
|000018e0| 66 74 20 74 70 75 2d 63 | 75 72 72 65 6e 74 2d 6c |ft tpu-c|urrent-l|
|000018f0| 69 6e 65 20 62 65 67 20 | 77 69 6e 64 6f 77 2d 68 |ine beg |window-h|
|00001900| 65 69 67 68 74 20 68 65 | 69 67 68 74 20 74 70 75 |eight he|ight tpu|
|00001910| 2d 74 6f 70 2d 73 63 72 | 6f 6c 6c 2d 6d 61 72 67 |-top-scr|oll-marg|
|00001920| 69 6e 20 30 20 31 30 20 | 74 6f 70 2d 70 65 72 63 |in 0 10 |top-perc|
|00001930| 65 6e 74 20 74 70 75 2d | 62 6f 74 74 6f 6d 2d 73 |ent tpu-|bottom-s|
|00001940| 63 72 6f 6c 6c 2d 6d 61 | 72 67 69 6e 20 31 35 20 |croll-ma|rgin 15 |
|00001950| 62 6f 74 74 6f 6d 2d 70 | 65 72 63 65 6e 74 20 31 |bottom-p|ercent 1|
|00001960| 30 30 20 74 6f 70 2d 6d | 61 72 67 69 6e 20 31 20 |00 top-m|argin 1 |
|00001970| 62 6f 74 74 6f 6d 2d 75 | 70 2d 6d 61 72 67 69 6e |bottom-u|p-margin|
|00001980| 20 62 6f 74 74 6f 6d 2d | 6d 61 72 67 69 6e 20 6d | bottom-|margin m|
|00001990| 6f 76 65 2d 74 6f 2d 77 | 69 6e 64 6f 77 2d 6c 69 |ove-to-w|indow-li|
|000019a0| 6e 65 20 74 6f 70 20 62 | 6f 74 74 6f 6d 20 32 20 |ne top b|ottom 2 |
|000019b0| 66 61 72 20 74 70 75 2d | 73 65 61 72 63 68 2d 69 |far tpu-|search-i|
|000019c0| 6e 74 65 72 6e 61 6c 2d | 63 6f 72 65 20 70 61 74 |nternal-|core pat|
|000019d0| 20 71 75 69 65 74 20 74 | 70 75 2d 73 65 61 72 63 | quiet t|pu-searc|
|000019e0| 68 69 6e 67 2d 66 6f 72 | 77 61 72 64 20 72 65 63 |hing-for|ward rec|
|000019f0| 65 6e 74 65 72 5d 20 34 | 20 22 5c 0a 53 65 61 72 |enter] 4| "\.Sear|
|00001a00| 63 68 20 66 6f 72 20 61 | 20 73 74 72 69 6e 67 20 |ch for a| string |
|00001a10| 6f 72 20 72 65 67 75 6c | 61 72 20 65 78 70 72 65 |or regul|ar expre|
|00001a20| 73 73 69 6f 6e 2e 22 5d | 29 0a 28 62 79 74 65 2d |ssion."]|).(byte-|
|00001a30| 63 6f 64 65 20 22 c0 c1 | 21 84 0b 00 c1 c2 4b 4d |code "..|!.....KM|
|00001a40| 88 c0 c3 21 84 16 00 c3 | c4 4b 4d 88 c0 c5 21 84 |...!....|.KM...!.|
|00001a50| 21 00 c5 c6 4b 4d 88 c0 | 87 22 20 5b 66 62 6f 75 |!...KM..|." [fbou|
|00001a60| 6e 64 70 20 74 70 75 2d | 6f 6c 64 2d 6e 65 77 6c |ndp tpu-|old-newl|
|00001a70| 69 6e 65 20 6e 65 77 6c | 69 6e 65 20 74 70 75 2d |ine newl|ine tpu-|
|00001a80| 6f 6c 64 2d 64 6f 2d 61 | 75 74 6f 2d 66 69 6c 6c |old-do-a|uto-fill|
|00001a90| 20 64 6f 2d 61 75 74 6f | 2d 66 69 6c 6c 20 74 70 | do-auto|-fill tp|
|00001aa0| 75 2d 6f 6c 64 2d 6e 65 | 77 6c 69 6e 65 2d 61 6e |u-old-ne|wline-an|
|00001ab0| 64 2d 69 6e 64 65 6e 74 | 20 6e 65 77 6c 69 6e 65 |d-indent| newline|
|00001ac0| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 5d 20 32 29 0a |-and-ind|ent] 2).|
|00001ad0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 65 77 6c 69 |(defalia|s 'newli|
|00001ae0| 6e 65 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ne #[(&o|ptional |
|00001af0| 6e 75 6d 29 20 22 c0 20 | 19 5c 6e 84 09 00 c3 12 |num) ". |.\n.....|
|00001b00| c4 5c 6e 21 88 c5 09 5c | 6e 5c 22 29 87 22 20 5b |.\n!...\|n\")." [|
|00001b10| 74 70 75 2d 63 75 72 72 | 65 6e 74 2d 6c 69 6e 65 |tpu-curr|ent-line|
|00001b20| 20 62 65 67 20 6e 75 6d | 20 31 20 74 70 75 2d 6f | beg num| 1 tpu-o|
|00001b30| 6c 64 2d 6e 65 77 6c 69 | 6e 65 20 74 70 75 2d 62 |ld-newli|ne tpu-b|
|00001b40| 6f 74 74 6f 6d 2d 63 68 | 65 63 6b 5d 20 33 20 22 |ottom-ch|eck] 3 "|
|00001b50| 5c 0a 49 6e 73 65 72 74 | 20 61 20 6e 65 77 6c 69 |\.Insert| a newli|
|00001b60| 6e 65 2e 20 20 57 69 74 | 68 20 61 72 67 2c 20 69 |ne.  Wit|h arg, i|
|00001b70| 6e 73 65 72 74 20 74 68 | 61 74 20 6d 61 6e 79 20 |nsert th|at many |
|00001b80| 6e 65 77 6c 69 6e 65 73 | 2e 0a 49 6e 20 41 75 74 |newlines|..In Aut|
|00001b90| 6f 20 46 69 6c 6c 20 6d | 6f 64 65 2c 20 63 61 6e |o Fill m|ode, can|
|00001ba0| 20 62 72 65 61 6b 20 74 | 68 65 20 70 72 65 63 65 | break t|he prece|
|00001bb0| 64 69 6e 67 20 6c 69 6e | 65 20 69 66 20 6e 6f 20 |ding lin|e if no |
|00001bc0| 6e 75 6d 65 72 69 63 20 | 61 72 67 2e 0a 54 68 69 |numeric |arg..Thi|
|00001bd0| 73 20 69 73 20 74 68 65 | 20 54 50 55 2d 65 64 74 |s is the| TPU-edt|
|00001be0| 20 76 65 72 73 69 6f 6e | 20 74 68 61 74 20 72 65 | version| that re|
|00001bf0| 73 70 65 63 74 73 20 74 | 68 65 20 62 6f 74 74 6f |spects t|he botto|
|00001c00| 6d 20 73 63 72 6f 6c 6c | 20 6d 61 72 67 69 6e 2e |m scroll| margin.|
|00001c10| 22 20 22 70 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "p"]).|(defalia|
|00001c20| 73 20 27 6e 65 77 6c 69 | 6e 65 2d 61 6e 64 2d 69 |s 'newli|ne-and-i|
|00001c30| 6e 64 65 6e 74 20 23 5b | 6e 69 6c 20 22 c0 20 19 |ndent #[|nil ". .|
|00001c40| c2 20 88 c3 09 c4 5c 22 | 29 87 22 20 5b 74 70 75 |. ....\"|)." [tpu|
|00001c50| 2d 63 75 72 72 65 6e 74 | 2d 6c 69 6e 65 20 62 65 |-current|-line be|
|00001c60| 67 20 74 70 75 2d 6f 6c | 64 2d 6e 65 77 6c 69 6e |g tpu-ol|d-newlin|
|00001c70| 65 2d 61 6e 64 2d 69 6e | 64 65 6e 74 20 74 70 75 |e-and-in|dent tpu|
|00001c80| 2d 62 6f 74 74 6f 6d 2d | 63 68 65 63 6b 20 31 5d |-bottom-|check 1]|
|00001c90| 20 33 20 22 5c 0a 49 6e | 73 65 72 74 20 61 20 6e | 3 "\.In|sert a n|
|00001ca0| 65 77 6c 69 6e 65 2c 20 | 74 68 65 6e 20 69 6e 64 |ewline, |then ind|
|00001cb0| 65 6e 74 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |ent acco|rding to|
|00001cc0| 20 6d 61 6a 6f 72 20 6d | 6f 64 65 2e 0a 49 6e 64 | major m|ode..Ind|
|00001cd0| 65 6e 74 61 74 69 6f 6e | 20 69 73 20 64 6f 6e 65 |entation| is done|
|00001ce0| 20 75 73 69 6e 67 20 74 | 68 65 20 63 75 72 72 65 | using t|he curre|
|00001cf0| 6e 74 20 69 6e 64 65 6e | 74 2d 6c 69 6e 65 2d 66 |nt inden|t-line-f|
|00001d00| 75 6e 63 74 69 6f 6e 2e | 0a 49 6e 20 70 72 6f 67 |unction.|.In prog|
|00001d10| 72 61 6d 6d 69 6e 67 20 | 6c 61 6e 67 75 61 67 65 |ramming |language|
|00001d20| 20 6d 6f 64 65 73 2c 20 | 74 68 69 73 20 69 73 20 | modes, |this is |
|00001d30| 74 68 65 20 73 61 6d 65 | 20 61 73 20 54 41 42 2e |the same| as TAB.|
|00001d40| 0a 49 6e 20 73 6f 6d 65 | 20 74 65 78 74 20 6d 6f |.In some| text mo|
|00001d50| 64 65 73 2c 20 77 68 65 | 72 65 20 54 41 42 20 69 |des, whe|re TAB i|
|00001d60| 6e 73 65 72 74 73 20 61 | 20 74 61 62 2c 20 74 68 |nserts a| tab, th|
|00001d70| 69 73 20 69 6e 64 65 6e | 74 73 0a 74 6f 20 74 68 |is inden|ts.to th|
|00001d80| 65 20 73 70 65 63 69 66 | 69 65 64 20 6c 65 66 74 |e specif|ied left|
|00001d90| 2d 6d 61 72 67 69 6e 20 | 63 6f 6c 75 6d 6e 2e 20 |-margin |column. |
|00001da0| 20 54 68 69 73 20 69 73 | 20 74 68 65 20 54 50 55 | This is| the TPU|
|00001db0| 2d 65 64 74 0a 76 65 72 | 73 69 6f 6e 20 74 68 61 |-edt.ver|sion tha|
|00001dc0| 74 20 72 65 73 70 65 63 | 74 73 20 74 68 65 20 62 |t respec|ts the b|
|00001dd0| 6f 74 74 6f 6d 20 73 63 | 72 6f 6c 6c 20 6d 61 72 |ottom sc|roll mar|
|00001de0| 67 69 6e 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |gin." ni|l]).(def|
|00001df0| 61 6c 69 61 73 20 27 64 | 6f 2d 61 75 74 6f 2d 66 |alias 'd|o-auto-f|
|00001e00| 69 6c 6c 20 23 5b 6e 69 | 6c 20 22 c0 20 19 c2 20 |ill #[ni|l ". .. |
|00001e10| 88 c3 09 c4 5c 22 29 87 | 22 20 5b 74 70 75 2d 63 |....\").|" [tpu-c|
|00001e20| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 62 65 67 20 |urrent-l|ine beg |
|00001e30| 74 70 75 2d 6f 6c 64 2d | 64 6f 2d 61 75 74 6f 2d |tpu-old-|do-auto-|
|00001e40| 66 69 6c 6c 20 74 70 75 | 2d 62 6f 74 74 6f 6d 2d |fill tpu|-bottom-|
|00001e50| 63 68 65 63 6b 20 31 5d | 20 33 20 22 5c 0a 54 50 |check 1]| 3 "\.TP|
|00001e60| 55 2d 65 64 74 20 76 65 | 72 73 69 6f 6e 20 74 68 |U-edt ve|rsion th|
|00001e70| 61 74 20 72 65 73 70 65 | 63 74 73 20 74 68 65 20 |at respe|cts the |
|00001e80| 62 6f 74 74 6f 6d 20 73 | 63 72 6f 6c 6c 20 6d 61 |bottom s|croll ma|
|00001e90| 72 67 69 6e 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |rgin."])|.(defali|
|00001ea0| 61 73 20 27 74 70 75 2d | 73 65 74 2d 73 63 72 6f |as 'tpu-|set-scro|
|00001eb0| 6c 6c 2d 6d 61 72 67 69 | 6e 73 20 23 5b 28 74 6f |ll-margi|ns #[(to|
|00001ec0| 70 20 62 6f 74 74 6f 6d | 29 20 22 08 c1 98 84 25 |p bottom|) "....%|
|00001ed0| 00 08 c2 c3 4f c4 98 83 | 17 00 c5 08 21 16 06 82 |....O...|....!...|
|00001ee0| 25 00 c5 08 21 c7 5f c8 | 20 5c 5c 53 c8 20 a5 16 |%...!._.| \\S. ..|
|00001ef0| 06 0e 09 c1 98 84 4e 00 | 0e 09 c2 c3 4f c4 98 83 |......N.|....O...|
|00001f00| 3f 00 c5 0e 09 21 16 5c | 6e 82 4e 00 c5 0e 09 21 |?....!.\|n.N....!|
|00001f10| c7 5f c8 20 5c 5c 53 c8 | 20 a5 16 5c 6e 74 85 59 |._. \\S.| ..\nt.Y|
|00001f20| 00 cb cc 0e 06 0e 5c 6e | 23 87 22 20 5b 74 6f 70 |......\n|#." [top|
|00001f30| 20 22 22 20 2d 31 20 6e | 69 6c 20 22 25 22 20 73 | "" -1 n|il "%" s|
|00001f40| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 74 70 75 |tring-to|-int tpu|
|00001f50| 2d 74 6f 70 2d 73 63 72 | 6f 6c 6c 2d 6d 61 72 67 |-top-scr|oll-marg|
|00001f60| 69 6e 20 31 30 30 20 77 | 69 6e 64 6f 77 2d 68 65 |in 100 w|indow-he|
|00001f70| 69 67 68 74 20 62 6f 74 | 74 6f 6d 20 74 70 75 2d |ight bot|tom tpu-|
|00001f80| 62 6f 74 74 6f 6d 2d 73 | 63 72 6f 6c 6c 2d 6d 61 |bottom-s|croll-ma|
|00001f90| 72 67 69 6e 20 6d 65 73 | 73 61 67 65 20 22 53 63 |rgin mes|sage "Sc|
|00001fa0| 72 6f 6c 6c 20 6d 61 72 | 67 69 6e 73 20 73 65 74 |roll mar|gins set|
|00001fb0| 2e 20 20 54 6f 70 20 3d | 20 25 73 25 25 2c 20 42 |.  Top =| %s%%, B|
|00001fc0| 6f 74 74 6f 6d 20 3d 20 | 25 73 25 25 22 5d 20 34 |ottom = |%s%%"] 4|
|00001fd0| 20 22 5c 0a 53 65 74 20 | 73 63 72 6f 6c 6c 20 6d | "\.Set |scroll m|
|00001fe0| 61 72 67 69 6e 73 2e 22 | 20 22 73 45 6e 74 65 72 |argins."| "sEnter|
|00001ff0| 20 74 6f 70 20 73 63 72 | 6f 6c 6c 20 6d 61 72 67 | top scr|oll marg|
|00002000| 69 6e 20 28 4e 20 6c 69 | 6e 65 73 20 6f 72 20 4e |in (N li|nes or N|
|00002010| 25 25 20 6f 72 20 52 45 | 54 55 52 4e 20 66 6f 72 |%% or RE|TURN for|
|00002020| 20 63 75 72 72 65 6e 74 | 20 76 61 6c 75 65 29 3a | current| value):|
|00002030| 20 5c 6e 73 45 6e 74 65 | 72 20 62 6f 74 74 6f 6d | \nsEnte|r bottom|
|00002040| 20 73 63 72 6f 6c 6c 20 | 6d 61 72 67 69 6e 20 28 | scroll |margin (|
|00002050| 4e 20 6c 69 6e 65 73 20 | 6f 72 20 4e 25 25 20 6f |N lines |or N%% o|
|00002060| 72 20 52 45 54 55 52 4e | 20 66 6f 72 20 63 75 72 |r RETURN| for cur|
|00002070| 72 65 6e 74 20 76 61 6c | 75 65 29 3a 20 22 5d 29 |rent val|ue): "])|
|00002080| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 70 75 2d |.(defali|as 'tpu-|
|00002090| 73 65 74 2d 63 75 72 73 | 6f 72 2d 66 72 65 65 20 |set-curs|or-free |
|000020a0| 23 5b 6e 69 6c 20 22 c0 | 11 c2 c3 c4 0d 23 88 c6 |#[nil ".|.....#..|
|000020b0| c7 21 87 22 20 5b 74 20 | 74 70 75 2d 63 75 72 73 |.!." [t |tpu-curs|
|000020c0| 6f 72 2d 66 72 65 65 20 | 73 75 62 73 74 69 74 75 |or-free |substitu|
|000020d0| 74 65 2d 6b 65 79 2d 64 | 65 66 69 6e 69 74 69 6f |te-key-d|efinitio|
|000020e0| 6e 20 74 70 75 2d 73 65 | 74 2d 63 75 72 73 6f 72 |n tpu-se|t-cursor|
|000020f0| 2d 66 72 65 65 20 74 70 | 75 2d 73 65 74 2d 63 75 |-free tp|u-set-cu|
|00002100| 72 73 6f 72 2d 62 6f 75 | 6e 64 20 47 4f 4c 44 2d |rsor-bou|nd GOLD-|
|00002110| 6d 61 70 20 6d 65 73 73 | 61 67 65 20 22 54 68 65 |map mess|age "The|
|00002120| 20 63 75 72 73 6f 72 20 | 77 69 6c 6c 20 6e 6f 77 | cursor |will now|
|00002130| 20 6d 6f 76 65 20 66 72 | 65 65 6c 79 20 61 62 6f | move fr|eely abo|
|00002140| 75 74 20 74 68 65 20 73 | 63 72 65 65 6e 2e 22 5d |ut the s|creen."]|
|00002150| 20 34 20 22 5c 0a 41 6c | 6c 6f 77 20 74 68 65 20 | 4 "\.Al|low the |
|00002160| 63 75 72 73 6f 72 20 74 | 6f 20 6d 6f 76 65 20 66 |cursor t|o move f|
|00002170| 72 65 65 6c 79 20 61 62 | 6f 75 74 20 74 68 65 20 |reely ab|out the |
|00002180| 73 63 72 65 65 6e 2e 22 | 20 6e 69 6c 5d 29 0a 28 |screen."| nil]).(|
|00002190| 64 65 66 61 6c 69 61 73 | 20 27 74 70 75 2d 73 65 |defalias| 'tpu-se|
|000021a0| 74 2d 63 75 72 73 6f 72 | 2d 62 6f 75 6e 64 20 23 |t-cursor|-bound #|
|000021b0| 5b 6e 69 6c 20 22 c0 20 | 88 c1 12 c3 c4 c5 0e 06 |[nil ". |........|
|000021c0| 23 88 c7 c8 21 87 22 20 | 5b 70 69 63 74 75 72 65 |#...!." |[picture|
|000021d0| 2d 63 6c 65 61 6e 20 6e | 69 6c 20 74 70 75 2d 63 |-clean n|il tpu-c|
|000021e0| 75 72 73 6f 72 2d 66 72 | 65 65 20 73 75 62 73 74 |ursor-fr|ee subst|
|000021f0| 69 74 75 74 65 2d 6b 65 | 79 2d 64 65 66 69 6e 69 |itute-ke|y-defini|
|00002200| 74 69 6f 6e 20 74 70 75 | 2d 73 65 74 2d 63 75 72 |tion tpu|-set-cur|
|00002210| 73 6f 72 2d 62 6f 75 6e | 64 20 74 70 75 2d 73 65 |sor-boun|d tpu-se|
|00002220| 74 2d 63 75 72 73 6f 72 | 2d 66 72 65 65 20 47 4f |t-cursor|-free GO|
|00002230| 4c 44 2d 6d 61 70 20 6d | 65 73 73 61 67 65 20 22 |LD-map m|essage "|
|00002240| 54 68 65 20 63 75 72 73 | 6f 72 20 69 73 20 6e 6f |The curs|or is no|
|00002250| 77 20 62 6f 75 6e 64 20 | 74 6f 20 74 68 65 20 66 |w bound |to the f|
|00002260| 6c 6f 77 20 6f 66 20 79 | 6f 75 72 20 74 65 78 74 |low of y|our text|
|00002270| 2e 22 5d 20 34 20 22 5c | 0a 43 6f 6e 73 74 72 61 |."] 4 "\|.Constra|
|00002280| 69 6e 20 74 68 65 20 63 | 75 72 73 6f 72 20 74 6f |in the c|ursor to|
|00002290| 20 74 68 65 20 66 6c 6f | 77 20 6f 66 20 74 68 65 | the flo|w of the|
|000022a0| 20 74 65 78 74 2e 22 20 | 6e 69 6c 5d 29 0a       | text." |nil]).  |
+--------+-------------------------+-------------------------+--------+--------+