'� Bdrops LEN Nicholas Marriott 1995
:
� � � �,�$+" @ "+�(�): �
� block% 256
($block%="TASK"
26ș "Wimp_Initialise",310,!block%,"Bdrops" � ,task%
<:
Fquit%=�
G�_Variables
P�_Backdrop
Q
�_Time
Z:
dmask%=%11100000110000
x�
�3ș "Wimp_PollIdle",mask%,block%,wait% � reason%
�Ȏ reason% �
�� 0: �_Variables
�        �_Backdrop
�        �_Time
�"� 17,18: � block%!16=0 quit%=�
��
�� quit%
�:
�ș "Wimp_CloseDown",task%
��
�:
�� �_Backdrop

backdrop%=�(total%+1)-1

F� backdrop%<10 backdrop$="0"+�(backdrop%) � backdrop$=�(backdrop%)

)�("Backdrop -Tile Bdrops:"+backdrop$)

"�

,:

6� �_Time

@%ș "OS_ReadMonotonicTime" � wait%

Await%+=time%

J�

T:

^� �_Variables

h)total%=�(�_SystemVar("Bdrops$Total"))

i+time%=�(�_SystemVar("Bdrops$Time"))*100

r�

|:

�� �_SystemVar(var$)

�5ș "XOS_ReadVarVal",var$,block%,256,-1,0 � ,,len%

�:� len%=0 � 0,"System variable does not exist": quit%=�

�4ș "XOS_ReadVarVal",var$,block%,256,0,3 � ,,len%

�block%?len%=13

�=$block%
�

00000000  0d 00 0a 27 f4 20 42 64  72 6f 70 73 20 4c 45 4e  |...'. Bdrops LEN|
00000010  20 4e 69 63 68 6f 6c 61  73 20 4d 61 72 72 69 6f  | Nicholas Marrio|
00000020  74 74 20 31 39 39 35 0d  00 14 05 3a 0d 00 15 1c  |tt 1995....:....|
00000030  ee 20 85 20 85 20 a2 2c  f6 24 2b 22 20 40 20 22  |. . . .,.$+" @ "|
00000040  2b c3 28 9e 29 3a 20 e0  0d 00 1e 10 de 20 62 6c  |+.(.): ...... bl|
00000050  6f 63 6b 25 20 32 35 36  0d 00 28 12 24 62 6c 6f  |ock% 256..(.$blo|
00000060  63 6b 25 3d 22 54 41 53  4b 22 0d 00 32 36 c8 99  |ck%="TASK"..26..|
00000070  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000080  65 22 2c 33 31 30 2c 21  62 6c 6f 63 6b 25 2c 22  |e",310,!block%,"|
00000090  42 64 72 6f 70 73 22 20  b8 20 2c 74 61 73 6b 25  |Bdrops" . ,task%|
000000a0  0d 00 3c 05 3a 0d 00 46  0b 71 75 69 74 25 3d a3  |..<.:..F.quit%=.|
000000b0  0d 00 47 0f f2 5f 56 61  72 69 61 62 6c 65 73 0d  |..G.._Variables.|
000000c0  00 50 0e f2 5f 42 61 63  6b 64 72 6f 70 0d 00 51  |.P.._Backdrop..Q|
000000d0  0a f2 5f 54 69 6d 65 0d  00 5a 05 3a 0d 00 64 19  |.._Time..Z.:..d.|
000000e0  6d 61 73 6b 25 3d 25 31  31 31 30 30 30 30 30 31  |mask%=%111000001|
000000f0  31 30 30 30 30 0d 00 78  05 f5 0d 00 82 33 c8 99  |10000..x.....3..|
00000100  20 22 57 69 6d 70 5f 50  6f 6c 6c 49 64 6c 65 22  | "Wimp_PollIdle"|
00000110  2c 6d 61 73 6b 25 2c 62  6c 6f 63 6b 25 2c 77 61  |,mask%,block%,wa|
00000120  69 74 25 20 b8 20 72 65  61 73 6f 6e 25 0d 00 8c  |it% . reason%...|
00000130  10 c8 8e 20 72 65 61 73  6f 6e 25 20 ca 0d 00 96  |... reason% ....|
00000140  14 c9 20 30 3a 20 f2 5f  56 61 72 69 61 62 6c 65  |.. 0: ._Variable|
00000150  73 0d 00 a0 16 20 20 20  20 20 20 20 20 f2 5f 42  |s....        ._B|
00000160  61 63 6b 64 72 6f 70 0d  00 aa 12 20 20 20 20 20  |ackdrop....     |
00000170  20 20 20 f2 5f 54 69 6d  65 0d 00 b4 22 c9 20 31  |   ._Time...". 1|
00000180  37 2c 31 38 3a 20 e7 20  62 6c 6f 63 6b 25 21 31  |7,18: . block%!1|
00000190  36 3d 30 20 71 75 69 74  25 3d b9 0d 00 be 05 cb  |6=0 quit%=......|
000001a0  0d 00 c8 0b fd 20 71 75  69 74 25 0d 00 d2 05 3a  |..... quit%....:|
000001b0  0d 00 dc 1d c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
000001c0  73 65 44 6f 77 6e 22 2c  74 61 73 6b 25 0d 00 e6  |seDown",task%...|
000001d0  05 e0 0d 00 f0 05 3a 0d  00 fa 10 dd 20 f2 5f 42  |......:..... ._B|
000001e0  61 63 6b 64 72 6f 70 0d  01 04 1b 62 61 63 6b 64  |ackdrop....backd|
000001f0  72 6f 70 25 3d b3 28 74  6f 74 61 6c 25 2b 31 29  |rop%=.(total%+1)|
00000200  2d 31 0d 01 0e 46 e7 20  62 61 63 6b 64 72 6f 70  |-1...F. backdrop|
00000210  25 3c 31 30 20 62 61 63  6b 64 72 6f 70 24 3d 22  |%<10 backdrop$="|
00000220  30 22 2b c3 28 62 61 63  6b 64 72 6f 70 25 29 20  |0"+.(backdrop%) |
00000230  8b 20 62 61 63 6b 64 72  6f 70 24 3d c3 28 62 61  |. backdrop$=.(ba|
00000240  63 6b 64 72 6f 70 25 29  0d 01 18 29 ff 28 22 42  |ckdrop%)...).("B|
00000250  61 63 6b 64 72 6f 70 20  2d 54 69 6c 65 20 42 64  |ackdrop -Tile Bd|
00000260  72 6f 70 73 3a 22 2b 62  61 63 6b 64 72 6f 70 24  |rops:"+backdrop$|
00000270  29 0d 01 22 05 e1 0d 01  2c 05 3a 0d 01 36 0c dd  |).."....,.:..6..|
00000280  20 f2 5f 54 69 6d 65 0d  01 40 25 c8 99 20 22 4f  | ._Time..@%.. "O|
00000290  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
000002a0  69 6d 65 22 20 b8 20 77  61 69 74 25 0d 01 41 10  |ime" . wait%..A.|
000002b0  77 61 69 74 25 2b 3d 74  69 6d 65 25 0d 01 4a 05  |wait%+=time%..J.|
000002c0  e1 0d 01 54 05 3a 0d 01  5e 11 dd 20 f2 5f 56 61  |...T.:..^.. ._Va|
000002d0  72 69 61 62 6c 65 73 0d  01 68 29 74 6f 74 61 6c  |riables..h)total|
000002e0  25 3d bb 28 a4 5f 53 79  73 74 65 6d 56 61 72 28  |%=.(._SystemVar(|
000002f0  22 42 64 72 6f 70 73 24  54 6f 74 61 6c 22 29 29  |"Bdrops$Total"))|
00000300  0d 01 69 2b 74 69 6d 65  25 3d bb 28 a4 5f 53 79  |..i+time%=.(._Sy|
00000310  73 74 65 6d 56 61 72 28  22 42 64 72 6f 70 73 24  |stemVar("Bdrops$|
00000320  54 69 6d 65 22 29 29 2a  31 30 30 0d 01 72 05 e1  |Time"))*100..r..|
00000330  0d 01 7c 05 3a 0d 01 86  17 dd 20 a4 5f 53 79 73  |..|.:..... ._Sys|
00000340  74 65 6d 56 61 72 28 76  61 72 24 29 0d 01 90 35  |temVar(var$)...5|
00000350  c8 99 20 22 58 4f 53 5f  52 65 61 64 56 61 72 56  |.. "XOS_ReadVarV|
00000360  61 6c 22 2c 76 61 72 24  2c 62 6c 6f 63 6b 25 2c  |al",var$,block%,|
00000370  32 35 36 2c 2d 31 2c 30  20 b8 20 2c 2c 6c 65 6e  |256,-1,0 . ,,len|
00000380  25 0d 01 9a 3a e7 20 6c  65 6e 25 3d 30 20 85 20  |%...:. len%=0 . |
00000390  30 2c 22 53 79 73 74 65  6d 20 76 61 72 69 61 62  |0,"System variab|
000003a0  6c 65 20 64 6f 65 73 20  6e 6f 74 20 65 78 69 73  |le does not exis|
000003b0  74 22 3a 20 71 75 69 74  25 3d b9 0d 01 a4 34 c8  |t": quit%=....4.|
000003c0  99 20 22 58 4f 53 5f 52  65 61 64 56 61 72 56 61  |. "XOS_ReadVarVa|
000003d0  6c 22 2c 76 61 72 24 2c  62 6c 6f 63 6b 25 2c 32  |l",var$,block%,2|
000003e0  35 36 2c 30 2c 33 20 b8  20 2c 2c 6c 65 6e 25 0d  |56,0,3 . ,,len%.|
000003f0  01 ae 12 62 6c 6f 63 6b  25 3f 6c 65 6e 25 3d 31  |...block%?len%=1|
00000400  33 0d 01 b8 0c 3d 24 62  6c 6f 63 6b 25 0d ff     |3....=$block%..|
0000040f