+� Display manager (wimp) for !DavidRPG2
� (c) David Spence, 1998.

( � 1,"Don't run this library"
2�
<
F��display_init(o$)
Pnull$=�pram
Z
� B% 1024
dEș "Wimp_Initialise",200,&4b534154,"David RPG2 ("+o$+")" � ,task%
nB%!0=20
xB%!16=&A0070
�!ș "Wimp_SendMessage",17,B%,0
��display_poll
��
�
���display_SetTitle(o$)
�B%!0=256
�B%!16=&A0077
�$(B%+20)=o$
�!ș "Wimp_SendMessage",17,B%,0
��display_poll
��display_poll
��
�

!��display_SetPosIndicator(o$)

B%!0=256

B%!16=&A0078

"$(B%+20)=o$

,!ș "Wimp_SendMessage",17,B%,0

6�display_poll

@�display_poll

J�

T

^��display_initstart(o$)

hnull$=�pram

r
� B% 1024

|Eș "Wimp_Initialise",200,&4b534154,"David RPG2 ("+o$+")" � ,task%

��display_poll

��

�

���display_initend

�B%!0=20

�B%!16=&A0070

�!ș "Wimp_SendMessage",17,B%,0

��display_poll

��

�

���display_end

�B%!0=20

�B%!16=&A0071
!ș "Wimp_SendMessage",17,B%,0
�

&��display_poll
0ș "Wimp_Poll",0,B% � R%
:Ȏ R% �
D� 17,18:Ȏ B%!16 �
N� &A0072:�quit_now
X� &A0074:�restart_interp
b� 0:�display_end:�quit_now
l�
v�
��
�
�ݤinput
�B%!0=20
�B%!16=&A0075
�!ș "Wimp_SendMessage",17,B%,0
��
�ș "Wimp_Poll",0,B% � R%
�Ȏ R% �
�� 17,18:Ȏ B%!16 �
�� &A0072:�quit_now
�� &A0076:=$(B%+20)
� � &A0074:�restart_interp:=""
� 0:�display_end:�quit_now
�
�
 � 0
*=0
4
>��report(o$)
Hy$="error: "+o$
RB%!0=256
\B%!16=&A0073
f$(B%+20)=y$
p!ș "Wimp_SendMessage",17,B%,0
z�display_poll
�
err+=1
�� err>30 �
�\�display("Error limit (30 errors) reached - exiting in case it is recursive."):�quit_now
��
��
�
���display(o$)
�B%!0=256
�B%!16=&A0079
�$(B%+20)=o$
�!ș "Wimp_SendMessage",17,B%,0
��display_poll
��display_poll
�

��display_special(o$)
$B%!0=256
.B%!16=&A0073
8$(B%+20)=o$
B!ș "Wimp_SendMessage",17,B%,0
L�display_poll
V�display_poll
`�
j
t	��cls
~B%!0=20
�B%!16=&A007A
�!ș "Wimp_SendMessage",17,B%,0
��display_poll
��display_poll
��
�
�ݤdisplay_tempdir
�*� __d$="" � ="<DavidRPG3$Dir>.Compile"
�=�display_dir_(�__d$,3))
�
�ݤdisplay_dir_(o$)
�ș "XOS_CLI","Cdir "+o$
=o$
�

00000000  0d 00 0a 2b f4 20 44 69  73 70 6c 61 79 20 6d 61  |...+. Display ma|
00000010  6e 61 67 65 72 20 28 77  69 6d 70 29 20 66 6f 72  |nager (wimp) for|
00000020  20 21 44 61 76 69 64 52  50 47 32 0d 00 14 1d f4  | !DavidRPG2.....|
00000030  20 28 63 29 20 44 61 76  69 64 20 53 70 65 6e 63  | (c) David Spenc|
00000040  65 2c 20 31 39 39 38 2e  0d 00 1e 04 0d 00 28 20  |e, 1998.......( |
00000050  85 20 31 2c 22 44 6f 6e  27 74 20 72 75 6e 20 74  |. 1,"Don't run t|
00000060  68 69 73 20 6c 69 62 72  61 72 79 22 0d 00 32 05  |his library"..2.|
00000070  e0 0d 00 3c 04 0d 00 46  16 dd f2 64 69 73 70 6c  |...<...F...displ|
00000080  61 79 5f 69 6e 69 74 28  6f 24 29 0d 00 50 0f 6e  |ay_init(o$)..P.n|
00000090  75 6c 6c 24 3d a4 70 72  61 6d 0d 00 5a 0d de 20  |ull$=.pram..Z.. |
000000a0  42 25 20 31 30 32 34 0d  00 64 45 c8 99 20 22 57  |B% 1024..dE.. "W|
000000b0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000000c0  32 30 30 2c 26 34 62 35  33 34 31 35 34 2c 22 44  |200,&4b534154,"D|
000000d0  61 76 69 64 20 52 50 47  32 20 28 22 2b 6f 24 2b  |avid RPG2 ("+o$+|
000000e0  22 29 22 20 b8 20 2c 74  61 73 6b 25 0d 00 6e 0b  |")" . ,task%..n.|
000000f0  42 25 21 30 3d 32 30 0d  00 78 10 42 25 21 31 36  |B%!0=20..x.B%!16|
00000100  3d 26 41 30 30 37 30 0d  00 82 21 c8 99 20 22 57  |=&A0070...!.. "W|
00000110  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000120  2c 31 37 2c 42 25 2c 30  0d 00 8c 11 f2 64 69 73  |,17,B%,0.....dis|
00000130  70 6c 61 79 5f 70 6f 6c  6c 0d 00 96 05 e1 0d 00  |play_poll.......|
00000140  a0 04 0d 00 aa 1a dd f2  64 69 73 70 6c 61 79 5f  |........display_|
00000150  53 65 74 54 69 74 6c 65  28 6f 24 29 0d 00 b4 0c  |SetTitle(o$)....|
00000160  42 25 21 30 3d 32 35 36  0d 00 be 10 42 25 21 31  |B%!0=256....B%!1|
00000170  36 3d 26 41 30 30 37 37  0d 00 c8 0f 24 28 42 25  |6=&A0077....$(B%|
00000180  2b 32 30 29 3d 6f 24 0d  00 d2 21 c8 99 20 22 57  |+20)=o$...!.. "W|
00000190  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000001a0  2c 31 37 2c 42 25 2c 30  0d 00 dc 11 f2 64 69 73  |,17,B%,0.....dis|
000001b0  70 6c 61 79 5f 70 6f 6c  6c 0d 00 e6 11 f2 64 69  |play_poll.....di|
000001c0  73 70 6c 61 79 5f 70 6f  6c 6c 0d 00 f0 05 e1 0d  |splay_poll......|
000001d0  00 fa 04 0d 01 04 21 dd  f2 64 69 73 70 6c 61 79  |......!..display|
000001e0  5f 53 65 74 50 6f 73 49  6e 64 69 63 61 74 6f 72  |_SetPosIndicator|
000001f0  28 6f 24 29 0d 01 0e 0c  42 25 21 30 3d 32 35 36  |(o$)....B%!0=256|
00000200  0d 01 18 10 42 25 21 31  36 3d 26 41 30 30 37 38  |....B%!16=&A0078|
00000210  0d 01 22 0f 24 28 42 25  2b 32 30 29 3d 6f 24 0d  |..".$(B%+20)=o$.|
00000220  01 2c 21 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.,!.. "Wimp_Send|
00000230  4d 65 73 73 61 67 65 22  2c 31 37 2c 42 25 2c 30  |Message",17,B%,0|
00000240  0d 01 36 11 f2 64 69 73  70 6c 61 79 5f 70 6f 6c  |..6..display_pol|
00000250  6c 0d 01 40 11 f2 64 69  73 70 6c 61 79 5f 70 6f  |l..@..display_po|
00000260  6c 6c 0d 01 4a 05 e1 0d  01 54 04 0d 01 5e 1b dd  |ll..J....T...^..|
00000270  f2 64 69 73 70 6c 61 79  5f 69 6e 69 74 73 74 61  |.display_initsta|
00000280  72 74 28 6f 24 29 0d 01  68 0f 6e 75 6c 6c 24 3d  |rt(o$)..h.null$=|
00000290  a4 70 72 61 6d 0d 01 72  0d de 20 42 25 20 31 30  |.pram..r.. B% 10|
000002a0  32 34 0d 01 7c 45 c8 99  20 22 57 69 6d 70 5f 49  |24..|E.. "Wimp_I|
000002b0  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 26  |nitialise",200,&|
000002c0  34 62 35 33 34 31 35 34  2c 22 44 61 76 69 64 20  |4b534154,"David |
000002d0  52 50 47 32 20 28 22 2b  6f 24 2b 22 29 22 20 b8  |RPG2 ("+o$+")" .|
000002e0  20 2c 74 61 73 6b 25 0d  01 86 11 f2 64 69 73 70  | ,task%.....disp|
000002f0  6c 61 79 5f 70 6f 6c 6c  0d 01 90 05 e1 0d 01 9a  |lay_poll........|
00000300  04 0d 01 a4 15 dd f2 64  69 73 70 6c 61 79 5f 69  |.......display_i|
00000310  6e 69 74 65 6e 64 0d 01  ae 0b 42 25 21 30 3d 32  |nitend....B%!0=2|
00000320  30 0d 01 b8 10 42 25 21  31 36 3d 26 41 30 30 37  |0....B%!16=&A007|
00000330  30 0d 01 c2 21 c8 99 20  22 57 69 6d 70 5f 53 65  |0...!.. "Wimp_Se|
00000340  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 42 25  |ndMessage",17,B%|
00000350  2c 30 0d 01 cc 11 f2 64  69 73 70 6c 61 79 5f 70  |,0.....display_p|
00000360  6f 6c 6c 0d 01 d6 05 e1  0d 01 e0 04 0d 01 ea 11  |oll.............|
00000370  dd f2 64 69 73 70 6c 61  79 5f 65 6e 64 0d 01 f4  |..display_end...|
00000380  0b 42 25 21 30 3d 32 30  0d 01 fe 10 42 25 21 31  |.B%!0=20....B%!1|
00000390  36 3d 26 41 30 30 37 31  0d 02 08 21 c8 99 20 22  |6=&A0071...!.. "|
000003a0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000003b0  22 2c 31 37 2c 42 25 2c  30 0d 02 12 05 e1 0d 02  |",17,B%,0.......|
000003c0  1c 04 0d 02 26 12 dd f2  64 69 73 70 6c 61 79 5f  |....&...display_|
000003d0  70 6f 6c 6c 0d 02 30 1c  c8 99 20 22 57 69 6d 70  |poll..0... "Wimp|
000003e0  5f 50 6f 6c 6c 22 2c 30  2c 42 25 20 b8 20 52 25  |_Poll",0,B% . R%|
000003f0  0d 02 3a 0b c8 8e 20 52  25 20 ca 0d 02 44 16 c9  |..:... R% ...D..|
00000400  20 31 37 2c 31 38 3a c8  8e 20 42 25 21 31 36 20  | 17,18:.. B%!16 |
00000410  ca 0d 02 4e 16 c9 20 26  41 30 30 37 32 3a f2 71  |...N.. &A0072:.q|
00000420  75 69 74 5f 6e 6f 77 0d  02 58 1c c9 20 26 41 30  |uit_now..X.. &A0|
00000430  30 37 34 3a f2 72 65 73  74 61 72 74 5f 69 6e 74  |074:.restart_int|
00000440  65 72 70 0d 02 62 1e c9  20 30 3a f2 64 69 73 70  |erp..b.. 0:.disp|
00000450  6c 61 79 5f 65 6e 64 3a  f2 71 75 69 74 5f 6e 6f  |lay_end:.quit_no|
00000460  77 0d 02 6c 05 cb 0d 02  76 05 cb 0d 02 80 05 e1  |w..l....v.......|
00000470  0d 02 8a 04 0d 02 94 0b  dd a4 69 6e 70 75 74 0d  |..........input.|
00000480  02 9e 0b 42 25 21 30 3d  32 30 0d 02 a8 10 42 25  |...B%!0=20....B%|
00000490  21 31 36 3d 26 41 30 30  37 35 0d 02 b2 21 c8 99  |!16=&A0075...!..|
000004a0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000004b0  67 65 22 2c 31 37 2c 42  25 2c 30 0d 02 bc 05 f5  |ge",17,B%,0.....|
000004c0  0d 02 c6 1c c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |...... "Wimp_Pol|
000004d0  6c 22 2c 30 2c 42 25 20  b8 20 52 25 0d 02 d0 0b  |l",0,B% . R%....|
000004e0  c8 8e 20 52 25 20 ca 0d  02 da 16 c9 20 31 37 2c  |.. R% ...... 17,|
000004f0  31 38 3a c8 8e 20 42 25  21 31 36 20 ca 0d 02 e4  |18:.. B%!16 ....|
00000500  16 c9 20 26 41 30 30 37  32 3a f2 71 75 69 74 5f  |.. &A0072:.quit_|
00000510  6e 6f 77 0d 02 ee 16 c9  20 26 41 30 30 37 36 3a  |now..... &A0076:|
00000520  3d 24 28 42 25 2b 32 30  29 0d 02 f8 20 c9 20 26  |=$(B%+20)... . &|
00000530  41 30 30 37 34 3a f2 72  65 73 74 61 72 74 5f 69  |A0074:.restart_i|
00000540  6e 74 65 72 70 3a 3d 22  22 0d 03 02 1e c9 20 30  |nterp:=""..... 0|
00000550  3a f2 64 69 73 70 6c 61  79 5f 65 6e 64 3a f2 71  |:.display_end:.q|
00000560  75 69 74 5f 6e 6f 77 0d  03 0c 05 cb 0d 03 16 05  |uit_now.........|
00000570  cb 0d 03 20 07 fd 20 30  0d 03 2a 06 3d 30 0d 03  |... .. 0..*.=0..|
00000580  34 04 0d 03 3e 10 dd f2  72 65 70 6f 72 74 28 6f  |4...>...report(o|
00000590  24 29 0d 03 48 13 79 24  3d 22 65 72 72 6f 72 3a  |$)..H.y$="error:|
000005a0  20 22 2b 6f 24 0d 03 52  0c 42 25 21 30 3d 32 35  | "+o$..R.B%!0=25|
000005b0  36 0d 03 5c 10 42 25 21  31 36 3d 26 41 30 30 37  |6..\.B%!16=&A007|
000005c0  33 0d 03 66 0f 24 28 42  25 2b 32 30 29 3d 79 24  |3..f.$(B%+20)=y$|
000005d0  0d 03 70 21 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |..p!.. "Wimp_Sen|
000005e0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 25 2c  |dMessage",17,B%,|
000005f0  30 0d 03 7a 11 f2 64 69  73 70 6c 61 79 5f 70 6f  |0..z..display_po|
00000600  6c 6c 0d 03 84 0a 65 72  72 2b 3d 31 0d 03 8e 0e  |ll....err+=1....|
00000610  e7 20 65 72 72 3e 33 30  20 8c 0d 03 98 5c f2 64  |. err>30 ....\.d|
00000620  69 73 70 6c 61 79 28 22  45 72 72 6f 72 20 6c 69  |isplay("Error li|
00000630  6d 69 74 20 28 33 30 20  65 72 72 6f 72 73 29 20  |mit (30 errors) |
00000640  72 65 61 63 68 65 64 20  2d 20 65 78 69 74 69 6e  |reached - exitin|
00000650  67 20 69 6e 20 63 61 73  65 20 69 74 20 69 73 20  |g in case it is |
00000660  72 65 63 75 72 73 69 76  65 2e 22 29 3a f2 71 75  |recursive."):.qu|
00000670  69 74 5f 6e 6f 77 0d 03  a2 05 cd 0d 03 ac 05 e1  |it_now..........|
00000680  0d 03 b6 04 0d 03 c0 11  dd f2 64 69 73 70 6c 61  |..........displa|
00000690  79 28 6f 24 29 0d 03 ca  0c 42 25 21 30 3d 32 35  |y(o$)....B%!0=25|
000006a0  36 0d 03 d4 10 42 25 21  31 36 3d 26 41 30 30 37  |6....B%!16=&A007|
000006b0  39 0d 03 de 0f 24 28 42  25 2b 32 30 29 3d 6f 24  |9....$(B%+20)=o$|
000006c0  0d 03 e8 21 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...!.. "Wimp_Sen|
000006d0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 25 2c  |dMessage",17,B%,|
000006e0  30 0d 03 f2 11 f2 64 69  73 70 6c 61 79 5f 70 6f  |0.....display_po|
000006f0  6c 6c 0d 03 fc 11 f2 64  69 73 70 6c 61 79 5f 70  |ll.....display_p|
00000700  6f 6c 6c 0d 04 06 05 e1  0d 04 10 04 0d 04 1a 19  |oll.............|
00000710  dd f2 64 69 73 70 6c 61  79 5f 73 70 65 63 69 61  |..display_specia|
00000720  6c 28 6f 24 29 0d 04 24  0c 42 25 21 30 3d 32 35  |l(o$)..$.B%!0=25|
00000730  36 0d 04 2e 10 42 25 21  31 36 3d 26 41 30 30 37  |6....B%!16=&A007|
00000740  33 0d 04 38 0f 24 28 42  25 2b 32 30 29 3d 6f 24  |3..8.$(B%+20)=o$|
00000750  0d 04 42 21 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |..B!.. "Wimp_Sen|
00000760  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 25 2c  |dMessage",17,B%,|
00000770  30 0d 04 4c 11 f2 64 69  73 70 6c 61 79 5f 70 6f  |0..L..display_po|
00000780  6c 6c 0d 04 56 11 f2 64  69 73 70 6c 61 79 5f 70  |ll..V..display_p|
00000790  6f 6c 6c 0d 04 60 05 e1  0d 04 6a 04 0d 04 74 09  |oll..`....j...t.|
000007a0  dd f2 63 6c 73 0d 04 7e  0b 42 25 21 30 3d 32 30  |..cls..~.B%!0=20|
000007b0  0d 04 88 10 42 25 21 31  36 3d 26 41 30 30 37 41  |....B%!16=&A007A|
000007c0  0d 04 92 21 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...!.. "Wimp_Sen|
000007d0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 25 2c  |dMessage",17,B%,|
000007e0  30 0d 04 9c 11 f2 64 69  73 70 6c 61 79 5f 70 6f  |0.....display_po|
000007f0  6c 6c 0d 04 a6 11 f2 64  69 73 70 6c 61 79 5f 70  |ll.....display_p|
00000800  6f 6c 6c 0d 04 b0 05 e1  0d 04 ba 04 0d 04 c4 15  |oll.............|
00000810  dd a4 64 69 73 70 6c 61  79 5f 74 65 6d 70 64 69  |..display_tempdi|
00000820  72 0d 04 ce 2a e7 20 5f  5f 64 24 3d 22 22 20 8c  |r...*. __d$="" .|
00000830  20 3d 22 3c 44 61 76 69  64 52 50 47 33 24 44 69  | ="<DavidRPG3$Di|
00000840  72 3e 2e 43 6f 6d 70 69  6c 65 22 0d 04 d8 1c 3d  |r>.Compile"....=|
00000850  a4 64 69 73 70 6c 61 79  5f 64 69 72 5f 28 c1 5f  |.display_dir_(._|
00000860  5f 64 24 2c 33 29 29 0d  04 e2 04 0d 04 ec 16 dd  |_d$,3)).........|
00000870  a4 64 69 73 70 6c 61 79  5f 64 69 72 5f 28 6f 24  |.display_dir_(o$|
00000880  29 0d 04 f6 1b c8 99 20  22 58 4f 53 5f 43 4c 49  |)...... "XOS_CLI|
00000890  22 2c 22 43 64 69 72 20  22 2b 6f 24 0d 05 00 07  |","Cdir "+o$....|
000008a0  3d 6f 24 0d ff                                    |=o$..|
000008a5