"� >:dev.$.!PrinterTx.!runimage

� Author : Nigel Gent
(<�        : 79 Southwark Close, STEVENAGE, Herts, SG1 4PH
2�        : 0438 726430
<
Fprogram_name$ = "PrinterTx"
P*purpose$ = "Text only printer utility"
Z)author$  = "� Nigel Gent (Shareware)"
d"version$ = "2.04 (6-Apr-1990)"
nprog_dir$="<PrinterTx$Dir>"
x�swinumbers
�,printer$ = �readvar("PrinterTx$Printer")
�
�� t 4: $t="TASK"
�9ș Wimp_Initialise%,200,!t,program_name$ �,this_task%
�ș Hourglass_On%
��templates
�&�updateicon(info%,1,program_name$)
�!�updateicon(info%,2,purpose$)
� �updateicon(info%,3,author$)
�!�updateicon(info%,4,version$)
��definemenus
��instal_PrinterTx
�ș Hourglass_Off%



 � � �errorbox(program_name$)



"

,� bits 111

6�      2109876543210

@mask% = %1100000110001

J
quit% = �

T�

^)  ș Wimp_Poll%,mask%,q% � action%,q%

h  Ȏ action% �

r%    �  1 :� PROCredraw_window(q%)

|    �  2 : �open_window(q%)

�    �  6 : �mouse_click(q%)

�    �  9 : �decodemenu(q%)

�    � 17,18 : �message(q%)

�  �

�� quit%

��

�

�

���instal_PrinterTx

�6  � swidth%,sheight%,smode%,px%,py%,text$, sprite$

�  sprite$ = "!PrinterTx"

�  text$   = program_name$

�-  � sprite% (�(sprite$)+1),text% �(text$)
*  � validation string to define sprite
  $sprite%="S"+sprite$
  $text%=text$
&A  ș Wimp_SpriteOp%,40,,sprite$ � ,,,swidth%,sheight%,,smode%
0.  ș OS_ReadModeVariable%,smode%,4 � ,,px%
:  swidth%=swidth%<<px%
D.  ș OS_ReadModeVariable%,smode%,5 � ,,py%
N  sheight%=sheight%<<py%
X3  � �(text$)*16 > swidth% � swidth%=�(text$)*16
b1  !q%=-2          :� -1 for app -2 for device
l  q%!4=0
v  q%!8=-16
�  q%!12=q%!4+swidth%
�  q%!16=20+sheight%
�  q%!20=&1700310B
�  q%!24=text%
�  q%!28=sprite%
�  q%!32=�(text$)
�#  ș Wimp_CreateIcon%,,q% � !q%
��
�
� 
�
�;�----------------------------------Application specific
�
��printersetup
2  � reset printer and setup the options chosen

  � loop%
 $  void% = �send_printer("reset")
*M  � loop% = Optionsmenu%+28 � Optionsmenu%+28+((submenuitems%-1)*24) � 24
4     � (!loop% � &01) = &01 �
>,      void% = �send_printer($(loop%+12))
H	    �
R      � do nothing
\	    �
f  �
p�
z
���clearstyle
�!  � clear selected type style
�  � application specific
�  �notick(Optionsmenu%,4)
�  �notick(Optionsmenu%,5)
�  �notick(Optionsmenu%,6)
�  �notick(Optionsmenu%,7)
�  �notick(Optionsmenu%,8)
��
�
���clearsize
�   � clear selected type size
�  � application specific
  �notick(Optionsmenu%,13)
  �notick(Optionsmenu%,14)
  �notick(Optionsmenu%,15)
$  �notick(Optionsmenu%,16)
.�
8
B��optionsmenu
L  � Application specific
V
  � m%
`+  m% = �menu(Optionsmenu%,"Options",11)
j:  m% = �menuitem(m%,"Condensed",   plain%,-1, normal%)
t:  m% = �menuitem(m%,"Elite",       plain%,-1, normal%)
~:  m% = �menuitem(m%,"Expanded",    plain%,-1, normal%)
�9  m% = �menuitem(m%,"Pica", tick% � dot%,-1, normal%)
�  � printer$="Star-LC10" �
�<    m% = �menuitem(m%,"Draft",        tick%,-1, normal%)
�<    m% = �menuitem(m%,"Courier",     plain%,-1, normal%)
�<    m% = �menuitem(m%,"Orator",      plain%,-1, normal%)
�<    m% = �menuitem(m%,"Orator SC",   plain%,-1, normal%)
�<    m% = �menuitem(m%,"Sans Serif",    dot%,-1, normal%)
�  �
�<    m% = �menuitem(m%,"Draft",        tick%,-1, shaded%)
�<    m% = �menuitem(m%,"Courier",     plain%,-1, shaded%)
�<    m% = �menuitem(m%,"Orator",      plain%,-1, shaded%)
�<    m% = �menuitem(m%,"Orator SC",   plain%,-1, shaded%)
<    m% = �menuitem(m%,"Sans Serif",    dot%,-1, shaded%)

  �
:  m% = �menuitem(m%,"Italic",      plain%,-1, normal%)
:  m% = �menuitem(m%,"Double Stk",  plain%,-1, normal%)
(:  m% = �menuitem(m%,"Emphasized",  plain%,-1, normal%)
2:  m% = �menuitem(m%,"Prop.Spaced",   dot%,-1, normal%)
<:  m% = �menuitem(m%,"Normal Size",  tick%,-1, normal%)
F:  m% = �menuitem(m%,"Double Size", plain%,-1, normal%)
P:  m% = �menuitem(m%,"Double High", plain%,-1, normal%)
Z:  m% = �menuitem(m%,"Quad Size",     dot%,-1, normal%)
d:  m% = �menuitem(m%,"Skip Perf.",   last%,-1, normal%)
n�
x
�=�---------------------------------Appliation modified LIB
�
���message(q%)
�#  � deals with messages from OS
�  � application modifiable
�  � size%, filetype%, file$
�  Message_Quit% = 0
�  Message_DataSave% = 1
�  Message_DataSaveAck% = 2
�  Message_DataLoad% = 3
�  Message_DataLoadAck% = 4
�&  Message_TaskInitialise% = &400C2
�  Ȏ q%!16 �
.    � Message_Quit% : ș Wimp_CloseDown%:�
    � Message_DataSave% :
      size% = q%!36
"      filetype% = q%!40
,       file$ = �string(q%+44)
6      q%!0  = 100
@      q%!12 = q%!8
J&      q%!16 = Message_DataSaveAck%
TB      q%!36 = -1 :� this tells saving app not to mark as saved
^'      file$ = "<Wimp$Scrap>" + �(0)
h      $(q%+44) = file$
r)      ș Wimp_SendMessage%,18,q%,q%!4
|    � Message_DataLoad% :
�      size% = q%!36
�      filetype% = q%!40
�       file$ = �string(q%+44)
�*      �dataload(size%,filetype%,file$)
�$      � file$ = "<Wimp$Scrap>" �
�.        �("remove "+file$+" { > null: }" )
�      �
�      q%!12 = q%!8
�&      q%!16 = Message_DataLoadAck%
�)      ș Wimp_SendMessage%,17,q%,q%!4
�#    � Message_TaskInitialise% :
�?      � �string(q%+28)=program_name$ � q%!4 <> this_task% �
�        quit%=�
      �
      �
  �
&�
0
:%��dataload(size%,filetype%,file$)
D   � deal with recieving data
N  � Application modifiable
X  ș Hourglass_On%
b  Ȏ filetype% �
l"    � &FFF,&FFE,&FFD,&FF4,&FEB
v,      � text,command,data,DotMatrix,Obey
�      �printersetup
�<      �("*copy "+file$+" printer: ~C~DL~V { > null: }" )
�(      void% = �send_printer("reset")
�	    
�@      �problem("Don't know how to print this type of file.")
�  �
�  ș Hourglass_Off%
��
�
���mouse_click(q%)
�  � responds to mouse click
�  � application dependant
�(  � iconbar%, window%, mx%, my%, mb%
  iconbar% = -2
  mx%=q%!0
  my%=q%!4
   mb%=q%!8
*  window%=q%!12
4  � window% = iconbar% �
>    Ȏ mb% �
H
      � 2
RH        ș Wimp_CreateMenu%,,iconmenu%,mx%-iconmenu%!16/2-24,164+152
\	    �
f  �
p  �
z�
�
���decodemenu(q%)
�  � application modified
�  � selection%,selsction$
�  � selection% 255
�3  ș Wimp_DecodeMenu%,0,iconmenu%,q%,selection%
�  selection$ = $selection%
�  Ȏ selection$ �
�    � "Info"
�      � do nothing
�    � "Help"
�0      �help(prog_dir$,program_name$+" Help")
�    � "Configure"
	      � do nothing
	    � "Configure.Epson-FX"
	$      �tick(Configuremenu%,q%!4)
	$7      �notick(Configuremenu%,1):printer$="Epson-FX"
	.      �optionsmenu
	8    � "Configure.Star-LC10"
	B$      �tick(Configuremenu%,q%!4)
	L8      �notick(Configuremenu%,0):printer$="Star-LC10"
	V      �optionsmenu
	`    � "Options"
	j      � do nothing
	t    � "Options.Condensed"
	~      �tick(Optionsmenu%,0)
	�    � "Options.Elite"
	�      �tick(Optionsmenu%,1)
	�!      �notick(Optionsmenu%,3)
	�    � "Options.Expanded"
	�      �tick(Optionsmenu%,2)
	�    � "Options.Pica"
	�      �tick(Optionsmenu%,3)
	�!      �notick(Optionsmenu%,1)
	�    � "Options.Draft"
	�      �clearstyle
	�      �tick(Optionsmenu%,4)
	�    � "Options.Courier"
      �clearstyle

      �tick(Optionsmenu%,5)
    � "Options.Orator"
      �clearstyle
(      �tick(Optionsmenu%,6)
2    � "Options.Orator SC"
<      �clearstyle
F      �tick(Optionsmenu%,7)
P    � "Options.Sans Serif"
Z      �clearstyle
d      �tick(Optionsmenu%,8)
n    � "Options.Italic"
x      �tick(Optionsmenu%,9)
�    � "Options.Double Stk"
�       �tick(Optionsmenu%,10)
�    � "Options.Emphasized"
�       �tick(Optionsmenu%,11)
�    � "Options.Prop.Spaced"
�       �tick(Optionsmenu%,12)
�    � "Options.Normal Size"
�      �clearsize
�       �tick(Optionsmenu%,13)
�    � "Options.Double Size"
�      �clearsize
�       �tick(Optionsmenu%,14)
�    � "Options.Double High"
      �clearsize
       �tick(Optionsmenu%,15)
    � "Options.Quad Size"
"      �clearsize
,       �tick(Optionsmenu%,16)
6    � "Options.Skip Perf."
@       �tick(Optionsmenu%,17)
J    � "Remove"
T      ș Wimp_CloseDown%:�
^	    
h5      � 1,"Menu decode "+selection$+" not known."
r  �
|  � redrwa if adjust
�!  ș Wimp_GetPointerInfo%,,q%
�  � q%!8 = 1 �
�&    ș Wimp_CreateMenu%,,iconmenu%
�  �
��
�
���definemenus
�  � setup menu structures
�  � application modifiable
�<  tick%=%1:dot%=%10:write%=%100:last%=%10000000:plain%=0
�  normal%= (7<<24) � %10001
�   shaded%= (4<<20) � normal%
�  iconmenuitems% = 5
  submenuitems% = 18
  printers% = 2
6  � m%                                  :� pointer
&&  � iconmenu% 28+iconmenuitems%*24
0(  � Optionsmenu% 28+submenuitems%*24
:&  � Configuremenu% 28+printers%*24
D+  m% = �menu(iconmenu%,program_name$,9)
N>  m% = �menuitem(m%,"Info",     plain%,    info%, normal%)
X>  m% = �menuitem(m%,"Help",     plain%,       -1, normal%)
bC  m% = �menuitem(m%,"Configure",plain%,Configuremenu%, normal%)
lA  m% = �menuitem(m%,"Options",  plain%,Optionsmenu%, normal%)
v>  m% = �menuitem(m%,"Remove",    last%,       -1, normal%)
�-  m% = �menu(Configuremenu%,"Printers",9)
�6  m% = �menuitem(m%,"Epson-FX", plain%,-1,normal%)
�6  m% = �menuitem(m%,"Star-LC10", last%,-1,normal%)
�  Ȏ printer$ �
�,    � "Epson-FX":�tick(Configuremenu%,0)
�-    � "Star-LC10":�tick(Configuremenu%,1)
�	    
�0      � 100,"Printer: "+printer$+" unknown."
�  �
�  �optionsmenu
��
�
���templates

  � global q%

  indirlen%=500

!  � q% 3500, indir% indirlen%

    indirend%=indir%+indirlen%

*5  ș Wimp_OpenTemplate%,,prog_dir$ + ".Templates"

49  � � ș Wimp_CloseTemplate%:�errorbox(program_name$)

>  temp%=indir%

HE  ș Wimp_LoadTemplate%,,q%,temp%,indirend%,-1,"info",0 � ,,temp%

RG  q%!64=1                                   :� use wimp sprite area

\'  ș Wimp_CreateWindow%,,q% � info%

f  ș Wimp_CloseTemplate%

p�

z

�

�

�

�:�------------------------------------BASIC Lib follows

�

�
ݤslot

�  � finish%

�  � finish% 0

�= finish% - �

�

�ݤstring(a%)

�+  � extacts C style 0 terminated string

�  � application independant

  � b$
  b$=""
  ȕ ?a%<>0
$    b$+=�?a%
.
    a%+=1
8  �
B=b$
L
V� �force_lower_case(text$)
`  � application independant
j  � loop%, chr%
t  � loop%=1 � �(text$)
~    chr%=�(�text$,loop%,1))
�    � chr%>64 � chr%<91 �
�$      �text$,loop%,1)=�(chr%+32)
�	    �
�  �
�
=text$
�
�� �send_printer(function$)
�,  � sends control sequences to a printer
�<  � printer control codes for Star-LC10 in standard mode
�'  � dependant on FNforce_lower_case
�0  � side effects turns printer off with VDU3
�.  function$ = �force_lower_case(function$)
  �2

  Ȏ function$ �
%    � "condensed"          :�1,15
%    � "condensed_off"      :�1,18
(>    � "courier"            :�1,27,1,107,1,0,1,27,1,120,1,1
2H    � "double high"        :�1,27,1,91,1,64,1,4,1,0,1,0,1,0,1,34,1,1
<H    � "double_height_off"  :�1,27,1,91,1,64,1,4,1,0,1,0,1,0,1,17,1,1
F/    � "double size"        :�1,27,1,104,1,1
P/    � "double_size_off"    :�1,27,1,104,1,0
Z*    � "double stk"         :�1,27,1,71
d*    � "double_strike_off"  :�1,27,1,72
n/    � "draft","nlq_off"    :�1,27,1,120,1,0
x*    � "elite"              :�1,27,1,77
�*    � "emphasized"         :�1,27,1,69
�*    � "emphasized_off"     :�1,27,1,70
�/    � "expanded"           :�1,27,1,87,1,49
�/    � "expanded_off"       :�1,27,1,87,1,48
�*    � "italic"             :�1,27,1,52
�*    � "italic_off"         :�1,27,1,53
�0    � "nlq"                :�1,27,1,120,1,49
�>    � "orator"             :�1,27,1,107,1,3,1,27,1,120,1,1
�>    � "orator sc"          :�1,27,1,107,1,2,1,27,1,120,1,1
�/    � "overlining"         :�1,27,1,95,1,49
�/    � "overlining_off"     :�1,27,1,95,1,48
�*    � "pica"               :�1,27,1,80
�1    � "prop.spaced"         :�1,27,1,112,1,49
0    � "proportional_off"   :�1,27,1,112,1,48
/    � "quad size"          :�1,27,1,104,1,2
/    � "normal size"        :�1,27,1,104,1,0
"*    � "reset"              :�1,27,1,64
,0    � "subscript"          :�1,27,1,83 ,1,49
6*    � "subscript_off"      :�1,27,1,84
@0    � "superscript"        :�1,27,1,83 ,1,48
J*    � "superscript_off"    :�1,27,1,84
T>    � "sans serif"         :�1,27,1,107,1,1,1,27,1,120,1,1
^/    � "underlining"        :�1,27,1,45,1,49
h/    � "underlining_off"    :�1,27,1,45,1,48
r.    � "skip perf."         :�1,27,1,78,1,4
|9     � 1,"Send_printer unknown command - "+function$
�  �
�  �3
�=�
�
���print_line(line$)
�  � sends line to printer
�  � application independant
�0  � side effects turns printer off with VDU3
�
  � loop%
�  �2
�  � loop%=1 � �(line$)
�    �1,�(�line$,loop%,1))
�  �
  �1,10,1,13,3
�

&ݤreadvar(name$)
0B  � returns the string contained in an OS environment variable
:  � application independant
D)  � q%, bytes%, name%, loop%, result$
N  � q% 256, name% 100
X  $name% = name$
b1  ș OS_ReadVarVal%,name%,q%,256,0 � ,,bytes%
l  result$=""
v  � loop%=0 � bytes% - 1
�    result$ += � q%?loop%
�  �
�=result$
�
�:�-------------------------------------Wimp Lib follows
�
���redraw_window(q%)
�
  � more%
�'  ș Wimp_RedrawWindow%,,q% � more%
�  ȕ more%
�    � 0,"Inloop"
�)    ș Wimp_GetRectangle%,,q% � more%
�  �
�

��open_window(q%)
   ș Wimp_OpenWindow%,,q%
*�
4
>��close_window(q%)
H  ș Wimp_CloseWindow,,q%
R�
\
f
p
z%��updateicon(window%,icon%,text$)
�+  � updates the string in a window icon
�  � application independant
�  � q%,text%
�  � q% 255
�  q%!0=window%:q%!4=icon%
�   ș Wimp_GetIconState%,0,q%
�  text%=q%!28
�  $text%=text$
��
�
���tick(menu%,item%)
�"  � toggle tick on a menu item
�  � application independant
  � address%
(  address% = menu% + 28 + (24*item%)
#  address%!0 = address%!0 � &01
$�
.
8��notick(menu%,item%)
B$  � turn off tick on a menu item
L  � application independant
V  � address%
`(  address% = menu% + 28 + (24*item%)
j%  address%!0 = address%!0 � � &01
t�
~
�&ݤmenu(address%,title$,menuwidth%)
�$  � build header data for a menu
�  � application independent
�5  $address%   = title$              :� menu title
�;  address%?12 = 7                   :� standard colours
�  address%?13 = 2
�  address%?14 = 7
�  address%?15 = 0
�9  address%!16 = 16+(16*menuwidth%)  :� width in chars
�1  address%!20 = 44                  :� height
�6  address%!24 = 0                   :� gap between
�=address%+28


Eݤmenuitem(address%,itemname$,menuflags%,Optionsmenu%,iconflags%)
"  � build data for a menu item
  � application independent
(  address%!0 = menuflags%
2  address%!4 = Optionsmenu%
<  address%!8 = iconflags%
F   $(address%+12) = itemname$
P=address%+24
Z
d��help(prog_dir$,title$)
n7  � types  !help in command window in noscroll mode
x  � application independant
�
  � help%
�  � help% 255
�  $help%=title$
�"  ș Wimp_CommandWindow%,help%
�&  �("*type "+prog_dir$+".!help"  )
�  ș Wimp_CommandWindow%,0
��
�
���problem(problem$)
�,  � does error report for minor problems
�  � application indepndant
�   � sets up error data block
�  � problemblk%
  � problemblk% &100
  ș Hourglass_Smash%
  !problemblk%=0
"  $(problemblk%+4)=problem$
,)  problemblk%?(4+�$(problemblk%+4))=0
6:  ș Wimp_ReportError%, problemblk%,%10001,"PrinterTx"
@�
J
T��errorbox(appname$)
^  � requires FNerrblk
h  � application independant
r  � result%
|  �3
�  ș Wimp_CommandWindow%,-1
�N  ș Wimp_ReportError%, �errblk(appname$,�,�$),%11,"PrinterTx" � ,result%:
�  � result% = 2 �
�    ș Wimp_CloseDown%
�	    �
�  �
��
�
�#ݤerrblk(appname$,err%,report$)
�   � sets up error data block
�  � errblk%
�  � errblk% &100
�  ș Hourglass_Smash%
  !errblk%=err%
y  $(errblk%+4)="Undocumented feature: "+report$+" At line "+Þ+". Use OK to continue or Cancel to kill "+appname$+"."
!  errblk%?(4+�$(errblk%+4))=0
&=errblk%
0
:��swinumbers
DH  ș "OS_SWINumberFromString",,"OS_SWINumberFromString" � SWInumber%
NA  ș SWInumber%,,"OS_ReadModeVariable" � OS_ReadModeVariable%
X5  ș SWInumber%,,"OS_ReadVarVal" � OS_ReadVarVal%
b<  ș SWInumber%,,"Wimp_CloseDown"      � Wimp_CloseDown%
l@  ș SWInumber%,,"Wimp_CloseTemplate"  � Wimp_CloseTemplate%
v<  ș SWInumber%,,"Wimp_CloseWindow"  � Wimp_CloseWindow%
�@  ș SWInumber%,,"Wimp_CommandWindow"  � Wimp_CommandWindow%
�=  ș SWInumber%,,"Wimp_CreateIcon"     � Wimp_CreateIcon%
�=  ș SWInumber%,,"Wimp_CreateMenu"     � Wimp_CreateMenu%
�?  ș SWInumber%,,"Wimp_CreateWindow"   � Wimp_CreateWindow%
�=  ș SWInumber%,,"Wimp_DecodeMenu"     � Wimp_DecodeMenu%
�?  ș SWInumber%,,"Wimp_GetIconState"   � Wimp_GetIconState%
�A  ș SWInumber%,,"Wimp_GetPointerInfo" � Wimp_GetPointerInfo%
�?  ș SWInumber%,,"Wimp_GetRectangle"   � Wimp_GetRectangle%
�=  ș SWInumber%,,"Wimp_Initialise"     � Wimp_Initialise%
�?  ș SWInumber%,,"Wimp_LoadTemplate"   � Wimp_LoadTemplate%
�?  ș SWInumber%,,"Wimp_OpenTemplate"   � Wimp_OpenTemplate%
�=  ș SWInumber%,,"Wimp_OpenWindow"     � Wimp_OpenWindow%
�7  ș SWInumber%,,"Wimp_Poll"           � Wimp_Poll%
?  ș SWInumber%,,"Wimp_RedrawWindow"   � Wimp_RedrawWindow%
>  ș SWInumber%,,"Wimp_ReportError"    � Wimp_ReportError%
>  ș SWInumber%,,"Wimp_SendMessage"    � Wimp_SendMessage%
 ;  ș SWInumber%,,"Wimp_SpriteOp"       � Wimp_SpriteOp%
*6  ș SWInumber%,,"Hourglass_On"    � Hourglass_On%
47  ș SWInumber%,,"Hourglass_Off"   � Hourglass_Off%
>9  ș SWInumber%,,"Hourglass_Smash" � Hourglass_Smash%
H�
�

00000000  0d 00 0a 22 f4 20 3e 3a  64 65 76 2e 24 2e 21 50  |...". >:dev.$.!P|
00000010  72 69 6e 74 65 72 54 78  2e 21 72 75 6e 69 6d 61  |rinterTx.!runima|
00000020  67 65 0d 00 14 04 0d 00  1e 19 f4 20 41 75 74 68  |ge......... Auth|
00000030  6f 72 20 3a 20 4e 69 67  65 6c 20 47 65 6e 74 0d  |or : Nigel Gent.|
00000040  00 28 3c f4 20 20 20 20  20 20 20 20 3a 20 37 39  |.(<.        : 79|
00000050  20 53 6f 75 74 68 77 61  72 6b 20 43 6c 6f 73 65  | Southwark Close|
00000060  2c 20 53 54 45 56 45 4e  41 47 45 2c 20 48 65 72  |, STEVENAGE, Her|
00000070  74 73 2c 20 53 47 31 20  34 50 48 0d 00 32 1a f4  |ts, SG1 4PH..2..|
00000080  20 20 20 20 20 20 20 20  3a 20 30 34 33 38 20 37  |        : 0438 7|
00000090  32 36 34 33 30 0d 00 3c  04 0d 00 46 1f 70 72 6f  |26430..<...F.pro|
000000a0  67 72 61 6d 5f 6e 61 6d  65 24 20 3d 20 22 50 72  |gram_name$ = "Pr|
000000b0  69 6e 74 65 72 54 78 22  0d 00 50 2a 70 75 72 70  |interTx"..P*purp|
000000c0  6f 73 65 24 20 3d 20 22  54 65 78 74 20 6f 6e 6c  |ose$ = "Text onl|
000000d0  79 20 70 72 69 6e 74 65  72 20 75 74 69 6c 69 74  |y printer utilit|
000000e0  79 22 0d 00 5a 29 61 75  74 68 6f 72 24 20 20 3d  |y"..Z)author$  =|
000000f0  20 22 a9 20 4e 69 67 65  6c 20 47 65 6e 74 20 28  | ". Nigel Gent (|
00000100  53 68 61 72 65 77 61 72  65 29 22 0d 00 64 22 76  |Shareware)"..d"v|
00000110  65 72 73 69 6f 6e 24 20  3d 20 22 32 2e 30 34 20  |ersion$ = "2.04 |
00000120  28 36 2d 41 70 72 2d 31  39 39 30 29 22 0d 00 6e  |(6-Apr-1990)"..n|
00000130  1f 70 72 6f 67 5f 64 69  72 24 3d 22 3c 50 72 69  |.prog_dir$="<Pri|
00000140  6e 74 65 72 54 78 24 44  69 72 3e 22 0d 00 78 0f  |nterTx$Dir>"..x.|
00000150  f2 73 77 69 6e 75 6d 62  65 72 73 0d 00 82 2c 70  |.swinumbers...,p|
00000160  72 69 6e 74 65 72 24 20  3d 20 a4 72 65 61 64 76  |rinter$ = .readv|
00000170  61 72 28 22 50 72 69 6e  74 65 72 54 78 24 50 72  |ar("PrinterTx$Pr|
00000180  69 6e 74 65 72 22 29 0d  00 8c 04 0d 00 96 14 de  |inter").........|
00000190  20 74 20 34 3a 20 24 74  3d 22 54 41 53 4b 22 0d  | t 4: $t="TASK".|
000001a0  00 a0 39 c8 99 20 57 69  6d 70 5f 49 6e 69 74 69  |..9.. Wimp_Initi|
000001b0  61 6c 69 73 65 25 2c 32  30 30 2c 21 74 2c 70 72  |alise%,200,!t,pr|
000001c0  6f 67 72 61 6d 5f 6e 61  6d 65 24 20 b8 2c 74 68  |ogram_name$ .,th|
000001d0  69 73 5f 74 61 73 6b 25  0d 00 aa 14 c8 99 20 48  |is_task%...... H|
000001e0  6f 75 72 67 6c 61 73 73  5f 4f 6e 25 0d 00 b4 0e  |ourglass_On%....|
000001f0  f2 74 65 6d 70 6c 61 74  65 73 0d 00 be 26 f2 75  |.templates...&.u|
00000200  70 64 61 74 65 69 63 6f  6e 28 69 6e 66 6f 25 2c  |pdateicon(info%,|
00000210  31 2c 70 72 6f 67 72 61  6d 5f 6e 61 6d 65 24 29  |1,program_name$)|
00000220  0d 00 c8 21 f2 75 70 64  61 74 65 69 63 6f 6e 28  |...!.updateicon(|
00000230  69 6e 66 6f 25 2c 32 2c  70 75 72 70 6f 73 65 24  |info%,2,purpose$|
00000240  29 0d 00 d2 20 f2 75 70  64 61 74 65 69 63 6f 6e  |)... .updateicon|
00000250  28 69 6e 66 6f 25 2c 33  2c 61 75 74 68 6f 72 24  |(info%,3,author$|
00000260  29 0d 00 dc 21 f2 75 70  64 61 74 65 69 63 6f 6e  |)...!.updateicon|
00000270  28 69 6e 66 6f 25 2c 34  2c 76 65 72 73 69 6f 6e  |(info%,4,version|
00000280  24 29 0d 00 e6 10 f2 64  65 66 69 6e 65 6d 65 6e  |$).....definemen|
00000290  75 73 0d 00 f0 15 f2 69  6e 73 74 61 6c 5f 50 72  |us.....instal_Pr|
000002a0  69 6e 74 65 72 54 78 0d  00 fa 15 c8 99 20 48 6f  |interTx...... Ho|
000002b0  75 72 67 6c 61 73 73 5f  4f 66 66 25 0d 01 04 04  |urglass_Off%....|
000002c0  0d 01 0e 20 ee 20 85 20  f2 65 72 72 6f 72 62 6f  |... . . .errorbo|
000002d0  78 28 70 72 6f 67 72 61  6d 5f 6e 61 6d 65 24 29  |x(program_name$)|
000002e0  0d 01 18 04 0d 01 22 04  0d 01 2c 0e f4 20 62 69  |......"...,.. bi|
000002f0  74 73 20 31 31 31 0d 01  36 18 f4 20 20 20 20 20  |ts 111..6..     |
00000300  20 32 31 30 39 38 37 36  35 34 33 32 31 30 0d 01  | 2109876543210..|
00000310  40 1a 6d 61 73 6b 25 20  3d 20 25 31 31 30 30 30  |@.mask% = %11000|
00000320  30 30 31 31 30 30 30 31  0d 01 4a 0d 71 75 69 74  |00110001..J.quit|
00000330  25 20 3d 20 a3 0d 01 54  05 f5 0d 01 5e 29 20 20  |% = ...T....^)  |
00000340  c8 99 20 57 69 6d 70 5f  50 6f 6c 6c 25 2c 6d 61  |.. Wimp_Poll%,ma|
00000350  73 6b 25 2c 71 25 20 b8  20 61 63 74 69 6f 6e 25  |sk%,q% . action%|
00000360  2c 71 25 0d 01 68 12 20  20 c8 8e 20 61 63 74 69  |,q%..h.  .. acti|
00000370  6f 6e 25 20 ca 0d 01 72  25 20 20 20 20 c9 20 20  |on% ...r%    .  |
00000380  31 20 3a f4 20 50 52 4f  43 72 65 64 72 61 77 5f  |1 :. PROCredraw_|
00000390  77 69 6e 64 6f 77 28 71  25 29 0d 01 7c 1f 20 20  |window(q%)..|.  |
000003a0  20 20 c9 20 20 32 20 3a  20 f2 6f 70 65 6e 5f 77  |  .  2 : .open_w|
000003b0  69 6e 64 6f 77 28 71 25  29 0d 01 86 1f 20 20 20  |indow(q%)....   |
000003c0  20 c9 20 20 36 20 3a 20  f2 6d 6f 75 73 65 5f 63  | .  6 : .mouse_c|
000003d0  6c 69 63 6b 28 71 25 29  0d 01 90 1e 20 20 20 20  |lick(q%)....    |
000003e0  c9 20 20 39 20 3a 20 f2  64 65 63 6f 64 65 6d 65  |.  9 : .decodeme|
000003f0  6e 75 28 71 25 29 0d 01  9a 1e 20 20 20 20 c9 20  |nu(q%)....    . |
00000400  31 37 2c 31 38 20 3a 20  f2 6d 65 73 73 61 67 65  |17,18 : .message|
00000410  28 71 25 29 0d 01 a4 07  20 20 cb 0d 01 ae 0b fd  |(q%)....  ......|
00000420  20 71 75 69 74 25 0d 01  b8 05 e0 0d 01 c2 04 0d  | quit%..........|
00000430  01 cc 04 0d 01 d6 16 dd  f2 69 6e 73 74 61 6c 5f  |.........instal_|
00000440  50 72 69 6e 74 65 72 54  78 0d 01 e0 36 20 20 ea  |PrinterTx...6  .|
00000450  20 73 77 69 64 74 68 25  2c 73 68 65 69 67 68 74  | swidth%,sheight|
00000460  25 2c 73 6d 6f 64 65 25  2c 70 78 25 2c 70 79 25  |%,smode%,px%,py%|
00000470  2c 74 65 78 74 24 2c 20  73 70 72 69 74 65 24 0d  |,text$, sprite$.|
00000480  01 ea 1c 20 20 73 70 72  69 74 65 24 20 3d 20 22  |...  sprite$ = "|
00000490  21 50 72 69 6e 74 65 72  54 78 22 0d 01 f4 1d 20  |!PrinterTx".... |
000004a0  20 74 65 78 74 24 20 20  20 3d 20 70 72 6f 67 72  | text$   = progr|
000004b0  61 6d 5f 6e 61 6d 65 24  0d 01 fe 2d 20 20 de 20  |am_name$...-  . |
000004c0  73 70 72 69 74 65 25 20  28 a9 28 73 70 72 69 74  |sprite% (.(sprit|
000004d0  65 24 29 2b 31 29 2c 74  65 78 74 25 20 a9 28 74  |e$)+1),text% .(t|
000004e0  65 78 74 24 29 0d 02 08  2a 20 20 f4 20 76 61 6c  |ext$)...*  . val|
000004f0  69 64 61 74 69 6f 6e 20  73 74 72 69 6e 67 20 74  |idation string t|
00000500  6f 20 64 65 66 69 6e 65  20 73 70 72 69 74 65 0d  |o define sprite.|
00000510  02 12 1a 20 20 24 73 70  72 69 74 65 25 3d 22 53  |...  $sprite%="S|
00000520  22 2b 73 70 72 69 74 65  24 0d 02 1c 12 20 20 24  |"+sprite$....  $|
00000530  74 65 78 74 25 3d 74 65  78 74 24 0d 02 26 41 20  |text%=text$..&A |
00000540  20 c8 99 20 57 69 6d 70  5f 53 70 72 69 74 65 4f  | .. Wimp_SpriteO|
00000550  70 25 2c 34 30 2c 2c 73  70 72 69 74 65 24 20 b8  |p%,40,,sprite$ .|
00000560  20 2c 2c 2c 73 77 69 64  74 68 25 2c 73 68 65 69  | ,,,swidth%,shei|
00000570  67 68 74 25 2c 2c 73 6d  6f 64 65 25 0d 02 30 2e  |ght%,,smode%..0.|
00000580  20 20 c8 99 20 4f 53 5f  52 65 61 64 4d 6f 64 65  |  .. OS_ReadMode|
00000590  56 61 72 69 61 62 6c 65  25 2c 73 6d 6f 64 65 25  |Variable%,smode%|
000005a0  2c 34 20 b8 20 2c 2c 70  78 25 0d 02 3a 1a 20 20  |,4 . ,,px%..:.  |
000005b0  73 77 69 64 74 68 25 3d  73 77 69 64 74 68 25 3c  |swidth%=swidth%<|
000005c0  3c 70 78 25 0d 02 44 2e  20 20 c8 99 20 4f 53 5f  |<px%..D.  .. OS_|
000005d0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
000005e0  25 2c 73 6d 6f 64 65 25  2c 35 20 b8 20 2c 2c 70  |%,smode%,5 . ,,p|
000005f0  79 25 0d 02 4e 1c 20 20  73 68 65 69 67 68 74 25  |y%..N.  sheight%|
00000600  3d 73 68 65 69 67 68 74  25 3c 3c 70 79 25 0d 02  |=sheight%<<py%..|
00000610  58 33 20 20 e7 20 a9 28  74 65 78 74 24 29 2a 31  |X3  . .(text$)*1|
00000620  36 20 3e 20 73 77 69 64  74 68 25 20 8c 20 73 77  |6 > swidth% . sw|
00000630  69 64 74 68 25 3d a9 28  74 65 78 74 24 29 2a 31  |idth%=.(text$)*1|
00000640  36 0d 02 62 31 20 20 21  71 25 3d 2d 32 20 20 20  |6..b1  !q%=-2   |
00000650  20 20 20 20 20 20 20 3a  f4 20 2d 31 20 66 6f 72  |       :. -1 for|
00000660  20 61 70 70 20 2d 32 20  66 6f 72 20 64 65 76 69  | app -2 for devi|
00000670  63 65 0d 02 6c 0c 20 20  71 25 21 34 3d 30 0d 02  |ce..l.  q%!4=0..|
00000680  76 0e 20 20 71 25 21 38  3d 2d 31 36 0d 02 80 18  |v.  q%!8=-16....|
00000690  20 20 71 25 21 31 32 3d  71 25 21 34 2b 73 77 69  |  q%!12=q%!4+swi|
000006a0  64 74 68 25 0d 02 8a 17  20 20 71 25 21 31 36 3d  |dth%....  q%!16=|
000006b0  32 30 2b 73 68 65 69 67  68 74 25 0d 02 94 15 20  |20+sheight%.... |
000006c0  20 71 25 21 32 30 3d 26  31 37 30 30 33 31 30 42  | q%!20=&1700310B|
000006d0  0d 02 9e 11 20 20 71 25  21 32 34 3d 74 65 78 74  |....  q%!24=text|
000006e0  25 0d 02 a8 13 20 20 71  25 21 32 38 3d 73 70 72  |%....  q%!28=spr|
000006f0  69 74 65 25 0d 02 b2 14  20 20 71 25 21 33 32 3d  |ite%....  q%!32=|
00000700  a9 28 74 65 78 74 24 29  0d 02 bc 23 20 20 c8 99  |.(text$)...#  ..|
00000710  20 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  | Wimp_CreateIcon|
00000720  25 2c 2c 71 25 20 b8 20  21 71 25 0d 02 c6 05 e1  |%,,q% . !q%.....|
00000730  0d 02 d0 04 0d 02 da 05  20 0d 02 e4 04 0d 02 ee  |........ .......|
00000740  3b f4 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |;.--------------|
00000750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000760  2d 2d 2d 2d 41 70 70 6c  69 63 61 74 69 6f 6e 20  |----Application |
00000770  73 70 65 63 69 66 69 63  0d 02 f8 04 0d 03 02 12  |specific........|
00000780  dd f2 70 72 69 6e 74 65  72 73 65 74 75 70 0d 03  |..printersetup..|
00000790  0c 32 20 20 f4 20 72 65  73 65 74 20 70 72 69 6e  |.2  . reset prin|
000007a0  74 65 72 20 61 6e 64 20  73 65 74 75 70 20 74 68  |ter and setup th|
000007b0  65 20 6f 70 74 69 6f 6e  73 20 63 68 6f 73 65 6e  |e options chosen|
000007c0  0d 03 16 0d 20 20 ea 20  6c 6f 6f 70 25 0d 03 20  |....  . loop%.. |
000007d0  24 20 20 76 6f 69 64 25  20 3d 20 a4 73 65 6e 64  |$  void% = .send|
000007e0  5f 70 72 69 6e 74 65 72  28 22 72 65 73 65 74 22  |_printer("reset"|
000007f0  29 0d 03 2a 4d 20 20 e3  20 6c 6f 6f 70 25 20 3d  |)..*M  . loop% =|
00000800  20 4f 70 74 69 6f 6e 73  6d 65 6e 75 25 2b 32 38  | Optionsmenu%+28|
00000810  20 b8 20 4f 70 74 69 6f  6e 73 6d 65 6e 75 25 2b  | . Optionsmenu%+|
00000820  32 38 2b 28 28 73 75 62  6d 65 6e 75 69 74 65 6d  |28+((submenuitem|
00000830  73 25 2d 31 29 2a 32 34  29 20 88 20 32 34 0d 03  |s%-1)*24) . 24..|
00000840  34 20 20 20 20 20 e7 20  28 21 6c 6f 6f 70 25 20  |4     . (!loop% |
00000850  80 20 26 30 31 29 20 3d  20 26 30 31 20 8c 0d 03  |. &01) = &01 ...|
00000860  3e 2c 20 20 20 20 20 20  76 6f 69 64 25 20 3d 20  |>,      void% = |
00000870  a4 73 65 6e 64 5f 70 72  69 6e 74 65 72 28 24 28  |.send_printer($(|
00000880  6c 6f 6f 70 25 2b 31 32  29 29 0d 03 48 09 20 20  |loop%+12))..H.  |
00000890  20 20 cc 0d 03 52 16 20  20 20 20 20 20 f4 20 64  |  ...R.      . d|
000008a0  6f 20 6e 6f 74 68 69 6e  67 0d 03 5c 09 20 20 20  |o nothing..\.   |
000008b0  20 cd 0d 03 66 07 20 20  ed 0d 03 70 05 e1 0d 03  | ...f.  ...p....|
000008c0  7a 04 0d 03 84 10 dd f2  63 6c 65 61 72 73 74 79  |z.......clearsty|
000008d0  6c 65 0d 03 8e 21 20 20  f4 20 63 6c 65 61 72 20  |le...!  . clear |
000008e0  73 65 6c 65 63 74 65 64  20 74 79 70 65 20 73 74  |selected type st|
000008f0  79 6c 65 0d 03 98 1c 20  20 f4 20 61 70 70 6c 69  |yle....  . appli|
00000900  63 61 74 69 6f 6e 20 73  70 65 63 69 66 69 63 0d  |cation specific.|
00000910  03 a2 1d 20 20 f2 6e 6f  74 69 63 6b 28 4f 70 74  |...  .notick(Opt|
00000920  69 6f 6e 73 6d 65 6e 75  25 2c 34 29 0d 03 ac 1d  |ionsmenu%,4)....|
00000930  20 20 f2 6e 6f 74 69 63  6b 28 4f 70 74 69 6f 6e  |  .notick(Option|
00000940  73 6d 65 6e 75 25 2c 35  29 0d 03 b6 1d 20 20 f2  |smenu%,5)....  .|
00000950  6e 6f 74 69 63 6b 28 4f  70 74 69 6f 6e 73 6d 65  |notick(Optionsme|
00000960  6e 75 25 2c 36 29 0d 03  c0 1d 20 20 f2 6e 6f 74  |nu%,6)....  .not|
00000970  69 63 6b 28 4f 70 74 69  6f 6e 73 6d 65 6e 75 25  |ick(Optionsmenu%|
00000980  2c 37 29 0d 03 ca 1d 20  20 f2 6e 6f 74 69 63 6b  |,7)....  .notick|
00000990  28 4f 70 74 69 6f 6e 73  6d 65 6e 75 25 2c 38 29  |(Optionsmenu%,8)|
000009a0  0d 03 d4 05 e1 0d 03 de  04 0d 03 e8 0f dd f2 63  |...............c|
000009b0  6c 65 61 72 73 69 7a 65  0d 03 f2 20 20 20 f4 20  |learsize...   . |
000009c0  63 6c 65 61 72 20 73 65  6c 65 63 74 65 64 20 74  |clear selected t|
000009d0  79 70 65 20 73 69 7a 65  0d 03 fc 1c 20 20 f4 20  |ype size....  . |
000009e0  61 70 70 6c 69 63 61 74  69 6f 6e 20 73 70 65 63  |application spec|
000009f0  69 66 69 63 0d 04 06 1e  20 20 f2 6e 6f 74 69 63  |ific....  .notic|
00000a00  6b 28 4f 70 74 69 6f 6e  73 6d 65 6e 75 25 2c 31  |k(Optionsmenu%,1|
00000a10  33 29 0d 04 10 1e 20 20  f2 6e 6f 74 69 63 6b 28  |3)....  .notick(|
00000a20  4f 70 74 69 6f 6e 73 6d  65 6e 75 25 2c 31 34 29  |Optionsmenu%,14)|
00000a30  0d 04 1a 1e 20 20 f2 6e  6f 74 69 63 6b 28 4f 70  |....  .notick(Op|
00000a40  74 69 6f 6e 73 6d 65 6e  75 25 2c 31 35 29 0d 04  |tionsmenu%,15)..|
00000a50  24 1e 20 20 f2 6e 6f 74  69 63 6b 28 4f 70 74 69  |$.  .notick(Opti|
00000a60  6f 6e 73 6d 65 6e 75 25  2c 31 36 29 0d 04 2e 05  |onsmenu%,16)....|
00000a70  e1 0d 04 38 04 0d 04 42  11 dd f2 6f 70 74 69 6f  |...8...B...optio|
00000a80  6e 73 6d 65 6e 75 0d 04  4c 1c 20 20 f4 20 41 70  |nsmenu..L.  . Ap|
00000a90  70 6c 69 63 61 74 69 6f  6e 20 73 70 65 63 69 66  |plication specif|
00000aa0  69 63 0d 04 56 0a 20 20  ea 20 6d 25 0d 04 60 2b  |ic..V.  . m%..`+|
00000ab0  20 20 6d 25 20 3d 20 a4  6d 65 6e 75 28 4f 70 74  |  m% = .menu(Opt|
00000ac0  69 6f 6e 73 6d 65 6e 75  25 2c 22 4f 70 74 69 6f  |ionsmenu%,"Optio|
00000ad0  6e 73 22 2c 31 31 29 0d  04 6a 3a 20 20 6d 25 20  |ns",11)..j:  m% |
00000ae0  3d 20 a4 6d 65 6e 75 69  74 65 6d 28 6d 25 2c 22  |= .menuitem(m%,"|
00000af0  43 6f 6e 64 65 6e 73 65  64 22 2c 20 20 20 70 6c  |Condensed",   pl|
00000b00  61 69 6e 25 2c 2d 31 2c  20 6e 6f 72 6d 61 6c 25  |ain%,-1, normal%|
00000b10  29 0d 04 74 3a 20 20 6d  25 20 3d 20 a4 6d 65 6e  |)..t:  m% = .men|
00000b20  75 69 74 65 6d 28 6d 25  2c 22 45 6c 69 74 65 22  |uitem(m%,"Elite"|
00000b30  2c 20 20 20 20 20 20 20  70 6c 61 69 6e 25 2c 2d  |,       plain%,-|
00000b40  31 2c 20 6e 6f 72 6d 61  6c 25 29 0d 04 7e 3a 20  |1, normal%)..~: |
00000b50  20 6d 25 20 3d 20 a4 6d  65 6e 75 69 74 65 6d 28  | m% = .menuitem(|
00000b60  6d 25 2c 22 45 78 70 61  6e 64 65 64 22 2c 20 20  |m%,"Expanded",  |
00000b70  20 20 70 6c 61 69 6e 25  2c 2d 31 2c 20 6e 6f 72  |  plain%,-1, nor|
00000b80  6d 61 6c 25 29 0d 04 88  39 20 20 6d 25 20 3d 20  |mal%)...9  m% = |
00000b90  a4 6d 65 6e 75 69 74 65  6d 28 6d 25 2c 22 50 69  |.menuitem(m%,"Pi|
00000ba0  63 61 22 2c 20 74 69 63  6b 25 20 84 20 64 6f 74  |ca", tick% . dot|
00000bb0  25 2c 2d 31 2c 20 6e 6f  72 6d 61 6c 25 29 0d 04  |%,-1, normal%)..|
00000bc0  92 1e 20 20 e7 20 70 72  69 6e 74 65 72 24 3d 22  |..  . printer$="|
00000bd0  53 74 61 72 2d 4c 43 31  30 22 20 8c 0d 04 9c 3c  |Star-LC10" ....<|
00000be0  20 20 20 20 6d 25 20 3d  20 a4 6d 65 6e 75 69 74  |    m% = .menuit|
00000bf0  65 6d 28 6d 25 2c 22 44  72 61 66 74 22 2c 20 20  |em(m%,"Draft",  |
00000c00  20 20 20 20 20 20 74 69  63 6b 25 2c 2d 31 2c 20  |      tick%,-1, |
00000c10  6e 6f 72 6d 61 6c 25 29  0d 04 a6 3c 20 20 20 20  |normal%)...<    |
00000c20  6d 25 20 3d 20 a4 6d 65  6e 75 69 74 65 6d 28 6d  |m% = .menuitem(m|
00000c30  25 2c 22 43 6f 75 72 69  65 72 22 2c 20 20 20 20  |%,"Courier",    |
00000c40  20 70 6c 61 69 6e 25 2c  2d 31 2c 20 6e 6f 72 6d  | plain%,-1, norm|
00000c50  61 6c 25 29 0d 04 b0 3c  20 20 20 20 6d 25 20 3d  |al%)...<    m% =|
00000c60  20 a4 6d 65 6e 75 69 74  65 6d 28 6d 25 2c 22 4f  | .menuitem(m%,"O|
00000c70  72 61 74 6f 72 22 2c 20  20 20 20 20 20 70 6c 61  |rator",      pla|
00000c80  69 6e 25 2c 2d 31 2c 20  6e 6f 72 6d 61 6c 25 29  |in%,-1, normal%)|
00000c90  0d 04 ba 3c 20 20 20 20  6d 25 20 3d 20 a4 6d 65  |...<    m% = .me|
00000ca0  6e 75 69 74 65 6d 28 6d  25 2c 22 4f 72 61 74 6f  |nuitem(m%,"Orato|
00000cb0  72 20 53 43 22 2c 20 20  20 70 6c 61 69 6e 25 2c  |r SC",   plain%,|
00000cc0  2d 31 2c 20 6e 6f 72 6d  61 6c 25 29 0d 04 c4 3c  |-1, normal%)...<|
00000cd0  20 20 20 20 6d 25 20 3d  20 a4 6d 65 6e 75 69 74  |    m% = .menuit|
00000ce0  65 6d 28 6d 25 2c 22 53  61 6e 73 20 53 65 72 69  |em(m%,"Sans Seri|
00000cf0  66 22 2c 20 20 20 20 64  6f 74 25 2c 2d 31 2c 20  |f",    dot%,-1, |
00000d00  6e 6f 72 6d 61 6c 25 29  0d 04 ce 07 20 20 cc 0d  |normal%)....  ..|
00000d10  04 d8 3c 20 20 20 20 6d  25 20 3d 20 a4 6d 65 6e  |..<    m% = .men|
00000d20  75 69 74 65 6d 28 6d 25  2c 22 44 72 61 66 74 22  |uitem(m%,"Draft"|
00000d30  2c 20 20 20 20 20 20 20  20 74 69 63 6b 25 2c 2d  |,        tick%,-|
00000d40  31 2c 20 73 68 61 64 65  64 25 29 0d 04 e2 3c 20  |1, shaded%)...< |
00000d50  20 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 69 74 65  |   m% = .menuite|
00000d60  6d 28 6d 25 2c 22 43 6f  75 72 69 65 72 22 2c 20  |m(m%,"Courier", |
00000d70  20 20 20 20 70 6c 61 69  6e 25 2c 2d 31 2c 20 73  |    plain%,-1, s|
00000d80  68 61 64 65 64 25 29 0d  04 ec 3c 20 20 20 20 6d  |haded%)...<    m|
00000d90  25 20 3d 20 a4 6d 65 6e  75 69 74 65 6d 28 6d 25  |% = .menuitem(m%|
00000da0  2c 22 4f 72 61 74 6f 72  22 2c 20 20 20 20 20 20  |,"Orator",      |
00000db0  70 6c 61 69 6e 25 2c 2d  31 2c 20 73 68 61 64 65  |plain%,-1, shade|
00000dc0  64 25 29 0d 04 f6 3c 20  20 20 20 6d 25 20 3d 20  |d%)...<    m% = |
00000dd0  a4 6d 65 6e 75 69 74 65  6d 28 6d 25 2c 22 4f 72  |.menuitem(m%,"Or|
00000de0  61 74 6f 72 20 53 43 22  2c 20 20 20 70 6c 61 69  |ator SC",   plai|
00000df0  6e 25 2c 2d 31 2c 20 73  68 61 64 65 64 25 29 0d  |n%,-1, shaded%).|
00000e00  05 00 3c 20 20 20 20 6d  25 20 3d 20 a4 6d 65 6e  |..<    m% = .men|
00000e10  75 69 74 65 6d 28 6d 25  2c 22 53 61 6e 73 20 53  |uitem(m%,"Sans S|
00000e20  65 72 69 66 22 2c 20 20  20 20 64 6f 74 25 2c 2d  |erif",    dot%,-|
00000e30  31 2c 20 73 68 61 64 65  64 25 29 0d 05 0a 07 20  |1, shaded%).... |
00000e40  20 cd 0d 05 14 3a 20 20  6d 25 20 3d 20 a4 6d 65  | ....:  m% = .me|
00000e50  6e 75 69 74 65 6d 28 6d  25 2c 22 49 74 61 6c 69  |nuitem(m%,"Itali|
00000e60  63 22 2c 20 20 20 20 20  20 70 6c 61 69 6e 25 2c  |c",      plain%,|
00000e70  2d 31 2c 20 6e 6f 72 6d  61 6c 25 29 0d 05 1e 3a  |-1, normal%)...:|
00000e80  20 20 6d 25 20 3d 20 a4  6d 65 6e 75 69 74 65 6d  |  m% = .menuitem|
00000e90  28 6d 25 2c 22 44 6f 75  62 6c 65 20 53 74 6b 22  |(m%,"Double Stk"|
00000ea0  2c 20 20 70 6c 61 69 6e  25 2c 2d 31 2c 20 6e 6f  |,  plain%,-1, no|
00000eb0  72 6d 61 6c 25 29 0d 05  28 3a 20 20 6d 25 20 3d  |rmal%)..(:  m% =|
00000ec0  20 a4 6d 65 6e 75 69 74  65 6d 28 6d 25 2c 22 45  | .menuitem(m%,"E|
00000ed0  6d 70 68 61 73 69 7a 65  64 22 2c 20 20 70 6c 61  |mphasized",  pla|
00000ee0  69 6e 25 2c 2d 31 2c 20  6e 6f 72 6d 61 6c 25 29  |in%,-1, normal%)|
00000ef0  0d 05 32 3a 20 20 6d 25  20 3d 20 a4 6d 65 6e 75  |..2:  m% = .menu|
00000f00  69 74 65 6d 28 6d 25 2c  22 50 72 6f 70 2e 53 70  |item(m%,"Prop.Sp|
00000f10  61 63 65 64 22 2c 20 20  20 64 6f 74 25 2c 2d 31  |aced",   dot%,-1|
00000f20  2c 20 6e 6f 72 6d 61 6c  25 29 0d 05 3c 3a 20 20  |, normal%)..<:  |
00000f30  6d 25 20 3d 20 a4 6d 65  6e 75 69 74 65 6d 28 6d  |m% = .menuitem(m|
00000f40  25 2c 22 4e 6f 72 6d 61  6c 20 53 69 7a 65 22 2c  |%,"Normal Size",|
00000f50  20 20 74 69 63 6b 25 2c  2d 31 2c 20 6e 6f 72 6d  |  tick%,-1, norm|
00000f60  61 6c 25 29 0d 05 46 3a  20 20 6d 25 20 3d 20 a4  |al%)..F:  m% = .|
00000f70  6d 65 6e 75 69 74 65 6d  28 6d 25 2c 22 44 6f 75  |menuitem(m%,"Dou|
00000f80  62 6c 65 20 53 69 7a 65  22 2c 20 70 6c 61 69 6e  |ble Size", plain|
00000f90  25 2c 2d 31 2c 20 6e 6f  72 6d 61 6c 25 29 0d 05  |%,-1, normal%)..|
00000fa0  50 3a 20 20 6d 25 20 3d  20 a4 6d 65 6e 75 69 74  |P:  m% = .menuit|
00000fb0  65 6d 28 6d 25 2c 22 44  6f 75 62 6c 65 20 48 69  |em(m%,"Double Hi|
00000fc0  67 68 22 2c 20 70 6c 61  69 6e 25 2c 2d 31 2c 20  |gh", plain%,-1, |
00000fd0  6e 6f 72 6d 61 6c 25 29  0d 05 5a 3a 20 20 6d 25  |normal%)..Z:  m%|
00000fe0  20 3d 20 a4 6d 65 6e 75  69 74 65 6d 28 6d 25 2c  | = .menuitem(m%,|
00000ff0  22 51 75 61 64 20 53 69  7a 65 22 2c 20 20 20 20  |"Quad Size",    |
00001000  20 64 6f 74 25 2c 2d 31  2c 20 6e 6f 72 6d 61 6c  | dot%,-1, normal|
00001010  25 29 0d 05 64 3a 20 20  6d 25 20 3d 20 a4 6d 65  |%)..d:  m% = .me|
00001020  6e 75 69 74 65 6d 28 6d  25 2c 22 53 6b 69 70 20  |nuitem(m%,"Skip |
00001030  50 65 72 66 2e 22 2c 20  20 20 6c 61 73 74 25 2c  |Perf.",   last%,|
00001040  2d 31 2c 20 6e 6f 72 6d  61 6c 25 29 0d 05 6e 05  |-1, normal%)..n.|
00001050  e1 0d 05 78 04 0d 05 82  3d f4 2d 2d 2d 2d 2d 2d  |...x....=.------|
00001060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001070  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 41 70 70 6c 69  |-----------Appli|
00001080  61 74 69 6f 6e 20 6d 6f  64 69 66 69 65 64 20 4c  |ation modified L|
00001090  49 42 0d 05 8c 04 0d 05  96 11 dd f2 6d 65 73 73  |IB..........mess|
000010a0  61 67 65 28 71 25 29 0d  05 a0 23 20 20 f4 20 64  |age(q%)...#  . d|
000010b0  65 61 6c 73 20 77 69 74  68 20 6d 65 73 73 61 67  |eals with messag|
000010c0  65 73 20 66 72 6f 6d 20  4f 53 0d 05 aa 1e 20 20  |es from OS....  |
000010d0  f4 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 6d 6f  |. application mo|
000010e0  64 69 66 69 61 62 6c 65  0d 05 b4 1f 20 20 ea 20  |difiable....  . |
000010f0  73 69 7a 65 25 2c 20 66  69 6c 65 74 79 70 65 25  |size%, filetype%|
00001100  2c 20 66 69 6c 65 24 0d  05 be 17 20 20 4d 65 73  |, file$....  Mes|
00001110  73 61 67 65 5f 51 75 69  74 25 20 3d 20 30 0d 05  |sage_Quit% = 0..|
00001120  c8 1b 20 20 4d 65 73 73  61 67 65 5f 44 61 74 61  |..  Message_Data|
00001130  53 61 76 65 25 20 3d 20  31 0d 05 d2 1e 20 20 4d  |Save% = 1....  M|
00001140  65 73 73 61 67 65 5f 44  61 74 61 53 61 76 65 41  |essage_DataSaveA|
00001150  63 6b 25 20 3d 20 32 0d  05 dc 1b 20 20 4d 65 73  |ck% = 2....  Mes|
00001160  73 61 67 65 5f 44 61 74  61 4c 6f 61 64 25 20 3d  |sage_DataLoad% =|
00001170  20 33 0d 05 e6 1e 20 20  4d 65 73 73 61 67 65 5f  | 3....  Message_|
00001180  44 61 74 61 4c 6f 61 64  41 63 6b 25 20 3d 20 34  |DataLoadAck% = 4|
00001190  0d 05 f0 26 20 20 4d 65  73 73 61 67 65 5f 54 61  |...&  Message_Ta|
000011a0  73 6b 49 6e 69 74 69 61  6c 69 73 65 25 20 3d 20  |skInitialise% = |
000011b0  26 34 30 30 43 32 0d 05  fa 10 20 20 c8 8e 20 71  |&400C2....  .. q|
000011c0  25 21 31 36 20 ca 0d 06  04 2e 20 20 20 20 c9 20  |%!16 .....    . |
000011d0  4d 65 73 73 61 67 65 5f  51 75 69 74 25 20 3a 20  |Message_Quit% : |
000011e0  c8 99 20 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.. Wimp_CloseDow|
000011f0  6e 25 3a e0 0d 06 0e 1d  20 20 20 20 c9 20 4d 65  |n%:.....    . Me|
00001200  73 73 61 67 65 5f 44 61  74 61 53 61 76 65 25 20  |ssage_DataSave% |
00001210  3a 0d 06 18 17 20 20 20  20 20 20 73 69 7a 65 25  |:....      size%|
00001220  20 3d 20 71 25 21 33 36  0d 06 22 1b 20 20 20 20  | = q%!36..".    |
00001230  20 20 66 69 6c 65 74 79  70 65 25 20 3d 20 71 25  |  filetype% = q%|
00001240  21 34 30 0d 06 2c 20 20  20 20 20 20 20 66 69 6c  |!40..,       fil|
00001250  65 24 20 3d 20 a4 73 74  72 69 6e 67 28 71 25 2b  |e$ = .string(q%+|
00001260  34 34 29 0d 06 36 15 20  20 20 20 20 20 71 25 21  |44)..6.      q%!|
00001270  30 20 20 3d 20 31 30 30  0d 06 40 16 20 20 20 20  |0  = 100..@.    |
00001280  20 20 71 25 21 31 32 20  3d 20 71 25 21 38 0d 06  |  q%!12 = q%!8..|
00001290  4a 26 20 20 20 20 20 20  71 25 21 31 36 20 3d 20  |J&      q%!16 = |
000012a0  4d 65 73 73 61 67 65 5f  44 61 74 61 53 61 76 65  |Message_DataSave|
000012b0  41 63 6b 25 0d 06 54 42  20 20 20 20 20 20 71 25  |Ack%..TB      q%|
000012c0  21 33 36 20 3d 20 2d 31  20 3a f4 20 74 68 69 73  |!36 = -1 :. this|
000012d0  20 74 65 6c 6c 73 20 73  61 76 69 6e 67 20 61 70  | tells saving ap|
000012e0  70 20 6e 6f 74 20 74 6f  20 6d 61 72 6b 20 61 73  |p not to mark as|
000012f0  20 73 61 76 65 64 0d 06  5e 27 20 20 20 20 20 20  | saved..^'      |
00001300  66 69 6c 65 24 20 3d 20  22 3c 57 69 6d 70 24 53  |file$ = "<Wimp$S|
00001310  63 72 61 70 3e 22 20 2b  20 bd 28 30 29 0d 06 68  |crap>" + .(0)..h|
00001320  1a 20 20 20 20 20 20 24  28 71 25 2b 34 34 29 20  |.      $(q%+44) |
00001330  3d 20 66 69 6c 65 24 0d  06 72 29 20 20 20 20 20  |= file$..r)     |
00001340  20 c8 99 20 57 69 6d 70  5f 53 65 6e 64 4d 65 73  | .. Wimp_SendMes|
00001350  73 61 67 65 25 2c 31 38  2c 71 25 2c 71 25 21 34  |sage%,18,q%,q%!4|
00001360  0d 06 7c 1d 20 20 20 20  c9 20 4d 65 73 73 61 67  |..|.    . Messag|
00001370  65 5f 44 61 74 61 4c 6f  61 64 25 20 3a 0d 06 86  |e_DataLoad% :...|
00001380  17 20 20 20 20 20 20 73  69 7a 65 25 20 3d 20 71  |.      size% = q|
00001390  25 21 33 36 0d 06 90 1b  20 20 20 20 20 20 66 69  |%!36....      fi|
000013a0  6c 65 74 79 70 65 25 20  3d 20 71 25 21 34 30 0d  |letype% = q%!40.|
000013b0  06 9a 20 20 20 20 20 20  20 66 69 6c 65 24 20 3d  |..       file$ =|
000013c0  20 a4 73 74 72 69 6e 67  28 71 25 2b 34 34 29 0d  | .string(q%+44).|
000013d0  06 a4 2a 20 20 20 20 20  20 f2 64 61 74 61 6c 6f  |..*      .datalo|
000013e0  61 64 28 73 69 7a 65 25  2c 66 69 6c 65 74 79 70  |ad(size%,filetyp|
000013f0  65 25 2c 66 69 6c 65 24  29 0d 06 ae 24 20 20 20  |e%,file$)...$   |
00001400  20 20 20 e7 20 66 69 6c  65 24 20 3d 20 22 3c 57  |   . file$ = "<W|
00001410  69 6d 70 24 53 63 72 61  70 3e 22 20 8c 0d 06 b8  |imp$Scrap>" ....|
00001420  2e 20 20 20 20 20 20 20  20 ff 28 22 72 65 6d 6f  |.        .("remo|
00001430  76 65 20 22 2b 66 69 6c  65 24 2b 22 20 7b 20 3e  |ve "+file$+" { >|
00001440  20 6e 75 6c 6c 3a 20 7d  22 20 29 0d 06 c2 0b 20  | null: }" ).... |
00001450  20 20 20 20 20 cd 0d 06  cc 16 20 20 20 20 20 20  |     .....      |
00001460  71 25 21 31 32 20 3d 20  71 25 21 38 0d 06 d6 26  |q%!12 = q%!8...&|
00001470  20 20 20 20 20 20 71 25  21 31 36 20 3d 20 4d 65  |      q%!16 = Me|
00001480  73 73 61 67 65 5f 44 61  74 61 4c 6f 61 64 41 63  |ssage_DataLoadAc|
00001490  6b 25 0d 06 e0 29 20 20  20 20 20 20 c8 99 20 57  |k%...)      .. W|
000014a0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 25  |imp_SendMessage%|
000014b0  2c 31 37 2c 71 25 2c 71  25 21 34 0d 06 ea 23 20  |,17,q%,q%!4...# |
000014c0  20 20 20 c9 20 4d 65 73  73 61 67 65 5f 54 61 73  |   . Message_Tas|
000014d0  6b 49 6e 69 74 69 61 6c  69 73 65 25 20 3a 0d 06  |kInitialise% :..|
000014e0  f4 3f 20 20 20 20 20 20  e7 20 a4 73 74 72 69 6e  |.?      . .strin|
000014f0  67 28 71 25 2b 32 38 29  3d 70 72 6f 67 72 61 6d  |g(q%+28)=program|
00001500  5f 6e 61 6d 65 24 20 80  20 71 25 21 34 20 3c 3e  |_name$ . q%!4 <>|
00001510  20 74 68 69 73 5f 74 61  73 6b 25 20 8c 0d 06 fe  | this_task% ....|
00001520  13 20 20 20 20 20 20 20  20 71 75 69 74 25 3d b9  |.        quit%=.|
00001530  0d 07 08 0b 20 20 20 20  20 20 cc 0d 07 12 0b 20  |....      ..... |
00001540  20 20 20 20 20 cd 0d 07  1c 07 20 20 cb 0d 07 26  |     .....  ...&|
00001550  05 e1 0d 07 30 04 0d 07  3a 25 dd f2 64 61 74 61  |....0...:%..data|
00001560  6c 6f 61 64 28 73 69 7a  65 25 2c 66 69 6c 65 74  |load(size%,filet|
00001570  79 70 65 25 2c 66 69 6c  65 24 29 0d 07 44 20 20  |ype%,file$)..D  |
00001580  20 f4 20 64 65 61 6c 20  77 69 74 68 20 72 65 63  | . deal with rec|
00001590  69 65 76 69 6e 67 20 64  61 74 61 0d 07 4e 1e 20  |ieving data..N. |
000015a0  20 f4 20 41 70 70 6c 69  63 61 74 69 6f 6e 20 6d  | . Application m|
000015b0  6f 64 69 66 69 61 62 6c  65 0d 07 58 16 20 20 c8  |odifiable..X.  .|
000015c0  99 20 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 25 0d  |. Hourglass_On%.|
000015d0  07 62 14 20 20 c8 8e 20  66 69 6c 65 74 79 70 65  |.b.  .. filetype|
000015e0  25 20 ca 0d 07 6c 22 20  20 20 20 c9 20 26 46 46  |% ...l"    . &FF|
000015f0  46 2c 26 46 46 45 2c 26  46 46 44 2c 26 46 46 34  |F,&FFE,&FFD,&FF4|
00001600  2c 26 46 45 42 0d 07 76  2c 20 20 20 20 20 20 f4  |,&FEB..v,      .|
00001610  20 74 65 78 74 2c 63 6f  6d 6d 61 6e 64 2c 64 61  | text,command,da|
00001620  74 61 2c 44 6f 74 4d 61  74 72 69 78 2c 4f 62 65  |ta,DotMatrix,Obe|
00001630  79 0d 07 80 17 20 20 20  20 20 20 f2 70 72 69 6e  |y....      .prin|
00001640  74 65 72 73 65 74 75 70  0d 07 8a 3c 20 20 20 20  |tersetup...<    |
00001650  20 20 ff 28 22 2a 63 6f  70 79 20 22 2b 66 69 6c  |  .("*copy "+fil|
00001660  65 24 2b 22 20 70 72 69  6e 74 65 72 3a 20 7e 43  |e$+" printer: ~C|
00001670  7e 44 4c 7e 56 20 7b 20  3e 20 6e 75 6c 6c 3a 20  |~DL~V { > null: |
00001680  7d 22 20 29 0d 07 94 28  20 20 20 20 20 20 76 6f  |}" )...(      vo|
00001690  69 64 25 20 3d 20 a4 73  65 6e 64 5f 70 72 69 6e  |id% = .send_prin|
000016a0  74 65 72 28 22 72 65 73  65 74 22 29 0d 07 9e 09  |ter("reset")....|
000016b0  20 20 20 20 7f 0d 07 a8  40 20 20 20 20 20 20 f2  |    ....@      .|
000016c0  70 72 6f 62 6c 65 6d 28  22 44 6f 6e 27 74 20 6b  |problem("Don't k|
000016d0  6e 6f 77 20 68 6f 77 20  74 6f 20 70 72 69 6e 74  |now how to print|
000016e0  20 74 68 69 73 20 74 79  70 65 20 6f 66 20 66 69  | this type of fi|
000016f0  6c 65 2e 22 29 0d 07 b2  07 20 20 cb 0d 07 bc 17  |le.")....  .....|
00001700  20 20 c8 99 20 48 6f 75  72 67 6c 61 73 73 5f 4f  |  .. Hourglass_O|
00001710  66 66 25 0d 07 c6 05 e1  0d 07 d0 04 0d 07 da 15  |ff%.............|
00001720  dd f2 6d 6f 75 73 65 5f  63 6c 69 63 6b 28 71 25  |..mouse_click(q%|
00001730  29 0d 07 e4 1f 20 20 f4  20 72 65 73 70 6f 6e 64  |)....  . respond|
00001740  73 20 74 6f 20 6d 6f 75  73 65 20 63 6c 69 63 6b  |s to mouse click|
00001750  0d 07 ee 1d 20 20 f4 20  61 70 70 6c 69 63 61 74  |....  . applicat|
00001760  69 6f 6e 20 64 65 70 65  6e 64 61 6e 74 0d 07 f8  |ion dependant...|
00001770  28 20 20 ea 20 69 63 6f  6e 62 61 72 25 2c 20 77  |(  . iconbar%, w|
00001780  69 6e 64 6f 77 25 2c 20  6d 78 25 2c 20 6d 79 25  |indow%, mx%, my%|
00001790  2c 20 6d 62 25 0d 08 02  13 20 20 69 63 6f 6e 62  |, mb%....  iconb|
000017a0  61 72 25 20 3d 20 2d 32  0d 08 0c 0e 20 20 6d 78  |ar% = -2....  mx|
000017b0  25 3d 71 25 21 30 0d 08  16 0e 20 20 6d 79 25 3d  |%=q%!0....  my%=|
000017c0  71 25 21 34 0d 08 20 0e  20 20 6d 62 25 3d 71 25  |q%!4.. .  mb%=q%|
000017d0  21 38 0d 08 2a 13 20 20  77 69 6e 64 6f 77 25 3d  |!8..*.  window%=|
000017e0  71 25 21 31 32 0d 08 34  1c 20 20 e7 20 77 69 6e  |q%!12..4.  . win|
000017f0  64 6f 77 25 20 3d 20 69  63 6f 6e 62 61 72 25 20  |dow% = iconbar% |
00001800  8c 0d 08 3e 10 20 20 20  20 c8 8e 20 6d 62 25 20  |...>.    .. mb% |
00001810  ca 0d 08 48 0d 20 20 20  20 20 20 c9 20 32 0d 08  |...H.      . 2..|
00001820  52 48 20 20 20 20 20 20  20 20 c8 99 20 57 69 6d  |RH        .. Wim|
00001830  70 5f 43 72 65 61 74 65  4d 65 6e 75 25 2c 2c 69  |p_CreateMenu%,,i|
00001840  63 6f 6e 6d 65 6e 75 25  2c 6d 78 25 2d 69 63 6f  |conmenu%,mx%-ico|
00001850  6e 6d 65 6e 75 25 21 31  36 2f 32 2d 32 34 2c 31  |nmenu%!16/2-24,1|
00001860  36 34 2b 31 35 32 0d 08  5c 09 20 20 20 20 cb 0d  |64+152..\.    ..|
00001870  08 66 07 20 20 cc 0d 08  70 07 20 20 cd 0d 08 7a  |.f.  ...p.  ...z|
00001880  05 e1 0d 08 84 04 0d 08  8e 14 dd f2 64 65 63 6f  |............deco|
00001890  64 65 6d 65 6e 75 28 71  25 29 0d 08 98 1c 20 20  |demenu(q%)....  |
000018a0  f4 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 6d 6f  |. application mo|
000018b0  64 69 66 69 65 64 0d 08  a2 1d 20 20 ea 20 73 65  |dified....  . se|
000018c0  6c 65 63 74 69 6f 6e 25  2c 73 65 6c 73 63 74 69  |lection%,selscti|
000018d0  6f 6e 24 0d 08 ac 16 20  20 de 20 73 65 6c 65 63  |on$....  . selec|
000018e0  74 69 6f 6e 25 20 32 35  35 0d 08 b6 33 20 20 c8  |tion% 255...3  .|
000018f0  99 20 57 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  |. Wimp_DecodeMen|
00001900  75 25 2c 30 2c 69 63 6f  6e 6d 65 6e 75 25 2c 71  |u%,0,iconmenu%,q|
00001910  25 2c 73 65 6c 65 63 74  69 6f 6e 25 0d 08 c0 1e  |%,selection%....|
00001920  20 20 73 65 6c 65 63 74  69 6f 6e 24 20 3d 20 24  |  selection$ = $|
00001930  73 65 6c 65 63 74 69 6f  6e 25 0d 08 ca 15 20 20  |selection%....  |
00001940  c8 8e 20 73 65 6c 65 63  74 69 6f 6e 24 20 ca 0d  |.. selection$ ..|
00001950  08 d4 10 20 20 20 20 c9  20 22 49 6e 66 6f 22 0d  |...    . "Info".|
00001960  08 de 16 20 20 20 20 20  20 f4 20 64 6f 20 6e 6f  |...      . do no|
00001970  74 68 69 6e 67 0d 08 e8  10 20 20 20 20 c9 20 22  |thing....    . "|
00001980  48 65 6c 70 22 0d 08 f2  30 20 20 20 20 20 20 f2  |Help"...0      .|
00001990  68 65 6c 70 28 70 72 6f  67 5f 64 69 72 24 2c 70  |help(prog_dir$,p|
000019a0  72 6f 67 72 61 6d 5f 6e  61 6d 65 24 2b 22 20 48  |rogram_name$+" H|
000019b0  65 6c 70 22 29 0d 08 fc  15 20 20 20 20 c9 20 22  |elp")....    . "|
000019c0  43 6f 6e 66 69 67 75 72  65 22 0d 09 06 16 20 20  |Configure"....  |
000019d0  20 20 20 20 f4 20 64 6f  20 6e 6f 74 68 69 6e 67  |    . do nothing|
000019e0  0d 09 10 1e 20 20 20 20  c9 20 22 43 6f 6e 66 69  |....    . "Confi|
000019f0  67 75 72 65 2e 45 70 73  6f 6e 2d 46 58 22 0d 09  |gure.Epson-FX"..|
00001a00  1a 24 20 20 20 20 20 20  f2 74 69 63 6b 28 43 6f  |.$      .tick(Co|
00001a10  6e 66 69 67 75 72 65 6d  65 6e 75 25 2c 71 25 21  |nfiguremenu%,q%!|
00001a20  34 29 0d 09 24 37 20 20  20 20 20 20 f2 6e 6f 74  |4)..$7      .not|
00001a30  69 63 6b 28 43 6f 6e 66  69 67 75 72 65 6d 65 6e  |ick(Configuremen|
00001a40  75 25 2c 31 29 3a 70 72  69 6e 74 65 72 24 3d 22  |u%,1):printer$="|
00001a50  45 70 73 6f 6e 2d 46 58  22 0d 09 2e 16 20 20 20  |Epson-FX"....   |
00001a60  20 20 20 f2 6f 70 74 69  6f 6e 73 6d 65 6e 75 0d  |   .optionsmenu.|
00001a70  09 38 1f 20 20 20 20 c9  20 22 43 6f 6e 66 69 67  |.8.    . "Config|
00001a80  75 72 65 2e 53 74 61 72  2d 4c 43 31 30 22 0d 09  |ure.Star-LC10"..|
00001a90  42 24 20 20 20 20 20 20  f2 74 69 63 6b 28 43 6f  |B$      .tick(Co|
00001aa0  6e 66 69 67 75 72 65 6d  65 6e 75 25 2c 71 25 21  |nfiguremenu%,q%!|
00001ab0  34 29 0d 09 4c 38 20 20  20 20 20 20 f2 6e 6f 74  |4)..L8      .not|
00001ac0  69 63 6b 28 43 6f 6e 66  69 67 75 72 65 6d 65 6e  |ick(Configuremen|
00001ad0  75 25 2c 30 29 3a 70 72  69 6e 74 65 72 24 3d 22  |u%,0):printer$="|
00001ae0  53 74 61 72 2d 4c 43 31  30 22 0d 09 56 16 20 20  |Star-LC10"..V.  |
00001af0  20 20 20 20 f2 6f 70 74  69 6f 6e 73 6d 65 6e 75  |    .optionsmenu|
00001b00  0d 09 60 13 20 20 20 20  c9 20 22 4f 70 74 69 6f  |..`.    . "Optio|
00001b10  6e 73 22 0d 09 6a 16 20  20 20 20 20 20 f4 20 64  |ns"..j.      . d|
00001b20  6f 20 6e 6f 74 68 69 6e  67 0d 09 74 1d 20 20 20  |o nothing..t.   |
00001b30  20 c9 20 22 4f 70 74 69  6f 6e 73 2e 43 6f 6e 64  | . "Options.Cond|
00001b40  65 6e 73 65 64 22 0d 09  7e 1f 20 20 20 20 20 20  |ensed"..~.      |
00001b50  f2 74 69 63 6b 28 4f 70  74 69 6f 6e 73 6d 65 6e  |.tick(Optionsmen|
00001b60  75 25 2c 30 29 0d 09 88  19 20 20 20 20 c9 20 22  |u%,0)....    . "|
00001b70  4f 70 74 69 6f 6e 73 2e  45 6c 69 74 65 22 0d 09  |Options.Elite"..|
00001b80  92 1f 20 20 20 20 20 20  f2 74 69 63 6b 28 4f 70  |..      .tick(Op|
00001b90  74 69 6f 6e 73 6d 65 6e  75 25 2c 31 29 0d 09 9c  |tionsmenu%,1)...|
00001ba0  21 20 20 20 20 20 20 f2  6e 6f 74 69 63 6b 28 4f  |!      .notick(O|
00001bb0  70 74 69 6f 6e 73 6d 65  6e 75 25 2c 33 29 0d 09  |ptionsmenu%,3)..|
00001bc0  a6 1c 20 20 20 20 c9 20  22 4f 70 74 69 6f 6e 73  |..    . "Options|
00001bd0  2e 45 78 70 61 6e 64 65  64 22 0d 09 b0 1f 20 20  |.Expanded"....  |
00001be0  20 20 20 20 f2 74 69 63  6b 28 4f 70 74 69 6f 6e  |    .tick(Option|
00001bf0  73 6d 65 6e 75 25 2c 32  29 0d 09 ba 18 20 20 20  |smenu%,2)....   |
00001c00  20 c9 20 22 4f 70 74 69  6f 6e 73 2e 50 69 63 61  | . "Options.Pica|
00001c10  22 0d 09 c4 1f 20 20 20  20 20 20 f2 74 69 63 6b  |"....      .tick|
00001c20  28 4f 70 74 69 6f 6e 73  6d 65 6e 75 25 2c 33 29  |(Optionsmenu%,3)|
00001c30  0d 09 ce 21 20 20 20 20  20 20 f2 6e 6f 74 69 63  |...!      .notic|
00001c40  6b 28 4f 70 74 69 6f 6e  73 6d 65 6e 75 25 2c 31  |k(Optionsmenu%,1|
00001c50  29 0d 09 d8 19 20 20 20  20 c9 20 22 4f 70 74 69  |)....    . "Opti|
00001c60  6f 6e 73 2e 44 72 61 66  74 22 0d 09 e2 15 20 20  |ons.Draft"....  |
00001c70  20 20 20 20 f2 63 6c 65  61 72 73 74 79 6c 65 0d  |    .clearstyle.|
00001c80  09 ec 1f 20 20 20 20 20  20 f2 74 69 63 6b 28 4f  |...      .tick(O|
00001c90  70 74 69 6f 6e 73 6d 65  6e 75 25 2c 34 29 0d 09  |ptionsmenu%,4)..|
00001ca0  f6 1b 20 20 20 20 c9 20  22 4f 70 74 69 6f 6e 73  |..    . "Options|
00001cb0  2e 43 6f 75 72 69 65 72  22 0d 0a 00 15 20 20 20  |.Courier"....   |
00001cc0  20 20 20 f2 63 6c 65 61  72 73 74 79 6c 65 0d 0a  |   .clearstyle..|
00001cd0  0a 1f 20 20 20 20 20 20  f2 74 69 63 6b 28 4f 70  |..      .tick(Op|
00001ce0  74 69 6f 6e 73 6d 65 6e  75 25 2c 35 29 0d 0a 14  |tionsmenu%,5)...|
00001cf0  1a 20 20 20 20 c9 20 22  4f 70 74 69 6f 6e 73 2e  |.    . "Options.|
00001d00  4f 72 61 74 6f 72 22 0d  0a 1e 15 20 20 20 20 20  |Orator"....     |
00001d10  20 f2 63 6c 65 61 72 73  74 79 6c 65 0d 0a 28 1f  | .clearstyle..(.|
00001d20  20 20 20 20 20 20 f2 74  69 63 6b 28 4f 70 74 69  |      .tick(Opti|
00001d30  6f 6e 73 6d 65 6e 75 25  2c 36 29 0d 0a 32 1d 20  |onsmenu%,6)..2. |
00001d40  20 20 20 c9 20 22 4f 70  74 69 6f 6e 73 2e 4f 72  |   . "Options.Or|
00001d50  61 74 6f 72 20 53 43 22  0d 0a 3c 15 20 20 20 20  |ator SC"..<.    |
00001d60  20 20 f2 63 6c 65 61 72  73 74 79 6c 65 0d 0a 46  |  .clearstyle..F|
00001d70  1f 20 20 20 20 20 20 f2  74 69 63 6b 28 4f 70 74  |.      .tick(Opt|
00001d80  69 6f 6e 73 6d 65 6e 75  25 2c 37 29 0d 0a 50 1e  |ionsmenu%,7)..P.|
00001d90  20 20 20 20 c9 20 22 4f  70 74 69 6f 6e 73 2e 53  |    . "Options.S|
00001da0  61 6e 73 20 53 65 72 69  66 22 0d 0a 5a 15 20 20  |ans Serif"..Z.  |
00001db0  20 20 20 20 f2 63 6c 65  61 72 73 74 79 6c 65 0d  |    .clearstyle.|
00001dc0  0a 64 1f 20 20 20 20 20  20 f2 74 69 63 6b 28 4f  |.d.      .tick(O|
00001dd0  70 74 69 6f 6e 73 6d 65  6e 75 25 2c 38 29 0d 0a  |ptionsmenu%,8)..|
00001de0  6e 1a 20 20 20 20 c9 20  22 4f 70 74 69 6f 6e 73  |n.    . "Options|
00001df0  2e 49 74 61 6c 69 63 22  0d 0a 78 1f 20 20 20 20  |.Italic"..x.    |
00001e00  20 20 f2 74 69 63 6b 28  4f 70 74 69 6f 6e 73 6d  |  .tick(Optionsm|
00001e10  65 6e 75 25 2c 39 29 0d  0a 82 1e 20 20 20 20 c9  |enu%,9)....    .|
00001e20  20 22 4f 70 74 69 6f 6e  73 2e 44 6f 75 62 6c 65  | "Options.Double|
00001e30  20 53 74 6b 22 0d 0a 8c  20 20 20 20 20 20 20 f2  | Stk"...       .|
00001e40  74 69 63 6b 28 4f 70 74  69 6f 6e 73 6d 65 6e 75  |tick(Optionsmenu|
00001e50  25 2c 31 30 29 0d 0a 96  1e 20 20 20 20 c9 20 22  |%,10)....    . "|
00001e60  4f 70 74 69 6f 6e 73 2e  45 6d 70 68 61 73 69 7a  |Options.Emphasiz|
00001e70  65 64 22 0d 0a a0 20 20  20 20 20 20 20 f2 74 69  |ed"...       .ti|
00001e80  63 6b 28 4f 70 74 69 6f  6e 73 6d 65 6e 75 25 2c  |ck(Optionsmenu%,|
00001e90  31 31 29 0d 0a aa 1f 20  20 20 20 c9 20 22 4f 70  |11)....    . "Op|
00001ea0  74 69 6f 6e 73 2e 50 72  6f 70 2e 53 70 61 63 65  |tions.Prop.Space|
00001eb0  64 22 0d 0a b4 20 20 20  20 20 20 20 f2 74 69 63  |d"...       .tic|
00001ec0  6b 28 4f 70 74 69 6f 6e  73 6d 65 6e 75 25 2c 31  |k(Optionsmenu%,1|
00001ed0  32 29 0d 0a be 1f 20 20  20 20 c9 20 22 4f 70 74  |2)....    . "Opt|
00001ee0  69 6f 6e 73 2e 4e 6f 72  6d 61 6c 20 53 69 7a 65  |ions.Normal Size|
00001ef0  22 0d 0a c8 14 20 20 20  20 20 20 f2 63 6c 65 61  |"....      .clea|
00001f00  72 73 69 7a 65 0d 0a d2  20 20 20 20 20 20 20 f2  |rsize...       .|
00001f10  74 69 63 6b 28 4f 70 74  69 6f 6e 73 6d 65 6e 75  |tick(Optionsmenu|
00001f20  25 2c 31 33 29 0d 0a dc  1f 20 20 20 20 c9 20 22  |%,13)....    . "|
00001f30  4f 70 74 69 6f 6e 73 2e  44 6f 75 62 6c 65 20 53  |Options.Double S|
00001f40  69 7a 65 22 0d 0a e6 14  20 20 20 20 20 20 f2 63  |ize"....      .c|
00001f50  6c 65 61 72 73 69 7a 65  0d 0a f0 20 20 20 20 20  |learsize...     |
00001f60  20 20 f2 74 69 63 6b 28  4f 70 74 69 6f 6e 73 6d  |  .tick(Optionsm|
00001f70  65 6e 75 25 2c 31 34 29  0d 0a fa 1f 20 20 20 20  |enu%,14)....    |
00001f80  c9 20 22 4f 70 74 69 6f  6e 73 2e 44 6f 75 62 6c  |. "Options.Doubl|
00001f90  65 20 48 69 67 68 22 0d  0b 04 14 20 20 20 20 20  |e High"....     |
00001fa0  20 f2 63 6c 65 61 72 73  69 7a 65 0d 0b 0e 20 20  | .clearsize...  |
00001fb0  20 20 20 20 20 f2 74 69  63 6b 28 4f 70 74 69 6f  |     .tick(Optio|
00001fc0  6e 73 6d 65 6e 75 25 2c  31 35 29 0d 0b 18 1d 20  |nsmenu%,15).... |
00001fd0  20 20 20 c9 20 22 4f 70  74 69 6f 6e 73 2e 51 75  |   . "Options.Qu|
00001fe0  61 64 20 53 69 7a 65 22  0d 0b 22 14 20 20 20 20  |ad Size"..".    |
00001ff0  20 20 f2 63 6c 65 61 72  73 69 7a 65 0d 0b 2c 20  |  .clearsize.., |
00002000  20 20 20 20 20 20 f2 74  69 63 6b 28 4f 70 74 69  |      .tick(Opti|
00002010  6f 6e 73 6d 65 6e 75 25  2c 31 36 29 0d 0b 36 1e  |onsmenu%,16)..6.|
00002020  20 20 20 20 c9 20 22 4f  70 74 69 6f 6e 73 2e 53  |    . "Options.S|
00002030  6b 69 70 20 50 65 72 66  2e 22 0d 0b 40 20 20 20  |kip Perf."..@   |
00002040  20 20 20 20 f2 74 69 63  6b 28 4f 70 74 69 6f 6e  |    .tick(Option|
00002050  73 6d 65 6e 75 25 2c 31  37 29 0d 0b 4a 12 20 20  |smenu%,17)..J.  |
00002060  20 20 c9 20 22 52 65 6d  6f 76 65 22 0d 0b 54 1e  |  . "Remove"..T.|
00002070  20 20 20 20 20 20 c8 99  20 57 69 6d 70 5f 43 6c  |      .. Wimp_Cl|
00002080  6f 73 65 44 6f 77 6e 25  3a e0 0d 0b 5e 09 20 20  |oseDown%:...^.  |
00002090  20 20 7f 0d 0b 68 35 20  20 20 20 20 20 85 20 31  |  ...h5      . 1|
000020a0  2c 22 4d 65 6e 75 20 64  65 63 6f 64 65 20 22 2b  |,"Menu decode "+|
000020b0  73 65 6c 65 63 74 69 6f  6e 24 2b 22 20 6e 6f 74  |selection$+" not|
000020c0  20 6b 6e 6f 77 6e 2e 22  0d 0b 72 07 20 20 cb 0d  | known."..r.  ..|
000020d0  0b 7c 18 20 20 f4 20 72  65 64 72 77 61 20 69 66  |.|.  . redrwa if|
000020e0  20 61 64 6a 75 73 74 0d  0b 86 21 20 20 c8 99 20  | adjust...!  .. |
000020f0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00002100  6e 66 6f 25 2c 2c 71 25  0d 0b 90 12 20 20 e7 20  |nfo%,,q%....  . |
00002110  71 25 21 38 20 3d 20 31  20 8c 0d 0b 9a 26 20 20  |q%!8 = 1 ....&  |
00002120  20 20 c8 99 20 57 69 6d  70 5f 43 72 65 61 74 65  |  .. Wimp_Create|
00002130  4d 65 6e 75 25 2c 2c 69  63 6f 6e 6d 65 6e 75 25  |Menu%,,iconmenu%|
00002140  0d 0b a4 07 20 20 cd 0d  0b ae 05 e1 0d 0b b8 04  |....  ..........|
00002150  0d 0b c2 11 dd f2 64 65  66 69 6e 65 6d 65 6e 75  |......definemenu|
00002160  73 0d 0b cc 1d 20 20 f4  20 73 65 74 75 70 20 6d  |s....  . setup m|
00002170  65 6e 75 20 73 74 72 75  63 74 75 72 65 73 0d 0b  |enu structures..|
00002180  d6 1e 20 20 f4 20 61 70  70 6c 69 63 61 74 69 6f  |..  . applicatio|
00002190  6e 20 6d 6f 64 69 66 69  61 62 6c 65 0d 0b e0 3c  |n modifiable...<|
000021a0  20 20 74 69 63 6b 25 3d  25 31 3a 64 6f 74 25 3d  |  tick%=%1:dot%=|
000021b0  25 31 30 3a 77 72 69 74  65 25 3d 25 31 30 30 3a  |%10:write%=%100:|
000021c0  6c 61 73 74 25 3d 25 31  30 30 30 30 30 30 30 3a  |last%=%10000000:|
000021d0  70 6c 61 69 6e 25 3d 30  0d 0b ea 1f 20 20 6e 6f  |plain%=0....  no|
000021e0  72 6d 61 6c 25 3d 20 28  37 3c 3c 32 34 29 20 84  |rmal%= (7<<24) .|
000021f0  20 25 31 30 30 30 31 0d  0b f4 20 20 20 73 68 61  | %10001...   sha|
00002200  64 65 64 25 3d 20 28 34  3c 3c 32 30 29 20 84 20  |ded%= (4<<20) . |
00002210  6e 6f 72 6d 61 6c 25 0d  0b fe 18 20 20 69 63 6f  |normal%....  ico|
00002220  6e 6d 65 6e 75 69 74 65  6d 73 25 20 3d 20 35 0d  |nmenuitems% = 5.|
00002230  0c 08 18 20 20 73 75 62  6d 65 6e 75 69 74 65 6d  |...  submenuitem|
00002240  73 25 20 3d 20 31 38 0d  0c 12 13 20 20 70 72 69  |s% = 18....  pri|
00002250  6e 74 65 72 73 25 20 3d  20 32 0d 0c 1c 36 20 20  |nters% = 2...6  |
00002260  ea 20 6d 25 20 20 20 20  20 20 20 20 20 20 20 20  |. m%            |
00002270  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002280  20 20 20 20 20 20 3a f4  20 70 6f 69 6e 74 65 72  |      :. pointer|
00002290  0d 0c 26 26 20 20 de 20  69 63 6f 6e 6d 65 6e 75  |..&&  . iconmenu|
000022a0  25 20 32 38 2b 69 63 6f  6e 6d 65 6e 75 69 74 65  |% 28+iconmenuite|
000022b0  6d 73 25 2a 32 34 0d 0c  30 28 20 20 de 20 4f 70  |ms%*24..0(  . Op|
000022c0  74 69 6f 6e 73 6d 65 6e  75 25 20 32 38 2b 73 75  |tionsmenu% 28+su|
000022d0  62 6d 65 6e 75 69 74 65  6d 73 25 2a 32 34 0d 0c  |bmenuitems%*24..|
000022e0  3a 26 20 20 de 20 43 6f  6e 66 69 67 75 72 65 6d  |:&  . Configurem|
000022f0  65 6e 75 25 20 32 38 2b  70 72 69 6e 74 65 72 73  |enu% 28+printers|
00002300  25 2a 32 34 0d 0c 44 2b  20 20 6d 25 20 3d 20 a4  |%*24..D+  m% = .|
00002310  6d 65 6e 75 28 69 63 6f  6e 6d 65 6e 75 25 2c 70  |menu(iconmenu%,p|
00002320  72 6f 67 72 61 6d 5f 6e  61 6d 65 24 2c 39 29 0d  |rogram_name$,9).|
00002330  0c 4e 3e 20 20 6d 25 20  3d 20 a4 6d 65 6e 75 69  |.N>  m% = .menui|
00002340  74 65 6d 28 6d 25 2c 22  49 6e 66 6f 22 2c 20 20  |tem(m%,"Info",  |
00002350  20 20 20 70 6c 61 69 6e  25 2c 20 20 20 20 69 6e  |   plain%,    in|
00002360  66 6f 25 2c 20 6e 6f 72  6d 61 6c 25 29 0d 0c 58  |fo%, normal%)..X|
00002370  3e 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 69 74 65  |>  m% = .menuite|
00002380  6d 28 6d 25 2c 22 48 65  6c 70 22 2c 20 20 20 20  |m(m%,"Help",    |
00002390  20 70 6c 61 69 6e 25 2c  20 20 20 20 20 20 20 2d  | plain%,       -|
000023a0  31 2c 20 6e 6f 72 6d 61  6c 25 29 0d 0c 62 43 20  |1, normal%)..bC |
000023b0  20 6d 25 20 3d 20 a4 6d  65 6e 75 69 74 65 6d 28  | m% = .menuitem(|
000023c0  6d 25 2c 22 43 6f 6e 66  69 67 75 72 65 22 2c 70  |m%,"Configure",p|
000023d0  6c 61 69 6e 25 2c 43 6f  6e 66 69 67 75 72 65 6d  |lain%,Configurem|
000023e0  65 6e 75 25 2c 20 6e 6f  72 6d 61 6c 25 29 0d 0c  |enu%, normal%)..|
000023f0  6c 41 20 20 6d 25 20 3d  20 a4 6d 65 6e 75 69 74  |lA  m% = .menuit|
00002400  65 6d 28 6d 25 2c 22 4f  70 74 69 6f 6e 73 22 2c  |em(m%,"Options",|
00002410  20 20 70 6c 61 69 6e 25  2c 4f 70 74 69 6f 6e 73  |  plain%,Options|
00002420  6d 65 6e 75 25 2c 20 6e  6f 72 6d 61 6c 25 29 0d  |menu%, normal%).|
00002430  0c 76 3e 20 20 6d 25 20  3d 20 a4 6d 65 6e 75 69  |.v>  m% = .menui|
00002440  74 65 6d 28 6d 25 2c 22  52 65 6d 6f 76 65 22 2c  |tem(m%,"Remove",|
00002450  20 20 20 20 6c 61 73 74  25 2c 20 20 20 20 20 20  |    last%,      |
00002460  20 2d 31 2c 20 6e 6f 72  6d 61 6c 25 29 0d 0c 80  | -1, normal%)...|
00002470  2d 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 28 43 6f  |-  m% = .menu(Co|
00002480  6e 66 69 67 75 72 65 6d  65 6e 75 25 2c 22 50 72  |nfiguremenu%,"Pr|
00002490  69 6e 74 65 72 73 22 2c  39 29 0d 0c 8a 36 20 20  |inters",9)...6  |
000024a0  6d 25 20 3d 20 a4 6d 65  6e 75 69 74 65 6d 28 6d  |m% = .menuitem(m|
000024b0  25 2c 22 45 70 73 6f 6e  2d 46 58 22 2c 20 70 6c  |%,"Epson-FX", pl|
000024c0  61 69 6e 25 2c 2d 31 2c  6e 6f 72 6d 61 6c 25 29  |ain%,-1,normal%)|
000024d0  0d 0c 94 36 20 20 6d 25  20 3d 20 a4 6d 65 6e 75  |...6  m% = .menu|
000024e0  69 74 65 6d 28 6d 25 2c  22 53 74 61 72 2d 4c 43  |item(m%,"Star-LC|
000024f0  31 30 22 2c 20 6c 61 73  74 25 2c 2d 31 2c 6e 6f  |10", last%,-1,no|
00002500  72 6d 61 6c 25 29 0d 0c  9e 13 20 20 c8 8e 20 70  |rmal%)....  .. p|
00002510  72 69 6e 74 65 72 24 20  ca 0d 0c a8 2c 20 20 20  |rinter$ ....,   |
00002520  20 c9 20 22 45 70 73 6f  6e 2d 46 58 22 3a f2 74  | . "Epson-FX":.t|
00002530  69 63 6b 28 43 6f 6e 66  69 67 75 72 65 6d 65 6e  |ick(Configuremen|
00002540  75 25 2c 30 29 0d 0c b2  2d 20 20 20 20 c9 20 22  |u%,0)...-    . "|
00002550  53 74 61 72 2d 4c 43 31  30 22 3a f2 74 69 63 6b  |Star-LC10":.tick|
00002560  28 43 6f 6e 66 69 67 75  72 65 6d 65 6e 75 25 2c  |(Configuremenu%,|
00002570  31 29 0d 0c bc 09 20 20  20 20 7f 0d 0c c6 30 20  |1)....    ....0 |
00002580  20 20 20 20 20 85 20 31  30 30 2c 22 50 72 69 6e  |     . 100,"Prin|
00002590  74 65 72 3a 20 22 2b 70  72 69 6e 74 65 72 24 2b  |ter: "+printer$+|
000025a0  22 20 75 6e 6b 6e 6f 77  6e 2e 22 0d 0c d0 07 20  |" unknown.".... |
000025b0  20 cb 0d 0c da 12 20 20  f2 6f 70 74 69 6f 6e 73  | .....  .options|
000025c0  6d 65 6e 75 0d 0c e4 05  e1 0d 0c ee 04 0d 0c f8  |menu............|
000025d0  0f dd f2 74 65 6d 70 6c  61 74 65 73 0d 0d 02 11  |...templates....|
000025e0  20 20 f4 20 67 6c 6f 62  61 6c 20 71 25 0d 0d 0c  |  . global q%...|
000025f0  13 20 20 69 6e 64 69 72  6c 65 6e 25 3d 35 30 30  |.  indirlen%=500|
00002600  0d 0d 16 21 20 20 de 20  71 25 20 33 35 30 30 2c  |...!  . q% 3500,|
00002610  20 69 6e 64 69 72 25 20  69 6e 64 69 72 6c 65 6e  | indir% indirlen|
00002620  25 0d 0d 20 20 20 20 69  6e 64 69 72 65 6e 64 25  |%..    indirend%|
00002630  3d 69 6e 64 69 72 25 2b  69 6e 64 69 72 6c 65 6e  |=indir%+indirlen|
00002640  25 0d 0d 2a 35 20 20 c8  99 20 57 69 6d 70 5f 4f  |%..*5  .. Wimp_O|
00002650  70 65 6e 54 65 6d 70 6c  61 74 65 25 2c 2c 70 72  |penTemplate%,,pr|
00002660  6f 67 5f 64 69 72 24 20  2b 20 22 2e 54 65 6d 70  |og_dir$ + ".Temp|
00002670  6c 61 74 65 73 22 0d 0d  34 39 20 20 ee 20 85 20  |lates"..49  . . |
00002680  c8 99 20 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.. Wimp_CloseTem|
00002690  70 6c 61 74 65 25 3a f2  65 72 72 6f 72 62 6f 78  |plate%:.errorbox|
000026a0  28 70 72 6f 67 72 61 6d  5f 6e 61 6d 65 24 29 0d  |(program_name$).|
000026b0  0d 3e 12 20 20 74 65 6d  70 25 3d 69 6e 64 69 72  |.>.  temp%=indir|
000026c0  25 0d 0d 48 45 20 20 c8  99 20 57 69 6d 70 5f 4c  |%..HE  .. Wimp_L|
000026d0  6f 61 64 54 65 6d 70 6c  61 74 65 25 2c 2c 71 25  |oadTemplate%,,q%|
000026e0  2c 74 65 6d 70 25 2c 69  6e 64 69 72 65 6e 64 25  |,temp%,indirend%|
000026f0  2c 2d 31 2c 22 69 6e 66  6f 22 2c 30 20 b8 20 2c  |,-1,"info",0 . ,|
00002700  2c 74 65 6d 70 25 0d 0d  52 47 20 20 71 25 21 36  |,temp%..RG  q%!6|
00002710  34 3d 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |4=1             |
00002720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002730  20 20 20 20 20 20 3a f4  20 75 73 65 20 77 69 6d  |      :. use wim|
00002740  70 20 73 70 72 69 74 65  20 61 72 65 61 0d 0d 5c  |p sprite area..\|
00002750  27 20 20 c8 99 20 57 69  6d 70 5f 43 72 65 61 74  |'  .. Wimp_Creat|
00002760  65 57 69 6e 64 6f 77 25  2c 2c 71 25 20 b8 20 69  |eWindow%,,q% . i|
00002770  6e 66 6f 25 0d 0d 66 1c  20 20 c8 99 20 57 69 6d  |nfo%..f.  .. Wim|
00002780  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 25  |p_CloseTemplate%|
00002790  0d 0d 70 05 e1 0d 0d 7a  04 0d 0d 84 04 0d 0d 8e  |..p....z........|
000027a0  04 0d 0d 98 04 0d 0d a2  3a f4 2d 2d 2d 2d 2d 2d  |........:.------|
000027b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000027c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 42 41  |--------------BA|
000027d0  53 49 43 20 4c 69 62 20  66 6f 6c 6c 6f 77 73 0d  |SIC Lib follows.|
000027e0  0d ac 04 0d 0d b6 0a dd  a4 73 6c 6f 74 0d 0d c0  |.........slot...|
000027f0  0f 20 20 ea 20 66 69 6e  69 73 68 25 0d 0d ca 11  |.  . finish%....|
00002800  20 20 de 20 66 69 6e 69  73 68 25 20 30 0d 0d d4  |  . finish% 0...|
00002810  11 3d 20 66 69 6e 69 73  68 25 20 2d 20 90 0d 0d  |.= finish% - ...|
00002820  de 04 0d 0d e8 10 dd a4  73 74 72 69 6e 67 28 61  |........string(a|
00002830  25 29 0d 0d f2 2b 20 20  f4 20 65 78 74 61 63 74  |%)...+  . extact|
00002840  73 20 43 20 73 74 79 6c  65 20 30 20 74 65 72 6d  |s C style 0 term|
00002850  69 6e 61 74 65 64 20 73  74 72 69 6e 67 0d 0d fc  |inated string...|
00002860  1f 20 20 f4 20 61 70 70  6c 69 63 61 74 69 6f 6e  |.  . application|
00002870  20 69 6e 64 65 70 65 6e  64 61 6e 74 0d 0e 06 0a  | independant....|
00002880  20 20 ea 20 62 24 0d 0e  10 0b 20 20 62 24 3d 22  |  . b$....  b$="|
00002890  22 0d 0e 1a 0f 20 20 c8  95 20 3f 61 25 3c 3e 30  |"....  .. ?a%<>0|
000028a0  0d 0e 24 10 20 20 20 20  62 24 2b 3d bd 3f 61 25  |..$.    b$+=.?a%|
000028b0  0d 0e 2e 0d 20 20 20 20  61 25 2b 3d 31 0d 0e 38  |....    a%+=1..8|
000028c0  07 20 20 ce 0d 0e 42 07  3d 62 24 0d 0e 4c 04 0d  |.  ...B.=b$..L..|
000028d0  0e 56 1e dd 20 a4 66 6f  72 63 65 5f 6c 6f 77 65  |.V.. .force_lowe|
000028e0  72 5f 63 61 73 65 28 74  65 78 74 24 29 0d 0e 60  |r_case(text$)..`|
000028f0  1f 20 20 f4 20 61 70 70  6c 69 63 61 74 69 6f 6e  |.  . application|
00002900  20 69 6e 64 65 70 65 6e  64 61 6e 74 0d 0e 6a 13  | independant..j.|
00002910  20 20 ea 20 6c 6f 6f 70  25 2c 20 63 68 72 25 0d  |  . loop%, chr%.|
00002920  0e 74 1a 20 20 e3 20 6c  6f 6f 70 25 3d 31 20 b8  |.t.  . loop%=1 .|
00002930  20 a9 28 74 65 78 74 24  29 0d 0e 7e 1f 20 20 20  | .(text$)..~.   |
00002940  20 63 68 72 25 3d 97 28  c1 74 65 78 74 24 2c 6c  | chr%=.(.text$,l|
00002950  6f 6f 70 25 2c 31 29 29  0d 0e 88 1d 20 20 20 20  |oop%,1))....    |
00002960  e7 20 63 68 72 25 3e 36  34 20 80 20 63 68 72 25  |. chr%>64 . chr%|
00002970  3c 39 31 20 8c 0d 0e 92  24 20 20 20 20 20 20 c1  |<91 ....$      .|
00002980  74 65 78 74 24 2c 6c 6f  6f 70 25 2c 31 29 3d bd  |text$,loop%,1)=.|
00002990  28 63 68 72 25 2b 33 32  29 0d 0e 9c 09 20 20 20  |(chr%+32)....   |
000029a0  20 cd 0d 0e a6 07 20 20  ed 0d 0e b0 0a 3d 74 65  | .....  .....=te|
000029b0  78 74 24 0d 0e ba 04 0d  0e c4 1e dd 20 a4 73 65  |xt$......... .se|
000029c0  6e 64 5f 70 72 69 6e 74  65 72 28 66 75 6e 63 74  |nd_printer(funct|
000029d0  69 6f 6e 24 29 0d 0e ce  2c 20 20 f4 20 73 65 6e  |ion$)...,  . sen|
000029e0  64 73 20 63 6f 6e 74 72  6f 6c 20 73 65 71 75 65  |ds control seque|
000029f0  6e 63 65 73 20 74 6f 20  61 20 70 72 69 6e 74 65  |nces to a printe|
00002a00  72 0d 0e d8 3c 20 20 f4  20 70 72 69 6e 74 65 72  |r...<  . printer|
00002a10  20 63 6f 6e 74 72 6f 6c  20 63 6f 64 65 73 20 66  | control codes f|
00002a20  6f 72 20 53 74 61 72 2d  4c 43 31 30 20 69 6e 20  |or Star-LC10 in |
00002a30  73 74 61 6e 64 61 72 64  20 6d 6f 64 65 0d 0e e2  |standard mode...|
00002a40  27 20 20 f4 20 64 65 70  65 6e 64 61 6e 74 20 6f  |'  . dependant o|
00002a50  6e 20 46 4e 66 6f 72 63  65 5f 6c 6f 77 65 72 5f  |n FNforce_lower_|
00002a60  63 61 73 65 0d 0e ec 30  20 20 f4 20 73 69 64 65  |case...0  . side|
00002a70  20 65 66 66 65 63 74 73  20 74 75 72 6e 73 20 70  | effects turns p|
00002a80  72 69 6e 74 65 72 20 6f  66 66 20 77 69 74 68 20  |rinter off with |
00002a90  56 44 55 33 0d 0e f6 2e  20 20 66 75 6e 63 74 69  |VDU3....  functi|
00002aa0  6f 6e 24 20 3d 20 a4 66  6f 72 63 65 5f 6c 6f 77  |on$ = .force_low|
00002ab0  65 72 5f 63 61 73 65 28  66 75 6e 63 74 69 6f 6e  |er_case(function|
00002ac0  24 29 0d 0f 00 08 20 20  ef 32 0d 0f 0a 14 20 20  |$)....  .2....  |
00002ad0  c8 8e 20 66 75 6e 63 74  69 6f 6e 24 20 ca 0d 0f  |.. function$ ...|
00002ae0  14 25 20 20 20 20 c9 20  22 63 6f 6e 64 65 6e 73  |.%    . "condens|
00002af0  65 64 22 20 20 20 20 20  20 20 20 20 20 3a ef 31  |ed"          :.1|
00002b00  2c 31 35 0d 0f 1e 25 20  20 20 20 c9 20 22 63 6f  |,15...%    . "co|
00002b10  6e 64 65 6e 73 65 64 5f  6f 66 66 22 20 20 20 20  |ndensed_off"    |
00002b20  20 20 3a ef 31 2c 31 38  0d 0f 28 3e 20 20 20 20  |  :.1,18..(>    |
00002b30  c9 20 22 63 6f 75 72 69  65 72 22 20 20 20 20 20  |. "courier"     |
00002b40  20 20 20 20 20 20 20 3a  ef 31 2c 32 37 2c 31 2c  |       :.1,27,1,|
00002b50  31 30 37 2c 31 2c 30 2c  31 2c 32 37 2c 31 2c 31  |107,1,0,1,27,1,1|
00002b60  32 30 2c 31 2c 31 0d 0f  32 48 20 20 20 20 c9 20  |20,1,1..2H    . |
00002b70  22 64 6f 75 62 6c 65 20  68 69 67 68 22 20 20 20  |"double high"   |
00002b80  20 20 20 20 20 3a ef 31  2c 32 37 2c 31 2c 39 31  |     :.1,27,1,91|
00002b90  2c 31 2c 36 34 2c 31 2c  34 2c 31 2c 30 2c 31 2c  |,1,64,1,4,1,0,1,|
00002ba0  30 2c 31 2c 30 2c 31 2c  33 34 2c 31 2c 31 0d 0f  |0,1,0,1,34,1,1..|
00002bb0  3c 48 20 20 20 20 c9 20  22 64 6f 75 62 6c 65 5f  |<H    . "double_|
00002bc0  68 65 69 67 68 74 5f 6f  66 66 22 20 20 3a ef 31  |height_off"  :.1|
00002bd0  2c 32 37 2c 31 2c 39 31  2c 31 2c 36 34 2c 31 2c  |,27,1,91,1,64,1,|
00002be0  34 2c 31 2c 30 2c 31 2c  30 2c 31 2c 30 2c 31 2c  |4,1,0,1,0,1,0,1,|
00002bf0  31 37 2c 31 2c 31 0d 0f  46 2f 20 20 20 20 c9 20  |17,1,1..F/    . |
00002c00  22 64 6f 75 62 6c 65 20  73 69 7a 65 22 20 20 20  |"double size"   |
00002c10  20 20 20 20 20 3a ef 31  2c 32 37 2c 31 2c 31 30  |     :.1,27,1,10|
00002c20  34 2c 31 2c 31 0d 0f 50  2f 20 20 20 20 c9 20 22  |4,1,1..P/    . "|
00002c30  64 6f 75 62 6c 65 5f 73  69 7a 65 5f 6f 66 66 22  |double_size_off"|
00002c40  20 20 20 20 3a ef 31 2c  32 37 2c 31 2c 31 30 34  |    :.1,27,1,104|
00002c50  2c 31 2c 30 0d 0f 5a 2a  20 20 20 20 c9 20 22 64  |,1,0..Z*    . "d|
00002c60  6f 75 62 6c 65 20 73 74  6b 22 20 20 20 20 20 20  |ouble stk"      |
00002c70  20 20 20 3a ef 31 2c 32  37 2c 31 2c 37 31 0d 0f  |   :.1,27,1,71..|
00002c80  64 2a 20 20 20 20 c9 20  22 64 6f 75 62 6c 65 5f  |d*    . "double_|
00002c90  73 74 72 69 6b 65 5f 6f  66 66 22 20 20 3a ef 31  |strike_off"  :.1|
00002ca0  2c 32 37 2c 31 2c 37 32  0d 0f 6e 2f 20 20 20 20  |,27,1,72..n/    |
00002cb0  c9 20 22 64 72 61 66 74  22 2c 22 6e 6c 71 5f 6f  |. "draft","nlq_o|
00002cc0  66 66 22 20 20 20 20 3a  ef 31 2c 32 37 2c 31 2c  |ff"    :.1,27,1,|
00002cd0  31 32 30 2c 31 2c 30 0d  0f 78 2a 20 20 20 20 c9  |120,1,0..x*    .|
00002ce0  20 22 65 6c 69 74 65 22  20 20 20 20 20 20 20 20  | "elite"        |
00002cf0  20 20 20 20 20 20 3a ef  31 2c 32 37 2c 31 2c 37  |      :.1,27,1,7|
00002d00  37 0d 0f 82 2a 20 20 20  20 c9 20 22 65 6d 70 68  |7...*    . "emph|
00002d10  61 73 69 7a 65 64 22 20  20 20 20 20 20 20 20 20  |asized"         |
00002d20  3a ef 31 2c 32 37 2c 31  2c 36 39 0d 0f 8c 2a 20  |:.1,27,1,69...* |
00002d30  20 20 20 c9 20 22 65 6d  70 68 61 73 69 7a 65 64  |   . "emphasized|
00002d40  5f 6f 66 66 22 20 20 20  20 20 3a ef 31 2c 32 37  |_off"     :.1,27|
00002d50  2c 31 2c 37 30 0d 0f 96  2f 20 20 20 20 c9 20 22  |,1,70.../    . "|
00002d60  65 78 70 61 6e 64 65 64  22 20 20 20 20 20 20 20  |expanded"       |
00002d70  20 20 20 20 3a ef 31 2c  32 37 2c 31 2c 38 37 2c  |    :.1,27,1,87,|
00002d80  31 2c 34 39 0d 0f a0 2f  20 20 20 20 c9 20 22 65  |1,49.../    . "e|
00002d90  78 70 61 6e 64 65 64 5f  6f 66 66 22 20 20 20 20  |xpanded_off"    |
00002da0  20 20 20 3a ef 31 2c 32  37 2c 31 2c 38 37 2c 31  |   :.1,27,1,87,1|
00002db0  2c 34 38 0d 0f aa 2a 20  20 20 20 c9 20 22 69 74  |,48...*    . "it|
00002dc0  61 6c 69 63 22 20 20 20  20 20 20 20 20 20 20 20  |alic"           |
00002dd0  20 20 3a ef 31 2c 32 37  2c 31 2c 35 32 0d 0f b4  |  :.1,27,1,52...|
00002de0  2a 20 20 20 20 c9 20 22  69 74 61 6c 69 63 5f 6f  |*    . "italic_o|
00002df0  66 66 22 20 20 20 20 20  20 20 20 20 3a ef 31 2c  |ff"         :.1,|
00002e00  32 37 2c 31 2c 35 33 0d  0f be 30 20 20 20 20 c9  |27,1,53...0    .|
00002e10  20 22 6e 6c 71 22 20 20  20 20 20 20 20 20 20 20  | "nlq"          |
00002e20  20 20 20 20 20 20 3a ef  31 2c 32 37 2c 31 2c 31  |      :.1,27,1,1|
00002e30  32 30 2c 31 2c 34 39 0d  0f c8 3e 20 20 20 20 c9  |20,1,49...>    .|
00002e40  20 22 6f 72 61 74 6f 72  22 20 20 20 20 20 20 20  | "orator"       |
00002e50  20 20 20 20 20 20 3a ef  31 2c 32 37 2c 31 2c 31  |      :.1,27,1,1|
00002e60  30 37 2c 31 2c 33 2c 31  2c 32 37 2c 31 2c 31 32  |07,1,3,1,27,1,12|
00002e70  30 2c 31 2c 31 0d 0f d2  3e 20 20 20 20 c9 20 22  |0,1,1...>    . "|
00002e80  6f 72 61 74 6f 72 20 73  63 22 20 20 20 20 20 20  |orator sc"      |
00002e90  20 20 20 20 3a ef 31 2c  32 37 2c 31 2c 31 30 37  |    :.1,27,1,107|
00002ea0  2c 31 2c 32 2c 31 2c 32  37 2c 31 2c 31 32 30 2c  |,1,2,1,27,1,120,|
00002eb0  31 2c 31 0d 0f dc 2f 20  20 20 20 c9 20 22 6f 76  |1,1.../    . "ov|
00002ec0  65 72 6c 69 6e 69 6e 67  22 20 20 20 20 20 20 20  |erlining"       |
00002ed0  20 20 3a ef 31 2c 32 37  2c 31 2c 39 35 2c 31 2c  |  :.1,27,1,95,1,|
00002ee0  34 39 0d 0f e6 2f 20 20  20 20 c9 20 22 6f 76 65  |49.../    . "ove|
00002ef0  72 6c 69 6e 69 6e 67 5f  6f 66 66 22 20 20 20 20  |rlining_off"    |
00002f00  20 3a ef 31 2c 32 37 2c  31 2c 39 35 2c 31 2c 34  | :.1,27,1,95,1,4|
00002f10  38 0d 0f f0 2a 20 20 20  20 c9 20 22 70 69 63 61  |8...*    . "pica|
00002f20  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00002f30  3a ef 31 2c 32 37 2c 31  2c 38 30 0d 0f fa 31 20  |:.1,27,1,80...1 |
00002f40  20 20 20 c9 20 22 70 72  6f 70 2e 73 70 61 63 65  |   . "prop.space|
00002f50  64 22 20 20 20 20 20 20  20 20 20 3a ef 31 2c 32  |d"         :.1,2|
00002f60  37 2c 31 2c 31 31 32 2c  31 2c 34 39 0d 10 04 30  |7,1,112,1,49...0|
00002f70  20 20 20 20 c9 20 22 70  72 6f 70 6f 72 74 69 6f  |    . "proportio|
00002f80  6e 61 6c 5f 6f 66 66 22  20 20 20 3a ef 31 2c 32  |nal_off"   :.1,2|
00002f90  37 2c 31 2c 31 31 32 2c  31 2c 34 38 0d 10 0e 2f  |7,1,112,1,48.../|
00002fa0  20 20 20 20 c9 20 22 71  75 61 64 20 73 69 7a 65  |    . "quad size|
00002fb0  22 20 20 20 20 20 20 20  20 20 20 3a ef 31 2c 32  |"          :.1,2|
00002fc0  37 2c 31 2c 31 30 34 2c  31 2c 32 0d 10 18 2f 20  |7,1,104,1,2.../ |
00002fd0  20 20 20 c9 20 22 6e 6f  72 6d 61 6c 20 73 69 7a  |   . "normal siz|
00002fe0  65 22 20 20 20 20 20 20  20 20 3a ef 31 2c 32 37  |e"        :.1,27|
00002ff0  2c 31 2c 31 30 34 2c 31  2c 30 0d 10 22 2a 20 20  |,1,104,1,0.."*  |
00003000  20 20 c9 20 22 72 65 73  65 74 22 20 20 20 20 20  |  . "reset"     |
00003010  20 20 20 20 20 20 20 20  20 3a ef 31 2c 32 37 2c  |         :.1,27,|
00003020  31 2c 36 34 0d 10 2c 30  20 20 20 20 c9 20 22 73  |1,64..,0    . "s|
00003030  75 62 73 63 72 69 70 74  22 20 20 20 20 20 20 20  |ubscript"       |
00003040  20 20 20 3a ef 31 2c 32  37 2c 31 2c 38 33 20 2c  |   :.1,27,1,83 ,|
00003050  31 2c 34 39 0d 10 36 2a  20 20 20 20 c9 20 22 73  |1,49..6*    . "s|
00003060  75 62 73 63 72 69 70 74  5f 6f 66 66 22 20 20 20  |ubscript_off"   |
00003070  20 20 20 3a ef 31 2c 32  37 2c 31 2c 38 34 0d 10  |   :.1,27,1,84..|
00003080  40 30 20 20 20 20 c9 20  22 73 75 70 65 72 73 63  |@0    . "supersc|
00003090  72 69 70 74 22 20 20 20  20 20 20 20 20 3a ef 31  |ript"        :.1|
000030a0  2c 32 37 2c 31 2c 38 33  20 2c 31 2c 34 38 0d 10  |,27,1,83 ,1,48..|
000030b0  4a 2a 20 20 20 20 c9 20  22 73 75 70 65 72 73 63  |J*    . "supersc|
000030c0  72 69 70 74 5f 6f 66 66  22 20 20 20 20 3a ef 31  |ript_off"    :.1|
000030d0  2c 32 37 2c 31 2c 38 34  0d 10 54 3e 20 20 20 20  |,27,1,84..T>    |
000030e0  c9 20 22 73 61 6e 73 20  73 65 72 69 66 22 20 20  |. "sans serif"  |
000030f0  20 20 20 20 20 20 20 3a  ef 31 2c 32 37 2c 31 2c  |       :.1,27,1,|
00003100  31 30 37 2c 31 2c 31 2c  31 2c 32 37 2c 31 2c 31  |107,1,1,1,27,1,1|
00003110  32 30 2c 31 2c 31 0d 10  5e 2f 20 20 20 20 c9 20  |20,1,1..^/    . |
00003120  22 75 6e 64 65 72 6c 69  6e 69 6e 67 22 20 20 20  |"underlining"   |
00003130  20 20 20 20 20 3a ef 31  2c 32 37 2c 31 2c 34 35  |     :.1,27,1,45|
00003140  2c 31 2c 34 39 0d 10 68  2f 20 20 20 20 c9 20 22  |,1,49..h/    . "|
00003150  75 6e 64 65 72 6c 69 6e  69 6e 67 5f 6f 66 66 22  |underlining_off"|
00003160  20 20 20 20 3a ef 31 2c  32 37 2c 31 2c 34 35 2c  |    :.1,27,1,45,|
00003170  31 2c 34 38 0d 10 72 2e  20 20 20 20 c9 20 22 73  |1,48..r.    . "s|
00003180  6b 69 70 20 70 65 72 66  2e 22 20 20 20 20 20 20  |kip perf."      |
00003190  20 20 20 3a ef 31 2c 32  37 2c 31 2c 37 38 2c 31  |   :.1,27,1,78,1|
000031a0  2c 34 0d 10 7c 39 20 20  20 20 7f 20 85 20 31 2c  |,4..|9    . . 1,|
000031b0  22 53 65 6e 64 5f 70 72  69 6e 74 65 72 20 75 6e  |"Send_printer un|
000031c0  6b 6e 6f 77 6e 20 63 6f  6d 6d 61 6e 64 20 2d 20  |known command - |
000031d0  22 2b 66 75 6e 63 74 69  6f 6e 24 0d 10 86 07 20  |"+function$.... |
000031e0  20 cb 0d 10 90 08 20 20  ef 33 0d 10 9a 06 3d b9  | .....  .3....=.|
000031f0  0d 10 a4 04 0d 10 ae 17  dd f2 70 72 69 6e 74 5f  |..........print_|
00003200  6c 69 6e 65 28 6c 69 6e  65 24 29 0d 10 b8 1d 20  |line(line$).... |
00003210  20 f4 20 73 65 6e 64 73  20 6c 69 6e 65 20 74 6f  | . sends line to|
00003220  20 70 72 69 6e 74 65 72  0d 10 c2 1f 20 20 f4 20  | printer....  . |
00003230  61 70 70 6c 69 63 61 74  69 6f 6e 20 69 6e 64 65  |application inde|
00003240  70 65 6e 64 61 6e 74 0d  10 cc 30 20 20 f4 20 73  |pendant...0  . s|
00003250  69 64 65 20 65 66 66 65  63 74 73 20 74 75 72 6e  |ide effects turn|
00003260  73 20 70 72 69 6e 74 65  72 20 6f 66 66 20 77 69  |s printer off wi|
00003270  74 68 20 56 44 55 33 0d  10 d6 0d 20 20 ea 20 6c  |th VDU3....  . l|
00003280  6f 6f 70 25 0d 10 e0 08  20 20 ef 32 0d 10 ea 1a  |oop%....  .2....|
00003290  20 20 e3 20 6c 6f 6f 70  25 3d 31 20 b8 20 a9 28  |  . loop%=1 . .(|
000032a0  6c 69 6e 65 24 29 0d 10  f4 1d 20 20 20 20 ef 31  |line$)....    .1|
000032b0  2c 97 28 c1 6c 69 6e 65  24 2c 6c 6f 6f 70 25 2c  |,.(.line$,loop%,|
000032c0  31 29 29 0d 10 fe 07 20  20 ed 0d 11 08 12 20 20  |1))....  .....  |
000032d0  ef 31 2c 31 30 2c 31 2c  31 33 2c 33 0d 11 12 05  |.1,10,1,13,3....|
000032e0  e1 0d 11 1c 04 0d 11 26  14 dd a4 72 65 61 64 76  |.......&...readv|
000032f0  61 72 28 6e 61 6d 65 24  29 0d 11 30 42 20 20 f4  |ar(name$)..0B  .|
00003300  20 72 65 74 75 72 6e 73  20 74 68 65 20 73 74 72  | returns the str|
00003310  69 6e 67 20 63 6f 6e 74  61 69 6e 65 64 20 69 6e  |ing contained in|
00003320  20 61 6e 20 4f 53 20 65  6e 76 69 72 6f 6e 6d 65  | an OS environme|
00003330  6e 74 20 76 61 72 69 61  62 6c 65 0d 11 3a 1f 20  |nt variable..:. |
00003340  20 f4 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 69  | . application i|
00003350  6e 64 65 70 65 6e 64 61  6e 74 0d 11 44 29 20 20  |ndependant..D)  |
00003360  ea 20 71 25 2c 20 62 79  74 65 73 25 2c 20 6e 61  |. q%, bytes%, na|
00003370  6d 65 25 2c 20 6c 6f 6f  70 25 2c 20 72 65 73 75  |me%, loop%, resu|
00003380  6c 74 24 0d 11 4e 19 20  20 de 20 71 25 20 32 35  |lt$..N.  . q% 25|
00003390  36 2c 20 6e 61 6d 65 25  20 31 30 30 0d 11 58 14  |6, name% 100..X.|
000033a0  20 20 24 6e 61 6d 65 25  20 3d 20 6e 61 6d 65 24  |  $name% = name$|
000033b0  0d 11 62 31 20 20 c8 99  20 4f 53 5f 52 65 61 64  |..b1  .. OS_Read|
000033c0  56 61 72 56 61 6c 25 2c  6e 61 6d 65 25 2c 71 25  |VarVal%,name%,q%|
000033d0  2c 32 35 36 2c 30 20 b8  20 2c 2c 62 79 74 65 73  |,256,0 . ,,bytes|
000033e0  25 0d 11 6c 10 20 20 72  65 73 75 6c 74 24 3d 22  |%..l.  result$="|
000033f0  22 0d 11 76 1c 20 20 e3  20 6c 6f 6f 70 25 3d 30  |"..v.  . loop%=0|
00003400  20 b8 20 62 79 74 65 73  25 20 2d 20 31 0d 11 80  | . bytes% - 1...|
00003410  1d 20 20 20 20 72 65 73  75 6c 74 24 20 2b 3d 20  |.    result$ += |
00003420  bd 20 71 25 3f 6c 6f 6f  70 25 0d 11 8a 07 20 20  |. q%?loop%....  |
00003430  ed 0d 11 94 0c 3d 72 65  73 75 6c 74 24 0d 11 9e  |.....=result$...|
00003440  04 0d 11 a8 3a f4 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....:.----------|
00003450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 57 69 6d 70 20  |-----------Wimp |
00003470  4c 69 62 20 66 6f 6c 6c  6f 77 73 0d 11 b2 04 0d  |Lib follows.....|
00003480  11 bc 17 dd f2 72 65 64  72 61 77 5f 77 69 6e 64  |.....redraw_wind|
00003490  6f 77 28 71 25 29 0d 11  c6 0d 20 20 ea 20 6d 6f  |ow(q%)....  . mo|
000034a0  72 65 25 0d 11 d0 27 20  20 c8 99 20 57 69 6d 70  |re%...'  .. Wimp|
000034b0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 25 2c 2c  |_RedrawWindow%,,|
000034c0  71 25 20 b8 20 6d 6f 72  65 25 0d 11 da 0e 20 20  |q% . more%....  |
000034d0  c8 95 20 6d 6f 72 65 25  0d 11 e4 14 20 20 20 20  |.. more%....    |
000034e0  85 20 30 2c 22 49 6e 6c  6f 6f 70 22 0d 11 ee 29  |. 0,"Inloop"...)|
000034f0  20 20 20 20 c8 99 20 57  69 6d 70 5f 47 65 74 52  |    .. Wimp_GetR|
00003500  65 63 74 61 6e 67 6c 65  25 2c 2c 71 25 20 b8 20  |ectangle%,,q% . |
00003510  6d 6f 72 65 25 0d 11 f8  07 20 20 ce 0d 12 02 05  |more%....  .....|
00003520  e1 0d 12 0c 04 0d 12 16  15 dd f2 6f 70 65 6e 5f  |...........open_|
00003530  77 69 6e 64 6f 77 28 71  25 29 0d 12 20 1d 20 20  |window(q%).. .  |
00003540  c8 99 20 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.. Wimp_OpenWind|
00003550  6f 77 25 2c 2c 71 25 0d  12 2a 05 e1 0d 12 34 04  |ow%,,q%..*....4.|
00003560  0d 12 3e 16 dd f2 63 6c  6f 73 65 5f 77 69 6e 64  |..>...close_wind|
00003570  6f 77 28 71 25 29 0d 12  48 1d 20 20 c8 99 20 57  |ow(q%)..H.  .. W|
00003580  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 2c  |imp_CloseWindow,|
00003590  2c 71 25 0d 12 52 05 e1  0d 12 5c 04 0d 12 66 04  |,q%..R....\...f.|
000035a0  0d 12 70 04 0d 12 7a 25  dd f2 75 70 64 61 74 65  |..p...z%..update|
000035b0  69 63 6f 6e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |icon(window%,ico|
000035c0  6e 25 2c 74 65 78 74 24  29 0d 12 84 2b 20 20 f4  |n%,text$)...+  .|
000035d0  20 75 70 64 61 74 65 73  20 74 68 65 20 73 74 72  | updates the str|
000035e0  69 6e 67 20 69 6e 20 61  20 77 69 6e 64 6f 77 20  |ing in a window |
000035f0  69 63 6f 6e 0d 12 8e 1f  20 20 f4 20 61 70 70 6c  |icon....  . appl|
00003600  69 63 61 74 69 6f 6e 20  69 6e 64 65 70 65 6e 64  |ication independ|
00003610  61 6e 74 0d 12 98 10 20  20 ea 20 71 25 2c 74 65  |ant....  . q%,te|
00003620  78 74 25 0d 12 a2 0e 20  20 de 20 71 25 20 32 35  |xt%....  . q% 25|
00003630  35 0d 12 ac 1d 20 20 71  25 21 30 3d 77 69 6e 64  |5....  q%!0=wind|
00003640  6f 77 25 3a 71 25 21 34  3d 69 63 6f 6e 25 0d 12  |ow%:q%!4=icon%..|
00003650  b6 20 20 20 c8 99 20 57  69 6d 70 5f 47 65 74 49  |.   .. Wimp_GetI|
00003660  63 6f 6e 53 74 61 74 65  25 2c 30 2c 71 25 0d 12  |conState%,0,q%..|
00003670  c0 11 20 20 74 65 78 74  25 3d 71 25 21 32 38 0d  |..  text%=q%!28.|
00003680  12 ca 12 20 20 24 74 65  78 74 25 3d 74 65 78 74  |...  $text%=text|
00003690  24 0d 12 d4 05 e1 0d 12  de 04 0d 12 e8 17 dd f2  |$...............|
000036a0  74 69 63 6b 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |tick(menu%,item%|
000036b0  29 0d 12 f2 22 20 20 f4  20 74 6f 67 67 6c 65 20  |)..."  . toggle |
000036c0  74 69 63 6b 20 6f 6e 20  61 20 6d 65 6e 75 20 69  |tick on a menu i|
000036d0  74 65 6d 0d 12 fc 1f 20  20 f4 20 61 70 70 6c 69  |tem....  . appli|
000036e0  63 61 74 69 6f 6e 20 69  6e 64 65 70 65 6e 64 61  |cation independa|
000036f0  6e 74 0d 13 06 10 20 20  ea 20 61 64 64 72 65 73  |nt....  . addres|
00003700  73 25 0d 13 10 28 20 20  61 64 64 72 65 73 73 25  |s%...(  address%|
00003710  20 3d 20 6d 65 6e 75 25  20 2b 20 32 38 20 2b 20  | = menu% + 28 + |
00003720  28 32 34 2a 69 74 65 6d  25 29 0d 13 1a 23 20 20  |(24*item%)...#  |
00003730  61 64 64 72 65 73 73 25  21 30 20 3d 20 61 64 64  |address%!0 = add|
00003740  72 65 73 73 25 21 30 20  82 20 26 30 31 0d 13 24  |ress%!0 . &01..$|
00003750  05 e1 0d 13 2e 04 0d 13  38 19 dd f2 6e 6f 74 69  |........8...noti|
00003760  63 6b 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |ck(menu%,item%).|
00003770  13 42 24 20 20 f4 20 74  75 72 6e 20 6f 66 66 20  |.B$  . turn off |
00003780  74 69 63 6b 20 6f 6e 20  61 20 6d 65 6e 75 20 69  |tick on a menu i|
00003790  74 65 6d 0d 13 4c 1f 20  20 f4 20 61 70 70 6c 69  |tem..L.  . appli|
000037a0  63 61 74 69 6f 6e 20 69  6e 64 65 70 65 6e 64 61  |cation independa|
000037b0  6e 74 0d 13 56 10 20 20  ea 20 61 64 64 72 65 73  |nt..V.  . addres|
000037c0  73 25 0d 13 60 28 20 20  61 64 64 72 65 73 73 25  |s%..`(  address%|
000037d0  20 3d 20 6d 65 6e 75 25  20 2b 20 32 38 20 2b 20  | = menu% + 28 + |
000037e0  28 32 34 2a 69 74 65 6d  25 29 0d 13 6a 25 20 20  |(24*item%)..j%  |
000037f0  61 64 64 72 65 73 73 25  21 30 20 3d 20 61 64 64  |address%!0 = add|
00003800  72 65 73 73 25 21 30 20  80 20 ac 20 26 30 31 0d  |ress%!0 . . &01.|
00003810  13 74 05 e1 0d 13 7e 04  0d 13 88 26 dd a4 6d 65  |.t....~....&..me|
00003820  6e 75 28 61 64 64 72 65  73 73 25 2c 74 69 74 6c  |nu(address%,titl|
00003830  65 24 2c 6d 65 6e 75 77  69 64 74 68 25 29 0d 13  |e$,menuwidth%)..|
00003840  92 24 20 20 f4 20 62 75  69 6c 64 20 68 65 61 64  |.$  . build head|
00003850  65 72 20 64 61 74 61 20  66 6f 72 20 61 20 6d 65  |er data for a me|
00003860  6e 75 0d 13 9c 1f 20 20  f4 20 61 70 70 6c 69 63  |nu....  . applic|
00003870  61 74 69 6f 6e 20 69 6e  64 65 70 65 6e 64 65 6e  |ation independen|
00003880  74 0d 13 a6 35 20 20 24  61 64 64 72 65 73 73 25  |t...5  $address%|
00003890  20 20 20 3d 20 74 69 74  6c 65 24 20 20 20 20 20  |   = title$     |
000038a0  20 20 20 20 20 20 20 20  20 3a f4 20 6d 65 6e 75  |         :. menu|
000038b0  20 74 69 74 6c 65 0d 13  b0 3b 20 20 61 64 64 72  | title...;  addr|
000038c0  65 73 73 25 3f 31 32 20  3d 20 37 20 20 20 20 20  |ess%?12 = 7     |
000038d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
000038e0  20 73 74 61 6e 64 61 72  64 20 63 6f 6c 6f 75 72  | standard colour|
000038f0  73 0d 13 ba 15 20 20 61  64 64 72 65 73 73 25 3f  |s....  address%?|
00003900  31 33 20 3d 20 32 0d 13  c4 15 20 20 61 64 64 72  |13 = 2....  addr|
00003910  65 73 73 25 3f 31 34 20  3d 20 37 0d 13 ce 15 20  |ess%?14 = 7.... |
00003920  20 61 64 64 72 65 73 73  25 3f 31 35 20 3d 20 30  | address%?15 = 0|
00003930  0d 13 d8 39 20 20 61 64  64 72 65 73 73 25 21 31  |...9  address%!1|
00003940  36 20 3d 20 31 36 2b 28  31 36 2a 6d 65 6e 75 77  |6 = 16+(16*menuw|
00003950  69 64 74 68 25 29 20 20  3a f4 20 77 69 64 74 68  |idth%)  :. width|
00003960  20 69 6e 20 63 68 61 72  73 0d 13 e2 31 20 20 61  | in chars...1  a|
00003970  64 64 72 65 73 73 25 21  32 30 20 3d 20 34 34 20  |ddress%!20 = 44 |
00003980  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003990  20 3a f4 20 68 65 69 67  68 74 0d 13 ec 36 20 20  | :. height...6  |
000039a0  61 64 64 72 65 73 73 25  21 32 34 20 3d 20 30 20  |address%!24 = 0 |
000039b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000039c0  20 20 3a f4 20 67 61 70  20 62 65 74 77 65 65 6e  |  :. gap between|
000039d0  0d 13 f6 10 3d 61 64 64  72 65 73 73 25 2b 32 38  |....=address%+28|
000039e0  0d 14 00 04 0d 14 0a 45  dd a4 6d 65 6e 75 69 74  |.......E..menuit|
000039f0  65 6d 28 61 64 64 72 65  73 73 25 2c 69 74 65 6d  |em(address%,item|
00003a00  6e 61 6d 65 24 2c 6d 65  6e 75 66 6c 61 67 73 25  |name$,menuflags%|
00003a10  2c 4f 70 74 69 6f 6e 73  6d 65 6e 75 25 2c 69 63  |,Optionsmenu%,ic|
00003a20  6f 6e 66 6c 61 67 73 25  29 0d 14 14 22 20 20 f4  |onflags%)..."  .|
00003a30  20 62 75 69 6c 64 20 64  61 74 61 20 66 6f 72 20  | build data for |
00003a40  61 20 6d 65 6e 75 20 69  74 65 6d 0d 14 1e 1f 20  |a menu item.... |
00003a50  20 f4 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 69  | . application i|
00003a60  6e 64 65 70 65 6e 64 65  6e 74 0d 14 28 1d 20 20  |ndependent..(.  |
00003a70  61 64 64 72 65 73 73 25  21 30 20 3d 20 6d 65 6e  |address%!0 = men|
00003a80  75 66 6c 61 67 73 25 0d  14 32 1f 20 20 61 64 64  |uflags%..2.  add|
00003a90  72 65 73 73 25 21 34 20  3d 20 4f 70 74 69 6f 6e  |ress%!4 = Option|
00003aa0  73 6d 65 6e 75 25 0d 14  3c 1d 20 20 61 64 64 72  |smenu%..<.  addr|
00003ab0  65 73 73 25 21 38 20 3d  20 69 63 6f 6e 66 6c 61  |ess%!8 = iconfla|
00003ac0  67 73 25 0d 14 46 20 20  20 24 28 61 64 64 72 65  |gs%..F   $(addre|
00003ad0  73 73 25 2b 31 32 29 20  3d 20 69 74 65 6d 6e 61  |ss%+12) = itemna|
00003ae0  6d 65 24 0d 14 50 10 3d  61 64 64 72 65 73 73 25  |me$..P.=address%|
00003af0  2b 32 34 0d 14 5a 04 0d  14 64 1c dd f2 68 65 6c  |+24..Z...d...hel|
00003b00  70 28 70 72 6f 67 5f 64  69 72 24 2c 74 69 74 6c  |p(prog_dir$,titl|
00003b10  65 24 29 0d 14 6e 37 20  20 f4 20 74 79 70 65 73  |e$)..n7  . types|
00003b20  20 20 21 68 65 6c 70 20  69 6e 20 63 6f 6d 6d 61  |  !help in comma|
00003b30  6e 64 20 77 69 6e 64 6f  77 20 69 6e 20 6e 6f 73  |nd window in nos|
00003b40  63 72 6f 6c 6c 20 6d 6f  64 65 0d 14 78 1f 20 20  |croll mode..x.  |
00003b50  f4 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 69 6e  |. application in|
00003b60  64 65 70 65 6e 64 61 6e  74 0d 14 82 0d 20 20 ea  |dependant....  .|
00003b70  20 68 65 6c 70 25 0d 14  8c 11 20 20 de 20 68 65  | help%....  . he|
00003b80  6c 70 25 20 32 35 35 0d  14 96 13 20 20 24 68 65  |lp% 255....  $he|
00003b90  6c 70 25 3d 74 69 74 6c  65 24 0d 14 a0 22 20 20  |lp%=title$..."  |
00003ba0  c8 99 20 57 69 6d 70 5f  43 6f 6d 6d 61 6e 64 57  |.. Wimp_CommandW|
00003bb0  69 6e 64 6f 77 25 2c 68  65 6c 70 25 0d 14 aa 26  |indow%,help%...&|
00003bc0  20 20 ff 28 22 2a 74 79  70 65 20 22 2b 70 72 6f  |  .("*type "+pro|
00003bd0  67 5f 64 69 72 24 2b 22  2e 21 68 65 6c 70 22 20  |g_dir$+".!help" |
00003be0  20 29 0d 14 b4 1e 20 20  c8 99 20 57 69 6d 70 5f  | )....  .. Wimp_|
00003bf0  43 6f 6d 6d 61 6e 64 57  69 6e 64 6f 77 25 2c 30  |CommandWindow%,0|
00003c00  0d 14 be 05 e1 0d 14 c8  04 0d 14 d2 17 dd f2 70  |...............p|
00003c10  72 6f 62 6c 65 6d 28 70  72 6f 62 6c 65 6d 24 29  |roblem(problem$)|
00003c20  0d 14 dc 2c 20 20 f4 20  64 6f 65 73 20 65 72 72  |...,  . does err|
00003c30  6f 72 20 72 65 70 6f 72  74 20 66 6f 72 20 6d 69  |or report for mi|
00003c40  6e 6f 72 20 70 72 6f 62  6c 65 6d 73 0d 14 e6 1e  |nor problems....|
00003c50  20 20 f4 20 61 70 70 6c  69 63 61 74 69 6f 6e 20  |  . application |
00003c60  69 6e 64 65 70 6e 64 61  6e 74 0d 14 f0 20 20 20  |indepndant...   |
00003c70  f4 20 73 65 74 73 20 75  70 20 65 72 72 6f 72 20  |. sets up error |
00003c80  64 61 74 61 20 62 6c 6f  63 6b 0d 14 fa 13 20 20  |data block....  |
00003c90  ea 20 70 72 6f 62 6c 65  6d 62 6c 6b 25 0d 15 04  |. problemblk%...|
00003ca0  18 20 20 de 20 70 72 6f  62 6c 65 6d 62 6c 6b 25  |.  . problemblk%|
00003cb0  20 26 31 30 30 0d 15 0e  19 20 20 c8 99 20 48 6f  | &100....  .. Ho|
00003cc0  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 25 0d 15  |urglass_Smash%..|
00003cd0  18 14 20 20 21 70 72 6f  62 6c 65 6d 62 6c 6b 25  |..  !problemblk%|
00003ce0  3d 30 0d 15 22 1f 20 20  24 28 70 72 6f 62 6c 65  |=0..".  $(proble|
00003cf0  6d 62 6c 6b 25 2b 34 29  3d 70 72 6f 62 6c 65 6d  |mblk%+4)=problem|
00003d00  24 0d 15 2c 29 20 20 70  72 6f 62 6c 65 6d 62 6c  |$..,)  problembl|
00003d10  6b 25 3f 28 34 2b a9 24  28 70 72 6f 62 6c 65 6d  |k%?(4+.$(problem|
00003d20  62 6c 6b 25 2b 34 29 29  3d 30 0d 15 36 3a 20 20  |blk%+4))=0..6:  |
00003d30  c8 99 20 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.. Wimp_ReportEr|
00003d40  72 6f 72 25 2c 20 70 72  6f 62 6c 65 6d 62 6c 6b  |ror%, problemblk|
00003d50  25 2c 25 31 30 30 30 31  2c 22 50 72 69 6e 74 65  |%,%10001,"Printe|
00003d60  72 54 78 22 0d 15 40 05  e1 0d 15 4a 04 0d 15 54  |rTx"..@....J...T|
00003d70  18 dd f2 65 72 72 6f 72  62 6f 78 28 61 70 70 6e  |...errorbox(appn|
00003d80  61 6d 65 24 29 0d 15 5e  19 20 20 f4 20 72 65 71  |ame$)..^.  . req|
00003d90  75 69 72 65 73 20 46 4e  65 72 72 62 6c 6b 0d 15  |uires FNerrblk..|
00003da0  68 1f 20 20 f4 20 61 70  70 6c 69 63 61 74 69 6f  |h.  . applicatio|
00003db0  6e 20 69 6e 64 65 70 65  6e 64 61 6e 74 0d 15 72  |n independant..r|
00003dc0  0f 20 20 ea 20 72 65 73  75 6c 74 25 0d 15 7c 08  |.  . result%..|.|
00003dd0  20 20 ef 33 0d 15 86 1f  20 20 c8 99 20 57 69 6d  |  .3....  .. Wim|
00003de0  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 25  |p_CommandWindow%|
00003df0  2c 2d 31 0d 15 90 4e 20  20 c8 99 20 57 69 6d 70  |,-1...N  .. Wimp|
00003e00  5f 52 65 70 6f 72 74 45  72 72 6f 72 25 2c 20 a4  |_ReportError%, .|
00003e10  65 72 72 62 6c 6b 28 61  70 70 6e 61 6d 65 24 2c  |errblk(appname$,|
00003e20  9f 2c f6 24 29 2c 25 31  31 2c 22 50 72 69 6e 74  |.,.$),%11,"Print|
00003e30  65 72 54 78 22 20 b8 20  2c 72 65 73 75 6c 74 25  |erTx" . ,result%|
00003e40  3a 0d 15 9a 15 20 20 e7  20 72 65 73 75 6c 74 25  |:....  . result%|
00003e50  20 3d 20 32 20 8c 0d 15  a4 1a 20 20 20 20 c8 99  | = 2 .....    ..|
00003e60  20 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 25  | Wimp_CloseDown%|
00003e70  0d 15 ae 09 20 20 20 20  e0 0d 15 b8 07 20 20 cd  |....    .....  .|
00003e80  0d 15 c2 05 e1 0d 15 cc  04 0d 15 d6 23 dd a4 65  |............#..e|
00003e90  72 72 62 6c 6b 28 61 70  70 6e 61 6d 65 24 2c 65  |rrblk(appname$,e|
00003ea0  72 72 25 2c 72 65 70 6f  72 74 24 29 0d 15 e0 20  |rr%,report$)... |
00003eb0  20 20 f4 20 73 65 74 73  20 75 70 20 65 72 72 6f  |  . sets up erro|
00003ec0  72 20 64 61 74 61 20 62  6c 6f 63 6b 0d 15 ea 0f  |r data block....|
00003ed0  20 20 ea 20 65 72 72 62  6c 6b 25 0d 15 f4 14 20  |  . errblk%.... |
00003ee0  20 de 20 65 72 72 62 6c  6b 25 20 26 31 30 30 0d  | . errblk% &100.|
00003ef0  15 fe 19 20 20 c8 99 20  48 6f 75 72 67 6c 61 73  |...  .. Hourglas|
00003f00  73 5f 53 6d 61 73 68 25  0d 16 08 13 20 20 21 65  |s_Smash%....  !e|
00003f10  72 72 62 6c 6b 25 3d 65  72 72 25 0d 16 12 79 20  |rrblk%=err%...y |
00003f20  20 24 28 65 72 72 62 6c  6b 25 2b 34 29 3d 22 55  | $(errblk%+4)="U|
00003f30  6e 64 6f 63 75 6d 65 6e  74 65 64 20 66 65 61 74  |ndocumented feat|
00003f40  75 72 65 3a 20 22 2b 72  65 70 6f 72 74 24 2b 22  |ure: "+report$+"|
00003f50  20 41 74 20 6c 69 6e 65  20 22 2b c3 9e 2b 22 2e  | At line "+..+".|
00003f60  20 55 73 65 20 4f 4b 20  74 6f 20 63 6f 6e 74 69  | Use OK to conti|
00003f70  6e 75 65 20 6f 72 20 43  61 6e 63 65 6c 20 74 6f  |nue or Cancel to|
00003f80  20 6b 69 6c 6c 20 22 2b  61 70 70 6e 61 6d 65 24  | kill "+appname$|
00003f90  2b 22 2e 22 0d 16 1c 21  20 20 65 72 72 62 6c 6b  |+"."...!  errblk|
00003fa0  25 3f 28 34 2b a9 24 28  65 72 72 62 6c 6b 25 2b  |%?(4+.$(errblk%+|
00003fb0  34 29 29 3d 30 0d 16 26  0c 3d 65 72 72 62 6c 6b  |4))=0..&.=errblk|
00003fc0  25 0d 16 30 04 0d 16 3a  10 dd f2 73 77 69 6e 75  |%..0...:...swinu|
00003fd0  6d 62 65 72 73 0d 16 44  48 20 20 c8 99 20 22 4f  |mbers..DH  .. "O|
00003fe0  53 5f 53 57 49 4e 75 6d  62 65 72 46 72 6f 6d 53  |S_SWINumberFromS|
00003ff0  74 72 69 6e 67 22 2c 2c  22 4f 53 5f 53 57 49 4e  |tring",,"OS_SWIN|
00004000  75 6d 62 65 72 46 72 6f  6d 53 74 72 69 6e 67 22  |umberFromString"|
00004010  20 b8 20 53 57 49 6e 75  6d 62 65 72 25 0d 16 4e  | . SWInumber%..N|
00004020  41 20 20 c8 99 20 53 57  49 6e 75 6d 62 65 72 25  |A  .. SWInumber%|
00004030  2c 2c 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |,,"OS_ReadModeVa|
00004040  72 69 61 62 6c 65 22 20  b8 20 4f 53 5f 52 65 61  |riable" . OS_Rea|
00004050  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 25 0d 16  |dModeVariable%..|
00004060  58 35 20 20 c8 99 20 53  57 49 6e 75 6d 62 65 72  |X5  .. SWInumber|
00004070  25 2c 2c 22 4f 53 5f 52  65 61 64 56 61 72 56 61  |%,,"OS_ReadVarVa|
00004080  6c 22 20 b8 20 4f 53 5f  52 65 61 64 56 61 72 56  |l" . OS_ReadVarV|
00004090  61 6c 25 0d 16 62 3c 20  20 c8 99 20 53 57 49 6e  |al%..b<  .. SWIn|
000040a0  75 6d 62 65 72 25 2c 2c  22 57 69 6d 70 5f 43 6c  |umber%,,"Wimp_Cl|
000040b0  6f 73 65 44 6f 77 6e 22  20 20 20 20 20 20 b8 20  |oseDown"      . |
000040c0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 25 0d  |Wimp_CloseDown%.|
000040d0  16 6c 40 20 20 c8 99 20  53 57 49 6e 75 6d 62 65  |.l@  .. SWInumbe|
000040e0  72 25 2c 2c 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |r%,,"Wimp_CloseT|
000040f0  65 6d 70 6c 61 74 65 22  20 20 b8 20 57 69 6d 70  |emplate"  . Wimp|
00004100  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 25 0d  |_CloseTemplate%.|
00004110  16 76 3c 20 20 c8 99 20  53 57 49 6e 75 6d 62 65  |.v<  .. SWInumbe|
00004120  72 25 2c 2c 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |r%,,"Wimp_CloseW|
00004130  69 6e 64 6f 77 22 20 20  b8 20 57 69 6d 70 5f 43  |indow"  . Wimp_C|
00004140  6c 6f 73 65 57 69 6e 64  6f 77 25 0d 16 80 40 20  |loseWindow%...@ |
00004150  20 c8 99 20 53 57 49 6e  75 6d 62 65 72 25 2c 2c  | .. SWInumber%,,|
00004160  22 57 69 6d 70 5f 43 6f  6d 6d 61 6e 64 57 69 6e  |"Wimp_CommandWin|
00004170  64 6f 77 22 20 20 b8 20  57 69 6d 70 5f 43 6f 6d  |dow"  . Wimp_Com|
00004180  6d 61 6e 64 57 69 6e 64  6f 77 25 0d 16 8a 3d 20  |mandWindow%...= |
00004190  20 c8 99 20 53 57 49 6e  75 6d 62 65 72 25 2c 2c  | .. SWInumber%,,|
000041a0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000041b0  22 20 20 20 20 20 b8 20  57 69 6d 70 5f 43 72 65  |"     . Wimp_Cre|
000041c0  61 74 65 49 63 6f 6e 25  0d 16 94 3d 20 20 c8 99  |ateIcon%...=  ..|
000041d0  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
000041e0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 20 20  |mp_CreateMenu"  |
000041f0  20 20 20 b8 20 57 69 6d  70 5f 43 72 65 61 74 65  |   . Wimp_Create|
00004200  4d 65 6e 75 25 0d 16 9e  3f 20 20 c8 99 20 53 57  |Menu%...?  .. SW|
00004210  49 6e 75 6d 62 65 72 25  2c 2c 22 57 69 6d 70 5f  |Inumber%,,"Wimp_|
00004220  43 72 65 61 74 65 57 69  6e 64 6f 77 22 20 20 20  |CreateWindow"   |
00004230  b8 20 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |. Wimp_CreateWin|
00004240  64 6f 77 25 0d 16 a8 3d  20 20 c8 99 20 53 57 49  |dow%...=  .. SWI|
00004250  6e 75 6d 62 65 72 25 2c  2c 22 57 69 6d 70 5f 44  |number%,,"Wimp_D|
00004260  65 63 6f 64 65 4d 65 6e  75 22 20 20 20 20 20 b8  |ecodeMenu"     .|
00004270  20 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  | Wimp_DecodeMenu|
00004280  25 0d 16 b2 3f 20 20 c8  99 20 53 57 49 6e 75 6d  |%...?  .. SWInum|
00004290  62 65 72 25 2c 2c 22 57  69 6d 70 5f 47 65 74 49  |ber%,,"Wimp_GetI|
000042a0  63 6f 6e 53 74 61 74 65  22 20 20 20 b8 20 57 69  |conState"   . Wi|
000042b0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 25  |mp_GetIconState%|
000042c0  0d 16 bc 41 20 20 c8 99  20 53 57 49 6e 75 6d 62  |...A  .. SWInumb|
000042d0  65 72 25 2c 2c 22 57 69  6d 70 5f 47 65 74 50 6f  |er%,,"Wimp_GetPo|
000042e0  69 6e 74 65 72 49 6e 66  6f 22 20 b8 20 57 69 6d  |interInfo" . Wim|
000042f0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00004300  25 0d 16 c6 3f 20 20 c8  99 20 53 57 49 6e 75 6d  |%...?  .. SWInum|
00004310  62 65 72 25 2c 2c 22 57  69 6d 70 5f 47 65 74 52  |ber%,,"Wimp_GetR|
00004320  65 63 74 61 6e 67 6c 65  22 20 20 20 b8 20 57 69  |ectangle"   . Wi|
00004330  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 25  |mp_GetRectangle%|
00004340  0d 16 d0 3d 20 20 c8 99  20 53 57 49 6e 75 6d 62  |...=  .. SWInumb|
00004350  65 72 25 2c 2c 22 57 69  6d 70 5f 49 6e 69 74 69  |er%,,"Wimp_Initi|
00004360  61 6c 69 73 65 22 20 20  20 20 20 b8 20 57 69 6d  |alise"     . Wim|
00004370  70 5f 49 6e 69 74 69 61  6c 69 73 65 25 0d 16 da  |p_Initialise%...|
00004380  3f 20 20 c8 99 20 53 57  49 6e 75 6d 62 65 72 25  |?  .. SWInumber%|
00004390  2c 2c 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |,,"Wimp_LoadTemp|
000043a0  6c 61 74 65 22 20 20 20  b8 20 57 69 6d 70 5f 4c  |late"   . Wimp_L|
000043b0  6f 61 64 54 65 6d 70 6c  61 74 65 25 0d 16 e4 3f  |oadTemplate%...?|
000043c0  20 20 c8 99 20 53 57 49  6e 75 6d 62 65 72 25 2c  |  .. SWInumber%,|
000043d0  2c 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  |,"Wimp_OpenTempl|
000043e0  61 74 65 22 20 20 20 b8  20 57 69 6d 70 5f 4f 70  |ate"   . Wimp_Op|
000043f0  65 6e 54 65 6d 70 6c 61  74 65 25 0d 16 ee 3d 20  |enTemplate%...= |
00004400  20 c8 99 20 53 57 49 6e  75 6d 62 65 72 25 2c 2c  | .. SWInumber%,,|
00004410  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00004420  22 20 20 20 20 20 b8 20  57 69 6d 70 5f 4f 70 65  |"     . Wimp_Ope|
00004430  6e 57 69 6e 64 6f 77 25  0d 16 f8 37 20 20 c8 99  |nWindow%...7  ..|
00004440  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
00004450  6d 70 5f 50 6f 6c 6c 22  20 20 20 20 20 20 20 20  |mp_Poll"        |
00004460  20 20 20 b8 20 57 69 6d  70 5f 50 6f 6c 6c 25 0d  |   . Wimp_Poll%.|
00004470  17 02 3f 20 20 c8 99 20  53 57 49 6e 75 6d 62 65  |..?  .. SWInumbe|
00004480  72 25 2c 2c 22 57 69 6d  70 5f 52 65 64 72 61 77  |r%,,"Wimp_Redraw|
00004490  57 69 6e 64 6f 77 22 20  20 20 b8 20 57 69 6d 70  |Window"   . Wimp|
000044a0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 25 0d 17  |_RedrawWindow%..|
000044b0  0c 3e 20 20 c8 99 20 53  57 49 6e 75 6d 62 65 72  |.>  .. SWInumber|
000044c0  25 2c 2c 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |%,,"Wimp_ReportE|
000044d0  72 72 6f 72 22 20 20 20  20 b8 20 57 69 6d 70 5f  |rror"    . Wimp_|
000044e0  52 65 70 6f 72 74 45 72  72 6f 72 25 0d 17 16 3e  |ReportError%...>|
000044f0  20 20 c8 99 20 53 57 49  6e 75 6d 62 65 72 25 2c  |  .. SWInumber%,|
00004500  2c 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |,"Wimp_SendMessa|
00004510  67 65 22 20 20 20 20 b8  20 57 69 6d 70 5f 53 65  |ge"    . Wimp_Se|
00004520  6e 64 4d 65 73 73 61 67  65 25 0d 17 20 3b 20 20  |ndMessage%.. ;  |
00004530  c8 99 20 53 57 49 6e 75  6d 62 65 72 25 2c 2c 22  |.. SWInumber%,,"|
00004540  57 69 6d 70 5f 53 70 72  69 74 65 4f 70 22 20 20  |Wimp_SpriteOp"  |
00004550  20 20 20 20 20 b8 20 57  69 6d 70 5f 53 70 72 69  |     . Wimp_Spri|
00004560  74 65 4f 70 25 0d 17 2a  36 20 20 c8 99 20 53 57  |teOp%..*6  .. SW|
00004570  49 6e 75 6d 62 65 72 25  2c 2c 22 48 6f 75 72 67  |Inumber%,,"Hourg|
00004580  6c 61 73 73 5f 4f 6e 22  20 20 20 20 b8 20 48 6f  |lass_On"    . Ho|
00004590  75 72 67 6c 61 73 73 5f  4f 6e 25 0d 17 34 37 20  |urglass_On%..47 |
000045a0  20 c8 99 20 53 57 49 6e  75 6d 62 65 72 25 2c 2c  | .. SWInumber%,,|
000045b0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 20  |"Hourglass_Off" |
000045c0  20 20 b8 20 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |  . Hourglass_Of|
000045d0  66 25 0d 17 3e 39 20 20  c8 99 20 53 57 49 6e 75  |f%..>9  .. SWInu|
000045e0  6d 62 65 72 25 2c 2c 22  48 6f 75 72 67 6c 61 73  |mber%,,"Hourglas|
000045f0  73 5f 53 6d 61 73 68 22  20 b8 20 48 6f 75 72 67  |s_Smash" . Hourg|
00004600  6c 61 73 73 5f 53 6d 61  73 68 25 0d 17 48 05 e1  |lass_Smash%..H..|
00004610  0d ff                                             |..|
00004612