!watch/Glotzer

Home » Archimedes archive » Micro User » MU 1992-04.adf » PD » !watch/Glotzer

!watch/Glotzer

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 » Archimedes archive » Micro User » MU 1992-04.adf » PD
Filename:	!watch/Glotzer
Read OK:	✔
File size:	0A6B bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >:1.!watch.Glotzer
   20REM (C) 7-11-1990 B.Walter
   30
   31*key 1 BASIC|MLOAD ":1.!watch.glotzer"|MEDIT|M
   34
   40ON ERROR PROCshow:END
   50XOfs%=110:YOfs%=90
   60Br%=20
   70
   80DIM Sprite% 44000
   90Sprite%!0=44000
  100Sprite%!4=10
  110Sprite%!8=16
  120Sprite%!12=0
  130SYS "OS_SpriteOp",266,Sprite%,"<Watch$Dir>.!Sprites"
  140SYS "Wimp_Initialise",200,&4B534154,"Watch" TO ,Task%
  150DIM W% 500
  160DIM Name% 100
  170W%!4=400
  180W%!8=600
  190W%!12=560
  200W%!16=760
  210W%!20=0
  220W%!24=0
  230W%!28=-1
  240W%!32=%10000110000000000000000000010011
  250W%?36=7
  260W%?37=2
  270W%?38=7
  280W%?39=255
  290W%?40=0
  300W%?41=0
  310W%?42=2
  320W%?43=0
  330W%!44=0
  340W%!48=0
  350W%!52=160
  360W%!56=160
  370W%!60=%101101
  380W%!64=0
  390W%!68=Sprite%
  400W%!72=0
  410$(W%+76)="Watch"+CHR$(0)
  420W%!88=0
  430SYS "Wimp_CreateWindow",,W%+4 TO Window%
  440!W%=Window%
  450SYS "Wimp_OpenWindow",,W%
  460OldIcon$=""
  470PROCnewIcon("mm")
  480Quit%=FALSE
  490Offen%=TRUE
  491Dum=RND(-TIME)
  500REPEAT
  510 SYS "Wimp_Poll",0,W% TO Reason%
  520 CASE Reason% OF
  530  WHEN 0: IF Offen% THEN PROCwatch
  540  WHEN 2: SYS "Wimp_OpenWindow",,W%
  550  WHEN 3: IF Offen% THEN
  560           PROCnewIcon("zu")
  570           Offen%=FALSE
  580          ELSE
  590           PROCwatch
  600           Offen%=TRUE
  610          ENDIF
  620  WHEN 17,18,19:IF W%!16=0 THEN Quit%=TRUE
  630 ENDCASE
  640UNTIL Quit%
  650SYS "Wimp_CloseDown",Task%,&4B534154
  660SYS "OS_Exit"
  670END
  680
  690DEFPROCwatch
  700 W%!0=Window%
  710 SYS "Wimp_GetWindowState",,W%
  720 X%=(W%!4)+XOfs%:Y%=(W%!8)+YOfs%
  730 SYS "Wimp_GetPointerInfo",,W%
  740 Px%=W%!0:Py%=W%!4
  750 IF Px%>X% THEN
  760  D=DEGATN((Py%-Y%)/(Px%-X%))
  770  IF D<=-67.5 THEN Na$="mu"
  780  IF D>-67.5 AND D<=22.5 THEN Na$="ru"
  790  IF ABS(D)<22.5 THEN Na$="rm"
  800  IF D>=22.5 AND D<67.5 THEN Na$="ro"
  810  IF D>=67.5 THEN Na$="mo"
  820 ENDIF
  830 IF Px%<X% THEN
  840  D=DEGATN((Py%-Y%)/(Px%-X%))
  850  IF D<=-67.5 THEN Na$="mo"
  860  IF D>-67.5 AND D<=22.5 THEN Na$="lo"
  870  IF ABS(D)<22.5 THEN Na$="lm"
  880  IF D>=22.5 AND D<67.5 THEN Na$="lu"
  890  IF D>=67.5 THEN Na$="mu"
  900 ENDIF
  910 IF Px%>X%-Br% AND Px%<X%+Br% AND Py%>Y%-Br% AND Py%<Y%+Br% THEN Na$="mm"
  920 IF Na$="mm" AND W%!8<>0 THEN
  930  IF OldIcon$<>"em" AND OldIcon$<>"vd" THEN
  940   IF RND<0.5 THEN Na$="em" ELSE Na$="vd"
  941  ELSE
  942   Na$=OldIcon$
  950  ENDIF
  960 ENDIF
  970 IF Na$<>OldIcon$ THEN PROCnewIcon(Na$)
  980ENDPROC
  990
 1000DEFPROCnewIcon(N$)
 1010 W%!0=Window%
 1020 IF OldIcon$<>"" THEN
 1030  W%!4=Icon%
 1040  SYS "Wimp_DeleteIcon",,W%
 1050 ENDIF
 1060 W%!4=0
 1070 W%!8=0
 1080 W%!12=160
 1090 W%!16=160
 1100 W%!20=%00010111000000000000000100011010
 1110 $Name%=N$+CHR$(0)
 1120 W%!24=Name%
 1130 W%!28=Sprite%
 1140 W%!32=LEN(N$)
 1150 SYS "Wimp_CreateIcon",,W% TO Icon%
 1160 OldIcon$=N$
 1170 SYS "Wimp_ForceRedraw",Window%,0,0,160,160
 1180ENDPROC
 1190
 1200DEFPROCshow
 1210 DIM Er% 100
 1220 Er%!0=1
 1230 $(Er%+4)=REPORT$+" in line "+STR$(ERL)+CHR$(0)
 1240 REPEAT
 1250  SYS "Wimp_ReportError",Er%,34,"Watch" TO ,Flag%
 1260 UNTIL Flag%
 1270 SYS "Wimp_ReportError",Er%,66,"Watch" TO ,Flag%
 1280ENDPROC


� >:1.!watch.Glotzer
� (C) 7-11-1990 B.Walter

2*key 1 BASIC|MLOAD ":1.!watch.glotzer"|MEDIT|M
"
(� � �show:�
2XOfs%=110:YOfs%=90
<
Br%=20
F
P� Sprite% 44000
ZSprite%!0=44000
dSprite%!4=10
nSprite%!8=16
xSprite%!12=0
�7ș "OS_SpriteOp",266,Sprite%,"<Watch$Dir>.!Sprites"
�7ș "Wimp_Initialise",200,&4B534154,"Watch" � ,Task%
�� W% 500
�� Name% 100
�W%!4=400
�W%!8=600
�
W%!12=560
�
W%!16=760
�W%!20=0
�W%!24=0
�W%!28=-1
�+W%!32=%10000110000000000000000000010011
�W%?36=7
W%?37=2
W%?38=7

W%?39=255
"W%?40=0
,W%?41=0
6W%?42=2
@W%?43=0
JW%!44=0
TW%!48=0
^
W%!52=160
h
W%!56=160
rW%!60=%101101
|W%!64=0
�W%!68=Sprite%
�W%!72=0
�$(W%+76)="Watch"+�(0)
�W%!88=0
�*ș "Wimp_CreateWindow",,W%+4 � Window%
�!W%=Window%
�ș "Wimp_OpenWindow",,W%
�OldIcon$=""
��newIcon("mm")
�Quit%=�
�Offen%=�
�
Dum=�(-�)
��
�" ș "Wimp_Poll",0,W% � Reason%
 Ȏ Reason% �
  � 0: � Offen% � �watch
#  � 2: ș "Wimp_OpenWindow",,W%
&  � 3: � Offen% �
0           �newIcon("zu")
:           Offen%=�
D          �
N           �watch
X           Offen%=�
b          �
l$  � 17,18,19:� W%!16=0 � Quit%=�
v �
�� Quit%
�'ș "Wimp_CloseDown",Task%,&4B534154
�ș "OS_Exit"
��
�
���watch
� W%!0=Window%
�! ș "Wimp_GetWindowState",,W%
�$ X%=(W%!4)+XOfs%:Y%=(W%!8)+YOfs%
�! ș "Wimp_GetPointerInfo",,W%
� Px%=W%!0:Py%=W%!4
� � Px%>X% �
�  D=��((Py%-Y%)/(Px%-X%))
  � D<=-67.5 � Na$="mu"
$  � D>-67.5 � D<=22.5 � Na$="ru"
  � �(D)<22.5 � Na$="rm"
 #  � D>=22.5 � D<67.5 � Na$="ro"
*  � D>=67.5 � Na$="mo"
4 �
> � Px%<X% �
H  D=��((Py%-Y%)/(Px%-X%))
R  � D<=-67.5 � Na$="mo"
\$  � D>-67.5 � D<=22.5 � Na$="lo"
f  � �(D)<22.5 � Na$="lm"
p#  � D>=22.5 � D<67.5 � Na$="lu"
z  � D>=67.5 � Na$="mu"
� �
�C � Px%>X%-Br% � Px%<X%+Br% � Py%>Y%-Br% � Py%<Y%+Br% � Na$="mm"
� � Na$="mm" � W%!8<>0 �
�)  � OldIcon$<>"em" � OldIcon$<>"vd" �
�$   � �<0.5 � Na$="em" � Na$="vd"
�  �
�   Na$=OldIcon$
�  �
� �
�$ � Na$<>OldIcon$ � �newIcon(Na$)
��
�
���newIcon(N$)
� W%!0=Window%
� � OldIcon$<>"" �
  W%!4=Icon%
  ș "Wimp_DeleteIcon",,W%
 �
$ W%!4=0
. W%!8=0
8 W%!12=160
B W%!16=160
L, W%!20=%00010111000000000000000100011010
V $Name%=N$+�(0)
` W%!24=Name%
j W%!28=Sprite%
t W%!32=�(N$)
~% ș "Wimp_CreateIcon",,W% � Icon%
� OldIcon$=N$
�. ș "Wimp_ForceRedraw",Window%,0,0,160,160
��
�
�
��show
� � Er% 100
� Er%!0=1
�& $(Er%+4)=�$+" in line "+�(�)+�(0)
� �
�3  ș "Wimp_ReportError",Er%,34,"Watch" � ,Flag%
� � Flag%
�2 ș "Wimp_ReportError",Er%,66,"Watch" � ,Flag%
�
�

00000000  0d 00 0a 18 f4 20 3e 3a  31 2e 21 77 61 74 63 68  |..... >:1.!watch|
00000010  2e 47 6c 6f 74 7a 65 72  0d 00 14 1c f4 20 28 43  |.Glotzer..... (C|
00000020  29 20 37 2d 31 31 2d 31  39 39 30 20 42 2e 57 61  |) 7-11-1990 B.Wa|
00000030  6c 74 65 72 0d 00 1e 04  0d 00 1f 32 2a 6b 65 79  |lter.......2*key|
00000040  20 31 20 42 41 53 49 43  7c 4d 4c 4f 41 44 20 22  | 1 BASIC|MLOAD "|
00000050  3a 31 2e 21 77 61 74 63  68 2e 67 6c 6f 74 7a 65  |:1.!watch.glotze|
00000060  72 22 7c 4d 45 44 49 54  7c 4d 0d 00 22 04 0d 00  |r"|MEDIT|M.."...|
00000070  28 0f ee 20 85 20 f2 73  68 6f 77 3a e0 0d 00 32  |(.. . .show:...2|
00000080  16 58 4f 66 73 25 3d 31  31 30 3a 59 4f 66 73 25  |.XOfs%=110:YOfs%|
00000090  3d 39 30 0d 00 3c 0a 42  72 25 3d 32 30 0d 00 46  |=90..<.Br%=20..F|
000000a0  04 0d 00 50 13 de 20 53  70 72 69 74 65 25 20 34  |...P.. Sprite% 4|
000000b0  34 30 30 30 0d 00 5a 13  53 70 72 69 74 65 25 21  |4000..Z.Sprite%!|
000000c0  30 3d 34 34 30 30 30 0d  00 64 10 53 70 72 69 74  |0=44000..d.Sprit|
000000d0  65 25 21 34 3d 31 30 0d  00 6e 10 53 70 72 69 74  |e%!4=10..n.Sprit|
000000e0  65 25 21 38 3d 31 36 0d  00 78 10 53 70 72 69 74  |e%!8=16..x.Sprit|
000000f0  65 25 21 31 32 3d 30 0d  00 82 37 c8 99 20 22 4f  |e%!12=0...7.. "O|
00000100  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 36 36 2c  |S_SpriteOp",266,|
00000110  53 70 72 69 74 65 25 2c  22 3c 57 61 74 63 68 24  |Sprite%,"<Watch$|
00000120  44 69 72 3e 2e 21 53 70  72 69 74 65 73 22 0d 00  |Dir>.!Sprites"..|
00000130  8c 37 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.7.. "Wimp_Initi|
00000140  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
00000150  34 31 35 34 2c 22 57 61  74 63 68 22 20 b8 20 2c  |4154,"Watch" . ,|
00000160  54 61 73 6b 25 0d 00 96  0c de 20 57 25 20 35 30  |Task%..... W% 50|
00000170  30 0d 00 a0 0f de 20 4e  61 6d 65 25 20 31 30 30  |0..... Name% 100|
00000180  0d 00 aa 0c 57 25 21 34  3d 34 30 30 0d 00 b4 0c  |....W%!4=400....|
00000190  57 25 21 38 3d 36 30 30  0d 00 be 0d 57 25 21 31  |W%!8=600....W%!1|
000001a0  32 3d 35 36 30 0d 00 c8  0d 57 25 21 31 36 3d 37  |2=560....W%!16=7|
000001b0  36 30 0d 00 d2 0b 57 25  21 32 30 3d 30 0d 00 dc  |60....W%!20=0...|
000001c0  0b 57 25 21 32 34 3d 30  0d 00 e6 0c 57 25 21 32  |.W%!24=0....W%!2|
000001d0  38 3d 2d 31 0d 00 f0 2b  57 25 21 33 32 3d 25 31  |8=-1...+W%!32=%1|
000001e0  30 30 30 30 31 31 30 30  30 30 30 30 30 30 30 30  |0000110000000000|
000001f0  30 30 30 30 30 30 30 30  30 30 31 30 30 31 31 0d  |000000000010011.|
00000200  00 fa 0b 57 25 3f 33 36  3d 37 0d 01 04 0b 57 25  |...W%?36=7....W%|
00000210  3f 33 37 3d 32 0d 01 0e  0b 57 25 3f 33 38 3d 37  |?37=2....W%?38=7|
00000220  0d 01 18 0d 57 25 3f 33  39 3d 32 35 35 0d 01 22  |....W%?39=255.."|
00000230  0b 57 25 3f 34 30 3d 30  0d 01 2c 0b 57 25 3f 34  |.W%?40=0..,.W%?4|
00000240  31 3d 30 0d 01 36 0b 57  25 3f 34 32 3d 32 0d 01  |1=0..6.W%?42=2..|
00000250  40 0b 57 25 3f 34 33 3d  30 0d 01 4a 0b 57 25 21  |@.W%?43=0..J.W%!|
00000260  34 34 3d 30 0d 01 54 0b  57 25 21 34 38 3d 30 0d  |44=0..T.W%!48=0.|
00000270  01 5e 0d 57 25 21 35 32  3d 31 36 30 0d 01 68 0d  |.^.W%!52=160..h.|
00000280  57 25 21 35 36 3d 31 36  30 0d 01 72 11 57 25 21  |W%!56=160..r.W%!|
00000290  36 30 3d 25 31 30 31 31  30 31 0d 01 7c 0b 57 25  |60=%101101..|.W%|
000002a0  21 36 34 3d 30 0d 01 86  11 57 25 21 36 38 3d 53  |!64=0....W%!68=S|
000002b0  70 72 69 74 65 25 0d 01  90 0b 57 25 21 37 32 3d  |prite%....W%!72=|
000002c0  30 0d 01 9a 19 24 28 57  25 2b 37 36 29 3d 22 57  |0....$(W%+76)="W|
000002d0  61 74 63 68 22 2b bd 28  30 29 0d 01 a4 0b 57 25  |atch"+.(0)....W%|
000002e0  21 38 38 3d 30 0d 01 ae  2a c8 99 20 22 57 69 6d  |!88=0...*.. "Wim|
000002f0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000300  2c 57 25 2b 34 20 b8 20  57 69 6e 64 6f 77 25 0d  |,W%+4 . Window%.|
00000310  01 b8 0f 21 57 25 3d 57  69 6e 64 6f 77 25 0d 01  |...!W%=Window%..|
00000320  c2 1c c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |.... "Wimp_OpenW|
00000330  69 6e 64 6f 77 22 2c 2c  57 25 0d 01 cc 0f 4f 6c  |indow",,W%....Ol|
00000340  64 49 63 6f 6e 24 3d 22  22 0d 01 d6 12 f2 6e 65  |dIcon$="".....ne|
00000350  77 49 63 6f 6e 28 22 6d  6d 22 29 0d 01 e0 0b 51  |wIcon("mm")....Q|
00000360  75 69 74 25 3d a3 0d 01  ea 0c 4f 66 66 65 6e 25  |uit%=.....Offen%|
00000370  3d b9 0d 01 eb 0d 44 75  6d 3d b3 28 2d 91 29 0d  |=.....Dum=.(-.).|
00000380  01 f4 05 f5 0d 01 fe 22  20 c8 99 20 22 57 69 6d  |......." .. "Wim|
00000390  70 5f 50 6f 6c 6c 22 2c  30 2c 57 25 20 b8 20 52  |p_Poll",0,W% . R|
000003a0  65 61 73 6f 6e 25 0d 02  08 11 20 c8 8e 20 52 65  |eason%.... .. Re|
000003b0  61 73 6f 6e 25 20 ca 0d  02 12 1c 20 20 c9 20 30  |ason% .....  . 0|
000003c0  3a 20 e7 20 4f 66 66 65  6e 25 20 8c 20 f2 77 61  |: . Offen% . .wa|
000003d0  74 63 68 0d 02 1c 23 20  20 c9 20 32 3a 20 c8 99  |tch...#  . 2: ..|
000003e0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000003f0  77 22 2c 2c 57 25 0d 02  26 15 20 20 c9 20 33 3a  |w",,W%..&.  . 3:|
00000400  20 e7 20 4f 66 66 65 6e  25 20 8c 0d 02 30 1d 20  | . Offen% ...0. |
00000410  20 20 20 20 20 20 20 20  20 20 f2 6e 65 77 49 63  |          .newIc|
00000420  6f 6e 28 22 7a 75 22 29  0d 02 3a 17 20 20 20 20  |on("zu")..:.    |
00000430  20 20 20 20 20 20 20 4f  66 66 65 6e 25 3d a3 0d  |       Offen%=..|
00000440  02 44 0f 20 20 20 20 20  20 20 20 20 20 cc 0d 02  |.D.          ...|
00000450  4e 15 20 20 20 20 20 20  20 20 20 20 20 f2 77 61  |N.           .wa|
00000460  74 63 68 0d 02 58 17 20  20 20 20 20 20 20 20 20  |tch..X.         |
00000470  20 20 4f 66 66 65 6e 25  3d b9 0d 02 62 0f 20 20  |  Offen%=...b.  |
00000480  20 20 20 20 20 20 20 20  cd 0d 02 6c 24 20 20 c9  |        ...l$  .|
00000490  20 31 37 2c 31 38 2c 31  39 3a e7 20 57 25 21 31  | 17,18,19:. W%!1|
000004a0  36 3d 30 20 8c 20 51 75  69 74 25 3d b9 0d 02 76  |6=0 . Quit%=...v|
000004b0  06 20 cb 0d 02 80 0b fd  20 51 75 69 74 25 0d 02  |. ...... Quit%..|
000004c0  8a 27 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.'.. "Wimp_Close|
000004d0  44 6f 77 6e 22 2c 54 61  73 6b 25 2c 26 34 42 35  |Down",Task%,&4B5|
000004e0  33 34 31 35 34 0d 02 94  10 c8 99 20 22 4f 53 5f  |34154...... "OS_|
000004f0  45 78 69 74 22 0d 02 9e  05 e0 0d 02 a8 04 0d 02  |Exit"...........|
00000500  b2 0b dd f2 77 61 74 63  68 0d 02 bc 11 20 57 25  |....watch.... W%|
00000510  21 30 3d 57 69 6e 64 6f  77 25 0d 02 c6 21 20 c8  |!0=Window%...! .|
00000520  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00000530  77 53 74 61 74 65 22 2c  2c 57 25 0d 02 d0 24 20  |wState",,W%...$ |
00000540  58 25 3d 28 57 25 21 34  29 2b 58 4f 66 73 25 3a  |X%=(W%!4)+XOfs%:|
00000550  59 25 3d 28 57 25 21 38  29 2b 59 4f 66 73 25 0d  |Y%=(W%!8)+YOfs%.|
00000560  02 da 21 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..! .. "Wimp_Get|
00000570  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 57 25  |PointerInfo",,W%|
00000580  0d 02 e4 16 20 50 78 25  3d 57 25 21 30 3a 50 79  |.... Px%=W%!0:Py|
00000590  25 3d 57 25 21 34 0d 02  ee 0f 20 e7 20 50 78 25  |%=W%!4.... . Px%|
000005a0  3e 58 25 20 8c 0d 02 f8  1d 20 20 44 3d 9d 99 28  |>X% .....  D=..(|
000005b0  28 50 79 25 2d 59 25 29  2f 28 50 78 25 2d 58 25  |(Py%-Y%)/(Px%-X%|
000005c0  29 29 0d 03 02 1b 20 20  e7 20 44 3c 3d 2d 36 37  |))....  . D<=-67|
000005d0  2e 35 20 8c 20 4e 61 24  3d 22 6d 75 22 0d 03 0c  |.5 . Na$="mu"...|
000005e0  24 20 20 e7 20 44 3e 2d  36 37 2e 35 20 80 20 44  |$  . D>-67.5 . D|
000005f0  3c 3d 32 32 2e 35 20 8c  20 4e 61 24 3d 22 72 75  |<=22.5 . Na$="ru|
00000600  22 0d 03 16 1c 20 20 e7  20 94 28 44 29 3c 32 32  |"....  . .(D)<22|
00000610  2e 35 20 8c 20 4e 61 24  3d 22 72 6d 22 0d 03 20  |.5 . Na$="rm".. |
00000620  23 20 20 e7 20 44 3e 3d  32 32 2e 35 20 80 20 44  |#  . D>=22.5 . D|
00000630  3c 36 37 2e 35 20 8c 20  4e 61 24 3d 22 72 6f 22  |<67.5 . Na$="ro"|
00000640  0d 03 2a 1a 20 20 e7 20  44 3e 3d 36 37 2e 35 20  |..*.  . D>=67.5 |
00000650  8c 20 4e 61 24 3d 22 6d  6f 22 0d 03 34 06 20 cd  |. Na$="mo"..4. .|
00000660  0d 03 3e 0f 20 e7 20 50  78 25 3c 58 25 20 8c 0d  |..>. . Px%<X% ..|
00000670  03 48 1d 20 20 44 3d 9d  99 28 28 50 79 25 2d 59  |.H.  D=..((Py%-Y|
00000680  25 29 2f 28 50 78 25 2d  58 25 29 29 0d 03 52 1b  |%)/(Px%-X%))..R.|
00000690  20 20 e7 20 44 3c 3d 2d  36 37 2e 35 20 8c 20 4e  |  . D<=-67.5 . N|
000006a0  61 24 3d 22 6d 6f 22 0d  03 5c 24 20 20 e7 20 44  |a$="mo"..\$  . D|
000006b0  3e 2d 36 37 2e 35 20 80  20 44 3c 3d 32 32 2e 35  |>-67.5 . D<=22.5|
000006c0  20 8c 20 4e 61 24 3d 22  6c 6f 22 0d 03 66 1c 20  | . Na$="lo"..f. |
000006d0  20 e7 20 94 28 44 29 3c  32 32 2e 35 20 8c 20 4e  | . .(D)<22.5 . N|
000006e0  61 24 3d 22 6c 6d 22 0d  03 70 23 20 20 e7 20 44  |a$="lm"..p#  . D|
000006f0  3e 3d 32 32 2e 35 20 80  20 44 3c 36 37 2e 35 20  |>=22.5 . D<67.5 |
00000700  8c 20 4e 61 24 3d 22 6c  75 22 0d 03 7a 1a 20 20  |. Na$="lu"..z.  |
00000710  e7 20 44 3e 3d 36 37 2e  35 20 8c 20 4e 61 24 3d  |. D>=67.5 . Na$=|
00000720  22 6d 75 22 0d 03 84 06  20 cd 0d 03 8e 43 20 e7  |"mu".... ....C .|
00000730  20 50 78 25 3e 58 25 2d  42 72 25 20 80 20 50 78  | Px%>X%-Br% . Px|
00000740  25 3c 58 25 2b 42 72 25  20 80 20 50 79 25 3e 59  |%<X%+Br% . Py%>Y|
00000750  25 2d 42 72 25 20 80 20  50 79 25 3c 59 25 2b 42  |%-Br% . Py%<Y%+B|
00000760  72 25 20 8c 20 4e 61 24  3d 22 6d 6d 22 0d 03 98  |r% . Na$="mm"...|
00000770  1b 20 e7 20 4e 61 24 3d  22 6d 6d 22 20 80 20 57  |. . Na$="mm" . W|
00000780  25 21 38 3c 3e 30 20 8c  0d 03 a2 29 20 20 e7 20  |%!8<>0 ....)  . |
00000790  4f 6c 64 49 63 6f 6e 24  3c 3e 22 65 6d 22 20 80  |OldIcon$<>"em" .|
000007a0  20 4f 6c 64 49 63 6f 6e  24 3c 3e 22 76 64 22 20  | OldIcon$<>"vd" |
000007b0  8c 0d 03 ac 24 20 20 20  e7 20 b3 3c 30 2e 35 20  |....$   . .<0.5 |
000007c0  8c 20 4e 61 24 3d 22 65  6d 22 20 8b 20 4e 61 24  |. Na$="em" . Na$|
000007d0  3d 22 76 64 22 0d 03 ad  07 20 20 cc 0d 03 ae 13  |="vd"....  .....|
000007e0  20 20 20 4e 61 24 3d 4f  6c 64 49 63 6f 6e 24 0d  |   Na$=OldIcon$.|
000007f0  03 b6 07 20 20 cd 0d 03  c0 06 20 cd 0d 03 ca 24  |...  ..... ....$|
00000800  20 e7 20 4e 61 24 3c 3e  4f 6c 64 49 63 6f 6e 24  | . Na$<>OldIcon$|
00000810  20 8c 20 f2 6e 65 77 49  63 6f 6e 28 4e 61 24 29  | . .newIcon(Na$)|
00000820  0d 03 d4 05 e1 0d 03 de  04 0d 03 e8 11 dd f2 6e  |...............n|
00000830  65 77 49 63 6f 6e 28 4e  24 29 0d 03 f2 11 20 57  |ewIcon(N$).... W|
00000840  25 21 30 3d 57 69 6e 64  6f 77 25 0d 03 fc 15 20  |%!0=Window%.... |
00000850  e7 20 4f 6c 64 49 63 6f  6e 24 3c 3e 22 22 20 8c  |. OldIcon$<>"" .|
00000860  0d 04 06 10 20 20 57 25  21 34 3d 49 63 6f 6e 25  |....  W%!4=Icon%|
00000870  0d 04 10 1e 20 20 c8 99  20 22 57 69 6d 70 5f 44  |....  .. "Wimp_D|
00000880  65 6c 65 74 65 49 63 6f  6e 22 2c 2c 57 25 0d 04  |eleteIcon",,W%..|
00000890  1a 06 20 cd 0d 04 24 0b  20 57 25 21 34 3d 30 0d  |.. ...$. W%!4=0.|
000008a0  04 2e 0b 20 57 25 21 38  3d 30 0d 04 38 0e 20 57  |... W%!8=0..8. W|
000008b0  25 21 31 32 3d 31 36 30  0d 04 42 0e 20 57 25 21  |%!12=160..B. W%!|
000008c0  31 36 3d 31 36 30 0d 04  4c 2c 20 57 25 21 32 30  |16=160..L, W%!20|
000008d0  3d 25 30 30 30 31 30 31  31 31 30 30 30 30 30 30  |=%00010111000000|
000008e0  30 30 30 30 30 30 30 30  30 31 30 30 30 31 31 30  |0000000001000110|
000008f0  31 30 0d 04 56 13 20 24  4e 61 6d 65 25 3d 4e 24  |10..V. $Name%=N$|
00000900  2b bd 28 30 29 0d 04 60  10 20 57 25 21 32 34 3d  |+.(0)..`. W%!24=|
00000910  4e 61 6d 65 25 0d 04 6a  12 20 57 25 21 32 38 3d  |Name%..j. W%!28=|
00000920  53 70 72 69 74 65 25 0d  04 74 10 20 57 25 21 33  |Sprite%..t. W%!3|
00000930  32 3d a9 28 4e 24 29 0d  04 7e 25 20 c8 99 20 22  |2=.(N$)..~% .. "|
00000940  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00000950  2c 2c 57 25 20 b8 20 49  63 6f 6e 25 0d 04 88 10  |,,W% . Icon%....|
00000960  20 4f 6c 64 49 63 6f 6e  24 3d 4e 24 0d 04 92 2e  | OldIcon$=N$....|
00000970  20 c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  | .. "Wimp_ForceR|
00000980  65 64 72 61 77 22 2c 57  69 6e 64 6f 77 25 2c 30  |edraw",Window%,0|
00000990  2c 30 2c 31 36 30 2c 31  36 30 0d 04 9c 05 e1 0d  |,0,160,160......|
000009a0  04 a6 04 0d 04 b0 0a dd  f2 73 68 6f 77 0d 04 ba  |.........show...|
000009b0  0e 20 de 20 45 72 25 20  31 30 30 0d 04 c4 0c 20  |. . Er% 100.... |
000009c0  45 72 25 21 30 3d 31 0d  04 ce 26 20 24 28 45 72  |Er%!0=1...& $(Er|
000009d0  25 2b 34 29 3d f6 24 2b  22 20 69 6e 20 6c 69 6e  |%+4)=.$+" in lin|
000009e0  65 20 22 2b c3 28 9e 29  2b bd 28 30 29 0d 04 d8  |e "+.(.)+.(0)...|
000009f0  06 20 f5 0d 04 e2 33 20  20 c8 99 20 22 57 69 6d  |. ....3  .. "Wim|
00000a00  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 45  |p_ReportError",E|
00000a10  72 25 2c 33 34 2c 22 57  61 74 63 68 22 20 b8 20  |r%,34,"Watch" . |
00000a20  2c 46 6c 61 67 25 0d 04  ec 0c 20 fd 20 46 6c 61  |,Flag%.... . Fla|
00000a30  67 25 0d 04 f6 32 20 c8  99 20 22 57 69 6d 70 5f  |g%...2 .. "Wimp_|
00000a40  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 45 72 25  |ReportError",Er%|
00000a50  2c 36 36 2c 22 57 61 74  63 68 22 20 b8 20 2c 46  |,66,"Watch" . ,F|
00000a60  6c 61 67 25 0d 05 00 05  e1 0d ff                 |lag%.......|
00000a6b

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .