!AWJuly93/Goodies/Print/!Print/!RunImage

Home » Archimedes archive » Archimedes World » AW-1993-07.adf » AWJuly93 » !AWJuly93/Goodies/Print/!Print/!RunImage

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 » Archimedes World » AW-1993-07.adf » AWJuly93
Filename:	!AWJuly93/Goodies/Print/!Print/!RunImage
Read OK:	✔
File size:	0970 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >!RunImage
   20REM Program  !Print (Text Only)
   30REM Author   Richard Bagnall
   40REM Version  2.00
   50REM Date     17th March 1993
   60:
   70ON ERROR ERROR EXT ERR,REPORT$+ " at line "+STR$ERL:END
   80:
   90DIM block% 400, filler% 200, menu% 100, iconspr% 7:quit%=FALSE:head%=0
  100A%=OPENIN"<Print$Dir>.Sprites":B%=EXT#A%+16:CLOSE#A%
  110DIM sprites% B%:!sprites%=B%:sprites%!8=12
  120SYS "OS_SpriteOp",&109,sprites%
  130SYS "OS_SpriteOp",&10A,sprites%,"<Print$Dir>.Sprites"
  140SYS "Wimp_Initialise",200,&4B534154,"Print (Text Only)"
  150!block%=-1:block%!4=0:block%!8=0:block%!12=64:block%!16=68
  160block%!20=&0000311A:block%!24=iconspr%:block%!28=sprites%:block%!32=12
  170$iconspr%="icon0"+CHR$(0)
  180SYS "Wimp_CreateIcon",,block% TO iconbar%
  190SYS "Wimp_OpenTemplate",,"<Print$Dir>.Templates"
  200SYS "Wimp_LoadTemplate",,block%,filler%,filler%+200,-1,"information",0
  210block%!64=sprites%
  220SYS "Wimp_CreateWindow",,block% TO info%
  230SYS "Wimp_CloseTemplate"
  240:
  250REPEAT
  260    SYS "Wimp_Poll",,block% TO reason%
  270    CASE reason% OF
  280        WHEN 2:SYS "Wimp_OpenWindow",,block%
  290        WHEN 3:SYS "Wimp_CloseWindow",,block%
  300        WHEN 6:IF block%!8=2 PROCcreate_menu
  310        WHEN 9:PROCbutton
  320        WHEN 17,18:PROCrecieve
  330    ENDCASE
  340UNTIL quit%
  350SYS "Wimp_CloseDown"
  360END
  370:
  380DEF PROCbutton
  390CASE !block% OF
  400    WHEN 1:head%+=1:head%=head% MOD 2
  410    WHEN 2:quit%=TRUE
  420ENDCASE
  430IF NOT quit% SYS "Wimp_GetPointerInfo",,block%:IF block%!8=1 PROCcreate_menu
  440ENDPROC
  450:
  460DEF PROCrecieve
  470CASE block%!16 OF
  480    WHEN 0:quit%=TRUE
  490    WHEN 3:a%=0:F$=""
  500           REPEAT:b%=block%?(44+a%):F$+=CHR$(b%):a%+=1:UNTIL b%=0
  510           F$=LEFT$(F$,LEN(F$)-1):PROCprint_text
  520ENDCASE
  530ENDPROC
  540:
  550DEF PROCprint_text
  560SYS &406C0:in%=OPENIN(F$):L%=EXT#in%:out%=OPENOUT("PRINTER:"):Z%=0:I%=0
  570IF head% BPUT#out%,"File : "+F$+CHR$(13):BPUT#out%,"Date : "+TIME$+CHR$(10)+CHR$(13)
  580REPEAT
  590    C%=BGET#in%:BPUT#out%,C%:Z%+=1:R%=INT((Z%/L%)*10)
  600    IF I%<>R% PROCicon_sprite(R%):I%=R%
  610    SYS &406C4,(Z%/L%)*100:IF C%=10 BPUT#out%,13
  620UNTIL EOF#in%
  630BPUT#out%,12:CLOSE#in%:CLOSE#out%:SYS &406C2:PROCicon_sprite(0)
  640ENDPROC
  650:
  660DEF PROCicon_sprite(icon%)
  670$iconspr%="icon"+STR$(icon%)+CHR$(0)
  680!block%=-1:block%!4=iconbar%:block%!8=0:block%!12=0
  690SYS "Wimp_SetIconState",,block%
  700ENDPROC
  710:
  720DEF PROCcreate_menu
  730$menu%="Print":menu%!12=&70207:menu%!16=108:menu%!20=44:menu%!24=0
  740menu%!28=0:menu%!32=info%:menu%!36=&7000021:$(menu%+40)="Info"
  750menu%!52=head%:menu%!56=0:menu%!60=&7000021:$(menu%+64)="Header"
  760menu%!76=128:menu%!80=0:menu%!84=&7000021:$(menu%+88)="Quit"
  770SYS "Wimp_CreateMenu",,menu%,!block%-76,228
  780ENDPROC


� >!RunImage
!� Program  !Print (Text Only)
� Author   Richard Bagnall
(� Version  2.00
2� Date     17th March 1993
<:
F"� � � � �,�$+ " at line "+Þ:�
P:
ZD� block% 400, filler% 200, menu% 100, iconspr% 7:quit%=�:head%=0
d-A%=�"<Print$Dir>.Sprites":B%=�#A%+16:�#A%
n,� sprites% B%:!sprites%=B%:sprites%!8=12
x"ș "OS_SpriteOp",&109,sprites%
�8ș "OS_SpriteOp",&10A,sprites%,"<Print$Dir>.Sprites"
�:ș "Wimp_Initialise",200,&4B534154,"Print (Text Only)"
�>!block%=-1:block%!4=0:block%!8=0:block%!12=64:block%!16=68
�Jblock%!20=&0000311A:block%!24=iconspr%:block%!28=sprites%:block%!32=12
�$iconspr%="icon0"+�(0)
�+ș "Wimp_CreateIcon",,block% � iconbar%
�3ș "Wimp_OpenTemplate",,"<Print$Dir>.Templates"
�Iș "Wimp_LoadTemplate",,block%,filler%,filler%+200,-1,"information",0
�block%!64=sprites%
�*ș "Wimp_CreateWindow",,block% � info%
�ș "Wimp_CloseTemplate"
�:
��
(    ș "Wimp_Poll",,block% � reason%
    Ȏ reason% �
,        � 2:ș "Wimp_OpenWindow",,block%
"-        � 3:ș "Wimp_CloseWindow",,block%
,)        � 6:� block%!8=2 �create_menu
6        � 9:�button
@        � 17,18:�recieve
J	    �
T� quit%
^ș "Wimp_CloseDown"
h�
r:
|
� �button
�Ȏ !block% �
�$    � 1:head%+=1:head%=head% � 2
�    � 2:quit%=�
��
�H� � quit% ș "Wimp_GetPointerInfo",,block%:� block%!8=1 �create_menu
��
�:
�� �recieve
�Ȏ block%!16 �
�    � 0:quit%=�
�    � 3:a%=0:F$=""
�9           �:b%=block%?(44+a%):F$+=�(b%):a%+=1:� b%=0
�*           F$=�F$,�(F$)-1):�print_text
�
�
:
&� �print_text
0=ș &406C0:in%=�(F$):L%=�#in%:out%=�("PRINTER:"):Z%=0:I%=0
:E� head% �#out%,"File : "+F$+�(13):�#out%,"Date : "+�$+�(10)+�(13)
D�
N1    C%=�#in%:�#out%,C%:Z%+=1:R%=�((Z%/L%)*10)
X'    � I%<>R% �icon_sprite(R%):I%=R%
b/    ș &406C4,(Z%/L%)*100:� C%=10 �#out%,13
l� �#in%
v4�#out%,12:�#in%:�#out%:ș &406C2:�icon_sprite(0)
��
�:
�� �icon_sprite(icon%)
�"$iconspr%="icon"+�(icon%)+�(0)
�7!block%=-1:block%!4=iconbar%:block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
�� �create_menu
�F$menu%="Print":menu%!12=&70207:menu%!16=108:menu%!20=44:menu%!24=0
�Bmenu%!28=0:menu%!32=info%:menu%!36=&7000021:$(menu%+40)="Info"
�Dmenu%!52=head%:menu%!56=0:menu%!60=&7000021:$(menu%+64)="Header"
�@menu%!76=128:menu%!80=0:menu%!84=&7000021:$(menu%+88)="Quit"
.ș "Wimp_CreateMenu",,menu%,!block%-76,228
�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 21 f4 20 50 72  6f 67 72 61 6d 20 20 21  |...!. Program  !|
00000020  50 72 69 6e 74 20 28 54  65 78 74 20 4f 6e 6c 79  |Print (Text Only|
00000030  29 0d 00 1e 1e f4 20 41  75 74 68 6f 72 20 20 20  |)..... Author   |
00000040  52 69 63 68 61 72 64 20  42 61 67 6e 61 6c 6c 0d  |Richard Bagnall.|
00000050  00 28 13 f4 20 56 65 72  73 69 6f 6e 20 20 32 2e  |.(.. Version  2.|
00000060  30 30 0d 00 32 1e f4 20  44 61 74 65 20 20 20 20  |00..2.. Date    |
00000070  20 31 37 74 68 20 4d 61  72 63 68 20 31 39 39 33  | 17th March 1993|
00000080  0d 00 3c 05 3a 0d 00 46  22 ee 20 85 20 85 20 a2  |..<.:..F". . . .|
00000090  20 9f 2c f6 24 2b 20 22  20 61 74 20 6c 69 6e 65  | .,.$+ " at line|
000000a0  20 22 2b c3 9e 3a e0 0d  00 50 05 3a 0d 00 5a 44  | "+..:...P.:..ZD|
000000b0  de 20 62 6c 6f 63 6b 25  20 34 30 30 2c 20 66 69  |. block% 400, fi|
000000c0  6c 6c 65 72 25 20 32 30  30 2c 20 6d 65 6e 75 25  |ller% 200, menu%|
000000d0  20 31 30 30 2c 20 69 63  6f 6e 73 70 72 25 20 37  | 100, iconspr% 7|
000000e0  3a 71 75 69 74 25 3d a3  3a 68 65 61 64 25 3d 30  |:quit%=.:head%=0|
000000f0  0d 00 64 2d 41 25 3d 8e  22 3c 50 72 69 6e 74 24  |..d-A%=."<Print$|
00000100  44 69 72 3e 2e 53 70 72  69 74 65 73 22 3a 42 25  |Dir>.Sprites":B%|
00000110  3d a2 23 41 25 2b 31 36  3a d9 23 41 25 0d 00 6e  |=.#A%+16:.#A%..n|
00000120  2c de 20 73 70 72 69 74  65 73 25 20 42 25 3a 21  |,. sprites% B%:!|
00000130  73 70 72 69 74 65 73 25  3d 42 25 3a 73 70 72 69  |sprites%=B%:spri|
00000140  74 65 73 25 21 38 3d 31  32 0d 00 78 22 c8 99 20  |tes%!8=12..x".. |
00000150  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000160  30 39 2c 73 70 72 69 74  65 73 25 0d 00 82 38 c8  |09,sprites%...8.|
00000170  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000180  26 31 30 41 2c 73 70 72  69 74 65 73 25 2c 22 3c  |&10A,sprites%,"<|
00000190  50 72 69 6e 74 24 44 69  72 3e 2e 53 70 72 69 74  |Print$Dir>.Sprit|
000001a0  65 73 22 0d 00 8c 3a c8  99 20 22 57 69 6d 70 5f  |es"...:.. "Wimp_|
000001b0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
000001c0  26 34 42 35 33 34 31 35  34 2c 22 50 72 69 6e 74  |&4B534154,"Print|
000001d0  20 28 54 65 78 74 20 4f  6e 6c 79 29 22 0d 00 96  | (Text Only)"...|
000001e0  3e 21 62 6c 6f 63 6b 25  3d 2d 31 3a 62 6c 6f 63  |>!block%=-1:bloc|
000001f0  6b 25 21 34 3d 30 3a 62  6c 6f 63 6b 25 21 38 3d  |k%!4=0:block%!8=|
00000200  30 3a 62 6c 6f 63 6b 25  21 31 32 3d 36 34 3a 62  |0:block%!12=64:b|
00000210  6c 6f 63 6b 25 21 31 36  3d 36 38 0d 00 a0 4a 62  |lock%!16=68...Jb|
00000220  6c 6f 63 6b 25 21 32 30  3d 26 30 30 30 30 33 31  |lock%!20=&000031|
00000230  31 41 3a 62 6c 6f 63 6b  25 21 32 34 3d 69 63 6f  |1A:block%!24=ico|
00000240  6e 73 70 72 25 3a 62 6c  6f 63 6b 25 21 32 38 3d  |nspr%:block%!28=|
00000250  73 70 72 69 74 65 73 25  3a 62 6c 6f 63 6b 25 21  |sprites%:block%!|
00000260  33 32 3d 31 32 0d 00 aa  1a 24 69 63 6f 6e 73 70  |32=12....$iconsp|
00000270  72 25 3d 22 69 63 6f 6e  30 22 2b bd 28 30 29 0d  |r%="icon0"+.(0).|
00000280  00 b4 2b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..+.. "Wimp_Crea|
00000290  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 20  |teIcon",,block% |
000002a0  b8 20 69 63 6f 6e 62 61  72 25 0d 00 be 33 c8 99  |. iconbar%...3..|
000002b0  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
000002c0  61 74 65 22 2c 2c 22 3c  50 72 69 6e 74 24 44 69  |ate",,"<Print$Di|
000002d0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 00 c8  |r>.Templates"...|
000002e0  49 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |I.. "Wimp_LoadTe|
000002f0  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 2c  |mplate",,block%,|
00000300  66 69 6c 6c 65 72 25 2c  66 69 6c 6c 65 72 25 2b  |filler%,filler%+|
00000310  32 30 30 2c 2d 31 2c 22  69 6e 66 6f 72 6d 61 74  |200,-1,"informat|
00000320  69 6f 6e 22 2c 30 0d 00  d2 16 62 6c 6f 63 6b 25  |ion",0....block%|
00000330  21 36 34 3d 73 70 72 69  74 65 73 25 0d 00 dc 2a  |!64=sprites%...*|
00000340  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000350  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |indow",,block% .|
00000360  20 69 6e 66 6f 25 0d 00  e6 1b c8 99 20 22 57 69  | info%...... "Wi|
00000370  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000380  22 0d 00 f0 05 3a 0d 00  fa 05 f5 0d 01 04 28 20  |"....:........( |
00000390  20 20 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |   .. "Wimp_Poll|
000003a0  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 72 65 61 73  |",,block% . reas|
000003b0  6f 6e 25 0d 01 0e 14 20  20 20 20 c8 8e 20 72 65  |on%....    .. re|
000003c0  61 73 6f 6e 25 20 ca 0d  01 18 2c 20 20 20 20 20  |ason% ....,     |
000003d0  20 20 20 c9 20 32 3a c8  99 20 22 57 69 6d 70 5f  |   . 2:.. "Wimp_|
000003e0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
000003f0  63 6b 25 0d 01 22 2d 20  20 20 20 20 20 20 20 c9  |ck%.."-        .|
00000400  20 33 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  | 3:.. "Wimp_Clos|
00000410  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000420  0d 01 2c 29 20 20 20 20  20 20 20 20 c9 20 36 3a  |..,)        . 6:|
00000430  e7 20 62 6c 6f 63 6b 25  21 38 3d 32 20 f2 63 72  |. block%!8=2 .cr|
00000440  65 61 74 65 5f 6d 65 6e  75 0d 01 36 17 20 20 20  |eate_menu..6.   |
00000450  20 20 20 20 20 c9 20 39  3a f2 62 75 74 74 6f 6e  |     . 9:.button|
00000460  0d 01 40 1c 20 20 20 20  20 20 20 20 c9 20 31 37  |..@.        . 17|
00000470  2c 31 38 3a f2 72 65 63  69 65 76 65 0d 01 4a 09  |,18:.recieve..J.|
00000480  20 20 20 20 cb 0d 01 54  0b fd 20 71 75 69 74 25  |    ...T.. quit%|
00000490  0d 01 5e 17 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..^... "Wimp_Clo|
000004a0  73 65 44 6f 77 6e 22 0d  01 68 05 e0 0d 01 72 05  |seDown"..h....r.|
000004b0  3a 0d 01 7c 0d dd 20 f2  62 75 74 74 6f 6e 0d 01  |:..|.. .button..|
000004c0  86 10 c8 8e 20 21 62 6c  6f 63 6b 25 20 ca 0d 01  |.... !block% ...|
000004d0  90 24 20 20 20 20 c9 20  31 3a 68 65 61 64 25 2b  |.$    . 1:head%+|
000004e0  3d 31 3a 68 65 61 64 25  3d 68 65 61 64 25 20 83  |=1:head%=head% .|
000004f0  20 32 0d 01 9a 13 20 20  20 20 c9 20 32 3a 71 75  | 2....    . 2:qu|
00000500  69 74 25 3d b9 0d 01 a4  05 cb 0d 01 ae 48 e7 20  |it%=.........H. |
00000510  ac 20 71 75 69 74 25 20  c8 99 20 22 57 69 6d 70  |. quit% .. "Wimp|
00000520  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000530  2c 2c 62 6c 6f 63 6b 25  3a e7 20 62 6c 6f 63 6b  |,,block%:. block|
00000540  25 21 38 3d 31 20 f2 63  72 65 61 74 65 5f 6d 65  |%!8=1 .create_me|
00000550  6e 75 0d 01 b8 05 e1 0d  01 c2 05 3a 0d 01 cc 0e  |nu.........:....|
00000560  dd 20 f2 72 65 63 69 65  76 65 0d 01 d6 12 c8 8e  |. .recieve......|
00000570  20 62 6c 6f 63 6b 25 21  31 36 20 ca 0d 01 e0 13  | block%!16 .....|
00000580  20 20 20 20 c9 20 30 3a  71 75 69 74 25 3d b9 0d  |    . 0:quit%=..|
00000590  01 ea 16 20 20 20 20 c9  20 33 3a 61 25 3d 30 3a  |...    . 3:a%=0:|
000005a0  46 24 3d 22 22 0d 01 f4  39 20 20 20 20 20 20 20  |F$=""...9       |
000005b0  20 20 20 20 f5 3a 62 25  3d 62 6c 6f 63 6b 25 3f  |    .:b%=block%?|
000005c0  28 34 34 2b 61 25 29 3a  46 24 2b 3d bd 28 62 25  |(44+a%):F$+=.(b%|
000005d0  29 3a 61 25 2b 3d 31 3a  fd 20 62 25 3d 30 0d 01  |):a%+=1:. b%=0..|
000005e0  fe 2a 20 20 20 20 20 20  20 20 20 20 20 46 24 3d  |.*           F$=|
000005f0  c0 46 24 2c a9 28 46 24  29 2d 31 29 3a f2 70 72  |.F$,.(F$)-1):.pr|
00000600  69 6e 74 5f 74 65 78 74  0d 02 08 05 cb 0d 02 12  |int_text........|
00000610  05 e1 0d 02 1c 05 3a 0d  02 26 11 dd 20 f2 70 72  |......:..&.. .pr|
00000620  69 6e 74 5f 74 65 78 74  0d 02 30 3d c8 99 20 26  |int_text..0=.. &|
00000630  34 30 36 43 30 3a 69 6e  25 3d 8e 28 46 24 29 3a  |406C0:in%=.(F$):|
00000640  4c 25 3d a2 23 69 6e 25  3a 6f 75 74 25 3d ae 28  |L%=.#in%:out%=.(|
00000650  22 50 52 49 4e 54 45 52  3a 22 29 3a 5a 25 3d 30  |"PRINTER:"):Z%=0|
00000660  3a 49 25 3d 30 0d 02 3a  45 e7 20 68 65 61 64 25  |:I%=0..:E. head%|
00000670  20 d5 23 6f 75 74 25 2c  22 46 69 6c 65 20 3a 20  | .#out%,"File : |
00000680  22 2b 46 24 2b bd 28 31  33 29 3a d5 23 6f 75 74  |"+F$+.(13):.#out|
00000690  25 2c 22 44 61 74 65 20  3a 20 22 2b 91 24 2b bd  |%,"Date : "+.$+.|
000006a0  28 31 30 29 2b bd 28 31  33 29 0d 02 44 05 f5 0d  |(10)+.(13)..D...|
000006b0  02 4e 31 20 20 20 20 43  25 3d 9a 23 69 6e 25 3a  |.N1    C%=.#in%:|
000006c0  d5 23 6f 75 74 25 2c 43  25 3a 5a 25 2b 3d 31 3a  |.#out%,C%:Z%+=1:|
000006d0  52 25 3d a8 28 28 5a 25  2f 4c 25 29 2a 31 30 29  |R%=.((Z%/L%)*10)|
000006e0  0d 02 58 27 20 20 20 20  e7 20 49 25 3c 3e 52 25  |..X'    . I%<>R%|
000006f0  20 f2 69 63 6f 6e 5f 73  70 72 69 74 65 28 52 25  | .icon_sprite(R%|
00000700  29 3a 49 25 3d 52 25 0d  02 62 2f 20 20 20 20 c8  |):I%=R%..b/    .|
00000710  99 20 26 34 30 36 43 34  2c 28 5a 25 2f 4c 25 29  |. &406C4,(Z%/L%)|
00000720  2a 31 30 30 3a e7 20 43  25 3d 31 30 20 d5 23 6f  |*100:. C%=10 .#o|
00000730  75 74 25 2c 31 33 0d 02  6c 0b fd 20 c5 23 69 6e  |ut%,13..l.. .#in|
00000740  25 0d 02 76 34 d5 23 6f  75 74 25 2c 31 32 3a d9  |%..v4.#out%,12:.|
00000750  23 69 6e 25 3a d9 23 6f  75 74 25 3a c8 99 20 26  |#in%:.#out%:.. &|
00000760  34 30 36 43 32 3a f2 69  63 6f 6e 5f 73 70 72 69  |406C2:.icon_spri|
00000770  74 65 28 30 29 0d 02 80  05 e1 0d 02 8a 05 3a 0d  |te(0).........:.|
00000780  02 94 19 dd 20 f2 69 63  6f 6e 5f 73 70 72 69 74  |.... .icon_sprit|
00000790  65 28 69 63 6f 6e 25 29  0d 02 9e 22 24 69 63 6f  |e(icon%)..."$ico|
000007a0  6e 73 70 72 25 3d 22 69  63 6f 6e 22 2b c3 28 69  |nspr%="icon"+.(i|
000007b0  63 6f 6e 25 29 2b bd 28  30 29 0d 02 a8 37 21 62  |con%)+.(0)...7!b|
000007c0  6c 6f 63 6b 25 3d 2d 31  3a 62 6c 6f 63 6b 25 21  |lock%=-1:block%!|
000007d0  34 3d 69 63 6f 6e 62 61  72 25 3a 62 6c 6f 63 6b  |4=iconbar%:block|
000007e0  25 21 38 3d 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%!8=0:block%!12=|
000007f0  30 0d 02 b2 22 c8 99 20  22 57 69 6d 70 5f 53 65  |0...".. "Wimp_Se|
00000800  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000810  63 6b 25 0d 02 bc 05 e1  0d 02 c6 05 3a 0d 02 d0  |ck%.........:...|
00000820  12 dd 20 f2 63 72 65 61  74 65 5f 6d 65 6e 75 0d  |.. .create_menu.|
00000830  02 da 46 24 6d 65 6e 75  25 3d 22 50 72 69 6e 74  |..F$menu%="Print|
00000840  22 3a 6d 65 6e 75 25 21  31 32 3d 26 37 30 32 30  |":menu%!12=&7020|
00000850  37 3a 6d 65 6e 75 25 21  31 36 3d 31 30 38 3a 6d  |7:menu%!16=108:m|
00000860  65 6e 75 25 21 32 30 3d  34 34 3a 6d 65 6e 75 25  |enu%!20=44:menu%|
00000870  21 32 34 3d 30 0d 02 e4  42 6d 65 6e 75 25 21 32  |!24=0...Bmenu%!2|
00000880  38 3d 30 3a 6d 65 6e 75  25 21 33 32 3d 69 6e 66  |8=0:menu%!32=inf|
00000890  6f 25 3a 6d 65 6e 75 25  21 33 36 3d 26 37 30 30  |o%:menu%!36=&700|
000008a0  30 30 32 31 3a 24 28 6d  65 6e 75 25 2b 34 30 29  |0021:$(menu%+40)|
000008b0  3d 22 49 6e 66 6f 22 0d  02 ee 44 6d 65 6e 75 25  |="Info"...Dmenu%|
000008c0  21 35 32 3d 68 65 61 64  25 3a 6d 65 6e 75 25 21  |!52=head%:menu%!|
000008d0  35 36 3d 30 3a 6d 65 6e  75 25 21 36 30 3d 26 37  |56=0:menu%!60=&7|
000008e0  30 30 30 30 32 31 3a 24  28 6d 65 6e 75 25 2b 36  |000021:$(menu%+6|
000008f0  34 29 3d 22 48 65 61 64  65 72 22 0d 02 f8 40 6d  |4)="Header"...@m|
00000900  65 6e 75 25 21 37 36 3d  31 32 38 3a 6d 65 6e 75  |enu%!76=128:menu|
00000910  25 21 38 30 3d 30 3a 6d  65 6e 75 25 21 38 34 3d  |%!80=0:menu%!84=|
00000920  26 37 30 30 30 30 32 31  3a 24 28 6d 65 6e 75 25  |&7000021:$(menu%|
00000930  2b 38 38 29 3d 22 51 75  69 74 22 0d 03 02 2e c8  |+88)="Quit".....|
00000940  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00000950  6e 75 22 2c 2c 6d 65 6e  75 25 2c 21 62 6c 6f 63  |nu",,menu%,!bloc|
00000960  6b 25 2d 37 36 2c 32 32  38 0d 03 0c 05 e1 0d ff  |k%-76,228.......|
00000970

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