Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF » P/WINEDIT
P/WINEDIT
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF |
| Filename: | P/WINEDIT |
| Read OK: | ✔ |
| File size: | 092B bytes |
| Load address: | 1900 |
| Exec address: | 802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-30_D-EUG30.dsd » U.WINEDIT
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF » P/WINEDIT
File contents
10REM BASIC Risc OS style text input
15REM (C)1997 SPROW
17MODE5:REM Change as necessary - any mode works
20result$=FNgetline("Edit this!",11,32,4,8,129)
30REM Needs defaultstring$,window width (odd numbers are best),maximum allowed string length,x&y of where the window must appear (in text coordinates),background colour of box
47MODE6:PRINT"The final edited string is: "'CHR$(34);result$;CHR$(34)
50END
60:
70DEFFNgetline(default$,window%,maxlen%,posx%,posy%,colour%)
75DIMstore%(3):REM Make an array to store the old window coordinates
76FORX%=8TO11:A%=&A0:store%(X%-8)=((USR&FFF4)AND&FF00) DIV&100:NEXT
78A%=&ED:X%=1:Y%=0:oldfx4%=((USR&FFF4)AND&FF00) DIV&100
80VDU28,posx%,posy%,posx%+window%,posy%
100COLOURcolour%
120ctrlU%=21:ctrlH%=8:del%=127:left%=136:right%=137:up%=138:down%=139
130charnum%=LEN(default$)+1:PROCalign(default$)
135:
140REPEAT
150key%=GET
160IFkey%=left% ORkey%=right% THENcharnum%=charnum%-(2*(136.5-key%)):REM Move character pointer
170IFcharnum%>LEN(default$) THENcharnum%=LEN(default$)+1:REM For appending to the string
175IF(key%=ctrlH% ORkey%=del%)AND(charnum%<>1) THENdefault$=LEFT$(default$,charnum%-2)+RIGHT$(default$,LEN(default$)-charnum%+1):charnum%=charnum%-1:REM Deleting
178IFcharnum%<1 THENcharnum%=1:REM Can't edit before the start!
180IFkey%=ctrlU% THENdefault$="":charnum%=1:REM Clear line VDU command
210IF(key%>135 ANDkey%<140) ORkey%=ctrlH% ORkey%=del% ORkey%=ctrlU% ORkey%=13 THENGOTO240
220IFLEN(default$)=maxlen% THENVDU7
230IFLEN(default$)<maxlen% THENdefault$=LEFT$(default$,charnum%-1)+CHR$(key%)+RIGHT$(default$,LEN(default$)-charnum%+1):charnum%=charnum%+1
235:
240PROCalign(default$)
250UNTILkey%=13:REM Return terminates the string
255:
260OSCLI"FX4,"+STR$(oldfx4%):REM Restore the cursor editing status...
265VDU28,store%(0),store%(1),store%(2),store%(3):REM ...and the window
275=default$
280:
290DEFPROCalign(line$)
295length%=LEN(line$)
298IFlength%<window% THENPRINT:PRINTline$;:VDU31,charnum%-1,0:ENDPROC:REM ie.just print it
300IFcharnum%=length% THENPRINT:PRINTRIGHT$(line$,window%);:VDU8:ENDPROC:REM if the pointer is at the end,get OS to print it then correct the cursor
310IF(length%-charnum%)<=(window% DIV2) THENPRINT:PRINTRIGHT$(line$,window%);:VDU31,window%-length%+charnum%-1,0:ENDPROC:REM We're near the RH end so stop the text scrolling and just move the cursor
320IFcharnum%<=((window% DIV2)) THENPRINT:PRINTLEFT$(line$,window%);:VDU31,charnum%-1,0:ENDPROC:REM We're near the LH end so stop the text scrolling and just move the cursor
330PRINT:PRINTMID$(line$,charnum%-(window% DIV2),window%);:VDU31,(window% DIV2),0:REM Otherwise scroll the text about a central cursor.
340ENDPROC
$� BASIC Risc OS style text input
� (C)1997 SPROW
-�5:� Change as necessary - any mode works
0result$=�getline("Edit this!",11,32,4,8,129)
�� Needs defaultstring$,window width (odd numbers are best),maximum allowed string length,x&y of where the window must appear (in text coordinates),background colour of box
/:�6:�"The final edited string is: "'�(34);result$;�(34)
2�
<:
F;ݤgetline(default$,window%,maxlen%,posx%,posy%,colour%)
KB�store%(3):� Make an array to store the old window coordinates
L9�X%=8�11:A%=&A0:store%(X%-8)=((�&FFF4)�&FF00) �&100:�
N3A%=&ED:X%=1:Y%=0:oldfx4%=((�&FFF4)�&FF00) �&100
P'�28,posx%,posy%,posx%+window%,posy%
d �colour%
xFctrlU%=21:ctrlH%=8:del%=127:left%=136:right%=137:up%=138:down%=139
�+charnum%=�(default$)+1:�align(default$)
�:
��
�
key%=�
�Y�key%=left% �key%=right% �charnum%=charnum%-(2*(136.5-key%)):� Move character pointer
�O�charnum%>�(default$) �charnum%=�(default$)+1:� For appending to the string
���(key%=ctrlH% �key%=del%)�(charnum%<>1) �default$=�default$,charnum%-2)+�default$,�(default$)-charnum%+1):charnum%=charnum%-1:� Deleting
�:�charnum%<1 �charnum%=1:� Can't edit before the start!
�A�key%=ctrlU% �default$="":charnum%=1:� Clear line VDU command
�N�(key%>135 �key%<140) �key%=ctrlH% �key%=del% �key%=ctrlU% �key%=13 ��dp@
� �(default$)=maxlen% ��7
�v�(default$)<maxlen% �default$=�default$,charnum%-1)+�(key%)+�default$,�(default$)-charnum%+1):charnum%=charnum%+1
�:
��align(default$)
�+�key%=13:� Return terminates the string
�:
=�"FX4,"+�(oldfx4%):� Restore the cursor editing status...
C�28,store%(0),store%(1),store%(2),store%(3):� ...and the window
=default$
:
"��align(line$)
'length%=�(line$)
*E�length%<window% ��:�line$;:�31,charnum%-1,0:�:� ie.just print it
,y�charnum%=length% ��:��line$,window%);:�8:�:� if the pointer is at the end,get OS to print it then correct the cursor
6��(length%-charnum%)<=(window% �2) ��:��line$,window%);:�31,window%-length%+charnum%-1,0:�:� We're near the RH end so stop the text scrolling and just move the cursor
@��charnum%<=((window% �2)) ��:�line$,window%);:�31,charnum%-1,0:�:� We're near the LH end so stop the text scrolling and just move the cursor
Jt�:�line$,charnum%-(window% �2),window%);:�31,(window% �2),0:� Otherwise scroll the text about a central cursor.
T�
� 00000000 0d 00 0a 24 f4 20 42 41 53 49 43 20 52 69 73 63 |...$. BASIC Risc|
00000010 20 4f 53 20 73 74 79 6c 65 20 74 65 78 74 20 69 | OS style text i|
00000020 6e 70 75 74 0d 00 0f 13 f4 20 28 43 29 31 39 39 |nput..... (C)199|
00000030 37 20 53 50 52 4f 57 0d 00 11 2d eb 35 3a f4 20 |7 SPROW...-.5:. |
00000040 43 68 61 6e 67 65 20 61 73 20 6e 65 63 65 73 73 |Change as necess|
00000050 61 72 79 20 2d 20 61 6e 79 20 6d 6f 64 65 20 77 |ary - any mode w|
00000060 6f 72 6b 73 0d 00 14 30 72 65 73 75 6c 74 24 3d |orks...0result$=|
00000070 a4 67 65 74 6c 69 6e 65 28 22 45 64 69 74 20 74 |.getline("Edit t|
00000080 68 69 73 21 22 2c 31 31 2c 33 32 2c 34 2c 38 2c |his!",11,32,4,8,|
00000090 31 32 39 29 0d 00 1e af f4 20 4e 65 65 64 73 20 |129)..... Needs |
000000a0 64 65 66 61 75 6c 74 73 74 72 69 6e 67 24 2c 77 |defaultstring$,w|
000000b0 69 6e 64 6f 77 20 77 69 64 74 68 20 28 6f 64 64 |indow width (odd|
000000c0 20 6e 75 6d 62 65 72 73 20 61 72 65 20 62 65 73 | numbers are bes|
000000d0 74 29 2c 6d 61 78 69 6d 75 6d 20 61 6c 6c 6f 77 |t),maximum allow|
000000e0 65 64 20 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 |ed string length|
000000f0 2c 78 26 79 20 6f 66 20 77 68 65 72 65 20 74 68 |,x&y of where th|
00000100 65 20 77 69 6e 64 6f 77 20 6d 75 73 74 20 61 70 |e window must ap|
00000110 70 65 61 72 20 28 69 6e 20 74 65 78 74 20 63 6f |pear (in text co|
00000120 6f 72 64 69 6e 61 74 65 73 29 2c 62 61 63 6b 67 |ordinates),backg|
00000130 72 6f 75 6e 64 20 63 6f 6c 6f 75 72 20 6f 66 20 |round colour of |
00000140 62 6f 78 0d 00 2f 3a eb 36 3a f1 22 54 68 65 20 |box../:.6:."The |
00000150 66 69 6e 61 6c 20 65 64 69 74 65 64 20 73 74 72 |final edited str|
00000160 69 6e 67 20 69 73 3a 20 22 27 bd 28 33 34 29 3b |ing is: "'.(34);|
00000170 72 65 73 75 6c 74 24 3b bd 28 33 34 29 0d 00 32 |result$;.(34)..2|
00000180 05 e0 0d 00 3c 05 3a 0d 00 46 3b dd a4 67 65 74 |....<.:..F;..get|
00000190 6c 69 6e 65 28 64 65 66 61 75 6c 74 24 2c 77 69 |line(default$,wi|
000001a0 6e 64 6f 77 25 2c 6d 61 78 6c 65 6e 25 2c 70 6f |ndow%,maxlen%,po|
000001b0 73 78 25 2c 70 6f 73 79 25 2c 63 6f 6c 6f 75 72 |sx%,posy%,colour|
000001c0 25 29 0d 00 4b 42 de 73 74 6f 72 65 25 28 33 29 |%)..KB.store%(3)|
000001d0 3a f4 20 4d 61 6b 65 20 61 6e 20 61 72 72 61 79 |:. Make an array|
000001e0 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 6f 6c | to store the ol|
000001f0 64 20 77 69 6e 64 6f 77 20 63 6f 6f 72 64 69 6e |d window coordin|
00000200 61 74 65 73 0d 00 4c 39 e3 58 25 3d 38 b8 31 31 |ates..L9.X%=8.11|
00000210 3a 41 25 3d 26 41 30 3a 73 74 6f 72 65 25 28 58 |:A%=&A0:store%(X|
00000220 25 2d 38 29 3d 28 28 ba 26 46 46 46 34 29 80 26 |%-8)=((.&FFF4).&|
00000230 46 46 30 30 29 20 81 26 31 30 30 3a ed 0d 00 4e |FF00) .&100:...N|
00000240 33 41 25 3d 26 45 44 3a 58 25 3d 31 3a 59 25 3d |3A%=&ED:X%=1:Y%=|
00000250 30 3a 6f 6c 64 66 78 34 25 3d 28 28 ba 26 46 46 |0:oldfx4%=((.&FF|
00000260 46 34 29 80 26 46 46 30 30 29 20 81 26 31 30 30 |F4).&FF00) .&100|
00000270 0d 00 50 27 ef 32 38 2c 70 6f 73 78 25 2c 70 6f |..P'.28,posx%,po|
00000280 73 79 25 2c 70 6f 73 78 25 2b 77 69 6e 64 6f 77 |sy%,posx%+window|
00000290 25 2c 70 6f 73 79 25 0d 00 64 0c fb 63 6f 6c 6f |%,posy%..d..colo|
000002a0 75 72 25 0d 00 78 46 63 74 72 6c 55 25 3d 32 31 |ur%..xFctrlU%=21|
000002b0 3a 63 74 72 6c 48 25 3d 38 3a 64 65 6c 25 3d 31 |:ctrlH%=8:del%=1|
000002c0 32 37 3a 6c 65 66 74 25 3d 31 33 36 3a 72 69 67 |27:left%=136:rig|
000002d0 68 74 25 3d 31 33 37 3a 75 70 25 3d 31 33 38 3a |ht%=137:up%=138:|
000002e0 64 6f 77 6e 25 3d 31 33 39 0d 00 82 2b 63 68 61 |down%=139...+cha|
000002f0 72 6e 75 6d 25 3d a9 28 64 65 66 61 75 6c 74 24 |rnum%=.(default$|
00000300 29 2b 31 3a f2 61 6c 69 67 6e 28 64 65 66 61 75 |)+1:.align(defau|
00000310 6c 74 24 29 0d 00 87 05 3a 0d 00 8c 05 f5 0d 00 |lt$)....:.......|
00000320 96 0a 6b 65 79 25 3d a5 0d 00 a0 59 e7 6b 65 79 |..key%=....Y.key|
00000330 25 3d 6c 65 66 74 25 20 84 6b 65 79 25 3d 72 69 |%=left% .key%=ri|
00000340 67 68 74 25 20 8c 63 68 61 72 6e 75 6d 25 3d 63 |ght% .charnum%=c|
00000350 68 61 72 6e 75 6d 25 2d 28 32 2a 28 31 33 36 2e |harnum%-(2*(136.|
00000360 35 2d 6b 65 79 25 29 29 3a f4 20 4d 6f 76 65 20 |5-key%)):. Move |
00000370 63 68 61 72 61 63 74 65 72 20 70 6f 69 6e 74 65 |character pointe|
00000380 72 0d 00 aa 4f e7 63 68 61 72 6e 75 6d 25 3e a9 |r...O.charnum%>.|
00000390 28 64 65 66 61 75 6c 74 24 29 20 8c 63 68 61 72 |(default$) .char|
000003a0 6e 75 6d 25 3d a9 28 64 65 66 61 75 6c 74 24 29 |num%=.(default$)|
000003b0 2b 31 3a f4 20 46 6f 72 20 61 70 70 65 6e 64 69 |+1:. For appendi|
000003c0 6e 67 20 74 6f 20 74 68 65 20 73 74 72 69 6e 67 |ng to the string|
000003d0 0d 00 af 8c e7 28 6b 65 79 25 3d 63 74 72 6c 48 |.....(key%=ctrlH|
000003e0 25 20 84 6b 65 79 25 3d 64 65 6c 25 29 80 28 63 |% .key%=del%).(c|
000003f0 68 61 72 6e 75 6d 25 3c 3e 31 29 20 8c 64 65 66 |harnum%<>1) .def|
00000400 61 75 6c 74 24 3d c0 64 65 66 61 75 6c 74 24 2c |ault$=.default$,|
00000410 63 68 61 72 6e 75 6d 25 2d 32 29 2b c2 64 65 66 |charnum%-2)+.def|
00000420 61 75 6c 74 24 2c a9 28 64 65 66 61 75 6c 74 24 |ault$,.(default$|
00000430 29 2d 63 68 61 72 6e 75 6d 25 2b 31 29 3a 63 68 |)-charnum%+1):ch|
00000440 61 72 6e 75 6d 25 3d 63 68 61 72 6e 75 6d 25 2d |arnum%=charnum%-|
00000450 31 3a f4 20 44 65 6c 65 74 69 6e 67 0d 00 b2 3a |1:. Deleting...:|
00000460 e7 63 68 61 72 6e 75 6d 25 3c 31 20 8c 63 68 61 |.charnum%<1 .cha|
00000470 72 6e 75 6d 25 3d 31 3a f4 20 43 61 6e 27 74 20 |rnum%=1:. Can't |
00000480 65 64 69 74 20 62 65 66 6f 72 65 20 74 68 65 20 |edit before the |
00000490 73 74 61 72 74 21 0d 00 b4 41 e7 6b 65 79 25 3d |start!...A.key%=|
000004a0 63 74 72 6c 55 25 20 8c 64 65 66 61 75 6c 74 24 |ctrlU% .default$|
000004b0 3d 22 22 3a 63 68 61 72 6e 75 6d 25 3d 31 3a f4 |="":charnum%=1:.|
000004c0 20 43 6c 65 61 72 20 6c 69 6e 65 20 56 44 55 20 | Clear line VDU |
000004d0 63 6f 6d 6d 61 6e 64 0d 00 d2 4e e7 28 6b 65 79 |command...N.(key|
000004e0 25 3e 31 33 35 20 80 6b 65 79 25 3c 31 34 30 29 |%>135 .key%<140)|
000004f0 20 84 6b 65 79 25 3d 63 74 72 6c 48 25 20 84 6b | .key%=ctrlH% .k|
00000500 65 79 25 3d 64 65 6c 25 20 84 6b 65 79 25 3d 63 |ey%=del% .key%=c|
00000510 74 72 6c 55 25 20 84 6b 65 79 25 3d 31 33 20 8c |trlU% .key%=13 .|
00000520 e5 8d 64 70 40 0d 00 dc 1c e7 a9 28 64 65 66 61 |..dp@......(defa|
00000530 75 6c 74 24 29 3d 6d 61 78 6c 65 6e 25 20 8c ef |ult$)=maxlen% ..|
00000540 37 0d 00 e6 76 e7 a9 28 64 65 66 61 75 6c 74 24 |7...v..(default$|
00000550 29 3c 6d 61 78 6c 65 6e 25 20 8c 64 65 66 61 75 |)<maxlen% .defau|
00000560 6c 74 24 3d c0 64 65 66 61 75 6c 74 24 2c 63 68 |lt$=.default$,ch|
00000570 61 72 6e 75 6d 25 2d 31 29 2b bd 28 6b 65 79 25 |arnum%-1)+.(key%|
00000580 29 2b c2 64 65 66 61 75 6c 74 24 2c a9 28 64 65 |)+.default$,.(de|
00000590 66 61 75 6c 74 24 29 2d 63 68 61 72 6e 75 6d 25 |fault$)-charnum%|
000005a0 2b 31 29 3a 63 68 61 72 6e 75 6d 25 3d 63 68 61 |+1):charnum%=cha|
000005b0 72 6e 75 6d 25 2b 31 0d 00 eb 05 3a 0d 00 f0 14 |rnum%+1....:....|
000005c0 f2 61 6c 69 67 6e 28 64 65 66 61 75 6c 74 24 29 |.align(default$)|
000005d0 0d 00 fa 2b fd 6b 65 79 25 3d 31 33 3a f4 20 52 |...+.key%=13:. R|
000005e0 65 74 75 72 6e 20 74 65 72 6d 69 6e 61 74 65 73 |eturn terminates|
000005f0 20 74 68 65 20 73 74 72 69 6e 67 0d 00 ff 05 3a | the string....:|
00000600 0d 01 04 3d ff 22 46 58 34 2c 22 2b c3 28 6f 6c |...=."FX4,"+.(ol|
00000610 64 66 78 34 25 29 3a f4 20 52 65 73 74 6f 72 65 |dfx4%):. Restore|
00000620 20 74 68 65 20 63 75 72 73 6f 72 20 65 64 69 74 | the cursor edit|
00000630 69 6e 67 20 73 74 61 74 75 73 2e 2e 2e 0d 01 09 |ing status......|
00000640 43 ef 32 38 2c 73 74 6f 72 65 25 28 30 29 2c 73 |C.28,store%(0),s|
00000650 74 6f 72 65 25 28 31 29 2c 73 74 6f 72 65 25 28 |tore%(1),store%(|
00000660 32 29 2c 73 74 6f 72 65 25 28 33 29 3a f4 20 2e |2),store%(3):. .|
00000670 2e 2e 61 6e 64 20 74 68 65 20 77 69 6e 64 6f 77 |..and the window|
00000680 0d 01 13 0d 3d 64 65 66 61 75 6c 74 24 0d 01 18 |....=default$...|
00000690 05 3a 0d 01 22 12 dd f2 61 6c 69 67 6e 28 6c 69 |.:.."...align(li|
000006a0 6e 65 24 29 0d 01 27 14 6c 65 6e 67 74 68 25 3d |ne$)..'.length%=|
000006b0 a9 28 6c 69 6e 65 24 29 0d 01 2a 45 e7 6c 65 6e |.(line$)..*E.len|
000006c0 67 74 68 25 3c 77 69 6e 64 6f 77 25 20 8c f1 3a |gth%<window% ..:|
000006d0 f1 6c 69 6e 65 24 3b 3a ef 33 31 2c 63 68 61 72 |.line$;:.31,char|
000006e0 6e 75 6d 25 2d 31 2c 30 3a e1 3a f4 20 69 65 2e |num%-1,0:.:. ie.|
000006f0 6a 75 73 74 20 70 72 69 6e 74 20 69 74 0d 01 2c |just print it..,|
00000700 79 e7 63 68 61 72 6e 75 6d 25 3d 6c 65 6e 67 74 |y.charnum%=lengt|
00000710 68 25 20 8c f1 3a f1 c2 6c 69 6e 65 24 2c 77 69 |h% ..:..line$,wi|
00000720 6e 64 6f 77 25 29 3b 3a ef 38 3a e1 3a f4 20 69 |ndow%);:.8:.:. i|
00000730 66 20 74 68 65 20 70 6f 69 6e 74 65 72 20 69 73 |f the pointer is|
00000740 20 61 74 20 74 68 65 20 65 6e 64 2c 67 65 74 20 | at the end,get |
00000750 4f 53 20 74 6f 20 70 72 69 6e 74 20 69 74 20 74 |OS to print it t|
00000760 68 65 6e 20 63 6f 72 72 65 63 74 20 74 68 65 20 |hen correct the |
00000770 63 75 72 73 6f 72 0d 01 36 a9 e7 28 6c 65 6e 67 |cursor..6..(leng|
00000780 74 68 25 2d 63 68 61 72 6e 75 6d 25 29 3c 3d 28 |th%-charnum%)<=(|
00000790 77 69 6e 64 6f 77 25 20 81 32 29 20 8c f1 3a f1 |window% .2) ..:.|
000007a0 c2 6c 69 6e 65 24 2c 77 69 6e 64 6f 77 25 29 3b |.line$,window%);|
000007b0 3a ef 33 31 2c 77 69 6e 64 6f 77 25 2d 6c 65 6e |:.31,window%-len|
000007c0 67 74 68 25 2b 63 68 61 72 6e 75 6d 25 2d 31 2c |gth%+charnum%-1,|
000007d0 30 3a e1 3a f4 20 57 65 27 72 65 20 6e 65 61 72 |0:.:. We're near|
000007e0 20 74 68 65 20 52 48 20 65 6e 64 20 73 6f 20 73 | the RH end so s|
000007f0 74 6f 70 20 74 68 65 20 74 65 78 74 20 73 63 72 |top the text scr|
00000800 6f 6c 6c 69 6e 67 20 61 6e 64 20 6a 75 73 74 20 |olling and just |
00000810 6d 6f 76 65 20 74 68 65 20 63 75 72 73 6f 72 0d |move the cursor.|
00000820 01 40 91 e7 63 68 61 72 6e 75 6d 25 3c 3d 28 28 |.@..charnum%<=((|
00000830 77 69 6e 64 6f 77 25 20 81 32 29 29 20 8c f1 3a |window% .2)) ..:|
00000840 f1 c0 6c 69 6e 65 24 2c 77 69 6e 64 6f 77 25 29 |..line$,window%)|
00000850 3b 3a ef 33 31 2c 63 68 61 72 6e 75 6d 25 2d 31 |;:.31,charnum%-1|
00000860 2c 30 3a e1 3a f4 20 57 65 27 72 65 20 6e 65 61 |,0:.:. We're nea|
00000870 72 20 74 68 65 20 4c 48 20 65 6e 64 20 73 6f 20 |r the LH end so |
00000880 73 74 6f 70 20 74 68 65 20 74 65 78 74 20 73 63 |stop the text sc|
00000890 72 6f 6c 6c 69 6e 67 20 61 6e 64 20 6a 75 73 74 |rolling and just|
000008a0 20 6d 6f 76 65 20 74 68 65 20 63 75 72 73 6f 72 | move the cursor|
000008b0 0d 01 4a 74 f1 3a f1 c1 6c 69 6e 65 24 2c 63 68 |..Jt.:..line$,ch|
000008c0 61 72 6e 75 6d 25 2d 28 77 69 6e 64 6f 77 25 20 |arnum%-(window% |
000008d0 81 32 29 2c 77 69 6e 64 6f 77 25 29 3b 3a ef 33 |.2),window%);:.3|
000008e0 31 2c 28 77 69 6e 64 6f 77 25 20 81 32 29 2c 30 |1,(window% .2),0|
000008f0 3a f4 20 4f 74 68 65 72 77 69 73 65 20 73 63 72 |:. Otherwise scr|
00000900 6f 6c 6c 20 74 68 65 20 74 65 78 74 20 61 62 6f |oll the text abo|
00000910 75 74 20 61 20 63 65 6e 74 72 61 6c 20 63 75 72 |ut a central cur|
00000920 73 6f 72 2e 0d 01 54 05 e1 0d ff |sor...T....|
0000092b 
P/WINEDIT.m0
P/WINEDIT.m1
P/WINEDIT.m2
P/WINEDIT.m4
P/WINEDIT.m5
.