PD/BACKDROP/!StickyBrd/ExtModls/Command/Module

Home » Archimedes archive » Acorn Computing » 1994 04 subscription disc.adf » 9404s » PD/BACKDROP/!StickyBrd/ExtModls/Command/Module

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 Computing » 1994 04 subscription disc.adf » 9404s
Filename:	PD/BACKDROP/!StickyBrd/ExtModls/Command/Module
Read OK:	✔
File size:	120C bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > <StickyBrdExt$Dir>.Command.Module
   20
   30REM StickyBrd Extension module 'Command'
   40
   50REM Code LEN David J. Seery 1992
   60
   70REM *************************** INITIALISE ******************************
   80
   90DEF FNcommand_init
  100DIM command_mblk% 80,command_indir% &300
  110mblk%=command_mblk%
  120PROCheader("Command",8)
  130PROCentry(1<<3,-1,&07000021,"Info"):REM sub-window field filled in by
  140                                    REM !StickyBrd
  150PROCentry(&80,-1,&07000021,"New...")
  160command_info%=FNmodl_init("Command","Execute '*' Commands","� David J. Seery","0.15 (20 Oct 1992)",77,command_mblk%)
  170SYS "XWimp_OpenTemplate",,"<StickyBrdExt$Dir>.Command.Templates" TO ;flg%
  180IF (flg% AND 1) OSCLI "ERROR 0 Cannot load template"
  190SYS "XWimp_LoadTemplate",,pointer%,command_indir%,command_indir%+&300,-1,"command",0
  200SYS "XWimp_CreateWindow",,pointer% TO command_window%
  210OSCLI "IconSprites <StickyBrdExt$Dir>.Command.Sprites":reply=FALSE
  220=0
  230
  240REM ************************* EVENT HANDLER *****************************
  250
  260DEF FNcommand_event(r0,r1)
  270CASE r0 OF
  280WHEN 1  : CASE !r1 OF
  290          WHEN 1 : PROCopenup(command_window%,100,723,648,260)
  300                  SYS "Wimp_SetCaretPosition",command_window%,0,,,-1,LEN(FNgeticondata(command_window%,0))
  310          ENDCASE
  320WHEN 3  : =FNcommand_help(r1!0,r1!4)
  330WHEN 4  : PROCcommand_exec(r1)
  340WHEN 5  : CASE r1!8 OF
  350          WHEN 4 : CASE r1!0 OF
  360           WHEN command_window% : CASE r1!4 OF
  370            WHEN 5 : t%=FNmodl_interface(10,r1):PROCcommand_new
  380            WHEN 6 : t%=FNmodl_interface(10,r1):PROCshut(command_window%)
  390            ENDCASE
  400           ENDCASE
  410          ENDCASE
  420WHEN 6  : =FNcommand_trans(r1!0)
  430WHEN 7  : =FNcommand_handle($r1)
  440WHEN 8  : =FNcommand_xw($r1)
  450WHEN 9  : =FNcommand_yh($r1)
  460WHEN 12 : =FNcommand_remove(!r1,r1!4)
  470WHEN 15 : =FNcommand_clear(!r1,$(r1+4))
  480ENDCASE
  490IF reply reply=FALSE:dummy=FNmodl_interface(12,pointer%)
  500=0
  510
  520REM ***************************** NEW ICON ******************************
  530
  540DEF PROCcommand_new
  550SYS "Wimp_GetPointerInfo",,pointer%
  560x=(pointer%!0)-32:y=(pointer%!4)+32
  570title$=FNgeticondata(command_window%,0)
  580command$=FNgeticondata(command_window%,1)
  590$pointer%="command":$(pointer%+12)=command$+"."+title$
  600pointer%!24=x:pointer%!28=y:pointer%!32=4:pointer%!36=1
  610dummy=FNmodl_interface(4,pointer%)
  620PROCshut(command_window%)
  630ENDPROC
  640
  650REM ************************** EXECUTE COMMAND **************************
  660
  670DEF PROCcommand_exec(block)
  680CASE block!8 OF
  690WHEN 4 : command_exec$=FNfirstbit($(block+12))
  700         command_exec$=RIGHT$(command_exec$,LEN(command_exec$)-1)
  710         OSCLI("WimpTask "+command_exec$)
  720ENDCASE
  730ENDPROC
  740
  750REM ******************** TRANSLATE HANDLE TO NAME ***********************
  760
  770DEF FNcommand_trans(handle)
  780CASE handle OF
  790WHEN command_info%   : $pointer%="ComInfo":=pointer%
  800WHEN command_window% : $pointer%="NewCmnd":=pointer%
  810ENDCASE
  820=0
  830
  840REM ******************** TRANSLATE NAME TO HANDLE ***********************
  850
  860DEF FNcommand_handle(name$)
  870CASE name$ OF
  880WHEN "ComInfo" : =command_info%
  890WHEN "NewCmnd" : =command_window%
  900ENDCASE
  910=0
  920
  930REM ************************** PASS X WIDTH *****************************
  940
  950DEF FNcommand_xw(name$)
  960CASE name$ OF
  970WHEN "ComInfo" : =650
  980WHEN "NewCmnd" : =648
  990ENDCASE
 1000=0
 1010
 1020REM ************************* PASS Y HEIGHT *****************************
 1030
 1040DEF FNcommand_yh(name$)
 1050CASE name$ OF
 1060WHEN "ComInfo" : =380
 1070WHEN "NewCmnd" : =260
 1080ENDCASE
 1090=0
 1100
 1110REM *************************** GIVE HELP *****************************
 1120
 1130DEF FNcommand_help(w,i)
 1140CASE w OF
 1150WHEN command_window% : $pointer%="This is the 'New Command' Window.|MUse it to place a new command on the desktop.":=pointer%
 1160WHEN command_info%   : $pointer%="This is the 'Command' info window.|MIt gives infomation on the extension module 'Command'.":=pointer%
 1170ENDCASE
 1180=0
 1190
 1200REM *************************** CLEAR ALL *****************************
 1210
 1220DEF FNcommand_clear(ctype,cfile$)
 1230REPEAT
 1240!pointer%=4:exists%=FNmodl_interface(11,pointer%)
 1250IF exists%>0 THEN
 1260 !pointer%=exists%
 1270 dummy=FNmodl_interface(5,pointer%)
 1280ENDIF
 1290UNTIL exists%=0
 1300=0
 1310
 1320REM ************************** REMOVE ICON ****************************
 1330
 1340DEF FNcommand_remove(icon%,type%)
 1350IF type%=4 THEN
 1360 pointer%!0=icon%
 1370 dummy=FNmodl_interface(5,pointer%)
 1380ENDIF
 1390=0
 1400
 1410REM *********************** MESSAGE RECEIVED *************************
 1420
 1430DEF FNcommand_message(message,block)
 1440CASE message OF
 1450 WHEN 0 : IF $block="Command" THEN
 1460           pointer%!0=1:pointer%!4=pointer%+200
 1470           $(pointer%+200)="Command"
 1480           pointer%!212=command_info%
 1490           pointer%!216=command_mblk%
 1500           reply=TRUE
 1510          ENDIF
 1520ENDCASE
 1530=0


)� > <StickyBrdExt$Dir>.Command.Module

*� StickyBrd Extension module 'Command'
(
2 � Code � David J. Seery 1992
<
FK� *************************** INITIALISE ******************************
P
Z� �command_init
d*� command_mblk% 80,command_indir% &300
nmblk%=command_mblk%
x�header("Command",8)
�D�entry(1<<3,-1,&07000021,"Info"):� sub-window field filled in by
�4                                    � !StickyBrd
�%�entry(&80,-1,&07000021,"New...")
�wcommand_info%=�modl_init("Command","Execute '*' Commands","� David J. Seery","0.15 (20 Oct 1992)",77,command_mblk%)
�Kș "XWimp_OpenTemplate",,"<StickyBrdExt$Dir>.Command.Templates" � ;flg%
�1� (flg% � 1) � "ERROR 0 Cannot load template"
�Wș "XWimp_LoadTemplate",,pointer%,command_indir%,command_indir%+&300,-1,"command",0
�7ș "XWimp_CreateWindow",,pointer% � command_window%
�>� "IconSprites <StickyBrdExt$Dir>.Command.Sprites":reply=�
�=0
�
�K� ************************* EVENT HANDLER *****************************
�
� �command_event(r0,r1)
Ȏ r0 �
� 1  : Ȏ !r1 �
"<          � 1 : �openup(command_window%,100,723,648,260)
,j                  ș "Wimp_SetCaretPosition",command_window%,0,,,-1,�(�geticondata(command_window%,0))
6          �
@$� 3  : =�command_help(r1!0,r1!4)
J� 4  : �command_exec(r1)
T� 5  : Ȏ r1!8 �
^          � 4 : Ȏ r1!0 �
h,           � command_window% : Ȏ r1!4 �
r<            � 5 : t%=�modl_interface(10,r1):�command_new
|F            � 6 : t%=�modl_interface(10,r1):�shut(command_window%)
�            �
�           �
�          �
� � 6  : =�command_trans(r1!0)
� � 7  : =�command_handle($r1)
�� 8  : =�command_xw($r1)
�� 9  : =�command_yh($r1)
�%� 12 : =�command_remove(!r1,r1!4)
�'� 15 : =�command_clear(!r1,$(r1+4))
��
�6� reply reply=�:dummy=�modl_interface(12,pointer%)
�=0
�
K� ***************************** NEW ICON ******************************

� �command_new
&&ș "Wimp_GetPointerInfo",,pointer%
0'x=(pointer%!0)-32:y=(pointer%!4)+32
:*title$=�geticondata(command_window%,0)
D,command$=�geticondata(command_window%,1)
N:$pointer%="command":$(pointer%+12)=command$+"."+title$
X;pointer%!24=x:pointer%!28=y:pointer%!32=4:pointer%!36=1
b%dummy=�modl_interface(4,pointer%)
l�shut(command_window%)
v�
�
�K� ************************** EXECUTE COMMAND **************************
�
�� �command_exec(block)
�Ȏ block!8 �
�.� 4 : command_exec$=�firstbit($(block+12))
�=         command_exec$=�command_exec$,�(command_exec$)-1)
�)         �("WimpTask "+command_exec$)
��
��
�
�K� ******************** TRANSLATE HANDLE TO NAME ***********************
�
� �command_trans(handle)
Ȏ handle �
5� command_info%   : $pointer%="ComInfo":=pointer%
 5� command_window% : $pointer%="NewCmnd":=pointer%
*�
4=0
>
HK� ******************** TRANSLATE NAME TO HANDLE ***********************
R
\� �command_handle(name$)
fȎ name$ �
p � "ComInfo" : =command_info%
z"� "NewCmnd" : =command_window%
��
�=0
�
�K� ************************** PASS X WIDTH *****************************
�
�� �command_xw(name$)
�Ȏ name$ �
�� "ComInfo" : =650
�� "NewCmnd" : =648
��
�=0
�
�K� ************************* PASS Y HEIGHT *****************************

� �command_yh(name$)
Ȏ name$ �
$� "ComInfo" : =380
.� "NewCmnd" : =260
8�
B=0
L
VI� *************************** GIVE HELP *****************************
`
j� �command_help(w,i)
t
Ȏ w �
~~� command_window% : $pointer%="This is the 'New Command' Window.|MUse it to place a new command on the desktop.":=pointer%
��� command_info%   : $pointer%="This is the 'Command' info window.|MIt gives infomation on the extension module 'Command'.":=pointer%
��
�=0
�
�I� *************************** CLEAR ALL *****************************
�
�"� �command_clear(ctype,cfile$)
��
�4!pointer%=4:exists%=�modl_interface(11,pointer%)
�� exists%>0 �
� !pointer%=exists%
�& dummy=�modl_interface(5,pointer%)
�

� exists%=0
=0

(I� ************************** REMOVE ICON ****************************
2
<"� �command_remove(icon%,type%)
F� type%=4 �
P pointer%!0=icon%
Z& dummy=�modl_interface(5,pointer%)
d�
n=0
x
�H� *********************** MESSAGE RECEIVED *************************
�
�%� �command_message(message,block)
�Ȏ message �
� � 0 : � $block="Command" �
�3           pointer%!0=1:pointer%!4=pointer%+200
�(           $(pointer%+200)="Command"
�)           pointer%!212=command_info%
�)           pointer%!216=command_mblk%
�           reply=�
�          �
��
�=0
�

00000000  0d 00 0a 29 f4 20 3e 20  3c 53 74 69 63 6b 79 42  |...). > <StickyB|
00000010  72 64 45 78 74 24 44 69  72 3e 2e 43 6f 6d 6d 61  |rdExt$Dir>.Comma|
00000020  6e 64 2e 4d 6f 64 75 6c  65 0d 00 14 04 0d 00 1e  |nd.Module.......|
00000030  2a f4 20 53 74 69 63 6b  79 42 72 64 20 45 78 74  |*. StickyBrd Ext|
00000040  65 6e 73 69 6f 6e 20 6d  6f 64 75 6c 65 20 27 43  |ension module 'C|
00000050  6f 6d 6d 61 6e 64 27 0d  00 28 04 0d 00 32 20 f4  |ommand'..(...2 .|
00000060  20 43 6f 64 65 20 a9 20  44 61 76 69 64 20 4a 2e  | Code . David J.|
00000070  20 53 65 65 72 79 20 31  39 39 32 0d 00 3c 04 0d  | Seery 1992..<..|
00000080  00 46 4b f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.FK. ***********|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000a0  20 49 4e 49 54 49 41 4c  49 53 45 20 2a 2a 2a 2a  | INITIALISE ****|
000000b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 50 04 0d 00  |**********..P...|
000000d0  5a 13 dd 20 a4 63 6f 6d  6d 61 6e 64 5f 69 6e 69  |Z.. .command_ini|
000000e0  74 0d 00 64 2a de 20 63  6f 6d 6d 61 6e 64 5f 6d  |t..d*. command_m|
000000f0  62 6c 6b 25 20 38 30 2c  63 6f 6d 6d 61 6e 64 5f  |blk% 80,command_|
00000100  69 6e 64 69 72 25 20 26  33 30 30 0d 00 6e 17 6d  |indir% &300..n.m|
00000110  62 6c 6b 25 3d 63 6f 6d  6d 61 6e 64 5f 6d 62 6c  |blk%=command_mbl|
00000120  6b 25 0d 00 78 18 f2 68  65 61 64 65 72 28 22 43  |k%..x..header("C|
00000130  6f 6d 6d 61 6e 64 22 2c  38 29 0d 00 82 44 f2 65  |ommand",8)...D.e|
00000140  6e 74 72 79 28 31 3c 3c  33 2c 2d 31 2c 26 30 37  |ntry(1<<3,-1,&07|
00000150  30 30 30 30 32 31 2c 22  49 6e 66 6f 22 29 3a f4  |000021,"Info"):.|
00000160  20 73 75 62 2d 77 69 6e  64 6f 77 20 66 69 65 6c  | sub-window fiel|
00000170  64 20 66 69 6c 6c 65 64  20 69 6e 20 62 79 0d 00  |d filled in by..|
00000180  8c 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.4              |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001a0  20 20 20 20 20 20 f4 20  21 53 74 69 63 6b 79 42  |      . !StickyB|
000001b0  72 64 0d 00 96 25 f2 65  6e 74 72 79 28 26 38 30  |rd...%.entry(&80|
000001c0  2c 2d 31 2c 26 30 37 30  30 30 30 32 31 2c 22 4e  |,-1,&07000021,"N|
000001d0  65 77 2e 2e 2e 22 29 0d  00 a0 77 63 6f 6d 6d 61  |ew...")...wcomma|
000001e0  6e 64 5f 69 6e 66 6f 25  3d a4 6d 6f 64 6c 5f 69  |nd_info%=.modl_i|
000001f0  6e 69 74 28 22 43 6f 6d  6d 61 6e 64 22 2c 22 45  |nit("Command","E|
00000200  78 65 63 75 74 65 20 27  2a 27 20 43 6f 6d 6d 61  |xecute '*' Comma|
00000210  6e 64 73 22 2c 22 a9 20  44 61 76 69 64 20 4a 2e  |nds",". David J.|
00000220  20 53 65 65 72 79 22 2c  22 30 2e 31 35 20 28 32  | Seery","0.15 (2|
00000230  30 20 4f 63 74 20 31 39  39 32 29 22 2c 37 37 2c  |0 Oct 1992)",77,|
00000240  63 6f 6d 6d 61 6e 64 5f  6d 62 6c 6b 25 29 0d 00  |command_mblk%)..|
00000250  aa 4b c8 99 20 22 58 57  69 6d 70 5f 4f 70 65 6e  |.K.. "XWimp_Open|
00000260  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 53 74 69  |Template",,"<Sti|
00000270  63 6b 79 42 72 64 45 78  74 24 44 69 72 3e 2e 43  |ckyBrdExt$Dir>.C|
00000280  6f 6d 6d 61 6e 64 2e 54  65 6d 70 6c 61 74 65 73  |ommand.Templates|
00000290  22 20 b8 20 3b 66 6c 67  25 0d 00 b4 31 e7 20 28  |" . ;flg%...1. (|
000002a0  66 6c 67 25 20 80 20 31  29 20 ff 20 22 45 52 52  |flg% . 1) . "ERR|
000002b0  4f 52 20 30 20 43 61 6e  6e 6f 74 20 6c 6f 61 64  |OR 0 Cannot load|
000002c0  20 74 65 6d 70 6c 61 74  65 22 0d 00 be 57 c8 99  | template"...W..|
000002d0  20 22 58 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  | "XWimp_LoadTemp|
000002e0  6c 61 74 65 22 2c 2c 70  6f 69 6e 74 65 72 25 2c  |late",,pointer%,|
000002f0  63 6f 6d 6d 61 6e 64 5f  69 6e 64 69 72 25 2c 63  |command_indir%,c|
00000300  6f 6d 6d 61 6e 64 5f 69  6e 64 69 72 25 2b 26 33  |ommand_indir%+&3|
00000310  30 30 2c 2d 31 2c 22 63  6f 6d 6d 61 6e 64 22 2c  |00,-1,"command",|
00000320  30 0d 00 c8 37 c8 99 20  22 58 57 69 6d 70 5f 43  |0...7.. "XWimp_C|
00000330  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 70 6f  |reateWindow",,po|
00000340  69 6e 74 65 72 25 20 b8  20 63 6f 6d 6d 61 6e 64  |inter% . command|
00000350  5f 77 69 6e 64 6f 77 25  0d 00 d2 3e ff 20 22 49  |_window%...>. "I|
00000360  63 6f 6e 53 70 72 69 74  65 73 20 3c 53 74 69 63  |conSprites <Stic|
00000370  6b 79 42 72 64 45 78 74  24 44 69 72 3e 2e 43 6f  |kyBrdExt$Dir>.Co|
00000380  6d 6d 61 6e 64 2e 53 70  72 69 74 65 73 22 3a 72  |mmand.Sprites":r|
00000390  65 70 6c 79 3d a3 0d 00  dc 06 3d 30 0d 00 e6 04  |eply=.....=0....|
000003a0  0d 00 f0 4b f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...K. **********|
000003b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 20  |*************** |
000003c0  45 56 45 4e 54 20 48 41  4e 44 4c 45 52 20 2a 2a  |EVENT HANDLER **|
000003d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000003e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 00 fa 04 0d  |***********.....|
000003f0  01 04 1b dd 20 a4 63 6f  6d 6d 61 6e 64 5f 65 76  |.... .command_ev|
00000400  65 6e 74 28 72 30 2c 72  31 29 0d 01 0e 0b c8 8e  |ent(r0,r1)......|
00000410  20 72 30 20 ca 0d 01 18  13 c9 20 31 20 20 3a 20  | r0 ...... 1  : |
00000420  c8 8e 20 21 72 31 20 ca  0d 01 22 3c 20 20 20 20  |.. !r1 ..."<    |
00000430  20 20 20 20 20 20 c9 20  31 20 3a 20 f2 6f 70 65  |      . 1 : .ope|
00000440  6e 75 70 28 63 6f 6d 6d  61 6e 64 5f 77 69 6e 64  |nup(command_wind|
00000450  6f 77 25 2c 31 30 30 2c  37 32 33 2c 36 34 38 2c  |ow%,100,723,648,|
00000460  32 36 30 29 0d 01 2c 6a  20 20 20 20 20 20 20 20  |260)..,j        |
00000470  20 20 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |          .. "Wi|
00000480  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00000490  69 6f 6e 22 2c 63 6f 6d  6d 61 6e 64 5f 77 69 6e  |ion",command_win|
000004a0  64 6f 77 25 2c 30 2c 2c  2c 2d 31 2c a9 28 a4 67  |dow%,0,,,-1,.(.g|
000004b0  65 74 69 63 6f 6e 64 61  74 61 28 63 6f 6d 6d 61  |eticondata(comma|
000004c0  6e 64 5f 77 69 6e 64 6f  77 25 2c 30 29 29 0d 01  |nd_window%,0))..|
000004d0  36 0f 20 20 20 20 20 20  20 20 20 20 cb 0d 01 40  |6.          ...@|
000004e0  24 c9 20 33 20 20 3a 20  3d a4 63 6f 6d 6d 61 6e  |$. 3  : =.comman|
000004f0  64 5f 68 65 6c 70 28 72  31 21 30 2c 72 31 21 34  |d_help(r1!0,r1!4|
00000500  29 0d 01 4a 1c c9 20 34  20 20 3a 20 f2 63 6f 6d  |)..J.. 4  : .com|
00000510  6d 61 6e 64 5f 65 78 65  63 28 72 31 29 0d 01 54  |mand_exec(r1)..T|
00000520  14 c9 20 35 20 20 3a 20  c8 8e 20 72 31 21 38 20  |.. 5  : .. r1!8 |
00000530  ca 0d 01 5e 1d 20 20 20  20 20 20 20 20 20 20 c9  |...^.          .|
00000540  20 34 20 3a 20 c8 8e 20  72 31 21 30 20 ca 0d 01  | 4 : .. r1!0 ...|
00000550  68 2c 20 20 20 20 20 20  20 20 20 20 20 c9 20 63  |h,           . c|
00000560  6f 6d 6d 61 6e 64 5f 77  69 6e 64 6f 77 25 20 3a  |ommand_window% :|
00000570  20 c8 8e 20 72 31 21 34  20 ca 0d 01 72 3c 20 20  | .. r1!4 ...r<  |
00000580  20 20 20 20 20 20 20 20  20 20 c9 20 35 20 3a 20  |          . 5 : |
00000590  74 25 3d a4 6d 6f 64 6c  5f 69 6e 74 65 72 66 61  |t%=.modl_interfa|
000005a0  63 65 28 31 30 2c 72 31  29 3a f2 63 6f 6d 6d 61  |ce(10,r1):.comma|
000005b0  6e 64 5f 6e 65 77 0d 01  7c 46 20 20 20 20 20 20  |nd_new..|F      |
000005c0  20 20 20 20 20 20 c9 20  36 20 3a 20 74 25 3d a4  |      . 6 : t%=.|
000005d0  6d 6f 64 6c 5f 69 6e 74  65 72 66 61 63 65 28 31  |modl_interface(1|
000005e0  30 2c 72 31 29 3a f2 73  68 75 74 28 63 6f 6d 6d  |0,r1):.shut(comm|
000005f0  61 6e 64 5f 77 69 6e 64  6f 77 25 29 0d 01 86 11  |and_window%)....|
00000600  20 20 20 20 20 20 20 20  20 20 20 20 cb 0d 01 90  |            ....|
00000610  10 20 20 20 20 20 20 20  20 20 20 20 cb 0d 01 9a  |.           ....|
00000620  0f 20 20 20 20 20 20 20  20 20 20 cb 0d 01 a4 20  |.          .... |
00000630  c9 20 36 20 20 3a 20 3d  a4 63 6f 6d 6d 61 6e 64  |. 6  : =.command|
00000640  5f 74 72 61 6e 73 28 72  31 21 30 29 0d 01 ae 20  |_trans(r1!0)... |
00000650  c9 20 37 20 20 3a 20 3d  a4 63 6f 6d 6d 61 6e 64  |. 7  : =.command|
00000660  5f 68 61 6e 64 6c 65 28  24 72 31 29 0d 01 b8 1c  |_handle($r1)....|
00000670  c9 20 38 20 20 3a 20 3d  a4 63 6f 6d 6d 61 6e 64  |. 8  : =.command|
00000680  5f 78 77 28 24 72 31 29  0d 01 c2 1c c9 20 39 20  |_xw($r1)..... 9 |
00000690  20 3a 20 3d a4 63 6f 6d  6d 61 6e 64 5f 79 68 28  | : =.command_yh(|
000006a0  24 72 31 29 0d 01 cc 25  c9 20 31 32 20 3a 20 3d  |$r1)...%. 12 : =|
000006b0  a4 63 6f 6d 6d 61 6e 64  5f 72 65 6d 6f 76 65 28  |.command_remove(|
000006c0  21 72 31 2c 72 31 21 34  29 0d 01 d6 27 c9 20 31  |!r1,r1!4)...'. 1|
000006d0  35 20 3a 20 3d a4 63 6f  6d 6d 61 6e 64 5f 63 6c  |5 : =.command_cl|
000006e0  65 61 72 28 21 72 31 2c  24 28 72 31 2b 34 29 29  |ear(!r1,$(r1+4))|
000006f0  0d 01 e0 05 cb 0d 01 ea  36 e7 20 72 65 70 6c 79  |........6. reply|
00000700  20 72 65 70 6c 79 3d a3  3a 64 75 6d 6d 79 3d a4  | reply=.:dummy=.|
00000710  6d 6f 64 6c 5f 69 6e 74  65 72 66 61 63 65 28 31  |modl_interface(1|
00000720  32 2c 70 6f 69 6e 74 65  72 25 29 0d 01 f4 06 3d  |2,pointer%)....=|
00000730  30 0d 01 fe 04 0d 02 08  4b f4 20 2a 2a 2a 2a 2a  |0.......K. *****|
00000740  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000750  2a 2a 2a 2a 2a 2a 2a 2a  20 4e 45 57 20 49 43 4f  |******** NEW ICO|
00000760  4e 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |N **************|
00000770  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000780  0d 02 12 04 0d 02 1c 12  dd 20 f2 63 6f 6d 6d 61  |......... .comma|
00000790  6e 64 5f 6e 65 77 0d 02  26 26 c8 99 20 22 57 69  |nd_new..&&.. "Wi|
000007a0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
000007b0  6f 22 2c 2c 70 6f 69 6e  74 65 72 25 0d 02 30 27  |o",,pointer%..0'|
000007c0  78 3d 28 70 6f 69 6e 74  65 72 25 21 30 29 2d 33  |x=(pointer%!0)-3|
000007d0  32 3a 79 3d 28 70 6f 69  6e 74 65 72 25 21 34 29  |2:y=(pointer%!4)|
000007e0  2b 33 32 0d 02 3a 2a 74  69 74 6c 65 24 3d a4 67  |+32..:*title$=.g|
000007f0  65 74 69 63 6f 6e 64 61  74 61 28 63 6f 6d 6d 61  |eticondata(comma|
00000800  6e 64 5f 77 69 6e 64 6f  77 25 2c 30 29 0d 02 44  |nd_window%,0)..D|
00000810  2c 63 6f 6d 6d 61 6e 64  24 3d a4 67 65 74 69 63  |,command$=.getic|
00000820  6f 6e 64 61 74 61 28 63  6f 6d 6d 61 6e 64 5f 77  |ondata(command_w|
00000830  69 6e 64 6f 77 25 2c 31  29 0d 02 4e 3a 24 70 6f  |indow%,1)..N:$po|
00000840  69 6e 74 65 72 25 3d 22  63 6f 6d 6d 61 6e 64 22  |inter%="command"|
00000850  3a 24 28 70 6f 69 6e 74  65 72 25 2b 31 32 29 3d  |:$(pointer%+12)=|
00000860  63 6f 6d 6d 61 6e 64 24  2b 22 2e 22 2b 74 69 74  |command$+"."+tit|
00000870  6c 65 24 0d 02 58 3b 70  6f 69 6e 74 65 72 25 21  |le$..X;pointer%!|
00000880  32 34 3d 78 3a 70 6f 69  6e 74 65 72 25 21 32 38  |24=x:pointer%!28|
00000890  3d 79 3a 70 6f 69 6e 74  65 72 25 21 33 32 3d 34  |=y:pointer%!32=4|
000008a0  3a 70 6f 69 6e 74 65 72  25 21 33 36 3d 31 0d 02  |:pointer%!36=1..|
000008b0  62 25 64 75 6d 6d 79 3d  a4 6d 6f 64 6c 5f 69 6e  |b%dummy=.modl_in|
000008c0  74 65 72 66 61 63 65 28  34 2c 70 6f 69 6e 74 65  |terface(4,pointe|
000008d0  72 25 29 0d 02 6c 1a f2  73 68 75 74 28 63 6f 6d  |r%)..l..shut(com|
000008e0  6d 61 6e 64 5f 77 69 6e  64 6f 77 25 29 0d 02 76  |mand_window%)..v|
000008f0  05 e1 0d 02 80 04 0d 02  8a 4b f4 20 2a 2a 2a 2a  |.........K. ****|
00000900  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000910  2a 2a 2a 2a 2a 2a 20 45  58 45 43 55 54 45 20 43  |****** EXECUTE C|
00000920  4f 4d 4d 41 4e 44 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |OMMAND *********|
00000930  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000940  2a 0d 02 94 04 0d 02 9e  1a dd 20 f2 63 6f 6d 6d  |*......... .comm|
00000950  61 6e 64 5f 65 78 65 63  28 62 6c 6f 63 6b 29 0d  |and_exec(block).|
00000960  02 a8 10 c8 8e 20 62 6c  6f 63 6b 21 38 20 ca 0d  |..... block!8 ..|
00000970  02 b2 2e c9 20 34 20 3a  20 63 6f 6d 6d 61 6e 64  |.... 4 : command|
00000980  5f 65 78 65 63 24 3d a4  66 69 72 73 74 62 69 74  |_exec$=.firstbit|
00000990  28 24 28 62 6c 6f 63 6b  2b 31 32 29 29 0d 02 bc  |($(block+12))...|
000009a0  3d 20 20 20 20 20 20 20  20 20 63 6f 6d 6d 61 6e  |=         comman|
000009b0  64 5f 65 78 65 63 24 3d  c2 63 6f 6d 6d 61 6e 64  |d_exec$=.command|
000009c0  5f 65 78 65 63 24 2c a9  28 63 6f 6d 6d 61 6e 64  |_exec$,.(command|
000009d0  5f 65 78 65 63 24 29 2d  31 29 0d 02 c6 29 20 20  |_exec$)-1)...)  |
000009e0  20 20 20 20 20 20 20 ff  28 22 57 69 6d 70 54 61  |       .("WimpTa|
000009f0  73 6b 20 22 2b 63 6f 6d  6d 61 6e 64 5f 65 78 65  |sk "+command_exe|
00000a00  63 24 29 0d 02 d0 05 cb  0d 02 da 05 e1 0d 02 e4  |c$).............|
00000a10  04 0d 02 ee 4b f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |....K. *********|
00000a20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 20 54 52 41 4e  |*********** TRAN|
00000a30  53 4c 41 54 45 20 48 41  4e 44 4c 45 20 54 4f 20  |SLATE HANDLE TO |
00000a40  4e 41 4d 45 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |NAME ***********|
00000a50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 02 f8 04  |************....|
00000a60  0d 03 02 1c dd 20 a4 63  6f 6d 6d 61 6e 64 5f 74  |..... .command_t|
00000a70  72 61 6e 73 28 68 61 6e  64 6c 65 29 0d 03 0c 0f  |rans(handle)....|
00000a80  c8 8e 20 68 61 6e 64 6c  65 20 ca 0d 03 16 35 c9  |.. handle ....5.|
00000a90  20 63 6f 6d 6d 61 6e 64  5f 69 6e 66 6f 25 20 20  | command_info%  |
00000aa0  20 3a 20 24 70 6f 69 6e  74 65 72 25 3d 22 43 6f  | : $pointer%="Co|
00000ab0  6d 49 6e 66 6f 22 3a 3d  70 6f 69 6e 74 65 72 25  |mInfo":=pointer%|
00000ac0  0d 03 20 35 c9 20 63 6f  6d 6d 61 6e 64 5f 77 69  |.. 5. command_wi|
00000ad0  6e 64 6f 77 25 20 3a 20  24 70 6f 69 6e 74 65 72  |ndow% : $pointer|
00000ae0  25 3d 22 4e 65 77 43 6d  6e 64 22 3a 3d 70 6f 69  |%="NewCmnd":=poi|
00000af0  6e 74 65 72 25 0d 03 2a  05 cb 0d 03 34 06 3d 30  |nter%..*....4.=0|
00000b00  0d 03 3e 04 0d 03 48 4b  f4 20 2a 2a 2a 2a 2a 2a  |..>...HK. ******|
00000b10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 20 54  |************** T|
00000b20  52 41 4e 53 4c 41 54 45  20 4e 41 4d 45 20 54 4f  |RANSLATE NAME TO|
00000b30  20 48 41 4e 44 4c 45 20  2a 2a 2a 2a 2a 2a 2a 2a  | HANDLE ********|
00000b40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00000b50  03 52 04 0d 03 5c 1c dd  20 a4 63 6f 6d 6d 61 6e  |.R...\.. .comman|
00000b60  64 5f 68 61 6e 64 6c 65  28 6e 61 6d 65 24 29 0d  |d_handle(name$).|
00000b70  03 66 0e c8 8e 20 6e 61  6d 65 24 20 ca 0d 03 70  |.f... name$ ...p|
00000b80  20 c9 20 22 43 6f 6d 49  6e 66 6f 22 20 3a 20 3d  | . "ComInfo" : =|
00000b90  63 6f 6d 6d 61 6e 64 5f  69 6e 66 6f 25 0d 03 7a  |command_info%..z|
00000ba0  22 c9 20 22 4e 65 77 43  6d 6e 64 22 20 3a 20 3d  |". "NewCmnd" : =|
00000bb0  63 6f 6d 6d 61 6e 64 5f  77 69 6e 64 6f 77 25 0d  |command_window%.|
00000bc0  03 84 05 cb 0d 03 8e 06  3d 30 0d 03 98 04 0d 03  |........=0......|
00000bd0  a2 4b f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.K. ************|
00000be0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 20 50  |************** P|
00000bf0  41 53 53 20 58 20 57 49  44 54 48 20 2a 2a 2a 2a  |ASS X WIDTH ****|
00000c00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000c10  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 03 ac 04 0d 03 b6  |*********.......|
00000c20  18 dd 20 a4 63 6f 6d 6d  61 6e 64 5f 78 77 28 6e  |.. .command_xw(n|
00000c30  61 6d 65 24 29 0d 03 c0  0e c8 8e 20 6e 61 6d 65  |ame$)...... name|
00000c40  24 20 ca 0d 03 ca 16 c9  20 22 43 6f 6d 49 6e 66  |$ ...... "ComInf|
00000c50  6f 22 20 3a 20 3d 36 35  30 0d 03 d4 16 c9 20 22  |o" : =650..... "|
00000c60  4e 65 77 43 6d 6e 64 22  20 3a 20 3d 36 34 38 0d  |NewCmnd" : =648.|
00000c70  03 de 05 cb 0d 03 e8 06  3d 30 0d 03 f2 04 0d 03  |........=0......|
00000c80  fc 4b f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.K. ************|
00000c90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 20 50 41  |************* PA|
00000ca0  53 53 20 59 20 48 45 49  47 48 54 20 2a 2a 2a 2a  |SS Y HEIGHT ****|
00000cb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000cc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 04 06 04 0d 04 10  |*********.......|
00000cd0  18 dd 20 a4 63 6f 6d 6d  61 6e 64 5f 79 68 28 6e  |.. .command_yh(n|
00000ce0  61 6d 65 24 29 0d 04 1a  0e c8 8e 20 6e 61 6d 65  |ame$)...... name|
00000cf0  24 20 ca 0d 04 24 16 c9  20 22 43 6f 6d 49 6e 66  |$ ...$.. "ComInf|
00000d00  6f 22 20 3a 20 3d 33 38  30 0d 04 2e 16 c9 20 22  |o" : =380..... "|
00000d10  4e 65 77 43 6d 6e 64 22  20 3a 20 3d 32 36 30 0d  |NewCmnd" : =260.|
00000d20  04 38 05 cb 0d 04 42 06  3d 30 0d 04 4c 04 0d 04  |.8....B.=0..L...|
00000d30  56 49 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |VI. ************|
00000d40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 20  |*************** |
00000d50  47 49 56 45 20 48 45 4c  50 20 2a 2a 2a 2a 2a 2a  |GIVE HELP ******|
00000d60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000d70  2a 2a 2a 2a 2a 2a 2a 0d  04 60 04 0d 04 6a 18 dd  |*******..`...j..|
00000d80  20 a4 63 6f 6d 6d 61 6e  64 5f 68 65 6c 70 28 77  | .command_help(w|
00000d90  2c 69 29 0d 04 74 0a c8  8e 20 77 20 ca 0d 04 7e  |,i)..t... w ...~|
00000da0  7e c9 20 63 6f 6d 6d 61  6e 64 5f 77 69 6e 64 6f  |~. command_windo|
00000db0  77 25 20 3a 20 24 70 6f  69 6e 74 65 72 25 3d 22  |w% : $pointer%="|
00000dc0  54 68 69 73 20 69 73 20  74 68 65 20 27 4e 65 77  |This is the 'New|
00000dd0  20 43 6f 6d 6d 61 6e 64  27 20 57 69 6e 64 6f 77  | Command' Window|
00000de0  2e 7c 4d 55 73 65 20 69  74 20 74 6f 20 70 6c 61  |.|MUse it to pla|
00000df0  63 65 20 61 20 6e 65 77  20 63 6f 6d 6d 61 6e 64  |ce a new command|
00000e00  20 6f 6e 20 74 68 65 20  64 65 73 6b 74 6f 70 2e  | on the desktop.|
00000e10  22 3a 3d 70 6f 69 6e 74  65 72 25 0d 04 88 88 c9  |":=pointer%.....|
00000e20  20 63 6f 6d 6d 61 6e 64  5f 69 6e 66 6f 25 20 20  | command_info%  |
00000e30  20 3a 20 24 70 6f 69 6e  74 65 72 25 3d 22 54 68  | : $pointer%="Th|
00000e40  69 73 20 69 73 20 74 68  65 20 27 43 6f 6d 6d 61  |is is the 'Comma|
00000e50  6e 64 27 20 69 6e 66 6f  20 77 69 6e 64 6f 77 2e  |nd' info window.|
00000e60  7c 4d 49 74 20 67 69 76  65 73 20 69 6e 66 6f 6d  ||MIt gives infom|
00000e70  61 74 69 6f 6e 20 6f 6e  20 74 68 65 20 65 78 74  |ation on the ext|
00000e80  65 6e 73 69 6f 6e 20 6d  6f 64 75 6c 65 20 27 43  |ension module 'C|
00000e90  6f 6d 6d 61 6e 64 27 2e  22 3a 3d 70 6f 69 6e 74  |ommand'.":=point|
00000ea0  65 72 25 0d 04 92 05 cb  0d 04 9c 06 3d 30 0d 04  |er%.........=0..|
00000eb0  a6 04 0d 04 b0 49 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |.....I. ********|
00000ec0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000ed0  2a 2a 2a 20 43 4c 45 41  52 20 41 4c 4c 20 2a 2a  |*** CLEAR ALL **|
00000ee0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000ef0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 04 ba 04 0d  |***********.....|
00000f00  04 c4 22 dd 20 a4 63 6f  6d 6d 61 6e 64 5f 63 6c  |..". .command_cl|
00000f10  65 61 72 28 63 74 79 70  65 2c 63 66 69 6c 65 24  |ear(ctype,cfile$|
00000f20  29 0d 04 ce 05 f5 0d 04  d8 34 21 70 6f 69 6e 74  |)........4!point|
00000f30  65 72 25 3d 34 3a 65 78  69 73 74 73 25 3d a4 6d  |er%=4:exists%=.m|
00000f40  6f 64 6c 5f 69 6e 74 65  72 66 61 63 65 28 31 31  |odl_interface(11|
00000f50  2c 70 6f 69 6e 74 65 72  25 29 0d 04 e2 11 e7 20  |,pointer%)..... |
00000f60  65 78 69 73 74 73 25 3e  30 20 8c 0d 04 ec 16 20  |exists%>0 ..... |
00000f70  21 70 6f 69 6e 74 65 72  25 3d 65 78 69 73 74 73  |!pointer%=exists|
00000f80  25 0d 04 f6 26 20 64 75  6d 6d 79 3d a4 6d 6f 64  |%...& dummy=.mod|
00000f90  6c 5f 69 6e 74 65 72 66  61 63 65 28 35 2c 70 6f  |l_interface(5,po|
00000fa0  69 6e 74 65 72 25 29 0d  05 00 05 cd 0d 05 0a 0f  |inter%).........|
00000fb0  fd 20 65 78 69 73 74 73  25 3d 30 0d 05 14 06 3d  |. exists%=0....=|
00000fc0  30 0d 05 1e 04 0d 05 28  49 f4 20 2a 2a 2a 2a 2a  |0......(I. *****|
00000fd0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000fe0  2a 2a 2a 2a 2a 20 52 45  4d 4f 56 45 20 49 43 4f  |***** REMOVE ICO|
00000ff0  4e 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |N **************|
00001000  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 05  |**************..|
00001010  32 04 0d 05 3c 22 dd 20  a4 63 6f 6d 6d 61 6e 64  |2...<". .command|
00001020  5f 72 65 6d 6f 76 65 28  69 63 6f 6e 25 2c 74 79  |_remove(icon%,ty|
00001030  70 65 25 29 0d 05 46 0f  e7 20 74 79 70 65 25 3d  |pe%)..F.. type%=|
00001040  34 20 8c 0d 05 50 15 20  70 6f 69 6e 74 65 72 25  |4 ...P. pointer%|
00001050  21 30 3d 69 63 6f 6e 25  0d 05 5a 26 20 64 75 6d  |!0=icon%..Z& dum|
00001060  6d 79 3d a4 6d 6f 64 6c  5f 69 6e 74 65 72 66 61  |my=.modl_interfa|
00001070  63 65 28 35 2c 70 6f 69  6e 74 65 72 25 29 0d 05  |ce(5,pointer%)..|
00001080  64 05 cd 0d 05 6e 06 3d  30 0d 05 78 04 0d 05 82  |d....n.=0..x....|
00001090  48 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |H. *************|
000010a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 20 4d 45 53 53 41  |********** MESSA|
000010b0  47 45 20 52 45 43 45 49  56 45 44 20 2a 2a 2a 2a  |GE RECEIVED ****|
000010c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000010d0  2a 2a 2a 2a 2a 0d 05 8c  04 0d 05 96 25 dd 20 a4  |*****.......%. .|
000010e0  63 6f 6d 6d 61 6e 64 5f  6d 65 73 73 61 67 65 28  |command_message(|
000010f0  6d 65 73 73 61 67 65 2c  62 6c 6f 63 6b 29 0d 05  |message,block)..|
00001100  a0 10 c8 8e 20 6d 65 73  73 61 67 65 20 ca 0d 05  |.... message ...|
00001110  aa 1f 20 c9 20 30 20 3a  20 e7 20 24 62 6c 6f 63  |.. . 0 : . $bloc|
00001120  6b 3d 22 43 6f 6d 6d 61  6e 64 22 20 8c 0d 05 b4  |k="Command" ....|
00001130  33 20 20 20 20 20 20 20  20 20 20 20 70 6f 69 6e  |3           poin|
00001140  74 65 72 25 21 30 3d 31  3a 70 6f 69 6e 74 65 72  |ter%!0=1:pointer|
00001150  25 21 34 3d 70 6f 69 6e  74 65 72 25 2b 32 30 30  |%!4=pointer%+200|
00001160  0d 05 be 28 20 20 20 20  20 20 20 20 20 20 20 24  |...(           $|
00001170  28 70 6f 69 6e 74 65 72  25 2b 32 30 30 29 3d 22  |(pointer%+200)="|
00001180  43 6f 6d 6d 61 6e 64 22  0d 05 c8 29 20 20 20 20  |Command"...)    |
00001190  20 20 20 20 20 20 20 70  6f 69 6e 74 65 72 25 21  |       pointer%!|
000011a0  32 31 32 3d 63 6f 6d 6d  61 6e 64 5f 69 6e 66 6f  |212=command_info|
000011b0  25 0d 05 d2 29 20 20 20  20 20 20 20 20 20 20 20  |%...)           |
000011c0  70 6f 69 6e 74 65 72 25  21 32 31 36 3d 63 6f 6d  |pointer%!216=com|
000011d0  6d 61 6e 64 5f 6d 62 6c  6b 25 0d 05 dc 16 20 20  |mand_mblk%....  |
000011e0  20 20 20 20 20 20 20 20  20 72 65 70 6c 79 3d b9  |         reply=.|
000011f0  0d 05 e6 0f 20 20 20 20  20 20 20 20 20 20 cd 0d  |....          ..|
00001200  05 f0 05 cb 0d 05 fa 06  3d 30 0d ff              |........=0..|
0000120c

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