Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » InfoScoop » !InfoScoop/!Help/!RunImage

!InfoScoop/!Help/!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 » Acorn User » Acorn User - Shareware Collection (1993).adf » InfoScoop
Filename: !InfoScoop/!Help/!RunImage
Read OK:
File size: 0A71 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM><EDITFILE>
   20REM
   30REM !Help file shower
   40REM
   50REM (c) Dirk Willem van Gulik
   60REM     Landgoed Leeuwzicht
   70REM     Lipperkerkstraat 290
   80REM     7533 RK Enschede
   90REM
  100REM     Version 1.00 Feb 1991
  110SYS"Hourglass_On"
  120title$="Helper"
  130version$="(c) Feb 1991 V 1.00"
  140mypath$="<help$dir>."
  150Sy%=40:SYS"OS_GetEnv" TO myfile$:myfile$=mypath$+"textfile"
  170Q%=OPENINmyfile$:
  180IFQ%=0ERROR1,"Cannot find the file to be shown"
  190L%=EXT#Q%
  200HL%=4*INT((L%*1.4+200)/4):H%=HIMEM
  210CLOSE#Q%
  220SYS"Wimp_SlotSize",-1,-1 TO a%:SYS"Wimp_SlotSize",a%+HL%,-1
  230SYS"OS_Heap",0,H%,,HL%:E%=H%+HL%
  240DIM block% 500
  250DIM menu% 104
  260SYS"Wimp_Initialise",200,&4B534154,title$
  270ONERRORPROCE
  280SYS"Wimp_OpenTemplate",,mypath$+"templates"
  290SYS"Wimp_LoadTemplate",,block%,H%,H%+200,-1,"info",0 TO,,H%
  300$!(block%+108++0*32)=title$
  310$!(block%+108+1*32)="Displays HELP files"
  320$!(block%+108+3*32)=version$
  330SYS"Wimp_CreateWindow",,block% TO info%
  340SYS"Wimp_LoadTemplate",,block%,H%,H%+200,-1,"main",0 TO,,H%
  350SYS"Wimp_CreateWindow",,block% TO main%
  360SYS"Wimp_CloseTemplate"
  370SYS"OS_File",&FF,mypath$+"menus",menu%,0
  380!(menu%+28+4)=info%
  390SYS"OS_File",&FF,myfile$,H%
  400Mfile%=H%:H%+=L%:Mtabl%=H%:I%=Mfile%:!H%=I%:ML%=0:WHILEI%<Mtabl%
  410I%+=1
  420IF?I%=10 THEN
  430 H%+=4:!H%=I%+1:?I%=13:IF !H%-!(H%-4)>ML% ML%=!H%-!(H%-4)
  440 IFH%>E% ERROR 1,"Too many lines"
  450 ENDIF
  460ENDWHILE
  470lines%=(H%-Mtabl%)DIV4:!block%=0:block%!4=-Sy%*(lines%+1):block%!8=(ML%+2)*16:block%!12=0:SYS"Wimp_SetExtent",main%,block%
  480!block%=main%:SYS"Wimp_GetWindowState",,block%:SYS"Wimp_OpenWindow",,block%
  490q%=FALSE
  500SYS"Hourglass_Off"
  510REPEAT
  520SYS"Wimp_Poll",%1110110110001,block% TO r%
  530CASEr%OF
  540WHEN1:PROCrd
  550WHEN2:SYS"Wimp_OpenWindow",,block%
  560WHEN3:SYS"Wimp_CloseWindow",,block%:q%=TRUE
  570WHEN6:IFblock%!8=2THEN
  580   SYS"Wimp_CreateMenu",,menu%,!block%-60,block%!4+40
  590   ENDIF
  600WHEN9:CASE!block%OF
  610WHEN1:SYS"OS_File",0,"printer:",,,Mfile%,Mtabl%-1
  620WHEN2:q%=TRUE
  630ENDCASE
  640WHEN17,18:IFblock%!16=0q%=TRUE
  650REMOTHERWISE ERROR 1,"Unexpected WimpPoll"
  660ENDCASE
  670UNTILq%
  680SYS"Wimp_CloseDown"
  690END
  700
  710DEFPROCrd
  720SYS"Wimp_RedrawWindow",,block% TO f%
  730OX%=block%!4-block%!20:OY%=block%!16-block%!24
  740WHILE f%
  750 Sa%=-(block%!40-OY%)DIVSy% -1
  760 IFSa%>=lines%Sa%=lines%-1
  770 IFSa%<0Sa%=0
  780 Sb%=-(block%!32-OY%)DIVSy% +1
  790 IFSb%>=lines%Sb%=lines%-1
  800 IFSb%<0Sb%=0
  810 a%=Mtabl%!(Sa%*4):b%=Mtabl%!(Sb%*4)
  820 REPEAT
  830  MOVE16+OX%,OY%-Sa%*Sy%-16:PRINT$a%:a%+=LEN$a%+1:Sa%+=1
  840  UNTIL a%>b% OR Sa%>Sb%
  850 SYS"Wimp_GetRectangle",,block% TO f%
  860 ENDWHILE
  870ENDPROC
  880
  890DEF PROCE
  900ON ERROR OFF
  910!block%=ERL
  911IFERL=1R$=REPORT$ELSER$="("+STR$ERR+","+STR$ERL+")"
  920$(block%+4)="Internal error "+R$+" about to quit"
  930SYS"Wimp_ReportError",block%,,title$
  940OSCLI"KEY1EDIT"+STR$ERL+"|M"
  950SYS"Wimp_CloseDown"
  951CLOSE#0
  952SYS"Wimp_CreateMenu",,-1
  953SYS"Hourglass_Smash"
  960END
  970

�><EDITFILE>
�
� !Help file shower
(�
2� (c) Dirk Willem van Gulik
<�     Landgoed Leeuwzicht
F�     Lipperkerkstraat 290
P�     7533 RK Enschede
Z�
d�     Version 1.00 Feb 1991
nș"Hourglass_On"
xtitle$="Helper"
�"version$="(c) Feb 1991 V 1.00"
�mypath$="<help$dir>."
�=Sy%=40:ș"OS_GetEnv" � myfile$:myfile$=mypath$+"textfile"
�Q%=�myfile$:
�.�Q%=0�1,"Cannot find the file to be shown"
�L%=�#Q%
� HL%=4*�((L%*1.4+200)/4):H%=�
��#Q%
�<ș"Wimp_SlotSize",-1,-1 � a%:ș"Wimp_SlotSize",a%+HL%,-1
�#ș"OS_Heap",0,H%,,HL%:E%=H%+HL%
�� block% 500
�� menu% 104
,ș"Wimp_Initialise",200,&4B534154,title$
��E
.ș"Wimp_OpenTemplate",,mypath$+"templates"
"=ș"Wimp_LoadTemplate",,block%,H%,H%+200,-1,"info",0 �,,H%
,$!(block%+108++0*32)=title$
6-$!(block%+108+1*32)="Displays HELP files"
@ $!(block%+108+3*32)=version$
J)ș"Wimp_CreateWindow",,block% � info%
T=ș"Wimp_LoadTemplate",,block%,H%,H%+200,-1,"main",0 �,,H%
^)ș"Wimp_CreateWindow",,block% � main%
hș"Wimp_CloseTemplate"
r+ș"OS_File",&FF,mypath$+"menus",menu%,0
|!(menu%+28+4)=info%
�ș"OS_File",&FF,myfile$,H%
�AMfile%=H%:H%+=L%:Mtabl%=H%:I%=Mfile%:!H%=I%:ML%=0:ȕI%<Mtabl%
�	I%+=1
�
�?I%=10 �
�< H%+=4:!H%=I%+1:?I%=13:� !H%-!(H%-4)>ML% ML%=!H%-!(H%-4)
�  �H%>E% � 1,"Too many lines"
� �
��
�{lines%=(H%-Mtabl%)�4:!block%=0:block%!4=-Sy%*(lines%+1):block%!8=(ML%+2)*16:block%!12=0:ș"Wimp_SetExtent",main%,block%
�M!block%=main%:ș"Wimp_GetWindowState",,block%:ș"Wimp_OpenWindow",,block%
�q%=�
�ș"Hourglass_Off"
��
,ș"Wimp_Poll",%1110110110001,block% � r%
	Ȏr%�

�1:�rd
&"�2:ș"Wimp_OpenWindow",,block%
0(�3:ș"Wimp_CloseWindow",,block%:q%=�
:�6:�block%!8=2�
D8   ș"Wimp_CreateMenu",,menu%,!block%-60,block%!4+40
N   �
X�9:Ȏ!block%�
b1�1:ș"OS_File",0,"printer:",,,Mfile%,Mtabl%-1
l�2:q%=�
v�
��17,18:�block%!16=0q%=�
�,�OTHERWISE ERROR 1,"Unexpected WimpPoll"
��
��q%
�ș"Wimp_CloseDown"
��
�
���rd
�&ș"Wimp_RedrawWindow",,block% � f%
�2OX%=block%!4-block%!20:OY%=block%!16-block%!24
�	ȕ f%
�  Sa%=-(block%!40-OY%)�Sy% -1
� �Sa%>=lines%Sa%=lines%-1
 �Sa%<0Sa%=0
  Sb%=-(block%!32-OY%)�Sy% +1
 �Sb%>=lines%Sb%=lines%-1
  �Sb%<0Sb%=0
*( a%=Mtabl%!(Sa%*4):b%=Mtabl%!(Sb%*4)
4 �
>3  �16+OX%,OY%-Sa%*Sy%-16:�$a%:a%+=�$a%+1:Sa%+=1
H  � a%>b% � Sa%>Sb%
R' ș"Wimp_GetRectangle",,block% � f%
\ �
f�
p
z� �E
�	� � �
�
!block%=�
�"�=1R$=�$�R$="("+ß+","+Þ+")"
�5$(block%+4)="Internal error "+R$+" about to quit"
�'ș"Wimp_ReportError",block%,,title$
��"KEY1EDIT"+Þ+"|M"
�ș"Wimp_CloseDown"
��#0
�ș"Wimp_CreateMenu",,-1
�ș"Hourglass_Smash"
��
�
�
00000000  0d 00 0a 10 f4 3e 3c 45  44 49 54 46 49 4c 45 3e  |.....><EDITFILE>|
00000010  0d 00 14 05 f4 0d 00 1e  17 f4 20 21 48 65 6c 70  |.......... !Help|
00000020  20 66 69 6c 65 20 73 68  6f 77 65 72 0d 00 28 05  | file shower..(.|
00000030  f4 0d 00 32 1f f4 20 28  63 29 20 44 69 72 6b 20  |...2.. (c) Dirk |
00000040  57 69 6c 6c 65 6d 20 76  61 6e 20 47 75 6c 69 6b  |Willem van Gulik|
00000050  0d 00 3c 1d f4 20 20 20  20 20 4c 61 6e 64 67 6f  |..<..     Landgo|
00000060  65 64 20 4c 65 65 75 77  7a 69 63 68 74 0d 00 46  |ed Leeuwzicht..F|
00000070  1e f4 20 20 20 20 20 4c  69 70 70 65 72 6b 65 72  |..     Lipperker|
00000080  6b 73 74 72 61 61 74 20  32 39 30 0d 00 50 1a f4  |kstraat 290..P..|
00000090  20 20 20 20 20 37 35 33  33 20 52 4b 20 45 6e 73  |     7533 RK Ens|
000000a0  63 68 65 64 65 0d 00 5a  05 f4 0d 00 64 1f f4 20  |chede..Z....d.. |
000000b0  20 20 20 20 56 65 72 73  69 6f 6e 20 31 2e 30 30  |    Version 1.00|
000000c0  20 46 65 62 20 31 39 39  31 0d 00 6e 14 c8 99 22  | Feb 1991..n..."|
000000d0  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 00 78  |Hourglass_On"..x|
000000e0  13 74 69 74 6c 65 24 3d  22 48 65 6c 70 65 72 22  |.title$="Helper"|
000000f0  0d 00 82 22 76 65 72 73  69 6f 6e 24 3d 22 28 63  |..."version$="(c|
00000100  29 20 46 65 62 20 31 39  39 31 20 56 20 31 2e 30  |) Feb 1991 V 1.0|
00000110  30 22 0d 00 8c 19 6d 79  70 61 74 68 24 3d 22 3c  |0"....mypath$="<|
00000120  68 65 6c 70 24 64 69 72  3e 2e 22 0d 00 96 3d 53  |help$dir>."...=S|
00000130  79 25 3d 34 30 3a c8 99  22 4f 53 5f 47 65 74 45  |y%=40:.."OS_GetE|
00000140  6e 76 22 20 b8 20 6d 79  66 69 6c 65 24 3a 6d 79  |nv" . myfile$:my|
00000150  66 69 6c 65 24 3d 6d 79  70 61 74 68 24 2b 22 74  |file$=mypath$+"t|
00000160  65 78 74 66 69 6c 65 22  0d 00 aa 10 51 25 3d 8e  |extfile"....Q%=.|
00000170  6d 79 66 69 6c 65 24 3a  0d 00 b4 2e e7 51 25 3d  |myfile$:.....Q%=|
00000180  30 85 31 2c 22 43 61 6e  6e 6f 74 20 66 69 6e 64  |0.1,"Cannot find|
00000190  20 74 68 65 20 66 69 6c  65 20 74 6f 20 62 65 20  | the file to be |
000001a0  73 68 6f 77 6e 22 0d 00  be 0b 4c 25 3d a2 23 51  |shown"....L%=.#Q|
000001b0  25 0d 00 c8 20 48 4c 25  3d 34 2a a8 28 28 4c 25  |%... HL%=4*.((L%|
000001c0  2a 31 2e 34 2b 32 30 30  29 2f 34 29 3a 48 25 3d  |*1.4+200)/4):H%=|
000001d0  93 0d 00 d2 08 d9 23 51  25 0d 00 dc 3c c8 99 22  |......#Q%...<.."|
000001e0  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 2d  |Wimp_SlotSize",-|
000001f0  31 2c 2d 31 20 b8 20 61  25 3a c8 99 22 57 69 6d  |1,-1 . a%:.."Wim|
00000200  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 61 25 2b 48  |p_SlotSize",a%+H|
00000210  4c 25 2c 2d 31 0d 00 e6  23 c8 99 22 4f 53 5f 48  |L%,-1...#.."OS_H|
00000220  65 61 70 22 2c 30 2c 48  25 2c 2c 48 4c 25 3a 45  |eap",0,H%,,HL%:E|
00000230  25 3d 48 25 2b 48 4c 25  0d 00 f0 10 de 20 62 6c  |%=H%+HL%..... bl|
00000240  6f 63 6b 25 20 35 30 30  0d 00 fa 0f de 20 6d 65  |ock% 500..... me|
00000250  6e 75 25 20 31 30 34 0d  01 04 2c c8 99 22 57 69  |nu% 104...,.."Wi|
00000260  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000270  30 30 2c 26 34 42 35 33  34 31 35 34 2c 74 69 74  |00,&4B534154,tit|
00000280  6c 65 24 0d 01 0e 08 ee  85 f2 45 0d 01 18 2e c8  |le$.......E.....|
00000290  99 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  |."Wimp_OpenTempl|
000002a0  61 74 65 22 2c 2c 6d 79  70 61 74 68 24 2b 22 74  |ate",,mypath$+"t|
000002b0  65 6d 70 6c 61 74 65 73  22 0d 01 22 3d c8 99 22  |emplates".."=.."|
000002c0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000002d0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 48 25 2c 48 25  |e",,block%,H%,H%|
000002e0  2b 32 30 30 2c 2d 31 2c  22 69 6e 66 6f 22 2c 30  |+200,-1,"info",0|
000002f0  20 b8 2c 2c 48 25 0d 01  2c 1f 24 21 28 62 6c 6f  | .,,H%..,.$!(blo|
00000300  63 6b 25 2b 31 30 38 2b  2b 30 2a 33 32 29 3d 74  |ck%+108++0*32)=t|
00000310  69 74 6c 65 24 0d 01 36  2d 24 21 28 62 6c 6f 63  |itle$..6-$!(bloc|
00000320  6b 25 2b 31 30 38 2b 31  2a 33 32 29 3d 22 44 69  |k%+108+1*32)="Di|
00000330  73 70 6c 61 79 73 20 48  45 4c 50 20 66 69 6c 65  |splays HELP file|
00000340  73 22 0d 01 40 20 24 21  28 62 6c 6f 63 6b 25 2b  |s"..@ $!(block%+|
00000350  31 30 38 2b 33 2a 33 32  29 3d 76 65 72 73 69 6f  |108+3*32)=versio|
00000360  6e 24 0d 01 4a 29 c8 99  22 57 69 6d 70 5f 43 72  |n$..J).."Wimp_Cr|
00000370  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
00000380  63 6b 25 20 b8 20 69 6e  66 6f 25 0d 01 54 3d c8  |ck% . info%..T=.|
00000390  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
000003a0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 48 25 2c  |ate",,block%,H%,|
000003b0  48 25 2b 32 30 30 2c 2d  31 2c 22 6d 61 69 6e 22  |H%+200,-1,"main"|
000003c0  2c 30 20 b8 2c 2c 48 25  0d 01 5e 29 c8 99 22 57  |,0 .,,H%..^).."W|
000003d0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000003e0  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 6d 61 69 6e  |",,block% . main|
000003f0  25 0d 01 68 1a c8 99 22  57 69 6d 70 5f 43 6c 6f  |%..h..."Wimp_Clo|
00000400  73 65 54 65 6d 70 6c 61  74 65 22 0d 01 72 2b c8  |seTemplate"..r+.|
00000410  99 22 4f 53 5f 46 69 6c  65 22 2c 26 46 46 2c 6d  |."OS_File",&FF,m|
00000420  79 70 61 74 68 24 2b 22  6d 65 6e 75 73 22 2c 6d  |ypath$+"menus",m|
00000430  65 6e 75 25 2c 30 0d 01  7c 17 21 28 6d 65 6e 75  |enu%,0..|.!(menu|
00000440  25 2b 32 38 2b 34 29 3d  69 6e 66 6f 25 0d 01 86  |%+28+4)=info%...|
00000450  1e c8 99 22 4f 53 5f 46  69 6c 65 22 2c 26 46 46  |..."OS_File",&FF|
00000460  2c 6d 79 66 69 6c 65 24  2c 48 25 0d 01 90 41 4d  |,myfile$,H%...AM|
00000470  66 69 6c 65 25 3d 48 25  3a 48 25 2b 3d 4c 25 3a  |file%=H%:H%+=L%:|
00000480  4d 74 61 62 6c 25 3d 48  25 3a 49 25 3d 4d 66 69  |Mtabl%=H%:I%=Mfi|
00000490  6c 65 25 3a 21 48 25 3d  49 25 3a 4d 4c 25 3d 30  |le%:!H%=I%:ML%=0|
000004a0  3a c8 95 49 25 3c 4d 74  61 62 6c 25 0d 01 9a 09  |:..I%<Mtabl%....|
000004b0  49 25 2b 3d 31 0d 01 a4  0d e7 3f 49 25 3d 31 30  |I%+=1.....?I%=10|
000004c0  20 8c 0d 01 ae 3c 20 48  25 2b 3d 34 3a 21 48 25  | ....< H%+=4:!H%|
000004d0  3d 49 25 2b 31 3a 3f 49  25 3d 31 33 3a e7 20 21  |=I%+1:?I%=13:. !|
000004e0  48 25 2d 21 28 48 25 2d  34 29 3e 4d 4c 25 20 4d  |H%-!(H%-4)>ML% M|
000004f0  4c 25 3d 21 48 25 2d 21  28 48 25 2d 34 29 0d 01  |L%=!H%-!(H%-4)..|
00000500  b8 20 20 e7 48 25 3e 45  25 20 85 20 31 2c 22 54  |.  .H%>E% . 1,"T|
00000510  6f 6f 20 6d 61 6e 79 20  6c 69 6e 65 73 22 0d 01  |oo many lines"..|
00000520  c2 06 20 cd 0d 01 cc 05  ce 0d 01 d6 7b 6c 69 6e  |.. .........{lin|
00000530  65 73 25 3d 28 48 25 2d  4d 74 61 62 6c 25 29 81  |es%=(H%-Mtabl%).|
00000540  34 3a 21 62 6c 6f 63 6b  25 3d 30 3a 62 6c 6f 63  |4:!block%=0:bloc|
00000550  6b 25 21 34 3d 2d 53 79  25 2a 28 6c 69 6e 65 73  |k%!4=-Sy%*(lines|
00000560  25 2b 31 29 3a 62 6c 6f  63 6b 25 21 38 3d 28 4d  |%+1):block%!8=(M|
00000570  4c 25 2b 32 29 2a 31 36  3a 62 6c 6f 63 6b 25 21  |L%+2)*16:block%!|
00000580  31 32 3d 30 3a c8 99 22  57 69 6d 70 5f 53 65 74  |12=0:.."Wimp_Set|
00000590  45 78 74 65 6e 74 22 2c  6d 61 69 6e 25 2c 62 6c  |Extent",main%,bl|
000005a0  6f 63 6b 25 0d 01 e0 4d  21 62 6c 6f 63 6b 25 3d  |ock%...M!block%=|
000005b0  6d 61 69 6e 25 3a c8 99  22 57 69 6d 70 5f 47 65  |main%:.."Wimp_Ge|
000005c0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
000005d0  6c 6f 63 6b 25 3a c8 99  22 57 69 6d 70 5f 4f 70  |lock%:.."Wimp_Op|
000005e0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
000005f0  25 0d 01 ea 08 71 25 3d  a3 0d 01 f4 15 c8 99 22  |%....q%=......."|
00000600  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 01  |Hourglass_Off"..|
00000610  fe 05 f5 0d 02 08 2c c8  99 22 57 69 6d 70 5f 50  |......,.."Wimp_P|
00000620  6f 6c 6c 22 2c 25 31 31  31 30 31 31 30 31 31 30  |oll",%1110110110|
00000630  30 30 31 2c 62 6c 6f 63  6b 25 20 b8 20 72 25 0d  |001,block% . r%.|
00000640  02 12 09 c8 8e 72 25 ca  0d 02 1c 0a c9 31 3a f2  |.....r%......1:.|
00000650  72 64 0d 02 26 22 c9 32  3a c8 99 22 57 69 6d 70  |rd..&".2:.."Wimp|
00000660  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00000670  6f 63 6b 25 0d 02 30 28  c9 33 3a c8 99 22 57 69  |ock%..0(.3:.."Wi|
00000680  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000690  2c 62 6c 6f 63 6b 25 3a  71 25 3d b9 0d 02 3a 13  |,block%:q%=...:.|
000006a0  c9 36 3a e7 62 6c 6f 63  6b 25 21 38 3d 32 8c 0d  |.6:.block%!8=2..|
000006b0  02 44 38 20 20 20 c8 99  22 57 69 6d 70 5f 43 72  |.D8   .."Wimp_Cr|
000006c0  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
000006d0  2c 21 62 6c 6f 63 6b 25  2d 36 30 2c 62 6c 6f 63  |,!block%-60,bloc|
000006e0  6b 25 21 34 2b 34 30 0d  02 4e 08 20 20 20 cd 0d  |k%!4+40..N.   ..|
000006f0  02 58 11 c9 39 3a c8 8e  21 62 6c 6f 63 6b 25 ca  |.X..9:..!block%.|
00000700  0d 02 62 31 c9 31 3a c8  99 22 4f 53 5f 46 69 6c  |..b1.1:.."OS_Fil|
00000710  65 22 2c 30 2c 22 70 72  69 6e 74 65 72 3a 22 2c  |e",0,"printer:",|
00000720  2c 2c 4d 66 69 6c 65 25  2c 4d 74 61 62 6c 25 2d  |,,Mfile%,Mtabl%-|
00000730  31 0d 02 6c 0b c9 32 3a  71 25 3d b9 0d 02 76 05  |1..l..2:q%=...v.|
00000740  cb 0d 02 80 1b c9 31 37  2c 31 38 3a e7 62 6c 6f  |......17,18:.blo|
00000750  63 6b 25 21 31 36 3d 30  71 25 3d b9 0d 02 8a 2c  |ck%!16=0q%=....,|
00000760  f4 4f 54 48 45 52 57 49  53 45 20 45 52 52 4f 52  |.OTHERWISE ERROR|
00000770  20 31 2c 22 55 6e 65 78  70 65 63 74 65 64 20 57  | 1,"Unexpected W|
00000780  69 6d 70 50 6f 6c 6c 22  0d 02 94 05 cb 0d 02 9e  |impPoll"........|
00000790  07 fd 71 25 0d 02 a8 16  c8 99 22 57 69 6d 70 5f  |..q%......"Wimp_|
000007a0  43 6c 6f 73 65 44 6f 77  6e 22 0d 02 b2 05 e0 0d  |CloseDown"......|
000007b0  02 bc 04 0d 02 c6 08 dd  f2 72 64 0d 02 d0 26 c8  |.........rd...&.|
000007c0  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
000007d0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 66  |dow",,block% . f|
000007e0  25 0d 02 da 32 4f 58 25  3d 62 6c 6f 63 6b 25 21  |%...2OX%=block%!|
000007f0  34 2d 62 6c 6f 63 6b 25  21 32 30 3a 4f 59 25 3d  |4-block%!20:OY%=|
00000800  62 6c 6f 63 6b 25 21 31  36 2d 62 6c 6f 63 6b 25  |block%!16-block%|
00000810  21 32 34 0d 02 e4 09 c8  95 20 66 25 0d 02 ee 20  |!24...... f%... |
00000820  20 53 61 25 3d 2d 28 62  6c 6f 63 6b 25 21 34 30  | Sa%=-(block%!40|
00000830  2d 4f 59 25 29 81 53 79  25 20 2d 31 0d 02 f8 1d  |-OY%).Sy% -1....|
00000840  20 e7 53 61 25 3e 3d 6c  69 6e 65 73 25 53 61 25  | .Sa%>=lines%Sa%|
00000850  3d 6c 69 6e 65 73 25 2d  31 0d 03 02 10 20 e7 53  |=lines%-1.... .S|
00000860  61 25 3c 30 53 61 25 3d  30 0d 03 0c 20 20 53 62  |a%<0Sa%=0...  Sb|
00000870  25 3d 2d 28 62 6c 6f 63  6b 25 21 33 32 2d 4f 59  |%=-(block%!32-OY|
00000880  25 29 81 53 79 25 20 2b  31 0d 03 16 1d 20 e7 53  |%).Sy% +1.... .S|
00000890  62 25 3e 3d 6c 69 6e 65  73 25 53 62 25 3d 6c 69  |b%>=lines%Sb%=li|
000008a0  6e 65 73 25 2d 31 0d 03  20 10 20 e7 53 62 25 3c  |nes%-1.. . .Sb%<|
000008b0  30 53 62 25 3d 30 0d 03  2a 28 20 61 25 3d 4d 74  |0Sb%=0..*( a%=Mt|
000008c0  61 62 6c 25 21 28 53 61  25 2a 34 29 3a 62 25 3d  |abl%!(Sa%*4):b%=|
000008d0  4d 74 61 62 6c 25 21 28  53 62 25 2a 34 29 0d 03  |Mtabl%!(Sb%*4)..|
000008e0  34 06 20 f5 0d 03 3e 33  20 20 ec 31 36 2b 4f 58  |4. ...>3  .16+OX|
000008f0  25 2c 4f 59 25 2d 53 61  25 2a 53 79 25 2d 31 36  |%,OY%-Sa%*Sy%-16|
00000900  3a f1 24 61 25 3a 61 25  2b 3d a9 24 61 25 2b 31  |:.$a%:a%+=.$a%+1|
00000910  3a 53 61 25 2b 3d 31 0d  03 48 17 20 20 fd 20 61  |:Sa%+=1..H.  . a|
00000920  25 3e 62 25 20 84 20 53  61 25 3e 53 62 25 0d 03  |%>b% . Sa%>Sb%..|
00000930  52 27 20 c8 99 22 57 69  6d 70 5f 47 65 74 52 65  |R' .."Wimp_GetRe|
00000940  63 74 61 6e 67 6c 65 22  2c 2c 62 6c 6f 63 6b 25  |ctangle",,block%|
00000950  20 b8 20 66 25 0d 03 5c  06 20 ce 0d 03 66 05 e1  | . f%..\. ...f..|
00000960  0d 03 70 04 0d 03 7a 08  dd 20 f2 45 0d 03 84 09  |..p...z.. .E....|
00000970  ee 20 85 20 87 0d 03 8e  0d 21 62 6c 6f 63 6b 25  |. . .....!block%|
00000980  3d 9e 0d 03 8f 22 e7 9e  3d 31 52 24 3d f6 24 8b  |=...."..=1R$=.$.|
00000990  52 24 3d 22 28 22 2b c3  9f 2b 22 2c 22 2b c3 9e  |R$="("+..+","+..|
000009a0  2b 22 29 22 0d 03 98 35  24 28 62 6c 6f 63 6b 25  |+")"...5$(block%|
000009b0  2b 34 29 3d 22 49 6e 74  65 72 6e 61 6c 20 65 72  |+4)="Internal er|
000009c0  72 6f 72 20 22 2b 52 24  2b 22 20 61 62 6f 75 74  |ror "+R$+" about|
000009d0  20 74 6f 20 71 75 69 74  22 0d 03 a2 27 c8 99 22  | to quit"...'.."|
000009e0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
000009f0  22 2c 62 6c 6f 63 6b 25  2c 2c 74 69 74 6c 65 24  |",block%,,title$|
00000a00  0d 03 ac 17 ff 22 4b 45  59 31 45 44 49 54 22 2b  |....."KEY1EDIT"+|
00000a10  c3 9e 2b 22 7c 4d 22 0d  03 b6 16 c8 99 22 57 69  |..+"|M"......"Wi|
00000a20  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 03 b7  |mp_CloseDown"...|
00000a30  07 d9 23 30 0d 03 b8 1b  c8 99 22 57 69 6d 70 5f  |..#0......"Wimp_|
00000a40  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00000a50  03 b9 17 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
00000a60  53 6d 61 73 68 22 0d 03  c0 05 e0 0d 03 ca 04 0d  |Smash"..........|
00000a70  ff                                                |.|
00000a71