Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » RTR/!SerialMon/SerialMon

RTR/!SerialMon/SerialMon

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 » Acorn User » AU 1997-02 B.adf » Regulars
Filename: RTR/!SerialMon/SerialMon
Read OK: ✔
File size: 2305 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>Develop.!SerialMon.SerialMon
   20REM Version 1.0 By Mike Cook
   30REM All rights reserved
   40ON ERROR PROCerrorbox
   50
   60DIM taskid%4:$taskid%="TASK"
   70DIM PORT%(3), Pin$(2,7),PinN$(2,7),PinIO$(2,7),intmess% 20
   80intmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
   90SYS "Wimp_Initialise",300,!taskid%,"SerialMonitor",intmess% TO version%,taskhand%
  100DIM q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 128,SW% 256,cb% 18
  110DIM IsName% 256, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
  120SYS "Wimp_OpenTemplate",,"<SerialMon$Dir>.Templates"
  130ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
  140SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
  150SYS "Wimp_CreateWindow",,q% TO info%
  160SYS "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Pallette",0
  170SYS "Wimp_CreateWindow",,Wn%+4 TO monW%
  180Wn%!0=monW%:Wn%!28=-1
  190
  200SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
  210q%!108=TextWarn%:q%!112=-1:q%!116=300
  220XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
  230SYS "Wimp_CreateWindow",,q% TO warningW%
  240SYS "Wimp_CloseTemplate"
  250ref%=0
  260cpL%=0:cpR%=0
  270smpicon%=FNicon
  280wopen%=FALSE:warnOn%=FALSE
  290InWin%=FALSE
  300LX%=-1:LY%=-1
  310cr%=3:cb%=8
  320LED=FALSE
  330Nw%=FALSE
  340MiTime%=0
  350
  360ON ERROR PROCerrorbox
  370
  380PROCsetupmenu
  390REM Initilise Serial Port 9600 Baud 8 data 1 Stop no Parity
  400SYS"OS_SerialOp",0,&96,&FF00
  410SYS"OS_SerialOp",1,0
  420SYS"OS_SerialOp",5,7
  430SYS"OS_SerialOp",6,7
  440SYS"OS_Byte",2,2
  450
  460REM Empty anything in the buffer
  470REPEAT
  480SYS"OS_SerialOp",4 TO ,B% ;C%
  490C%=C% AND &2
  500UNTIL C%<>0
  510
  520REPEAT
  530 SYS "Wimp_Poll",0,q% TO A%
  540  CASE A% OF
  550   WHEN 0:PROC_Null
  560   WHEN 1:PROC_doWindow
  570   WHEN 2:SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%: SYS "Wimp_OpenWindow",,q%
  580   WHEN 3:PROC_close
  590   WHEN 4:InWin%=FALSE:LX%=-1:LY%=-1
  600   WHEN 5:InWin%=TRUE
  610   WHEN 6:PROC_do_click(q%)
  620   WHEN 7:
  630   WHEN 8:PROC_KeyPress
  640   WHEN 9:PROC_SORT_Menu
  650   WHEN 17,18:PROCreceive(q%)
  660   ENDCASE
  670 UNTIL FALSE
  680
  690END
  700
  710DEF PROC_Null
  720LOCAL A%,B%,C%
  730IF TIME>MiTime% AND wopen% THEN
  740PROC_Trans(monW%)
  750SYS"OS_SerialOp",3,PORT%(0)
  760IF PORT%(2)<>PORT%(0) THEN PROC_UpP(2,PORT%(0),0) :PORT%(2)=PORT%(0)
  770A%=TIME+2
  780REPEAT
  790SYS"OS_SerialOp",4,256 TO ,B% ;C%
  800C%=C% AND &2
  810UNTIL C%=0 OR TIME>A%
  820
  830IF C%<>0 THEN
  840PORT%(1)=&1FF:PROC_UpP(1,256,1)
  850ELSE
  860IF PORT%(1)<>B% THEN  PORT%(1)=B%:PROC_UpP(1,B%,1)
  870ENDIF
  880MiTime%=TIME+50
  890ENDIF
  900ENDPROC
  910
  920DEF FN_spath(n$)
  930WHILE INSTR(n$,".")
  940n$=RIGHT$(n$,LEN(n$)-1)
  950ENDWHILE
  960IF LEN(n$)>10 THEN n$=RIGHT$(n$,10)
  970=n$
  980
  990DEF PROC_GetName
 1000LOCAL T%,A%,F$
 1010F$="":fn$=""
 1020q%!0=saveW%:q%!4=1
 1030SYS "Wimp_GetIconState",,q%
 1040T%=q%!28
 1050T%-=1
 1060REPEAT
 1070T%+=1
 1080F$=F$+CHR$(?T%)
 1090UNTIL ?T%=0
 1100fn$=MID$(F$,1,LEN(F$)-1)
 1110ENDPROC
 1120
 1130DEF PROC_SORT_Menu
 1140IF IconMenu% THEN
 1150IF !q%=1 THEN menu%!52=1:menu%!76=0: LED=FALSE :SYS"Wimp_ForceRedraw",monW%,0,-300,700,0
 1160IF !q%=2 THEN menu%!52=0:menu%!76=1:LED=TRUE :SYS"Wimp_ForceRedraw",monW%,0,-300,700,0
 1170IF !q%=3 THEN PROCdie
 1180ENDCASE
 1190ENDIF
 1200SYS"Wimp_GetPointerInfo",,q%
 1210IF q%!8=1 THEN SYS"Wimp_CreateMenu",,Wmenu%
 1220ENDPROC
 1230
 1240DEF PROC_close
 1250IF q%!0=monW% THEN SYS"Wimp_GetWindowInfo",,Wn%:wopen%=FALSE
 1260IF q%!0=warningW% THEN warnOn%=FALSE
 1270SYS "Wimp_CloseWindow",,q%
 1280ENDPROC
 1290
 1300DEF PROC_do_click(q%)
 1310i%=q%!16
 1320CASE q%!12 OF
 1330WHEN warningW%: q%!0=warningW% :PROC_close
 1340
 1350WHEN -2: REM Look first at Icon Bar Click
 1360        IF q%!16=smpicon% THEN
 1370        IF q%!8=2 THEN IconMenu%=TRUE: SYS"Wimp_CreateMenu",,menu%,q%!0-94,270
 1380        IF q%!8=4 THEN PROC_Open
 1390        ENDIF
 1400
 1410WHEN monW%:  
 1420              IF q%!8=4 THEN PROC_MonClick
 1430ENDCASE
 1440ENDPROC
 1450
 1460
 1470DEF PROC_MonClick
 1480LOCAL D%,V%,B%
 1490REM Do the action for a window click
 1500PROC_Dp
 1510IF cb%<8 AND cr%<3 THEN
 1520  CASE cr% OF
 1530  WHEN 2: PORT%(0)=PORT%(2) EOR 1<<(cb%)
 1540          MiTime%=0
 1550  ENDCASE
 1560ENDIF
 1570ENDPROC
 1580
 1590DEF PROC_Open
 1600SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%
 1610REM OPEN UP WINDOW HERE
 1620IF wopen% THEN
 1630q%!0=monW%
 1640SYS"Wimp_GetWindowState",,q%
 1650  IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q%
 1660ELSE
 1670SYS "Wimp_OpenWindow",,Wn%
 1680wopen%=TRUE
 1690ENDIF
 1700ENDPROC
 1710
 1720DEF PROC_doWindow
 1730  LOCAL A%,I%,L%
 1740
 1750   PROC_Trans(monW%)
 1760   SYS "Wimp_RedrawWindow",,q% TO flag%
 1770     WHILE flag%
 1780
 1790     PROC_Dmpw
 1800     SYS "Wimp_GetRectangle",,q% TO flag%
 1810     ENDWHILE
 1820  
 1830  ENDPROC
 1840
 1850DEF FNpointSq
 1860LOCAL X%,Y%,B%,R%
 1870PROC_Trans(monW%)
 1880MOUSE X%,Y%,B%
 1890R%=0
 1900IF (X%<(xo%+30) AND Y%<(yo%+30) ) THEN R%=1
 1910IF (X%>(xo%+246*xs%) AND Y%<(yo%+30) ) THEN R%=2
 1920=R%
 1930
 1940DEF PROC_Dmpw
 1950LOCAL A%,B%,V%
 1960PROC_Trans(monW%)
 1970
 1980FOR B%=1 TO 2
 1990FOR A%=0 TO 7
 2000V%=PORT%(B%) AND 1<<(7-A%)
 2010PROC_WS(A%,B%,V%)
 2020NEXT
 2030PROC_Hex(PORT%(B%),B%)
 2040NEXT
 2050VDU5
 2060FOR A%=0 TO 7
 2070MOVE xo%+52+A%*40,yo%+106
 2080PRINT;7-A%
 2090NEXT
 2100MOVE xo%+112,yo%+194
 2110PRINT"Input Bits"
 2120MOVE xo%+108,yo%+274
 2130PRINT"Output Bits"
 2140VDU4
 2150ENDPROC
 2160
 2170DEF PROC_Hex(V%,Y%)
 2180LOCAL v$
 2190Y%+=1
 2200IF LED THEN SYS"Wimp_SetColour",10 ELSE SYS"Wimp_SetColour",15
 2210IF Ncolours%<4 THEN GCOL 0,0
 2220
 2230RECTANGLEFILL xo%+380,yo1%+40*Y%,54,40
 2240SYS"Wimp_SetColour",7
 2250RECTANGLE xo%+ 380,yo1%+Y%*40,54,40
 2260VDU5
 2270MOVE xo%+384,yo1%+Y%*40+32
 2280IF V%<256 THEN v$=STR$~(V%) ELSE v$="XX"
 2290IF LEN(v$)=1 THEN v$="0"+v$
 2300PRINT"&";v$
 2310VDU4
 2320ENDPROC
 2330
 2340DEF PROC_WS(X%,Y%,V%)
 2350LOCAL S%
 2360S%=40
 2370yo1%=yo%+Y%*S%
 2380IF LED THEN
 2390SYS"Wimp_SetColour",7
 2400CIRCLEFILL 20+xo%+ S% + X%*S%,20+yo1%+S%+Y%*S%,16
 2410
 2420IF V%=0 AND Nw%=FALSE THEN SYS"Wimp_SetColour",4
 2430IF V%<>0 AND Nw%=FALSE THEN SYS"Wimp_SetColour",11
 2440IF Nw%=TRUE THEN SYS"Wimp_SetColour",7
 2450
 2460IF Ncolours%<4 AND V%=0 THEN GCOL 0,0
 2470CIRCLEFILL 20+xo%+S% + X%*S%,20+yo1%+S%+S%*Y%,10
 2480
 2490ELSE
 2500IF Ncolours%>15 THEN GCOL 0,45 ELSE SYS"Wimp_SetColour",0
 2510RECTANGLEFILL xo%+S% + X%*S%,yo1%+S%+S%*Y%,S%,S%
 2520SYS"Wimp_SetColour",7
 2530RECTANGLE xo%+ S% + X%*S%,yo1%+S%+Y%*S%,S%,S%
 2540VDU5
 2550MOVE xo%+S%+X%*S%+12,yo1%+S%*2+Y%*S%-8
 2560IF V%=0 AND Nw%=FALSE THEN PRINT"0"
 2570IF V%<>0 AND Nw%=FALSE THEN PRINT"1"
 2580IF Nw%=TRUE THEN PRINT"X"
 2590VDU4
 2600ENDIF
 2610ENDPROC
 2620
 2630DEF PROC_UpP(P%,V%,M%)
 2640LOCAL T%,A%,E%,Nw%
 2650  q%!0=monW%:q%!4=0:q%!8=-250:q%!12=680:q%!16=0
 2660  SYS"Wimp_UpdateWindow",,q% TO More%
 2670
 2680 WHILE More%
 2690
 2700  IF V%>255 AND P%=1 THEN Nw%=TRUE ELSE Nw%=FALSE
 2710  FOR A%=0 TO 7
 2720  T%=V% AND 1<<(7-A%)
 2730  E%=PORT%(P%) AND 1<<(7-A%)
 2740  IF T%<>E% OR M%=1 THEN PROC_WS(A%,P%,T%)
 2750  NEXT
 2760  PROC_Hex(V%,P%)
 2770  
 2780  SYS"Wimp_GetRectangle",,q% TO More%
 2790 ENDWHILE
 2800
 2810ENDPROC
 2820
 2830DEF FN_Wr
 2840LOCAL TY%,R%
 2850 TY%=Y%-yo%
 2860 R%=3
 2870 IF TY%>=40 AND TY%<=80 THEN R%=0
 2880 IF TY%>=120 AND TY%<=160 THEN R%=1
 2890 IF TY%>=200 AND TY%<=240 THEN R%=2
 2900=R%
 2910DEF FN_Wb
 2920LOCAL B%
 2930B%=7-INT((X%-xo%)/40-1)
 2940IF B%>7 OR B%<0 THEN B%=8
 2950=B%
 2960
 2970DEF PROC_Dp
 2980LOCAL X%,Y%,B%,nr%,nb%
 2990MOUSE X%,Y%,B%
 3000IF X%<>LX% OR Y%<>LY% THEN
 3010 PROC_Trans(monW%)
 3020 nr%=FN_Wr : nb%=FN_Wb
 3030 IF nr%<>cr% OR nb%<>cb% THEN
 3040   cr%=nr%:cb%=nb%
 3050   ENDIF
 3060 LX%=X%:LY%=Y%
 3070ENDIF
 3080ENDPROC
 3090
 3100DEF PROC_Trans(wh%)
 3110!q%=wh%
 3120SYS "Wimp_GetWindowState",,q%
 3130xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-290
 3140XO%=q%!4:YO%=q%!16
 3150ENDPROC
 3160
 3170DEFPROCsetupmenu
 3180LOCAL m%
 3190
 3200$menu%="SerialMon"
 3210menu%?12=7
 3220menu%?13=2
 3230menu%?14=7
 3240menu%?15=0
 3250menu%!16=128
 3260menu%!20=40
 3270menu%!24=0
 3280m%=menu%+28
 3290m%!0=0
 3300m%!4=info%
 3310m%!8=(7<<24)OR %10001
 3320$(m%+12)="Info"
 3330
 3340m%+=24
 3350m%!0=1
 3360m%!4=0
 3370m%!8=(7<<24)OR %10001
 3380$(m%+12)="Binary"
 3390
 3400m%+=24
 3410m%!0=0
 3420m%!4=0
 3430m%!8=(7<<24)OR %10001
 3440$(m%+12)="LED"
 3450
 3460m%+=24
 3470m%!0=&80
 3480m%!4=0
 3490m%!8=(7<<24)OR %10001
 3500$(m%+12)="Quit"
 3510
 3520ENDPROC
 3530
 3540DEF PROCreceive(q%)
 3550LOCAL A%
 3560A%=q%!16
 3570CASE A% OF
 3580WHEN 0:PROCdie
 3590WHEN &502:   CASE TRUE OF
 3600             WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the Serial Monitor icon.|MTest for Serial I/O interface"
 3610             OTHERWISE:mes$=""
 3620             ENDCASE
 3630    IF mes$<>"" THEN
 3640    q%!12=q%!8
 3650    $(q%+20)=mes$+CHR$0
 3660    q%!0=(20+LENmes$+4)AND NOT 3
 3670    q%!16=&503
 3680    SYS "Wimp_SendMessage",18,q%,q%!4
 3690ENDCASE
 3700ENDPROC
 3710
 3720DEF PROC_Dack
 3730sendth%=q%!4
 3740myref%=q%!8
 3750SYS "Wimp_GetPointerInfo",,q%+8
 3760q%!28=q%!8
 3770q%!32=q%!12
 3780q%!0=(44+LENn$+4)AND NOT 3
 3790q%!12=myref%
 3800q%!16=4
 3810q%!36=-1
 3820q%!40=&FF9
 3830$(q%+44)=n$+CHR$0
 3840SYS "Wimp_SendMessage",17,q%,sendth%
 3850ENDIF
 3860ENDPROC
 3870
 3880DEFFNsget(x%)
 3890LOCAL x$
 3900WHILE ?x% x$+=CHR$(?x%):x%+=1:ENDWHILE
 3910=x$
 3920
 3930DEFFNicon
 3940q%!0=-1
 3950q%!4=0
 3960q%!8=10 : REM Y DIRECTION
 3970q%!12=70 : REM X DIRECTION
 3980q%!16=96
 3990q%!20=&2002
 4000$(q%+24)="!SerialMon"
 4010SYS "Wimp_CreateIcon",,q% TO icon%
 4020=icon%
 4030
 4040DEF PROC_setupW(t$)
 4050!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
 4060$TextWarn%=t$
 4070TextWarn%?LEN(t$)=0
 4080VDU 7
 4090warnOn%=TRUE
 4100SYS "Wimp_OpenWindow",,q%
 4110ENDPROC
 4120
 4130DEF PROCerrorbox
 4140SYS "Wimp_DragBox",,-1
 4150!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 4160SYS "Wimp_ReportError",buffers%,1,"Serial Port Monitor"
 4170PROCdie
 4180ENDPROC
 4190
 4200DEFPROCdie
 4210SYS "Wimp_CloseDown",taskhand%,!taskid%
 4220END
 4230ENDPROC
 4240
 4250DEF PROCdragicon(mousex%,mousey%,handle%,icon%)
 4260LOCAL bx%,by%,ix0%,iy0%,ix1%,iy1%
 4270PROCgetw(handle%)
 4280PROCgeti(handle%,icon%)
 4290!q%=handle%:q%!4=5
 4300q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
 4310q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
 4320SYS "Wimp_DragBox",,q%
 4330SFLAG%=TRUE
 4340ENDPROC
 4350
 4360DEF PROCgetw(handle%)
 4370!q%=handle%:SYS "Wimp_GetWindowState",,q%:PROCinfo(q%+4)
 4380ENDPROC
 4390DEF PROCgeti(h%,i%)
 4400!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
 4410ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
 4420iflags%=q%!24:idata%=q%+28
 4430ENDPROC
 4440
 4450DEF PROCinfo(p%)
 4460LOCAL x0%,y0%
 4470x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
 4480scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
 4490bx%=x0%-scx%:by%=y1%-scy%
 4500ENDPROC
 4510
 4520DEF PROC_KeyPress
 4530CASE q%!0 OF
 4540REM OTHERWISE: SYS"Wimp_ProcessKey",q%!24
 4550ENDCASE
 4560ENDPROC
 4570


"�>Develop.!SerialMon.SerialMon
� Version 1.0 By Mike Cook
� All rights reserved
(� � �errorbox
2
<� taskid%4:$taskid%="TASK"
F<� PORT%(3), Pin$(2,7),PinN$(2,7),PinIO$(2,7),intmess% 20
PIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
ZSș "Wimp_Initialise",300,!taskid%,"SerialMonitor",intmess% � version%,taskhand%
dN� q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 128,SW% 256,cb% 18
nK� IsName% 256, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
x7ș "Wimp_OpenTemplate",,"<SerialMon$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�=ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Pallette",0
�)ș "Wimp_CreateWindow",,Wn%+4 � monW%
�Wn%!0=monW%:Wn%!28=-1
�
�9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
�)q%!108=TextWarn%:q%!112=-1:q%!116=300
� XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
�*ș "Wimp_CreateWindow",,q% � warningW%
�ș "Wimp_CloseTemplate"
�
ref%=0
cpL%=0:cpR%=0
smpicon%=�icon
wopen%=�:warnOn%=�
"InWin%=�
,LX%=-1:LY%=-1
6cr%=3:cb%=8
@	LED=�
J	Nw%=�
T
MiTime%=0
^
h� � �errorbox
r
|�setupmenu
�=� Initilise Serial Port 9600 Baud 8 data 1 Stop no Parity
�ș"OS_SerialOp",0,&96,&FF00
�ș"OS_SerialOp",1,0
�ș"OS_SerialOp",5,7
�ș"OS_SerialOp",6,7
�ș"OS_Byte",2,2
�
�"� Empty anything in the buffer
��
�ș"OS_SerialOp",4 � ,B% ;C%
�C%=C% � &2
�� C%<>0
�
�
 ș "Wimp_Poll",0,q% � A%

  Ȏ A% �
&   � 0:�_Null
0   � 1:�_doWindow
:O   � 2:ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%: ș "Wimp_OpenWindow",,q%
D   � 3:�_close
N!   � 4:InWin%=�:LX%=-1:LY%=-1
X   � 5:InWin%=�
b   � 6:�_do_click(q%)
l   � 7:
v   � 8:�_KeyPress
�   � 9:�_SORT_Menu
�   � 17,18:�receive(q%)
�   �
� � �
�
��
�
�� �_Null
�� A%,B%,C%
�� �>MiTime% � wopen% �
��_Trans(monW%)
�ș"OS_SerialOp",3,PORT%(0)
�A� PORT%(2)<>PORT%(0) � �_UpP(2,PORT%(0),0) :PORT%(2)=PORT%(0)

A%=�+2
�
#ș"OS_SerialOp",4,256 � ,B% ;C%
 C%=C% � &2
*� C%=0 � �>A%
4
>
� C%<>0 �
H PORT%(1)=&1FF:�_UpP(1,256,1)
R�
\/� PORT%(1)<>B% �  PORT%(1)=B%:�_UpP(1,B%,1)
f�
pMiTime%=�+50
z�
��
�
�� �_spath(n$)
�ȕ �n$,".")
�n$=�n$,�(n$)-1)
��
�� �(n$)>10 � n$=�n$,10)
�=n$
�
�� �_GetName
�� T%,A%,F$
�F$="":fn$=""
�q%!0=saveW%:q%!4=1
ș "Wimp_GetIconState",,q%
T%=q%!28
	T%-=1
$�
.	T%+=1
8F$=F$+�(?T%)
B� ?T%=0
Lfn$=�F$,1,�(F$)-1)
V�
`
j� �_SORT_Menu
t� IconMenu% �
~S� !q%=1 � menu%!52=1:menu%!76=0: LED=� :ș"Wimp_ForceRedraw",monW%,0,-300,700,0
�R� !q%=2 � menu%!52=0:menu%!76=1:LED=� :ș"Wimp_ForceRedraw",monW%,0,-300,700,0
�� !q%=3 � �die
��
��
�ș"Wimp_GetPointerInfo",,q%
�*� q%!8=1 � ș"Wimp_CreateMenu",,Wmenu%
��
�
�
� �_close
�7� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�
� � q%!0=warningW% � warnOn%=�
�ș "Wimp_CloseWindow",,q%
�


� �_do_click(q%)
i%=q%!16
(Ȏ q%!12 �
2(� warningW%: q%!0=warningW% :�_close
<
F(� -2: � Look first at Icon Bar Click
P        � q%!16=smpicon% �
ZJ        � q%!8=2 � IconMenu%=�: ș"Wimp_CreateMenu",,menu%,q%!0-94,270
d        � q%!8=4 � �_Open
n
        �
x
�� monW%:  
�'              � q%!8=4 � �_MonClick
��
��
�
�
�� �_MonClick
�� D%,V%,B%
�&� Do the action for a window click
��_Dp
�� cb%<8 � cr%<3 �
�  Ȏ cr% �
�'  � 2: PORT%(0)=PORT%(2) � 1<<(cb%)
          MiTime%=0
  �
�
"�
,
6� �_Open
@.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
J� OPEN UP WINDOW HERE
T� wopen% �
^q%!0=monW%
hș"Wimp_GetWindowState",,q%
r6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
|�
�ș "Wimp_OpenWindow",,Wn%
�wopen%=�
��
��
�
�� �_doWindow
�  � A%,I%,L%
�
�   �_Trans(monW%)
�)   ș "Wimp_RedrawWindow",,q% � flag%
�     ȕ flag%
�
�     �_Dmpw
+     ș "Wimp_GetRectangle",,q% � flag%

     �
  
&  �
0
:� �pointSq
D� X%,Y%,B%,R%
N�_Trans(monW%)
Xȗ X%,Y%,B%
bR%=0
l)� (X%<(xo%+30) � Y%<(yo%+30) ) � R%=1
v.� (X%>(xo%+246*xs%) � Y%<(yo%+30) ) � R%=2
�=R%
�
�� �_Dmpw
�� A%,B%,V%
��_Trans(monW%)
�
�� B%=1 � 2
�� A%=0 � 7
�V%=PORT%(B%) � 1<<(7-A%)
��_WS(A%,B%,V%)
��
��_Hex(PORT%(B%),B%)
��
�5
� A%=0 � 7
� xo%+52+A%*40,yo%+106
 
�;7-A%
*�
4� xo%+112,yo%+194
>�"Input Bits"
H� xo%+108,yo%+274
R�"Output Bits"
\�4
f�
p
z� �_Hex(V%,Y%)
�� v$
�	Y%+=1
�9� LED � ș"Wimp_SetColour",10 � ș"Wimp_SetColour",15
�� Ncolours%<4 � � 0,0
�
�!ȓȐ xo%+380,yo1%+40*Y%,54,40
�ș"Wimp_SetColour",7
� ȓ xo%+ 380,yo1%+Y%*40,54,40
��5
�� xo%+384,yo1%+Y%*40+32
�"� V%<256 � v$=�~(V%) � v$="XX"
�� �(v$)=1 � v$="0"+v$
��"&";v$
	�4
	�
	
	$� �_WS(X%,Y%,V%)
	.� S%
	8	S%=40
	Byo1%=yo%+Y%*S%
	L� LED �
	Vș"Wimp_SetColour",7
	`/ȏȐ 20+xo%+ S% + X%*S%,20+yo1%+S%+Y%*S%,16
	j
	t)� V%=0 � Nw%=� � ș"Wimp_SetColour",4
	~+� V%<>0 � Nw%=� � ș"Wimp_SetColour",11
	�"� Nw%=� � ș"Wimp_SetColour",7
	�
	� � Ncolours%<4 � V%=0 � � 0,0
	�.ȏȐ 20+xo%+S% + X%*S%,20+yo1%+S%+S%*Y%,10
	�
	��
	�2� Ncolours%>15 � � 0,45 � ș"Wimp_SetColour",0
	�+ȓȐ xo%+S% + X%*S%,yo1%+S%+S%*Y%,S%,S%
	�ș"Wimp_SetColour",7
	�*ȓ xo%+ S% + X%*S%,yo1%+S%+Y%*S%,S%,S%
	��5
	�'� xo%+S%+X%*S%+12,yo1%+S%*2+Y%*S%-8
� V%=0 � Nw%=� � �"0"

� V%<>0 � Nw%=� � �"1"
� Nw%=� � �"X"
�4
(�
2�
<
F� �_UpP(P%,V%,M%)
P� T%,A%,E%,Nw%
Z3  q%!0=monW%:q%!4=0:q%!8=-250:q%!12=680:q%!16=0
d'  ș"Wimp_UpdateWindow",,q% � More%
n
x
 ȕ More%
�
�%  � V%>255 � P%=1 � Nw%=� � Nw%=�
�  � A%=0 � 7
�  T%=V% � 1<<(7-A%)
�  E%=PORT%(P%) � 1<<(7-A%)
�&  � T%<>E% � M%=1 � �_WS(A%,P%,T%)
�  �
�  �_Hex(V%,P%)
�  
�'  ș"Wimp_GetRectangle",,q% � More%
� �
�
��


� �_Wr
� TY%,R%
" TY%=Y%-yo%
,	 R%=3
6 � TY%>=40 � TY%<=80 � R%=0
@! � TY%>=120 � TY%<=160 � R%=1
J! � TY%>=200 � TY%<=240 � R%=2
T=R%
^
� �_Wb
h� B%
rB%=7-�((X%-xo%)/40-1)
|� B%>7 � B%<0 � B%=8
�=B%
�
�
� �_Dp
�� X%,Y%,B%,nr%,nb%
�ȗ X%,Y%,B%
�� X%<>LX% � Y%<>LY% �
� �_Trans(monW%)
� nr%=�_Wr : nb%=�_Wb
� � nr%<>cr% � nb%<>cb% �
�   cr%=nr%:cb%=nb%
�   �
� LX%=X%:LY%=Y%
��
�

� �_Trans(wh%)
&!q%=wh%
0 ș "Wimp_GetWindowState",,q%
:(xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-290
DXO%=q%!4:YO%=q%!16
N�
X
b��setupmenu
l� m%
v
�$menu%="SerialMon"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=128
�menu%!20=40
�menu%!24=0
�m%=menu%+28
�
m%!0=0
�m%!4=info%
�m%!8=(7<<24)� %10001
�$(m%+12)="Info"




m%+=24


m%!0=1

 
m%!4=0

*m%!8=(7<<24)� %10001

4$(m%+12)="Binary"

>

H
m%+=24

R
m%!0=0

\
m%!4=0

fm%!8=(7<<24)� %10001

p$(m%+12)="LED"

z

�
m%+=24

�m%!0=&80

�
m%!4=0

�m%!8=(7<<24)� %10001

�$(m%+12)="Quit"

�

��

�

�� �receive(q%)

�� A%

�A%=q%!16

�Ȏ A% �

�� 0:�die
� &502:   Ȏ � �
s             � q%!32=-2 � q%!36=smpicon%:mes$="This is the Serial Monitor icon.|MTest for Serial I/O interface"
             :mes$=""
$             �
.    � mes$<>"" �
8    q%!12=q%!8
B    $(q%+20)=mes$+�0
L    q%!0=(20+�mes$+4)� � 3
V    q%!16=&503
`(    ș "Wimp_SendMessage",18,q%,q%!4
j�
t�
~
�� �_Dack
�sendth%=q%!4
�myref%=q%!8
�"ș "Wimp_GetPointerInfo",,q%+8
�q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
�q%!12=myref%
�q%!16=4
�q%!36=-1
�q%!40=&FF9
�$(q%+44)=n$+�0
'ș "Wimp_SendMessage",17,q%,sendth%

�
�

(ݤsget(x%)
2� x$
<ȕ ?x% x$+=�(?x%):x%+=1:�
F=x$
P
Z
ݤicon
dq%!0=-1
n
q%!4=0
xq%!8=10 : � Y DIRECTION
�q%!12=70 : � X DIRECTION
�q%!16=96
�q%!20=&2002
�$(q%+24)="!SerialMon"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�
warnOn%=�
ș "Wimp_OpenWindow",,q%
�

"� �errorbox
,ș "Wimp_DragBox",,-1
62!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
@:ș "Wimp_ReportError",buffers%,1,"Serial Port Monitor"
J�die
T�
^
h	��die
r*ș "Wimp_CloseDown",taskhand%,!taskid%
|�
��
�
�.� �dragicon(mousex%,mousey%,handle%,icon%)
�!� bx%,by%,ix0%,iy0%,ix1%,iy1%
��getw(handle%)
��geti(handle%,icon%)
�!q%=handle%:q%!4=5
�>q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
�*q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
�ș "Wimp_DragBox",,q%
�SFLAG%=�
��
�
� �getw(handle%)
8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
�
&� �geti(h%,i%)
0-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
:.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
Diflags%=q%!24:idata%=q%+28
N�
X
b� �info(p%)
l
� x0%,y0%
v'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
�5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
�bx%=x0%-scx%:by%=y1%-scy%
��
�
�� �_KeyPress
�
Ȏ q%!0 �
�+� OTHERWISE: SYS"Wimp_ProcessKey",q%!24
��
��
�
�
00000000  0d 00 0a 22 f4 3e 44 65  76 65 6c 6f 70 2e 21 53  |...".>Develop.!S|
00000010  65 72 69 61 6c 4d 6f 6e  2e 53 65 72 69 61 6c 4d  |erialMon.SerialM|
00000020  6f 6e 0d 00 14 1e f4 20  56 65 72 73 69 6f 6e 20  |on..... Version |
00000030  31 2e 30 20 42 79 20 4d  69 6b 65 20 43 6f 6f 6b  |1.0 By Mike Cook|
00000040  0d 00 1e 19 f4 20 41 6c  6c 20 72 69 67 68 74 73  |..... All rights|
00000050  20 72 65 73 65 72 76 65  64 0d 00 28 11 ee 20 85  | reserved..(.. .|
00000060  20 f2 65 72 72 6f 72 62  6f 78 0d 00 32 04 0d 00  | .errorbox..2...|
00000070  3c 1e de 20 74 61 73 6b  69 64 25 34 3a 24 74 61  |<.. taskid%4:$ta|
00000080  73 6b 69 64 25 3d 22 54  41 53 4b 22 0d 00 46 3c  |skid%="TASK"..F<|
00000090  de 20 50 4f 52 54 25 28  33 29 2c 20 50 69 6e 24  |. PORT%(3), Pin$|
000000a0  28 32 2c 37 29 2c 50 69  6e 4e 24 28 32 2c 37 29  |(2,7),PinN$(2,7)|
000000b0  2c 50 69 6e 49 4f 24 28  32 2c 37 29 2c 69 6e 74  |,PinIO$(2,7),int|
000000c0  6d 65 73 73 25 20 32 30  0d 00 50 49 69 6e 74 6d  |mess% 20..PIintm|
000000d0  65 73 73 25 21 30 3d 31  3a 69 6e 74 6d 65 73 73  |ess%!0=1:intmess|
000000e0  25 21 34 3d 32 3a 69 6e  74 6d 65 73 73 25 21 38  |%!4=2:intmess%!8|
000000f0  3d 33 3a 69 6e 74 6d 65  73 73 25 21 31 32 3d 26  |=3:intmess%!12=&|
00000100  35 30 32 3a 69 6e 74 6d  65 73 73 25 21 31 36 3d  |502:intmess%!16=|
00000110  30 0d 00 5a 53 c8 99 20  22 57 69 6d 70 5f 49 6e  |0..ZS.. "Wimp_In|
00000120  69 74 69 61 6c 69 73 65  22 2c 33 30 30 2c 21 74  |itialise",300,!t|
00000130  61 73 6b 69 64 25 2c 22  53 65 72 69 61 6c 4d 6f  |askid%,"SerialMo|
00000140  6e 69 74 6f 72 22 2c 69  6e 74 6d 65 73 73 25 20  |nitor",intmess% |
00000150  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 68  |. version%,taskh|
00000160  61 6e 64 25 0d 00 64 4e  de 20 71 25 20 26 33 30  |and%..dN. q% &30|
00000170  30 2c 71 63 25 20 38 30  2c 20 57 6e 25 20 26 33  |0,qc% 80, Wn% &3|
00000180  30 30 2c 74 65 6d 70 25  20 32 35 36 2c 62 75 66  |00,temp% 256,buf|
00000190  66 65 72 73 25 20 35 31  32 2c 6d 65 6e 75 25 20  |fers% 512,menu% |
000001a0  31 32 38 2c 53 57 25 20  32 35 36 2c 63 62 25 20  |128,SW% 256,cb% |
000001b0  31 38 0d 00 6e 4b de 20  49 73 4e 61 6d 65 25 20  |18..nK. IsName% |
000001c0  32 35 36 2c 20 57 6d 65  6e 75 25 20 35 31 32 2c  |256, Wmenu% 512,|
000001d0  53 6d 65 6e 75 25 20 32  35 36 2c 49 6d 65 6e 75  |Smenu% 256,Imenu|
000001e0  25 20 32 35 36 2c 20 54  65 78 74 57 61 72 6e 25  |% 256, TextWarn%|
000001f0  20 31 30 30 2c 20 77 77  25 20 32 35 36 0d 00 78  | 100, ww% 256..x|
00000200  37 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |7.. "Wimp_OpenTe|
00000210  6d 70 6c 61 74 65 22 2c  2c 22 3c 53 65 72 69 61  |mplate",,"<Seria|
00000220  6c 4d 6f 6e 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |lMon$Dir>.Templa|
00000230  74 65 73 22 0d 00 82 29  ee 20 85 20 c8 99 20 22  |tes"...). . .. "|
00000240  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
00000250  74 65 22 3a f2 65 72 72  6f 72 62 6f 78 0d 00 8c  |te":.errorbox...|
00000260  3a c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |:.. "Wimp_LoadTe|
00000270  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 74 65 6d 70  |mplate",,q%,temp|
00000280  25 2c 74 65 6d 70 25 2b  32 35 36 2c 2d 31 2c 22  |%,temp%+256,-1,"|
00000290  49 6e 66 6f 22 2c 30 0d  00 96 26 c8 99 20 22 57  |Info",0...&.. "W|
000002a0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000002b0  22 2c 2c 71 25 20 b8 20  69 6e 66 6f 25 0d 00 a0  |",,q% . info%...|
000002c0  3d c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |=.. "Wimp_LoadTe|
000002d0  6d 70 6c 61 74 65 22 2c  2c 57 6e 25 2b 34 2c 53  |mplate",,Wn%+4,S|
000002e0  57 25 2c 53 57 25 2b 32  35 36 2c 2d 31 2c 22 50  |W%,SW%+256,-1,"P|
000002f0  61 6c 6c 65 74 74 65 22  2c 30 0d 00 aa 29 c8 99  |allette",0...)..|
00000300  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000310  64 6f 77 22 2c 2c 57 6e  25 2b 34 20 b8 20 6d 6f  |dow",,Wn%+4 . mo|
00000320  6e 57 25 0d 00 b4 19 57  6e 25 21 30 3d 6d 6f 6e  |nW%....Wn%!0=mon|
00000330  57 25 3a 57 6e 25 21 32  38 3d 2d 31 0d 00 be 04  |W%:Wn%!28=-1....|
00000340  0d 00 c8 39 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...9.. "Wimp_Loa|
00000350  64 54 65 6d 70 6c 61 74  65 22 2c 2c 71 25 2c 77  |dTemplate",,q%,w|
00000360  77 25 2c 77 77 25 2b 32  35 36 2c 2d 31 2c 22 57  |w%,ww%+256,-1,"W|
00000370  61 72 6e 69 6e 67 22 2c  30 0d 00 d2 29 71 25 21  |arning",0...)q%!|
00000380  31 30 38 3d 54 65 78 74  57 61 72 6e 25 3a 71 25  |108=TextWarn%:q%|
00000390  21 31 31 32 3d 2d 31 3a  71 25 21 31 31 36 3d 33  |!112=-1:q%!116=3|
000003a0  30 30 0d 00 dc 20 58 51  25 3d 71 25 21 38 2d 71  |00... XQ%=q%!8-q|
000003b0  25 21 30 3a 59 51 25 3d  71 25 21 31 32 2d 71 25  |%!0:YQ%=q%!12-q%|
000003c0  21 34 0d 00 e6 2a c8 99  20 22 57 69 6d 70 5f 43  |!4...*.. "Wimp_C|
000003d0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
000003e0  20 b8 20 77 61 72 6e 69  6e 67 57 25 0d 00 f0 1b  | . warningW%....|
000003f0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00000400  6d 70 6c 61 74 65 22 0d  00 fa 0a 72 65 66 25 3d  |mplate"....ref%=|
00000410  30 0d 01 04 11 63 70 4c  25 3d 30 3a 63 70 52 25  |0....cpL%=0:cpR%|
00000420  3d 30 0d 01 0e 12 73 6d  70 69 63 6f 6e 25 3d a4  |=0....smpicon%=.|
00000430  69 63 6f 6e 0d 01 18 16  77 6f 70 65 6e 25 3d a3  |icon....wopen%=.|
00000440  3a 77 61 72 6e 4f 6e 25  3d a3 0d 01 22 0c 49 6e  |:warnOn%=...".In|
00000450  57 69 6e 25 3d a3 0d 01  2c 11 4c 58 25 3d 2d 31  |Win%=...,.LX%=-1|
00000460  3a 4c 59 25 3d 2d 31 0d  01 36 0f 63 72 25 3d 33  |:LY%=-1..6.cr%=3|
00000470  3a 63 62 25 3d 38 0d 01  40 09 4c 45 44 3d a3 0d  |:cb%=8..@.LED=..|
00000480  01 4a 09 4e 77 25 3d a3  0d 01 54 0d 4d 69 54 69  |.J.Nw%=...T.MiTi|
00000490  6d 65 25 3d 30 0d 01 5e  04 0d 01 68 11 ee 20 85  |me%=0..^...h.. .|
000004a0  20 f2 65 72 72 6f 72 62  6f 78 0d 01 72 04 0d 01  | .errorbox..r...|
000004b0  7c 0e f2 73 65 74 75 70  6d 65 6e 75 0d 01 86 3d  ||..setupmenu...=|
000004c0  f4 20 49 6e 69 74 69 6c  69 73 65 20 53 65 72 69  |. Initilise Seri|
000004d0  61 6c 20 50 6f 72 74 20  39 36 30 30 20 42 61 75  |al Port 9600 Bau|
000004e0  64 20 38 20 64 61 74 61  20 31 20 53 74 6f 70 20  |d 8 data 1 Stop |
000004f0  6e 6f 20 50 61 72 69 74  79 0d 01 90 1f c8 99 22  |no Parity......"|
00000500  4f 53 5f 53 65 72 69 61  6c 4f 70 22 2c 30 2c 26  |OS_SerialOp",0,&|
00000510  39 36 2c 26 46 46 30 30  0d 01 9a 17 c8 99 22 4f  |96,&FF00......"O|
00000520  53 5f 53 65 72 69 61 6c  4f 70 22 2c 31 2c 30 0d  |S_SerialOp",1,0.|
00000530  01 a4 17 c8 99 22 4f 53  5f 53 65 72 69 61 6c 4f  |....."OS_SerialO|
00000540  70 22 2c 35 2c 37 0d 01  ae 17 c8 99 22 4f 53 5f  |p",5,7......"OS_|
00000550  53 65 72 69 61 6c 4f 70  22 2c 36 2c 37 0d 01 b8  |SerialOp",6,7...|
00000560  13 c8 99 22 4f 53 5f 42  79 74 65 22 2c 32 2c 32  |..."OS_Byte",2,2|
00000570  0d 01 c2 04 0d 01 cc 22  f4 20 45 6d 70 74 79 20  |.......". Empty |
00000580  61 6e 79 74 68 69 6e 67  20 69 6e 20 74 68 65 20  |anything in the |
00000590  62 75 66 66 65 72 0d 01  d6 05 f5 0d 01 e0 1f c8  |buffer..........|
000005a0  99 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 34  |."OS_SerialOp",4|
000005b0  20 b8 20 2c 42 25 20 3b  43 25 0d 01 ea 0e 43 25  | . ,B% ;C%....C%|
000005c0  3d 43 25 20 80 20 26 32  0d 01 f4 0b fd 20 43 25  |=C% . &2..... C%|
000005d0  3c 3e 30 0d 01 fe 04 0d  02 08 05 f5 0d 02 12 1d  |<>0.............|
000005e0  20 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  | .. "Wimp_Poll",|
000005f0  30 2c 71 25 20 b8 20 41  25 0d 02 1c 0d 20 20 c8  |0,q% . A%....  .|
00000600  8e 20 41 25 20 ca 0d 02  26 11 20 20 20 c9 20 30  |. A% ...&.   . 0|
00000610  3a f2 5f 4e 75 6c 6c 0d  02 30 15 20 20 20 c9 20  |:._Null..0.   . |
00000620  31 3a f2 5f 64 6f 57 69  6e 64 6f 77 0d 02 3a 4f  |1:._doWindow..:O|
00000630  20 20 20 c9 20 32 3a c8  99 22 4f 53 5f 52 65 61  |   . 2:.."OS_Rea|
00000640  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00000650  31 2c 33 20 b8 20 2c 2c  4e 63 6f 6c 6f 75 72 73  |1,3 . ,,Ncolours|
00000660  25 3a 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |%: .. "Wimp_Open|
00000670  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 02 44 12 20  |Window",,q%..D. |
00000680  20 20 c9 20 33 3a f2 5f  63 6c 6f 73 65 0d 02 4e  |  . 3:._close..N|
00000690  21 20 20 20 c9 20 34 3a  49 6e 57 69 6e 25 3d a3  |!   . 4:InWin%=.|
000006a0  3a 4c 58 25 3d 2d 31 3a  4c 59 25 3d 2d 31 0d 02  |:LX%=-1:LY%=-1..|
000006b0  58 13 20 20 20 c9 20 35  3a 49 6e 57 69 6e 25 3d  |X.   . 5:InWin%=|
000006c0  b9 0d 02 62 19 20 20 20  c9 20 36 3a f2 5f 64 6f  |...b.   . 6:._do|
000006d0  5f 63 6c 69 63 6b 28 71  25 29 0d 02 6c 0b 20 20  |_click(q%)..l.  |
000006e0  20 c9 20 37 3a 0d 02 76  15 20 20 20 c9 20 38 3a  | . 7:..v.   . 8:|
000006f0  f2 5f 4b 65 79 50 72 65  73 73 0d 02 80 16 20 20  |._KeyPress....  |
00000700  20 c9 20 39 3a f2 5f 53  4f 52 54 5f 4d 65 6e 75  | . 9:._SORT_Menu|
00000710  0d 02 8a 1b 20 20 20 c9  20 31 37 2c 31 38 3a f2  |....   . 17,18:.|
00000720  72 65 63 65 69 76 65 28  71 25 29 0d 02 94 08 20  |receive(q%).... |
00000730  20 20 cb 0d 02 9e 08 20  fd 20 a3 0d 02 a8 04 0d  |  ..... . ......|
00000740  02 b2 05 e0 0d 02 bc 04  0d 02 c6 0c dd 20 f2 5f  |............. ._|
00000750  4e 75 6c 6c 0d 02 d0 0e  ea 20 41 25 2c 42 25 2c  |Null..... A%,B%,|
00000760  43 25 0d 02 da 1a e7 20  91 3e 4d 69 54 69 6d 65  |C%..... .>MiTime|
00000770  25 20 80 20 77 6f 70 65  6e 25 20 8c 0d 02 e4 12  |% . wopen% .....|
00000780  f2 5f 54 72 61 6e 73 28  6d 6f 6e 57 25 29 0d 02  |._Trans(monW%)..|
00000790  ee 1e c8 99 22 4f 53 5f  53 65 72 69 61 6c 4f 70  |...."OS_SerialOp|
000007a0  22 2c 33 2c 50 4f 52 54  25 28 30 29 0d 02 f8 41  |",3,PORT%(0)...A|
000007b0  e7 20 50 4f 52 54 25 28  32 29 3c 3e 50 4f 52 54  |. PORT%(2)<>PORT|
000007c0  25 28 30 29 20 8c 20 f2  5f 55 70 50 28 32 2c 50  |%(0) . ._UpP(2,P|
000007d0  4f 52 54 25 28 30 29 2c  30 29 20 3a 50 4f 52 54  |ORT%(0),0) :PORT|
000007e0  25 28 32 29 3d 50 4f 52  54 25 28 30 29 0d 03 02  |%(2)=PORT%(0)...|
000007f0  0a 41 25 3d 91 2b 32 0d  03 0c 05 f5 0d 03 16 23  |.A%=.+2........#|
00000800  c8 99 22 4f 53 5f 53 65  72 69 61 6c 4f 70 22 2c  |.."OS_SerialOp",|
00000810  34 2c 32 35 36 20 b8 20  2c 42 25 20 3b 43 25 0d  |4,256 . ,B% ;C%.|
00000820  03 20 0e 43 25 3d 43 25  20 80 20 26 32 0d 03 2a  |. .C%=C% . &2..*|
00000830  11 fd 20 43 25 3d 30 20  84 20 91 3e 41 25 0d 03  |.. C%=0 . .>A%..|
00000840  34 04 0d 03 3e 0d e7 20  43 25 3c 3e 30 20 8c 0d  |4...>.. C%<>0 ..|
00000850  03 48 20 50 4f 52 54 25  28 31 29 3d 26 31 46 46  |.H PORT%(1)=&1FF|
00000860  3a f2 5f 55 70 50 28 31  2c 32 35 36 2c 31 29 0d  |:._UpP(1,256,1).|
00000870  03 52 05 cc 0d 03 5c 2f  e7 20 50 4f 52 54 25 28  |.R....\/. PORT%(|
00000880  31 29 3c 3e 42 25 20 8c  20 20 50 4f 52 54 25 28  |1)<>B% .  PORT%(|
00000890  31 29 3d 42 25 3a f2 5f  55 70 50 28 31 2c 42 25  |1)=B%:._UpP(1,B%|
000008a0  2c 31 29 0d 03 66 05 cd  0d 03 70 10 4d 69 54 69  |,1)..f....p.MiTi|
000008b0  6d 65 25 3d 91 2b 35 30  0d 03 7a 05 cd 0d 03 84  |me%=.+50..z.....|
000008c0  05 e1 0d 03 8e 04 0d 03  98 11 dd 20 a4 5f 73 70  |........... ._sp|
000008d0  61 74 68 28 6e 24 29 0d  03 a2 0f c8 95 20 a7 6e  |ath(n$)...... .n|
000008e0  24 2c 22 2e 22 29 0d 03  ac 13 6e 24 3d c2 6e 24  |$,".")....n$=.n$|
000008f0  2c a9 28 6e 24 29 2d 31  29 0d 03 b6 05 ce 0d 03  |,.(n$)-1).......|
00000900  c0 1b e7 20 a9 28 6e 24  29 3e 31 30 20 8c 20 6e  |... .(n$)>10 . n|
00000910  24 3d c2 6e 24 2c 31 30  29 0d 03 ca 07 3d 6e 24  |$=.n$,10)....=n$|
00000920  0d 03 d4 04 0d 03 de 0f  dd 20 f2 5f 47 65 74 4e  |......... ._GetN|
00000930  61 6d 65 0d 03 e8 0e ea  20 54 25 2c 41 25 2c 46  |ame..... T%,A%,F|
00000940  24 0d 03 f2 10 46 24 3d  22 22 3a 66 6e 24 3d 22  |$....F$="":fn$="|
00000950  22 0d 03 fc 16 71 25 21  30 3d 73 61 76 65 57 25  |"....q%!0=saveW%|
00000960  3a 71 25 21 34 3d 31 0d  04 06 1e c8 99 20 22 57  |:q%!4=1...... "W|
00000970  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00000980  22 2c 2c 71 25 0d 04 10  0c 54 25 3d 71 25 21 32  |",,q%....T%=q%!2|
00000990  38 0d 04 1a 09 54 25 2d  3d 31 0d 04 24 05 f5 0d  |8....T%-=1..$...|
000009a0  04 2e 09 54 25 2b 3d 31  0d 04 38 10 46 24 3d 46  |...T%+=1..8.F$=F|
000009b0  24 2b bd 28 3f 54 25 29  0d 04 42 0b fd 20 3f 54  |$+.(?T%)..B.. ?T|
000009c0  25 3d 30 0d 04 4c 16 66  6e 24 3d c1 46 24 2c 31  |%=0..L.fn$=.F$,1|
000009d0  2c a9 28 46 24 29 2d 31  29 0d 04 56 05 e1 0d 04  |,.(F$)-1)..V....|
000009e0  60 04 0d 04 6a 11 dd 20  f2 5f 53 4f 52 54 5f 4d  |`...j.. ._SORT_M|
000009f0  65 6e 75 0d 04 74 11 e7  20 49 63 6f 6e 4d 65 6e  |enu..t.. IconMen|
00000a00  75 25 20 8c 0d 04 7e 53  e7 20 21 71 25 3d 31 20  |u% ...~S. !q%=1 |
00000a10  8c 20 6d 65 6e 75 25 21  35 32 3d 31 3a 6d 65 6e  |. menu%!52=1:men|
00000a20  75 25 21 37 36 3d 30 3a  20 4c 45 44 3d a3 20 3a  |u%!76=0: LED=. :|
00000a30  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00000a40  72 61 77 22 2c 6d 6f 6e  57 25 2c 30 2c 2d 33 30  |raw",monW%,0,-30|
00000a50  30 2c 37 30 30 2c 30 0d  04 88 52 e7 20 21 71 25  |0,700,0...R. !q%|
00000a60  3d 32 20 8c 20 6d 65 6e  75 25 21 35 32 3d 30 3a  |=2 . menu%!52=0:|
00000a70  6d 65 6e 75 25 21 37 36  3d 31 3a 4c 45 44 3d b9  |menu%!76=1:LED=.|
00000a80  20 3a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  | :.."Wimp_ForceR|
00000a90  65 64 72 61 77 22 2c 6d  6f 6e 57 25 2c 30 2c 2d  |edraw",monW%,0,-|
00000aa0  33 30 30 2c 37 30 30 2c  30 0d 04 92 12 e7 20 21  |300,700,0..... !|
00000ab0  71 25 3d 33 20 8c 20 f2  64 69 65 0d 04 9c 05 cb  |q%=3 . .die.....|
00000ac0  0d 04 a6 05 cd 0d 04 b0  1f c8 99 22 57 69 6d 70  |..........."Wimp|
00000ad0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000ae0  2c 2c 71 25 0d 04 ba 2a  e7 20 71 25 21 38 3d 31  |,,q%...*. q%!8=1|
00000af0  20 8c 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  | . .."Wimp_Creat|
00000b00  65 4d 65 6e 75 22 2c 2c  57 6d 65 6e 75 25 0d 04  |eMenu",,Wmenu%..|
00000b10  c4 05 e1 0d 04 ce 04 0d  04 d8 0d dd 20 f2 5f 63  |............ ._c|
00000b20  6c 6f 73 65 0d 04 e2 37  e7 20 71 25 21 30 3d 6d  |lose...7. q%!0=m|
00000b30  6f 6e 57 25 20 8c 20 c8  99 22 57 69 6d 70 5f 47  |onW% . .."Wimp_G|
00000b40  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 57  |etWindowInfo",,W|
00000b50  6e 25 3a 77 6f 70 65 6e  25 3d a3 0d 04 ec 20 e7  |n%:wopen%=.... .|
00000b60  20 71 25 21 30 3d 77 61  72 6e 69 6e 67 57 25 20  | q%!0=warningW% |
00000b70  8c 20 77 61 72 6e 4f 6e  25 3d a3 0d 04 f6 1d c8  |. warnOn%=......|
00000b80  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000b90  64 6f 77 22 2c 2c 71 25  0d 05 00 05 e1 0d 05 0a  |dow",,q%........|
00000ba0  04 0d 05 14 14 dd 20 f2  5f 64 6f 5f 63 6c 69 63  |...... ._do_clic|
00000bb0  6b 28 71 25 29 0d 05 1e  0c 69 25 3d 71 25 21 31  |k(q%)....i%=q%!1|
00000bc0  36 0d 05 28 0e c8 8e 20  71 25 21 31 32 20 ca 0d  |6..(... q%!12 ..|
00000bd0  05 32 28 c9 20 77 61 72  6e 69 6e 67 57 25 3a 20  |.2(. warningW%: |
00000be0  71 25 21 30 3d 77 61 72  6e 69 6e 67 57 25 20 3a  |q%!0=warningW% :|
00000bf0  f2 5f 63 6c 6f 73 65 0d  05 3c 04 0d 05 46 28 c9  |._close..<...F(.|
00000c00  20 2d 32 3a 20 f4 20 4c  6f 6f 6b 20 66 69 72 73  | -2: . Look firs|
00000c10  74 20 61 74 20 49 63 6f  6e 20 42 61 72 20 43 6c  |t at Icon Bar Cl|
00000c20  69 63 6b 0d 05 50 1e 20  20 20 20 20 20 20 20 e7  |ick..P.        .|
00000c30  20 71 25 21 31 36 3d 73  6d 70 69 63 6f 6e 25 20  | q%!16=smpicon% |
00000c40  8c 0d 05 5a 4a 20 20 20  20 20 20 20 20 e7 20 71  |...ZJ        . q|
00000c50  25 21 38 3d 32 20 8c 20  49 63 6f 6e 4d 65 6e 75  |%!8=2 . IconMenu|
00000c60  25 3d b9 3a 20 c8 99 22  57 69 6d 70 5f 43 72 65  |%=.: .."Wimp_Cre|
00000c70  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00000c80  71 25 21 30 2d 39 34 2c  32 37 30 0d 05 64 1d 20  |q%!0-94,270..d. |
00000c90  20 20 20 20 20 20 20 e7  20 71 25 21 38 3d 34 20  |       . q%!8=4 |
00000ca0  8c 20 f2 5f 4f 70 65 6e  0d 05 6e 0d 20 20 20 20  |. ._Open..n.    |
00000cb0  20 20 20 20 cd 0d 05 78  04 0d 05 82 0e c9 20 6d  |    ...x...... m|
00000cc0  6f 6e 57 25 3a 20 20 0d  05 8c 27 20 20 20 20 20  |onW%:  ...'     |
00000cd0  20 20 20 20 20 20 20 20  20 e7 20 71 25 21 38 3d  |         . q%!8=|
00000ce0  34 20 8c 20 f2 5f 4d 6f  6e 43 6c 69 63 6b 0d 05  |4 . ._MonClick..|
00000cf0  96 05 cb 0d 05 a0 05 e1  0d 05 aa 04 0d 05 b4 04  |................|
00000d00  0d 05 be 10 dd 20 f2 5f  4d 6f 6e 43 6c 69 63 6b  |..... ._MonClick|
00000d10  0d 05 c8 0e ea 20 44 25  2c 56 25 2c 42 25 0d 05  |..... D%,V%,B%..|
00000d20  d2 26 f4 20 44 6f 20 74  68 65 20 61 63 74 69 6f  |.&. Do the actio|
00000d30  6e 20 66 6f 72 20 61 20  77 69 6e 64 6f 77 20 63  |n for a window c|
00000d40  6c 69 63 6b 0d 05 dc 08  f2 5f 44 70 0d 05 e6 15  |lick....._Dp....|
00000d50  e7 20 63 62 25 3c 38 20  80 20 63 72 25 3c 33 20  |. cb%<8 . cr%<3 |
00000d60  8c 0d 05 f0 0e 20 20 c8  8e 20 63 72 25 20 ca 0d  |.....  .. cr% ..|
00000d70  05 fa 27 20 20 c9 20 32  3a 20 50 4f 52 54 25 28  |..'  . 2: PORT%(|
00000d80  30 29 3d 50 4f 52 54 25  28 32 29 20 82 20 31 3c  |0)=PORT%(2) . 1<|
00000d90  3c 28 63 62 25 29 0d 06  04 17 20 20 20 20 20 20  |<(cb%)....      |
00000da0  20 20 20 20 4d 69 54 69  6d 65 25 3d 30 0d 06 0e  |    MiTime%=0...|
00000db0  07 20 20 cb 0d 06 18 05  cd 0d 06 22 05 e1 0d 06  |.  ........"....|
00000dc0  2c 04 0d 06 36 0c dd 20  f2 5f 4f 70 65 6e 0d 06  |,...6.. ._Open..|
00000dd0  40 2e c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |@..."OS_ReadMode|
00000de0  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 33 20 b8  |Variable",-1,3 .|
00000df0  20 2c 2c 4e 63 6f 6c 6f  75 72 73 25 0d 06 4a 19  | ,,Ncolours%..J.|
00000e00  f4 20 4f 50 45 4e 20 55  50 20 57 49 4e 44 4f 57  |. OPEN UP WINDOW|
00000e10  20 48 45 52 45 0d 06 54  0e e7 20 77 6f 70 65 6e  | HERE..T.. wopen|
00000e20  25 20 8c 0d 06 5e 0e 71  25 21 30 3d 6d 6f 6e 57  |% ...^.q%!0=monW|
00000e30  25 0d 06 68 1f c8 99 22  57 69 6d 70 5f 47 65 74  |%..h..."Wimp_Get|
00000e40  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
00000e50  0d 06 72 36 20 20 e7 20  71 25 21 32 38 3c 3e 2d  |..r6  . q%!28<>-|
00000e60  31 20 8c 20 71 25 21 32  38 3d 2d 31 3a 20 c8 99  |1 . q%!28=-1: ..|
00000e70  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000e80  77 22 2c 2c 71 25 0d 06  7c 05 cc 0d 06 86 1d c8  |w",,q%..|.......|
00000e90  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000ea0  6f 77 22 2c 2c 57 6e 25  0d 06 90 0c 77 6f 70 65  |ow",,Wn%....wope|
00000eb0  6e 25 3d b9 0d 06 9a 05  cd 0d 06 a4 05 e1 0d 06  |n%=.............|
00000ec0  ae 04 0d 06 b8 10 dd 20  f2 5f 64 6f 57 69 6e 64  |....... ._doWind|
00000ed0  6f 77 0d 06 c2 10 20 20  ea 20 41 25 2c 49 25 2c  |ow....  . A%,I%,|
00000ee0  4c 25 0d 06 cc 04 0d 06  d6 15 20 20 20 f2 5f 54  |L%........   ._T|
00000ef0  72 61 6e 73 28 6d 6f 6e  57 25 29 0d 06 e0 29 20  |rans(monW%)...) |
00000f00  20 20 c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |  .. "Wimp_Redra|
00000f10  77 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 66  |wWindow",,q% . f|
00000f20  6c 61 67 25 0d 06 ea 11  20 20 20 20 20 c8 95 20  |lag%....     .. |
00000f30  66 6c 61 67 25 0d 06 f4  04 0d 06 fe 0f 20 20 20  |flag%........   |
00000f40  20 20 f2 5f 44 6d 70 77  0d 07 08 2b 20 20 20 20  |  ._Dmpw...+    |
00000f50  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 52 65 63  | .. "Wimp_GetRec|
00000f60  74 61 6e 67 6c 65 22 2c  2c 71 25 20 b8 20 66 6c  |tangle",,q% . fl|
00000f70  61 67 25 0d 07 12 0a 20  20 20 20 20 ce 0d 07 1c  |ag%....     ....|
00000f80  06 20 20 0d 07 26 07 20  20 e1 0d 07 30 04 0d 07  |.  ..&.  ...0...|
00000f90  3a 0e dd 20 a4 70 6f 69  6e 74 53 71 0d 07 44 11  |:.. .pointSq..D.|
00000fa0  ea 20 58 25 2c 59 25 2c  42 25 2c 52 25 0d 07 4e  |. X%,Y%,B%,R%..N|
00000fb0  12 f2 5f 54 72 61 6e 73  28 6d 6f 6e 57 25 29 0d  |.._Trans(monW%).|
00000fc0  07 58 0f c8 97 20 58 25  2c 59 25 2c 42 25 0d 07  |.X... X%,Y%,B%..|
00000fd0  62 08 52 25 3d 30 0d 07  6c 29 e7 20 28 58 25 3c  |b.R%=0..l). (X%<|
00000fe0  28 78 6f 25 2b 33 30 29  20 80 20 59 25 3c 28 79  |(xo%+30) . Y%<(y|
00000ff0  6f 25 2b 33 30 29 20 29  20 8c 20 52 25 3d 31 0d  |o%+30) ) . R%=1.|
00001000  07 76 2e e7 20 28 58 25  3e 28 78 6f 25 2b 32 34  |.v.. (X%>(xo%+24|
00001010  36 2a 78 73 25 29 20 80  20 59 25 3c 28 79 6f 25  |6*xs%) . Y%<(yo%|
00001020  2b 33 30 29 20 29 20 8c  20 52 25 3d 32 0d 07 80  |+30) ) . R%=2...|
00001030  07 3d 52 25 0d 07 8a 04  0d 07 94 0c dd 20 f2 5f  |.=R%......... ._|
00001040  44 6d 70 77 0d 07 9e 0e  ea 20 41 25 2c 42 25 2c  |Dmpw..... A%,B%,|
00001050  56 25 0d 07 a8 12 f2 5f  54 72 61 6e 73 28 6d 6f  |V%....._Trans(mo|
00001060  6e 57 25 29 0d 07 b2 04  0d 07 bc 0e e3 20 42 25  |nW%)......... B%|
00001070  3d 31 20 b8 20 32 0d 07  c6 0e e3 20 41 25 3d 30  |=1 . 2..... A%=0|
00001080  20 b8 20 37 0d 07 d0 1c  56 25 3d 50 4f 52 54 25  | . 7....V%=PORT%|
00001090  28 42 25 29 20 80 20 31  3c 3c 28 37 2d 41 25 29  |(B%) . 1<<(7-A%)|
000010a0  0d 07 da 12 f2 5f 57 53  28 41 25 2c 42 25 2c 56  |....._WS(A%,B%,V|
000010b0  25 29 0d 07 e4 05 ed 0d  07 ee 17 f2 5f 48 65 78  |%).........._Hex|
000010c0  28 50 4f 52 54 25 28 42  25 29 2c 42 25 29 0d 07  |(PORT%(B%),B%)..|
000010d0  f8 05 ed 0d 08 02 06 ef  35 0d 08 0c 0e e3 20 41  |........5..... A|
000010e0  25 3d 30 20 b8 20 37 0d  08 16 1a ec 20 78 6f 25  |%=0 . 7..... xo%|
000010f0  2b 35 32 2b 41 25 2a 34  30 2c 79 6f 25 2b 31 30  |+52+A%*40,yo%+10|
00001100  36 0d 08 20 0a f1 3b 37  2d 41 25 0d 08 2a 05 ed  |6.. ..;7-A%..*..|
00001110  0d 08 34 15 ec 20 78 6f  25 2b 31 31 32 2c 79 6f  |..4.. xo%+112,yo|
00001120  25 2b 31 39 34 0d 08 3e  11 f1 22 49 6e 70 75 74  |%+194..>.."Input|
00001130  20 42 69 74 73 22 0d 08  48 15 ec 20 78 6f 25 2b  | Bits"..H.. xo%+|
00001140  31 30 38 2c 79 6f 25 2b  32 37 34 0d 08 52 12 f1  |108,yo%+274..R..|
00001150  22 4f 75 74 70 75 74 20  42 69 74 73 22 0d 08 5c  |"Output Bits"..\|
00001160  06 ef 34 0d 08 66 05 e1  0d 08 70 04 0d 08 7a 12  |..4..f....p...z.|
00001170  dd 20 f2 5f 48 65 78 28  56 25 2c 59 25 29 0d 08  |. ._Hex(V%,Y%)..|
00001180  84 08 ea 20 76 24 0d 08  8e 09 59 25 2b 3d 31 0d  |... v$....Y%+=1.|
00001190  08 98 39 e7 20 4c 45 44  20 8c 20 c8 99 22 57 69  |..9. LED . .."Wi|
000011a0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 30  |mp_SetColour",10|
000011b0  20 8b 20 c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  | . .."Wimp_SetCo|
000011c0  6c 6f 75 72 22 2c 31 35  0d 08 a2 19 e7 20 4e 63  |lour",15..... Nc|
000011d0  6f 6c 6f 75 72 73 25 3c  34 20 8c 20 e6 20 30 2c  |olours%<4 . . 0,|
000011e0  30 0d 08 ac 04 0d 08 b6  21 c8 93 c8 90 20 78 6f  |0.......!.... xo|
000011f0  25 2b 33 38 30 2c 79 6f  31 25 2b 34 30 2a 59 25  |%+380,yo1%+40*Y%|
00001200  2c 35 34 2c 34 30 0d 08  c0 18 c8 99 22 57 69 6d  |,54,40......"Wim|
00001210  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 08  |p_SetColour",7..|
00001220  ca 20 c8 93 20 78 6f 25  2b 20 33 38 30 2c 79 6f  |. .. xo%+ 380,yo|
00001230  31 25 2b 59 25 2a 34 30  2c 35 34 2c 34 30 0d 08  |1%+Y%*40,54,40..|
00001240  d4 06 ef 35 0d 08 de 1b  ec 20 78 6f 25 2b 33 38  |...5..... xo%+38|
00001250  34 2c 79 6f 31 25 2b 59  25 2a 34 30 2b 33 32 0d  |4,yo1%+Y%*40+32.|
00001260  08 e8 22 e7 20 56 25 3c  32 35 36 20 8c 20 76 24  |..". V%<256 . v$|
00001270  3d c3 7e 28 56 25 29 20  8b 20 76 24 3d 22 58 58  |=.~(V%) . v$="XX|
00001280  22 0d 08 f2 19 e7 20 a9  28 76 24 29 3d 31 20 8c  |"..... .(v$)=1 .|
00001290  20 76 24 3d 22 30 22 2b  76 24 0d 08 fc 0b f1 22  | v$="0"+v$....."|
000012a0  26 22 3b 76 24 0d 09 06  06 ef 34 0d 09 10 05 e1  |&";v$.....4.....|
000012b0  0d 09 1a 04 0d 09 24 14  dd 20 f2 5f 57 53 28 58  |......$.. ._WS(X|
000012c0  25 2c 59 25 2c 56 25 29  0d 09 2e 08 ea 20 53 25  |%,Y%,V%)..... S%|
000012d0  0d 09 38 09 53 25 3d 34  30 0d 09 42 12 79 6f 31  |..8.S%=40..B.yo1|
000012e0  25 3d 79 6f 25 2b 59 25  2a 53 25 0d 09 4c 0b e7  |%=yo%+Y%*S%..L..|
000012f0  20 4c 45 44 20 8c 0d 09  56 18 c8 99 22 57 69 6d  | LED ...V..."Wim|
00001300  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 37 0d 09  |p_SetColour",7..|
00001310  60 2f c8 8f c8 90 20 32  30 2b 78 6f 25 2b 20 53  |`/.... 20+xo%+ S|
00001320  25 20 2b 20 58 25 2a 53  25 2c 32 30 2b 79 6f 31  |% + X%*S%,20+yo1|
00001330  25 2b 53 25 2b 59 25 2a  53 25 2c 31 36 0d 09 6a  |%+S%+Y%*S%,16..j|
00001340  04 0d 09 74 29 e7 20 56  25 3d 30 20 80 20 4e 77  |...t). V%=0 . Nw|
00001350  25 3d a3 20 8c 20 c8 99  22 57 69 6d 70 5f 53 65  |%=. . .."Wimp_Se|
00001360  74 43 6f 6c 6f 75 72 22  2c 34 0d 09 7e 2b e7 20  |tColour",4..~+. |
00001370  56 25 3c 3e 30 20 80 20  4e 77 25 3d a3 20 8c 20  |V%<>0 . Nw%=. . |
00001380  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
00001390  72 22 2c 31 31 0d 09 88  22 e7 20 4e 77 25 3d b9  |r",11...". Nw%=.|
000013a0  20 8c 20 c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  | . .."Wimp_SetCo|
000013b0  6c 6f 75 72 22 2c 37 0d  09 92 04 0d 09 9c 20 e7  |lour",7....... .|
000013c0  20 4e 63 6f 6c 6f 75 72  73 25 3c 34 20 80 20 56  | Ncolours%<4 . V|
000013d0  25 3d 30 20 8c 20 e6 20  30 2c 30 0d 09 a6 2e c8  |%=0 . . 0,0.....|
000013e0  8f c8 90 20 32 30 2b 78  6f 25 2b 53 25 20 2b 20  |... 20+xo%+S% + |
000013f0  58 25 2a 53 25 2c 32 30  2b 79 6f 31 25 2b 53 25  |X%*S%,20+yo1%+S%|
00001400  2b 53 25 2a 59 25 2c 31  30 0d 09 b0 04 0d 09 ba  |+S%*Y%,10.......|
00001410  05 cc 0d 09 c4 32 e7 20  4e 63 6f 6c 6f 75 72 73  |.....2. Ncolours|
00001420  25 3e 31 35 20 8c 20 e6  20 30 2c 34 35 20 8b 20  |%>15 . . 0,45 . |
00001430  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
00001440  72 22 2c 30 0d 09 ce 2b  c8 93 c8 90 20 78 6f 25  |r",0...+.... xo%|
00001450  2b 53 25 20 2b 20 58 25  2a 53 25 2c 79 6f 31 25  |+S% + X%*S%,yo1%|
00001460  2b 53 25 2b 53 25 2a 59  25 2c 53 25 2c 53 25 0d  |+S%+S%*Y%,S%,S%.|
00001470  09 d8 18 c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  |....."Wimp_SetCo|
00001480  6c 6f 75 72 22 2c 37 0d  09 e2 2a c8 93 20 78 6f  |lour",7...*.. xo|
00001490  25 2b 20 53 25 20 2b 20  58 25 2a 53 25 2c 79 6f  |%+ S% + X%*S%,yo|
000014a0  31 25 2b 53 25 2b 59 25  2a 53 25 2c 53 25 2c 53  |1%+S%+Y%*S%,S%,S|
000014b0  25 0d 09 ec 06 ef 35 0d  09 f6 27 ec 20 78 6f 25  |%.....5...'. xo%|
000014c0  2b 53 25 2b 58 25 2a 53  25 2b 31 32 2c 79 6f 31  |+S%+X%*S%+12,yo1|
000014d0  25 2b 53 25 2a 32 2b 59  25 2a 53 25 2d 38 0d 0a  |%+S%*2+Y%*S%-8..|
000014e0  00 19 e7 20 56 25 3d 30  20 80 20 4e 77 25 3d a3  |... V%=0 . Nw%=.|
000014f0  20 8c 20 f1 22 30 22 0d  0a 0a 1a e7 20 56 25 3c  | . ."0"..... V%<|
00001500  3e 30 20 80 20 4e 77 25  3d a3 20 8c 20 f1 22 31  |>0 . Nw%=. . ."1|
00001510  22 0d 0a 14 12 e7 20 4e  77 25 3d b9 20 8c 20 f1  |"..... Nw%=. . .|
00001520  22 58 22 0d 0a 1e 06 ef  34 0d 0a 28 05 cd 0d 0a  |"X".....4..(....|
00001530  32 05 e1 0d 0a 3c 04 0d  0a 46 15 dd 20 f2 5f 55  |2....<...F.. ._U|
00001540  70 50 28 50 25 2c 56 25  2c 4d 25 29 0d 0a 50 12  |pP(P%,V%,M%)..P.|
00001550  ea 20 54 25 2c 41 25 2c  45 25 2c 4e 77 25 0d 0a  |. T%,A%,E%,Nw%..|
00001560  5a 33 20 20 71 25 21 30  3d 6d 6f 6e 57 25 3a 71  |Z3  q%!0=monW%:q|
00001570  25 21 34 3d 30 3a 71 25  21 38 3d 2d 32 35 30 3a  |%!4=0:q%!8=-250:|
00001580  71 25 21 31 32 3d 36 38  30 3a 71 25 21 31 36 3d  |q%!12=680:q%!16=|
00001590  30 0d 0a 64 27 20 20 c8  99 22 57 69 6d 70 5f 55  |0..d'  .."Wimp_U|
000015a0  70 64 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |pdateWindow",,q%|
000015b0  20 b8 20 4d 6f 72 65 25  0d 0a 6e 04 0d 0a 78 0d  | . More%..n...x.|
000015c0  20 c8 95 20 4d 6f 72 65  25 0d 0a 82 04 0d 0a 8c  | .. More%.......|
000015d0  25 20 20 e7 20 56 25 3e  32 35 35 20 80 20 50 25  |%  . V%>255 . P%|
000015e0  3d 31 20 8c 20 4e 77 25  3d b9 20 8b 20 4e 77 25  |=1 . Nw%=. . Nw%|
000015f0  3d a3 0d 0a 96 10 20 20  e3 20 41 25 3d 30 20 b8  |=.....  . A%=0 .|
00001600  20 37 0d 0a a0 17 20 20  54 25 3d 56 25 20 80 20  | 7....  T%=V% . |
00001610  31 3c 3c 28 37 2d 41 25  29 0d 0a aa 1e 20 20 45  |1<<(7-A%)....  E|
00001620  25 3d 50 4f 52 54 25 28  50 25 29 20 80 20 31 3c  |%=PORT%(P%) . 1<|
00001630  3c 28 37 2d 41 25 29 0d  0a b4 26 20 20 e7 20 54  |<(7-A%)...&  . T|
00001640  25 3c 3e 45 25 20 84 20  4d 25 3d 31 20 8c 20 f2  |%<>E% . M%=1 . .|
00001650  5f 57 53 28 41 25 2c 50  25 2c 54 25 29 0d 0a be  |_WS(A%,P%,T%)...|
00001660  07 20 20 ed 0d 0a c8 12  20 20 f2 5f 48 65 78 28  |.  .....  ._Hex(|
00001670  56 25 2c 50 25 29 0d 0a  d2 06 20 20 0d 0a dc 27  |V%,P%)....  ...'|
00001680  20 20 c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |  .."Wimp_GetRec|
00001690  74 61 6e 67 6c 65 22 2c  2c 71 25 20 b8 20 4d 6f  |tangle",,q% . Mo|
000016a0  72 65 25 0d 0a e6 06 20  ce 0d 0a f0 04 0d 0a fa  |re%.... ........|
000016b0  05 e1 0d 0b 04 04 0d 0b  0e 0a dd 20 a4 5f 57 72  |........... ._Wr|
000016c0  0d 0b 18 0c ea 20 54 59  25 2c 52 25 0d 0b 22 0f  |..... TY%,R%..".|
000016d0  20 54 59 25 3d 59 25 2d  79 6f 25 0d 0b 2c 09 20  | TY%=Y%-yo%..,. |
000016e0  52 25 3d 33 0d 0b 36 1f  20 e7 20 54 59 25 3e 3d  |R%=3..6. . TY%>=|
000016f0  34 30 20 80 20 54 59 25  3c 3d 38 30 20 8c 20 52  |40 . TY%<=80 . R|
00001700  25 3d 30 0d 0b 40 21 20  e7 20 54 59 25 3e 3d 31  |%=0..@! . TY%>=1|
00001710  32 30 20 80 20 54 59 25  3c 3d 31 36 30 20 8c 20  |20 . TY%<=160 . |
00001720  52 25 3d 31 0d 0b 4a 21  20 e7 20 54 59 25 3e 3d  |R%=1..J! . TY%>=|
00001730  32 30 30 20 80 20 54 59  25 3c 3d 32 34 30 20 8c  |200 . TY%<=240 .|
00001740  20 52 25 3d 32 0d 0b 54  07 3d 52 25 0d 0b 5e 0a  | R%=2..T.=R%..^.|
00001750  dd 20 a4 5f 57 62 0d 0b  68 08 ea 20 42 25 0d 0b  |. ._Wb..h.. B%..|
00001760  72 19 42 25 3d 37 2d a8  28 28 58 25 2d 78 6f 25  |r.B%=7-.((X%-xo%|
00001770  29 2f 34 30 2d 31 29 0d  0b 7c 18 e7 20 42 25 3e  |)/40-1)..|.. B%>|
00001780  37 20 84 20 42 25 3c 30  20 8c 20 42 25 3d 38 0d  |7 . B%<0 . B%=8.|
00001790  0b 86 07 3d 42 25 0d 0b  90 04 0d 0b 9a 0a dd 20  |...=B%......... |
000017a0  f2 5f 44 70 0d 0b a4 16  ea 20 58 25 2c 59 25 2c  |._Dp..... X%,Y%,|
000017b0  42 25 2c 6e 72 25 2c 6e  62 25 0d 0b ae 0f c8 97  |B%,nr%,nb%......|
000017c0  20 58 25 2c 59 25 2c 42  25 0d 0b b8 19 e7 20 58  | X%,Y%,B%..... X|
000017d0  25 3c 3e 4c 58 25 20 84  20 59 25 3c 3e 4c 59 25  |%<>LX% . Y%<>LY%|
000017e0  20 8c 0d 0b c2 13 20 f2  5f 54 72 61 6e 73 28 6d  | ..... ._Trans(m|
000017f0  6f 6e 57 25 29 0d 0b cc  18 20 6e 72 25 3d a4 5f  |onW%).... nr%=._|
00001800  57 72 20 3a 20 6e 62 25  3d a4 5f 57 62 0d 0b d6  |Wr : nb%=._Wb...|
00001810  1c 20 e7 20 6e 72 25 3c  3e 63 72 25 20 84 20 6e  |. . nr%<>cr% . n|
00001820  62 25 3c 3e 63 62 25 20  8c 0d 0b e0 16 20 20 20  |b%<>cb% .....   |
00001830  63 72 25 3d 6e 72 25 3a  63 62 25 3d 6e 62 25 0d  |cr%=nr%:cb%=nb%.|
00001840  0b ea 08 20 20 20 cd 0d  0b f4 12 20 4c 58 25 3d  |...   ..... LX%=|
00001850  58 25 3a 4c 59 25 3d 59  25 0d 0b fe 05 cd 0d 0c  |X%:LY%=Y%.......|
00001860  08 05 e1 0d 0c 12 04 0d  0c 1c 12 dd 20 f2 5f 54  |............ ._T|
00001870  72 61 6e 73 28 77 68 25  29 0d 0c 26 0b 21 71 25  |rans(wh%)..&.!q%|
00001880  3d 77 68 25 0d 0c 30 20  c8 99 20 22 57 69 6d 70  |=wh%..0 .. "Wimp|
00001890  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000018a0  2c 2c 71 25 0d 0c 3a 28  78 6f 25 3d 71 25 21 34  |,,q%..:(xo%=q%!4|
000018b0  2d 71 25 21 32 30 2b 38  3a 79 6f 25 3d 71 25 21  |-q%!20+8:yo%=q%!|
000018c0  31 36 2d 71 25 21 32 34  2d 32 39 30 0d 0c 44 16  |16-q%!24-290..D.|
000018d0  58 4f 25 3d 71 25 21 34  3a 59 4f 25 3d 71 25 21  |XO%=q%!4:YO%=q%!|
000018e0  31 36 0d 0c 4e 05 e1 0d  0c 58 04 0d 0c 62 0f dd  |16..N....X...b..|
000018f0  f2 73 65 74 75 70 6d 65  6e 75 0d 0c 6c 08 ea 20  |.setupmenu..l.. |
00001900  6d 25 0d 0c 76 04 0d 0c  80 16 24 6d 65 6e 75 25  |m%..v.....$menu%|
00001910  3d 22 53 65 72 69 61 6c  4d 6f 6e 22 0d 0c 8a 0e  |="SerialMon"....|
00001920  6d 65 6e 75 25 3f 31 32  3d 37 0d 0c 94 0e 6d 65  |menu%?12=7....me|
00001930  6e 75 25 3f 31 33 3d 32  0d 0c 9e 0e 6d 65 6e 75  |nu%?13=2....menu|
00001940  25 3f 31 34 3d 37 0d 0c  a8 0e 6d 65 6e 75 25 3f  |%?14=7....menu%?|
00001950  31 35 3d 30 0d 0c b2 10  6d 65 6e 75 25 21 31 36  |15=0....menu%!16|
00001960  3d 31 32 38 0d 0c bc 0f  6d 65 6e 75 25 21 32 30  |=128....menu%!20|
00001970  3d 34 30 0d 0c c6 0e 6d  65 6e 75 25 21 32 34 3d  |=40....menu%!24=|
00001980  30 0d 0c d0 0f 6d 25 3d  6d 65 6e 75 25 2b 32 38  |0....m%=menu%+28|
00001990  0d 0c da 0a 6d 25 21 30  3d 30 0d 0c e4 0e 6d 25  |....m%!0=0....m%|
000019a0  21 34 3d 69 6e 66 6f 25  0d 0c ee 18 6d 25 21 38  |!4=info%....m%!8|
000019b0  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
000019c0  0d 0c f8 13 24 28 6d 25  2b 31 32 29 3d 22 49 6e  |....$(m%+12)="In|
000019d0  66 6f 22 0d 0d 02 04 0d  0d 0c 0a 6d 25 2b 3d 32  |fo"........m%+=2|
000019e0  34 0d 0d 16 0a 6d 25 21  30 3d 31 0d 0d 20 0a 6d  |4....m%!0=1.. .m|
000019f0  25 21 34 3d 30 0d 0d 2a  18 6d 25 21 38 3d 28 37  |%!4=0..*.m%!8=(7|
00001a00  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 0d 34  |<<24). %10001..4|
00001a10  15 24 28 6d 25 2b 31 32  29 3d 22 42 69 6e 61 72  |.$(m%+12)="Binar|
00001a20  79 22 0d 0d 3e 04 0d 0d  48 0a 6d 25 2b 3d 32 34  |y"..>...H.m%+=24|
00001a30  0d 0d 52 0a 6d 25 21 30  3d 30 0d 0d 5c 0a 6d 25  |..R.m%!0=0..\.m%|
00001a40  21 34 3d 30 0d 0d 66 18  6d 25 21 38 3d 28 37 3c  |!4=0..f.m%!8=(7<|
00001a50  3c 32 34 29 84 20 25 31  30 30 30 31 0d 0d 70 12  |<24). %10001..p.|
00001a60  24 28 6d 25 2b 31 32 29  3d 22 4c 45 44 22 0d 0d  |$(m%+12)="LED"..|
00001a70  7a 04 0d 0d 84 0a 6d 25  2b 3d 32 34 0d 0d 8e 0c  |z.....m%+=24....|
00001a80  6d 25 21 30 3d 26 38 30  0d 0d 98 0a 6d 25 21 34  |m%!0=&80....m%!4|
00001a90  3d 30 0d 0d a2 18 6d 25  21 38 3d 28 37 3c 3c 32  |=0....m%!8=(7<<2|
00001aa0  34 29 84 20 25 31 30 30  30 31 0d 0d ac 13 24 28  |4). %10001....$(|
00001ab0  6d 25 2b 31 32 29 3d 22  51 75 69 74 22 0d 0d b6  |m%+12)="Quit"...|
00001ac0  04 0d 0d c0 05 e1 0d 0d  ca 04 0d 0d d4 12 dd 20  |............... |
00001ad0  f2 72 65 63 65 69 76 65  28 71 25 29 0d 0d de 08  |.receive(q%)....|
00001ae0  ea 20 41 25 0d 0d e8 0c  41 25 3d 71 25 21 31 36  |. A%....A%=q%!16|
00001af0  0d 0d f2 0b c8 8e 20 41  25 20 ca 0d 0d fc 0c c9  |...... A% ......|
00001b00  20 30 3a f2 64 69 65 0d  0e 06 14 c9 20 26 35 30  | 0:.die..... &50|
00001b10  32 3a 20 20 20 c8 8e 20  b9 20 ca 0d 0e 10 73 20  |2:   .. . ....s |
00001b20  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 71 25  |            . q%|
00001b30  21 33 32 3d 2d 32 20 80  20 71 25 21 33 36 3d 73  |!32=-2 . q%!36=s|
00001b40  6d 70 69 63 6f 6e 25 3a  6d 65 73 24 3d 22 54 68  |mpicon%:mes$="Th|
00001b50  69 73 20 69 73 20 74 68  65 20 53 65 72 69 61 6c  |is is the Serial|
00001b60  20 4d 6f 6e 69 74 6f 72  20 69 63 6f 6e 2e 7c 4d  | Monitor icon.|M|
00001b70  54 65 73 74 20 66 6f 72  20 53 65 72 69 61 6c 20  |Test for Serial |
00001b80  49 2f 4f 20 69 6e 74 65  72 66 61 63 65 22 0d 0e  |I/O interface"..|
00001b90  1a 1a 20 20 20 20 20 20  20 20 20 20 20 20 20 7f  |..             .|
00001ba0  3a 6d 65 73 24 3d 22 22  0d 0e 24 12 20 20 20 20  |:mes$=""..$.    |
00001bb0  20 20 20 20 20 20 20 20  20 cb 0d 0e 2e 14 20 20  |         .....  |
00001bc0  20 20 e7 20 6d 65 73 24  3c 3e 22 22 20 8c 0d 0e  |  . mes$<>"" ...|
00001bd0  38 12 20 20 20 20 71 25  21 31 32 3d 71 25 21 38  |8.    q%!12=q%!8|
00001be0  0d 0e 42 18 20 20 20 20  24 28 71 25 2b 32 30 29  |..B.    $(q%+20)|
00001bf0  3d 6d 65 73 24 2b bd 30  0d 0e 4c 1e 20 20 20 20  |=mes$+.0..L.    |
00001c00  71 25 21 30 3d 28 32 30  2b a9 6d 65 73 24 2b 34  |q%!0=(20+.mes$+4|
00001c10  29 80 20 ac 20 33 0d 0e  56 12 20 20 20 20 71 25  |). . 3..V.    q%|
00001c20  21 31 36 3d 26 35 30 33  0d 0e 60 28 20 20 20 20  |!16=&503..`(    |
00001c30  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00001c40  73 61 67 65 22 2c 31 38  2c 71 25 2c 71 25 21 34  |sage",18,q%,q%!4|
00001c50  0d 0e 6a 05 cb 0d 0e 74  05 e1 0d 0e 7e 04 0d 0e  |..j....t....~...|
00001c60  88 0c dd 20 f2 5f 44 61  63 6b 0d 0e 92 10 73 65  |... ._Dack....se|
00001c70  6e 64 74 68 25 3d 71 25  21 34 0d 0e 9c 0f 6d 79  |ndth%=q%!4....my|
00001c80  72 65 66 25 3d 71 25 21  38 0d 0e a6 22 c8 99 20  |ref%=q%!8...".. |
00001c90  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00001ca0  49 6e 66 6f 22 2c 2c 71  25 2b 38 0d 0e b0 0e 71  |Info",,q%+8....q|
00001cb0  25 21 32 38 3d 71 25 21  38 0d 0e ba 0f 71 25 21  |%!28=q%!8....q%!|
00001cc0  33 32 3d 71 25 21 31 32  0d 0e c4 18 71 25 21 30  |32=q%!12....q%!0|
00001cd0  3d 28 34 34 2b a9 6e 24  2b 34 29 80 20 ac 20 33  |=(44+.n$+4). . 3|
00001ce0  0d 0e ce 10 71 25 21 31  32 3d 6d 79 72 65 66 25  |....q%!12=myref%|
00001cf0  0d 0e d8 0b 71 25 21 31  36 3d 34 0d 0e e2 0c 71  |....q%!16=4....q|
00001d00  25 21 33 36 3d 2d 31 0d  0e ec 0e 71 25 21 34 30  |%!36=-1....q%!40|
00001d10  3d 26 46 46 39 0d 0e f6  12 24 28 71 25 2b 34 34  |=&FF9....$(q%+44|
00001d20  29 3d 6e 24 2b bd 30 0d  0f 00 27 c8 99 20 22 57  |)=n$+.0...'.. "W|
00001d30  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001d40  2c 31 37 2c 71 25 2c 73  65 6e 64 74 68 25 0d 0f  |,17,q%,sendth%..|
00001d50  0a 05 cd 0d 0f 14 05 e1  0d 0f 1e 04 0d 0f 28 0e  |..............(.|
00001d60  dd a4 73 67 65 74 28 78  25 29 0d 0f 32 08 ea 20  |..sget(x%)..2.. |
00001d70  78 24 0d 0f 3c 1d c8 95  20 3f 78 25 20 78 24 2b  |x$..<... ?x% x$+|
00001d80  3d bd 28 3f 78 25 29 3a  78 25 2b 3d 31 3a ce 0d  |=.(?x%):x%+=1:..|
00001d90  0f 46 07 3d 78 24 0d 0f  50 04 0d 0f 5a 0a dd a4  |.F.=x$..P...Z...|
00001da0  69 63 6f 6e 0d 0f 64 0b  71 25 21 30 3d 2d 31 0d  |icon..d.q%!0=-1.|
00001db0  0f 6e 0a 71 25 21 34 3d  30 0d 0f 78 1b 71 25 21  |.n.q%!4=0..x.q%!|
00001dc0  38 3d 31 30 20 3a 20 f4  20 59 20 44 49 52 45 43  |8=10 : . Y DIREC|
00001dd0  54 49 4f 4e 0d 0f 82 1c  71 25 21 31 32 3d 37 30  |TION....q%!12=70|
00001de0  20 3a 20 f4 20 58 20 44  49 52 45 43 54 49 4f 4e  | : . X DIRECTION|
00001df0  0d 0f 8c 0c 71 25 21 31  36 3d 39 36 0d 0f 96 0f  |....q%!16=96....|
00001e00  71 25 21 32 30 3d 26 32  30 30 32 0d 0f a0 19 24  |q%!20=&2002....$|
00001e10  28 71 25 2b 32 34 29 3d  22 21 53 65 72 69 61 6c  |(q%+24)="!Serial|
00001e20  4d 6f 6e 22 0d 0f aa 24  c8 99 20 22 57 69 6d 70  |Mon"...$.. "Wimp|
00001e30  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 71 25  |_CreateIcon",,q%|
00001e40  20 b8 20 69 63 6f 6e 25  0d 0f b4 0a 3d 69 63 6f  | . icon%....=ico|
00001e50  6e 25 0d 0f be 04 0d 0f  c8 12 dd 20 f2 5f 73 65  |n%......... ._se|
00001e60  74 75 70 57 28 74 24 29  0d 0f d2 58 21 71 25 3d  |tupW(t$)...X!q%=|
00001e70  77 61 72 6e 69 6e 67 57  25 3a 71 25 21 34 3d 32  |warningW%:q%!4=2|
00001e80  30 30 3a 71 25 21 38 3d  32 30 30 3a 71 25 21 31  |00:q%!8=200:q%!1|
00001e90  32 3d 32 30 30 2b 58 51  25 3a 71 25 21 31 36 3d  |2=200+XQ%:q%!16=|
00001ea0  32 30 30 2b 59 51 25 3a  71 25 21 32 30 3d 30 3a  |200+YQ%:q%!20=0:|
00001eb0  71 25 21 32 34 3d 30 3a  71 25 21 32 38 3d 2d 31  |q%!24=0:q%!28=-1|
00001ec0  0d 0f dc 11 24 54 65 78  74 57 61 72 6e 25 3d 74  |....$TextWarn%=t|
00001ed0  24 0d 0f e6 15 54 65 78  74 57 61 72 6e 25 3f a9  |$....TextWarn%?.|
00001ee0  28 74 24 29 3d 30 0d 0f  f0 07 ef 20 37 0d 0f fa  |(t$)=0..... 7...|
00001ef0  0d 77 61 72 6e 4f 6e 25  3d b9 0d 10 04 1c c8 99  |.warnOn%=.......|
00001f00  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00001f10  77 22 2c 2c 71 25 0d 10  0e 05 e1 0d 10 18 04 0d  |w",,q%..........|
00001f20  10 22 0f dd 20 f2 65 72  72 6f 72 62 6f 78 0d 10  |.".. .errorbox..|
00001f30  2c 19 c8 99 20 22 57 69  6d 70 5f 44 72 61 67 42  |,... "Wimp_DragB|
00001f40  6f 78 22 2c 2c 2d 31 0d  10 36 32 21 62 75 66 66  |ox",,-1..62!buff|
00001f50  65 72 73 25 3d 9f 3a 24  28 62 75 66 66 65 72 73  |ers%=.:$(buffers|
00001f60  25 2b 34 29 3d f6 24 2b  22 20 61 74 20 6c 69 6e  |%+4)=.$+" at lin|
00001f70  65 20 22 2b c3 9e 2b bd  30 0d 10 40 3a c8 99 20  |e "+..+.0..@:.. |
00001f80  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00001f90  72 22 2c 62 75 66 66 65  72 73 25 2c 31 2c 22 53  |r",buffers%,1,"S|
00001fa0  65 72 69 61 6c 20 50 6f  72 74 20 4d 6f 6e 69 74  |erial Port Monit|
00001fb0  6f 72 22 0d 10 4a 08 f2  64 69 65 0d 10 54 05 e1  |or"..J..die..T..|
00001fc0  0d 10 5e 04 0d 10 68 09  dd f2 64 69 65 0d 10 72  |..^...h...die..r|
00001fd0  2a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |*.. "Wimp_CloseD|
00001fe0  6f 77 6e 22 2c 74 61 73  6b 68 61 6e 64 25 2c 21  |own",taskhand%,!|
00001ff0  74 61 73 6b 69 64 25 0d  10 7c 05 e0 0d 10 86 05  |taskid%..|......|
00002000  e1 0d 10 90 04 0d 10 9a  2e dd 20 f2 64 72 61 67  |.......... .drag|
00002010  69 63 6f 6e 28 6d 6f 75  73 65 78 25 2c 6d 6f 75  |icon(mousex%,mou|
00002020  73 65 79 25 2c 68 61 6e  64 6c 65 25 2c 69 63 6f  |sey%,handle%,ico|
00002030  6e 25 29 0d 10 a4 21 ea  20 62 78 25 2c 62 79 25  |n%)...!. bx%,by%|
00002040  2c 69 78 30 25 2c 69 79  30 25 2c 69 78 31 25 2c  |,ix0%,iy0%,ix1%,|
00002050  69 79 31 25 0d 10 ae 12  f2 67 65 74 77 28 68 61  |iy1%.....getw(ha|
00002060  6e 64 6c 65 25 29 0d 10  b8 18 f2 67 65 74 69 28  |ndle%).....geti(|
00002070  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 29 0d 10  |handle%,icon%)..|
00002080  c2 16 21 71 25 3d 68 61  6e 64 6c 65 25 3a 71 25  |..!q%=handle%:q%|
00002090  21 34 3d 35 0d 10 cc 3e  71 25 21 38 3d 62 78 25  |!4=5...>q%!8=bx%|
000020a0  2b 69 78 30 25 3a 71 25  21 31 32 3d 62 79 25 2b  |+ix0%:q%!12=by%+|
000020b0  69 79 30 25 3a 71 25 21  31 36 3d 62 78 25 2b 69  |iy0%:q%!16=bx%+i|
000020c0  78 31 25 3a 71 25 21 32  30 3d 62 79 25 2b 69 79  |x1%:q%!20=by%+iy|
000020d0  31 25 0d 10 d6 2a 71 25  21 32 34 3d 71 25 21 38  |1%...*q%!24=q%!8|
000020e0  2d 6d 6f 75 73 65 78 25  3a 71 25 21 32 38 3d 71  |-mousex%:q%!28=q|
000020f0  25 21 31 32 2d 6d 6f 75  73 65 79 25 0d 10 e0 19  |%!12-mousey%....|
00002100  c8 99 20 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |.. "Wimp_DragBox|
00002110  22 2c 2c 71 25 0d 10 ea  0c 53 46 4c 41 47 25 3d  |",,q%....SFLAG%=|
00002120  b9 0d 10 f4 05 e1 0d 10  fe 04 0d 11 08 14 dd 20  |............... |
00002130  f2 67 65 74 77 28 68 61  6e 64 6c 65 25 29 0d 11  |.getw(handle%)..|
00002140  12 38 21 71 25 3d 68 61  6e 64 6c 65 25 3a c8 99  |.8!q%=handle%:..|
00002150  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00002160  53 74 61 74 65 22 2c 2c  71 25 3a f2 69 6e 66 6f  |State",,q%:.info|
00002170  28 71 25 2b 34 29 0d 11  1c 05 e1 0d 11 26 12 dd  |(q%+4).......&..|
00002180  20 f2 67 65 74 69 28 68  25 2c 69 25 29 0d 11 30  | .geti(h%,i%)..0|
00002190  2d 21 71 25 3d 68 25 3a  71 25 21 34 3d 69 25 3a  |-!q%=h%:q%!4=i%:|
000021a0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
000021b0  53 74 61 74 65 22 2c 2c  71 25 0d 11 3a 2e 69 78  |State",,q%..:.ix|
000021c0  30 25 3d 71 25 21 38 3a  69 79 30 25 3d 71 25 21  |0%=q%!8:iy0%=q%!|
000021d0  31 32 3a 69 78 31 25 3d  71 25 21 31 36 3a 69 79  |12:ix1%=q%!16:iy|
000021e0  31 25 3d 71 25 21 32 30  0d 11 44 1e 69 66 6c 61  |1%=q%!20..D.ifla|
000021f0  67 73 25 3d 71 25 21 32  34 3a 69 64 61 74 61 25  |gs%=q%!24:idata%|
00002200  3d 71 25 2b 32 38 0d 11  4e 05 e1 0d 11 58 04 0d  |=q%+28..N....X..|
00002210  11 62 0f dd 20 f2 69 6e  66 6f 28 70 25 29 0d 11  |.b.. .info(p%)..|
00002220  6c 0d ea 20 78 30 25 2c  79 30 25 0d 11 76 27 78  |l.. x0%,y0%..v'x|
00002230  30 25 3d 21 70 25 3a 79  30 25 3d 70 25 21 34 3a  |0%=!p%:y0%=p%!4:|
00002240  78 31 25 3d 70 25 21 38  3a 79 31 25 3d 70 25 21  |x1%=p%!8:y1%=p%!|
00002250  31 32 0d 11 80 35 73 63  78 25 3d 70 25 21 31 36  |12...5scx%=p%!16|
00002260  3a 73 63 79 25 3d 70 25  21 32 30 3a 62 68 61 6e  |:scy%=p%!20:bhan|
00002270  64 6c 65 25 3d 70 25 21  32 34 3a 66 6c 61 67 73  |dle%=p%!24:flags|
00002280  25 3d 70 25 21 32 38 0d  11 8a 1d 62 78 25 3d 78  |%=p%!28....bx%=x|
00002290  30 25 2d 73 63 78 25 3a  62 79 25 3d 79 31 25 2d  |0%-scx%:by%=y1%-|
000022a0  73 63 79 25 0d 11 94 05  e1 0d 11 9e 04 0d 11 a8  |scy%............|
000022b0  10 dd 20 f2 5f 4b 65 79  50 72 65 73 73 0d 11 b2  |.. ._KeyPress...|
000022c0  0d c8 8e 20 71 25 21 30  20 ca 0d 11 bc 2b f4 20  |... q%!0 ....+. |
000022d0  4f 54 48 45 52 57 49 53  45 3a 20 53 59 53 22 57  |OTHERWISE: SYS"W|
000022e0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
000022f0  71 25 21 32 34 0d 11 c6  05 cb 0d 11 d0 05 e1 0d  |q%!24...........|
00002300  11 da 04 0d ff                                    |.....|
00002305

© Dominic Ford 2021–2025.

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