Utilities/!DiscLabel/!runimage

Home » Archimedes archive » Micro User » MU 1990-11.adf » PD-Stuff » Utilities/!DiscLabel/!runimage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Micro User » MU 1990-11.adf » PD-Stuff
Filename:	Utilities/!DiscLabel/!runimage
Read OK:	✔
File size:	5993 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Archimedes World » AW-1991-04.adf » April91 » !AWApr91/Goodies/PD/!DiscLabel/runimage
Archimedes archive » Micro User » MU 1990-11.adf » PD-Stuff » Utilities/!DiscLabel/!runimage


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

� Author : Nigel Gent
(<�        : 79 Southwark Close, STEVENAGE, Herts, SG1 4PH
2�        : 0438 726430
<
Fprogram_name$ = "DiscLabel"
P#purpose$ = "Disc Label printer"
Z)author$  = "� Nigel Gent (Shareware)"
d"version$ = "1.4 (14-May-1990)"
nprog_dir$="<DiscLabel$Dir>"
x�global_vars
��swinumbers
�,printer$ = �readvar("DiscLabel$Printer")
�� t 4: $t="TASK"
�;ș Wimp_Initialise%,200,!t,program_name$ � , this_task%
�ș Hourglass_On%
��templates
��load_config
�&�updateicon(info%,1,program_name$)
�!�updateicon(info%,2,purpose$)
� �updateicon(info%,3,author$)
�!�updateicon(info%,4,version$)
��definemenus
�instal_DiscLabel
ș 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%)
�     �  3 : �close_window(q%)
�    �  6 : �mouse_click(q%)
�    �  8 : �key_pressed(q%)
�    �  9 : �decodemenu(q%)
�    � 17,18 : �message(q%)
�  �
�� quit%
��
�
�
���instal_DiscLabel
�>  � swidth%,sheight%,smode%,px%,py%,sprite%,text$, sprite$
�  sprite$ = "!DiscLabel"
  text$ = program_name$
-  � sprite% (�(sprite$)+1),text% �(text$)
*  � validation string to define sprite
&  $sprite%="S"+sprite$
0  $text%=text$
:A  ș Wimp_SpriteOp%,40,,sprite$ � ,,,swidth%,sheight%,,smode%
D.  ș OS_ReadModeVariable%,smode%,4 � ,,px%
N  swidth%=swidth%<<px%
X.  ș OS_ReadModeVariable%,smode%,5 � ,,py%
b  sheight%=sheight%<<py%
l3  � �(text$)*16 > swidth% � swidth%=�(text$)*16
v  !q%=-1 :� application
�  q%!4=0
�  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

 ��global_vars
*-  � application specific global variables
4  discname$ = ""
>  file$     = ""
H  line%     = 1
R  line$     = ""
\8  � icon_block% 255    :� space for indirected icons
f*  � code to test if printer is on line
p  � code% &100
z  � result% 1
�  � opt=0 � 2 � 2
�    P%=code%
�    [OPT opt
�    .printer_on
�    SWI "OS_EnterOS"
�    TEQP PC,#3
�    MOV R0,#&3200000
�    ADD R0,R0,#&10
�    LDRB R1,[R0]
�    � R1,R1,#1
�    ADR R0,result%
�    STRB R1,[R0]
�    TEQP PC,#0
    �RNE R0,R0,R0
    MOV PC,R14
	    ]
$  � opt
.�
8
B��printer_setup
L2  � reset printer and setup the options chosen
V
  � loop%
`$  void% = �send_printer("reset")
jM  � loop% = Optionsmenu%+28 � Optionsmenu%+28+((submenuitems%-1)*24) � 24
t     � (!loop% � &01) = &01 �
~,      void% = �send_printer($(loop%+12))
�	    �
�      � do nothing
�	    �
�3�debug$ = FNproblem(TRUE,FALSE,"printer_setup")
�  �
��
�
���clearstyle
�!  � clear selected type style
�  � application specific
�  �notick(Optionsmenu%,4)
�  �notick(Optionsmenu%,5)
  �notick(Optionsmenu%,6)

  �notick(Optionsmenu%,7)
  �notick(Optionsmenu%,8)
�
(
2
<��optionsmenu
F  � Application specific
P
  � m%
Z+  m% = �menu(Optionsmenu%,"Options",11)
d  � printer$="Star-LC10" �
n<    m% = �menuitem(m%,"Draft",        tick%,-1, normal%)
x<    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%)
�  �
�    � do nothing
�  �
�:  m% = �menuitem(m%,"Italic",      plain%,-1, normal%)
�:  m% = �menuitem(m%,"Double Str",  plain%,-1, normal%)
�9  m% = �menuitem(m%,"Emphasized",  last%,-1, normal%)
��
�
���print_label
�  � prints the label
  � response$
  response$ = "ok"
+  ȕ (� �printer_on � response$ = "ok")
"4    response$ = �problem(�,�,"Printer off line")
,  �
6  � response$ = "ok" �
@    �printer_setup
J1    �print_line("--------------------------")
T)    void% = �send_printer("Expanded")
^+    void% = �send_printer("Double Str")
h.    �print_line(�readicon(discwindow%,14))
r2    void% = �send_printer("Double_Strike_off")
|-    void% = �send_printer("Expanded_off")
�1    �print_line("--------------------------")
�    � icon%=5 � 13
�1    �print_line(�readicon(discwindow%,icon%))
�	    �
�*    void% = �send_printer("Subscript")
�.    �print_line(�readicon(discwindow%,14))
�.    void% = �send_printer("Subscript_off")
�.    �print_line(�readicon(discwindow%,15))
�.    �print_line(�readicon(discwindow%,16))
�.    �print_line(�readicon(discwindow%,17))
�  �
�    � do nothing
�  �
�

��clearicons
&7  � clears all icons in disclabel and reset globals
0  � icon%=4 � 14
:)    �updateicon(discwindow%,icon%,"")
D  �
N3  ș Wimp_ForceRedraw%,discwindow%,0,-776,550,0
X  �global_vars
b�
l
v>�---------------------------------Application modified LIB
�
���message(q%)
�#  � deals with messages from OS
�  � application modifiable
�  � size%, filetype%, file$
�  ș Hourglass_On%
�  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)
4      q%!0  = 100
>      q%!12 = q%!8
H&      q%!16 = Message_DataSaveAck%
RB      q%!36 = -1 :� this tells saving app not to mark as saved
\'      file$ = "<Wimp$Scrap>" + �(0)
f      $(q%+44) = file$
p)      ș Wimp_SendMessage%,18,q%,q%!4
z    � Message_DataLoad% :
�      size% = q%!36
�      filetype% = q%!40
�       file$ = �string(q%+44)
�      �data_load(q%)
�$      � 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%=�
	      �
	      �
	  �
	$  ș Hourglass_Off%
	.�
	8
	B��data_load(address%)
	L   � deal with recieving data
	V  � Application modifiable
	`  � size%, filetype%, path$
	j  ș Hourglass_On%
	t  size% = address%!36
	~  filetype% = address%!40
	�"  path$ = �string(address%+44)
	�  address%!12=address%!8
	�  address%!16=4
	�1  ș Wimp_SendMessage%,17,address%,address%!4
	�  olddiscname$ = discname$
	�"  discname$ = �discname(path$)
	�  widediscname$ = ""
	�  � char%=1 � �(discname$)
	�C    widediscname$ = widediscname$ + �discname$, char%, 1) + " "
	�  �
	�  Ȏ olddiscname$ �
	�    � ""
      � do nothing

    � discname$
      � do nothing
	    
(e      void$ = �problem(�,�,"Warning not a file on "+olddiscname$+". This file was on "+discname$)
2  �
<  file$ = �file(path$)
F
  done%=�
P
  icon%=5
Z  �
d4    line$ = �readicon(discwindow%,icon%) + file$
n    � �(line$) < 27 �
x9      �updateicon(discwindow%,icon%,��pad(line$),26))
�2      �updateicon(discwindow%,4,widediscname$)
�/      �updateicon(discwindow%,14,discname$)
�7      ș Wimp_ForceRedraw%,discwindow%,0,-776,550,0
�      done%=�
�	    �
�      icon% += 1
�      � icon% > 13 �
�G        void$ = �problem(�,�,"Too many names to fit on this label")
�        done%=�
�      �
�	    �
�
  � done%
�  ș Hourglass_Off%
�

��mouse_click(q%)
"  � responds to mouse click
,  � application dependant
6(  � iconbar%, window%, mx%, my%, mb%
@  iconbar% = -2
J  mx%=q%!0
T  my%=q%!4
^  mb%=q%!8
h  window%=q%!12
r  Ȏ window% �
|    � iconbar%
�      Ȏ mb% �
�        � 2
�[          ș Wimp_CreateMenu%,,mainmenu%,mx%-mainmenu%!16/2-24,92+(44*mainmenuitems%+1)
�        � 4
�,          �openclosedwindow(discwindow%)
�      �
�    � discwindow%
�      Ȏ mb% �
�        � 2
�<          ș Wimp_CreateMenu%,,mainmenu%,mx%-150,my%+190
�      �
�  �
��

��decodemenu(q%)
  � application modified
&  � selection%,selsction$
0  � selection% 255
:3  ș Wimp_DecodeMenu%,0,mainmenu%,q%,selection%
D  selection$ = $selection%
N  Ȏ selection$ �
X    � "Info"
b      � do nothing
l    � "Help"
v0      �help(prog_dir$,program_name$+" Help")
�    � "Save Config."
�      �save_config
�    � "Printer"
�      � do nothing
�    � "Printer.Epson-FX"
�"      �tick(Printermenu%,q%!4)
�5      �notick(Printermenu%,1):printer$="Epson-FX"
�      �optionsmenu
�    � "Printer.Star-LC10"
�"      �tick(Printermenu%,q%!4)
�6      ����������������������������������������������Printermenu%,0):printer$="Star-LC10"
�      �optionsmenu
�    � "Options"

      � do nothing

    � "Options.Draft"

      �clearstyle

       �tick(Optionsmenu%,4)

*    � "Options.Courier"

4      �clearstyle

>      �tick(Optionsmenu%,5)

H    � "Options.Orator"

R      �clearstyle

\      �tick(Optionsmenu%,6)

f    � "Options.Orator SC"

p      �clearstyle

z      �tick(Optionsmenu%,7)

�    � "Options.Sans Serif"

�      �clearstyle

�      �tick(Optionsmenu%,8)

�    � "Options.Italic"

�      �tick(Optionsmenu%,9)

�    � "Options.Double Str"

�       �tick(Optionsmenu%,10)

�    � "Options.Emphasized"

�       �tick(Optionsmenu%,11)

�    � "Options.Prop.Spaced"

�       �tick(Optionsmenu%,12)

�    � "Print"

�      �print_label
    � "Clear"
      �clearicons
    � "Quit"
$      ș Wimp_CloseDown%:�
.	    
85      � 1,"Menu decode "+selection$+" not known."
B  �
L  � redraw if adjust
V!  ș Wimp_GetPointerInfo%,,q%
`  � q%!8 = 1 �
j&    ș Wimp_CreateMenu%,,mainmenu%
t  �
~�
�
���definemenus
�  � setup menu structures
�  � application modifiable
�<  tick%=%1:dot%=%10:write%=%100:last%=%10000000:plain%=0
�  normal%= (7<<24) � %10001
�   shaded%= (4<<20) � normal%
�  mainmenuitems% = 8
�  submenuitems% = 8
�  printers% = 2
�6  � m%                                  :� pointer
�&  � mainmenu% 28+mainmenuitems%*24
(  � Optionsmenu% 28+submenuitems%*24

$  � Printermenu% 28+printers%*24
,  m% = �menu(mainmenu%,program_name$,12)
>  m% = �menuitem(m%,"Info",     plain%,    info%, normal%)
(>  m% = �menuitem(m%,"Help",     plain%,       -1, normal%)
2>  m% = �menuitem(m%,"Save Config.",plain%,    -1, normal%)
<A  m% = �menuitem(m%,"Printer",  plain%,Printermenu%, normal%)
FA  m% = �menuitem(m%,"Options",  plain%,Optionsmenu%, normal%)
P>  m% = �menuitem(m%,"Print",    plain%,       -1, normal%)
Z>  m% = �menuitem(m%,"Clear",    plain%,       -1, normal%)
d>  m% = �menuitem(m%,"Quit",      last%,       -1, normal%)
n+  m% = �menu(Printermenu%,"Printers",9)
x6  m% = �menuitem(m%,"Epson-FX", plain%,-1,normal%)
�6  m% = �menuitem(m%,"Star-LC10", last%,-1,normal%)
�  Ȏ printer$ �
�*    � "Epson-FX":�tick(Printermenu%,0)
�+    � "Star-LC10":�tick(Printermenu%,1)
�	    
�0      � 100,"Printer: "+printer$+" unknown."
�  �
�  �optionsmenu
��
�
���templates
�  � global q%
�  indirlen%=1000
!  � q% 3500, indir% indirlen%
   indirend%=indir%+indirlen%
5  ș Wimp_OpenTemplate%,,prog_dir$ + ".Templates"
";  � � ș Wimp_CloseTemplate%:�errorbox(program_name$):�
,  temp%=indir%
6E  ș Wimp_LoadTemplate%,,q%,temp%,indirend%,-1,"info",0 � ,,temp%
@G  q%!64=1                                   :� use wimp sprite area
J'  ș Wimp_CreateWindow%,,q% � info%
TJ  ș Wimp_LoadTemplate%,,q%,temp%,indirend%,-1,"DiscLabel",0 � ,,temp%
^G  q%!64=1                                   :� use wimp sprite area
h-  ș Wimp_CreateWindow%,,q% � discwindow%
r  ș Wimp_CloseTemplate%
|�
�
�
�
���key_pressed(q%)
�  � deals with key presses
�  � application dependant
�   � window%,icon%,key_code%,
�-  � down_arrow%,up_arrow%,tab%,shift_tab%
�  window% = q%!0
�  icon% = q%!4
�  key_code% = q%!24
�  print_key% = &180
�  down_arrow% = &18E
  up_arrow% = &18F
%  tab% = &18A : shift_tab% = &19A
  Ȏ window% �
&    � discwindow%
0      Ȏ key_code% �
:      � 13,down_arrow%,tab%
D        icon% += 1
N         � icon%>17 � icon%=4
X:        ș Wimp_SetCaretPosition%,window%,icon%,,,-1,0
b       � up_arrow%,shift_tab%
l        icon% -= 1
v         � icon%<4 � icon%=17
�:        ș Wimp_SetCaretPosition%,window%,icon%,,,-1,0
�      � print_key%
�        �print_label
�      
�)        ș Wimp_ProcessKey%,key_code%
�      �
�	    
�'      ș Wimp_ProcessKey%,key_code%
�  �
��
�
�
�:�------------------------------------BASIC Lib follows

ݤprinter_on
  �printer_on
   Ȏ ?result% �
*!    � 0 : � "not responding."
4      response%=�
>!    � 1 : � "ready.         "
H      response%=�
R  �
\=response%
f
pݤdiscname(path$)
z$  � extracts disc name from path
�  � application independant
�  � from%, to%
�  from% = �path$,"::") + 2
�  to%   = �path$,".")
�=�path$,from%,to%-from%)
�
�ݤfile(path$)
�$  � extracts file name from path
�  � application independant
�  � position%
�  position% = �path$,".")
�  ȕ position% <> 0
�,    path$ = �path$,�(path$) - position%)
    position% = �path$,".")
  �

=path$
$
.ݤpad(text$)
8C  � pads text with space(s) to be next multiple of 4 chars wide
B  � application independant
L  � len%
V  �
`  text$ += " "
j  len%=�(text$)
t  � len% � 4 = 0
~
=text$
�
�ݤstring(a%)
�+  � extacts C style 0 terminated string
�  � application independant
�
  � b$
�  b$=""
�  ȕ ?a%<>0
�    b$+=�?a%
�
    a%+=1
�  �
�=b$
�
� �force_lower_case(text$)

  � application independant
  � loop%, chr%
  � loop%=1 � �(text$)
(    chr%=�(�text$,loop%,1))
2    � chr%>64 � chr%<91 �
<$      �text$,loop%,1)=�(chr%+32)
F	    �
P  �
Z
=text$
d
n��print_line(line$)
x  � 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
��
�
�� �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$)
"7� debug$ = FNproblem(TRUE,FALSE,"Debug:"+function$)
,  �2
6  Ȏ function$ �
@%    � "condensed"          :�1,15
J%    � "condensed_off"      :�1,18
T>    � "courier"            :�1,27,1,107,1,0,1,27,1,120,1,1
^0    � "double high"        :�1,27,1,119,1,49
h/    � "double_height_off"  :�1,27,1,119,1,0
r/    � "double size"        :�1,27,1,104,1,1
|/    � "double_size_off"    :�1,27,1,104,1,0
�*    � "double str"         :�1,27,1,71
�*    � "double_strike_off"  :�1,27,1,72
�/    � "draft","nlq_off"    :�1,27,1,120,1,0
�*    � "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
00    � "proportional_off"   :�1,27,1,112,1,48
:/    � "quad size"          :�1,27,1,104,1,2
D/    � "normal size"        :�1,27,1,104,1,0
N*    � "reset"              :�1,27,1,64
X0    � "subscript"          :�1,27,1,83 ,1,49
b*    � "subscript_off"      :�1,27,1,84
l0    � "superscript"        :�1,27,1,83 ,1,48
v*    � "superscript_off"    :�1,27,1,84
�>    � "sans serif"         :�1,27,1,107,1,1,1,27,1,120,1,1
�/    � "underlining"        :�1,27,1,45,1,49
�/    � "underlining_off"    :�1,27,1,45,1,48
�.    � "skip perf."         :�1,27,1,78,1,4
�9     � 1,"Send_printer unknown command - "+function$
�  �
�  �3
�=�
�
�ݤreadvar(name$)
�B  � returns the string contained in an OS environment variable
�  � application independant
�)  � q%, bytes%, name%, loop%, result$
  � q% 256, name% 100
  $name% = name$
1  ș OS_ReadVarVal%,name%,q%,256,0 � ,,bytes%
   result$=""
*  � loop%=0 � bytes% - 1
4    result$ += � q%?loop%
>  �
H=result$
R
\:�-------------------------------------Wimp Lib follows
f
p��redraw_window(q%)
z
  � more%
�'  ș Wimp_RedrawWindow%,,q% � more%
�  ȕ more%
�    � 0,"Inloop"
�)    ș Wimp_GetRectangle%,,q% � more%
�  �
��
�
���open_window(q%)
�  ș Wimp_OpenWindow%,,q%
��
�
���close_window(q%)
�  ș Wimp_CloseWindow%,,q%
�


$
.%��updateicon(window%,icon%,text$)
8+  � updates the string in a window icon
B  � application independant
L
  � text%
V/  icon_block%!0=window%:icon_block%!4=icon%
`)  ș Wimp_GetIconState%,0,icon_block%
j  text%=icon_block%!28
t  $text%=text$
~�
�
�ݤreadicon(window%,icon%)
�!  � reads the text in an icon
�  � application independant
�
  � text%
�  � icon_block% 255
�/  icon_block%!0=window%:icon_block%!4=icon%
�)  ș Wimp_GetIconState%,0,icon_block%
�  text%=icon_block%!28
�=$text%
�
���tick(menu%,item%)
"  � toggle tick on a menu item

  � application independant
  � address%
(  address% = menu% + 28 + (24*item%)
(#  address%!0 = address%!0 � &01
2�
<
F��notick(menu%,item%)
P$  � turn off tick on a menu item
Z  � application independant
d  � address%
n(  address% = menu% + 28 + (24*item%)
x%  address%!0 = address%!0 � � &01
��
�
�&ݤ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 = 40                  :� height
�6  address%!24 = 0                   :� gap between
=address%+28

Eݤmenuitem(address%,itemname$,menuflags%,Optionsmenu%,iconflags%)
""  � build data for a menu item
,  � application independent
6  address%!0 = menuflags%
@  address%!4 = Optionsmenu%
J  address%!8 = iconflags%
T   $(address%+12) = itemname$
^=address%+24
h
r��help(prog_dir$,title$)
|7  � types  !help in command window in noscroll mode
�  � application independant
�
  � help%
�  � help% 255
�  $help%=title$
�"  ș Wimp_CommandWindow%,help%
�&  �("*type "+prog_dir$+".!help"  )
�  ș Wimp_CommandWindow%,0
��
�
�#ݤproblem(ok%,cancel%,problem$)
�,  � does error report for minor problems
�  � application indepndant
�   � sets up error data block
*  � problemblk%,flags%,choice%,result$
  � problemblk% &100
  ș Hourglass_Smash%
&  flags% = %10000
0"  � ok% � flags%= flags% � %01
:'  � cancel% � flags% = flags% � %10
D  !problemblk%=flags%
N  $(problemblk%+4)=problem$
X)  problemblk%?(4+�$(problemblk%+4))=0
bD  ș Wimp_ReportError%, problemblk%,flags%,"DiscLabel" �,choice%
l  Ȏ choice% �
v    � 0
�      result$="none"
�    � 1
�      result$="ok"
�    � 2
�      result$="cancel"
�	    
�      � 1,"Wimp Bug"
�  �
�=result$
�
���errorbox(appname$)
�  � requires FNerrblk
�  � application independant
  � result%
  �3
  ș Wimp_CommandWindow%,-1
 N  ș Wimp_ReportError%, �errblk(appname$,�,�$),%11,"DiscLabel" � ,result%:
*  � result% = 2 �
4    ș Wimp_CloseDown%
>	    �
H  �
R�
\
f#ݤerrblk(appname$,err%,report$)
p   � sets up error data block
z  � 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%
�
���swinumbers
�H  ș "OS_SWINumberFromString",,"OS_SWINumberFromString" � SWInumber%
�C  ș SWInumber%,,"OS_ReadModeVariable"   � OS_ReadModeVariable%
�=  ș SWInumber%,,"OS_ReadVarVal"         � OS_ReadVarVal%
�>  ș SWInumber%,,"Wimp_CloseDown"        � Wimp_CloseDown%
�B  ș SWInumber%,,"Wimp_CloseTemplate"    � Wimp_CloseTemplate%
@  ș SWInumber%,,"Wimp_CloseWindow"      � Wimp_CloseWindow%
B  ș SWInumber%,,"Wimp_CommandWindow"    � Wimp_CommandWindow%
?  ș SWInumber%,,"Wimp_CreateIcon"       � Wimp_CreateIcon%
$?  ș SWInumber%,,"Wimp_CreateMenu"       � Wimp_CreateMenu%
.A  ș SWInumber%,,"Wimp_CreateWindow"     � Wimp_CreateWindow%
8?  ș SWInumber%,,"Wimp_DecodeMenu"       � Wimp_DecodeMenu%
B@  ș SWInumber%,,"Wimp_ForceRedraw"      � Wimp_ForceRedraw%
LA  ș SWInumber%,,"Wimp_GetIconState"     � Wimp_GetIconState%
VC  ș SWInumber%,,"Wimp_GetPointerInfo"   � Wimp_GetPointerInfo%
`A  ș SWInumber%,,"Wimp_GetRectangle"     � Wimp_GetRectangle%
jB  ș SWInumber%,,"Wimp_GetWindowInfo"    � Wimp_GetWindowInfo%
t?  ș SWInumber%,,"Wimp_Initialise"       � Wimp_Initialise%
~A  ș SWInumber%,,"Wimp_LoadTemplate"     � Wimp_LoadTemplate%
�A  ș SWInumber%,,"Wimp_OpenTemplate"     � Wimp_OpenTemplate%
�?  ș SWInumber%,,"Wimp_OpenWindow"       � Wimp_OpenWindow%
�9  ș SWInumber%,,"Wimp_Poll"             � Wimp_Poll%
�?  ș SWInumber%,,"Wimp_ProcessKey"       � Wimp_ProcessKey%
�A  ș SWInumber%,,"Wimp_RedrawWindow"     � Wimp_RedrawWindow%
�@  ș SWInumber%,,"Wimp_ReportError"      � Wimp_ReportError%
�@  ș SWInumber%,,"Wimp_SendMessage"      � Wimp_SendMessage%
�E  ș SWInumber%,,"Wimp_SetCaretPosition" � Wimp_SetCaretPosition%
�=  ș SWInumber%,,"Wimp_SpriteOp"         � Wimp_SpriteOp%
�6  ș SWInumber%,,"Hourglass_On"    � Hourglass_On%
�7  ș SWInumber%,,"Hourglass_Off"   � Hourglass_Off%
�9  ș SWInumber%,,"Hourglass_Smash" � Hourglass_Smash%
�


��openclosedwindow(window%)
8  � opens a closed window ie not currently on screen
(  � application independant
2
  � q%
<  � q% 1000
F  q%!0=discwindow%
P   ș Wimp_GetWindowInfo%,,q%
Z  ș Wimp_OpenWindow%,,q%
d�
nA-------------------------------------------------------------
x
�"� under development below here
�
�
�
ݤslot
�  � finish%
�  � finish% 0
�= finish% - �
�
�
�� �save_config
�
  � icon%
�'  file%=�(prog_dir$ + ".Configure")
�  � icon%=15 � 17
.    �#file%, �readicon(discwindow%, icon%)
  �

  �#file%
"�
,
6� �load_config
@  � icon%, text$
J'  file%=�(prog_dir$ + ".Configure")
T  � icon%=15 � 17
^    �#file%, text$
h.    �updateicon(discwindow%, ic

00000000  0d 00 0a 22 f4 20 3e 3a  64 65 76 2e 24 2e 21 44  |...". >:dev.$.!D|
00000010  69 73 63 4c 61 62 65 6c  2e 21 72 75 6e 69 6d 61  |iscLabel.!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 44 69  |gram_name$ = "Di|
000000b0  73 63 4c 61 62 65 6c 22  0d 00 50 23 70 75 72 70  |scLabel"..P#purp|
000000c0  6f 73 65 24 20 3d 20 22  44 69 73 63 20 4c 61 62  |ose$ = "Disc Lab|
000000d0  65 6c 20 70 72 69 6e 74  65 72 22 0d 00 5a 29 61  |el printer"..Z)a|
000000e0  75 74 68 6f 72 24 20 20  3d 20 22 a9 20 4e 69 67  |uthor$  = ". Nig|
000000f0  65 6c 20 47 65 6e 74 20  28 53 68 61 72 65 77 61  |el Gent (Sharewa|
00000100  72 65 29 22 0d 00 64 22  76 65 72 73 69 6f 6e 24  |re)"..d"version$|
00000110  20 3d 20 22 31 2e 34 20  28 31 34 2d 4d 61 79 2d  | = "1.4 (14-May-|
00000120  31 39 39 30 29 22 0d 00  6e 1f 70 72 6f 67 5f 64  |1990)"..n.prog_d|
00000130  69 72 24 3d 22 3c 44 69  73 63 4c 61 62 65 6c 24  |ir$="<DiscLabel$|
00000140  44 69 72 3e 22 0d 00 78  10 f2 67 6c 6f 62 61 6c  |Dir>"..x..global|
00000150  5f 76 61 72 73 0d 00 82  0f f2 73 77 69 6e 75 6d  |_vars.....swinum|
00000160  62 65 72 73 0d 00 8c 2c  70 72 69 6e 74 65 72 24  |bers...,printer$|
00000170  20 3d 20 a4 72 65 61 64  76 61 72 28 22 44 69 73  | = .readvar("Dis|
00000180  63 4c 61 62 65 6c 24 50  72 69 6e 74 65 72 22 29  |cLabel$Printer")|
00000190  0d 00 a0 14 de 20 74 20  34 3a 20 24 74 3d 22 54  |..... t 4: $t="T|
000001a0  41 53 4b 22 0d 00 aa 3b  c8 99 20 57 69 6d 70 5f  |ASK"...;.. Wimp_|
000001b0  49 6e 69 74 69 61 6c 69  73 65 25 2c 32 30 30 2c  |Initialise%,200,|
000001c0  21 74 2c 70 72 6f 67 72  61 6d 5f 6e 61 6d 65 24  |!t,program_name$|
000001d0  20 b8 20 2c 20 74 68 69  73 5f 74 61 73 6b 25 0d  | . , this_task%.|
000001e0  00 b4 14 c8 99 20 48 6f  75 72 67 6c 61 73 73 5f  |..... Hourglass_|
000001f0  4f 6e 25 0d 00 be 0e f2  74 65 6d 70 6c 61 74 65  |On%.....template|
00000200  73 0d 00 c8 10 f2 6c 6f  61 64 5f 63 6f 6e 66 69  |s.....load_confi|
00000210  67 0d 00 d2 26 f2 75 70  64 61 74 65 69 63 6f 6e  |g...&.updateicon|
00000220  28 69 6e 66 6f 25 2c 31  2c 70 72 6f 67 72 61 6d  |(info%,1,program|
00000230  5f 6e 61 6d 65 24 29 0d  00 dc 21 f2 75 70 64 61  |_name$)...!.upda|
00000240  74 65 69 63 6f 6e 28 69  6e 66 6f 25 2c 32 2c 70  |teicon(info%,2,p|
00000250  75 72 70 6f 73 65 24 29  0d 00 e6 20 f2 75 70 64  |urpose$)... .upd|
00000260  61 74 65 69 63 6f 6e 28  69 6e 66 6f 25 2c 33 2c  |ateicon(info%,3,|
00000270  61 75 74 68 6f 72 24 29  0d 00 f0 21 f2 75 70 64  |author$)...!.upd|
00000280  61 74 65 69 63 6f 6e 28  69 6e 66 6f 25 2c 34 2c  |ateicon(info%,4,|
00000290  76 65 72 73 69 6f 6e 24  29 0d 00 fa 10 f2 64 65  |version$).....de|
000002a0  66 69 6e 65 6d 65 6e 75  73 0d 01 04 15 f2 69 6e  |finemenus.....in|
000002b0  73 74 61 6c 5f 44 69 73  63 4c 61 62 65 6c 0d 01  |stal_DiscLabel..|
000002c0  0e 15 c8 99 20 48 6f 75  72 67 6c 61 73 73 5f 4f  |.... Hourglass_O|
000002d0  66 66 25 0d 01 18 04 0d  01 22 20 ee 20 85 20 f2  |ff%......" . . .|
000002e0  65 72 72 6f 72 62 6f 78  28 70 72 6f 67 72 61 6d  |errorbox(program|
000002f0  5f 6e 61 6d 65 24 29 0d  01 2c 0e f4 20 62 69 74  |_name$)..,.. bit|
00000300  73 20 31 31 31 0d 01 36  18 f4 20 20 20 20 20 20  |s 111..6..      |
00000310  32 31 30 39 38 37 36 35  34 33 32 31 30 0d 01 40  |2109876543210..@|
00000320  1a 6d 61 73 6b 25 20 3d  20 25 31 31 30 30 30 30  |.mask% = %110000|
00000330  30 31 31 30 30 30 31 0d  01 4a 0d 71 75 69 74 25  |0110001..J.quit%|
00000340  20 3d 20 a3 0d 01 54 05  f5 0d 01 5e 29 20 20 c8  | = ...T....^)  .|
00000350  99 20 57 69 6d 70 5f 50  6f 6c 6c 25 2c 6d 61 73  |. Wimp_Poll%,mas|
00000360  6b 25 2c 71 25 20 b8 20  61 63 74 69 6f 6e 25 2c  |k%,q% . action%,|
00000370  71 25 0d 01 68 12 20 20  c8 8e 20 61 63 74 69 6f  |q%..h.  .. actio|
00000380  6e 25 20 ca 0d 01 72 25  20 20 20 20 c9 20 20 31  |n% ...r%    .  1|
00000390  20 3a f4 20 50 52 4f 43  72 65 64 72 61 77 5f 77  | :. PROCredraw_w|
000003a0  69 6e 64 6f 77 28 71 25  29 0d 01 7c 1f 20 20 20  |indow(q%)..|.   |
000003b0  20 c9 20 20 32 20 3a 20  f2 6f 70 65 6e 5f 77 69  | .  2 : .open_wi|
000003c0  6e 64 6f 77 28 71 25 29  0d 01 86 20 20 20 20 20  |ndow(q%)...     |
000003d0  c9 20 20 33 20 3a 20 f2  63 6c 6f 73 65 5f 77 69  |.  3 : .close_wi|
000003e0  6e 64 6f 77 28 71 25 29  0d 01 90 1f 20 20 20 20  |ndow(q%)....    |
000003f0  c9 20 20 36 20 3a 20 f2  6d 6f 75 73 65 5f 63 6c  |.  6 : .mouse_cl|
00000400  69 63 6b 28 71 25 29 0d  01 9a 1f 20 20 20 20 c9  |ick(q%)....    .|
00000410  20 20 38 20 3a 20 f2 6b  65 79 5f 70 72 65 73 73  |  8 : .key_press|
00000420  65 64 28 71 25 29 0d 01  a4 1e 20 20 20 20 c9 20  |ed(q%)....    . |
00000430  20 39 20 3a 20 f2 64 65  63 6f 64 65 6d 65 6e 75  | 9 : .decodemenu|
00000440  28 71 25 29 0d 01 ae 1e  20 20 20 20 c9 20 31 37  |(q%)....    . 17|
00000450  2c 31 38 20 3a 20 f2 6d  65 73 73 61 67 65 28 71  |,18 : .message(q|
00000460  25 29 0d 01 b8 07 20 20  cb 0d 01 c2 0b fd 20 71  |%)....  ...... q|
00000470  75 69 74 25 0d 01 cc 05  e0 0d 01 d6 04 0d 01 e0  |uit%............|
00000480  04 0d 01 ea 16 dd f2 69  6e 73 74 61 6c 5f 44 69  |.......instal_Di|
00000490  73 63 4c 61 62 65 6c 0d  01 f4 3e 20 20 ea 20 73  |scLabel...>  . s|
000004a0  77 69 64 74 68 25 2c 73  68 65 69 67 68 74 25 2c  |width%,sheight%,|
000004b0  73 6d 6f 64 65 25 2c 70  78 25 2c 70 79 25 2c 73  |smode%,px%,py%,s|
000004c0  70 72 69 74 65 25 2c 74  65 78 74 24 2c 20 73 70  |prite%,text$, sp|
000004d0  72 69 74 65 24 0d 01 fe  1c 20 20 73 70 72 69 74  |rite$....  sprit|
000004e0  65 24 20 3d 20 22 21 44  69 73 63 4c 61 62 65 6c  |e$ = "!DiscLabel|
000004f0  22 0d 02 08 1b 20 20 74  65 78 74 24 20 3d 20 70  |"....  text$ = p|
00000500  72 6f 67 72 61 6d 5f 6e  61 6d 65 24 0d 02 12 2d  |rogram_name$...-|
00000510  20 20 de 20 73 70 72 69  74 65 25 20 28 a9 28 73  |  . sprite% (.(s|
00000520  70 72 69 74 65 24 29 2b  31 29 2c 74 65 78 74 25  |prite$)+1),text%|
00000530  20 a9 28 74 65 78 74 24  29 0d 02 1c 2a 20 20 f4  | .(text$)...*  .|
00000540  20 76 61 6c 69 64 61 74  69 6f 6e 20 73 74 72 69  | validation stri|
00000550  6e 67 20 74 6f 20 64 65  66 69 6e 65 20 73 70 72  |ng to define spr|
00000560  69 74 65 0d 02 26 1a 20  20 24 73 70 72 69 74 65  |ite..&.  $sprite|
00000570  25 3d 22 53 22 2b 73 70  72 69 74 65 24 0d 02 30  |%="S"+sprite$..0|
00000580  12 20 20 24 74 65 78 74  25 3d 74 65 78 74 24 0d  |.  $text%=text$.|
00000590  02 3a 41 20 20 c8 99 20  57 69 6d 70 5f 53 70 72  |.:A  .. Wimp_Spr|
000005a0  69 74 65 4f 70 25 2c 34  30 2c 2c 73 70 72 69 74  |iteOp%,40,,sprit|
000005b0  65 24 20 b8 20 2c 2c 2c  73 77 69 64 74 68 25 2c  |e$ . ,,,swidth%,|
000005c0  73 68 65 69 67 68 74 25  2c 2c 73 6d 6f 64 65 25  |sheight%,,smode%|
000005d0  0d 02 44 2e 20 20 c8 99  20 4f 53 5f 52 65 61 64  |..D.  .. OS_Read|
000005e0  4d 6f 64 65 56 61 72 69  61 62 6c 65 25 2c 73 6d  |ModeVariable%,sm|
000005f0  6f 64 65 25 2c 34 20 b8  20 2c 2c 70 78 25 0d 02  |ode%,4 . ,,px%..|
00000600  4e 1a 20 20 73 77 69 64  74 68 25 3d 73 77 69 64  |N.  swidth%=swid|
00000610  74 68 25 3c 3c 70 78 25  0d 02 58 2e 20 20 c8 99  |th%<<px%..X.  ..|
00000620  20 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  | OS_ReadModeVari|
00000630  61 62 6c 65 25 2c 73 6d  6f 64 65 25 2c 35 20 b8  |able%,smode%,5 .|
00000640  20 2c 2c 70 79 25 0d 02  62 1c 20 20 73 68 65 69  | ,,py%..b.  shei|
00000650  67 68 74 25 3d 73 68 65  69 67 68 74 25 3c 3c 70  |ght%=sheight%<<p|
00000660  79 25 0d 02 6c 33 20 20  e7 20 a9 28 74 65 78 74  |y%..l3  . .(text|
00000670  24 29 2a 31 36 20 3e 20  73 77 69 64 74 68 25 20  |$)*16 > swidth% |
00000680  8c 20 73 77 69 64 74 68  25 3d a9 28 74 65 78 74  |. swidth%=.(text|
00000690  24 29 2a 31 36 0d 02 76  1b 20 20 21 71 25 3d 2d  |$)*16..v.  !q%=-|
000006a0  31 20 3a f4 20 61 70 70  6c 69 63 61 74 69 6f 6e  |1 :. application|
000006b0  0d 02 80 0c 20 20 71 25  21 34 3d 30 0d 02 8a 0e  |....  q%!4=0....|
000006c0  20 20 71 25 21 38 3d 2d  31 36 0d 02 94 18 20 20  |  q%!8=-16....  |
000006d0  71 25 21 31 32 3d 71 25  21 34 2b 73 77 69 64 74  |q%!12=q%!4+swidt|
000006e0  68 25 0d 02 9e 17 20 20  71 25 21 31 36 3d 32 30  |h%....  q%!16=20|
000006f0  2b 73 68 65 69 67 68 74  25 0d 02 a8 15 20 20 71  |+sheight%....  q|
00000700  25 21 32 30 3d 26 31 37  30 30 33 31 30 42 0d 02  |%!20=&1700310B..|
00000710  b2 11 20 20 71 25 21 32  34 3d 74 65 78 74 25 0d  |..  q%!24=text%.|
00000720  02 bc 13 20 20 71 25 21  32 38 3d 73 70 72 69 74  |...  q%!28=sprit|
00000730  65 25 0d 02 c6 14 20 20  71 25 21 33 32 3d a9 28  |e%....  q%!32=.(|
00000740  74 65 78 74 24 29 0d 02  d0 23 20 20 c8 99 20 57  |text$)...#  .. W|
00000750  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 25 2c  |imp_CreateIcon%,|
00000760  2c 71 25 20 b8 20 21 71  25 0d 02 da 05 e1 0d 02  |,q% . !q%.......|
00000770  e4 04 0d 02 ee 04 0d 02  f8 05 20 0d 03 02 04 0d  |.......... .....|
00000780  03 0c 3b f4 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..;.------------|
00000790  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000007a0  2d 2d 2d 2d 2d 2d 41 70  70 6c 69 63 61 74 69 6f  |------Applicatio|
000007b0  6e 20 73 70 65 63 69 66  69 63 0d 03 16 04 0d 03  |n specific......|
000007c0  20 11 dd f2 67 6c 6f 62  61 6c 5f 76 61 72 73 0d  | ...global_vars.|
000007d0  03 2a 2d 20 20 f4 20 61  70 70 6c 69 63 61 74 69  |.*-  . applicati|
000007e0  6f 6e 20 73 70 65 63 69  66 69 63 20 67 6c 6f 62  |on specific glob|
000007f0  61 6c 20 76 61 72 69 61  62 6c 65 73 0d 03 34 14  |al variables..4.|
00000800  20 20 64 69 73 63 6e 61  6d 65 24 20 3d 20 22 22  |  discname$ = ""|
00000810  0d 03 3e 14 20 20 66 69  6c 65 24 20 20 20 20 20  |..>.  file$     |
00000820  3d 20 22 22 0d 03 48 13  20 20 6c 69 6e 65 25 20  |= ""..H.  line% |
00000830  20 20 20 20 3d 20 31 0d  03 52 14 20 20 6c 69 6e  |    = 1..R.  lin|
00000840  65 24 20 20 20 20 20 3d  20 22 22 0d 03 5c 38 20  |e$     = ""..\8 |
00000850  20 de 20 69 63 6f 6e 5f  62 6c 6f 63 6b 25 20 32  | . icon_block% 2|
00000860  35 35 20 20 20 20 3a f4  20 73 70 61 63 65 20 66  |55    :. space f|
00000870  6f 72 20 69 6e 64 69 72  65 63 74 65 64 20 69 63  |or indirected ic|
00000880  6f 6e 73 0d 03 66 2a 20  20 f4 20 63 6f 64 65 20  |ons..f*  . code |
00000890  74 6f 20 74 65 73 74 20  69 66 20 70 72 69 6e 74  |to test if print|
000008a0  65 72 20 69 73 20 6f 6e  20 6c 69 6e 65 0d 03 70  |er is on line..p|
000008b0  12 20 20 de 20 63 6f 64  65 25 20 26 31 30 30 0d  |.  . code% &100.|
000008c0  03 7a 11 20 20 de 20 72  65 73 75 6c 74 25 20 31  |.z.  . result% 1|
000008d0  0d 03 84 15 20 20 e3 20  6f 70 74 3d 30 20 b8 20  |....  . opt=0 . |
000008e0  32 20 88 20 32 0d 03 8e  10 20 20 20 20 50 25 3d  |2 . 2....    P%=|
000008f0  63 6f 64 65 25 0d 03 98  10 20 20 20 20 5b 4f 50  |code%....    [OP|
00000900  54 20 6f 70 74 0d 03 a2  13 20 20 20 20 2e 70 72  |T opt....    .pr|
00000910  69 6e 74 65 72 5f 6f 6e  0d 03 ac 18 20 20 20 20  |inter_on....    |
00000920  53 57 49 20 22 4f 53 5f  45 6e 74 65 72 4f 53 22  |SWI "OS_EnterOS"|
00000930  0d 03 b6 12 20 20 20 20  54 45 51 50 20 50 43 2c  |....    TEQP PC,|
00000940  23 33 0d 03 c0 18 20 20  20 20 4d 4f 56 20 52 30  |#3....    MOV R0|
00000950  2c 23 26 33 32 30 30 30  30 30 0d 03 ca 16 20 20  |,#&3200000....  |
00000960  20 20 41 44 44 20 52 30  2c 52 30 2c 23 26 31 30  |  ADD R0,R0,#&10|
00000970  0d 03 d4 14 20 20 20 20  4c 44 52 42 20 52 31 2c  |....    LDRB R1,|
00000980  5b 52 30 5d 0d 03 de 12  20 20 20 20 80 20 52 31  |[R0]....    . R1|
00000990  2c 52 31 2c 23 31 0d 03  e8 16 20 20 20 20 41 44  |,R1,#1....    AD|
000009a0  52 20 52 30 2c 72 65 73  75 6c 74 25 0d 03 f2 14  |R R0,result%....|
000009b0  20 20 20 20 53 54 52 42  20 52 31 2c 5b 52 30 5d  |    STRB R1,[R0]|
000009c0  0d 03 fc 12 20 20 20 20  54 45 51 50 20 50 43 2c  |....    TEQP PC,|
000009d0  23 30 0d 04 06 15 20 20  20 20 84 52 4e 45 20 52  |#0....    .RNE R|
000009e0  30 2c 52 30 2c 52 30 0d  04 10 12 20 20 20 20 4d  |0,R0,R0....    M|
000009f0  4f 56 20 50 43 2c 52 31  34 0d 04 1a 09 20 20 20  |OV PC,R14....   |
00000a00  20 5d 0d 04 24 0b 20 20  ed 20 6f 70 74 0d 04 2e  | ]..$.  . opt...|
00000a10  05 e1 0d 04 38 04 0d 04  42 13 dd f2 70 72 69 6e  |....8...B...prin|
00000a20  74 65 72 5f 73 65 74 75  70 0d 04 4c 32 20 20 f4  |ter_setup..L2  .|
00000a30  20 72 65 73 65 74 20 70  72 69 6e 74 65 72 20 61  | reset printer a|
00000a40  6e 64 20 73 65 74 75 70  20 74 68 65 20 6f 70 74  |nd setup the opt|
00000a50  69 6f 6e 73 20 63 68 6f  73 65 6e 0d 04 56 0d 20  |ions chosen..V. |
00000a60  20 ea 20 6c 6f 6f 70 25  0d 04 60 24 20 20 76 6f  | . loop%..`$  vo|
00000a70  69 64 25 20 3d 20 a4 73  65 6e 64 5f 70 72 69 6e  |id% = .send_prin|
00000a80  74 65 72 28 22 72 65 73  65 74 22 29 0d 04 6a 4d  |ter("reset")..jM|
00000a90  20 20 e3 20 6c 6f 6f 70  25 20 3d 20 4f 70 74 69  |  . loop% = Opti|
00000aa0  6f 6e 73 6d 65 6e 75 25  2b 32 38 20 b8 20 4f 70  |onsmenu%+28 . Op|
00000ab0  74 69 6f 6e 73 6d 65 6e  75 25 2b 32 38 2b 28 28  |tionsmenu%+28+((|
00000ac0  73 75 62 6d 65 6e 75 69  74 65 6d 73 25 2d 31 29  |submenuitems%-1)|
00000ad0  2a 32 34 29 20 88 20 32  34 0d 04 74 20 20 20 20  |*24) . 24..t    |
00000ae0  20 e7 20 28 21 6c 6f 6f  70 25 20 80 20 26 30 31  | . (!loop% . &01|
00000af0  29 20 3d 20 26 30 31 20  8c 0d 04 7e 2c 20 20 20  |) = &01 ...~,   |
00000b00  20 20 20 76 6f 69 64 25  20 3d 20 a4 73 65 6e 64  |   void% = .send|
00000b10  5f 70 72 69 6e 74 65 72  28 24 28 6c 6f 6f 70 25  |_printer($(loop%|
00000b20  2b 31 32 29 29 0d 04 88  09 20 20 20 20 cc 0d 04  |+12))....    ...|
00000b30  92 16 20 20 20 20 20 20  f4 20 64 6f 20 6e 6f 74  |..      . do not|
00000b40  68 69 6e 67 0d 04 9c 09  20 20 20 20 cd 0d 04 a6  |hing....    ....|
00000b50  33 f4 64 65 62 75 67 24  20 3d 20 46 4e 70 72 6f  |3.debug$ = FNpro|
00000b60  62 6c 65 6d 28 54 52 55  45 2c 46 41 4c 53 45 2c  |blem(TRUE,FALSE,|
00000b70  22 70 72 69 6e 74 65 72  5f 73 65 74 75 70 22 29  |"printer_setup")|
00000b80  0d 04 b0 07 20 20 ed 0d  04 ba 05 e1 0d 04 c4 04  |....  ..........|
00000b90  0d 04 ce 10 dd f2 63 6c  65 61 72 73 74 79 6c 65  |......clearstyle|
00000ba0  0d 04 d8 21 20 20 f4 20  63 6c 65 61 72 20 73 65  |...!  . clear se|
00000bb0  6c 65 63 74 65 64 20 74  79 70 65 20 73 74 79 6c  |lected type styl|
00000bc0  65 0d 04 e2 1c 20 20 f4  20 61 70 70 6c 69 63 61  |e....  . applica|
00000bd0  74 69 6f 6e 20 73 70 65  63 69 66 69 63 0d 04 ec  |tion specific...|
00000be0  1d 20 20 f2 6e 6f 74 69  63 6b 28 4f 70 74 69 6f  |.  .notick(Optio|
00000bf0  6e 73 6d 65 6e 75 25 2c  34 29 0d 04 f6 1d 20 20  |nsmenu%,4)....  |
00000c00  f2 6e 6f 74 69 63 6b 28  4f 70 74 69 6f 6e 73 6d  |.notick(Optionsm|
00000c10  65 6e 75 25 2c 35 29 0d  05 00 1d 20 20 f2 6e 6f  |enu%,5)....  .no|
00000c20  74 69 63 6b 28 4f 70 74  69 6f 6e 73 6d 65 6e 75  |tick(Optionsmenu|
00000c30  25 2c 36 29 0d 05 0a 1d  20 20 f2 6e 6f 74 69 63  |%,6)....  .notic|
00000c40  6b 28 4f 70 74 69 6f 6e  73 6d 65 6e 75 25 2c 37  |k(Optionsmenu%,7|
00000c50  29 0d 05 14 1d 20 20 f2  6e 6f 74 69 63 6b 28 4f  |)....  .notick(O|
00000c60  70 74 69 6f 6e 73 6d 65  6e 75 25 2c 38 29 0d 05  |ptionsmenu%,8)..|
00000c70  1e 05 e1 0d 05 28 04 0d  05 32 04 0d 05 3c 11 dd  |.....(...2...<..|
00000c80  f2 6f 70 74 69 6f 6e 73  6d 65 6e 75 0d 05 46 1c  |.optionsmenu..F.|
00000c90  20 20 f4 20 41 70 70 6c  69 63 61 74 69 6f 6e 20  |  . Application |
00000ca0  73 70 65 63 69 66 69 63  0d 05 50 0a 20 20 ea 20  |specific..P.  . |
00000cb0  6d 25 0d 05 5a 2b 20 20  6d 25 20 3d 20 a4 6d 65  |m%..Z+  m% = .me|
00000cc0  6e 75 28 4f 70 74 69 6f  6e 73 6d 65 6e 75 25 2c  |nu(Optionsmenu%,|
00000cd0  22 4f 70 74 69 6f 6e 73  22 2c 31 31 29 0d 05 64  |"Options",11)..d|
00000ce0  1e 20 20 e7 20 70 72 69  6e 74 65 72 24 3d 22 53  |.  . printer$="S|
00000cf0  74 61 72 2d 4c 43 31 30  22 20 8c 0d 05 6e 3c 20  |tar-LC10" ...n< |
00000d00  20 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 69 74 65  |   m% = .menuite|
00000d10  6d 28 6d 25 2c 22 44 72  61 66 74 22 2c 20 20 20  |m(m%,"Draft",   |
00000d20  20 20 20 20 20 74 69 63  6b 25 2c 2d 31 2c 20 6e  |     tick%,-1, n|
00000d30  6f 72 6d 61 6c 25 29 0d  05 78 3c 20 20 20 20 6d  |ormal%)..x<    m|
00000d40  25 20 3d 20 a4 6d 65 6e  75 69 74 65 6d 28 6d 25  |% = .menuitem(m%|
00000d50  2c 22 43 6f 75 72 69 65  72 22 2c 20 20 20 20 20  |,"Courier",     |
00000d60  70 6c 61 69 6e 25 2c 2d  31 2c 20 6e 6f 72 6d 61  |plain%,-1, norma|
00000d70  6c 25 29 0d 05 82 3c 20  20 20 20 6d 25 20 3d 20  |l%)...<    m% = |
00000d80  a4 6d 65 6e 75 69 74 65  6d 28 6d 25 2c 22 4f 72  |.menuitem(m%,"Or|
00000d90  61 74 6f 72 22 2c 20 20  20 20 20 20 70 6c 61 69  |ator",      plai|
00000da0  6e 25 2c 2d 31 2c 20 6e  6f 72 6d 61 6c 25 29 0d  |n%,-1, normal%).|
00000db0  05 8c 3c 20 20 20 20 6d  25 20 3d 20 a4 6d 65 6e  |..<    m% = .men|
00000dc0  75 69 74 65 6d 28 6d 25  2c 22 4f 72 61 74 6f 72  |uitem(m%,"Orator|
00000dd0  20 53 43 22 2c 20 20 20  70 6c 61 69 6e 25 2c 2d  | SC",   plain%,-|
00000de0  31 2c 20 6e 6f 72 6d 61  6c 25 29 0d 05 96 3c 20  |1, normal%)...< |
00000df0  20 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 69 74 65  |   m% = .menuite|
00000e00  6d 28 6d 25 2c 22 53 61  6e 73 20 53 65 72 69 66  |m(m%,"Sans Serif|
00000e10  22 2c 20 20 20 20 64 6f  74 25 2c 2d 31 2c 20 6e  |",    dot%,-1, n|
00000e20  6f 72 6d 61 6c 25 29 0d  05 a0 07 20 20 cc 0d 05  |ormal%)....  ...|
00000e30  aa 14 20 20 20 20 f4 20  64 6f 20 6e 6f 74 68 69  |..    . do nothi|
00000e40  6e 67 0d 05 b4 07 20 20  cd 0d 05 be 3a 20 20 6d  |ng....  ....:  m|
00000e50  25 20 3d 20 a4 6d 65 6e  75 69 74 65 6d 28 6d 25  |% = .menuitem(m%|
00000e60  2c 22 49 74 61 6c 69 63  22 2c 20 20 20 20 20 20  |,"Italic",      |
00000e70  70 6c 61 69 6e 25 2c 2d  31 2c 20 6e 6f 72 6d 61  |plain%,-1, norma|
00000e80  6c 25 29 0d 05 c8 3a 20  20 6d 25 20 3d 20 a4 6d  |l%)...:  m% = .m|
00000e90  65 6e 75 69 74 65 6d 28  6d 25 2c 22 44 6f 75 62  |enuitem(m%,"Doub|
00000ea0  6c 65 20 53 74 72 22 2c  20 20 70 6c 61 69 6e 25  |le Str",  plain%|
00000eb0  2c 2d 31 2c 20 6e 6f 72  6d 61 6c 25 29 0d 05 d2  |,-1, normal%)...|
00000ec0  39 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 69 74 65  |9  m% = .menuite|
00000ed0  6d 28 6d 25 2c 22 45 6d  70 68 61 73 69 7a 65 64  |m(m%,"Emphasized|
00000ee0  22 2c 20 20 6c 61 73 74  25 2c 2d 31 2c 20 6e 6f  |",  last%,-1, no|
00000ef0  72 6d 61 6c 25 29 0d 05  dc 05 e1 0d 05 e6 04 0d  |rmal%)..........|
00000f00  05 f0 11 dd f2 70 72 69  6e 74 5f 6c 61 62 65 6c  |.....print_label|
00000f10  0d 05 fa 18 20 20 f4 20  70 72 69 6e 74 73 20 74  |....  . prints t|
00000f20  68 65 20 6c 61 62 65 6c  0d 06 04 11 20 20 ea 20  |he label....  . |
00000f30  72 65 73 70 6f 6e 73 65  24 0d 06 0e 16 20 20 72  |response$....  r|
00000f40  65 73 70 6f 6e 73 65 24  20 3d 20 22 6f 6b 22 0d  |esponse$ = "ok".|
00000f50  06 18 2b 20 20 c8 95 20  28 ac 20 a4 70 72 69 6e  |..+  .. (. .prin|
00000f60  74 65 72 5f 6f 6e 20 80  20 72 65 73 70 6f 6e 73  |ter_on . respons|
00000f70  65 24 20 3d 20 22 6f 6b  22 29 0d 06 22 34 20 20  |e$ = "ok").."4  |
00000f80  20 20 72 65 73 70 6f 6e  73 65 24 20 3d 20 a4 70  |  response$ = .p|
00000f90  72 6f 62 6c 65 6d 28 b9  2c b9 2c 22 50 72 69 6e  |roblem(.,.,"Prin|
00000fa0  74 65 72 20 6f 66 66 20  6c 69 6e 65 22 29 0d 06  |ter off line")..|
00000fb0  2c 07 20 20 ce 0d 06 36  1a 20 20 e7 20 72 65 73  |,.  ...6.  . res|
00000fc0  70 6f 6e 73 65 24 20 3d  20 22 6f 6b 22 20 8c 0d  |ponse$ = "ok" ..|
00000fd0  06 40 16 20 20 20 20 f2  70 72 69 6e 74 65 72 5f  |.@.    .printer_|
00000fe0  73 65 74 75 70 0d 06 4a  31 20 20 20 20 f2 70 72  |setup..J1    .pr|
00000ff0  69 6e 74 5f 6c 69 6e 65  28 22 2d 2d 2d 2d 2d 2d  |int_line("------|
00001000  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001010  2d 2d 2d 2d 22 29 0d 06  54 29 20 20 20 20 76 6f  |----")..T)    vo|
00001020  69 64 25 20 3d 20 a4 73  65 6e 64 5f 70 72 69 6e  |id% = .send_prin|
00001030  74 65 72 28 22 45 78 70  61 6e 64 65 64 22 29 0d  |ter("Expanded").|
00001040  06 5e 2b 20 20 20 20 76  6f 69 64 25 20 3d 20 a4  |.^+    void% = .|
00001050  73 65 6e 64 5f 70 72 69  6e 74 65 72 28 22 44 6f  |send_printer("Do|
00001060  75 62 6c 65 20 53 74 72  22 29 0d 06 68 2e 20 20  |uble Str")..h.  |
00001070  20 20 f2 70 72 69 6e 74  5f 6c 69 6e 65 28 a4 72  |  .print_line(.r|
00001080  65 61 64 69 63 6f 6e 28  64 69 73 63 77 69 6e 64  |eadicon(discwind|
00001090  6f 77 25 2c 31 34 29 29  0d 06 72 32 20 20 20 20  |ow%,14))..r2    |
000010a0  76 6f 69 64 25 20 3d 20  a4 73 65 6e 64 5f 70 72  |void% = .send_pr|
000010b0  69 6e 74 65 72 28 22 44  6f 75 62 6c 65 5f 53 74  |inter("Double_St|
000010c0  72 69 6b 65 5f 6f 66 66  22 29 0d 06 7c 2d 20 20  |rike_off")..|-  |
000010d0  20 20 76 6f 69 64 25 20  3d 20 a4 73 65 6e 64 5f  |  void% = .send_|
000010e0  70 72 69 6e 74 65 72 28  22 45 78 70 61 6e 64 65  |printer("Expande|
000010f0  64 5f 6f 66 66 22 29 0d  06 86 31 20 20 20 20 f2  |d_off")...1    .|
00001100  70 72 69 6e 74 5f 6c 69  6e 65 28 22 2d 2d 2d 2d  |print_line("----|
00001110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001120  2d 2d 2d 2d 2d 2d 22 29  0d 06 90 16 20 20 20 20  |------")....    |
00001130  e3 20 69 63 6f 6e 25 3d  35 20 b8 20 31 33 0d 06  |. icon%=5 . 13..|
00001140  9a 31 20 20 20 20 f2 70  72 69 6e 74 5f 6c 69 6e  |.1    .print_lin|
00001150  65 28 a4 72 65 61 64 69  63 6f 6e 28 64 69 73 63  |e(.readicon(disc|
00001160  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 29 0d  |window%,icon%)).|
00001170  06 a4 09 20 20 20 20 ed  0d 06 ae 2a 20 20 20 20  |...    ....*    |
00001180  76 6f 69 64 25 20 3d 20  a4 73 65 6e 64 5f 70 72  |void% = .send_pr|
00001190  69 6e 74 65 72 28 22 53  75 62 73 63 72 69 70 74  |inter("Subscript|
000011a0  22 29 0d 06 b8 2e 20 20  20 20 f2 70 72 69 6e 74  |")....    .print|
000011b0  5f 6c 69 6e 65 28 a4 72  65 61 64 69 63 6f 6e 28  |_line(.readicon(|
000011c0  64 69 73 63 77 69 6e 64  6f 77 25 2c 31 34 29 29  |discwindow%,14))|
000011d0  0d 06 c2 2e 20 20 20 20  76 6f 69 64 25 20 3d 20  |....    void% = |
000011e0  a4 73 65 6e 64 5f 70 72  69 6e 74 65 72 28 22 53  |.send_printer("S|
000011f0  75 62 73 63 72 69 70 74  5f 6f 66 66 22 29 0d 06  |ubscript_off")..|
00001200  cc 2e 20 20 20 20 f2 70  72 69 6e 74 5f 6c 69 6e  |..    .print_lin|
00001210  65 28 a4 72 65 61 64 69  63 6f 6e 28 64 69 73 63  |e(.readicon(disc|
00001220  77 69 6e 64 6f 77 25 2c  31 35 29 29 0d 06 d6 2e  |window%,15))....|
00001230  20 20 20 20 f2 70 72 69  6e 74 5f 6c 69 6e 65 28  |    .print_line(|
00001240  a4 72 65 61 64 69 63 6f  6e 28 64 69 73 63 77 69  |.readicon(discwi|
00001250  6e 64 6f 77 25 2c 31 36  29 29 0d 06 e0 2e 20 20  |ndow%,16))....  |
00001260  20 20 f2 70 72 69 6e 74  5f 6c 69 6e 65 28 a4 72  |  .print_line(.r|
00001270  65 61 64 69 63 6f 6e 28  64 69 73 63 77 69 6e 64  |eadicon(discwind|
00001280  6f 77 25 2c 31 37 29 29  0d 06 ea 07 20 20 cc 0d  |ow%,17))....  ..|
00001290  06 f4 14 20 20 20 20 f4  20 64 6f 20 6e 6f 74 68  |...    . do noth|
000012a0  69 6e 67 0d 06 fe 07 20  20 cd 0d 07 08 05 e1 0d  |ing....  .......|
000012b0  07 12 04 0d 07 1c 10 dd  f2 63 6c 65 61 72 69 63  |.........clearic|
000012c0  6f 6e 73 0d 07 26 37 20  20 f4 20 63 6c 65 61 72  |ons..&7  . clear|
000012d0  73 20 61 6c 6c 20 69 63  6f 6e 73 20 69 6e 20 64  |s all icons in d|
000012e0  69 73 63 6c 61 62 65 6c  20 61 6e 64 20 72 65 73  |isclabel and res|
000012f0  65 74 20 67 6c 6f 62 61  6c 73 0d 07 30 14 20 20  |et globals..0.  |
00001300  e3 20 69 63 6f 6e 25 3d  34 20 b8 20 31 34 0d 07  |. icon%=4 . 14..|
00001310  3a 29 20 20 20 20 f2 75  70 64 61 74 65 69 63 6f  |:)    .updateico|
00001320  6e 28 64 69 73 63 77 69  6e 64 6f 77 25 2c 69 63  |n(discwindow%,ic|
00001330  6f 6e 25 2c 22 22 29 0d  07 44 07 20 20 ed 0d 07  |on%,"")..D.  ...|
00001340  4e 33 20 20 c8 99 20 57  69 6d 70 5f 46 6f 72 63  |N3  .. Wimp_Forc|
00001350  65 52 65 64 72 61 77 25  2c 64 69 73 63 77 69 6e  |eRedraw%,discwin|
00001360  64 6f 77 25 2c 30 2c 2d  37 37 36 2c 35 35 30 2c  |dow%,0,-776,550,|
00001370  30 0d 07 58 12 20 20 f2  67 6c 6f 62 61 6c 5f 76  |0..X.  .global_v|
00001380  61 72 73 0d 07 62 05 e1  0d 07 6c 04 0d 07 76 3e  |ars..b....l...v>|
00001390  f4 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.---------------|
000013a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000013b0  2d 2d 41 70 70 6c 69 63  61 74 69 6f 6e 20 6d 6f  |--Application mo|
000013c0  64 69 66 69 65 64 20 4c  49 42 0d 07 80 04 0d 07  |dified LIB......|
000013d0  8a 11 dd f2 6d 65 73 73  61 67 65 28 71 25 29 0d  |....message(q%).|
000013e0  07 94 23 20 20 f4 20 64  65 61 6c 73 20 77 69 74  |..#  . deals wit|
000013f0  68 20 6d 65 73 73 61 67  65 73 20 66 72 6f 6d 20  |h messages from |
00001400  4f 53 0d 07 9e 1e 20 20  f4 20 61 70 70 6c 69 63  |OS....  . applic|
00001410  61 74 69 6f 6e 20 6d 6f  64 69 66 69 61 62 6c 65  |ation modifiable|
00001420  0d 07 a8 1f 20 20 ea 20  73 69 7a 65 25 2c 20 66  |....  . size%, f|
00001430  69 6c 65 74 79 70 65 25  2c 20 66 69 6c 65 24 0d  |iletype%, file$.|
00001440  07 b2 16 20 20 c8 99 20  48 6f 75 72 67 6c 61 73  |...  .. Hourglas|
00001450  73 5f 4f 6e 25 0d 07 bc  17 20 20 4d 65 73 73 61  |s_On%....  Messa|
00001460  67 65 5f 51 75 69 74 25  20 3d 20 30 0d 07 c6 1b  |ge_Quit% = 0....|
00001470  20 20 4d 65 73 73 61 67  65 5f 44 61 74 61 53 61  |  Message_DataSa|
00001480  76 65 25 20 3d 20 31 0d  07 d0 1e 20 20 4d 65 73  |ve% = 1....  Mes|
00001490  73 61 67 65 5f 44 61 74  61 53 61 76 65 41 63 6b  |sage_DataSaveAck|
000014a0  25 20 3d 20 32 0d 07 da  1b 20 20 4d 65 73 73 61  |% = 2....  Messa|
000014b0  67 65 5f 44 61 74 61 4c  6f 61 64 25 20 3d 20 33  |ge_DataLoad% = 3|
000014c0  0d 07 e4 1e 20 20 4d 65  73 73 61 67 65 5f 44 61  |....  Message_Da|
000014d0  74 61 4c 6f 61 64 41 63  6b 25 20 3d 20 34 0d 07  |taLoadAck% = 4..|
000014e0  ee 26 20 20 4d 65 73 73  61 67 65 5f 54 61 73 6b  |.&  Message_Task|
000014f0  49 6e 69 74 69 61 6c 69  73 65 25 20 3d 20 26 34  |Initialise% = &4|
00001500  30 30 43 32 0d 07 f8 10  20 20 c8 8e 20 71 25 21  |00C2....  .. q%!|
00001510  31 36 20 ca 0d 08 02 2e  20 20 20 20 c9 20 4d 65  |16 .....    . Me|
00001520  73 73 61 67 65 5f 51 75  69 74 25 20 3a 20 c8 99  |ssage_Quit% : ..|
00001530  20 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 25  | Wimp_CloseDown%|
00001540  3a e0 0d 08 0c 1d 20 20  20 20 c9 20 4d 65 73 73  |:.....    . Mess|
00001550  61 67 65 5f 44 61 74 61  53 61 76 65 25 20 3a 0d  |age_DataSave% :.|
00001560  08 16 17 20 20 20 20 20  20 73 69 7a 65 25 20 3d  |...      size% =|
00001570  20 71 25 21 33 36 0d 08  20 1b 20 20 20 20 20 20  | q%!36.. .      |
00001580  66 69 6c 65 74 79 70 65  25 20 3d 20 71 25 21 34  |filetype% = q%!4|
00001590  30 0d 08 2a 20 20 20 20  20 20 20 66 69 6c 65 24  |0..*       file$|
000015a0  20 3d 20 a4 73 74 72 69  6e 67 28 71 25 2b 34 34  | = .string(q%+44|
000015b0  29 0d 08 34 15 20 20 20  20 20 20 71 25 21 30 20  |)..4.      q%!0 |
000015c0  20 3d 20 31 30 30 0d 08  3e 16 20 20 20 20 20 20  | = 100..>.      |
000015d0  71 25 21 31 32 20 3d 20  71 25 21 38 0d 08 48 26  |q%!12 = q%!8..H&|
000015e0  20 20 20 20 20 20 71 25  21 31 36 20 3d 20 4d 65  |      q%!16 = Me|
000015f0  73 73 61 67 65 5f 44 61  74 61 53 61 76 65 41 63  |ssage_DataSaveAc|
00001600  6b 25 0d 08 52 42 20 20  20 20 20 20 71 25 21 33  |k%..RB      q%!3|
00001610  36 20 3d 20 2d 31 20 3a  f4 20 74 68 69 73 20 74  |6 = -1 :. this t|
00001620  65 6c 6c 73 20 73 61 76  69 6e 67 20 61 70 70 20  |ells saving app |
00001630  6e 6f 74 20 74 6f 20 6d  61 72 6b 20 61 73 20 73  |not to mark as s|
00001640  61 76 65 64 0d 08 5c 27  20 20 20 20 20 20 66 69  |aved..\'      fi|
00001650  6c 65 24 20 3d 20 22 3c  57 69 6d 70 24 53 63 72  |le$ = "<Wimp$Scr|
00001660  61 70 3e 22 20 2b 20 bd  28 30 29 0d 08 66 1a 20  |ap>" + .(0)..f. |
00001670  20 20 20 20 20 24 28 71  25 2b 34 34 29 20 3d 20  |     $(q%+44) = |
00001680  66 69 6c 65 24 0d 08 70  29 20 20 20 20 20 20 c8  |file$..p)      .|
00001690  99 20 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |. Wimp_SendMessa|
000016a0  67 65 25 2c 31 38 2c 71  25 2c 71 25 21 34 0d 08  |ge%,18,q%,q%!4..|
000016b0  7a 1d 20 20 20 20 c9 20  4d 65 73 73 61 67 65 5f  |z.    . Message_|
000016c0  44 61 74 61 4c 6f 61 64  25 20 3a 0d 08 84 17 20  |DataLoad% :.... |
000016d0  20 20 20 20 20 73 69 7a  65 25 20 3d 20 71 25 21  |     size% = q%!|
000016e0  33 36 0d 08 8e 1b 20 20  20 20 20 20 66 69 6c 65  |36....      file|
000016f0  74 79 70 65 25 20 3d 20  71 25 21 34 30 0d 08 98  |type% = q%!40...|
00001700  20 20 20 20 20 20 20 66  69 6c 65 24 20 3d 20 a4  |       file$ = .|
00001710  73 74 72 69 6e 67 28 71  25 2b 34 34 29 0d 08 a2  |string(q%+44)...|
00001720  18 20 20 20 20 20 20 f2  64 61 74 61 5f 6c 6f 61  |.      .data_loa|
00001730  64 28 71 25 29 0d 08 ac  24 20 20 20 20 20 20 e7  |d(q%)...$      .|
00001740  20 66 69 6c 65 24 20 3d  20 22 3c 57 69 6d 70 24  | file$ = "<Wimp$|
00001750  53 63 72 61 70 3e 22 20  8c 0d 08 b6 2e 20 20 20  |Scrap>" .....   |
00001760  20 20 20 20 20 ff 28 22  72 65 6d 6f 76 65 20 22  |     .("remove "|
00001770  2b 66 69 6c 65 24 2b 22  20 7b 20 3e 20 6e 75 6c  |+file$+" { > nul|
00001780  6c 3a 20 7d 22 20 29 0d  08 c0 0b 20 20 20 20 20  |l: }" )....     |
00001790  20 cd 0d 08 ca 16 20 20  20 20 20 20 71 25 21 31  | .....      q%!1|
000017a0  32 20 3d 20 71 25 21 38  0d 08 d4 26 20 20 20 20  |2 = q%!8...&    |
000017b0  20 20 71 25 21 31 36 20  3d 20 4d 65 73 73 61 67  |  q%!16 = Messag|
000017c0  65 5f 44 61 74 61 4c 6f  61 64 41 63 6b 25 0d 08  |e_DataLoadAck%..|
000017d0  de 29 20 20 20 20 20 20  c8 99 20 57 69 6d 70 5f  |.)      .. Wimp_|
000017e0  53 65 6e 64 4d 65 73 73  61 67 65 25 2c 31 37 2c  |SendMessage%,17,|
000017f0  71 25 2c 71 25 21 34 0d  08 e8 23 20 20 20 20 c9  |q%,q%!4...#    .|
00001800  20 4d 65 73 73 61 67 65  5f 54 61 73 6b 49 6e 69  | Message_TaskIni|
00001810  74 69 61 6c 69 73 65 25  20 3a 0d 08 f2 3f 20 20  |tialise% :...?  |
00001820  20 20 20 20 e7 20 a4 73  74 72 69 6e 67 28 71 25  |    . .string(q%|
00001830  2b 32 38 29 3d 70 72 6f  67 72 61 6d 5f 6e 61 6d  |+28)=program_nam|
00001840  65 24 20 80 20 71 25 21  34 20 3c 3e 20 74 68 69  |e$ . q%!4 <> thi|
00001850  73 5f 74 61 73 6b 25 20  8c 0d 08 fc 13 20 20 20  |s_task% .....   |
00001860  20 20 20 20 20 71 75 69  74 25 3d b9 0d 09 06 0b  |     quit%=.....|
00001870  20 20 20 20 20 20 cc 0d  09 10 0b 20 20 20 20 20  |      .....     |
00001880  20 cd 0d 09 1a 07 20 20  cb 0d 09 24 17 20 20 c8  | .....  ...$.  .|
00001890  99 20 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 25  |. Hourglass_Off%|
000018a0  0d 09 2e 05 e1 0d 09 38  04 0d 09 42 19 dd f2 64  |.......8...B...d|
000018b0  61 74 61 5f 6c 6f 61 64  28 61 64 64 72 65 73 73  |ata_load(address|
000018c0  25 29 0d 09 4c 20 20 20  f4 20 64 65 61 6c 20 77  |%)..L   . deal w|
000018d0  69 74 68 20 72 65 63 69  65 76 69 6e 67 20 64 61  |ith recieving da|
000018e0  74 61 0d 09 56 1e 20 20  f4 20 41 70 70 6c 69 63  |ta..V.  . Applic|
000018f0  61 74 69 6f 6e 20 6d 6f  64 69 66 69 61 62 6c 65  |ation modifiable|
00001900  0d 09 60 1f 20 20 ea 20  73 69 7a 65 25 2c 20 66  |..`.  . size%, f|
00001910  69 6c 65 74 79 70 65 25  2c 20 70 61 74 68 24 0d  |iletype%, path$.|
00001920  09 6a 16 20 20 c8 99 20  48 6f 75 72 67 6c 61 73  |.j.  .. Hourglas|
00001930  73 5f 4f 6e 25 0d 09 74  19 20 20 73 69 7a 65 25  |s_On%..t.  size%|
00001940  20 3d 20 61 64 64 72 65  73 73 25 21 33 36 0d 09  | = address%!36..|
00001950  7e 1d 20 20 66 69 6c 65  74 79 70 65 25 20 3d 20  |~.  filetype% = |
00001960  61 64 64 72 65 73 73 25  21 34 30 0d 09 88 22 20  |address%!40..." |
00001970  20 70 61 74 68 24 20 3d  20 a4 73 74 72 69 6e 67  | path$ = .string|
00001980  28 61 64 64 72 65 73 73  25 2b 34 34 29 0d 09 92  |(address%+44)...|
00001990  1c 20 20 61 64 64 72 65  73 73 25 21 31 32 3d 61  |.  address%!12=a|
000019a0  64 64 72 65 73 73 25 21  38 0d 09 9c 13 20 20 61  |ddress%!8....  a|
000019b0  64 64 72 65 73 73 25 21  31 36 3d 34 0d 09 a6 31  |ddress%!16=4...1|
000019c0  20 20 c8 99 20 57 69 6d  70 5f 53 65 6e 64 4d 65  |  .. Wimp_SendMe|
000019d0  73 73 61 67 65 25 2c 31  37 2c 61 64 64 72 65 73  |ssage%,17,addres|
000019e0  73 25 2c 61 64 64 72 65  73 73 25 21 34 0d 09 b0  |s%,address%!4...|
000019f0  1e 20 20 6f 6c 64 64 69  73 63 6e 61 6d 65 24 20  |.  olddiscname$ |
00001a00  3d 20 64 69 73 63 6e 61  6d 65 24 0d 09 ba 22 20  |= discname$..." |
00001a10  20 64 69 73 63 6e 61 6d  65 24 20 3d 20 a4 64 69  | discname$ = .di|
00001a20  73 63 6e 61 6d 65 28 70  61 74 68 24 29 0d 09 c4  |scname(path$)...|
00001a30  18 20 20 77 69 64 65 64  69 73 63 6e 61 6d 65 24  |.  widediscname$|
00001a40  20 3d 20 22 22 0d 09 ce  1e 20 20 e3 20 63 68 61  | = ""....  . cha|
00001a50  72 25 3d 31 20 b8 20 a9  28 64 69 73 63 6e 61 6d  |r%=1 . .(discnam|
00001a60  65 24 29 0d 09 d8 43 20  20 20 20 77 69 64 65 64  |e$)...C    wided|
00001a70  69 73 63 6e 61 6d 65 24  20 3d 20 77 69 64 65 64  |iscname$ = wided|
00001a80  69 73 63 6e 61 6d 65 24  20 2b 20 c1 64 69 73 63  |iscname$ + .disc|
00001a90  6e 61 6d 65 24 2c 20 63  68 61 72 25 2c 20 31 29  |name$, char%, 1)|
00001aa0  20 2b 20 22 20 22 0d 09  e2 07 20 20 ed 0d 09 ec  | + " "....  ....|
00001ab0  17 20 20 c8 8e 20 6f 6c  64 64 69 73 63 6e 61 6d  |.  .. olddiscnam|
00001ac0  65 24 20 ca 0d 09 f6 0c  20 20 20 20 c9 20 22 22  |e$ .....    . ""|
00001ad0  0d 0a 00 16 20 20 20 20  20 20 f4 20 64 6f 20 6e  |....      . do n|
00001ae0  6f 74 68 69 6e 67 0d 0a  0a 13 20 20 20 20 c9 20  |othing....    . |
00001af0  64 69 73 63 6e 61 6d 65  24 0d 0a 14 16 20 20 20  |discname$....   |
00001b00  20 20 20 f4 20 64 6f 20  6e 6f 74 68 69 6e 67 0d  |   . do nothing.|
00001b10  0a 1e 09 20 20 20 20 7f  0d 0a 28 65 20 20 20 20  |...    ...(e    |
00001b20  20 20 76 6f 69 64 24 20  3d 20 a4 70 72 6f 62 6c  |  void$ = .probl|
00001b30  65 6d 28 b9 2c a3 2c 22  57 61 72 6e 69 6e 67 20  |em(.,.,"Warning |
00001b40  6e 6f 74 20 61 20 66 69  6c 65 20 6f 6e 20 22 2b  |not a file on "+|
00001b50  6f 6c 64 64 69 73 63 6e  61 6d 65 24 2b 22 2e 20  |olddiscname$+". |
00001b60  54 68 69 73 20 66 69 6c  65 20 77 61 73 20 6f 6e  |This file was on|
00001b70  20 22 2b 64 69 73 63 6e  61 6d 65 24 29 0d 0a 32  | "+discname$)..2|
00001b80  07 20 20 cb 0d 0a 3c 1a  20 20 66 69 6c 65 24 20  |.  ...<.  file$ |
00001b90  3d 20 a4 66 69 6c 65 28  70 61 74 68 24 29 0d 0a  |= .file(path$)..|
00001ba0  46 0d 20 20 64 6f 6e 65  25 3d a3 0d 0a 50 0d 20  |F.  done%=...P. |
00001bb0  20 69 63 6f 6e 25 3d 35  0d 0a 5a 07 20 20 f5 0d  | icon%=5..Z.  ..|
00001bc0  0a 64 34 20 20 20 20 6c  69 6e 65 24 20 3d 20 a4  |.d4    line$ = .|
00001bd0  72 65 61 64 69 63 6f 6e  28 64 69 73 63 77 69 6e  |readicon(discwin|
00001be0  64 6f 77 25 2c 69 63 6f  6e 25 29 20 2b 20 66 69  |dow%,icon%) + fi|
00001bf0  6c 65 24 0d 0a 6e 19 20  20 20 20 e7 20 a9 28 6c  |le$..n.    . .(l|
00001c00  69 6e 65 24 29 20 3c 20  32 37 20 8c 0d 0a 78 39  |ine$) < 27 ...x9|
00001c10  20 20 20 20 20 20 f2 75  70 64 61 74 65 69 63 6f  |      .updateico|
00001c20  6e 28 64 69 73 63 77 69  6e 64 6f 77 25 2c 69 63  |n(discwindow%,ic|
00001c30  6f 6e 25 2c c0 a4 70 61  64 28 6c 69 6e 65 24 29  |on%,..pad(line$)|
00001c40  2c 32 36 29 29 0d 0a 82  32 20 20 20 20 20 20 f2  |,26))...2      .|
00001c50  75 70 64 61 74 65 69 63  6f 6e 28 64 69 73 63 77  |updateicon(discw|
00001c60  69 6e 64 6f 77 25 2c 34  2c 77 69 64 65 64 69 73  |indow%,4,widedis|
00001c70  63 6e 61 6d 65 24 29 0d  0a 8c 2f 20 20 20 20 20  |cname$).../     |
00001c80  20 f2 75 70 64 61 74 65  69 63 6f 6e 28 64 69 73  | .updateicon(dis|
00001c90  63 77 69 6e 64 6f 77 25  2c 31 34 2c 64 69 73 63  |cwindow%,14,disc|
00001ca0  6e 61 6d 65 24 29 0d 0a  96 37 20 20 20 20 20 20  |name$)...7      |
00001cb0  c8 99 20 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.. Wimp_ForceRed|
00001cc0  72 61 77 25 2c 64 69 73  63 77 69 6e 64 6f 77 25  |raw%,discwindow%|
00001cd0  2c 30 2c 2d 37 37 36 2c  35 35 30 2c 30 0d 0a a0  |,0,-776,550,0...|
00001ce0  11 20 20 20 20 20 20 64  6f 6e 65 25 3d b9 0d 0a  |.      done%=...|
00001cf0  aa 09 20 20 20 20 cc 0d  0a b4 14 20 20 20 20 20  |..    .....     |
00001d00  20 69 63 6f 6e 25 20 2b  3d 20 31 0d 0a be 18 20  | icon% += 1.... |
00001d10  20 20 20 20 20 e7 20 69  63 6f 6e 25 20 3e 20 31  |     . icon% > 1|
00001d20  33 20 8c 0d 0a c8 47 20  20 20 20 20 20 20 20 76  |3 ....G        v|
00001d30  6f 69 64 24 20 3d 20 a4  70 72 6f 62 6c 65 6d 28  |oid$ = .problem(|
00001d40  b9 2c a3 2c 22 54 6f 6f  20 6d 61 6e 79 20 6e 61  |.,.,"Too many na|
00001d50  6d 65 73 20 74 6f 20 66  69 74 20 6f 6e 20 74 68  |mes to fit on th|
00001d60  69 73 20 6c 61 62 65 6c  22 29 0d 0a d2 13 20 20  |is label")....  |
00001d70  20 20 20 20 20 20 64 6f  6e 65 25 3d b9 0d 0a dc  |      done%=....|
00001d80  0b 20 20 20 20 20 20 cd  0d 0a e6 09 20 20 20 20  |.      .....    |
00001d90  cd 0d 0a f0 0d 20 20 fd  20 64 6f 6e 65 25 0d 0a  |.....  . done%..|
00001da0  fa 17 20 20 c8 99 20 48  6f 75 72 67 6c 61 73 73  |..  .. Hourglass|
00001db0  5f 4f 66 66 25 0d 0b 04  05 e1 0d 0b 0e 04 0d 0b  |_Off%...........|
00001dc0  18 15 dd f2 6d 6f 75 73  65 5f 63 6c 69 63 6b 28  |....mouse_click(|
00001dd0  71 25 29 0d 0b 22 1f 20  20 f4 20 72 65 73 70 6f  |q%)..".  . respo|
00001de0  6e 64 73 20 74 6f 20 6d  6f 75 73 65 20 63 6c 69  |nds to mouse cli|
00001df0  63 6b 0d 0b 2c 1d 20 20  f4 20 61 70 70 6c 69 63  |ck..,.  . applic|
00001e00  61 74 69 6f 6e 20 64 65  70 65 6e 64 61 6e 74 0d  |ation dependant.|
00001e10  0b 36 28 20 20 ea 20 69  63 6f 6e 62 61 72 25 2c  |.6(  . iconbar%,|
00001e20  20 77 69 6e 64 6f 77 25  2c 20 6d 78 25 2c 20 6d  | window%, mx%, m|
00001e30  79 25 2c 20 6d 62 25 0d  0b 40 13 20 20 69 63 6f  |y%, mb%..@.  ico|
00001e40  6e 62 61 72 25 20 3d 20  2d 32 0d 0b 4a 0e 20 20  |nbar% = -2..J.  |
00001e50  6d 78 25 3d 71 25 21 30  0d 0b 54 0e 20 20 6d 79  |mx%=q%!0..T.  my|
00001e60  25 3d 71 25 21 34 0d 0b  5e 0e 20 20 6d 62 25 3d  |%=q%!4..^.  mb%=|
00001e70  71 25 21 38 0d 0b 68 13  20 20 77 69 6e 64 6f 77  |q%!8..h.  window|
00001e80  25 3d 71 25 21 31 32 0d  0b 72 12 20 20 c8 8e 20  |%=q%!12..r.  .. |
00001e90  77 69 6e 64 6f 77 25 20  ca 0d 0b 7c 12 20 20 20  |window% ...|.   |
00001ea0  20 c9 20 69 63 6f 6e 62  61 72 25 0d 0b 86 12 20  | . iconbar%.... |
00001eb0  20 20 20 20 20 c8 8e 20  6d 62 25 20 ca 0d 0b 90  |     .. mb% ....|
00001ec0  0f 20 20 20 20 20 20 20  20 c9 20 32 0d 0b 9a 5b  |.        . 2...[|
00001ed0  20 20 20 20 20 20 20 20  20 20 c8 99 20 57 69 6d  |          .. Wim|
00001ee0  70 5f 43 72 65 61 74 65  4d 65 6e 75 25 2c 2c 6d  |p_CreateMenu%,,m|
00001ef0  61 69 6e 6d 65 6e 75 25  2c 6d 78 25 2d 6d 61 69  |ainmenu%,mx%-mai|
00001f00  6e 6d 65 6e 75 25 21 31  36 2f 32 2d 32 34 2c 39  |nmenu%!16/2-24,9|
00001f10  32 2b 28 34 34 2a 6d 61  69 6e 6d 65 6e 75 69 74  |2+(44*mainmenuit|
00001f20  65 6d 73 25 2b 31 29 0d  0b a4 0f 20 20 20 20 20  |ems%+1)....     |
00001f30  20 20 20 c9 20 34 0d 0b  ae 2c 20 20 20 20 20 20  |   . 4...,      |
00001f40  20 20 20 20 f2 6f 70 65  6e 63 6c 6f 73 65 64 77  |    .openclosedw|
00001f50  69 6e 64 6f 77 28 64 69  73 63 77 69 6e 64 6f 77  |indow(discwindow|
00001f60  25 29 0d 0b b8 0b 20 20  20 20 20 20 cb 0d 0b c2  |%)....      ....|
00001f70  15 20 20 20 20 c9 20 64  69 73 63 77 69 6e 64 6f  |.    . discwindo|
00001f80  77 25 0d 0b cc 12 20 20  20 20 20 20 c8 8e 20 6d  |w%....      .. m|
00001f90  62 25 20 ca 0d 0b d6 0f  20 20 20 20 20 20 20 20  |b% .....        |
00001fa0  c9 20 32 0d 0b e0 3c 20  20 20 20 20 20 20 20 20  |. 2...<         |
00001fb0  20 c8 99 20 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .. Wimp_CreateM|
00001fc0  65 6e 75 25 2c 2c 6d 61  69 6e 6d 65 6e 75 25 2c  |enu%,,mainmenu%,|
00001fd0  6d 78 25 2d 31 35 30 2c  6d 79 25 2b 31 39 30 0d  |mx%-150,my%+190.|
00001fe0  0b ea 0b 20 20 20 20 20  20 cb 0d 0b f4 07 20 20  |...      .....  |
00001ff0  cb 0d 0b fe 05 e1 0d 0c  08 04 0d 0c 12 14 dd f2  |................|
00002000  64 65 63 6f 64 65 6d 65  6e 75 28 71 25 29 0d 0c  |decodemenu(q%)..|
00002010  1c 1c 20 20 f4 20 61 70  70 6c 69 63 61 74 69 6f  |..  . applicatio|
00002020  6e 20 6d 6f 64 69 66 69  65 64 0d 0c 26 1d 20 20  |n modified..&.  |
00002030  ea 20 73 65 6c 65 63 74  69 6f 6e 25 2c 73 65 6c  |. selection%,sel|
00002040  73 63 74 69 6f 6e 24 0d  0c 30 16 20 20 de 20 73  |sction$..0.  . s|
00002050  65 6c 65 63 74 69 6f 6e  25 20 32 35 35 0d 0c 3a  |election% 255..:|
00002060  33 20 20 c8 99 20 57 69  6d 70 5f 44 65 63 6f 64  |3  .. Wimp_Decod|
00002070  65 4d 65 6e 75 25 2c 30  2c 6d 61 69 6e 6d 65 6e  |eMenu%,0,mainmen|
00002080  75 25 2c 71 25 2c 73 65  6c 65 63 74 69 6f 6e 25  |u%,q%,selection%|
00002090  0d 0c 44 1e 20 20 73 65  6c 65 63 74 69 6f 6e 24  |..D.  selection$|
000020a0  20 3d 20 24 73 65 6c 65  63 74 69 6f 6e 25 0d 0c  | = $selection%..|
000020b0  4e 15 20 20 c8 8e 20 73  65 6c 65 63 74 69 6f 6e  |N.  .. selection|
000020c0  24 20 ca 0d 0c 58 10 20  20 20 20 c9 20 22 49 6e  |$ ...X.    . "In|
000020d0  66 6f 22 0d 0c 62 16 20  20 20 20 20 20 f4 20 64  |fo"..b.      . d|
000020e0  6f 20 6e 6f 74 68 69 6e  67 0d 0c 6c 10 20 20 20  |o nothing..l.   |
000020f0  20 c9 20 22 48 65 6c 70  22 0d 0c 76 30 20 20 20  | . "Help"..v0   |
00002100  20 20 20 f2 68 65 6c 70  28 70 72 6f 67 5f 64 69  |   .help(prog_di|
00002110  72 24 2c 70 72 6f 67 72  61 6d 5f 6e 61 6d 65 24  |r$,program_name$|
00002120  2b 22 20 48 65 6c 70 22  29 0d 0c 80 18 20 20 20  |+" Help")....   |
00002130  20 c9 20 22 53 61 76 65  20 43 6f 6e 66 69 67 2e  | . "Save Config.|
00002140  22 0d 0c 8a 16 20 20 20  20 20 20 f2 73 61 76 65  |"....      .save|
00002150  5f 63 6f 6e 66 69 67 0d  0c 94 13 20 20 20 20 c9  |_config....    .|
00002160  20 22 50 72 69 6e 74 65  72 22 0d 0c 9e 16 20 20  | "Printer"....  |
00002170  20 20 20 20 f4 20 64 6f  20 6e 6f 74 68 69 6e 67  |    . do nothing|
00002180  0d 0c a8 1c 20 20 20 20  c9 20 22 50 72 69 6e 74  |....    . "Print|
00002190  65 72 2e 45 70 73 6f 6e  2d 46 58 22 0d 0c b2 22  |er.Epson-FX"..."|
000021a0  20 20 20 20 20 20 f2 74  69 63 6b 28 50 72 69 6e  |      .tick(Prin|
000021b0  74 65 72 6d 65 6e 75 25  2c 71 25 21 34 29 0d 0c  |termenu%,q%!4)..|
000021c0  bc 35 20 20 20 20 20 20  f2 6e 6f 74 69 63 6b 28  |.5      .notick(|
000021d0  50 72 69 6e 74 65 72 6d  65 6e 75 25 2c 31 29 3a  |Printermenu%,1):|
000021e0  70 72 69 6e 74 65 72 24  3d 22 45 70 73 6f 6e 2d  |printer$="Epson-|
000021f0  46 58 22 0d 0c c6 16 20  20 20 20 20 20 f2 6f 70  |FX"....      .op|
00002200  74 69 6f 6e 73 6d 65 6e  75 0d 0c d0 1d 20 20 20  |tionsmenu....   |
00002210  20 c9 20 22 50 72 69 6e  74 65 72 2e 53 74 61 72  | . "Printer.Star|
00002220  2d 4c 43 31 30 22 0d 0c  da 22 20 20 20 20 20 20  |-LC10"..."      |
00002230  f2 74 69 63 6b 28 50 72  69 6e 74 65 72 6d 65 6e  |.tick(Printermen|
00002240  75 25 2c 71 25 21 34 29  0d 0c e4 36 20 20 20 20  |u%,q%!4)...6    |
00002250  20 20 f2 f2 f2 f2 f2 f2  f2 f2 f2 f2 f2 f2 f2 f2  |  ..............|
00002260  f2 f2 f2 f2 f2 f2 f2 f2  f2 f2 f2 f2 f2 f2 f2 f2  |................|
*
00002280  50 72 69 6e 74 65 72 6d  65 6e 75 25 2c 30 29 3a  |Printermenu%,0):|
00002290  70 72 69 6e 74 65 72 24  3d 22 53 74 61 72 2d 4c  |printer$="Star-L|
000022a0  43 31 30 22 0d 0c ee 16  20 20 20 20 20 20 f2 6f  |C10"....      .o|
000022b0  70 74 69 6f 6e 73 6d 65  6e 75 0d 0c f8 13 20 20  |ptionsmenu....  |
000022c0  20 20 c9 20 22 4f 70 74  69 6f 6e 73 22 0d 0d 02  |  . "Options"...|
000022d0  16 20 20 20 20 20 20 f4  20 64 6f 20 6e 6f 74 68  |.      . do noth|
000022e0  69 6e 67 0d 0d 0c 19 20  20 20 20 c9 20 22 4f 70  |ing....    . "Op|
000022f0  74 69 6f 6e 73 2e 44 72  61 66 74 22 0d 0d 16 15  |tions.Draft"....|
00002300  20 20 20 20 20 20 f2 63  6c 65 61 72 73 74 79 6c  |      .clearstyl|
00002310  65 0d 0d 20 1f 20 20 20  20 20 20 f2 74 69 63 6b  |e.. .      .tick|
00002320  28 4f 70 74 69 6f 6e 73  6d 65 6e 75 25 2c 34 29  |(Optionsmenu%,4)|
00002330  0d 0d 2a 1b 20 20 20 20  c9 20 22 4f 70 74 69 6f  |..*.    . "Optio|
00002340  6e 73 2e 43 6f 75 72 69  65 72 22 0d 0d 34 15 20  |ns.Courier"..4. |
00002350  20 20 20 20 20 f2 63 6c  65 61 72 73 74 79 6c 65  |     .clearstyle|
00002360  0d 0d 3e 1f 20 20 20 20  20 20 f2 74 69 63 6b 28  |..>.      .tick(|
00002370  4f 70 74 69 6f 6e 73 6d  65 6e 75 25 2c 35 29 0d  |Optionsmenu%,5).|
00002380  0d 48 1a 20 20 20 20 c9  20 22 4f 70 74 69 6f 6e  |.H.    . "Option|
00002390  73 2e 4f 72 61 74 6f 72  22 0d 0d 52 15 20 20 20  |s.Orator"..R.   |
000023a0  20 20 20 f2 63 6c 65 61  72 73 74 79 6c 65 0d 0d  |   .clearstyle..|
000023b0  5c 1f 20 20 20 20 20 20  f2 74 69 63 6b 28 4f 70  |\.      .tick(Op|
000023c0  74 69 6f 6e 73 6d 65 6e  75 25 2c 36 29 0d 0d 66  |tionsmenu%,6)..f|
000023d0  1d 20 20 20 20 c9 20 22  4f 70 74 69 6f 6e 73 2e  |.    . "Options.|
000023e0  4f 72 61 74 6f 72 20 53  43 22 0d 0d 70 15 20 20  |Orator SC"..p.  |
000023f0  20 20 20 20 f2 63 6c 65  61 72 73 74 79 6c 65 0d  |    .clearstyle.|
00002400  0d 7a 1f 20 20 20 20 20  20 f2 74 69 63 6b 28 4f  |.z.      .tick(O|
00002410  70 74 69 6f 6e 73 6d 65  6e 75 25 2c 37 29 0d 0d  |ptionsmenu%,7)..|
00002420  84 1e 20 20 20 20 c9 20  22 4f 70 74 69 6f 6e 73  |..    . "Options|
00002430  2e 53 61 6e 73 20 53 65  72 69 66 22 0d 0d 8e 15  |.Sans Serif"....|
00002440  20 20 20 20 20 20 f2 63  6c 65 61 72 73 74 79 6c  |      .clearstyl|
00002450  65 0d 0d 98 1f 20 20 20  20 20 20 f2 74 69 63 6b  |e....      .tick|
00002460  28 4f 70 74 69 6f 6e 73  6d 65 6e 75 25 2c 38 29  |(Optionsmenu%,8)|
00002470  0d 0d a2 1a 20 20 20 20  c9 20 22 4f 70 74 69 6f  |....    . "Optio|
00002480  6e 73 2e 49 74 61 6c 69  63 22 0d 0d ac 1f 20 20  |ns.Italic"....  |
00002490  20 20 20 20 f2 74 69 63  6b 28 4f 70 74 69 6f 6e  |    .tick(Option|
000024a0  73 6d 65 6e 75 25 2c 39  29 0d 0d b6 1e 20 20 20  |smenu%,9)....   |
000024b0  20 c9 20 22 4f 70 74 69  6f 6e 73 2e 44 6f 75 62  | . "Options.Doub|
000024c0  6c 65 20 53 74 72 22 0d  0d c0 20 20 20 20 20 20  |le Str"...      |
000024d0  20 f2 74 69 63 6b 28 4f  70 74 69 6f 6e 73 6d 65  | .tick(Optionsme|
000024e0  6e 75 25 2c 31 30 29 0d  0d ca 1e 20 20 20 20 c9  |nu%,10)....    .|
000024f0  20 22 4f 70 74 69 6f 6e  73 2e 45 6d 70 68 61 73  | "Options.Emphas|
00002500  69 7a 65 64 22 0d 0d d4  20 20 20 20 20 20 20 f2  |ized"...       .|
00002510  74 69 63 6b 28 4f 70 74  69 6f 6e 73 6d 65 6e 75  |tick(Optionsmenu|
00002520  25 2c 31 31 29 0d 0d de  1f 20 20 20 20 c9 20 22  |%,11)....    . "|
00002530  4f 70 74 69 6f 6e 73 2e  50 72 6f 70 2e 53 70 61  |Options.Prop.Spa|
00002540  63 65 64 22 0d 0d e8 20  20 20 20 20 20 20 f2 74  |ced"...       .t|
00002550  69 63 6b 28 4f 70 74 69  6f 6e 73 6d 65 6e 75 25  |ick(Optionsmenu%|
00002560  2c 31 32 29 0d 0d f2 11  20 20 20 20 c9 20 22 50  |,12)....    . "P|
00002570  72 69 6e 74 22 0d 0d fc  16 20 20 20 20 20 20 f2  |rint"....      .|
00002580  70 72 69 6e 74 5f 6c 61  62 65 6c 0d 0e 06 11 20  |print_label.... |
00002590  20 20 20 c9 20 22 43 6c  65 61 72 22 0d 0e 10 15  |   . "Clear"....|
000025a0  20 20 20 20 20 20 f2 63  6c 65 61 72 69 63 6f 6e  |      .clearicon|
000025b0  73 0d 0e 1a 10 20 20 20  20 c9 20 22 51 75 69 74  |s....    . "Quit|
000025c0  22 0d 0e 24 1e 20 20 20  20 20 20 c8 99 20 57 69  |"..$.      .. Wi|
000025d0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 25 3a e0 0d  |mp_CloseDown%:..|
000025e0  0e 2e 09 20 20 20 20 7f  0d 0e 38 35 20 20 20 20  |...    ...85    |
000025f0  20 20 85 20 31 2c 22 4d  65 6e 75 20 64 65 63 6f  |  . 1,"Menu deco|
00002600  64 65 20 22 2b 73 65 6c  65 63 74 69 6f 6e 24 2b  |de "+selection$+|
00002610  22 20 6e 6f 74 20 6b 6e  6f 77 6e 2e 22 0d 0e 42  |" not known."..B|
00002620  07 20 20 cb 0d 0e 4c 18  20 20 f4 20 72 65 64 72  |.  ...L.  . redr|
00002630  61 77 20 69 66 20 61 64  6a 75 73 74 0d 0e 56 21  |aw if adjust..V!|
00002640  20 20 c8 99 20 57 69 6d  70 5f 47 65 74 50 6f 69  |  .. Wimp_GetPoi|
00002650  6e 74 65 72 49 6e 66 6f  25 2c 2c 71 25 0d 0e 60  |nterInfo%,,q%..`|
00002660  12 20 20 e7 20 71 25 21  38 20 3d 20 31 20 8c 0d  |.  . q%!8 = 1 ..|
00002670  0e 6a 26 20 20 20 20 c8  99 20 57 69 6d 70 5f 43  |.j&    .. Wimp_C|
00002680  72 65 61 74 65 4d 65 6e  75 25 2c 2c 6d 61 69 6e  |reateMenu%,,main|
00002690  6d 65 6e 75 25 0d 0e 74  07 20 20 cd 0d 0e 7e 05  |menu%..t.  ...~.|
000026a0  e1 0d 0e 88 04 0d 0e 92  11 dd f2 64 65 66 69 6e  |...........defin|
000026b0  65 6d 65 6e 75 73 0d 0e  9c 1d 20 20 f4 20 73 65  |emenus....  . se|
000026c0  74 75 70 20 6d 65 6e 75  20 73 74 72 75 63 74 75  |tup menu structu|
000026d0  72 65 73 0d 0e a6 1e 20  20 f4 20 61 70 70 6c 69  |res....  . appli|
000026e0  63 61 74 69 6f 6e 20 6d  6f 64 69 66 69 61 62 6c  |cation modifiabl|
000026f0  65 0d 0e b0 3c 20 20 74  69 63 6b 25 3d 25 31 3a  |e...<  tick%=%1:|
00002700  64 6f 74 25 3d 25 31 30  3a 77 72 69 74 65 25 3d  |dot%=%10:write%=|
00002710  25 31 30 30 3a 6c 61 73  74 25 3d 25 31 30 30 30  |%100:last%=%1000|
00002720  30 30 30 30 3a 70 6c 61  69 6e 25 3d 30 0d 0e ba  |0000:plain%=0...|
00002730  1f 20 20 6e 6f 72 6d 61  6c 25 3d 20 28 37 3c 3c  |.  normal%= (7<<|
00002740  32 34 29 20 84 20 25 31  30 30 30 31 0d 0e c4 20  |24) . %10001... |
00002750  20 20 73 68 61 64 65 64  25 3d 20 28 34 3c 3c 32  |  shaded%= (4<<2|
00002760  30 29 20 84 20 6e 6f 72  6d 61 6c 25 0d 0e ce 18  |0) . normal%....|
00002770  20 20 6d 61 69 6e 6d 65  6e 75 69 74 65 6d 73 25  |  mainmenuitems%|
00002780  20 3d 20 38 0d 0e d8 17  20 20 73 75 62 6d 65 6e  | = 8....  submen|
00002790  75 69 74 65 6d 73 25 20  3d 20 38 0d 0e e2 13 20  |uitems% = 8.... |
000027a0  20 70 72 69 6e 74 65 72  73 25 20 3d 20 32 0d 0e  | printers% = 2..|
000027b0  ec 36 20 20 ea 20 6d 25  20 20 20 20 20 20 20 20  |.6  . m%        |
000027c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000027d0  20 20 20 20 20 20 20 20  20 20 3a f4 20 70 6f 69  |          :. poi|
000027e0  6e 74 65 72 0d 0e f6 26  20 20 de 20 6d 61 69 6e  |nter...&  . main|
000027f0  6d 65 6e 75 25 20 32 38  2b 6d 61 69 6e 6d 65 6e  |menu% 28+mainmen|
00002800  75 69 74 65 6d 73 25 2a  32 34 0d 0f 00 28 20 20  |uitems%*24...(  |
00002810  de 20 4f 70 74 69 6f 6e  73 6d 65 6e 75 25 20 32  |. Optionsmenu% 2|
00002820  38 2b 73 75 62 6d 65 6e  75 69 74 65 6d 73 25 2a  |8+submenuitems%*|
00002830  32 34 0d 0f 0a 24 20 20  de 20 50 72 69 6e 74 65  |24...$  . Printe|
00002840  72 6d 65 6e 75 25 20 32  38 2b 70 72 69 6e 74 65  |rmenu% 28+printe|
00002850  72 73 25 2a 32 34 0d 0f  14 2c 20 20 6d 25 20 3d  |rs%*24...,  m% =|
00002860  20 a4 6d 65 6e 75 28 6d  61 69 6e 6d 65 6e 75 25  | .menu(mainmenu%|
00002870  2c 70 72 6f 67 72 61 6d  5f 6e 61 6d 65 24 2c 31  |,program_name$,1|
00002880  32 29 0d 0f 1e 3e 20 20  6d 25 20 3d 20 a4 6d 65  |2)...>  m% = .me|
00002890  6e 75 69 74 65 6d 28 6d  25 2c 22 49 6e 66 6f 22  |nuitem(m%,"Info"|
000028a0  2c 20 20 20 20 20 70 6c  61 69 6e 25 2c 20 20 20  |,     plain%,   |
000028b0  20 69 6e 66 6f 25 2c 20  6e 6f 72 6d 61 6c 25 29  | info%, normal%)|
000028c0  0d 0f 28 3e 20 20 6d 25  20 3d 20 a4 6d 65 6e 75  |..(>  m% = .menu|
000028d0  69 74 65 6d 28 6d 25 2c  22 48 65 6c 70 22 2c 20  |item(m%,"Help", |
000028e0  20 20 20 20 70 6c 61 69  6e 25 2c 20 20 20 20 20  |    plain%,     |
000028f0  20 20 2d 31 2c 20 6e 6f  72 6d 61 6c 25 29 0d 0f  |  -1, normal%)..|
00002900  32 3e 20 20 6d 25 20 3d  20 a4 6d 65 6e 75 69 74  |2>  m% = .menuit|
00002910  65 6d 28 6d 25 2c 22 53  61 76 65 20 43 6f 6e 66  |em(m%,"Save Conf|
00002920  69 67 2e 22 2c 70 6c 61  69 6e 25 2c 20 20 20 20  |ig.",plain%,    |
00002930  2d 31 2c 20 6e 6f 72 6d  61 6c 25 29 0d 0f 3c 41  |-1, normal%)..<A|
00002940  20 20 6d 25 20 3d 20 a4  6d 65 6e 75 69 74 65 6d  |  m% = .menuitem|
00002950  28 6d 25 2c 22 50 72 69  6e 74 65 72 22 2c 20 20  |(m%,"Printer",  |
00002960  70 6c 61 69 6e 25 2c 50  72 69 6e 74 65 72 6d 65  |plain%,Printerme|
00002970  6e 75 25 2c 20 6e 6f 72  6d 61 6c 25 29 0d 0f 46  |nu%, normal%)..F|
00002980  41 20 20 6d 25 20 3d 20  a4 6d 65 6e 75 69 74 65  |A  m% = .menuite|
00002990  6d 28 6d 25 2c 22 4f 70  74 69 6f 6e 73 22 2c 20  |m(m%,"Options", |
000029a0  20 70 6c 61 69 6e 25 2c  4f 70 74 69 6f 6e 73 6d  | plain%,Optionsm|
000029b0  65 6e 75 25 2c 20 6e 6f  72 6d 61 6c 25 29 0d 0f  |enu%, normal%)..|
000029c0  50 3e 20 20 6d 25 20 3d  20 a4 6d 65 6e 75 69 74  |P>  m% = .menuit|
000029d0  65 6d 28 6d 25 2c 22 50  72 69 6e 74 22 2c 20 20  |em(m%,"Print",  |
000029e0  20 20 70 6c 61 69 6e 25  2c 20 20 20 20 20 20 20  |  plain%,       |
000029f0  2d 31 2c 20 6e 6f 72 6d  61 6c 25 29 0d 0f 5a 3e  |-1, normal%)..Z>|
00002a00  20 20 6d 25 20 3d 20 a4  6d 65 6e 75 69 74 65 6d  |  m% = .menuitem|
00002a10  28 6d 25 2c 22 43 6c 65  61 72 22 2c 20 20 20 20  |(m%,"Clear",    |
00002a20  70 6c 61 69 6e 25 2c 20  20 20 20 20 20 20 2d 31  |plain%,       -1|
00002a30  2c 20 6e 6f 72 6d 61 6c  25 29 0d 0f 64 3e 20 20  |, normal%)..d>  |
00002a40  6d 25 20 3d 20 a4 6d 65  6e 75 69 74 65 6d 28 6d  |m% = .menuitem(m|
00002a50  25 2c 22 51 75 69 74 22  2c 20 20 20 20 20 20 6c  |%,"Quit",      l|
00002a60  61 73 74 25 2c 20 20 20  20 20 20 20 2d 31 2c 20  |ast%,       -1, |
00002a70  6e 6f 72 6d 61 6c 25 29  0d 0f 6e 2b 20 20 6d 25  |normal%)..n+  m%|
00002a80  20 3d 20 a4 6d 65 6e 75  28 50 72 69 6e 74 65 72  | = .menu(Printer|
00002a90  6d 65 6e 75 25 2c 22 50  72 69 6e 74 65 72 73 22  |menu%,"Printers"|
00002aa0  2c 39 29 0d 0f 78 36 20  20 6d 25 20 3d 20 a4 6d  |,9)..x6  m% = .m|
00002ab0  65 6e 75 69 74 65 6d 28  6d 25 2c 22 45 70 73 6f  |enuitem(m%,"Epso|
00002ac0  6e 2d 46 58 22 2c 20 70  6c 61 69 6e 25 2c 2d 31  |n-FX", plain%,-1|
00002ad0  2c 6e 6f 72 6d 61 6c 25  29 0d 0f 82 36 20 20 6d  |,normal%)...6  m|
00002ae0  25 20 3d 20 a4 6d 65 6e  75 69 74 65 6d 28 6d 25  |% = .menuitem(m%|
00002af0  2c 22 53 74 61 72 2d 4c  43 31 30 22 2c 20 6c 61  |,"Star-LC10", la|
00002b00  73 74 25 2c 2d 31 2c 6e  6f 72 6d 61 6c 25 29 0d  |st%,-1,normal%).|
00002b10  0f 8c 13 20 20 c8 8e 20  70 72 69 6e 74 65 72 24  |...  .. printer$|
00002b20  20 ca 0d 0f 96 2a 20 20  20 20 c9 20 22 45 70 73  | ....*    . "Eps|
00002b30  6f 6e 2d 46 58 22 3a f2  74 69 63 6b 28 50 72 69  |on-FX":.tick(Pri|
00002b40  6e 74 65 72 6d 65 6e 75  25 2c 30 29 0d 0f a0 2b  |ntermenu%,0)...+|
00002b50  20 20 20 20 c9 20 22 53  74 61 72 2d 4c 43 31 30  |    . "Star-LC10|
00002b60  22 3a f2 74 69 63 6b 28  50 72 69 6e 74 65 72 6d  |":.tick(Printerm|
00002b70  65 6e 75 25 2c 31 29 0d  0f aa 09 20 20 20 20 7f  |enu%,1)....    .|
00002b80  0d 0f b4 30 20 20 20 20  20 20 85 20 31 30 30 2c  |...0      . 100,|
00002b90  22 50 72 69 6e 74 65 72  3a 20 22 2b 70 72 69 6e  |"Printer: "+prin|
00002ba0  74 65 72 24 2b 22 20 75  6e 6b 6e 6f 77 6e 2e 22  |ter$+" unknown."|
00002bb0  0d 0f be 07 20 20 cb 0d  0f c8 12 20 20 f2 6f 70  |....  .....  .op|
00002bc0  74 69 6f 6e 73 6d 65 6e  75 0d 0f d2 05 e1 0d 0f  |tionsmenu.......|
00002bd0  dc 04 0d 0f e6 0f dd f2  74 65 6d 70 6c 61 74 65  |........template|
00002be0  73 0d 0f f0 11 20 20 f4  20 67 6c 6f 62 61 6c 20  |s....  . global |
00002bf0  71 25 0d 0f fa 14 20 20  69 6e 64 69 72 6c 65 6e  |q%....  indirlen|
00002c00  25 3d 31 30 30 30 0d 10  04 21 20 20 de 20 71 25  |%=1000...!  . q%|
00002c10  20 33 35 30 30 2c 20 69  6e 64 69 72 25 20 69 6e  | 3500, indir% in|
00002c20  64 69 72 6c 65 6e 25 0d  10 0e 20 20 20 69 6e 64  |dirlen%...   ind|
00002c30  69 72 65 6e 64 25 3d 69  6e 64 69 72 25 2b 69 6e  |irend%=indir%+in|
00002c40  64 69 72 6c 65 6e 25 0d  10 18 35 20 20 c8 99 20  |dirlen%...5  .. |
00002c50  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00002c60  65 25 2c 2c 70 72 6f 67  5f 64 69 72 24 20 2b 20  |e%,,prog_dir$ + |
00002c70  22 2e 54 65 6d 70 6c 61  74 65 73 22 0d 10 22 3b  |".Templates"..";|
00002c80  20 20 ee 20 85 20 c8 99  20 57 69 6d 70 5f 43 6c  |  . . .. Wimp_Cl|
00002c90  6f 73 65 54 65 6d 70 6c  61 74 65 25 3a f2 65 72  |oseTemplate%:.er|
00002ca0  72 6f 72 62 6f 78 28 70  72 6f 67 72 61 6d 5f 6e  |rorbox(program_n|
00002cb0  61 6d 65 24 29 3a e1 0d  10 2c 12 20 20 74 65 6d  |ame$):...,.  tem|
00002cc0  70 25 3d 69 6e 64 69 72  25 0d 10 36 45 20 20 c8  |p%=indir%..6E  .|
00002cd0  99 20 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |. Wimp_LoadTempl|
00002ce0  61 74 65 25 2c 2c 71 25  2c 74 65 6d 70 25 2c 69  |ate%,,q%,temp%,i|
00002cf0  6e 64 69 72 65 6e 64 25  2c 2d 31 2c 22 69 6e 66  |ndirend%,-1,"inf|
00002d00  6f 22 2c 30 20 b8 20 2c  2c 74 65 6d 70 25 0d 10  |o",0 . ,,temp%..|
00002d10  40 47 20 20 71 25 21 36  34 3d 31 20 20 20 20 20  |@G  q%!64=1     |
00002d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00002d40  20 75 73 65 20 77 69 6d  70 20 73 70 72 69 74 65  | use wimp sprite|
00002d50  20 61 72 65 61 0d 10 4a  27 20 20 c8 99 20 57 69  | area..J'  .. Wi|
00002d60  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 25  |mp_CreateWindow%|
00002d70  2c 2c 71 25 20 b8 20 69  6e 66 6f 25 0d 10 54 4a  |,,q% . info%..TJ|
00002d80  20 20 c8 99 20 57 69 6d  70 5f 4c 6f 61 64 54 65  |  .. Wimp_LoadTe|
00002d90  6d 70 6c 61 74 65 25 2c  2c 71 25 2c 74 65 6d 70  |mplate%,,q%,temp|
00002da0  25 2c 69 6e 64 69 72 65  6e 64 25 2c 2d 31 2c 22  |%,indirend%,-1,"|
00002db0  44 69 73 63 4c 61 62 65  6c 22 2c 30 20 b8 20 2c  |DiscLabel",0 . ,|
00002dc0  2c 74 65 6d 70 25 0d 10  5e 47 20 20 71 25 21 36  |,temp%..^G  q%!6|
00002dd0  34 3d 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |4=1             |
00002de0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002df0  20 20 20 20 20 20 3a f4  20 75 73 65 20 77 69 6d  |      :. use wim|
00002e00  70 20 73 70 72 69 74 65  20 61 72 65 61 0d 10 68  |p sprite area..h|
00002e10  2d 20 20 c8 99 20 57 69  6d 70 5f 43 72 65 61 74  |-  .. Wimp_Creat|
00002e20  65 57 69 6e 64 6f 77 25  2c 2c 71 25 20 b8 20 64  |eWindow%,,q% . d|
00002e30  69 73 63 77 69 6e 64 6f  77 25 0d 10 72 1c 20 20  |iscwindow%..r.  |
00002e40  c8 99 20 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.. Wimp_CloseTem|
00002e50  70 6c 61 74 65 25 0d 10  7c 05 e1 0d 10 86 04 0d  |plate%..|.......|
00002e60  10 90 04 0d 10 9a 04 0d  10 a4 15 dd f2 6b 65 79  |.............key|
00002e70  5f 70 72 65 73 73 65 64  28 71 25 29 0d 10 ae 1e  |_pressed(q%)....|
00002e80  20 20 f4 20 64 65 61 6c  73 20 77 69 74 68 20 6b  |  . deals with k|
00002e90  65 79 20 70 72 65 73 73  65 73 0d 10 b8 1d 20 20  |ey presses....  |
00002ea0  f4 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 64 65  |. application de|
00002eb0  70 65 6e 64 61 6e 74 0d  10 c2 20 20 20 ea 20 77  |pendant...   . w|
00002ec0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 6b 65 79  |indow%,icon%,key|
00002ed0  5f 63 6f 64 65 25 2c 0d  10 cc 2d 20 20 ea 20 64  |_code%,...-  . d|
00002ee0  6f 77 6e 5f 61 72 72 6f  77 25 2c 75 70 5f 61 72  |own_arrow%,up_ar|
00002ef0  72 6f 77 25 2c 74 61 62  25 2c 73 68 69 66 74 5f  |row%,tab%,shift_|
00002f00  74 61 62 25 0d 10 d6 14  20 20 77 69 6e 64 6f 77  |tab%....  window|
00002f10  25 20 3d 20 71 25 21 30  0d 10 e0 12 20 20 69 63  |% = q%!0....  ic|
00002f20  6f 6e 25 20 3d 20 71 25  21 34 0d 10 ea 17 20 20  |on% = q%!4....  |
00002f30  6b 65 79 5f 63 6f 64 65  25 20 3d 20 71 25 21 32  |key_code% = q%!2|
00002f40  34 0d 10 f4 17 20 20 70  72 69 6e 74 5f 6b 65 79  |4....  print_key|
00002f50  25 20 3d 20 26 31 38 30  0d 10 fe 18 20 20 64 6f  |% = &180....  do|
00002f60  77 6e 5f 61 72 72 6f 77  25 20 3d 20 26 31 38 45  |wn_arrow% = &18E|
00002f70  0d 11 08 16 20 20 75 70  5f 61 72 72 6f 77 25 20  |....  up_arrow% |
00002f80  3d 20 26 31 38 46 0d 11  12 25 20 20 74 61 62 25  |= &18F...%  tab%|
00002f90  20 3d 20 26 31 38 41 20  3a 20 73 68 69 66 74 5f  | = &18A : shift_|
00002fa0  74 61 62 25 20 3d 20 26  31 39 41 0d 11 1c 12 20  |tab% = &19A.... |
00002fb0  20 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 11 26  | .. window% ...&|
00002fc0  15 20 20 20 20 c9 20 64  69 73 63 77 69 6e 64 6f  |.    . discwindo|
00002fd0  77 25 0d 11 30 18 20 20  20 20 20 20 c8 8e 20 6b  |w%..0.      .. k|
00002fe0  65 79 5f 63 6f 64 65 25  20 ca 0d 11 3a 1f 20 20  |ey_code% ...:.  |
00002ff0  20 20 20 20 c9 20 31 33  2c 64 6f 77 6e 5f 61 72  |    . 13,down_ar|
00003000  72 6f 77 25 2c 74 61 62  25 0d 11 44 16 20 20 20  |row%,tab%..D.   |
00003010  20 20 20 20 20 69 63 6f  6e 25 20 2b 3d 20 31 0d  |     icon% += 1.|
00003020  11 4e 20 20 20 20 20 20  20 20 20 e7 20 69 63 6f  |.N         . ico|
00003030  6e 25 3e 31 37 20 8c 20  69 63 6f 6e 25 3d 34 0d  |n%>17 . icon%=4.|
00003040  11 58 3a 20 20 20 20 20  20 20 20 c8 99 20 57 69  |.X:        .. Wi|
00003050  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00003060  69 6f 6e 25 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ion%,window%,ico|
00003070  6e 25 2c 2c 2c 2d 31 2c  30 0d 11 62 20 20 20 20  |n%,,,-1,0..b    |
00003080  20 20 20 c9 20 75 70 5f  61 72 72 6f 77 25 2c 73  |   . up_arrow%,s|
00003090  68 69 66 74 5f 74 61 62  25 0d 11 6c 16 20 20 20  |hift_tab%..l.   |
000030a0  20 20 20 20 20 69 63 6f  6e 25 20 2d 3d 20 31 0d  |     icon% -= 1.|
000030b0  11 76 20 20 20 20 20 20  20 20 20 e7 20 69 63 6f  |.v         . ico|
000030c0  6e 25 3c 34 20 8c 20 69  63 6f 6e 25 3d 31 37 0d  |n%<4 . icon%=17.|
000030d0  11 80 3a 20 20 20 20 20  20 20 20 c8 99 20 57 69  |..:        .. Wi|
000030e0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
000030f0  69 6f 6e 25 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ion%,window%,ico|
00003100  6e 25 2c 2c 2c 2d 31 2c  30 0d 11 8a 16 20 20 20  |n%,,,-1,0....   |
00003110  20 20 20 c9 20 70 72 69  6e 74 5f 6b 65 79 25 0d  |   . print_key%.|
00003120  11 94 18 20 20 20 20 20  20 20 20 f2 70 72 69 6e  |...        .prin|
00003130  74 5f 6c 61 62 65 6c 0d  11 9e 0b 20 20 20 20 20  |t_label....     |
00003140  20 7f 0d 11 a8 29 20 20  20 20 20 20 20 20 c8 99  | ....)        ..|
00003150  20 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  | Wimp_ProcessKey|
00003160  25 2c 6b 65 79 5f 63 6f  64 65 25 0d 11 b2 0b 20  |%,key_code%.... |
00003170  20 20 20 20 20 cb 0d 11  bc 09 20 20 20 20 7f 0d  |     .....    ..|
00003180  11 c6 27 20 20 20 20 20  20 c8 99 20 57 69 6d 70  |..'      .. Wimp|
00003190  5f 50 72 6f 63 65 73 73  4b 65 79 25 2c 6b 65 79  |_ProcessKey%,key|
000031a0  5f 63 6f 64 65 25 0d 11  d0 07 20 20 cb 0d 11 da  |_code%....  ....|
000031b0  05 e1 0d 11 e4 04 0d 11  ee 04 0d 11 f8 3a f4 2d  |.............:.-|
000031c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000031e0  2d 2d 2d 42 41 53 49 43  20 4c 69 62 20 66 6f 6c  |---BASIC Lib fol|
000031f0  6c 6f 77 73 0d 12 02 04  0d 12 0c 10 dd a4 70 72  |lows..........pr|
00003200  69 6e 74 65 72 5f 6f 6e  0d 12 16 11 20 20 d6 70  |inter_on....  .p|
00003210  72 69 6e 74 65 72 5f 6f  6e 0d 12 20 13 20 20 c8  |rinter_on.. .  .|
00003220  8e 20 3f 72 65 73 75 6c  74 25 20 ca 0d 12 2a 21  |. ?result% ...*!|
00003230  20 20 20 20 c9 20 30 20  3a 20 f4 20 22 6e 6f 74  |    . 0 : . "not|
00003240  20 72 65 73 70 6f 6e 64  69 6e 67 2e 22 0d 12 34  | responding."..4|
00003250  15 20 20 20 20 20 20 72  65 73 70 6f 6e 73 65 25  |.      response%|
00003260  3d a3 0d 12 3e 21 20 20  20 20 c9 20 31 20 3a 20  |=...>!    . 1 : |
00003270  f4 20 22 72 65 61 64 79  2e 20 20 20 20 20 20 20  |. "ready.       |
00003280  20 20 22 0d 12 48 15 20  20 20 20 20 20 72 65 73  |  "..H.      res|
00003290  70 6f 6e 73 65 25 3d b9  0d 12 52 07 20 20 cb 0d  |ponse%=...R.  ..|
000032a0  12 5c 0e 3d 72 65 73 70  6f 6e 73 65 25 0d 12 66  |.\.=response%..f|
000032b0  04 0d 12 70 15 dd a4 64  69 73 63 6e 61 6d 65 28  |...p...discname(|
000032c0  70 61 74 68 24 29 0d 12  7a 24 20 20 f4 20 65 78  |path$)..z$  . ex|
000032d0  74 72 61 63 74 73 20 64  69 73 63 20 6e 61 6d 65  |tracts disc name|
000032e0  20 66 72 6f 6d 20 70 61  74 68 0d 12 84 1f 20 20  | from path....  |
000032f0  f4 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 69 6e  |. application in|
00003300  64 65 70 65 6e 64 61 6e  74 0d 12 8e 12 20 20 ea  |dependant....  .|
00003310  20 66 72 6f 6d 25 2c 20  74 6f 25 0d 12 98 1e 20  | from%, to%.... |
00003320  20 66 72 6f 6d 25 20 3d  20 a7 70 61 74 68 24 2c  | from% = .path$,|
00003330  22 3a 3a 22 29 20 2b 20  32 0d 12 a2 19 20 20 74  |"::") + 2....  t|
00003340  6f 25 20 20 20 3d 20 a7  70 61 74 68 24 2c 22 2e  |o%   = .path$,".|
00003350  22 29 0d 12 ac 1c 3d c1  70 61 74 68 24 2c 66 72  |")....=.path$,fr|
00003360  6f 6d 25 2c 74 6f 25 2d  66 72 6f 6d 25 29 0d 12  |om%,to%-from%)..|
00003370  b6 04 0d 12 c0 11 dd a4  66 69 6c 65 28 70 61 74  |........file(pat|
00003380  68 24 29 0d 12 ca 24 20  20 f4 20 65 78 74 72 61  |h$)...$  . extra|
00003390  63 74 73 20 66 69 6c 65  20 6e 61 6d 65 20 66 72  |cts file name fr|
000033a0  6f 6d 20 70 61 74 68 0d  12 d4 1f 20 20 f4 20 61  |om path....  . a|
000033b0  70 70 6c 69 63 61 74 69  6f 6e 20 69 6e 64 65 70  |pplication indep|
000033c0  65 6e 64 61 6e 74 0d 12  de 11 20 20 ea 20 70 6f  |endant....  . po|
000033d0  73 69 74 69 6f 6e 25 0d  12 e8 1d 20 20 70 6f 73  |sition%....  pos|
000033e0  69 74 69 6f 6e 25 20 3d  20 a7 70 61 74 68 24 2c  |ition% = .path$,|
000033f0  22 2e 22 29 0d 12 f2 17  20 20 c8 95 20 70 6f 73  |".")....  .. pos|
00003400  69 74 69 6f 6e 25 20 3c  3e 20 30 0d 12 fc 2c 20  |ition% <> 0..., |
00003410  20 20 20 70 61 74 68 24  20 3d 20 c2 70 61 74 68  |   path$ = .path|
00003420  24 2c a9 28 70 61 74 68  24 29 20 2d 20 70 6f 73  |$,.(path$) - pos|
00003430  69 74 69 6f 6e 25 29 0d  13 06 1f 20 20 20 20 70  |ition%)....    p|
00003440  6f 73 69 74 69 6f 6e 25  20 3d 20 a7 70 61 74 68  |osition% = .path|
00003450  24 2c 22 2e 22 29 0d 13  10 07 20 20 ce 0d 13 1a  |$,".")....  ....|
00003460  0a 3d 70 61 74 68 24 0d  13 24 04 0d 13 2e 10 dd  |.=path$..$......|
00003470  a4 70 61 64 28 74 65 78  74 24 29 0d 13 38 43 20  |.pad(text$)..8C |
00003480  20 f4 20 70 61 64 73 20  74 65 78 74 20 77 69 74  | . pads text wit|
00003490  68 20 73 70 61 63 65 28  73 29 20 74 6f 20 62 65  |h space(s) to be|
000034a0  20 6e 65 78 74 20 6d 75  6c 74 69 70 6c 65 20 6f  | next multiple o|
000034b0  66 20 34 20 63 68 61 72  73 20 77 69 64 65 0d 13  |f 4 chars wide..|
000034c0  42 1f 20 20 f4 20 61 70  70 6c 69 63 61 74 69 6f  |B.  . applicatio|
000034d0  6e 20 69 6e 64 65 70 65  6e 64 61 6e 74 0d 13 4c  |n independant..L|
000034e0  0c 20 20 ea 20 6c 65 6e  25 0d 13 56 07 20 20 f5  |.  . len%..V.  .|
000034f0  0d 13 60 12 20 20 74 65  78 74 24 20 2b 3d 20 22  |..`.  text$ += "|
00003500  20 22 0d 13 6a 13 20 20  6c 65 6e 25 3d a9 28 74  | "..j.  len%=.(t|
00003510  65 78 74 24 29 0d 13 74  14 20 20 fd 20 6c 65 6e  |ext$)..t.  . len|
00003520  25 20 83 20 34 20 3d 20  30 0d 13 7e 0a 3d 74 65  |% . 4 = 0..~.=te|
00003530  78 74 24 0d 13 88 04 0d  13 92 10 dd a4 73 74 72  |xt$..........str|
00003540  69 6e 67 28 61 25 29 0d  13 9c 2b 20 20 f4 20 65  |ing(a%)...+  . e|
00003550  78 74 61 63 74 73 20 43  20 73 74 79 6c 65 20 30  |xtacts C style 0|
00003560  20 74 65 72 6d 69 6e 61  74 65 64 20 73 74 72 69  | terminated stri|
00003570  6e 67 0d 13 a6 1f 20 20  f4 20 61 70 70 6c 69 63  |ng....  . applic|
00003580  61 74 69 6f 6e 20 69 6e  64 65 70 65 6e 64 61 6e  |ation independan|
00003590  74 0d 13 b0 0a 20 20 ea  20 62 24 0d 13 ba 0b 20  |t....  . b$.... |
000035a0  20 62 24 3d 22 22 0d 13  c4 0f 20 20 c8 95 20 3f  | b$=""....  .. ?|
000035b0  61 25 3c 3e 30 0d 13 ce  10 20 20 20 20 62 24 2b  |a%<>0....    b$+|
000035c0  3d bd 3f 61 25 0d 13 d8  0d 20 20 20 20 61 25 2b  |=.?a%....    a%+|
000035d0  3d 31 0d 13 e2 07 20 20  ce 0d 13 ec 07 3d 62 24  |=1....  .....=b$|
000035e0  0d 13 f6 04 0d 14 00 1e  dd 20 a4 66 6f 72 63 65  |......... .force|
000035f0  5f 6c 6f 77 65 72 5f 63  61 73 65 28 74 65 78 74  |_lower_case(text|
00003600  24 29 0d 14 0a 1f 20 20  f4 20 61 70 70 6c 69 63  |$)....  . applic|
00003610  61 74 69 6f 6e 20 69 6e  64 65 70 65 6e 64 61 6e  |ation independan|
00003620  74 0d 14 14 13 20 20 ea  20 6c 6f 6f 70 25 2c 20  |t....  . loop%, |
00003630  63 68 72 25 0d 14 1e 1a  20 20 e3 20 6c 6f 6f 70  |chr%....  . loop|
00003640  25 3d 31 20 b8 20 a9 28  74 65 78 74 24 29 0d 14  |%=1 . .(text$)..|
00003650  28 1f 20 20 20 20 63 68  72 25 3d 97 28 c1 74 65  |(.    chr%=.(.te|
00003660  78 74 24 2c 6c 6f 6f 70  25 2c 31 29 29 0d 14 32  |xt$,loop%,1))..2|
00003670  1d 20 20 20 20 e7 20 63  68 72 25 3e 36 34 20 80  |.    . chr%>64 .|
00003680  20 63 68 72 25 3c 39 31  20 8c 0d 14 3c 24 20 20  | chr%<91 ...<$  |
00003690  20 20 20 20 c1 74 65 78  74 24 2c 6c 6f 6f 70 25  |    .text$,loop%|
000036a0  2c 31 29 3d bd 28 63 68  72 25 2b 33 32 29 0d 14  |,1)=.(chr%+32)..|
000036b0  46 09 20 20 20 20 cd 0d  14 50 07 20 20 ed 0d 14  |F.    ...P.  ...|
000036c0  5a 0a 3d 74 65 78 74 24  0d 14 64 04 0d 14 6e 17  |Z.=text$..d...n.|
000036d0  dd f2 70 72 69 6e 74 5f  6c 69 6e 65 28 6c 69 6e  |..print_line(lin|
000036e0  65 24 29 0d 14 78 1d 20  20 f4 20 73 65 6e 64 73  |e$)..x.  . sends|
000036f0  20 6c 69 6e 65 20 74 6f  20 70 72 69 6e 74 65 72  | line to printer|
00003700  0d 14 82 1f 20 20 f4 20  61 70 70 6c 69 63 61 74  |....  . applicat|
00003710  69 6f 6e 20 69 6e 64 65  70 65 6e 64 61 6e 74 0d  |ion independant.|
00003720  14 8c 30 20 20 f4 20 73  69 64 65 20 65 66 66 65  |..0  . side effe|
00003730  63 74 73 20 74 75 72 6e  73 20 70 72 69 6e 74 65  |cts turns printe|
00003740  72 20 6f 66 66 20 77 69  74 68 20 56 44 55 33 0d  |r off with VDU3.|
00003750  14 96 0d 20 20 ea 20 6c  6f 6f 70 25 0d 14 a0 08  |...  . loop%....|
00003760  20 20 ef 32 0d 14 aa 1a  20 20 e3 20 6c 6f 6f 70  |  .2....  . loop|
00003770  25 3d 31 20 b8 20 a9 28  6c 69 6e 65 24 29 0d 14  |%=1 . .(line$)..|
00003780  b4 1d 20 20 20 20 ef 31  2c 97 28 c1 6c 69 6e 65  |..    .1,.(.line|
00003790  24 2c 6c 6f 6f 70 25 2c  31 29 29 0d 14 be 07 20  |$,loop%,1)).... |
000037a0  20 ed 0d 14 c8 12 20 20  ef 31 2c 31 30 2c 31 2c  | .....  .1,10,1,|
000037b0  31 33 2c 33 0d 14 d2 05  e1 0d 14 dc 04 0d 14 e6  |13,3............|
000037c0  1e dd 20 a4 73 65 6e 64  5f 70 72 69 6e 74 65 72  |.. .send_printer|
000037d0  28 66 75 6e 63 74 69 6f  6e 24 29 0d 14 f0 2c 20  |(function$)..., |
000037e0  20 f4 20 73 65 6e 64 73  20 63 6f 6e 74 72 6f 6c  | . sends control|
000037f0  20 73 65 71 75 65 6e 63  65 73 20 74 6f 20 61 20  | sequences to a |
00003800  70 72 69 6e 74 65 72 0d  14 fa 3c 20 20 f4 20 70  |printer...<  . p|
00003810  72 69 6e 74 65 72 20 63  6f 6e 74 72 6f 6c 20 63  |rinter control c|
00003820  6f 64 65 73 20 66 6f 72  20 53 74 61 72 2d 4c 43  |odes for Star-LC|
00003830  31 30 20 69 6e 20 73 74  61 6e 64 61 72 64 20 6d  |10 in standard m|
00003840  6f 64 65 0d 15 04 27 20  20 f4 20 64 65 70 65 6e  |ode...'  . depen|
00003850  64 61 6e 74 20 6f 6e 20  46 4e 66 6f 72 63 65 5f  |dant on FNforce_|
00003860  6c 6f 77 65 72 5f 63 61  73 65 0d 15 0e 30 20 20  |lower_case...0  |
00003870  f4 20 73 69 64 65 20 65  66 66 65 63 74 73 20 74  |. side effects t|
00003880  75 72 6e 73 20 70 72 69  6e 74 65 72 20 6f 66 66  |urns printer off|
00003890  20 77 69 74 68 20 56 44  55 33 0d 15 18 2e 20 20  | with VDU3....  |
000038a0  66 75 6e 63 74 69 6f 6e  24 20 3d 20 a4 66 6f 72  |function$ = .for|
000038b0  63 65 5f 6c 6f 77 65 72  5f 63 61 73 65 28 66 75  |ce_lower_case(fu|
000038c0  6e 63 74 69 6f 6e 24 29  0d 15 22 37 f4 20 64 65  |nction$).."7. de|
000038d0  62 75 67 24 20 3d 20 46  4e 70 72 6f 62 6c 65 6d  |bug$ = FNproblem|
000038e0  28 54 52 55 45 2c 46 41  4c 53 45 2c 22 44 65 62  |(TRUE,FALSE,"Deb|
000038f0  75 67 3a 22 2b 66 75 6e  63 74 69 6f 6e 24 29 0d  |ug:"+function$).|
00003900  15 2c 08 20 20 ef 32 0d  15 36 14 20 20 c8 8e 20  |.,.  .2..6.  .. |
00003910  66 75 6e 63 74 69 6f 6e  24 20 ca 0d 15 40 25 20  |function$ ...@% |
00003920  20 20 20 c9 20 22 63 6f  6e 64 65 6e 73 65 64 22  |   . "condensed"|
00003930  20 20 20 20 20 20 20 20  20 20 3a ef 31 2c 31 35  |          :.1,15|
00003940  0d 15 4a 25 20 20 20 20  c9 20 22 63 6f 6e 64 65  |..J%    . "conde|
00003950  6e 73 65 64 5f 6f 66 66  22 20 20 20 20 20 20 3a  |nsed_off"      :|
00003960  ef 31 2c 31 38 0d 15 54  3e 20 20 20 20 c9 20 22  |.1,18..T>    . "|
00003970  63 6f 75 72 69 65 72 22  20 20 20 20 20 20 20 20  |courier"        |
00003980  20 20 20 20 3a ef 31 2c  32 37 2c 31 2c 31 30 37  |    :.1,27,1,107|
00003990  2c 31 2c 30 2c 31 2c 32  37 2c 31 2c 31 32 30 2c  |,1,0,1,27,1,120,|
000039a0  31 2c 31 0d 15 5e 30 20  20 20 20 c9 20 22 64 6f  |1,1..^0    . "do|
000039b0  75 62 6c 65 20 68 69 67  68 22 20 20 20 20 20 20  |uble high"      |
000039c0  20 20 3a ef 31 2c 32 37  2c 31 2c 31 31 39 2c 31  |  :.1,27,1,119,1|
000039d0  2c 34 39 0d 15 68 2f 20  20 20 20 c9 20 22 64 6f  |,49..h/    . "do|
000039e0  75 62 6c 65 5f 68 65 69  67 68 74 5f 6f 66 66 22  |uble_height_off"|
000039f0  20 20 3a ef 31 2c 32 37  2c 31 2c 31 31 39 2c 31  |  :.1,27,1,119,1|
00003a00  2c 30 0d 15 72 2f 20 20  20 20 c9 20 22 64 6f 75  |,0..r/    . "dou|
00003a10  62 6c 65 20 73 69 7a 65  22 20 20 20 20 20 20 20  |ble size"       |
00003a20  20 3a ef 31 2c 32 37 2c  31 2c 31 30 34 2c 31 2c  | :.1,27,1,104,1,|
00003a30  31 0d 15 7c 2f 20 20 20  20 c9 20 22 64 6f 75 62  |1..|/    . "doub|
00003a40  6c 65 5f 73 69 7a 65 5f  6f 66 66 22 20 20 20 20  |le_size_off"    |
00003a50  3a ef 31 2c 32 37 2c 31  2c 31 30 34 2c 31 2c 30  |:.1,27,1,104,1,0|
00003a60  0d 15 86 2a 20 20 20 20  c9 20 22 64 6f 75 62 6c  |...*    . "doubl|
00003a70  65 20 73 74 72 22 20 20  20 20 20 20 20 20 20 3a  |e str"         :|
00003a80  ef 31 2c 32 37 2c 31 2c  37 31 0d 15 90 2a 20 20  |.1,27,1,71...*  |
00003a90  20 20 c9 20 22 64 6f 75  62 6c 65 5f 73 74 72 69  |  . "double_stri|
00003aa0  6b 65 5f 6f 66 66 22 20  20 3a ef 31 2c 32 37 2c  |ke_off"  :.1,27,|
00003ab0  31 2c 37 32 0d 15 9a 2f  20 20 20 20 c9 20 22 64  |1,72.../    . "d|
00003ac0  72 61 66 74 22 2c 22 6e  6c 71 5f 6f 66 66 22 20  |raft","nlq_off" |
00003ad0  20 20 20 3a ef 31 2c 32  37 2c 31 2c 31 32 30 2c  |   :.1,27,1,120,|
00003ae0  31 2c 30 0d 15 a4 2a 20  20 20 20 c9 20 22 65 6c  |1,0...*    . "el|
00003af0  69 74 65 22 20 20 20 20  20 20 20 20 20 20 20 20  |ite"            |
00003b00  20 20 3a ef 31 2c 32 37  2c 31 2c 37 37 0d 15 ae  |  :.1,27,1,77...|
00003b10  2a 20 20 20 20 c9 20 22  65 6d 70 68 61 73 69 7a  |*    . "emphasiz|
00003b20  65 64 22 20 20 20 20 20  20 20 20 20 3a ef 31 2c  |ed"         :.1,|
00003b30  32 37 2c 31 2c 36 39 0d  15 b8 2a 20 20 20 20 c9  |27,1,69...*    .|
00003b40  20 22 65 6d 70 68 61 73  69 7a 65 64 5f 6f 66 66  | "emphasized_off|
00003b50  22 20 20 20 20 20 3a ef  31 2c 32 37 2c 31 2c 37  |"     :.1,27,1,7|
00003b60  30 0d 15 c2 2f 20 20 20  20 c9 20 22 65 78 70 61  |0.../    . "expa|
00003b70  6e 64 65 64 22 20 20 20  20 20 20 20 20 20 20 20  |nded"           |
00003b80  3a ef 31 2c 32 37 2c 31  2c 38 37 2c 31 2c 34 39  |:.1,27,1,87,1,49|
00003b90  0d 15 cc 2f 20 20 20 20  c9 20 22 65 78 70 61 6e  |.../    . "expan|
00003ba0  64 65 64 5f 6f 66 66 22  20 20 20 20 20 20 20 3a  |ded_off"       :|
00003bb0  ef 31 2c 32 37 2c 31 2c  38 37 2c 31 2c 34 38 0d  |.1,27,1,87,1,48.|
00003bc0  15 d6 2a 20 20 20 20 c9  20 22 69 74 61 6c 69 63  |..*    . "italic|
00003bd0  22 20 20 20 20 20 20 20  20 20 20 20 20 20 3a ef  |"             :.|
00003be0  31 2c 32 37 2c 31 2c 35  32 0d 15 e0 2a 20 20 20  |1,27,1,52...*   |
00003bf0  20 c9 20 22 69 74 61 6c  69 63 5f 6f 66 66 22 20  | . "italic_off" |
00003c00  20 20 20 20 20 20 20 20  3a ef 31 2c 32 37 2c 31  |        :.1,27,1|
00003c10  2c 35 33 0d 15 ea 30 20  20 20 20 c9 20 22 6e 6c  |,53...0    . "nl|
00003c20  71 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |q"              |
00003c30  20 20 3a ef 31 2c 32 37  2c 31 2c 31 32 30 2c 31  |  :.1,27,1,120,1|
00003c40  2c 34 39 0d 15 f4 3e 20  20 20 20 c9 20 22 6f 72  |,49...>    . "or|
00003c50  61 74 6f 72 22 20 20 20  20 20 20 20 20 20 20 20  |ator"           |
00003c60  20 20 3a ef 31 2c 32 37  2c 31 2c 31 30 37 2c 31  |  :.1,27,1,107,1|
00003c70  2c 33 2c 31 2c 32 37 2c  31 2c 31 32 30 2c 31 2c  |,3,1,27,1,120,1,|
00003c80  31 0d 15 fe 3e 20 20 20  20 c9 20 22 6f 72 61 74  |1...>    . "orat|
00003c90  6f 72 20 73 63 22 20 20  20 20 20 20 20 20 20 20  |or sc"          |
00003ca0  3a ef 31 2c 32 37 2c 31  2c 31 30 37 2c 31 2c 32  |:.1,27,1,107,1,2|
00003cb0  2c 31 2c 32 37 2c 31 2c  31 32 30 2c 31 2c 31 0d  |,1,27,1,120,1,1.|
00003cc0  16 08 2f 20 20 20 20 c9  20 22 6f 76 65 72 6c 69  |../    . "overli|
00003cd0  6e 69 6e 67 22 20 20 20  20 20 20 20 20 20 3a ef  |ning"         :.|
00003ce0  31 2c 32 37 2c 31 2c 39  35 2c 31 2c 34 39 0d 16  |1,27,1,95,1,49..|
00003cf0  12 2f 20 20 20 20 c9 20  22 6f 76 65 72 6c 69 6e  |./    . "overlin|
00003d00  69 6e 67 5f 6f 66 66 22  20 20 20 20 20 3a ef 31  |ing_off"     :.1|
00003d10  2c 32 37 2c 31 2c 39 35  2c 31 2c 34 38 0d 16 1c  |,27,1,95,1,48...|
00003d20  2a 20 20 20 20 c9 20 22  70 69 63 61 22 20 20 20  |*    . "pica"   |
00003d30  20 20 20 20 20 20 20 20  20 20 20 20 3a ef 31 2c  |            :.1,|
00003d40  32 37 2c 31 2c 38 30 0d  16 26 31 20 20 20 20 c9  |27,1,80..&1    .|
00003d50  20 22 70 72 6f 70 2e 73  70 61 63 65 64 22 20 20  | "prop.spaced"  |
00003d60  20 20 20 20 20 20 20 3a  ef 31 2c 32 37 2c 31 2c  |       :.1,27,1,|
00003d70  31 31 32 2c 31 2c 34 39  0d 16 30 30 20 20 20 20  |112,1,49..00    |
00003d80  c9 20 22 70 72 6f 70 6f  72 74 69 6f 6e 61 6c 5f  |. "proportional_|
00003d90  6f 66 66 22 20 20 20 3a  ef 31 2c 32 37 2c 31 2c  |off"   :.1,27,1,|
00003da0  31 31 32 2c 31 2c 34 38  0d 16 3a 2f 20 20 20 20  |112,1,48..:/    |
00003db0  c9 20 22 71 75 61 64 20  73 69 7a 65 22 20 20 20  |. "quad size"   |
00003dc0  20 20 20 20 20 20 20 3a  ef 31 2c 32 37 2c 31 2c  |       :.1,27,1,|
00003dd0  31 30 34 2c 31 2c 32 0d  16 44 2f 20 20 20 20 c9  |104,1,2..D/    .|
00003de0  20 22 6e 6f 72 6d 61 6c  20 73 69 7a 65 22 20 20  | "normal size"  |
00003df0  20 20 20 20 20 20 3a ef  31 2c 32 37 2c 31 2c 31  |      :.1,27,1,1|
00003e00  30 34 2c 31 2c 30 0d 16  4e 2a 20 20 20 20 c9 20  |04,1,0..N*    . |
00003e10  22 72 65 73 65 74 22 20  20 20 20 20 20 20 20 20  |"reset"         |
00003e20  20 20 20 20 20 3a ef 31  2c 32 37 2c 31 2c 36 34  |     :.1,27,1,64|
00003e30  0d 16 58 30 20 20 20 20  c9 20 22 73 75 62 73 63  |..X0    . "subsc|
00003e40  72 69 70 74 22 20 20 20  20 20 20 20 20 20 20 3a  |ript"          :|
00003e50  ef 31 2c 32 37 2c 31 2c  38 33 20 2c 31 2c 34 39  |.1,27,1,83 ,1,49|
00003e60  0d 16 62 2a 20 20 20 20  c9 20 22 73 75 62 73 63  |..b*    . "subsc|
00003e70  72 69 70 74 5f 6f 66 66  22 20 20 20 20 20 20 3a  |ript_off"      :|
00003e80  ef 31 2c 32 37 2c 31 2c  38 34 0d 16 6c 30 20 20  |.1,27,1,84..l0  |
00003e90  20 20 c9 20 22 73 75 70  65 72 73 63 72 69 70 74  |  . "superscript|
00003ea0  22 20 20 20 20 20 20 20  20 3a ef 31 2c 32 37 2c  |"        :.1,27,|
00003eb0  31 2c 38 33 20 2c 31 2c  34 38 0d 16 76 2a 20 20  |1,83 ,1,48..v*  |
00003ec0  20 20 c9 20 22 73 75 70  65 72 73 63 72 69 70 74  |  . "superscript|
00003ed0  5f 6f 66 66 22 20 20 20  20 3a ef 31 2c 32 37 2c  |_off"    :.1,27,|
00003ee0  31 2c 38 34 0d 16 80 3e  20 20 20 20 c9 20 22 73  |1,84...>    . "s|
00003ef0  61 6e 73 20 73 65 72 69  66 22 20 20 20 20 20 20  |ans serif"      |
00003f00  20 20 20 3a ef 31 2c 32  37 2c 31 2c 31 30 37 2c  |   :.1,27,1,107,|
00003f10  31 2c 31 2c 31 2c 32 37  2c 31 2c 31 32 30 2c 31  |1,1,1,27,1,120,1|
00003f20  2c 31 0d 16 8a 2f 20 20  20 20 c9 20 22 75 6e 64  |,1.../    . "und|
00003f30  65 72 6c 69 6e 69 6e 67  22 20 20 20 20 20 20 20  |erlining"       |
00003f40  20 3a ef 31 2c 32 37 2c  31 2c 34 35 2c 31 2c 34  | :.1,27,1,45,1,4|
00003f50  39 0d 16 94 2f 20 20 20  20 c9 20 22 75 6e 64 65  |9.../    . "unde|
00003f60  72 6c 69 6e 69 6e 67 5f  6f 66 66 22 20 20 20 20  |rlining_off"    |
00003f70  3a ef 31 2c 32 37 2c 31  2c 34 35 2c 31 2c 34 38  |:.1,27,1,45,1,48|
00003f80  0d 16 9e 2e 20 20 20 20  c9 20 22 73 6b 69 70 20  |....    . "skip |
00003f90  70 65 72 66 2e 22 20 20  20 20 20 20 20 20 20 3a  |perf."         :|
00003fa0  ef 31 2c 32 37 2c 31 2c  37 38 2c 31 2c 34 0d 16  |.1,27,1,78,1,4..|
00003fb0  a8 39 20 20 20 20 7f 20  85 20 31 2c 22 53 65 6e  |.9    . . 1,"Sen|
00003fc0  64 5f 70 72 69 6e 74 65  72 20 75 6e 6b 6e 6f 77  |d_printer unknow|
00003fd0  6e 20 63 6f 6d 6d 61 6e  64 20 2d 20 22 2b 66 75  |n command - "+fu|
00003fe0  6e 63 74 69 6f 6e 24 0d  16 b2 07 20 20 cb 0d 16  |nction$....  ...|
00003ff0  bc 08 20 20 ef 33 0d 16  c6 06 3d b9 0d 16 d0 04  |..  .3....=.....|
00004000  0d 16 da 14 dd a4 72 65  61 64 76 61 72 28 6e 61  |......readvar(na|
00004010  6d 65 24 29 0d 16 e4 42  20 20 f4 20 72 65 74 75  |me$)...B  . retu|
00004020  72 6e 73 20 74 68 65 20  73 74 72 69 6e 67 20 63  |rns the string c|
00004030  6f 6e 74 61 69 6e 65 64  20 69 6e 20 61 6e 20 4f  |ontained in an O|
00004040  53 20 65 6e 76 69 72 6f  6e 6d 65 6e 74 20 76 61  |S environment va|
00004050  72 69 61 62 6c 65 0d 16  ee 1f 20 20 f4 20 61 70  |riable....  . ap|
00004060  70 6c 69 63 61 74 69 6f  6e 20 69 6e 64 65 70 65  |plication indepe|
00004070  6e 64 61 6e 74 0d 16 f8  29 20 20 ea 20 71 25 2c  |ndant...)  . q%,|
00004080  20 62 79 74 65 73 25 2c  20 6e 61 6d 65 25 2c 20  | bytes%, name%, |
00004090  6c 6f 6f 70 25 2c 20 72  65 73 75 6c 74 24 0d 17  |loop%, result$..|
000040a0  02 19 20 20 de 20 71 25  20 32 35 36 2c 20 6e 61  |..  . q% 256, na|
000040b0  6d 65 25 20 31 30 30 0d  17 0c 14 20 20 24 6e 61  |me% 100....  $na|
000040c0  6d 65 25 20 3d 20 6e 61  6d 65 24 0d 17 16 31 20  |me% = name$...1 |
000040d0  20 c8 99 20 4f 53 5f 52  65 61 64 56 61 72 56 61  | .. OS_ReadVarVa|
000040e0  6c 25 2c 6e 61 6d 65 25  2c 71 25 2c 32 35 36 2c  |l%,name%,q%,256,|
000040f0  30 20 b8 20 2c 2c 62 79  74 65 73 25 0d 17 20 10  |0 . ,,bytes%.. .|
00004100  20 20 72 65 73 75 6c 74  24 3d 22 22 0d 17 2a 1c  |  result$=""..*.|
00004110  20 20 e3 20 6c 6f 6f 70  25 3d 30 20 b8 20 62 79  |  . loop%=0 . by|
00004120  74 65 73 25 20 2d 20 31  0d 17 34 1d 20 20 20 20  |tes% - 1..4.    |
00004130  72 65 73 75 6c 74 24 20  2b 3d 20 bd 20 71 25 3f  |result$ += . q%?|
00004140  6c 6f 6f 70 25 0d 17 3e  07 20 20 ed 0d 17 48 0c  |loop%..>.  ...H.|
00004150  3d 72 65 73 75 6c 74 24  0d 17 52 04 0d 17 5c 3a  |=result$..R...\:|
00004160  f4 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.---------------|
00004170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004180  2d 2d 2d 2d 2d 2d 57 69  6d 70 20 4c 69 62 20 66  |------Wimp Lib f|
00004190  6f 6c 6c 6f 77 73 0d 17  66 04 0d 17 70 17 dd f2  |ollows..f...p...|
000041a0  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 28 71 25  |redraw_window(q%|
000041b0  29 0d 17 7a 0d 20 20 ea  20 6d 6f 72 65 25 0d 17  |)..z.  . more%..|
000041c0  84 27 20 20 c8 99 20 57  69 6d 70 5f 52 65 64 72  |.'  .. Wimp_Redr|
000041d0  61 77 57 69 6e 64 6f 77  25 2c 2c 71 25 20 b8 20  |awWindow%,,q% . |
000041e0  6d 6f 72 65 25 0d 17 8e  0e 20 20 c8 95 20 6d 6f  |more%....  .. mo|
000041f0  72 65 25 0d 17 98 14 20  20 20 20 85 20 30 2c 22  |re%....    . 0,"|
00004200  49 6e 6c 6f 6f 70 22 0d  17 a2 29 20 20 20 20 c8  |Inloop"...)    .|
00004210  99 20 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |. Wimp_GetRectan|
00004220  67 6c 65 25 2c 2c 71 25  20 b8 20 6d 6f 72 65 25  |gle%,,q% . more%|
00004230  0d 17 ac 07 20 20 ce 0d  17 b6 05 e1 0d 17 c0 04  |....  ..........|
00004240  0d 17 ca 15 dd f2 6f 70  65 6e 5f 77 69 6e 64 6f  |......open_windo|
00004250  77 28 71 25 29 0d 17 d4  1d 20 20 c8 99 20 57 69  |w(q%)....  .. Wi|
00004260  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 25 2c 2c  |mp_OpenWindow%,,|
00004270  71 25 0d 17 de 05 e1 0d  17 e8 04 0d 17 f2 16 dd  |q%..............|
00004280  f2 63 6c 6f 73 65 5f 77  69 6e 64 6f 77 28 71 25  |.close_window(q%|
00004290  29 0d 17 fc 1e 20 20 c8  99 20 57 69 6d 70 5f 43  |)....  .. Wimp_C|
000042a0  6c 6f 73 65 57 69 6e 64  6f 77 25 2c 2c 71 25 0d  |loseWindow%,,q%.|
000042b0  18 06 05 e1 0d 18 10 04  0d 18 1a 04 0d 18 24 04  |..............$.|
000042c0  0d 18 2e 25 dd f2 75 70  64 61 74 65 69 63 6f 6e  |...%..updateicon|
000042d0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 74  |(window%,icon%,t|
000042e0  65 78 74 24 29 0d 18 38  2b 20 20 f4 20 75 70 64  |ext$)..8+  . upd|
000042f0  61 74 65 73 20 74 68 65  20 73 74 72 69 6e 67 20  |ates the string |
00004300  69 6e 20 61 20 77 69 6e  64 6f 77 20 69 63 6f 6e  |in a window icon|
00004310  0d 18 42 1f 20 20 f4 20  61 70 70 6c 69 63 61 74  |..B.  . applicat|
00004320  69 6f 6e 20 69 6e 64 65  70 65 6e 64 61 6e 74 0d  |ion independant.|
00004330  18 4c 0d 20 20 ea 20 74  65 78 74 25 0d 18 56 2f  |.L.  . text%..V/|
00004340  20 20 69 63 6f 6e 5f 62  6c 6f 63 6b 25 21 30 3d  |  icon_block%!0=|
00004350  77 69 6e 64 6f 77 25 3a  69 63 6f 6e 5f 62 6c 6f  |window%:icon_blo|
00004360  63 6b 25 21 34 3d 69 63  6f 6e 25 0d 18 60 29 20  |ck%!4=icon%..`) |
00004370  20 c8 99 20 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | .. Wimp_GetIcon|
00004380  53 74 61 74 65 25 2c 30  2c 69 63 6f 6e 5f 62 6c  |State%,0,icon_bl|
00004390  6f 63 6b 25 0d 18 6a 1a  20 20 74 65 78 74 25 3d  |ock%..j.  text%=|
000043a0  69 63 6f 6e 5f 62 6c 6f  63 6b 25 21 32 38 0d 18  |icon_block%!28..|
000043b0  74 12 20 20 24 74 65 78  74 25 3d 74 65 78 74 24  |t.  $text%=text$|
000043c0  0d 18 7e 05 e1 0d 18 88  04 0d 18 92 1d dd a4 72  |..~............r|
000043d0  65 61 64 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |eadicon(window%,|
000043e0  69 63 6f 6e 25 29 0d 18  9c 21 20 20 f4 20 72 65  |icon%)...!  . re|
000043f0  61 64 73 20 74 68 65 20  74 65 78 74 20 69 6e 20  |ads the text in |
00004400  61 6e 20 69 63 6f 6e 0d  18 a6 1f 20 20 f4 20 61  |an icon....  . a|
00004410  70 70 6c 69 63 61 74 69  6f 6e 20 69 6e 64 65 70  |pplication indep|
00004420  65 6e 64 61 6e 74 0d 18  b0 0d 20 20 ea 20 74 65  |endant....  . te|
00004430  78 74 25 0d 18 ba 17 20  20 de 20 69 63 6f 6e 5f  |xt%....  . icon_|
00004440  62 6c 6f 63 6b 25 20 32  35 35 0d 18 c4 2f 20 20  |block% 255.../  |
00004450  69 63 6f 6e 5f 62 6c 6f  63 6b 25 21 30 3d 77 69  |icon_block%!0=wi|
00004460  6e 64 6f 77 25 3a 69 63  6f 6e 5f 62 6c 6f 63 6b  |ndow%:icon_block|
00004470  25 21 34 3d 69 63 6f 6e  25 0d 18 ce 29 20 20 c8  |%!4=icon%...)  .|
00004480  99 20 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |. Wimp_GetIconSt|
00004490  61 74 65 25 2c 30 2c 69  63 6f 6e 5f 62 6c 6f 63  |ate%,0,icon_bloc|
000044a0  6b 25 0d 18 d8 1a 20 20  74 65 78 74 25 3d 69 63  |k%....  text%=ic|
000044b0  6f 6e 5f 62 6c 6f 63 6b  25 21 32 38 0d 18 e2 0b  |on_block%!28....|
000044c0  3d 24 74 65 78 74 25 0d  18 ec 04 0d 18 f6 17 dd  |=$text%.........|
000044d0  f2 74 69 63 6b 28 6d 65  6e 75 25 2c 69 74 65 6d  |.tick(menu%,item|
000044e0  25 29 0d 19 00 22 20 20  f4 20 74 6f 67 67 6c 65  |%)..."  . toggle|
000044f0  20 74 69 63 6b 20 6f 6e  20 61 20 6d 65 6e 75 20  | tick on a menu |
00004500  69 74 65 6d 0d 19 0a 1f  20 20 f4 20 61 70 70 6c  |item....  . appl|
00004510  69 63 61 74 69 6f 6e 20  69 6e 64 65 70 65 6e 64  |ication independ|
00004520  61 6e 74 0d 19 14 10 20  20 ea 20 61 64 64 72 65  |ant....  . addre|
00004530  73 73 25 0d 19 1e 28 20  20 61 64 64 72 65 73 73  |ss%...(  address|
00004540  25 20 3d 20 6d 65 6e 75  25 20 2b 20 32 38 20 2b  |% = menu% + 28 +|
00004550  20 28 32 34 2a 69 74 65  6d 25 29 0d 19 28 23 20  | (24*item%)..(# |
00004560  20 61 64 64 72 65 73 73  25 21 30 20 3d 20 61 64  | address%!0 = ad|
00004570  64 72 65 73 73 25 21 30  20 82 20 26 30 31 0d 19  |dress%!0 . &01..|
00004580  32 05 e1 0d 19 3c 04 0d  19 46 19 dd f2 6e 6f 74  |2....<...F...not|
00004590  69 63 6b 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |ick(menu%,item%)|
000045a0  0d 19 50 24 20 20 f4 20  74 75 72 6e 20 6f 66 66  |..P$  . turn off|
000045b0  20 74 69 63 6b 20 6f 6e  20 61 20 6d 65 6e 75 20  | tick on a menu |
000045c0  69 74 65 6d 0d 19 5a 1f  20 20 f4 20 61 70 70 6c  |item..Z.  . appl|
000045d0  69 63 61 74 69 6f 6e 20  69 6e 64 65 70 65 6e 64  |ication independ|
000045e0  61 6e 74 0d 19 64 10 20  20 ea 20 61 64 64 72 65  |ant..d.  . addre|
000045f0  73 73 25 0d 19 6e 28 20  20 61 64 64 72 65 73 73  |ss%..n(  address|
00004600  25 20 3d 20 6d 65 6e 75  25 20 2b 20 32 38 20 2b  |% = menu% + 28 +|
00004610  20 28 32 34 2a 69 74 65  6d 25 29 0d 19 78 25 20  | (24*item%)..x% |
00004620  20 61 64 64 72 65 73 73  25 21 30 20 3d 20 61 64  | address%!0 = ad|
00004630  64 72 65 73 73 25 21 30  20 80 20 ac 20 26 30 31  |dress%!0 . . &01|
00004640  0d 19 82 05 e1 0d 19 8c  04 0d 19 96 26 dd a4 6d  |............&..m|
00004650  65 6e 75 28 61 64 64 72  65 73 73 25 2c 74 69 74  |enu(address%,tit|
00004660  6c 65 24 2c 6d 65 6e 75  77 69 64 74 68 25 29 0d  |le$,menuwidth%).|
00004670  19 a0 24 20 20 f4 20 62  75 69 6c 64 20 68 65 61  |..$  . build hea|
00004680  64 65 72 20 64 61 74 61  20 66 6f 72 20 61 20 6d  |der data for a m|
00004690  65 6e 75 0d 19 aa 1f 20  20 f4 20 61 70 70 6c 69  |enu....  . appli|
000046a0  63 61 74 69 6f 6e 20 69  6e 64 65 70 65 6e 64 65  |cation independe|
000046b0  6e 74 0d 19 b4 35 20 20  24 61 64 64 72 65 73 73  |nt...5  $address|
000046c0  25 20 20 20 3d 20 74 69  74 6c 65 24 20 20 20 20  |%   = title$    |
000046d0  20 20 20 20 20 20 20 20  20 20 3a f4 20 6d 65 6e  |          :. men|
000046e0  75 20 74 69 74 6c 65 0d  19 be 3b 20 20 61 64 64  |u title...;  add|
000046f0  72 65 73 73 25 3f 31 32  20 3d 20 37 20 20 20 20  |ress%?12 = 7    |
00004700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00004710  f4 20 73 74 61 6e 64 61  72 64 20 63 6f 6c 6f 75  |. standard colou|
00004720  72 73 0d 19 c8 15 20 20  61 64 64 72 65 73 73 25  |rs....  address%|
00004730  3f 31 33 20 3d 20 32 0d  19 d2 15 20 20 61 64 64  |?13 = 2....  add|
00004740  72 65 73 73 25 3f 31 34  20 3d 20 37 0d 19 dc 15  |ress%?14 = 7....|
00004750  20 20 61 64 64 72 65 73  73 25 3f 31 35 20 3d 20  |  address%?15 = |
00004760  30 0d 19 e6 39 20 20 61  64 64 72 65 73 73 25 21  |0...9  address%!|
00004770  31 36 20 3d 20 31 36 2b  28 31 36 2a 6d 65 6e 75  |16 = 16+(16*menu|
00004780  77 69 64 74 68 25 29 20  20 3a f4 20 77 69 64 74  |width%)  :. widt|
00004790  68 20 69 6e 20 63 68 61  72 73 0d 19 f0 31 20 20  |h in chars...1  |
000047a0  61 64 64 72 65 73 73 25  21 32 30 20 3d 20 34 30  |address%!20 = 40|
000047b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000047c0  20 20 3a f4 20 68 65 69  67 68 74 0d 19 fa 36 20  |  :. height...6 |
000047d0  20 61 64 64 72 65 73 73  25 21 32 34 20 3d 20 30  | address%!24 = 0|
000047e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000047f0  20 20 20 3a f4 20 67 61  70 20 62 65 74 77 65 65  |   :. gap betwee|
00004800  6e 0d 1a 04 10 3d 61 64  64 72 65 73 73 25 2b 32  |n....=address%+2|
00004810  38 0d 1a 0e 04 0d 1a 18  45 dd a4 6d 65 6e 75 69  |8.......E..menui|
00004820  74 65 6d 28 61 64 64 72  65 73 73 25 2c 69 74 65  |tem(address%,ite|
00004830  6d 6e 61 6d 65 24 2c 6d  65 6e 75 66 6c 61 67 73  |mname$,menuflags|
00004840  25 2c 4f 70 74 69 6f 6e  73 6d 65 6e 75 25 2c 69  |%,Optionsmenu%,i|
00004850  63 6f 6e 66 6c 61 67 73  25 29 0d 1a 22 22 20 20  |conflags%)..""  |
00004860  f4 20 62 75 69 6c 64 20  64 61 74 61 20 66 6f 72  |. build data for|
00004870  20 61 20 6d 65 6e 75 20  69 74 65 6d 0d 1a 2c 1f  | a menu item..,.|
00004880  20 20 f4 20 61 70 70 6c  69 63 61 74 69 6f 6e 20  |  . application |
00004890  69 6e 64 65 70 65 6e 64  65 6e 74 0d 1a 36 1d 20  |independent..6. |
000048a0  20 61 64 64 72 65 73 73  25 21 30 20 3d 20 6d 65  | address%!0 = me|
000048b0  6e 75 66 6c 61 67 73 25  0d 1a 40 1f 20 20 61 64  |nuflags%..@.  ad|
000048c0  64 72 65 73 73 25 21 34  20 3d 20 4f 70 74 69 6f  |dress%!4 = Optio|
000048d0  6e 73 6d 65 6e 75 25 0d  1a 4a 1d 20 20 61 64 64  |nsmenu%..J.  add|
000048e0  72 65 73 73 25 21 38 20  3d 20 69 63 6f 6e 66 6c  |ress%!8 = iconfl|
000048f0  61 67 73 25 0d 1a 54 20  20 20 24 28 61 64 64 72  |ags%..T   $(addr|
00004900  65 73 73 25 2b 31 32 29  20 3d 20 69 74 65 6d 6e  |ess%+12) = itemn|
00004910  61 6d 65 24 0d 1a 5e 10  3d 61 64 64 72 65 73 73  |ame$..^.=address|
00004920  25 2b 32 34 0d 1a 68 04  0d 1a 72 1c dd f2 68 65  |%+24..h...r...he|
00004930  6c 70 28 70 72 6f 67 5f  64 69 72 24 2c 74 69 74  |lp(prog_dir$,tit|
00004940  6c 65 24 29 0d 1a 7c 37  20 20 f4 20 74 79 70 65  |le$)..|7  . type|
00004950  73 20 20 21 68 65 6c 70  20 69 6e 20 63 6f 6d 6d  |s  !help in comm|
00004960  61 6e 64 20 77 69 6e 64  6f 77 20 69 6e 20 6e 6f  |and window in no|
00004970  73 63 72 6f 6c 6c 20 6d  6f 64 65 0d 1a 86 1f 20  |scroll mode.... |
00004980  20 f4 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 69  | . application i|
00004990  6e 64 65 70 65 6e 64 61  6e 74 0d 1a 90 0d 20 20  |ndependant....  |
000049a0  ea 20 68 65 6c 70 25 0d  1a 9a 11 20 20 de 20 68  |. help%....  . h|
000049b0  65 6c 70 25 20 32 35 35  0d 1a a4 13 20 20 24 68  |elp% 255....  $h|
000049c0  65 6c 70 25 3d 74 69 74  6c 65 24 0d 1a ae 22 20  |elp%=title$..." |
000049d0  20 c8 99 20 57 69 6d 70  5f 43 6f 6d 6d 61 6e 64  | .. Wimp_Command|
000049e0  57 69 6e 64 6f 77 25 2c  68 65 6c 70 25 0d 1a b8  |Window%,help%...|
000049f0  26 20 20 ff 28 22 2a 74  79 70 65 20 22 2b 70 72  |&  .("*type "+pr|
00004a00  6f 67 5f 64 69 72 24 2b  22 2e 21 68 65 6c 70 22  |og_dir$+".!help"|
00004a10  20 20 29 0d 1a c2 1e 20  20 c8 99 20 57 69 6d 70  |  )....  .. Wimp|
00004a20  5f 43 6f 6d 6d 61 6e 64  57 69 6e 64 6f 77 25 2c  |_CommandWindow%,|
00004a30  30 0d 1a cc 05 e1 0d 1a  d6 04 0d 1a e0 23 dd a4  |0............#..|
00004a40  70 72 6f 62 6c 65 6d 28  6f 6b 25 2c 63 61 6e 63  |problem(ok%,canc|
00004a50  65 6c 25 2c 70 72 6f 62  6c 65 6d 24 29 0d 1a ea  |el%,problem$)...|
00004a60  2c 20 20 f4 20 64 6f 65  73 20 65 72 72 6f 72 20  |,  . does error |
00004a70  72 65 70 6f 72 74 20 66  6f 72 20 6d 69 6e 6f 72  |report for minor|
00004a80  20 70 72 6f 62 6c 65 6d  73 0d 1a f4 1e 20 20 f4  | problems....  .|
00004a90  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 69 6e 64  | application ind|
00004aa0  65 70 6e 64 61 6e 74 0d  1a fe 20 20 20 f4 20 73  |epndant...   . s|
00004ab0  65 74 73 20 75 70 20 65  72 72 6f 72 20 64 61 74  |ets up error dat|
00004ac0  61 20 62 6c 6f 63 6b 0d  1b 08 2a 20 20 ea 20 70  |a block...*  . p|
00004ad0  72 6f 62 6c 65 6d 62 6c  6b 25 2c 66 6c 61 67 73  |roblemblk%,flags|
00004ae0  25 2c 63 68 6f 69 63 65  25 2c 72 65 73 75 6c 74  |%,choice%,result|
00004af0  24 0d 1b 12 18 20 20 de  20 70 72 6f 62 6c 65 6d  |$....  . problem|
00004b00  62 6c 6b 25 20 26 31 30  30 0d 1b 1c 19 20 20 c8  |blk% &100....  .|
00004b10  99 20 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  |. Hourglass_Smas|
00004b20  68 25 0d 1b 26 15 20 20  66 6c 61 67 73 25 20 3d  |h%..&.  flags% =|
00004b30  20 25 31 30 30 30 30 0d  1b 30 22 20 20 e7 20 6f  | %10000..0"  . o|
00004b40  6b 25 20 8c 20 66 6c 61  67 73 25 3d 20 66 6c 61  |k% . flags%= fla|
00004b50  67 73 25 20 84 20 25 30  31 0d 1b 3a 27 20 20 e7  |gs% . %01..:'  .|
00004b60  20 63 61 6e 63 65 6c 25  20 8c 20 66 6c 61 67 73  | cancel% . flags|
00004b70  25 20 3d 20 66 6c 61 67  73 25 20 84 20 25 31 30  |% = flags% . %10|
00004b80  0d 1b 44 19 20 20 21 70  72 6f 62 6c 65 6d 62 6c  |..D.  !problembl|
00004b90  6b 25 3d 66 6c 61 67 73  25 0d 1b 4e 1f 20 20 24  |k%=flags%..N.  $|
00004ba0  28 70 72 6f 62 6c 65 6d  62 6c 6b 25 2b 34 29 3d  |(problemblk%+4)=|
00004bb0  70 72 6f 62 6c 65 6d 24  0d 1b 58 29 20 20 70 72  |problem$..X)  pr|
00004bc0  6f 62 6c 65 6d 62 6c 6b  25 3f 28 34 2b a9 24 28  |oblemblk%?(4+.$(|
00004bd0  70 72 6f 62 6c 65 6d 62  6c 6b 25 2b 34 29 29 3d  |problemblk%+4))=|
00004be0  30 0d 1b 62 44 20 20 c8  99 20 57 69 6d 70 5f 52  |0..bD  .. Wimp_R|
00004bf0  65 70 6f 72 74 45 72 72  6f 72 25 2c 20 70 72 6f  |eportError%, pro|
00004c00  62 6c 65 6d 62 6c 6b 25  2c 66 6c 61 67 73 25 2c  |blemblk%,flags%,|
00004c10  22 44 69 73 63 4c 61 62  65 6c 22 20 b8 2c 63 68  |"DiscLabel" .,ch|
00004c20  6f 69 63 65 25 0d 1b 6c  12 20 20 c8 8e 20 63 68  |oice%..l.  .. ch|
00004c30  6f 69 63 65 25 20 ca 0d  1b 76 0b 20 20 20 20 c9  |oice% ...v.    .|
00004c40  20 30 0d 1b 80 18 20 20  20 20 20 20 72 65 73 75  | 0....      resu|
00004c50  6c 74 24 3d 22 6e 6f 6e  65 22 0d 1b 8a 0b 20 20  |lt$="none"....  |
00004c60  20 20 c9 20 31 0d 1b 94  16 20 20 20 20 20 20 72  |  . 1....      r|
00004c70  65 73 75 6c 74 24 3d 22  6f 6b 22 0d 1b 9e 0b 20  |esult$="ok".... |
00004c80  20 20 20 c9 20 32 0d 1b  a8 1a 20 20 20 20 20 20  |   . 2....      |
00004c90  72 65 73 75 6c 74 24 3d  22 63 61 6e 63 65 6c 22  |result$="cancel"|
00004ca0  0d 1b b2 09 20 20 20 20  7f 0d 1b bc 18 20 20 20  |....    .....   |
00004cb0  20 20 20 85 20 31 2c 22  57 69 6d 70 20 42 75 67  |   . 1,"Wimp Bug|
00004cc0  22 0d 1b c6 07 20 20 cb  0d 1b d0 0c 3d 72 65 73  |"....  .....=res|
00004cd0  75 6c 74 24 0d 1b da 04  0d 1b e4 18 dd f2 65 72  |ult$..........er|
00004ce0  72 6f 72 62 6f 78 28 61  70 70 6e 61 6d 65 24 29  |rorbox(appname$)|
00004cf0  0d 1b ee 19 20 20 f4 20  72 65 71 75 69 72 65 73  |....  . requires|
00004d00  20 46 4e 65 72 72 62 6c  6b 0d 1b f8 1f 20 20 f4  | FNerrblk....  .|
00004d10  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 69 6e 64  | application ind|
00004d20  65 70 65 6e 64 61 6e 74  0d 1c 02 0f 20 20 ea 20  |ependant....  . |
00004d30  72 65 73 75 6c 74 25 0d  1c 0c 08 20 20 ef 33 0d  |result%....  .3.|
00004d40  1c 16 1f 20 20 c8 99 20  57 69 6d 70 5f 43 6f 6d  |...  .. Wimp_Com|
00004d50  6d 61 6e 64 57 69 6e 64  6f 77 25 2c 2d 31 0d 1c  |mandWindow%,-1..|
00004d60  20 4e 20 20 c8 99 20 57  69 6d 70 5f 52 65 70 6f  | N  .. Wimp_Repo|
00004d70  72 74 45 72 72 6f 72 25  2c 20 a4 65 72 72 62 6c  |rtError%, .errbl|
00004d80  6b 28 61 70 70 6e 61 6d  65 24 2c 9f 2c f6 24 29  |k(appname$,.,.$)|
00004d90  2c 25 31 31 2c 22 44 69  73 63 4c 61 62 65 6c 22  |,%11,"DiscLabel"|
00004da0  20 b8 20 2c 72 65 73 75  6c 74 25 3a 0d 1c 2a 15  | . ,result%:..*.|
00004db0  20 20 e7 20 72 65 73 75  6c 74 25 20 3d 20 32 20  |  . result% = 2 |
00004dc0  8c 0d 1c 34 1a 20 20 20  20 c8 99 20 57 69 6d 70  |...4.    .. Wimp|
00004dd0  5f 43 6c 6f 73 65 44 6f  77 6e 25 0d 1c 3e 09 20  |_CloseDown%..>. |
00004de0  20 20 20 e0 0d 1c 48 07  20 20 cd 0d 1c 52 05 e1  |   ...H.  ...R..|
00004df0  0d 1c 5c 04 0d 1c 66 23  dd a4 65 72 72 62 6c 6b  |..\...f#..errblk|
00004e00  28 61 70 70 6e 61 6d 65  24 2c 65 72 72 25 2c 72  |(appname$,err%,r|
00004e10  65 70 6f 72 74 24 29 0d  1c 70 20 20 20 f4 20 73  |eport$)..p   . s|
00004e20  65 74 73 20 75 70 20 65  72 72 6f 72 20 64 61 74  |ets up error dat|
00004e30  61 20 62 6c 6f 63 6b 0d  1c 7a 0f 20 20 ea 20 65  |a block..z.  . e|
00004e40  72 72 62 6c 6b 25 0d 1c  84 14 20 20 de 20 65 72  |rrblk%....  . er|
00004e50  72 62 6c 6b 25 20 26 31  30 30 0d 1c 8e 19 20 20  |rblk% &100....  |
00004e60  c8 99 20 48 6f 75 72 67  6c 61 73 73 5f 53 6d 61  |.. Hourglass_Sma|
00004e70  73 68 25 0d 1c 98 13 20  20 21 65 72 72 62 6c 6b  |sh%....  !errblk|
00004e80  25 3d 65 72 72 25 0d 1c  a2 79 20 20 24 28 65 72  |%=err%...y  $(er|
00004e90  72 62 6c 6b 25 2b 34 29  3d 22 55 6e 64 6f 63 75  |rblk%+4)="Undocu|
00004ea0  6d 65 6e 74 65 64 20 66  65 61 74 75 72 65 3a 20  |mented feature: |
00004eb0  22 2b 72 65 70 6f 72 74  24 2b 22 20 41 74 20 6c  |"+report$+" At l|
00004ec0  69 6e 65 20 22 2b c3 9e  2b 22 2e 20 55 73 65 20  |ine "+..+". Use |
00004ed0  4f 4b 20 74 6f 20 63 6f  6e 74 69 6e 75 65 20 6f  |OK to continue o|
00004ee0  72 20 43 61 6e 63 65 6c  20 74 6f 20 6b 69 6c 6c  |r Cancel to kill|
00004ef0  20 22 2b 61 70 70 6e 61  6d 65 24 2b 22 2e 22 0d  | "+appname$+".".|
00004f00  1c ac 21 20 20 65 72 72  62 6c 6b 25 3f 28 34 2b  |..!  errblk%?(4+|
00004f10  a9 24 28 65 72 72 62 6c  6b 25 2b 34 29 29 3d 30  |.$(errblk%+4))=0|
00004f20  0d 1c b6 0c 3d 65 72 72  62 6c 6b 25 0d 1c c0 04  |....=errblk%....|
00004f30  0d 1c ca 10 dd f2 73 77  69 6e 75 6d 62 65 72 73  |......swinumbers|
00004f40  0d 1c d4 48 20 20 c8 99  20 22 4f 53 5f 53 57 49  |...H  .. "OS_SWI|
00004f50  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
00004f60  22 2c 2c 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |",,"OS_SWINumber|
00004f70  46 72 6f 6d 53 74 72 69  6e 67 22 20 b8 20 53 57  |FromString" . SW|
00004f80  49 6e 75 6d 62 65 72 25  0d 1c de 43 20 20 c8 99  |Inumber%...C  ..|
00004f90  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 4f 53  | SWInumber%,,"OS|
00004fa0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00004fb0  65 22 20 20 20 b8 20 4f  53 5f 52 65 61 64 4d 6f  |e"   . OS_ReadMo|
00004fc0  64 65 56 61 72 69 61 62  6c 65 25 0d 1c e8 3d 20  |deVariable%...= |
00004fd0  20 c8 99 20 53 57 49 6e  75 6d 62 65 72 25 2c 2c  | .. SWInumber%,,|
00004fe0  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 20  |"OS_ReadVarVal" |
00004ff0  20 20 20 20 20 20 20 20  b8 20 4f 53 5f 52 65 61  |        . OS_Rea|
00005000  64 56 61 72 56 61 6c 25  0d 1c f2 3e 20 20 c8 99  |dVarVal%...>  ..|
00005010  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
00005020  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 20 20 20  |mp_CloseDown"   |
00005030  20 20 20 20 20 b8 20 57  69 6d 70 5f 43 6c 6f 73  |     . Wimp_Clos|
00005040  65 44 6f 77 6e 25 0d 1c  fc 42 20 20 c8 99 20 53  |eDown%...B  .. S|
00005050  57 49 6e 75 6d 62 65 72  25 2c 2c 22 57 69 6d 70  |WInumber%,,"Wimp|
00005060  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 20  |_CloseTemplate" |
00005070  20 20 20 b8 20 57 69 6d  70 5f 43 6c 6f 73 65 54  |   . Wimp_CloseT|
00005080  65 6d 70 6c 61 74 65 25  0d 1d 06 40 20 20 c8 99  |emplate%...@  ..|
00005090  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
000050a0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 20  |mp_CloseWindow" |
000050b0  20 20 20 20 20 b8 20 57  69 6d 70 5f 43 6c 6f 73  |     . Wimp_Clos|
000050c0  65 57 69 6e 64 6f 77 25  0d 1d 10 42 20 20 c8 99  |eWindow%...B  ..|
000050d0  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
000050e0  6d 70 5f 43 6f 6d 6d 61  6e 64 57 69 6e 64 6f 77  |mp_CommandWindow|
000050f0  22 20 20 20 20 b8 20 57  69 6d 70 5f 43 6f 6d 6d  |"    . Wimp_Comm|
00005100  61 6e 64 57 69 6e 64 6f  77 25 0d 1d 1a 3f 20 20  |andWindow%...?  |
00005110  c8 99 20 53 57 49 6e 75  6d 62 65 72 25 2c 2c 22  |.. SWInumber%,,"|
00005120  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00005130  20 20 20 20 20 20 20 b8  20 57 69 6d 70 5f 43 72  |       . Wimp_Cr|
00005140  65 61 74 65 49 63 6f 6e  25 0d 1d 24 3f 20 20 c8  |eateIcon%..$?  .|
00005150  99 20 53 57 49 6e 75 6d  62 65 72 25 2c 2c 22 57  |. SWInumber%,,"W|
00005160  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 20  |imp_CreateMenu" |
00005170  20 20 20 20 20 20 b8 20  57 69 6d 70 5f 43 72 65  |      . Wimp_Cre|
00005180  61 74 65 4d 65 6e 75 25  0d 1d 2e 41 20 20 c8 99  |ateMenu%...A  ..|
00005190  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
000051a0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000051b0  20 20 20 20 20 b8 20 57  69 6d 70 5f 43 72 65 61  |     . Wimp_Crea|
000051c0  74 65 57 69 6e 64 6f 77  25 0d 1d 38 3f 20 20 c8  |teWindow%..8?  .|
000051d0  99 20 53 57 49 6e 75 6d  62 65 72 25 2c 2c 22 57  |. SWInumber%,,"W|
000051e0  69 6d 70 5f 44 65 63 6f  64 65 4d 65 6e 75 22 20  |imp_DecodeMenu" |
000051f0  20 20 20 20 20 20 b8 20  57 69 6d 70 5f 44 65 63  |      . Wimp_Dec|
00005200  6f 64 65 4d 65 6e 75 25  0d 1d 42 40 20 20 c8 99  |odeMenu%..B@  ..|
00005210  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
00005220  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 20  |mp_ForceRedraw" |
00005230  20 20 20 20 20 b8 20 57  69 6d 70 5f 46 6f 72 63  |     . Wimp_Forc|
00005240  65 52 65 64 72 61 77 25  0d 1d 4c 41 20 20 c8 99  |eRedraw%..LA  ..|
00005250  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
00005260  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00005270  20 20 20 20 20 b8 20 57  69 6d 70 5f 47 65 74 49  |     . Wimp_GetI|
00005280  63 6f 6e 53 74 61 74 65  25 0d 1d 56 43 20 20 c8  |conState%..VC  .|
00005290  99 20 53 57 49 6e 75 6d  62 65 72 25 2c 2c 22 57  |. SWInumber%,,"W|
000052a0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000052b0  66 6f 22 20 20 20 b8 20  57 69 6d 70 5f 47 65 74  |fo"   . Wimp_Get|
000052c0  50 6f 69 6e 74 65 72 49  6e 66 6f 25 0d 1d 60 41  |PointerInfo%..`A|
000052d0  20 20 c8 99 20 53 57 49  6e 75 6d 62 65 72 25 2c  |  .. SWInumber%,|
000052e0  2c 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |,"Wimp_GetRectan|
000052f0  67 6c 65 22 20 20 20 20  20 b8 20 57 69 6d 70 5f  |gle"     . Wimp_|
00005300  47 65 74 52 65 63 74 61  6e 67 6c 65 25 0d 1d 6a  |GetRectangle%..j|
00005310  42 20 20 c8 99 20 53 57  49 6e 75 6d 62 65 72 25  |B  .. SWInumber%|
00005320  2c 2c 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |,,"Wimp_GetWindo|
00005330  77 49 6e 66 6f 22 20 20  20 20 b8 20 57 69 6d 70  |wInfo"    . Wimp|
00005340  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 25 0d  |_GetWindowInfo%.|
00005350  1d 74 3f 20 20 c8 99 20  53 57 49 6e 75 6d 62 65  |.t?  .. SWInumbe|
00005360  72 25 2c 2c 22 57 69 6d  70 5f 49 6e 69 74 69 61  |r%,,"Wimp_Initia|
00005370  6c 69 73 65 22 20 20 20  20 20 20 20 b8 20 57 69  |lise"       . Wi|
00005380  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 25 0d 1d  |mp_Initialise%..|
00005390  7e 41 20 20 c8 99 20 53  57 49 6e 75 6d 62 65 72  |~A  .. SWInumber|
000053a0  25 2c 2c 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |%,,"Wimp_LoadTem|
000053b0  70 6c 61 74 65 22 20 20  20 20 20 b8 20 57 69 6d  |plate"     . Wim|
000053c0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 25 0d  |p_LoadTemplate%.|
000053d0  1d 88 41 20 20 c8 99 20  53 57 49 6e 75 6d 62 65  |..A  .. SWInumbe|
000053e0  72 25 2c 2c 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |r%,,"Wimp_OpenTe|
000053f0  6d 70 6c 61 74 65 22 20  20 20 20 20 b8 20 57 69  |mplate"     . Wi|
00005400  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 25  |mp_OpenTemplate%|
00005410  0d 1d 92 3f 20 20 c8 99  20 53 57 49 6e 75 6d 62  |...?  .. SWInumb|
00005420  65 72 25 2c 2c 22 57 69  6d 70 5f 4f 70 65 6e 57  |er%,,"Wimp_OpenW|
00005430  69 6e 64 6f 77 22 20 20  20 20 20 20 20 b8 20 57  |indow"       . W|
00005440  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 25 0d  |imp_OpenWindow%.|
00005450  1d 9c 39 20 20 c8 99 20  53 57 49 6e 75 6d 62 65  |..9  .. SWInumbe|
00005460  72 25 2c 2c 22 57 69 6d  70 5f 50 6f 6c 6c 22 20  |r%,,"Wimp_Poll" |
00005470  20 20 20 20 20 20 20 20  20 20 20 20 b8 20 57 69  |            . Wi|
00005480  6d 70 5f 50 6f 6c 6c 25  0d 1d a6 3f 20 20 c8 99  |mp_Poll%...?  ..|
00005490  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
000054a0  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 20 20  |mp_ProcessKey"  |
000054b0  20 20 20 20 20 b8 20 57  69 6d 70 5f 50 72 6f 63  |     . Wimp_Proc|
000054c0  65 73 73 4b 65 79 25 0d  1d b0 41 20 20 c8 99 20  |essKey%...A  .. |
000054d0  53 57 49 6e 75 6d 62 65  72 25 2c 2c 22 57 69 6d  |SWInumber%,,"Wim|
000054e0  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 20  |p_RedrawWindow" |
000054f0  20 20 20 20 b8 20 57 69  6d 70 5f 52 65 64 72 61  |    . Wimp_Redra|
00005500  77 57 69 6e 64 6f 77 25  0d 1d ba 40 20 20 c8 99  |wWindow%...@  ..|
00005510  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
00005520  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 20  |mp_ReportError" |
00005530  20 20 20 20 20 b8 20 57  69 6d 70 5f 52 65 70 6f  |     . Wimp_Repo|
00005540  72 74 45 72 72 6f 72 25  0d 1d c4 40 20 20 c8 99  |rtError%...@  ..|
00005550  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
00005560  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 20  |mp_SendMessage" |
00005570  20 20 20 20 20 b8 20 57  69 6d 70 5f 53 65 6e 64  |     . Wimp_Send|
00005580  4d 65 73 73 61 67 65 25  0d 1d ce 45 20 20 c8 99  |Message%...E  ..|
00005590  20 53 57 49 6e 75 6d 62  65 72 25 2c 2c 22 57 69  | SWInumber%,,"Wi|
000055a0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
000055b0  69 6f 6e 22 20 b8 20 57  69 6d 70 5f 53 65 74 43  |ion" . Wimp_SetC|
000055c0  61 72 65 74 50 6f 73 69  74 69 6f 6e 25 0d 1d d8  |aretPosition%...|
000055d0  3d 20 20 c8 99 20 53 57  49 6e 75 6d 62 65 72 25  |=  .. SWInumber%|
000055e0  2c 2c 22 57 69 6d 70 5f  53 70 72 69 74 65 4f 70  |,,"Wimp_SpriteOp|
000055f0  22 20 20 20 20 20 20 20  20 20 b8 20 57 69 6d 70  |"         . Wimp|
00005600  5f 53 70 72 69 74 65 4f  70 25 0d 1d e2 36 20 20  |_SpriteOp%...6  |
00005610  c8 99 20 53 57 49 6e 75  6d 62 65 72 25 2c 2c 22  |.. SWInumber%,,"|
00005620  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 20 20 20  |Hourglass_On"   |
00005630  20 b8 20 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 25  | . Hourglass_On%|
00005640  0d 1d ec 37 20 20 c8 99  20 53 57 49 6e 75 6d 62  |...7  .. SWInumb|
00005650  65 72 25 2c 2c 22 48 6f  75 72 67 6c 61 73 73 5f  |er%,,"Hourglass_|
00005660  4f 66 66 22 20 20 20 b8  20 48 6f 75 72 67 6c 61  |Off"   . Hourgla|
00005670  73 73 5f 4f 66 66 25 0d  1d f6 39 20 20 c8 99 20  |ss_Off%...9  .. |
00005680  53 57 49 6e 75 6d 62 65  72 25 2c 2c 22 48 6f 75  |SWInumber%,,"Hou|
00005690  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 20 b8 20  |rglass_Smash" . |
000056a0  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 25  |Hourglass_Smash%|
000056b0  0d 1e 00 05 e1 0d 1e 0a  04 0d 1e 14 1f dd f2 6f  |...............o|
000056c0  70 65 6e 63 6c 6f 73 65  64 77 69 6e 64 6f 77 28  |penclosedwindow(|
000056d0  77 69 6e 64 6f 77 25 29  0d 1e 1e 38 20 20 f4 20  |window%)...8  . |
000056e0  6f 70 65 6e 73 20 61 20  63 6c 6f 73 65 64 20 77  |opens a closed w|
000056f0  69 6e 64 6f 77 20 69 65  20 6e 6f 74 20 63 75 72  |indow ie not cur|
00005700  72 65 6e 74 6c 79 20 6f  6e 20 73 63 72 65 65 6e  |rently on screen|
00005710  0d 1e 28 1f 20 20 f4 20  61 70 70 6c 69 63 61 74  |..(.  . applicat|
00005720  69 6f 6e 20 69 6e 64 65  70 65 6e 64 61 6e 74 0d  |ion independant.|
00005730  1e 32 0a 20 20 ea 20 71  25 0d 1e 3c 0f 20 20 de  |.2.  . q%..<.  .|
00005740  20 71 25 20 31 30 30 30  0d 1e 46 16 20 20 71 25  | q% 1000..F.  q%|
00005750  21 30 3d 64 69 73 63 77  69 6e 64 6f 77 25 0d 1e  |!0=discwindow%..|
00005760  50 20 20 20 c8 99 20 57  69 6d 70 5f 47 65 74 57  |P   .. Wimp_GetW|
00005770  69 6e 64 6f 77 49 6e 66  6f 25 2c 2c 71 25 0d 1e  |indowInfo%,,q%..|
00005780  5a 1d 20 20 c8 99 20 57  69 6d 70 5f 4f 70 65 6e  |Z.  .. Wimp_Open|
00005790  57 69 6e 64 6f 77 25 2c  2c 71 25 0d 1e 64 05 e1  |Window%,,q%..d..|
000057a0  0d 1e 6e 41 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..nA------------|
000057b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000057e0  2d 0d 1e 78 04 0d 1e 82  22 f4 20 75 6e 64 65 72  |-..x....". under|
000057f0  20 64 65 76 65 6c 6f 70  6d 65 6e 74 20 62 65 6c  | development bel|
00005800  6f 77 20 68 65 72 65 0d  1e 8c 04 0d 1e 96 04 0d  |ow here.........|
00005810  1e a0 0a dd a4 73 6c 6f  74 0d 1e aa 0f 20 20 ea  |.....slot....  .|
00005820  20 66 69 6e 69 73 68 25  0d 1e b4 11 20 20 de 20  | finish%....  . |
00005830  66 69 6e 69 73 68 25 20  30 0d 1e be 11 3d 20 66  |finish% 0....= f|
00005840  69 6e 69 73 68 25 20 2d  20 90 0d 1e c8 04 0d 1e  |inish% - .......|
00005850  d2 04 0d 1e dc 12 dd 20  f2 73 61 76 65 5f 63 6f  |....... .save_co|
00005860  6e 66 69 67 0d 1e e6 0d  20 20 ea 20 69 63 6f 6e  |nfig....  . icon|
00005870  25 0d 1e f0 27 20 20 66  69 6c 65 25 3d ae 28 70  |%...'  file%=.(p|
00005880  72 6f 67 5f 64 69 72 24  20 2b 20 22 2e 43 6f 6e  |rog_dir$ + ".Con|
00005890  66 69 67 75 72 65 22 29  0d 1e fa 15 20 20 e3 20  |figure")....  . |
000058a0  69 63 6f 6e 25 3d 31 35  20 b8 20 31 37 0d 1f 04  |icon%=15 . 17...|
000058b0  2e 20 20 20 20 f1 23 66  69 6c 65 25 2c 20 a4 72  |.    .#file%, .r|
000058c0  65 61 64 69 63 6f 6e 28  64 69 73 63 77 69 6e 64  |eadicon(discwind|
000058d0  6f 77 25 2c 20 69 63 6f  6e 25 29 0d 1f 0e 07 20  |ow%, icon%).... |
000058e0  20 ed 0d 1f 18 0d 20 20  d9 23 66 69 6c 65 25 0d  | .....  .#file%.|
000058f0  1f 22 05 e1 0d 1f 2c 04  0d 1f 36 12 dd 20 f2 6c  |."....,...6.. .l|
00005900  6f 61 64 5f 63 6f 6e 66  69 67 0d 1f 40 14 20 20  |oad_config..@.  |
00005910  ea 20 69 63 6f 6e 25 2c  20 74 65 78 74 24 0d 1f  |. icon%, text$..|
00005920  4a 27 20 20 66 69 6c 65  25 3d 8e 28 70 72 6f 67  |J'  file%=.(prog|
00005930  5f 64 69 72 24 20 2b 20  22 2e 43 6f 6e 66 69 67  |_dir$ + ".Config|
00005940  75 72 65 22 29 0d 1f 54  15 20 20 e3 20 69 63 6f  |ure")..T.  . ico|
00005950  6e 25 3d 31 35 20 b8 20  31 37 0d 1f 5e 16 20 20  |n%=15 . 17..^.  |
00005960  20 20 e8 23 66 69 6c 65  25 2c 20 74 65 78 74 24  |  .#file%, text$|
00005970  0d 1f 68 2e 20 20 20 20  f2 75 70 64 61 74 65 69  |..h.    .updatei|
00005980  63 6f 6e 28 64 69 73 63  77 69 6e 64 6f 77 25 2c  |con(discwindow%,|
00005990  20 69 63                                          | ic|
00005993

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