� >R-Example
�
C� Example program illustrating the use of the ZapRedraw module.
(� by Dominic Symes
2�
<
Ftask%=0
P� � �error
Z7*RMENSURE ZapRedraw 0.01 RMLoad <Zap$Dir>.ZapRedraw
d!ț "<Zap$Dir>.Docs.E-Library"
n�define_zap_variables
x
�� block% &100
�� block2% &100
�� redraw% &100
�� chars% &800
�� bitmaps% &10000
�� palette% &40
�� text% &8000
� !(redraw%+r_workarea)=block%
�!(redraw%+r_data)=text%
�
�1ș "ZapRedraw_ReadSystemChars",chars%,redraw%
�&� mode%=mode characters cached for
�mode%=-1

�mode_change

�create_text



"=ș "Wimp_Initialise",200,&4B534154,"R-Example",0 � ,task%

,quit%=�

6�create_window

@

J�

T-ș "Wimp_Poll",&31,block2% � event%,data%

^Ȏ event% �

h2 � 1:ș "ZapRedraw_RedrawWindow",data%,redraw%

i% � 2:ș "Wimp_OpenWindow",0,data%

� � 3:quit%=�

� � 17,18:Ȏ data%!16 �

�             � 0:quit%=�

�&             � &400C1:�mode_change

�            �

��

�� quit%

�'ș "Wimp_CloseDown",task%,&4B534154

��

� �create_window
�move(block%+4)
&#�equw("200,288,900,800,0,0,-1")
0*�equw("&FF000102,&FF070207,&000C0103")
:�equw("0,-1500,1500,0")
D!�equw("&2700603D,0,0,&10001")
N�equs("R-Example")
X�equw("0,0")
b/ș "Wimp_CreateWindow",0,block%+4 � handle%
l!block%=handle%
v!ș "Wimp_OpenWindow",0,block%
��
�
�� �mode_change
�� �=mode% � �
�mode%=�
�'ș "ZapRedraw_ReadVduVars",,redraw%
�8!(redraw%+r_flags)=0:� CHANGE TO 2 FOR DOUBLE HEIGHT
�!(redraw%+r_charw)=8
�!(redraw%+r_charh)=8
�!(redraw%+r_caddr)=bitmaps%
�Bș "ZapRedraw_CachedCharSize",!(redraw%+r_bpp),0,8,8 � ,,a%,b%
�!(redraw%+r_cbpl)=a%
�!(redraw%+r_cbpc)=b%
!(redraw%+r_linesp)=1
7ș "ZapRedraw_ConvertBitmap",,redraw%,32,255,chars%
!!(redraw%+r_palette)=palette%
 %� F%=0 � 15:!(palette%+4*F%)=F%:�
*?ș "ZapRedraw_CreatePalette",3,redraw%,palette%,palette%,16
4!(redraw%+r_for)=0
>!(redraw%+r_bac)=7
H�
R
\� �move(a%):ptr%=a%:�
f� �equw(a$):� l%,a%:l%=1
p�
z$a%=�a$,",",l%):� a%=0 � a%=�a$+1
�*!ptr%=�(�a$,l%,a%-l%)):l%=a%+1:ptr%+=4
�� a%>�a$
��
�� �equb(a$):� l%,a%:l%=1
��
�$a%=�a$,",",l%):� a%=0 � a%=�a$+1
�*?ptr%=�(�a$,l%,a%-l%)):l%=a%+1:ptr%+=1
�� a%>�a$
��
�� �equs(a$)
�+$ptr%=a$+�0:ptr%+=�a$+4:ptr%=ptr% � � 3
��
�
� �error
4� task%<>0 � ș "Wimp_CloseDown",task%,&4B534154
� !block%=0
$3� $(block%+4)=REPORT$+" at line "+STR$ERL+CHR$0
.0� SYS "Wimp_ReportError",block%,0,"E-Redraw"
8� �$+" at line "+Þ+�0
B�
L
V� �create_text
`�
jptr%=text%+&400
tline%=text%
~� a$
�ȕ a$<>"End"
� !line%=ptr%-text%:line%+=4
�	 l%=1
� �equb("32,32,32,32,32,32")
� ȕ l%<=�a$
�  Ȏ �a$,l%,1) �
�'   � "^":�equb("0,6"+�col(1)):l%+=2
�'   � "~":�equb("0,7"+�col(1)):l%+=2
�/   � "`":�equb("0,1"+�col(1)+�col(2)):l%+=3
�/   � "�":�equb("0,4"+�col(1)+�col(2)):l%+=3
�)    ?ptr%=�(�a$,l%,1)):l%+=1:ptr%+=1
�  �
 �

 �equb("0,2")
	 � a$
�
2!line%=0
F�
P
Z� �col(n%)
dȎ �a$,l%+n%,1) �
n � "A":=",12"
x � "B":=",8"
� � "C":=",15"
� � "D":=",13"
� � "G":=",10"
� � "L":=",7"
� � "O":=",14"
� � "R":=",11"
� � "W":=",0"
� � "Y":=",9"
��:=",0"
�
�(� A=Baige B=blue C=Cyan D=dark green
�5� G=green L=Black O=orange R=red W=White Y=yellow
�� ^  change foreground
� ~  change background
%� `  change foreground,background
� �  merge  f,b,c1,c2
"
,� ""
6:� "        R-Example: A demo for the ZapRedraw module"
@:� "        ------------------------------------------"
J� ""
TD� " For full details of how to use the ZapRedraw module see the"
^=� "text file 'Redraw'. It's purpose is to provide smooth"
h=� "scrolling for windows containing text by using direct"
r>� "screen access. It provides full colour control for the"
|F� "^RForeground^W and ~DBackground~L colours of each letter. This"
�3� "enables `BAselections`WL to be done easily."
�� ""
�F� " Another feature is ^Ymerging^W characters. This is useful for"
�E� "producing cursors. For example if we merge 'queue' with _____"
�I� "then we get �BAq_�BAu_�BAe_�BAu_�BAe_. You have full control over"
�B� "the four possible colours that can be obtained by merging."
�� ""
�� "Examples:"
�� ""
�M� " ^RHELLO^W merged with ^G-----^W gives ^R�GLH-�GLE-�GLL-�GLL-�GLO-^W."
�M� " ^RHELLO^W merged with ~G-----~L gives ^R�WGH-�WGE-�WGL-�WGL-�WGO-^W."
�M� " ^G-----^W merged with ^RHELLO^W gives ^G�RL-H�RL-E�RL-L�RL-L�RL-O^W."
�M� " ~G-----~L merged with ^RHELLO^W gives ~G�RL-H�RL-E�RL-L�RL-L�RL-O~L."
O� " ~G-----~L merged with `RCHELLO`WL gives ~G�RC-H�RC-E�RC-L�RC-L�RC-O~L."
� ""
E� "If there are features you need that aren't currently provided"
&E� "then please write to me - my address is in the Copyright file"
0� "for Zap."
:� ""
D� "Dominic Symes"
N� "End"
�

00000000  0d 00 0a 10 f4 20 3e 52  2d 45 78 61 6d 70 6c 65  |..... >R-Example|
00000010  0d 00 14 05 f4 0d 00 1e  43 f4 20 45 78 61 6d 70  |........C. Examp|
00000020  6c 65 20 70 72 6f 67 72  61 6d 20 69 6c 6c 75 73  |le program illus|
00000030  74 72 61 74 69 6e 67 20  74 68 65 20 75 73 65 20  |trating the use |
00000040  6f 66 20 74 68 65 20 5a  61 70 52 65 64 72 61 77  |of the ZapRedraw|
00000050  20 6d 6f 64 75 6c 65 2e  0d 00 28 16 f4 20 62 79  | module...(.. by|
00000060  20 44 6f 6d 69 6e 69 63  20 53 79 6d 65 73 0d 00  | Dominic Symes..|
00000070  32 05 f4 0d 00 3c 04 0d  00 46 0b 74 61 73 6b 25  |2....<...F.task%|
00000080  3d 30 0d 00 50 0e ee 20  85 20 f2 65 72 72 6f 72  |=0..P.. . .error|
00000090  0d 00 5a 37 2a 52 4d 45  4e 53 55 52 45 20 5a 61  |..Z7*RMENSURE Za|
000000a0  70 52 65 64 72 61 77 20  30 2e 30 31 20 52 4d 4c  |pRedraw 0.01 RML|
000000b0  6f 61 64 20 3c 5a 61 70  24 44 69 72 3e 2e 5a 61  |oad <Zap$Dir>.Za|
000000c0  70 52 65 64 72 61 77 0d  00 64 21 c8 9b 20 22 3c  |pRedraw..d!.. "<|
000000d0  5a 61 70 24 44 69 72 3e  2e 44 6f 63 73 2e 45 2d  |Zap$Dir>.Docs.E-|
000000e0  4c 69 62 72 61 72 79 22  0d 00 6e 19 f2 64 65 66  |Library"..n..def|
000000f0  69 6e 65 5f 7a 61 70 5f  76 61 72 69 61 62 6c 65  |ine_zap_variable|
00000100  73 0d 00 78 04 0d 00 82  11 de 20 62 6c 6f 63 6b  |s..x...... block|
00000110  25 20 26 31 30 30 0d 00  8c 12 de 20 62 6c 6f 63  |% &100..... bloc|
00000120  6b 32 25 20 26 31 30 30  0d 00 96 12 de 20 72 65  |k2% &100..... re|
00000130  64 72 61 77 25 20 26 31  30 30 0d 00 a0 11 de 20  |draw% &100..... |
00000140  63 68 61 72 73 25 20 26  38 30 30 0d 00 aa 15 de  |chars% &800.....|
00000150  20 62 69 74 6d 61 70 73  25 20 26 31 30 30 30 30  | bitmaps% &10000|
00000160  0d 00 b4 12 de 20 70 61  6c 65 74 74 65 25 20 26  |..... palette% &|
00000170  34 30 0d 00 be 11 de 20  74 65 78 74 25 20 26 38  |40..... text% &8|
00000180  30 30 30 0d 00 c8 20 21  28 72 65 64 72 61 77 25  |000... !(redraw%|
00000190  2b 72 5f 77 6f 72 6b 61  72 65 61 29 3d 62 6c 6f  |+r_workarea)=blo|
000001a0  63 6b 25 0d 00 d2 1b 21  28 72 65 64 72 61 77 25  |ck%....!(redraw%|
000001b0  2b 72 5f 64 61 74 61 29  3d 74 65 78 74 25 0d 00  |+r_data)=text%..|
000001c0  dc 04 0d 00 e6 31 c8 99  20 22 5a 61 70 52 65 64  |.....1.. "ZapRed|
000001d0  72 61 77 5f 52 65 61 64  53 79 73 74 65 6d 43 68  |raw_ReadSystemCh|
000001e0  61 72 73 22 2c 63 68 61  72 73 25 2c 72 65 64 72  |ars",chars%,redr|
000001f0  61 77 25 0d 00 f0 26 f4  20 6d 6f 64 65 25 3d 6d  |aw%...&. mode%=m|
00000200  6f 64 65 20 63 68 61 72  61 63 74 65 72 73 20 63  |ode characters c|
00000210  61 63 68 65 64 20 66 6f  72 0d 00 fa 0c 6d 6f 64  |ached for....mod|
00000220  65 25 3d 2d 31 0d 01 04  10 f2 6d 6f 64 65 5f 63  |e%=-1.....mode_c|
00000230  68 61 6e 67 65 0d 01 0e  10 f2 63 72 65 61 74 65  |hange.....create|
00000240  5f 74 65 78 74 0d 01 18  04 0d 01 22 3d c8 99 20  |_text......"=.. |
00000250  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000260  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000270  22 52 2d 45 78 61 6d 70  6c 65 22 2c 30 20 b8 20  |"R-Example",0 . |
00000280  2c 74 61 73 6b 25 0d 01  2c 0b 71 75 69 74 25 3d  |,task%..,.quit%=|
00000290  a3 0d 01 36 12 f2 63 72  65 61 74 65 5f 77 69 6e  |...6..create_win|
000002a0  64 6f 77 0d 01 40 04 0d  01 4a 05 f5 0d 01 54 2d  |dow..@...J....T-|
000002b0  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 26  |.. "Wimp_Poll",&|
000002c0  33 31 2c 62 6c 6f 63 6b  32 25 20 b8 20 65 76 65  |31,block2% . eve|
000002d0  6e 74 25 2c 64 61 74 61  25 0d 01 5e 0f c8 8e 20  |nt%,data%..^... |
000002e0  65 76 65 6e 74 25 20 ca  0d 01 68 32 20 c9 20 31  |event% ...h2 . 1|
000002f0  3a c8 99 20 22 5a 61 70  52 65 64 72 61 77 5f 52  |:.. "ZapRedraw_R|
00000300  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 64 61 74  |edrawWindow",dat|
00000310  61 25 2c 72 65 64 72 61  77 25 0d 01 69 25 20 c9  |a%,redraw%..i% .|
00000320  20 32 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  | 2:.. "Wimp_Open|
00000330  57 69 6e 64 6f 77 22 2c  30 2c 64 61 74 61 25 0d  |Window",0,data%.|
00000340  01 ae 10 20 c9 20 33 3a  71 75 69 74 25 3d b9 0d  |... . 3:quit%=..|
00000350  01 b8 1a 20 c9 20 31 37  2c 31 38 3a c8 8e 20 64  |... . 17,18:.. d|
00000360  61 74 61 25 21 31 36 20  ca 0d 01 c2 1c 20 20 20  |ata%!16 .....   |
00000370  20 20 20 20 20 20 20 20  20 20 c9 20 30 3a 71 75  |          . 0:qu|
00000380  69 74 25 3d b9 0d 01 cc  26 20 20 20 20 20 20 20  |it%=....&       |
00000390  20 20 20 20 20 20 c9 20  26 34 30 30 43 31 3a f2  |      . &400C1:.|
000003a0  6d 6f 64 65 5f 63 68 61  6e 67 65 0d 01 d6 11 20  |mode_change.... |
000003b0  20 20 20 20 20 20 20 20  20 20 20 cb 0d 01 e0 05  |           .....|
000003c0  cb 0d 01 ea 0b fd 20 71  75 69 74 25 0d 01 f4 27  |...... quit%...'|
000003d0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000003e0  77 6e 22 2c 74 61 73 6b  25 2c 26 34 42 35 33 34  |wn",task%,&4B534|
000003f0  31 35 34 0d 01 fe 05 e0  0d 02 08 04 0d 02 12 14  |154.............|
00000400  dd 20 f2 63 72 65 61 74  65 5f 77 69 6e 64 6f 77  |. .create_window|
00000410  0d 02 1c 13 f2 6d 6f 76  65 28 62 6c 6f 63 6b 25  |.....move(block%|
00000420  2b 34 29 0d 02 26 23 f2  65 71 75 77 28 22 32 30  |+4)..&#.equw("20|
00000430  30 2c 32 38 38 2c 39 30  30 2c 38 30 30 2c 30 2c  |0,288,900,800,0,|
00000440  30 2c 2d 31 22 29 0d 02  30 2a f2 65 71 75 77 28  |0,-1")..0*.equw(|
00000450  22 26 46 46 30 30 30 31  30 32 2c 26 46 46 30 37  |"&FF000102,&FF07|
00000460  30 32 30 37 2c 26 30 30  30 43 30 31 30 33 22 29  |0207,&000C0103")|
00000470  0d 02 3a 1b f2 65 71 75  77 28 22 30 2c 2d 31 35  |..:..equw("0,-15|
00000480  30 30 2c 31 35 30 30 2c  30 22 29 0d 02 44 21 f2  |00,1500,0")..D!.|
00000490  65 71 75 77 28 22 26 32  37 30 30 36 30 33 44 2c  |equw("&2700603D,|
000004a0  30 2c 30 2c 26 31 30 30  30 31 22 29 0d 02 4e 16  |0,0,&10001")..N.|
000004b0  f2 65 71 75 73 28 22 52  2d 45 78 61 6d 70 6c 65  |.equs("R-Example|
000004c0  22 29 0d 02 58 10 f2 65  71 75 77 28 22 30 2c 30  |")..X..equw("0,0|
000004d0  22 29 0d 02 62 2f c8 99  20 22 57 69 6d 70 5f 43  |")..b/.. "Wimp_C|
000004e0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 30 2c 62  |reateWindow",0,b|
000004f0  6c 6f 63 6b 25 2b 34 20  b8 20 68 61 6e 64 6c 65  |lock%+4 . handle|
00000500  25 0d 02 6c 13 21 62 6c  6f 63 6b 25 3d 68 61 6e  |%..l.!block%=han|
00000510  64 6c 65 25 0d 02 76 21  c8 99 20 22 57 69 6d 70  |dle%..v!.. "Wimp|
00000520  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 30 2c 62  |_OpenWindow",0,b|
00000530  6c 6f 63 6b 25 0d 02 80  05 e1 0d 02 8a 04 0d 02  |lock%...........|
00000540  94 12 dd 20 f2 6d 6f 64  65 5f 63 68 61 6e 67 65  |... .mode_change|
00000550  0d 02 9e 11 e7 20 eb 3d  6d 6f 64 65 25 20 8c 20  |..... .=mode% . |
00000560  e1 0d 02 a8 0b 6d 6f 64  65 25 3d eb 0d 02 b2 27  |.....mode%=....'|
00000570  c8 99 20 22 5a 61 70 52  65 64 72 61 77 5f 52 65  |.. "ZapRedraw_Re|
00000580  61 64 56 64 75 56 61 72  73 22 2c 2c 72 65 64 72  |adVduVars",,redr|
00000590  61 77 25 0d 02 bc 38 21  28 72 65 64 72 61 77 25  |aw%...8!(redraw%|
000005a0  2b 72 5f 66 6c 61 67 73  29 3d 30 3a f4 20 43 48  |+r_flags)=0:. CH|
000005b0  41 4e 47 45 20 54 4f 20  32 20 46 4f 52 20 44 4f  |ANGE TO 2 FOR DO|
000005c0  55 42 4c 45 20 48 45 49  47 48 54 0d 02 c6 18 21  |UBLE HEIGHT....!|
000005d0  28 72 65 64 72 61 77 25  2b 72 5f 63 68 61 72 77  |(redraw%+r_charw|
000005e0  29 3d 38 0d 02 d0 18 21  28 72 65 64 72 61 77 25  |)=8....!(redraw%|
000005f0  2b 72 5f 63 68 61 72 68  29 3d 38 0d 02 da 1f 21  |+r_charh)=8....!|
00000600  28 72 65 64 72 61 77 25  2b 72 5f 63 61 64 64 72  |(redraw%+r_caddr|
00000610  29 3d 62 69 74 6d 61 70  73 25 0d 02 e4 42 c8 99  |)=bitmaps%...B..|
00000620  20 22 5a 61 70 52 65 64  72 61 77 5f 43 61 63 68  | "ZapRedraw_Cach|
00000630  65 64 43 68 61 72 53 69  7a 65 22 2c 21 28 72 65  |edCharSize",!(re|
00000640  64 72 61 77 25 2b 72 5f  62 70 70 29 2c 30 2c 38  |draw%+r_bpp),0,8|
00000650  2c 38 20 b8 20 2c 2c 61  25 2c 62 25 0d 02 ee 18  |,8 . ,,a%,b%....|
00000660  21 28 72 65 64 72 61 77  25 2b 72 5f 63 62 70 6c  |!(redraw%+r_cbpl|
00000670  29 3d 61 25 0d 02 f8 18  21 28 72 65 64 72 61 77  |)=a%....!(redraw|
00000680  25 2b 72 5f 63 62 70 63  29 3d 62 25 0d 03 02 19  |%+r_cbpc)=b%....|
00000690  21 28 72 65 64 72 61 77  25 2b 72 5f 6c 69 6e 65  |!(redraw%+r_line|
000006a0  73 70 29 3d 31 0d 03 0c  37 c8 99 20 22 5a 61 70  |sp)=1...7.. "Zap|
000006b0  52 65 64 72 61 77 5f 43  6f 6e 76 65 72 74 42 69  |Redraw_ConvertBi|
000006c0  74 6d 61 70 22 2c 2c 72  65 64 72 61 77 25 2c 33  |tmap",,redraw%,3|
000006d0  32 2c 32 35 35 2c 63 68  61 72 73 25 0d 03 16 21  |2,255,chars%...!|
000006e0  21 28 72 65 64 72 61 77  25 2b 72 5f 70 61 6c 65  |!(redraw%+r_pale|
000006f0  74 74 65 29 3d 70 61 6c  65 74 74 65 25 0d 03 20  |tte)=palette%.. |
00000700  25 e3 20 46 25 3d 30 20  b8 20 31 35 3a 21 28 70  |%. F%=0 . 15:!(p|
00000710  61 6c 65 74 74 65 25 2b  34 2a 46 25 29 3d 46 25  |alette%+4*F%)=F%|
00000720  3a ed 0d 03 2a 3f c8 99  20 22 5a 61 70 52 65 64  |:...*?.. "ZapRed|
00000730  72 61 77 5f 43 72 65 61  74 65 50 61 6c 65 74 74  |raw_CreatePalett|
00000740  65 22 2c 33 2c 72 65 64  72 61 77 25 2c 70 61 6c  |e",3,redraw%,pal|
00000750  65 74 74 65 25 2c 70 61  6c 65 74 74 65 25 2c 31  |ette%,palette%,1|
00000760  36 0d 03 34 16 21 28 72  65 64 72 61 77 25 2b 72  |6..4.!(redraw%+r|
00000770  5f 66 6f 72 29 3d 30 0d  03 3e 16 21 28 72 65 64  |_for)=0..>.!(red|
00000780  72 61 77 25 2b 72 5f 62  61 63 29 3d 37 0d 03 48  |raw%+r_bac)=7..H|
00000790  05 e1 0d 03 52 04 0d 03  5c 19 dd 20 f2 6d 6f 76  |....R...\.. .mov|
000007a0  65 28 61 25 29 3a 70 74  72 25 3d 61 25 3a e1 0d  |e(a%):ptr%=a%:..|
000007b0  03 66 1c dd 20 f2 65 71  75 77 28 61 24 29 3a ea  |.f.. .equw(a$):.|
000007c0  20 6c 25 2c 61 25 3a 6c  25 3d 31 0d 03 70 05 f5  | l%,a%:l%=1..p..|
000007d0  0d 03 7a 24 61 25 3d a7  61 24 2c 22 2c 22 2c 6c  |..z$a%=.a$,",",l|
000007e0  25 29 3a e7 20 61 25 3d  30 20 8c 20 61 25 3d a9  |%):. a%=0 . a%=.|
000007f0  61 24 2b 31 0d 03 84 2a  21 70 74 72 25 3d a0 28  |a$+1...*!ptr%=.(|
00000800  c1 61 24 2c 6c 25 2c 61  25 2d 6c 25 29 29 3a 6c  |.a$,l%,a%-l%)):l|
00000810  25 3d 61 25 2b 31 3a 70  74 72 25 2b 3d 34 0d 03  |%=a%+1:ptr%+=4..|
00000820  8e 0c fd 20 61 25 3e a9  61 24 0d 03 98 05 e1 0d  |... a%>.a$......|
00000830  03 a2 1c dd 20 f2 65 71  75 62 28 61 24 29 3a ea  |.... .equb(a$):.|
00000840  20 6c 25 2c 61 25 3a 6c  25 3d 31 0d 03 ac 05 f5  | l%,a%:l%=1.....|
00000850  0d 03 b6 24 61 25 3d a7  61 24 2c 22 2c 22 2c 6c  |...$a%=.a$,",",l|
00000860  25 29 3a e7 20 61 25 3d  30 20 8c 20 61 25 3d a9  |%):. a%=0 . a%=.|
00000870  61 24 2b 31 0d 03 c0 2a  3f 70 74 72 25 3d a0 28  |a$+1...*?ptr%=.(|
00000880  c1 61 24 2c 6c 25 2c 61  25 2d 6c 25 29 29 3a 6c  |.a$,l%,a%-l%)):l|
00000890  25 3d 61 25 2b 31 3a 70  74 72 25 2b 3d 31 0d 03  |%=a%+1:ptr%+=1..|
000008a0  ca 0c fd 20 61 25 3e a9  61 24 0d 03 d4 05 e1 0d  |... a%>.a$......|
000008b0  03 de 0f dd 20 f2 65 71  75 73 28 61 24 29 0d 03  |.... .equs(a$)..|
000008c0  e8 2b 24 70 74 72 25 3d  61 24 2b bd 30 3a 70 74  |.+$ptr%=a$+.0:pt|
000008d0  72 25 2b 3d a9 61 24 2b  34 3a 70 74 72 25 3d 70  |r%+=.a$+4:ptr%=p|
000008e0  74 72 25 20 80 20 ac 20  33 0d 03 f2 05 e1 0d 03  |tr% . . 3.......|
000008f0  fc 04 0d 04 06 0c dd 20  f2 65 72 72 6f 72 0d 04  |....... .error..|
00000900  10 34 e7 20 74 61 73 6b  25 3c 3e 30 20 8c 20 c8  |.4. task%<>0 . .|
00000910  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000920  6e 22 2c 74 61 73 6b 25  2c 26 34 42 35 33 34 31  |n",task%,&4B5341|
00000930  35 34 0d 04 1a 0f f4 20  21 62 6c 6f 63 6b 25 3d  |54..... !block%=|
00000940  30 0d 04 24 33 f4 20 24  28 62 6c 6f 63 6b 25 2b  |0..$3. $(block%+|
00000950  34 29 3d 52 45 50 4f 52  54 24 2b 22 20 61 74 20  |4)=REPORT$+" at |
00000960  6c 69 6e 65 20 22 2b 53  54 52 24 45 52 4c 2b 43  |line "+STR$ERL+C|
00000970  48 52 24 30 0d 04 2e 30  f4 20 53 59 53 20 22 57  |HR$0...0. SYS "W|
00000980  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000990  2c 62 6c 6f 63 6b 25 2c  30 2c 22 45 2d 52 65 64  |,block%,0,"E-Red|
000009a0  72 61 77 22 0d 04 38 1a  f1 20 f6 24 2b 22 20 61  |raw"..8.. .$+" a|
000009b0  74 20 6c 69 6e 65 20 22  2b c3 9e 2b bd 30 0d 04  |t line "+..+.0..|
000009c0  42 05 e0 0d 04 4c 04 0d  04 56 12 dd 20 f2 63 72  |B....L...V.. .cr|
000009d0  65 61 74 65 5f 74 65 78  74 0d 04 60 05 f7 0d 04  |eate_text..`....|
000009e0  6a 13 70 74 72 25 3d 74  65 78 74 25 2b 26 34 30  |j.ptr%=text%+&40|
000009f0  30 0d 04 74 0f 6c 69 6e  65 25 3d 74 65 78 74 25  |0..t.line%=text%|
00000a00  0d 04 7e 08 f3 20 61 24  0d 04 88 10 c8 95 20 61  |..~.. a$...... a|
00000a10  24 3c 3e 22 45 6e 64 22  0d 04 92 1f 20 21 6c 69  |$<>"End".... !li|
00000a20  6e 65 25 3d 70 74 72 25  2d 74 65 78 74 25 3a 6c  |ne%=ptr%-text%:l|
00000a30  69 6e 65 25 2b 3d 34 0d  04 9c 09 20 6c 25 3d 31  |ine%+=4.... l%=1|
00000a40  0d 04 a6 1f 20 f2 65 71  75 62 28 22 33 32 2c 33  |.... .equb("32,3|
00000a50  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 22 29 0d  |2,32,32,32,32").|
00000a60  04 b0 0f 20 c8 95 20 6c  25 3c 3d a9 61 24 0d 04  |... .. l%<=.a$..|
00000a70  ba 14 20 20 c8 8e 20 c1  61 24 2c 6c 25 2c 31 29  |..  .. .a$,l%,1)|
00000a80  20 ca 0d 04 c4 27 20 20  20 c9 20 22 5e 22 3a f2  | ....'   . "^":.|
00000a90  65 71 75 62 28 22 30 2c  36 22 2b a4 63 6f 6c 28  |equb("0,6"+.col(|
00000aa0  31 29 29 3a 6c 25 2b 3d  32 0d 04 ce 27 20 20 20  |1)):l%+=2...'   |
00000ab0  c9 20 22 7e 22 3a f2 65  71 75 62 28 22 30 2c 37  |. "~":.equb("0,7|
00000ac0  22 2b a4 63 6f 6c 28 31  29 29 3a 6c 25 2b 3d 32  |"+.col(1)):l%+=2|
00000ad0  0d 04 d8 2f 20 20 20 c9  20 22 60 22 3a f2 65 71  |.../   . "`":.eq|
00000ae0  75 62 28 22 30 2c 31 22  2b a4 63 6f 6c 28 31 29  |ub("0,1"+.col(1)|
00000af0  2b a4 63 6f 6c 28 32 29  29 3a 6c 25 2b 3d 33 0d  |+.col(2)):l%+=3.|
00000b00  04 e2 2f 20 20 20 c9 20  22 a4 22 3a f2 65 71 75  |../   . ".":.equ|
00000b10  62 28 22 30 2c 34 22 2b  a4 63 6f 6c 28 31 29 2b  |b("0,4"+.col(1)+|
00000b20  a4 63 6f 6c 28 32 29 29  3a 6c 25 2b 3d 33 0d 04  |.col(2)):l%+=3..|
00000b30  ec 29 20 20 20 7f 20 3f  70 74 72 25 3d 97 28 c1  |.)   . ?ptr%=.(.|
00000b40  61 24 2c 6c 25 2c 31 29  29 3a 6c 25 2b 3d 31 3a  |a$,l%,1)):l%+=1:|
00000b50  70 74 72 25 2b 3d 31 0d  04 f6 07 20 20 cb 0d 05  |ptr%+=1....  ...|
00000b60  00 06 20 ce 0d 05 0a 11  20 f2 65 71 75 62 28 22  |.. ..... .equb("|
00000b70  30 2c 32 22 29 0d 05 14  09 20 f3 20 61 24 0d 05  |0,2").... . a$..|
00000b80  1e 05 ce 0d 05 32 0c 21  6c 69 6e 65 25 3d 30 0d  |.....2.!line%=0.|
00000b90  05 46 05 e1 0d 05 50 04  0d 05 5a 0e dd 20 a4 63  |.F....P...Z.. .c|
00000ba0  6f 6c 28 6e 25 29 0d 05  64 15 c8 8e 20 c1 61 24  |ol(n%)..d... .a$|
00000bb0  2c 6c 25 2b 6e 25 2c 31  29 20 ca 0d 05 6e 11 20  |,l%+n%,1) ...n. |
00000bc0  c9 20 22 41 22 3a 3d 22  2c 31 32 22 0d 05 78 10  |. "A":=",12"..x.|
00000bd0  20 c9 20 22 42 22 3a 3d  22 2c 38 22 0d 05 82 11  | . "B":=",8"....|
00000be0  20 c9 20 22 43 22 3a 3d  22 2c 31 35 22 0d 05 8c  | . "C":=",15"...|
00000bf0  11 20 c9 20 22 44 22 3a  3d 22 2c 31 33 22 0d 05  |. . "D":=",13"..|
00000c00  96 11 20 c9 20 22 47 22  3a 3d 22 2c 31 30 22 0d  |.. . "G":=",10".|
00000c10  05 a0 10 20 c9 20 22 4c  22 3a 3d 22 2c 37 22 0d  |... . "L":=",7".|
00000c20  05 aa 11 20 c9 20 22 4f  22 3a 3d 22 2c 31 34 22  |... . "O":=",14"|
00000c30  0d 05 b4 11 20 c9 20 22  52 22 3a 3d 22 2c 31 31  |.... . "R":=",11|
00000c40  22 0d 05 be 10 20 c9 20  22 57 22 3a 3d 22 2c 30  |".... . "W":=",0|
00000c50  22 0d 05 c8 10 20 c9 20  22 59 22 3a 3d 22 2c 39  |".... . "Y":=",9|
00000c60  22 0d 05 d2 0b cb 3a 3d  22 2c 30 22 0d 05 dc 04  |".....:=",0"....|
00000c70  0d 05 e6 28 f4 20 41 3d  42 61 69 67 65 20 42 3d  |...(. A=Baige B=|
00000c80  62 6c 75 65 20 43 3d 43  79 61 6e 20 44 3d 64 61  |blue C=Cyan D=da|
00000c90  72 6b 20 67 72 65 65 6e  0d 05 f0 35 f4 20 47 3d  |rk green...5. G=|
00000ca0  67 72 65 65 6e 20 4c 3d  42 6c 61 63 6b 20 4f 3d  |green L=Black O=|
00000cb0  6f 72 61 6e 67 65 20 52  3d 72 65 64 20 57 3d 57  |orange R=red W=W|
00000cc0  68 69 74 65 20 59 3d 79  65 6c 6c 6f 77 0d 05 fa  |hite Y=yellow...|
00000cd0  1a f4 20 5e 20 20 63 68  61 6e 67 65 20 66 6f 72  |.. ^  change for|
00000ce0  65 67 72 6f 75 6e 64 0d  06 04 1a f4 20 7e 20 20  |eground..... ~  |
00000cf0  63 68 61 6e 67 65 20 62  61 63 6b 67 72 6f 75 6e  |change backgroun|
00000d00  64 0d 06 0e 25 f4 20 60  20 20 63 68 61 6e 67 65  |d...%. `  change|
00000d10  20 66 6f 72 65 67 72 6f  75 6e 64 2c 62 61 63 6b  | foreground,back|
00000d20  67 72 6f 75 6e 64 0d 06  18 19 f4 20 a4 20 20 6d  |ground..... .  m|
00000d30  65 72 67 65 20 20 66 2c  62 2c 63 31 2c 63 32 0d  |erge  f,b,c1,c2.|
00000d40  06 22 04 0d 06 2c 08 dc  20 22 22 0d 06 36 3a dc  |."...,.. ""..6:.|
00000d50  20 22 20 20 20 20 20 20  20 20 52 2d 45 78 61 6d  | "        R-Exam|
00000d60  70 6c 65 3a 20 41 20 64  65 6d 6f 20 66 6f 72 20  |ple: A demo for |
00000d70  74 68 65 20 5a 61 70 52  65 64 72 61 77 20 6d 6f  |the ZapRedraw mo|
00000d80  64 75 6c 65 22 0d 06 40  3a dc 20 22 20 20 20 20  |dule"..@:. "    |
00000d90  20 20 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    ------------|
00000da0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000db0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 22 0d  |--------------".|
00000dc0  06 4a 08 dc 20 22 22 0d  06 54 44 dc 20 22 20 46  |.J.. ""..TD. " F|
00000dd0  6f 72 20 66 75 6c 6c 20  64 65 74 61 69 6c 73 20  |or full details |
00000de0  6f 66 20 68 6f 77 20 74  6f 20 75 73 65 20 74 68  |of how to use th|
00000df0  65 20 5a 61 70 52 65 64  72 61 77 20 6d 6f 64 75  |e ZapRedraw modu|
00000e00  6c 65 20 73 65 65 20 74  68 65 22 0d 06 5e 3d dc  |le see the"..^=.|
00000e10  20 22 74 65 78 74 20 66  69 6c 65 20 27 52 65 64  | "text file 'Red|
00000e20  72 61 77 27 2e 20 49 74  27 73 20 70 75 72 70 6f  |raw'. It's purpo|
00000e30  73 65 20 69 73 20 74 6f  20 70 72 6f 76 69 64 65  |se is to provide|
00000e40  20 73 6d 6f 6f 74 68 22  0d 06 68 3d dc 20 22 73  | smooth"..h=. "s|
00000e50  63 72 6f 6c 6c 69 6e 67  20 66 6f 72 20 77 69 6e  |crolling for win|
00000e60  64 6f 77 73 20 63 6f 6e  74 61 69 6e 69 6e 67 20  |dows containing |
00000e70  74 65 78 74 20 62 79 20  75 73 69 6e 67 20 64 69  |text by using di|
00000e80  72 65 63 74 22 0d 06 72  3e dc 20 22 73 63 72 65  |rect"..r>. "scre|
00000e90  65 6e 20 61 63 63 65 73  73 2e 20 49 74 20 70 72  |en access. It pr|
00000ea0  6f 76 69 64 65 73 20 66  75 6c 6c 20 63 6f 6c 6f  |ovides full colo|
00000eb0  75 72 20 63 6f 6e 74 72  6f 6c 20 66 6f 72 20 74  |ur control for t|
00000ec0  68 65 22 0d 06 7c 46 dc  20 22 5e 52 46 6f 72 65  |he"..|F. "^RFore|
00000ed0  67 72 6f 75 6e 64 5e 57  20 61 6e 64 20 7e 44 42  |ground^W and ~DB|
00000ee0  61 63 6b 67 72 6f 75 6e  64 7e 4c 20 63 6f 6c 6f  |ackground~L colo|
00000ef0  75 72 73 20 6f 66 20 65  61 63 68 20 6c 65 74 74  |urs of each lett|
00000f00  65 72 2e 20 54 68 69 73  22 0d 06 86 33 dc 20 22  |er. This"...3. "|
00000f10  65 6e 61 62 6c 65 73 20  60 42 41 73 65 6c 65 63  |enables `BAselec|
00000f20  74 69 6f 6e 73 60 57 4c  20 74 6f 20 62 65 20 64  |tions`WL to be d|
00000f30  6f 6e 65 20 65 61 73 69  6c 79 2e 22 0d 06 90 08  |one easily."....|
00000f40  dc 20 22 22 0d 06 9a 46  dc 20 22 20 41 6e 6f 74  |. ""...F. " Anot|
00000f50  68 65 72 20 66 65 61 74  75 72 65 20 69 73 20 5e  |her feature is ^|
00000f60  59 6d 65 72 67 69 6e 67  5e 57 20 63 68 61 72 61  |Ymerging^W chara|
00000f70  63 74 65 72 73 2e 20 54  68 69 73 20 69 73 20 75  |cters. This is u|
00000f80  73 65 66 75 6c 20 66 6f  72 22 0d 06 a4 45 dc 20  |seful for"...E. |
00000f90  22 70 72 6f 64 75 63 69  6e 67 20 63 75 72 73 6f  |"producing curso|
00000fa0  72 73 2e 20 46 6f 72 20  65 78 61 6d 70 6c 65 20  |rs. For example |
00000fb0  69 66 20 77 65 20 6d 65  72 67 65 20 27 71 75 65  |if we merge 'que|
00000fc0  75 65 27 20 77 69 74 68  20 5f 5f 5f 5f 5f 22 0d  |ue' with _____".|
00000fd0  06 ae 49 dc 20 22 74 68  65 6e 20 77 65 20 67 65  |..I. "then we ge|
00000fe0  74 20 a4 42 41 71 5f a4  42 41 75 5f a4 42 41 65  |t .BAq_.BAu_.BAe|
00000ff0  5f a4 42 41 75 5f a4 42  41 65 5f 2e 20 59 6f 75  |_.BAu_.BAe_. You|
00001000  20 68 61 76 65 20 66 75  6c 6c 20 63 6f 6e 74 72  | have full contr|
00001010  6f 6c 20 6f 76 65 72 22  0d 06 b8 42 dc 20 22 74  |ol over"...B. "t|
00001020  68 65 20 66 6f 75 72 20  70 6f 73 73 69 62 6c 65  |he four possible|
00001030  20 63 6f 6c 6f 75 72 73  20 74 68 61 74 20 63 61  | colours that ca|
00001040  6e 20 62 65 20 6f 62 74  61 69 6e 65 64 20 62 79  |n be obtained by|
00001050  20 6d 65 72 67 69 6e 67  2e 22 0d 06 c2 08 dc 20  | merging."..... |
00001060  22 22 0d 06 cc 11 dc 20  22 45 78 61 6d 70 6c 65  |""..... "Example|
00001070  73 3a 22 0d 06 d6 08 dc  20 22 22 0d 06 e0 4d dc  |s:"..... ""...M.|
00001080  20 22 20 5e 52 48 45 4c  4c 4f 5e 57 20 6d 65 72  | " ^RHELLO^W mer|
00001090  67 65 64 20 77 69 74 68  20 5e 47 2d 2d 2d 2d 2d  |ged with ^G-----|
000010a0  5e 57 20 67 69 76 65 73  20 5e 52 a4 47 4c 48 2d  |^W gives ^R.GLH-|
000010b0  a4 47 4c 45 2d a4 47 4c  4c 2d a4 47 4c 4c 2d a4  |.GLE-.GLL-.GLL-.|
000010c0  47 4c 4f 2d 5e 57 2e 22  0d 06 ea 4d dc 20 22 20  |GLO-^W."...M. " |
000010d0  5e 52 48 45 4c 4c 4f 5e  57 20 6d 65 72 67 65 64  |^RHELLO^W merged|
000010e0  20 77 69 74 68 20 7e 47  2d 2d 2d 2d 2d 7e 4c 20  | with ~G-----~L |
000010f0  67 69 76 65 73 20 5e 52  a4 57 47 48 2d a4 57 47  |gives ^R.WGH-.WG|
00001100  45 2d a4 57 47 4c 2d a4  57 47 4c 2d a4 57 47 4f  |E-.WGL-.WGL-.WGO|
00001110  2d 5e 57 2e 22 0d 06 f4  4d dc 20 22 20 5e 47 2d  |-^W."...M. " ^G-|
00001120  2d 2d 2d 2d 5e 57 20 6d  65 72 67 65 64 20 77 69  |----^W merged wi|
00001130  74 68 20 5e 52 48 45 4c  4c 4f 5e 57 20 67 69 76  |th ^RHELLO^W giv|
00001140  65 73 20 5e 47 a4 52 4c  2d 48 a4 52 4c 2d 45 a4  |es ^G.RL-H.RL-E.|
00001150  52 4c 2d 4c a4 52 4c 2d  4c a4 52 4c 2d 4f 5e 57  |RL-L.RL-L.RL-O^W|
00001160  2e 22 0d 06 fe 4d dc 20  22 20 7e 47 2d 2d 2d 2d  |."...M. " ~G----|
00001170  2d 7e 4c 20 6d 65 72 67  65 64 20 77 69 74 68 20  |-~L merged with |
00001180  5e 52 48 45 4c 4c 4f 5e  57 20 67 69 76 65 73 20  |^RHELLO^W gives |
00001190  7e 47 a4 52 4c 2d 48 a4  52 4c 2d 45 a4 52 4c 2d  |~G.RL-H.RL-E.RL-|
000011a0  4c a4 52 4c 2d 4c a4 52  4c 2d 4f 7e 4c 2e 22 0d  |L.RL-L.RL-O~L.".|
000011b0  07 08 4f dc 20 22 20 7e  47 2d 2d 2d 2d 2d 7e 4c  |..O. " ~G-----~L|
000011c0  20 6d 65 72 67 65 64 20  77 69 74 68 20 60 52 43  | merged with `RC|
000011d0  48 45 4c 4c 4f 60 57 4c  20 67 69 76 65 73 20 7e  |HELLO`WL gives ~|
000011e0  47 a4 52 43 2d 48 a4 52  43 2d 45 a4 52 43 2d 4c  |G.RC-H.RC-E.RC-L|
000011f0  a4 52 43 2d 4c a4 52 43  2d 4f 7e 4c 2e 22 0d 07  |.RC-L.RC-O~L."..|
00001200  12 08 dc 20 22 22 0d 07  1c 45 dc 20 22 49 66 20  |... ""...E. "If |
00001210  74 68 65 72 65 20 61 72  65 20 66 65 61 74 75 72  |there are featur|
00001220  65 73 20 79 6f 75 20 6e  65 65 64 20 74 68 61 74  |es you need that|
00001230  20 61 72 65 6e 27 74 20  63 75 72 72 65 6e 74 6c  | aren't currentl|
00001240  79 20 70 72 6f 76 69 64  65 64 22 0d 07 26 45 dc  |y provided"..&E.|
00001250  20 22 74 68 65 6e 20 70  6c 65 61 73 65 20 77 72  | "then please wr|
00001260  69 74 65 20 74 6f 20 6d  65 20 2d 20 6d 79 20 61  |ite to me - my a|
00001270  64 64 72 65 73 73 20 69  73 20 69 6e 20 74 68 65  |ddress is in the|
00001280  20 43 6f 70 79 72 69 67  68 74 20 66 69 6c 65 22  | Copyright file"|
00001290  0d 07 30 10 dc 20 22 66  6f 72 20 5a 61 70 2e 22  |..0.. "for Zap."|
000012a0  0d 07 3a 08 dc 20 22 22  0d 07 44 15 dc 20 22 44  |..:.. ""..D.. "D|
000012b0  6f 6d 69 6e 69 63 20 53  79 6d 65 73 22 0d 07 4e  |ominic Symes"..N|
000012c0  0b dc 20 22 45 6e 64 22  0d ff                    |.. "End"..|
000012ca