�>!runimage

� � �error
(
2� task% 5:$task%="TASK"
<<ș"Wimp_Initialise",200,!task%,"runonly" � ,task_handle%
Fș"Hourglass_On"
P�initialise
Z�show_pics
d)ș"Wimp_CloseDown",task_handle%,task%
n�
x
�
�� �initialise
�
�  � � �error
�� error_blk% 256
�  �check_mode_15
� � general_block% 32
� � pic_name_table% 240*4
� � picture_table% 240
�  � picture_length_table% 240
�$ � picture_filelength_table% 240
� � picture_id_table% 60
� � picture_time_table% 240

 � icon_table% 240

 � transition_id_table% 60

 � palette_table_12% 240

" � play_palette% 64

,  � screen_buffer% (161*1024)

6 � mode12_buffer% 16

@ � inputlist% 12

J � outputlist% 12

T � temp 64

^ � block_no%(256)

h

r  �scrnbse

|  �read_init_palette

�

�  �load_assy

�

�  �load_seq

�  �timetable

�
  �random

�  ș"Hourglass_Off"

��

�

�

�

�

�



&
0� �show_pics
:B  � pic_addr%,ct%,len%,picno%,exit_flag%,ptr_flag%,mx%,my%,mk%
D  � flush keyboard
N  ș"OS_Byte",21,0
X  exit_flag%=0
b  ptr_flag%=0
l  � no_of_pics%>0 �
v    *POINTER 0
�	    �
�      picno%=1
�.      pic_addr%=picture_table%!(picno%<<2)
�G      len%=picture_length_table%!(picno%<<2):� 0=uncompressedscreen
�A      �load_buffer(len%,pic_addr%,picture_id_table%?(picno%))
�%      �set_palette(play_palette%)
�;      �copy_full_screen(screen_buffer%,scrnbase_0%,160)
�      �choose_pic_delay
�      picno%=picno%+1
�/      ȕ picno%<=no_of_pics% � exit_flag%=0
�0        pic_addr%=picture_table%!(picno%<<2)
�I        len%=picture_length_table%!(picno%<<2):� 0=uncompressedscreen
�C        �load_buffer(len%,pic_addr%,picture_id_table%?(picno%))
_        �transition(transition_id_table%?(picno%-1),transition_time_table%!((picno%-1)<<2))
,        � display pic for its given time
        �choose_pic_delay
         picno%=picno%+1
*        � �(1)<>-1 �
4          exit_flag%=1
>
        �
H      �
R%    � exit_flag%=1 � loop_flag%=0
\&    �set_palette(initial_palette%)
f    *POINTER
p-    ș"Wimp_ForceRedraw",-1,0,0,1280,1024
z  �
�	  � 7
��
�
�
�� �choose_pic_delay
�-   � picture_time_table%!(picno%<<2)>-1 �
�0     �delay(picture_time_table%!(picno%<<2))
�   �
�
     �
�       ȗ mx%,my%,mk%
�"       � mk%=4 � ptr_flag%=0 �
�         *POINTER
�         ptr_flag%=1
       �
%         � mk%<>4 � ptr_flag%=1 �
         *POINTER 0
$         ptr_flag%=0
.         �
8       �
B(     � mk%=1 � mk%=2 � mk%=5 � mk%=6
L   �
V�
`
j-� �load_buffer(length%,picture_addr%,id%)
t
~    Ȏ id% �
�      � 0,2
�?        �copy_full_screen(picture_addr%,screen_buffer%,160)
�      � 1,3
�        A%=screen_buffer%
�        B%=picture_addr%
�        C%=length%
�        � dcoder%
�      � 4,6
�8        �setpalette12(palette_table_12%!(picno%<<2))
�        A%=screen_buffer%
�        B%=picture_addr%
�        C%=mode12_buffer%
        � mode_12_to_15%

      � 5,7
8        �setpalette12(palette_table_12%!(picno%<<2))
        A%=screen_buffer%
(        B%=picture_addr%
2        C%=length%
<        D%=mode12_buffer%
F        � dcoder_12%
P	    �
Z�
d
n� �delay(n%)
x	  �=0
�  �
�    � �(1)<>-1 �
�      exit_flag%=1
�	    �
�  � �>n% � exit_flag%=1
��
�
�� �transition(id%,t_time%)
�
�  Ȏ id% �
�
    � 0:�cut
2    � 1:�d_slide(screen_buffer%,scrnbase_0%,4)
2    � 2:�h_slide(screen_buffer%,scrnbase_0%,4)
"5    � 3:�h_slots(screen_buffer%,scrnbase_0%,16,8)
,7    � 4:�h_venitian(screen_buffer%,scrnbase_0%,6,2)
67    � 5:�h_curtains(screen_buffer%,scrnbase_0%,2,1)
@;    � 6:�both_curtains(screen_buffer%,scrnbase_0%,4,-1)
J    � 7:�fade(t_time%)
T2    � 8:�d_slide(screen_buffer%,scrnbase_0%,1)
^3    � 9:�h_slide(screen_buffer%,scrnbase_0%,-4)
h7    � 10:�lh_slots(screen_buffer%,scrnbase_0%,16,8)
r9    � 11:�h_venitian(screen_buffer%,scrnbase_0%,6,-2)
|9    � 12:�h_curtains(screen_buffer%,scrnbase_0%,2,-1)
�;    � 13:�both_curtains(screen_buffer%,scrnbase_0%,4,1)
�    � 14:�fader
�3    � 15:�d_slide(screen_buffer%,scrnbase_0%,2)
�3    � 16:�v_slide(screen_buffer%,scrnbase_0%,8)
�6    � 17:�v_slots(screen_buffer%,scrnbase_0%,32,8)
�9    � 18:�v_venitian(screen_buffer%,scrnbase_0%,12,4)
�9    � 19:�v_curtains(screen_buffer%,scrnbase_0%,4,-1)
�0    � 20:�spiral(screen_buffer%,scrnbase_0%)
�1    � 21:�matrix8(screen_buffer%,scrnbase_0%)
�3    � 22:�d_slide(screen_buffer%,scrnbase_0%,3)
�4    � 23:�v_slide(screen_buffer%,scrnbase_0%,-8)
�7    � 24:�lv_slots(screen_buffer%,scrnbase_0%,32,8)
�:    � 25:�v_venitian(screen_buffer%,scrnbase_0%,12,-4)
8    � 26:�v_curtains(screen_buffer%,scrnbase_0%,4,1)
    � 27:�cj

&  �
0�
:
D
N
� �cut
X8   �copy_full_screen(screen_buffer%,scrnbase_0%,160)
b�
l
v� �fade(f_time%)
�+  � count%,temp%,count1%,x%,y%,n%,temp%
�  f_time%=70
�#  f_time%=((f_time%-30)*695)>>8
�  B%=scrnbase_0%
�  C%=40
�  D%=16
�  � count%=0 � 255
�    A%=f_time%
�    � pause%
�    A%=screen_buffer%
�    n%=block_no%(count%)
�    y%=n%>>4
�    y%=y%<<4
    x%=n%-y%
    temp%=x%<<5
    x%=temp%+(x%<<3)
 
    E%=x%
*
    F%=y%
4
    G%=x%
>
    H%=y%
H    � block_blit1%
R
 � count%
\�
f
p-� �both_curtains(srce%,dest%,speed%,stp%)
z+  � execution time=640/speed% centisecs
�5  � If stp%=1 then close (get a shrinking square)
�2  � If stp%=-1 then open (get a growing cross)
�0  � ct%,inc%,start%,finish%,vstart%,vfinish%
�  A%=srce%
�  B%=dest%
�
  inc%=-1
�  � stp%=1 �
�    start%=0
�    finish%=128
�    vstart%=0
�    vfinish%=320
�  �
�    start%=128
	    finish%=0
	    vstart%=320
	    vfinish%=0
	$  �
	.#  � ct%=start% � finish% � stp%
	8    inc%=inc%+1
	B    � (inc% � speed%)=0 �
	L      Ȗ
	V	    �
	`    C%=ct%
	j    � hline%
	t    C%=255-ct%
	~    � hline%
	�
	�*    � next section draws verical lines
	�?    � the for next loop that encloses it(for horiztl lines)
	�/    � always finishes before vertical lines
	�$    � therefore no checks needed
	�    C%=vstart%
	�    � vline%
	�    C%=vstart%+stp%
	�    � vline%
	�    C%=639-vstart%
	�    � vline%
	�    C%=639-(vstart%+stp%)
    � vline%

!    vstart%=vstart%+(stp%<<1)
  � ct%
�
(
2
<*� �v_curtains(srce%,dest%,speed%,stp%)
F+  � execution time=640/speed% centisecs
P%  � If stp%=1 then close curtains
Z%  � If stp%=-1 then open curtains
d  � ct%,inc%,start%,finish%
n  A%=srce%
x  B%=dest%
�
  inc%=-1
�  � stp%=1 �
�    start%=0
�    finish%=320
�  �
�    start%=320
�    finish%=0
�  �
�#  � ct%=start% � finish% � stp%
�    inc%=inc%+1
�    � (inc% � speed%)=0 �
�      Ȗ
�	    �
    C%=ct%
    � vline%
    C%=639-ct%
"    � vline%
,  � ct%
6�
@
J*� �h_curtains(srce%,dest%,speed%,stp%)
T
^!  � execution time=256/speed%
h%  � If stp%=1 then close curtains
r%  � If stp%=-1 then open curtains
|  � ct%,inc%,finish%
�  A%=srce%
�  B%=dest%
�
  inc%=-1
�  � stp%=1 �
�    start%=0
�    finish%=128
�  �
�    start%=128
�    finish%=0
�  �
�#  � ct%=start% � finish% � stp%
�    inc%=inc%+1
�    � (inc% � speed%)=0 �
      Ȗ
	    �
    C%=ct%
&    � hline%
0    C%=255-ct%
:    � hline%
D  � ct%
N�
X
b*� �h_venitian(srce%,dest%,speed%,gap%)
l.  � execution time =(512/delay%) centisecs
v%  �   gap% must be a power of two
�  � ct%,ct1%,inc1%
�  A%=srce%
�  B%=dest%
�  inc1%=-1
�  � gap%<0 �
�    gapn%=(gap%)<<1
�    gap%=0-gap%
�    �up
�
    �down
�  �
�
    �down
�    gapn%=(0-gap%)<<1
�    �up

  �

�



 � �down

*%  � ct%=0 � (256-gap%)  � gap%<<1

4    � ct1%=0 � gap%-1

>      inc1%=inc1%+1

H       � (inc1% � speed%)=0 �

R        Ȗ

\      �

f      C%=ct%+ct1%

p      � hline%

z    � ct1%

�  � ct%

��

�	� �up

�  � ct%=255 � gap% � gapn%

�    � ct1%=0 � gap%-1

�      inc1%=inc1%+1

�       � (inc1% � speed%)=0 �

�        Ȗ

�      �

�      C%=ct%-ct1%

�      � hline%

�    � ct1%

�  � ct%
�

*� �v_venitian(srce%,dest%,speed%,gap%)
$/  � execution time =(1280/delay%) centisecs
.%  �   gap% must be a power of two
8  � ct%,ct1%,inc1%
B  A%=srce%
L  B%=dest%
V  inc1%=-1
`  � gap%<0 �
j    gapn%=gap%<<1
t    gap%=0-gap%
~    �right
�
    �left
�  �
�
    �left
�    gapn%=(0-gap%)<<1
�    �right
�  �
��
�
�� �left
�%  � ct%=0 � (640-gap%)  � gap%<<1
�    � ct1%=0 � gap%-1
�      inc1%=inc1%+1
       � (inc1% � speed%)=0 �

        Ȗ
      �
      C%=ct%+ct1%
(      � vline%
2    � ct1%
<  � ct%
F�
P� �right
Z  � ct%=639 � gap% � gapn%
d    � ct1%=0 � gap%-1
n      inc1%=inc1%+1
x       � (inc1% � speed%)=0 �
�        Ȗ
�      �
�      C%=ct%-ct1%
�      � vline%
�    � ct1%
�  � ct%
��
�
�
�"� �h_slide(srce%,dest%,speed%)
�+  � execution time=510/speed% centisecs
�#  � if speed%>0 THEN slide down
�!  � if speed%<0 THEN slide up
6  � ct%,ct1%,start%,finish%,start1%,finish1%,inc1%
  � speed%>0 �
    start%=0
"    finish%=256-speed%
,    start1%=0
6    finish1%=speed%-1
@    inc1%=1
J  �
T    start%=255
^    finish%=0
h    start1%=0
r    finish1%=speed%+1
|    inc1%=-1
�  �
�  A%=srce%
�  B%=dest%
�%  � ct%=start% � finish% � speed%
�
    Ȗ
�)    � ct1%=start1% � finish1% � inc1%
�      C%=ct%+ct1%
�      � hline%
�    � ct1%
�  � ct%
��
�
� � �v_slide(srce%,dest%,inc%)
/  � If inc%=1 execution time=1280 centisecs
.  � If inc%=2 execution time=640 centisecs
.  � If inc%=4 execution time=320 centisecs
&.  � If inc%=8 execution time=160 centisecs
0.  � If inc%=16 execution time=80 centisecs
:  � FASTEST=16
D!  � if inc%>0 THEN slide down
N  � if inc%<0 THEN slide up
X6  � ct%,ct1%,start%,finish%,start1%,finish1%,inc1%
b  � inc%>0 �
l    start%=0
v    finish%=640-inc%
�    start1%=0
�    finish1%=inc%-1
�    inc1%=1
�  �
�    start%=639
�    finish%=0
�    start1%=0
�    finish1%=inc%+1
�    inc1%=-1
�  �
�    A%=srce%
�    B%=dest%
�#  � ct%=start% � finish% � inc%

    Ȗ
)    � ct1%=start1% � finish1% � inc1%
      C%=ct%+ct1%
       � vline%
*    � ct1%
4  � ct%
>�
H
R
\#� �d_slide(srce%,dest%,corner%)
fA  � ct%,hx%,hy%,hwidth%,hheight%,vx%,vy%,vwidth%,vheight%,ct%
p  ct%=0
z  Ȏ corner% �
�    � 1:� BL CORNER
�1    hx_inc%=5:hy_inc%=-2:vx_inc%=0:vy_inc%=-2
�0    hx%=0:hy%=254:vx%=0:vy%=254:rep_end%=640
�    � 2:� TL CORNER
�0    hx_inc%=5:hy_inc%=0:vx_inc%=0:vy_inc%=+2
�,    hx%=0:hy%=0:vx%=0:vy%=0:rep_end%=640
�    � 3:� TR CORNER
�1    hx_inc%=-5:hy_inc%=0:vx_inc%=-5:vy_inc%=2
�/    hx%=635:hy%=0:vx%=635:vy%=0:rep_end%=-5
�    � 4:� BR CORNER
�3    hx_inc%=-5:hy_inc%=-2:vx_inc%=-5:vy_inc%=-2
�3    hx%=635:hy%=254:vx%=635:vy%=254:rep_end%=-5
�  �
  hwidth%=5
  hheight%=2
  vwidth%=5
$  vheight%=2
.  A%=srce%
8  B%=dest%
B  �
L    � S=GET
V    ct%=ct%+1
`    C%=hwidth%
j    D%=hheight%
t    E%=hx%
~    F%=hy%
�    G%=hx%
�    H%=hy%
��    IF (ct% MOD 2)=0 THEN
�      Ȗ
��     ENDIF
�    � block_blit1%
�    hx%=hx%+hx_inc%
�    hy%=hy%+hy_inc%
�    hheight%=hheight%+2
�    C%=vwidth%
�    D%=vheight%
�    E%=vx%
    F%=vy%

    G%=vx%
    H%=vy%
    � block_blit1%
(    vy%=vy%+vy_inc%
2    vx%=vx%+vx_inc%
<    vwidth%=vwidth%+5
F  � hx%=rep_end%
P�
Z
d� �over_slider
n7  �copy_full_screen(screen_buffer%,scrnbase_0%,160)
x  � c%=0 � 100000:� c%
�  A%=screen_buffer%
�  B%=scrnbase_0%
�  C%=screen_buffer%
�  � slide_over%
��
�
�� �spiral(srce%,dest%)
�  A%=srce%
�  B%=dest%
�  C%=1000   :� C% DELAY
�  � spiro%
��
�
� �matrix8(srce%,dest%)
=  � n%,blocsize%,ct%,x%,y%,gridwidth%,gridheight%,square%
  gridwidth%=640>>3
"  gridheight%=256>>3
,  A%=srce%
6  B%=dest%
@  n%=gridwidth% � 5
J  square%=63
T  C%=n%
^  D%=square%
h
  E%=temp
r  � matrix_8%
|�
�
�K� **  Initialisation **************************************************
�K� *********************************************************************
�
�
�
�
�
�
� �random
�  � count%,q%,temp%
�  � count%=0 � 255
�     block_no%(count%)=count%
�  � count%
  � count%=255 � 1 �-1
    q%=�(count%+1)
    q%=q%-1
&    temp%=block_no%(count%)
0'    block_no%(count%)=block_no%(q%)
:    block_no%(q%)=temp%
D  � count%
N�
X
b
l� �scrnbse
v
�)  � Proc gives base address of screen
�,  � in vars scrnbase_0% & screen_buffer%
�  !inputlist%=148
�  !(inputlist%+4)=-1
�5  ș "OS_ReadVduVariables",inputlist%,outputlist%
�  scrnbase_0%=!outputlist%
��
�
�� �error
�  � � �
�     error_blk%!0=�
�     $(error_blk%+4)=�$
�>     ș"Wimp_ReportError",error_blk%,%0001101,"Slide Show"
+  ș"Wimp_CloseDown",task_handle%,task%
  �
�
 
*.� �v_slots(srce%,dest%,slot_width%,speed%)
4� TIME of execution
>� speed%=1 ;640 centisecs
H� speed%=2 ;320 centisecs
R� speed%=4 ;160 centisecs
\� speed%=8 ;80 centisecs
f� speed%=16 ;80 centisecs
p� speed%=32 ;60 centisecs
z� guess max speed=8
�� n%,n1%,ct%
�	ct%=0
�A%=srce%
�B%=dest%
�!� n1%=0 � (slot_width% � 2)-1
�
�$  � n%=0 � (640 � slot_width%)-1
�&    C%=(n%*slot_width%)+((n1%)<<1)
�    ct%=ct%+1
�    � (ct% � speed%)=0 �
�      Ȗ
�	    �
�    � vline%
    C%=C%+1
    � vline%

  � n%
$	� n1%
.�
8
B
L.� �h_slots(srce%,dest%,slot_width%,speed%)
V� TIME of execution
`� speed%=1 ;512 centisecs
j� speed%=2 ;256 centisecs
t� speed%=4 ;128 centisecs
~� speed%=8 ;64 centisecs
�� speed%=16 ;32 centisecs
�� 16 fastest
�
�� n%,n1%,ct%
�	ct%=0
�
�A%=srce%
�B%=dest%
�� n1%=0 � slot_width%-1
�$  � n%=0 � (256 � slot_width%)-1
�    C%=(n%*slot_width%)+n1%
�    ct%=ct%+1
    � (ct% � speed%)=0 �

      Ȗ
	    �
    � hline%
(
  � n%
2	� n1%
<�
F
P/� �lh_slots(srce%,dest%,slot_width%,speed%)
Z� n%,n1%,ct%
d	ct%=0
n
xA%=srce%
�B%=dest%
�� n1%=0 � slot_width%-1
�$  � n%=0 � (256 � slot_width%)-1
�-    C%=(n%*slot_width%)+slot_width%-1-n1%
�    ct%=ct%+1
�    � (ct% � speed%)=0 �
�      Ȗ
�	    �
�    � hline%
�
  � n%
�	� n1%
��
�
/� �lv_slots(srce%,dest%,slot_width%,speed%)
� n%,n1%,ct%
	ct%=0
"A%=srce%
,B%=dest%
6!� n1%=0 � (slot_width% � 2)-1
@
J$  � n%=0 � (640 � slot_width%)-1
T4    C%=(n%*slot_width%)+slot_width%-1-((n1%)<<1)
^    ct%=ct%+1
h    � (ct% � speed%)=0 �
r      Ȗ
|	    �
�    � vline%
�    C%=C%-1
�    � vline%
�
  � n%
�	� n1%
��
�
�
�� �load_assy
�� A$(),st%(),len%,path$
�� A$(20)
�
� st%(20)
�
� fader% 120
� mode_12_to_15%  160
� mov_mem_block% 64
&� comp_dcoder_qtr% 156
0� comp_dcoder%  164
:� vline% 100
D� hline% 56
N� matrix_8% 300
X� spiro% 212
b� slide_over% 140
l� clipper% 436
v� block_put% 120
�� coder% 128
�� coder_12% 128
�� dcoder% 60
�� dcoder_12% 128
�� scale_1_4% 80
�� copy_full_screen% 80
�� pause% 40
�� block_blit1%  112
�
�
�st%(1)=fader%
�st%(2)=mode_12_to_15%
�st%(3)=mov_mem_block%
st%(4)=comp_dcoder_qtr%
st%(5)=comp_dcoder%
st%(6)=vline%
 st%(7)=hline%
*st%(8)=matrix_8%
4st%(9)=spiro%
>st%(10)=slide_over%
Hst%(11)=clipper%
Rst%(12)=block_put%
\st%(13)=coder%
fst%(14)=dcoder%
pst%(15)=scale_1_4%
zst%(16)=copy_full_screen%
�st%(17)=pause%
�st%(18)=block_blit1%
�st%(19)=coder_12%
�st%(20)=dcoder_12%
�
�
�A$(1)="fader"
�A$(2)="mode_12"
�A$(3)="mov_mem"
�A$(4)="compdqtr"
�A$(5)="compdcod"
�A$(6)="vline"
�A$(7)="hline"
A$(8)="matrix_8"
A$(9)="spiro"
A$(10)="slide_o"
$A$(11)="clipper"
.A$(12)="blockput"
8A$(13)="coder"
BA$(14)="dcoder"
LA$(15)="scale1/4"
VA$(16)="copyfscrn"
`A$(17)="pause"
jA$(18)="blckblt"
tA$(19)="coder_12"
~A$(20)="dcoder_12"
�
�Bș"OS_ReadVarVal","obey$dir",pic_name_table%,255,0,3  � ,,len%
�� control terminate
�pic_name_table%?len%=13
�files$=$pic_name_table%
�
�?� files$ is the path name of the applications support files
�� ct%=1 � 20
�(  path$=files$+".assembler."+A$(ct%)
�%  ș"OS_File",12,path$,st%(ct%),0
�	� ct%
�
�


� �grab_mem(size%)
� newsize%,diff%
(first_free%=�
24ș"OS_ChangeEnvironment",14,0,0,0 � ,end_of_mem%
<diff%=size%-(end_of_mem%-�)
F&newsize%=(end_of_mem%-&8000)+diff%
P!ș"Wimp_SlotSize",newsize%,-1
Z4ș"OS_ChangeEnvironment",14,0,0,0 � ,end_of_mem%
d�
n
x
�
�� �mode_change(fl%)
�  � mode%,choice%
�  ș"OS_Byte",135 �,,mode%
�  Ȏ mode% �
�  � 15,15+128:� nowt
�  
�    error_blk%!0=0
�&    $(error_blk%+4)="Mode 15 only"
�    Ȏ fl% �
�    � 0
�?      ș"Wimp_ReportError",error_blk%,%0001101,"Slide Show"
�      ș"Wimp_SetMode",15
    � 1
J      ș"Wimp_ReportError",error_blk%,%0001111,"Slide Show" � ,choice%
      � choice%=1 �
"        ș"Wimp_SetMode",15
,      �
61        ș"Wimp_CloseDown",task_handle%,task%
@
        �
J      �
T	    �
^  �
h�
r
|
�	� �cj
�� x%,y%
�A%=screen_buffer%
�B%=scrnbase_0%
�	C%=80
�	D%=32
�y%=0
��
�
  x%=0
�  �
�
    E%=x%
�
    F%=y%
�
    G%=x%
 
    H%=y%
 
    Ȗ
     � block_blit1%
 &    x%=x%+80
 0  � x%>639
 :y%=y%+32
 D� y%>255
 N�
 X
 b� �load_seq
 l � f_han%,icons%,memory%,mem$
 v  f_han%=-1
 �  path$=files$+".sequence"
 �$  ș"OS_Find",&40,path$ � f_han%
 �-    ș"OS_GBPB",4,f_han%,general_block%,8
 �  ș"OS_Find",0,f_han%
 �  f_han%=-1
 �!  �grab_mem(general_block%!4)
 �*  � general_block%!4>(end_of_mem%-�) �
 �/    memory%=208+((general_block%!4) � 1024)
 �%    memory%=16*((memory% � 16)+1)
 �    mem$=�(memory%)
 �E    � 1,"Not enough memory to load sequence,needs "+mem$+"K Free"
 �  �
 �5  �load_or_save_seq(&40,4,general_block%!4,path$)
!  f_han%=-1
!"  no_of_pics%=general_block%!8
!(  user_timed_flag%=general_block%!24
! "  loop_flag%=general_block%!28
!*  icons%=general_block%!12
!4#  first_free%=general_block%!16
!>"  old_himem%=general_block%!20
!H  �adjust_for_himem
!R�
!\
!f*� �load_or_save_seq(ls%,n%,len%,path$)
!p  f_han%=0
!z$  ș"OS_Find",ls%,path$ � f_han%
!�-  ș"OS_GBPB",n%,f_han%,general_block%,32
!�1  ș"OS_GBPB",n%,f_han%,pic_name_table%,240*4
!�.  ș"OS_GBPB",n%,f_han%,picture_table%,240
!�5  ș"OS_GBPB",n%,f_han%,picture_length_table%,240
!�9  ș"OS_GBPB",n%,f_han%,picture_filelength_table%,240
!�0  ș"OS_GBPB",n%,f_han%,picture_id_table%,60
!�3  ș"OS_GBPB",n%,f_han%,picture_time_table%,240
!�+  ș"OS_GBPB",n%,f_han%,icon_table%,240
!�3  ș"OS_GBPB",n%,f_han%,transition_id_table%,60
!�1  ș"OS_GBPB",n%,f_han%,palette_table_12%,240
!�,  ș"OS_GBPB",n%,f_han%,play_palette%,64
!�
!�"  ș"OS_GBPB",n%,f_han%,�,len%
"ș"OS_Find",0,f_han%
"�
"
"$
".� �check_mode_15
"8�mode_change(1)
"B�
"L
"V
"`
"j� �get_filename(path%)
"t  � char%,n%,last%
"~  n%=-1
"�  �
"�    n%=n%+1
"�    char%=path%?n%
"�  � char%=0  � char%=13
"�  last%=n%
"�  �
"�    n%=n%-1
"�    char%=path%?n%
"�  � char%=46
"�  � 46="."
"�  path%?last%=13
"�  =$(path%+(n%+1))
#� ENDFUNCTION
#

#
#
#(� �read_init_palette
#2� initial_palette% 64
#<#�read_palette(initial_palette%)
#F�
#P
#Z� �read_palette(palette%)
#d	� ct%
#n� ct%=0 � 15
#x5  ș"OS_ReadPalette",ct%,16 � ,,palette%!(ct%<<2)
#�	� ct%
#��
#�
#�� �set_palette(palette%)
#�	� ct%
#�� ct%=0 � 15
#�  inputlist%?0=ct%
#�$  inputlist%!1=palette%!(ct%<<2)
#�  ș"OS_Word",12,inputlist%
#�	� ct%
#��
#�
#�
$4� �copy_full_screen(addr_srce%,addr_dest%,size%)
$  A%=addr_srce%
$  B%=addr_dest%
$"  C%=size%
$,  � copy_full_screen%
$6�
$@
$J� �timetable
$T"  � transition_time_table% 128
$^   transition_time_table%!0=0
$h"  transition_time_table%!4=260
$r"  transition_time_table%!8=130
$|"  transition_time_table%!12=70
$�"  transition_time_table%!16=90
$�#  transition_time_table%!20=130
$�"  transition_time_table%!24=70
$�"  transition_time_table%!28=70
$�#  transition_time_table%!32=260
$�#  transition_time_table%!36=130
$�"  transition_time_table%!40=70
$�"  transition_time_table%!44=90
$�#  transition_time_table%!48=130
$�"  transition_time_table%!52=70
$�"  transition_time_table%!56=10
$�#  transition_time_table%!60=260
$�#  transition_time_table%!64=160
%"  transition_time_table%!68=80
%#  transition_time_table%!72=110
%#  transition_time_table%!76=160
%&#  transition_time_table%!80=110
%0"  transition_time_table%!84=60
%:#  transition_time_table%!88=260
%D#  transition_time_table%!92=160
%N"  transition_time_table%!96=80
%X$  transition_time_table%!100=110
%b$  transition_time_table%!104=160
%l$  transition_time_table%!108=130
%v"  transition_time_table%!112=0
%�
%��
%�
%�� �adjust_for_himem
%� � diff%,ct%
%� diff%=old_himem%-�
%� � ct%=0 � 236 � 4
%�2 picture_table%!ct%=(picture_table%!ct%)-diff%
%�, icon_table%!ct%=(icon_table%!ct%)-diff%
%�8 palette_table_12%!ct%=(palette_table_12%!ct%)-diff%
%�
 � ct%
%��
%�
&
&� �setpalette12(addr%)
&mode12_buffer%!0=addr%!0
& mode12_buffer%!4=addr%!4
&*mode12_buffer%!8=addr%!8
&4mode12_buffer%!12=addr%!12
&>�
&H
&R� �fader
&\� w%,xoff%(),n%
&f� xoff%(639)
&p
w%=640
&z� n%=0 � w%-1
&�  xoff%(n%)=�(w%)-1
&�� n%
&�
&�A%=screen_buffer%
&�B%=scrnbase_0%
&�Ȗ
&� � fader%,xoff%(),block_no%()
&��
�

00000000  0d 00 0a 0f f4 3e 21 72  75 6e 69 6d 61 67 65 0d  |.....>!runimage.|
00000010  00 14 04 0d 00 1e 0e ee  20 85 20 f2 65 72 72 6f  |........ . .erro|
00000020  72 0d 00 28 04 0d 00 32  1b de 20 74 61 73 6b 25  |r..(...2.. task%|
00000030  20 35 3a 24 74 61 73 6b  25 3d 22 54 41 53 4b 22  | 5:$task%="TASK"|
00000040  0d 00 3c 3c c8 99 22 57  69 6d 70 5f 49 6e 69 74  |..<<.."Wimp_Init|
00000050  69 61 6c 69 73 65 22 2c  32 30 30 2c 21 74 61 73  |ialise",200,!tas|
00000060  6b 25 2c 22 72 75 6e 6f  6e 6c 79 22 20 b8 20 2c  |k%,"runonly" . ,|
00000070  74 61 73 6b 5f 68 61 6e  64 6c 65 25 0d 00 46 14  |task_handle%..F.|
00000080  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00000090  0d 00 50 0f f2 69 6e 69  74 69 61 6c 69 73 65 0d  |..P..initialise.|
000000a0  00 5a 0e f2 73 68 6f 77  5f 70 69 63 73 0d 00 64  |.Z..show_pics..d|
000000b0  29 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |).."Wimp_CloseDo|
000000c0  77 6e 22 2c 74 61 73 6b  5f 68 61 6e 64 6c 65 25  |wn",task_handle%|
000000d0  2c 74 61 73 6b 25 0d 00  6e 05 e0 0d 00 78 04 0d  |,task%..n....x..|
000000e0  00 82 04 0d 00 8c 11 dd  20 f2 69 6e 69 74 69 61  |........ .initia|
000000f0  6c 69 73 65 0d 00 96 04  0d 00 a0 10 20 20 ee 20  |lise........  . |
00000100  85 20 f2 65 72 72 6f 72  0d 00 aa 14 de 20 65 72  |. .error..... er|
00000110  72 6f 72 5f 62 6c 6b 25  20 32 35 36 0d 00 b4 14  |ror_blk% 256....|
00000120  20 20 f2 63 68 65 63 6b  5f 6d 6f 64 65 5f 31 35  |  .check_mode_15|
00000130  0d 00 be 18 20 de 20 67  65 6e 65 72 61 6c 5f 62  |.... . general_b|
00000140  6c 6f 63 6b 25 20 33 32  0d 00 c8 1c 20 de 20 70  |lock% 32.... . p|
00000150  69 63 5f 6e 61 6d 65 5f  74 61 62 6c 65 25 20 32  |ic_name_table% 2|
00000160  34 30 2a 34 0d 00 d2 19  20 de 20 70 69 63 74 75  |40*4.... . pictu|
00000170  72 65 5f 74 61 62 6c 65  25 20 32 34 30 0d 00 dc  |re_table% 240...|
00000180  20 20 de 20 70 69 63 74  75 72 65 5f 6c 65 6e 67  |  . picture_leng|
00000190  74 68 5f 74 61 62 6c 65  25 20 32 34 30 0d 00 e6  |th_table% 240...|
000001a0  24 20 de 20 70 69 63 74  75 72 65 5f 66 69 6c 65  |$ . picture_file|
000001b0  6c 65 6e 67 74 68 5f 74  61 62 6c 65 25 20 32 34  |length_table% 24|
000001c0  30 0d 00 f0 1b 20 de 20  70 69 63 74 75 72 65 5f  |0.... . picture_|
000001d0  69 64 5f 74 61 62 6c 65  25 20 36 30 0d 00 fa 1e  |id_table% 60....|
000001e0  20 de 20 70 69 63 74 75  72 65 5f 74 69 6d 65 5f  | . picture_time_|
000001f0  74 61 62 6c 65 25 20 32  34 30 0d 01 04 16 20 de  |table% 240.... .|
00000200  20 69 63 6f 6e 5f 74 61  62 6c 65 25 20 32 34 30  | icon_table% 240|
00000210  0d 01 0e 1e 20 de 20 74  72 61 6e 73 69 74 69 6f  |.... . transitio|
00000220  6e 5f 69 64 5f 74 61 62  6c 65 25 20 36 30 0d 01  |n_id_table% 60..|
00000230  18 1c 20 de 20 70 61 6c  65 74 74 65 5f 74 61 62  |.. . palette_tab|
00000240  6c 65 5f 31 32 25 20 32  34 30 0d 01 22 17 20 de  |le_12% 240..". .|
00000250  20 70 6c 61 79 5f 70 61  6c 65 74 74 65 25 20 36  | play_palette% 6|
00000260  34 0d 01 2c 20 20 de 20  73 63 72 65 65 6e 5f 62  |4..,  . screen_b|
00000270  75 66 66 65 72 25 20 28  31 36 31 2a 31 30 32 34  |uffer% (161*1024|
00000280  29 0d 01 36 18 20 de 20  6d 6f 64 65 31 32 5f 62  |)..6. . mode12_b|
00000290  75 66 66 65 72 25 20 31  36 0d 01 40 14 20 de 20  |uffer% 16..@. . |
000002a0  69 6e 70 75 74 6c 69 73  74 25 20 31 32 0d 01 4a  |inputlist% 12..J|
000002b0  15 20 de 20 6f 75 74 70  75 74 6c 69 73 74 25 20  |. . outputlist% |
000002c0  31 32 0d 01 54 0e 20 de  20 74 65 6d 70 20 36 34  |12..T. . temp 64|
000002d0  0d 01 5e 15 20 de 20 62  6c 6f 63 6b 5f 6e 6f 25  |..^. . block_no%|
000002e0  28 32 35 36 29 0d 01 68  04 0d 01 72 0e 20 20 f2  |(256)..h...r.  .|
000002f0  73 63 72 6e 62 73 65 0d  01 7c 18 20 20 f2 72 65  |scrnbse..|.  .re|
00000300  61 64 5f 69 6e 69 74 5f  70 61 6c 65 74 74 65 0d  |ad_init_palette.|
00000310  01 86 04 0d 01 90 10 20  20 f2 6c 6f 61 64 5f 61  |.......  .load_a|
00000320  73 73 79 0d 01 9a 04 0d  01 a4 0f 20 20 f2 6c 6f  |ssy........  .lo|
00000330  61 64 5f 73 65 71 0d 01  ae 10 20 20 f2 74 69 6d  |ad_seq....  .tim|
00000340  65 74 61 62 6c 65 0d 01  b8 0d 20 20 f2 72 61 6e  |etable....  .ran|
00000350  64 6f 6d 0d 01 c2 17 20  20 c8 99 22 48 6f 75 72  |dom....  .."Hour|
00000360  67 6c 61 73 73 5f 4f 66  66 22 0d 01 cc 05 e1 0d  |glass_Off"......|
00000370  01 d6 04 0d 01 e0 04 0d  01 ea 04 0d 01 f4 04 0d  |................|
00000380  01 fe 04 0d 02 08 04 0d  02 12 04 0d 02 1c 04 0d  |................|
00000390  02 26 04 0d 02 30 10 dd  20 f2 73 68 6f 77 5f 70  |.&...0.. .show_p|
000003a0  69 63 73 0d 02 3a 42 20  20 ea 20 70 69 63 5f 61  |ics..:B  . pic_a|
000003b0  64 64 72 25 2c 63 74 25  2c 6c 65 6e 25 2c 70 69  |ddr%,ct%,len%,pi|
000003c0  63 6e 6f 25 2c 65 78 69  74 5f 66 6c 61 67 25 2c  |cno%,exit_flag%,|
000003d0  70 74 72 5f 66 6c 61 67  25 2c 6d 78 25 2c 6d 79  |ptr_flag%,mx%,my|
000003e0  25 2c 6d 6b 25 0d 02 44  16 20 20 f4 20 66 6c 75  |%,mk%..D.  . flu|
000003f0  73 68 20 6b 65 79 62 6f  61 72 64 0d 02 4e 16 20  |sh keyboard..N. |
00000400  20 c8 99 22 4f 53 5f 42  79 74 65 22 2c 32 31 2c  | .."OS_Byte",21,|
00000410  30 0d 02 58 12 20 20 65  78 69 74 5f 66 6c 61 67  |0..X.  exit_flag|
00000420  25 3d 30 0d 02 62 11 20  20 70 74 72 5f 66 6c 61  |%=0..b.  ptr_fla|
00000430  67 25 3d 30 0d 02 6c 17  20 20 e7 20 6e 6f 5f 6f  |g%=0..l.  . no_o|
00000440  66 5f 70 69 63 73 25 3e  30 20 8c 0d 02 76 12 20  |f_pics%>0 ...v. |
00000450  20 20 20 2a 50 4f 49 4e  54 45 52 20 30 0d 02 80  |   *POINTER 0...|
00000460  09 20 20 20 20 f5 0d 02  8a 12 20 20 20 20 20 20  |.    .....      |
00000470  70 69 63 6e 6f 25 3d 31  0d 02 94 2e 20 20 20 20  |picno%=1....    |
00000480  20 20 70 69 63 5f 61 64  64 72 25 3d 70 69 63 74  |  pic_addr%=pict|
00000490  75 72 65 5f 74 61 62 6c  65 25 21 28 70 69 63 6e  |ure_table%!(picn|
000004a0  6f 25 3c 3c 32 29 0d 02  9e 47 20 20 20 20 20 20  |o%<<2)...G      |
000004b0  6c 65 6e 25 3d 70 69 63  74 75 72 65 5f 6c 65 6e  |len%=picture_len|
000004c0  67 74 68 5f 74 61 62 6c  65 25 21 28 70 69 63 6e  |gth_table%!(picn|
000004d0  6f 25 3c 3c 32 29 3a f4  20 30 3d 75 6e 63 6f 6d  |o%<<2):. 0=uncom|
000004e0  70 72 65 73 73 65 64 73  63 72 65 65 6e 0d 02 a8  |pressedscreen...|
000004f0  41 20 20 20 20 20 20 f2  6c 6f 61 64 5f 62 75 66  |A      .load_buf|
00000500  66 65 72 28 6c 65 6e 25  2c 70 69 63 5f 61 64 64  |fer(len%,pic_add|
00000510  72 25 2c 70 69 63 74 75  72 65 5f 69 64 5f 74 61  |r%,picture_id_ta|
00000520  62 6c 65 25 3f 28 70 69  63 6e 6f 25 29 29 0d 02  |ble%?(picno%))..|
00000530  b2 25 20 20 20 20 20 20  f2 73 65 74 5f 70 61 6c  |.%      .set_pal|
00000540  65 74 74 65 28 70 6c 61  79 5f 70 61 6c 65 74 74  |ette(play_palett|
00000550  65 25 29 0d 02 bc 3b 20  20 20 20 20 20 f2 63 6f  |e%)...;      .co|
00000560  70 79 5f 66 75 6c 6c 5f  73 63 72 65 65 6e 28 73  |py_full_screen(s|
00000570  63 72 65 65 6e 5f 62 75  66 66 65 72 25 2c 73 63  |creen_buffer%,sc|
00000580  72 6e 62 61 73 65 5f 30  25 2c 31 36 30 29 0d 02  |rnbase_0%,160)..|
00000590  c6 1b 20 20 20 20 20 20  f2 63 68 6f 6f 73 65 5f  |..      .choose_|
000005a0  70 69 63 5f 64 65 6c 61  79 0d 02 d0 19 20 20 20  |pic_delay....   |
000005b0  20 20 20 70 69 63 6e 6f  25 3d 70 69 63 6e 6f 25  |   picno%=picno%|
000005c0  2b 31 0d 02 da 2f 20 20  20 20 20 20 c8 95 20 70  |+1.../      .. p|
000005d0  69 63 6e 6f 25 3c 3d 6e  6f 5f 6f 66 5f 70 69 63  |icno%<=no_of_pic|
000005e0  73 25 20 80 20 65 78 69  74 5f 66 6c 61 67 25 3d  |s% . exit_flag%=|
000005f0  30 0d 02 e4 30 20 20 20  20 20 20 20 20 70 69 63  |0...0        pic|
00000600  5f 61 64 64 72 25 3d 70  69 63 74 75 72 65 5f 74  |_addr%=picture_t|
00000610  61 62 6c 65 25 21 28 70  69 63 6e 6f 25 3c 3c 32  |able%!(picno%<<2|
00000620  29 0d 02 ee 49 20 20 20  20 20 20 20 20 6c 65 6e  |)...I        len|
00000630  25 3d 70 69 63 74 75 72  65 5f 6c 65 6e 67 74 68  |%=picture_length|
00000640  5f 74 61 62 6c 65 25 21  28 70 69 63 6e 6f 25 3c  |_table%!(picno%<|
00000650  3c 32 29 3a f4 20 30 3d  75 6e 63 6f 6d 70 72 65  |<2):. 0=uncompre|
00000660  73 73 65 64 73 63 72 65  65 6e 0d 02 f8 43 20 20  |ssedscreen...C  |
00000670  20 20 20 20 20 20 f2 6c  6f 61 64 5f 62 75 66 66  |      .load_buff|
00000680  65 72 28 6c 65 6e 25 2c  70 69 63 5f 61 64 64 72  |er(len%,pic_addr|
00000690  25 2c 70 69 63 74 75 72  65 5f 69 64 5f 74 61 62  |%,picture_id_tab|
000006a0  6c 65 25 3f 28 70 69 63  6e 6f 25 29 29 0d 03 02  |le%?(picno%))...|
000006b0  5f 20 20 20 20 20 20 20  20 f2 74 72 61 6e 73 69  |_        .transi|
000006c0  74 69 6f 6e 28 74 72 61  6e 73 69 74 69 6f 6e 5f  |tion(transition_|
000006d0  69 64 5f 74 61 62 6c 65  25 3f 28 70 69 63 6e 6f  |id_table%?(picno|
000006e0  25 2d 31 29 2c 74 72 61  6e 73 69 74 69 6f 6e 5f  |%-1),transition_|
000006f0  74 69 6d 65 5f 74 61 62  6c 65 25 21 28 28 70 69  |time_table%!((pi|
00000700  63 6e 6f 25 2d 31 29 3c  3c 32 29 29 0d 03 0c 2c  |cno%-1)<<2))...,|
00000710  20 20 20 20 20 20 20 20  f4 20 64 69 73 70 6c 61  |        . displa|
00000720  79 20 70 69 63 20 66 6f  72 20 69 74 73 20 67 69  |y pic for its gi|
00000730  76 65 6e 20 74 69 6d 65  0d 03 16 1d 20 20 20 20  |ven time....    |
00000740  20 20 20 20 f2 63 68 6f  6f 73 65 5f 70 69 63 5f  |    .choose_pic_|
00000750  64 65 6c 61 79 0d 03 20  1b 20 20 20 20 20 20 20  |delay.. .       |
00000760  20 70 69 63 6e 6f 25 3d  70 69 63 6e 6f 25 2b 31  | picno%=picno%+1|
00000770  0d 03 2a 18 20 20 20 20  20 20 20 20 e7 20 a6 28  |..*.        . .(|
00000780  31 29 3c 3e 2d 31 20 8c  0d 03 34 1a 20 20 20 20  |1)<>-1 ...4.    |
00000790  20 20 20 20 20 20 65 78  69 74 5f 66 6c 61 67 25  |      exit_flag%|
000007a0  3d 31 0d 03 3e 0d 20 20  20 20 20 20 20 20 cd 0d  |=1..>.        ..|
000007b0  03 48 0b 20 20 20 20 20  20 ce 0d 03 52 25 20 20  |.H.      ...R%  |
000007c0  20 20 fd 20 65 78 69 74  5f 66 6c 61 67 25 3d 31  |  . exit_flag%=1|
000007d0  20 84 20 6c 6f 6f 70 5f  66 6c 61 67 25 3d 30 0d  | . loop_flag%=0.|
000007e0  03 5c 26 20 20 20 20 f2  73 65 74 5f 70 61 6c 65  |.\&    .set_pale|
000007f0  74 74 65 28 69 6e 69 74  69 61 6c 5f 70 61 6c 65  |tte(initial_pale|
00000800  74 74 65 25 29 0d 03 66  10 20 20 20 20 2a 50 4f  |tte%)..f.    *PO|
00000810  49 4e 54 45 52 0d 03 70  2d 20 20 20 20 c8 99 22  |INTER..p-    .."|
00000820  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00000830  22 2c 2d 31 2c 30 2c 30  2c 31 32 38 30 2c 31 30  |",-1,0,0,1280,10|
00000840  32 34 0d 03 7a 07 20 20  cd 0d 03 84 09 20 20 ef  |24..z.  .....  .|
00000850  20 37 0d 03 8e 05 e1 0d  03 98 04 0d 03 a2 04 0d  | 7..............|
00000860  03 ac 17 dd 20 f2 63 68  6f 6f 73 65 5f 70 69 63  |.... .choose_pic|
00000870  5f 64 65 6c 61 79 0d 03  b6 2d 20 20 20 e7 20 70  |_delay...-   . p|
00000880  69 63 74 75 72 65 5f 74  69 6d 65 5f 74 61 62 6c  |icture_time_tabl|
00000890  65 25 21 28 70 69 63 6e  6f 25 3c 3c 32 29 3e 2d  |e%!(picno%<<2)>-|
000008a0  31 20 8c 0d 03 c0 30 20  20 20 20 20 f2 64 65 6c  |1 ....0     .del|
000008b0  61 79 28 70 69 63 74 75  72 65 5f 74 69 6d 65 5f  |ay(picture_time_|
000008c0  74 61 62 6c 65 25 21 28  70 69 63 6e 6f 25 3c 3c  |table%!(picno%<<|
000008d0  32 29 29 0d 03 ca 08 20  20 20 cc 0d 03 d4 0a 20  |2))....   ..... |
000008e0  20 20 20 20 f5 0d 03 de  19 20 20 20 20 20 20 20  |    .....       |
000008f0  c8 97 20 6d 78 25 2c 6d  79 25 2c 6d 6b 25 0d 03  |.. mx%,my%,mk%..|
00000900  e8 22 20 20 20 20 20 20  20 e7 20 6d 6b 25 3d 34  |."       . mk%=4|
00000910  20 80 20 70 74 72 5f 66  6c 61 67 25 3d 30 20 8c  | . ptr_flag%=0 .|
00000920  0d 03 f2 15 20 20 20 20  20 20 20 20 20 2a 50 4f  |....         *PO|
00000930  49 4e 54 45 52 0d 03 fc  18 20 20 20 20 20 20 20  |INTER....       |
00000940  20 20 70 74 72 5f 66 6c  61 67 25 3d 31 0d 04 06  |  ptr_flag%=1...|
00000950  0c 20 20 20 20 20 20 20  cc 0d 04 10 25 20 20 20  |.       ....%   |
00000960  20 20 20 20 20 20 e7 20  6d 6b 25 3c 3e 34 20 80  |      . mk%<>4 .|
00000970  20 70 74 72 5f 66 6c 61  67 25 3d 31 20 8c 0d 04  | ptr_flag%=1 ...|
00000980  1a 17 20 20 20 20 20 20  20 20 20 2a 50 4f 49 4e  |..         *POIN|
00000990  54 45 52 20 30 0d 04 24  18 20 20 20 20 20 20 20  |TER 0..$.       |
000009a0  20 20 70 74 72 5f 66 6c  61 67 25 3d 30 0d 04 2e  |  ptr_flag%=0...|
000009b0  0e 20 20 20 20 20 20 20  20 20 cd 0d 04 38 0c 20  |.         ...8. |
000009c0  20 20 20 20 20 20 cd 0d  04 42 28 20 20 20 20 20  |      ...B(     |
000009d0  fd 20 6d 6b 25 3d 31 20  84 20 6d 6b 25 3d 32 20  |. mk%=1 . mk%=2 |
000009e0  84 20 6d 6b 25 3d 35 20  84 20 6d 6b 25 3d 36 0d  |. mk%=5 . mk%=6.|
000009f0  04 4c 08 20 20 20 cd 0d  04 56 05 e1 0d 04 60 04  |.L.   ...V....`.|
00000a00  0d 04 6a 2d dd 20 f2 6c  6f 61 64 5f 62 75 66 66  |..j-. .load_buff|
00000a10  65 72 28 6c 65 6e 67 74  68 25 2c 70 69 63 74 75  |er(length%,pictu|
00000a20  72 65 5f 61 64 64 72 25  2c 69 64 25 29 0d 04 74  |re_addr%,id%)..t|
00000a30  04 0d 04 7e 10 20 20 20  20 c8 8e 20 69 64 25 20  |...~.    .. id% |
00000a40  ca 0d 04 88 0f 20 20 20  20 20 20 c9 20 30 2c 32  |.....      . 0,2|
00000a50  0d 04 92 3f 20 20 20 20  20 20 20 20 f2 63 6f 70  |...?        .cop|
00000a60  79 5f 66 75 6c 6c 5f 73  63 72 65 65 6e 28 70 69  |y_full_screen(pi|
00000a70  63 74 75 72 65 5f 61 64  64 72 25 2c 73 63 72 65  |cture_addr%,scre|
00000a80  65 6e 5f 62 75 66 66 65  72 25 2c 31 36 30 29 0d  |en_buffer%,160).|
00000a90  04 9c 0f 20 20 20 20 20  20 c9 20 31 2c 33 0d 04  |...      . 1,3..|
00000aa0  a6 1d 20 20 20 20 20 20  20 20 41 25 3d 73 63 72  |..        A%=scr|
00000ab0  65 65 6e 5f 62 75 66 66  65 72 25 0d 04 b0 1c 20  |een_buffer%.... |
00000ac0  20 20 20 20 20 20 20 42  25 3d 70 69 63 74 75 72  |       B%=pictur|
00000ad0  65 5f 61 64 64 72 25 0d  04 ba 16 20 20 20 20 20  |e_addr%....     |
00000ae0  20 20 20 43 25 3d 6c 65  6e 67 74 68 25 0d 04 c4  |   C%=length%...|
00000af0  15 20 20 20 20 20 20 20  20 d6 20 64 63 6f 64 65  |.        . dcode|
00000b00  72 25 0d 04 ce 0f 20 20  20 20 20 20 c9 20 34 2c  |r%....      . 4,|
00000b10  36 0d 04 d8 38 20 20 20  20 20 20 20 20 f2 73 65  |6...8        .se|
00000b20  74 70 61 6c 65 74 74 65  31 32 28 70 61 6c 65 74  |tpalette12(palet|
00000b30  74 65 5f 74 61 62 6c 65  5f 31 32 25 21 28 70 69  |te_table_12%!(pi|
00000b40  63 6e 6f 25 3c 3c 32 29  29 0d 04 e2 1d 20 20 20  |cno%<<2))....   |
00000b50  20 20 20 20 20 41 25 3d  73 63 72 65 65 6e 5f 62  |     A%=screen_b|
00000b60  75 66 66 65 72 25 0d 04  ec 1c 20 20 20 20 20 20  |uffer%....      |
00000b70  20 20 42 25 3d 70 69 63  74 75 72 65 5f 61 64 64  |  B%=picture_add|
00000b80  72 25 0d 04 f6 1d 20 20  20 20 20 20 20 20 43 25  |r%....        C%|
00000b90  3d 6d 6f 64 65 31 32 5f  62 75 66 66 65 72 25 0d  |=mode12_buffer%.|
00000ba0  05 00 1c 20 20 20 20 20  20 20 20 d6 20 6d 6f 64  |...        . mod|
00000bb0  65 5f 31 32 5f 74 6f 5f  31 35 25 0d 05 0a 0f 20  |e_12_to_15%.... |
00000bc0  20 20 20 20 20 c9 20 35  2c 37 0d 05 14 38 20 20  |     . 5,7...8  |
00000bd0  20 20 20 20 20 20 f2 73  65 74 70 61 6c 65 74 74  |      .setpalett|
00000be0  65 31 32 28 70 61 6c 65  74 74 65 5f 74 61 62 6c  |e12(palette_tabl|
00000bf0  65 5f 31 32 25 21 28 70  69 63 6e 6f 25 3c 3c 32  |e_12%!(picno%<<2|
00000c00  29 29 0d 05 1e 1d 20 20  20 20 20 20 20 20 41 25  |))....        A%|
00000c10  3d 73 63 72 65 65 6e 5f  62 75 66 66 65 72 25 0d  |=screen_buffer%.|
00000c20  05 28 1c 20 20 20 20 20  20 20 20 42 25 3d 70 69  |.(.        B%=pi|
00000c30  63 74 75 72 65 5f 61 64  64 72 25 0d 05 32 16 20  |cture_addr%..2. |
00000c40  20 20 20 20 20 20 20 43  25 3d 6c 65 6e 67 74 68  |       C%=length|
00000c50  25 0d 05 3c 1d 20 20 20  20 20 20 20 20 44 25 3d  |%..<.        D%=|
00000c60  6d 6f 64 65 31 32 5f 62  75 66 66 65 72 25 0d 05  |mode12_buffer%..|
00000c70  46 18 20 20 20 20 20 20  20 20 d6 20 64 63 6f 64  |F.        . dcod|
00000c80  65 72 5f 31 32 25 0d 05  50 09 20 20 20 20 cb 0d  |er_12%..P.    ..|
00000c90  05 5a 05 e1 0d 05 64 04  0d 05 6e 10 dd 20 f2 64  |.Z....d...n.. .d|
00000ca0  65 6c 61 79 28 6e 25 29  0d 05 78 09 20 20 d1 3d  |elay(n%)..x.  .=|
00000cb0  30 0d 05 82 07 20 20 f5  0d 05 96 14 20 20 20 20  |0....  .....    |
00000cc0  e7 20 a6 28 31 29 3c 3e  2d 31 20 8c 0d 05 a0 16  |. .(1)<>-1 .....|
00000cd0  20 20 20 20 20 20 65 78  69 74 5f 66 6c 61 67 25  |      exit_flag%|
00000ce0  3d 31 0d 05 aa 09 20 20  20 20 cd 0d 05 be 1b 20  |=1....    ..... |
00000cf0  20 fd 20 91 3e 6e 25 20  84 20 65 78 69 74 5f 66  | . .>n% . exit_f|
00000d00  6c 61 67 25 3d 31 0d 05  c8 05 e1 0d 05 d2 04 0d  |lag%=1..........|
00000d10  05 dc 1e dd 20 f2 74 72  61 6e 73 69 74 69 6f 6e  |.... .transition|
00000d20  28 69 64 25 2c 74 5f 74  69 6d 65 25 29 0d 05 e6  |(id%,t_time%)...|
00000d30  04 0d 05 f0 0e 20 20 c8  8e 20 69 64 25 20 ca 0d  |.....  .. id% ..|
00000d40  05 fa 04 0d 06 04 10 20  20 20 20 c9 20 30 3a f2  |.......    . 0:.|
00000d50  63 75 74 0d 06 0e 32 20  20 20 20 c9 20 31 3a f2  |cut...2    . 1:.|
00000d60  64 5f 73 6c 69 64 65 28  73 63 72 65 65 6e 5f 62  |d_slide(screen_b|
00000d70  75 66 66 65 72 25 2c 73  63 72 6e 62 61 73 65 5f  |uffer%,scrnbase_|
00000d80  30 25 2c 34 29 0d 06 18  32 20 20 20 20 c9 20 32  |0%,4)...2    . 2|
00000d90  3a f2 68 5f 73 6c 69 64  65 28 73 63 72 65 65 6e  |:.h_slide(screen|
00000da0  5f 62 75 66 66 65 72 25  2c 73 63 72 6e 62 61 73  |_buffer%,scrnbas|
00000db0  65 5f 30 25 2c 34 29 0d  06 22 35 20 20 20 20 c9  |e_0%,4).."5    .|
00000dc0  20 33 3a f2 68 5f 73 6c  6f 74 73 28 73 63 72 65  | 3:.h_slots(scre|
00000dd0  65 6e 5f 62 75 66 66 65  72 25 2c 73 63 72 6e 62  |en_buffer%,scrnb|
00000de0  61 73 65 5f 30 25 2c 31  36 2c 38 29 0d 06 2c 37  |ase_0%,16,8)..,7|
00000df0  20 20 20 20 c9 20 34 3a  f2 68 5f 76 65 6e 69 74  |    . 4:.h_venit|
00000e00  69 61 6e 28 73 63 72 65  65 6e 5f 62 75 66 66 65  |ian(screen_buffe|
00000e10  72 25 2c 73 63 72 6e 62  61 73 65 5f 30 25 2c 36  |r%,scrnbase_0%,6|
00000e20  2c 32 29 0d 06 36 37 20  20 20 20 c9 20 35 3a f2  |,2)..67    . 5:.|
00000e30  68 5f 63 75 72 74 61 69  6e 73 28 73 63 72 65 65  |h_curtains(scree|
00000e40  6e 5f 62 75 66 66 65 72  25 2c 73 63 72 6e 62 61  |n_buffer%,scrnba|
00000e50  73 65 5f 30 25 2c 32 2c  31 29 0d 06 40 3b 20 20  |se_0%,2,1)..@;  |
00000e60  20 20 c9 20 36 3a f2 62  6f 74 68 5f 63 75 72 74  |  . 6:.both_curt|
00000e70  61 69 6e 73 28 73 63 72  65 65 6e 5f 62 75 66 66  |ains(screen_buff|
00000e80  65 72 25 2c 73 63 72 6e  62 61 73 65 5f 30 25 2c  |er%,scrnbase_0%,|
00000e90  34 2c 2d 31 29 0d 06 4a  1a 20 20 20 20 c9 20 37  |4,-1)..J.    . 7|
00000ea0  3a f2 66 61 64 65 28 74  5f 74 69 6d 65 25 29 0d  |:.fade(t_time%).|
00000eb0  06 54 32 20 20 20 20 c9  20 38 3a f2 64 5f 73 6c  |.T2    . 8:.d_sl|
00000ec0  69 64 65 28 73 63 72 65  65 6e 5f 62 75 66 66 65  |ide(screen_buffe|
00000ed0  72 25 2c 73 63 72 6e 62  61 73 65 5f 30 25 2c 31  |r%,scrnbase_0%,1|
00000ee0  29 0d 06 5e 33 20 20 20  20 c9 20 39 3a f2 68 5f  |)..^3    . 9:.h_|
00000ef0  73 6c 69 64 65 28 73 63  72 65 65 6e 5f 62 75 66  |slide(screen_buf|
00000f00  66 65 72 25 2c 73 63 72  6e 62 61 73 65 5f 30 25  |fer%,scrnbase_0%|
00000f10  2c 2d 34 29 0d 06 68 37  20 20 20 20 c9 20 31 30  |,-4)..h7    . 10|
00000f20  3a f2 6c 68 5f 73 6c 6f  74 73 28 73 63 72 65 65  |:.lh_slots(scree|
00000f30  6e 5f 62 75 66 66 65 72  25 2c 73 63 72 6e 62 61  |n_buffer%,scrnba|
00000f40  73 65 5f 30 25 2c 31 36  2c 38 29 0d 06 72 39 20  |se_0%,16,8)..r9 |
00000f50  20 20 20 c9 20 31 31 3a  f2 68 5f 76 65 6e 69 74  |   . 11:.h_venit|
00000f60  69 61 6e 28 73 63 72 65  65 6e 5f 62 75 66 66 65  |ian(screen_buffe|
00000f70  72 25 2c 73 63 72 6e 62  61 73 65 5f 30 25 2c 36  |r%,scrnbase_0%,6|
00000f80  2c 2d 32 29 0d 06 7c 39  20 20 20 20 c9 20 31 32  |,-2)..|9    . 12|
00000f90  3a f2 68 5f 63 75 72 74  61 69 6e 73 28 73 63 72  |:.h_curtains(scr|
00000fa0  65 65 6e 5f 62 75 66 66  65 72 25 2c 73 63 72 6e  |een_buffer%,scrn|
00000fb0  62 61 73 65 5f 30 25 2c  32 2c 2d 31 29 0d 06 86  |base_0%,2,-1)...|
00000fc0  3b 20 20 20 20 c9 20 31  33 3a f2 62 6f 74 68 5f  |;    . 13:.both_|
00000fd0  63 75 72 74 61 69 6e 73  28 73 63 72 65 65 6e 5f  |curtains(screen_|
00000fe0  62 75 66 66 65 72 25 2c  73 63 72 6e 62 61 73 65  |buffer%,scrnbase|
00000ff0  5f 30 25 2c 34 2c 31 29  0d 06 90 13 20 20 20 20  |_0%,4,1)....    |
00001000  c9 20 31 34 3a f2 66 61  64 65 72 0d 06 9a 33 20  |. 14:.fader...3 |
00001010  20 20 20 c9 20 31 35 3a  f2 64 5f 73 6c 69 64 65  |   . 15:.d_slide|
00001020  28 73 63 72 65 65 6e 5f  62 75 66 66 65 72 25 2c  |(screen_buffer%,|
00001030  73 63 72 6e 62 61 73 65  5f 30 25 2c 32 29 0d 06  |scrnbase_0%,2)..|
00001040  a4 33 20 20 20 20 c9 20  31 36 3a f2 76 5f 73 6c  |.3    . 16:.v_sl|
00001050  69 64 65 28 73 63 72 65  65 6e 5f 62 75 66 66 65  |ide(screen_buffe|
00001060  72 25 2c 73 63 72 6e 62  61 73 65 5f 30 25 2c 38  |r%,scrnbase_0%,8|
00001070  29 0d 06 ae 36 20 20 20  20 c9 20 31 37 3a f2 76  |)...6    . 17:.v|
00001080  5f 73 6c 6f 74 73 28 73  63 72 65 65 6e 5f 62 75  |_slots(screen_bu|
00001090  66 66 65 72 25 2c 73 63  72 6e 62 61 73 65 5f 30  |ffer%,scrnbase_0|
000010a0  25 2c 33 32 2c 38 29 0d  06 b8 39 20 20 20 20 c9  |%,32,8)...9    .|
000010b0  20 31 38 3a f2 76 5f 76  65 6e 69 74 69 61 6e 28  | 18:.v_venitian(|
000010c0  73 63 72 65 65 6e 5f 62  75 66 66 65 72 25 2c 73  |screen_buffer%,s|
000010d0  63 72 6e 62 61 73 65 5f  30 25 2c 31 32 2c 34 29  |crnbase_0%,12,4)|
000010e0  0d 06 c2 39 20 20 20 20  c9 20 31 39 3a f2 76 5f  |...9    . 19:.v_|
000010f0  63 75 72 74 61 69 6e 73  28 73 63 72 65 65 6e 5f  |curtains(screen_|
00001100  62 75 66 66 65 72 25 2c  73 63 72 6e 62 61 73 65  |buffer%,scrnbase|
00001110  5f 30 25 2c 34 2c 2d 31  29 0d 06 cc 30 20 20 20  |_0%,4,-1)...0   |
00001120  20 c9 20 32 30 3a f2 73  70 69 72 61 6c 28 73 63  | . 20:.spiral(sc|
00001130  72 65 65 6e 5f 62 75 66  66 65 72 25 2c 73 63 72  |reen_buffer%,scr|
00001140  6e 62 61 73 65 5f 30 25  29 0d 06 d6 31 20 20 20  |nbase_0%)...1   |
00001150  20 c9 20 32 31 3a f2 6d  61 74 72 69 78 38 28 73  | . 21:.matrix8(s|
00001160  63 72 65 65 6e 5f 62 75  66 66 65 72 25 2c 73 63  |creen_buffer%,sc|
00001170  72 6e 62 61 73 65 5f 30  25 29 0d 06 e0 33 20 20  |rnbase_0%)...3  |
00001180  20 20 c9 20 32 32 3a f2  64 5f 73 6c 69 64 65 28  |  . 22:.d_slide(|
00001190  73 63 72 65 65 6e 5f 62  75 66 66 65 72 25 2c 73  |screen_buffer%,s|
000011a0  63 72 6e 62 61 73 65 5f  30 25 2c 33 29 0d 06 ea  |crnbase_0%,3)...|
000011b0  34 20 20 20 20 c9 20 32  33 3a f2 76 5f 73 6c 69  |4    . 23:.v_sli|
000011c0  64 65 28 73 63 72 65 65  6e 5f 62 75 66 66 65 72  |de(screen_buffer|
000011d0  25 2c 73 63 72 6e 62 61  73 65 5f 30 25 2c 2d 38  |%,scrnbase_0%,-8|
000011e0  29 0d 06 f4 37 20 20 20  20 c9 20 32 34 3a f2 6c  |)...7    . 24:.l|
000011f0  76 5f 73 6c 6f 74 73 28  73 63 72 65 65 6e 5f 62  |v_slots(screen_b|
00001200  75 66 66 65 72 25 2c 73  63 72 6e 62 61 73 65 5f  |uffer%,scrnbase_|
00001210  30 25 2c 33 32 2c 38 29  0d 06 fe 3a 20 20 20 20  |0%,32,8)...:    |
00001220  c9 20 32 35 3a f2 76 5f  76 65 6e 69 74 69 61 6e  |. 25:.v_venitian|
00001230  28 73 63 72 65 65 6e 5f  62 75 66 66 65 72 25 2c  |(screen_buffer%,|
00001240  73 63 72 6e 62 61 73 65  5f 30 25 2c 31 32 2c 2d  |scrnbase_0%,12,-|
00001250  34 29 0d 07 08 38 20 20  20 20 c9 20 32 36 3a f2  |4)...8    . 26:.|
00001260  76 5f 63 75 72 74 61 69  6e 73 28 73 63 72 65 65  |v_curtains(scree|
00001270  6e 5f 62 75 66 66 65 72  25 2c 73 63 72 6e 62 61  |n_buffer%,scrnba|
00001280  73 65 5f 30 25 2c 34 2c  31 29 0d 07 12 10 20 20  |se_0%,4,1)....  |
00001290  20 20 c9 20 32 37 3a f2  63 6a 0d 07 1c 04 0d 07  |  . 27:.cj......|
000012a0  26 07 20 20 cb 0d 07 30  05 e1 0d 07 3a 04 0d 07  |&.  ...0....:...|
000012b0  44 04 0d 07 4e 0a dd 20  f2 63 75 74 0d 07 58 38  |D...N.. .cut..X8|
000012c0  20 20 20 f2 63 6f 70 79  5f 66 75 6c 6c 5f 73 63  |   .copy_full_sc|
000012d0  72 65 65 6e 28 73 63 72  65 65 6e 5f 62 75 66 66  |reen(screen_buff|
000012e0  65 72 25 2c 73 63 72 6e  62 61 73 65 5f 30 25 2c  |er%,scrnbase_0%,|
000012f0  31 36 30 29 0d 07 62 05  e1 0d 07 6c 04 0d 07 76  |160)..b....l...v|
00001300  14 dd 20 f2 66 61 64 65  28 66 5f 74 69 6d 65 25  |.. .fade(f_time%|
00001310  29 0d 07 80 2b 20 20 ea  20 63 6f 75 6e 74 25 2c  |)...+  . count%,|
00001320  74 65 6d 70 25 2c 63 6f  75 6e 74 31 25 2c 78 25  |temp%,count1%,x%|
00001330  2c 79 25 2c 6e 25 2c 74  65 6d 70 25 0d 07 8a 10  |,y%,n%,temp%....|
00001340  20 20 66 5f 74 69 6d 65  25 3d 37 30 0d 07 94 23  |  f_time%=70...#|
00001350  20 20 66 5f 74 69 6d 65  25 3d 28 28 66 5f 74 69  |  f_time%=((f_ti|
00001360  6d 65 25 2d 33 30 29 2a  36 39 35 29 3e 3e 38 0d  |me%-30)*695)>>8.|
00001370  07 9e 14 20 20 42 25 3d  73 63 72 6e 62 61 73 65  |...  B%=scrnbase|
00001380  5f 30 25 0d 07 a8 0b 20  20 43 25 3d 34 30 0d 07  |_0%....  C%=40..|
00001390  b2 0b 20 20 44 25 3d 31  36 0d 07 bc 16 20 20 e3  |..  D%=16....  .|
000013a0  20 63 6f 75 6e 74 25 3d  30 20 b8 20 32 35 35 0d  | count%=0 . 255.|
000013b0  07 c6 12 20 20 20 20 41  25 3d 66 5f 74 69 6d 65  |...    A%=f_time|
000013c0  25 0d 07 d0 10 20 20 20  20 d6 20 70 61 75 73 65  |%....    . pause|
000013d0  25 0d 07 da 19 20 20 20  20 41 25 3d 73 63 72 65  |%....    A%=scre|
000013e0  65 6e 5f 62 75 66 66 65  72 25 0d 07 e4 1c 20 20  |en_buffer%....  |
000013f0  20 20 6e 25 3d 62 6c 6f  63 6b 5f 6e 6f 25 28 63  |  n%=block_no%(c|
00001400  6f 75 6e 74 25 29 0d 07  ee 10 20 20 20 20 79 25  |ount%)....    y%|
00001410  3d 6e 25 3e 3e 34 0d 07  f8 10 20 20 20 20 79 25  |=n%>>4....    y%|
00001420  3d 79 25 3c 3c 34 0d 08  02 10 20 20 20 20 78 25  |=y%<<4....    x%|
00001430  3d 6e 25 2d 79 25 0d 08  0c 13 20 20 20 20 74 65  |=n%-y%....    te|
00001440  6d 70 25 3d 78 25 3c 3c  35 0d 08 16 18 20 20 20  |mp%=x%<<5....   |
00001450  20 78 25 3d 74 65 6d 70  25 2b 28 78 25 3c 3c 33  | x%=temp%+(x%<<3|
00001460  29 0d 08 20 0d 20 20 20  20 45 25 3d 78 25 0d 08  |).. .    E%=x%..|
00001470  2a 0d 20 20 20 20 46 25  3d 79 25 0d 08 34 0d 20  |*.    F%=y%..4. |
00001480  20 20 20 47 25 3d 78 25  0d 08 3e 0d 20 20 20 20  |   G%=x%..>.    |
00001490  48 25 3d 79 25 0d 08 48  16 20 20 20 20 d6 20 62  |H%=y%..H.    . b|
000014a0  6c 6f 63 6b 5f 62 6c 69  74 31 25 0d 08 52 0d 20  |lock_blit1%..R. |
000014b0  ed 20 63 6f 75 6e 74 25  0d 08 5c 05 e1 0d 08 66  |. count%..\....f|
000014c0  04 0d 08 70 2d dd 20 f2  62 6f 74 68 5f 63 75 72  |...p-. .both_cur|
000014d0  74 61 69 6e 73 28 73 72  63 65 25 2c 64 65 73 74  |tains(srce%,dest|
000014e0  25 2c 73 70 65 65 64 25  2c 73 74 70 25 29 0d 08  |%,speed%,stp%)..|
000014f0  7a 2b 20 20 f4 20 65 78  65 63 75 74 69 6f 6e 20  |z+  . execution |
00001500  74 69 6d 65 3d 36 34 30  2f 73 70 65 65 64 25 20  |time=640/speed% |
00001510  63 65 6e 74 69 73 65 63  73 0d 08 84 35 20 20 f4  |centisecs...5  .|
00001520  20 49 66 20 73 74 70 25  3d 31 20 74 68 65 6e 20  | If stp%=1 then |
00001530  63 6c 6f 73 65 20 28 67  65 74 20 61 20 73 68 72  |close (get a shr|
00001540  69 6e 6b 69 6e 67 20 73  71 75 61 72 65 29 0d 08  |inking square)..|
00001550  8e 32 20 20 f4 20 49 66  20 73 74 70 25 3d 2d 31  |.2  . If stp%=-1|
00001560  20 74 68 65 6e 20 6f 70  65 6e 20 28 67 65 74 20  | then open (get |
00001570  61 20 67 72 6f 77 69 6e  67 20 63 72 6f 73 73 29  |a growing cross)|
00001580  0d 08 98 30 20 20 ea 20  63 74 25 2c 69 6e 63 25  |...0  . ct%,inc%|
00001590  2c 73 74 61 72 74 25 2c  66 69 6e 69 73 68 25 2c  |,start%,finish%,|
000015a0  76 73 74 61 72 74 25 2c  76 66 69 6e 69 73 68 25  |vstart%,vfinish%|
000015b0  0d 08 a2 0e 20 20 41 25  3d 73 72 63 65 25 0d 08  |....  A%=srce%..|
000015c0  ac 0e 20 20 42 25 3d 64  65 73 74 25 0d 08 b6 0d  |..  B%=dest%....|
000015d0  20 20 69 6e 63 25 3d 2d  31 0d 08 c0 10 20 20 e7  |  inc%=-1....  .|
000015e0  20 73 74 70 25 3d 31 20  8c 0d 08 ca 10 20 20 20  | stp%=1 .....   |
000015f0  20 73 74 61 72 74 25 3d  30 0d 08 d4 13 20 20 20  | start%=0....   |
00001600  20 66 69 6e 69 73 68 25  3d 31 32 38 0d 08 de 11  | finish%=128....|
00001610  20 20 20 20 76 73 74 61  72 74 25 3d 30 0d 08 e8  |    vstart%=0...|
00001620  14 20 20 20 20 76 66 69  6e 69 73 68 25 3d 33 32  |.    vfinish%=32|
00001630  30 0d 08 f2 07 20 20 cc  0d 08 fc 12 20 20 20 20  |0....  .....    |
00001640  73 74 61 72 74 25 3d 31  32 38 0d 09 06 11 20 20  |start%=128....  |
00001650  20 20 66 69 6e 69 73 68  25 3d 30 0d 09 10 13 20  |  finish%=0.... |
00001660  20 20 20 76 73 74 61 72  74 25 3d 33 32 30 0d 09  |   vstart%=320..|
00001670  1a 12 20 20 20 20 76 66  69 6e 69 73 68 25 3d 30  |..    vfinish%=0|
00001680  0d 09 24 07 20 20 cd 0d  09 2e 23 20 20 e3 20 63  |..$.  ....#  . c|
00001690  74 25 3d 73 74 61 72 74  25 20 b8 20 66 69 6e 69  |t%=start% . fini|
000016a0  73 68 25 20 88 20 73 74  70 25 0d 09 38 13 20 20  |sh% . stp%..8.  |
000016b0  20 20 69 6e 63 25 3d 69  6e 63 25 2b 31 0d 09 42  |  inc%=inc%+1..B|
000016c0  1d 20 20 20 20 e7 20 28  69 6e 63 25 20 83 20 73  |.    . (inc% . s|
000016d0  70 65 65 64 25 29 3d 30  20 8c 0d 09 4c 0c 20 20  |peed%)=0 ...L.  |
000016e0  20 20 20 20 c8 96 0d 09  56 09 20 20 20 20 cd 0d  |    ....V.    ..|
000016f0  09 60 0e 20 20 20 20 43  25 3d 63 74 25 0d 09 6a  |.`.    C%=ct%..j|
00001700  10 20 20 20 20 d6 20 68  6c 69 6e 65 25 0d 09 74  |.    . hline%..t|
00001710  12 20 20 20 20 43 25 3d  32 35 35 2d 63 74 25 0d  |.    C%=255-ct%.|
00001720  09 7e 10 20 20 20 20 d6  20 68 6c 69 6e 65 25 0d  |.~.    . hline%.|
00001730  09 88 04 0d 09 92 2a 20  20 20 20 f4 20 6e 65 78  |......*    . nex|
00001740  74 20 73 65 63 74 69 6f  6e 20 64 72 61 77 73 20  |t section draws |
00001750  76 65 72 69 63 61 6c 20  6c 69 6e 65 73 0d 09 9c  |verical lines...|
00001760  3f 20 20 20 20 f4 20 74  68 65 20 66 6f 72 20 6e  |?    . the for n|
00001770  65 78 74 20 6c 6f 6f 70  20 74 68 61 74 20 65 6e  |ext loop that en|
00001780  63 6c 6f 73 65 73 20 69  74 28 66 6f 72 20 68 6f  |closes it(for ho|
00001790  72 69 7a 74 6c 20 6c 69  6e 65 73 29 0d 09 a6 2f  |riztl lines).../|
000017a0  20 20 20 20 f4 20 61 6c  77 61 79 73 20 66 69 6e  |    . always fin|
000017b0  69 73 68 65 73 20 62 65  66 6f 72 65 20 76 65 72  |ishes before ver|
000017c0  74 69 63 61 6c 20 6c 69  6e 65 73 0d 09 b0 24 20  |tical lines...$ |
000017d0  20 20 20 f4 20 74 68 65  72 65 66 6f 72 65 20 6e  |   . therefore n|
000017e0  6f 20 63 68 65 63 6b 73  20 6e 65 65 64 65 64 0d  |o checks needed.|
000017f0  09 ba 12 20 20 20 20 43  25 3d 76 73 74 61 72 74  |...    C%=vstart|
00001800  25 0d 09 c4 10 20 20 20  20 d6 20 76 6c 69 6e 65  |%....    . vline|
00001810  25 0d 09 ce 17 20 20 20  20 43 25 3d 76 73 74 61  |%....    C%=vsta|
00001820  72 74 25 2b 73 74 70 25  0d 09 d8 10 20 20 20 20  |rt%+stp%....    |
00001830  d6 20 76 6c 69 6e 65 25  0d 09 e2 16 20 20 20 20  |. vline%....    |
00001840  43 25 3d 36 33 39 2d 76  73 74 61 72 74 25 0d 09  |C%=639-vstart%..|
00001850  ec 10 20 20 20 20 d6 20  76 6c 69 6e 65 25 0d 09  |..    . vline%..|
00001860  f6 1d 20 20 20 20 43 25  3d 36 33 39 2d 28 76 73  |..    C%=639-(vs|
00001870  74 61 72 74 25 2b 73 74  70 25 29 0d 0a 00 10 20  |tart%+stp%).... |
00001880  20 20 20 d6 20 76 6c 69  6e 65 25 0d 0a 0a 21 20  |   . vline%...! |
00001890  20 20 20 76 73 74 61 72  74 25 3d 76 73 74 61 72  |   vstart%=vstar|
000018a0  74 25 2b 28 73 74 70 25  3c 3c 31 29 0d 0a 14 0b  |t%+(stp%<<1)....|
000018b0  20 20 ed 20 63 74 25 0d  0a 1e 05 e1 0d 0a 28 04  |  . ct%.......(.|
000018c0  0d 0a 32 04 0d 0a 3c 2a  dd 20 f2 76 5f 63 75 72  |..2...<*. .v_cur|
000018d0  74 61 69 6e 73 28 73 72  63 65 25 2c 64 65 73 74  |tains(srce%,dest|
000018e0  25 2c 73 70 65 65 64 25  2c 73 74 70 25 29 0d 0a  |%,speed%,stp%)..|
000018f0  46 2b 20 20 f4 20 65 78  65 63 75 74 69 6f 6e 20  |F+  . execution |
00001900  74 69 6d 65 3d 36 34 30  2f 73 70 65 65 64 25 20  |time=640/speed% |
00001910  63 65 6e 74 69 73 65 63  73 0d 0a 50 25 20 20 f4  |centisecs..P%  .|
00001920  20 49 66 20 73 74 70 25  3d 31 20 74 68 65 6e 20  | If stp%=1 then |
00001930  63 6c 6f 73 65 20 63 75  72 74 61 69 6e 73 0d 0a  |close curtains..|
00001940  5a 25 20 20 f4 20 49 66  20 73 74 70 25 3d 2d 31  |Z%  . If stp%=-1|
00001950  20 74 68 65 6e 20 6f 70  65 6e 20 63 75 72 74 61  | then open curta|
00001960  69 6e 73 0d 0a 64 1f 20  20 ea 20 63 74 25 2c 69  |ins..d.  . ct%,i|
00001970  6e 63 25 2c 73 74 61 72  74 25 2c 66 69 6e 69 73  |nc%,start%,finis|
00001980  68 25 0d 0a 6e 0e 20 20  41 25 3d 73 72 63 65 25  |h%..n.  A%=srce%|
00001990  0d 0a 78 0e 20 20 42 25  3d 64 65 73 74 25 0d 0a  |..x.  B%=dest%..|
000019a0  82 0d 20 20 69 6e 63 25  3d 2d 31 0d 0a 8c 10 20  |..  inc%=-1.... |
000019b0  20 e7 20 73 74 70 25 3d  31 20 8c 0d 0a 96 10 20  | . stp%=1 ..... |
000019c0  20 20 20 73 74 61 72 74  25 3d 30 0d 0a a0 13 20  |   start%=0.... |
000019d0  20 20 20 66 69 6e 69 73  68 25 3d 33 32 30 0d 0a  |   finish%=320..|
000019e0  aa 07 20 20 cc 0d 0a b4  12 20 20 20 20 73 74 61  |..  .....    sta|
000019f0  72 74 25 3d 33 32 30 0d  0a be 11 20 20 20 20 66  |rt%=320....    f|
00001a00  69 6e 69 73 68 25 3d 30  0d 0a c8 07 20 20 cd 0d  |inish%=0....  ..|
00001a10  0a d2 23 20 20 e3 20 63  74 25 3d 73 74 61 72 74  |..#  . ct%=start|
00001a20  25 20 b8 20 66 69 6e 69  73 68 25 20 88 20 73 74  |% . finish% . st|
00001a30  70 25 0d 0a dc 13 20 20  20 20 69 6e 63 25 3d 69  |p%....    inc%=i|
00001a40  6e 63 25 2b 31 0d 0a e6  1d 20 20 20 20 e7 20 28  |nc%+1....    . (|
00001a50  69 6e 63 25 20 83 20 73  70 65 65 64 25 29 3d 30  |inc% . speed%)=0|
00001a60  20 8c 0d 0a f0 0c 20 20  20 20 20 20 c8 96 0d 0a  | .....      ....|
00001a70  fa 09 20 20 20 20 cd 0d  0b 04 0e 20 20 20 20 43  |..    .....    C|
00001a80  25 3d 63 74 25 0d 0b 0e  10 20 20 20 20 d6 20 76  |%=ct%....    . v|
00001a90  6c 69 6e 65 25 0d 0b 18  12 20 20 20 20 43 25 3d  |line%....    C%=|
00001aa0  36 33 39 2d 63 74 25 0d  0b 22 10 20 20 20 20 d6  |639-ct%..".    .|
00001ab0  20 76 6c 69 6e 65 25 0d  0b 2c 0b 20 20 ed 20 63  | vline%..,.  . c|
00001ac0  74 25 0d 0b 36 05 e1 0d  0b 40 04 0d 0b 4a 2a dd  |t%..6....@...J*.|
00001ad0  20 f2 68 5f 63 75 72 74  61 69 6e 73 28 73 72 63  | .h_curtains(src|
00001ae0  65 25 2c 64 65 73 74 25  2c 73 70 65 65 64 25 2c  |e%,dest%,speed%,|
00001af0  73 74 70 25 29 0d 0b 54  04 0d 0b 5e 21 20 20 f4  |stp%)..T...^!  .|
00001b00  20 65 78 65 63 75 74 69  6f 6e 20 74 69 6d 65 3d  | execution time=|
00001b10  32 35 36 2f 73 70 65 65  64 25 0d 0b 68 25 20 20  |256/speed%..h%  |
00001b20  f4 20 49 66 20 73 74 70  25 3d 31 20 74 68 65 6e  |. If stp%=1 then|
00001b30  20 63 6c 6f 73 65 20 63  75 72 74 61 69 6e 73 0d  | close curtains.|
00001b40  0b 72 25 20 20 f4 20 49  66 20 73 74 70 25 3d 2d  |.r%  . If stp%=-|
00001b50  31 20 74 68 65 6e 20 6f  70 65 6e 20 63 75 72 74  |1 then open curt|
00001b60  61 69 6e 73 0d 0b 7c 18  20 20 ea 20 63 74 25 2c  |ains..|.  . ct%,|
00001b70  69 6e 63 25 2c 66 69 6e  69 73 68 25 0d 0b 86 0e  |inc%,finish%....|
00001b80  20 20 41 25 3d 73 72 63  65 25 0d 0b 90 0e 20 20  |  A%=srce%....  |
00001b90  42 25 3d 64 65 73 74 25  0d 0b 9a 0d 20 20 69 6e  |B%=dest%....  in|
00001ba0  63 25 3d 2d 31 0d 0b a4  10 20 20 e7 20 73 74 70  |c%=-1....  . stp|
00001bb0  25 3d 31 20 8c 0d 0b ae  10 20 20 20 20 73 74 61  |%=1 .....    sta|
00001bc0  72 74 25 3d 30 0d 0b b8  13 20 20 20 20 66 69 6e  |rt%=0....    fin|
00001bd0  69 73 68 25 3d 31 32 38  0d 0b c2 07 20 20 cc 0d  |ish%=128....  ..|
00001be0  0b cc 12 20 20 20 20 73  74 61 72 74 25 3d 31 32  |...    start%=12|
00001bf0  38 0d 0b d6 11 20 20 20  20 66 69 6e 69 73 68 25  |8....    finish%|
00001c00  3d 30 0d 0b e0 07 20 20  cd 0d 0b ea 23 20 20 e3  |=0....  ....#  .|
00001c10  20 63 74 25 3d 73 74 61  72 74 25 20 b8 20 66 69  | ct%=start% . fi|
00001c20  6e 69 73 68 25 20 88 20  73 74 70 25 0d 0b f4 13  |nish% . stp%....|
00001c30  20 20 20 20 69 6e 63 25  3d 69 6e 63 25 2b 31 0d  |    inc%=inc%+1.|
00001c40  0b fe 1d 20 20 20 20 e7  20 28 69 6e 63 25 20 83  |...    . (inc% .|
00001c50  20 73 70 65 65 64 25 29  3d 30 20 8c 0d 0c 08 0c  | speed%)=0 .....|
00001c60  20 20 20 20 20 20 c8 96  0d 0c 12 09 20 20 20 20  |      ......    |
00001c70  cd 0d 0c 1c 0e 20 20 20  20 43 25 3d 63 74 25 0d  |.....    C%=ct%.|
00001c80  0c 26 10 20 20 20 20 d6  20 68 6c 69 6e 65 25 0d  |.&.    . hline%.|
00001c90  0c 30 12 20 20 20 20 43  25 3d 32 35 35 2d 63 74  |.0.    C%=255-ct|
00001ca0  25 0d 0c 3a 10 20 20 20  20 d6 20 68 6c 69 6e 65  |%..:.    . hline|
00001cb0  25 0d 0c 44 0b 20 20 ed  20 63 74 25 0d 0c 4e 05  |%..D.  . ct%..N.|
00001cc0  e1 0d 0c 58 04 0d 0c 62  2a dd 20 f2 68 5f 76 65  |...X...b*. .h_ve|
00001cd0  6e 69 74 69 61 6e 28 73  72 63 65 25 2c 64 65 73  |nitian(srce%,des|
00001ce0  74 25 2c 73 70 65 65 64  25 2c 67 61 70 25 29 0d  |t%,speed%,gap%).|
00001cf0  0c 6c 2e 20 20 f4 20 65  78 65 63 75 74 69 6f 6e  |.l.  . execution|
00001d00  20 74 69 6d 65 20 3d 28  35 31 32 2f 64 65 6c 61  | time =(512/dela|
00001d10  79 25 29 20 63 65 6e 74  69 73 65 63 73 0d 0c 76  |y%) centisecs..v|
00001d20  25 20 20 f4 20 20 20 67  61 70 25 20 6d 75 73 74  |%  .   gap% must|
00001d30  20 62 65 20 61 20 70 6f  77 65 72 20 6f 66 20 74  | be a power of t|
00001d40  77 6f 0d 0c 80 16 20 20  ea 20 63 74 25 2c 63 74  |wo....  . ct%,ct|
00001d50  31 25 2c 69 6e 63 31 25  0d 0c 8a 0e 20 20 41 25  |1%,inc1%....  A%|
00001d60  3d 73 72 63 65 25 0d 0c  94 0e 20 20 42 25 3d 64  |=srce%....  B%=d|
00001d70  65 73 74 25 0d 0c 9e 0e  20 20 69 6e 63 31 25 3d  |est%....  inc1%=|
00001d80  2d 31 0d 0c a8 10 20 20  e7 20 67 61 70 25 3c 30  |-1....  . gap%<0|
00001d90  20 8c 0d 0c b2 17 20 20  20 20 67 61 70 6e 25 3d  | .....    gapn%=|
00001da0  28 67 61 70 25 29 3c 3c  31 0d 0c bc 13 20 20 20  |(gap%)<<1....   |
00001db0  20 67 61 70 25 3d 30 2d  67 61 70 25 0d 0c c6 0b  | gap%=0-gap%....|
00001dc0  20 20 20 20 f2 75 70 0d  0c d0 0d 20 20 20 20 f2  |    .up....    .|
00001dd0  64 6f 77 6e 0d 0c da 07  20 20 cc 0d 0c e4 0d 20  |down....  ..... |
00001de0  20 20 20 f2 64 6f 77 6e  0d 0c ee 19 20 20 20 20  |   .down....    |
00001df0  67 61 70 6e 25 3d 28 30  2d 67 61 70 25 29 3c 3c  |gapn%=(0-gap%)<<|
00001e00  31 0d 0c f8 0b 20 20 20  20 f2 75 70 0d 0d 02 07  |1....    .up....|
00001e10  20 20 cd 0d 0d 0c 05 e1  0d 0d 16 04 0d 0d 20 0b  |  ............ .|
00001e20  dd 20 f2 64 6f 77 6e 0d  0d 2a 25 20 20 e3 20 63  |. .down..*%  . c|
00001e30  74 25 3d 30 20 b8 20 28  32 35 36 2d 67 61 70 25  |t%=0 . (256-gap%|
00001e40  29 20 20 88 20 67 61 70  25 3c 3c 31 0d 0d 34 19  |)  . gap%<<1..4.|
00001e50  20 20 20 20 e3 20 63 74  31 25 3d 30 20 b8 20 67  |    . ct1%=0 . g|
00001e60  61 70 25 2d 31 0d 0d 3e  17 20 20 20 20 20 20 69  |ap%-1..>.      i|
00001e70  6e 63 31 25 3d 69 6e 63  31 25 2b 31 0d 0d 48 20  |nc1%=inc1%+1..H |
00001e80  20 20 20 20 20 20 e7 20  28 69 6e 63 31 25 20 83  |      . (inc1% .|
00001e90  20 73 70 65 65 64 25 29  3d 30 20 8c 0d 0d 52 0e  | speed%)=0 ...R.|
00001ea0  20 20 20 20 20 20 20 20  c8 96 0d 0d 5c 0b 20 20  |        ....\.  |
00001eb0  20 20 20 20 cd 0d 0d 66  15 20 20 20 20 20 20 43  |    ...f.      C|
00001ec0  25 3d 63 74 25 2b 63 74  31 25 0d 0d 70 12 20 20  |%=ct%+ct1%..p.  |
00001ed0  20 20 20 20 d6 20 68 6c  69 6e 65 25 0d 0d 7a 0e  |    . hline%..z.|
00001ee0  20 20 20 20 ed 20 63 74  31 25 0d 0d 84 0b 20 20  |    . ct1%....  |
00001ef0  ed 20 63 74 25 0d 0d 8e  05 e1 0d 0d 98 09 dd 20  |. ct%.......... |
00001f00  f2 75 70 0d 0d a2 1e 20  20 e3 20 63 74 25 3d 32  |.up....  . ct%=2|
00001f10  35 35 20 b8 20 67 61 70  25 20 88 20 67 61 70 6e  |55 . gap% . gapn|
00001f20  25 0d 0d ac 19 20 20 20  20 e3 20 63 74 31 25 3d  |%....    . ct1%=|
00001f30  30 20 b8 20 67 61 70 25  2d 31 0d 0d b6 17 20 20  |0 . gap%-1....  |
00001f40  20 20 20 20 69 6e 63 31  25 3d 69 6e 63 31 25 2b  |    inc1%=inc1%+|
00001f50  31 0d 0d c0 20 20 20 20  20 20 20 e7 20 28 69 6e  |1...       . (in|
00001f60  63 31 25 20 83 20 73 70  65 65 64 25 29 3d 30 20  |c1% . speed%)=0 |
00001f70  8c 0d 0d ca 0e 20 20 20  20 20 20 20 20 c8 96 0d  |.....        ...|
00001f80  0d d4 0b 20 20 20 20 20  20 cd 0d 0d de 15 20 20  |...      .....  |
00001f90  20 20 20 20 43 25 3d 63  74 25 2d 63 74 31 25 0d  |    C%=ct%-ct1%.|
00001fa0  0d e8 12 20 20 20 20 20  20 d6 20 68 6c 69 6e 65  |...      . hline|
00001fb0  25 0d 0d f2 0e 20 20 20  20 ed 20 63 74 31 25 0d  |%....    . ct1%.|
00001fc0  0d fc 0b 20 20 ed 20 63  74 25 0d 0e 06 05 e1 0d  |...  . ct%......|
00001fd0  0e 10 04 0d 0e 1a 2a dd  20 f2 76 5f 76 65 6e 69  |......*. .v_veni|
00001fe0  74 69 61 6e 28 73 72 63  65 25 2c 64 65 73 74 25  |tian(srce%,dest%|
00001ff0  2c 73 70 65 65 64 25 2c  67 61 70 25 29 0d 0e 24  |,speed%,gap%)..$|
00002000  2f 20 20 f4 20 65 78 65  63 75 74 69 6f 6e 20 74  |/  . execution t|
00002010  69 6d 65 20 3d 28 31 32  38 30 2f 64 65 6c 61 79  |ime =(1280/delay|
00002020  25 29 20 63 65 6e 74 69  73 65 63 73 0d 0e 2e 25  |%) centisecs...%|
00002030  20 20 f4 20 20 20 67 61  70 25 20 6d 75 73 74 20  |  .   gap% must |
00002040  62 65 20 61 20 70 6f 77  65 72 20 6f 66 20 74 77  |be a power of tw|
00002050  6f 0d 0e 38 16 20 20 ea  20 63 74 25 2c 63 74 31  |o..8.  . ct%,ct1|
00002060  25 2c 69 6e 63 31 25 0d  0e 42 0e 20 20 41 25 3d  |%,inc1%..B.  A%=|
00002070  73 72 63 65 25 0d 0e 4c  0e 20 20 42 25 3d 64 65  |srce%..L.  B%=de|
00002080  73 74 25 0d 0e 56 0e 20  20 69 6e 63 31 25 3d 2d  |st%..V.  inc1%=-|
00002090  31 0d 0e 60 10 20 20 e7  20 67 61 70 25 3c 30 20  |1..`.  . gap%<0 |
000020a0  8c 0d 0e 6a 15 20 20 20  20 67 61 70 6e 25 3d 67  |...j.    gapn%=g|
000020b0  61 70 25 3c 3c 31 0d 0e  74 13 20 20 20 20 67 61  |ap%<<1..t.    ga|
000020c0  70 25 3d 30 2d 67 61 70  25 0d 0e 7e 0e 20 20 20  |p%=0-gap%..~.   |
000020d0  20 f2 72 69 67 68 74 0d  0e 88 0d 20 20 20 20 f2  | .right....    .|
000020e0  6c 65 66 74 0d 0e 92 07  20 20 cc 0d 0e 9c 0d 20  |left....  ..... |
000020f0  20 20 20 f2 6c 65 66 74  0d 0e a6 19 20 20 20 20  |   .left....    |
00002100  67 61 70 6e 25 3d 28 30  2d 67 61 70 25 29 3c 3c  |gapn%=(0-gap%)<<|
00002110  31 0d 0e b0 0e 20 20 20  20 f2 72 69 67 68 74 0d  |1....    .right.|
00002120  0e ba 07 20 20 cd 0d 0e  c4 05 e1 0d 0e ce 04 0d  |...  ...........|
00002130  0e d8 0b dd 20 f2 6c 65  66 74 0d 0e e2 25 20 20  |.... .left...%  |
00002140  e3 20 63 74 25 3d 30 20  b8 20 28 36 34 30 2d 67  |. ct%=0 . (640-g|
00002150  61 70 25 29 20 20 88 20  67 61 70 25 3c 3c 31 0d  |ap%)  . gap%<<1.|
00002160  0e ec 19 20 20 20 20 e3  20 63 74 31 25 3d 30 20  |...    . ct1%=0 |
00002170  b8 20 67 61 70 25 2d 31  0d 0e f6 17 20 20 20 20  |. gap%-1....    |
00002180  20 20 69 6e 63 31 25 3d  69 6e 63 31 25 2b 31 0d  |  inc1%=inc1%+1.|
00002190  0f 00 20 20 20 20 20 20  20 e7 20 28 69 6e 63 31  |..       . (inc1|
000021a0  25 20 83 20 73 70 65 65  64 25 29 3d 30 20 8c 0d  |% . speed%)=0 ..|
000021b0  0f 0a 0e 20 20 20 20 20  20 20 20 c8 96 0d 0f 14  |...        .....|
000021c0  0b 20 20 20 20 20 20 cd  0d 0f 1e 15 20 20 20 20  |.      .....    |
000021d0  20 20 43 25 3d 63 74 25  2b 63 74 31 25 0d 0f 28  |  C%=ct%+ct1%..(|
000021e0  12 20 20 20 20 20 20 d6  20 76 6c 69 6e 65 25 0d  |.      . vline%.|
000021f0  0f 32 0e 20 20 20 20 ed  20 63 74 31 25 0d 0f 3c  |.2.    . ct1%..<|
00002200  0b 20 20 ed 20 63 74 25  0d 0f 46 05 e1 0d 0f 50  |.  . ct%..F....P|
00002210  0c dd 20 f2 72 69 67 68  74 0d 0f 5a 1e 20 20 e3  |.. .right..Z.  .|
00002220  20 63 74 25 3d 36 33 39  20 b8 20 67 61 70 25 20  | ct%=639 . gap% |
00002230  88 20 67 61 70 6e 25 0d  0f 64 19 20 20 20 20 e3  |. gapn%..d.    .|
00002240  20 63 74 31 25 3d 30 20  b8 20 67 61 70 25 2d 31  | ct1%=0 . gap%-1|
00002250  0d 0f 6e 17 20 20 20 20  20 20 69 6e 63 31 25 3d  |..n.      inc1%=|
00002260  69 6e 63 31 25 2b 31 0d  0f 78 20 20 20 20 20 20  |inc1%+1..x      |
00002270  20 e7 20 28 69 6e 63 31  25 20 83 20 73 70 65 65  | . (inc1% . spee|
00002280  64 25 29 3d 30 20 8c 0d  0f 82 0e 20 20 20 20 20  |d%)=0 .....     |
00002290  20 20 20 c8 96 0d 0f 8c  0b 20 20 20 20 20 20 cd  |   ......      .|
000022a0  0d 0f 96 15 20 20 20 20  20 20 43 25 3d 63 74 25  |....      C%=ct%|
000022b0  2d 63 74 31 25 0d 0f a0  12 20 20 20 20 20 20 d6  |-ct1%....      .|
000022c0  20 76 6c 69 6e 65 25 0d  0f aa 0e 20 20 20 20 ed  | vline%....    .|
000022d0  20 63 74 31 25 0d 0f b4  0b 20 20 ed 20 63 74 25  | ct1%....  . ct%|
000022e0  0d 0f be 05 e1 0d 0f c8  04 0d 0f d2 04 0d 0f dc  |................|
000022f0  22 dd 20 f2 68 5f 73 6c  69 64 65 28 73 72 63 65  |". .h_slide(srce|
00002300  25 2c 64 65 73 74 25 2c  73 70 65 65 64 25 29 0d  |%,dest%,speed%).|
00002310  0f e6 2b 20 20 f4 20 65  78 65 63 75 74 69 6f 6e  |..+  . execution|
00002320  20 74 69 6d 65 3d 35 31  30 2f 73 70 65 65 64 25  | time=510/speed%|
00002330  20 63 65 6e 74 69 73 65  63 73 0d 0f f0 23 20 20  | centisecs...#  |
00002340  f4 20 69 66 20 73 70 65  65 64 25 3e 30 20 54 48  |. if speed%>0 TH|
00002350  45 4e 20 73 6c 69 64 65  20 64 6f 77 6e 0d 0f fa  |EN slide down...|
00002360  21 20 20 f4 20 69 66 20  73 70 65 65 64 25 3c 30  |!  . if speed%<0|
00002370  20 54 48 45 4e 20 73 6c  69 64 65 20 75 70 0d 10  | THEN slide up..|
00002380  04 36 20 20 ea 20 63 74  25 2c 63 74 31 25 2c 73  |.6  . ct%,ct1%,s|
00002390  74 61 72 74 25 2c 66 69  6e 69 73 68 25 2c 73 74  |tart%,finish%,st|
000023a0  61 72 74 31 25 2c 66 69  6e 69 73 68 31 25 2c 69  |art1%,finish1%,i|
000023b0  6e 63 31 25 0d 10 0e 12  20 20 e7 20 73 70 65 65  |nc1%....  . spee|
000023c0  64 25 3e 30 20 8c 0d 10  18 10 20 20 20 20 73 74  |d%>0 .....    st|
000023d0  61 72 74 25 3d 30 0d 10  22 1a 20 20 20 20 66 69  |art%=0..".    fi|
000023e0  6e 69 73 68 25 3d 32 35  36 2d 73 70 65 65 64 25  |nish%=256-speed%|
000023f0  0d 10 2c 11 20 20 20 20  73 74 61 72 74 31 25 3d  |..,.    start1%=|
00002400  30 0d 10 36 19 20 20 20  20 66 69 6e 69 73 68 31  |0..6.    finish1|
00002410  25 3d 73 70 65 65 64 25  2d 31 0d 10 40 0f 20 20  |%=speed%-1..@.  |
00002420  20 20 69 6e 63 31 25 3d  31 0d 10 4a 07 20 20 cc  |  inc1%=1..J.  .|
00002430  0d 10 54 12 20 20 20 20  73 74 61 72 74 25 3d 32  |..T.    start%=2|
00002440  35 35 0d 10 5e 11 20 20  20 20 66 69 6e 69 73 68  |55..^.    finish|
00002450  25 3d 30 0d 10 68 11 20  20 20 20 73 74 61 72 74  |%=0..h.    start|
00002460  31 25 3d 30 0d 10 72 19  20 20 20 20 66 69 6e 69  |1%=0..r.    fini|
00002470  73 68 31 25 3d 73 70 65  65 64 25 2b 31 0d 10 7c  |sh1%=speed%+1..||
00002480  10 20 20 20 20 69 6e 63  31 25 3d 2d 31 0d 10 86  |.    inc1%=-1...|
00002490  07 20 20 cd 0d 10 90 0e  20 20 41 25 3d 73 72 63  |.  .....  A%=src|
000024a0  65 25 0d 10 9a 0e 20 20  42 25 3d 64 65 73 74 25  |e%....  B%=dest%|
000024b0  0d 10 a4 25 20 20 e3 20  63 74 25 3d 73 74 61 72  |...%  . ct%=star|
000024c0  74 25 20 b8 20 66 69 6e  69 73 68 25 20 88 20 73  |t% . finish% . s|
000024d0  70 65 65 64 25 0d 10 ae  0a 20 20 20 20 c8 96 0d  |peed%....    ...|
000024e0  10 b8 29 20 20 20 20 e3  20 63 74 31 25 3d 73 74  |..)    . ct1%=st|
000024f0  61 72 74 31 25 20 b8 20  66 69 6e 69 73 68 31 25  |art1% . finish1%|
00002500  20 88 20 69 6e 63 31 25  0d 10 c2 15 20 20 20 20  | . inc1%....    |
00002510  20 20 43 25 3d 63 74 25  2b 63 74 31 25 0d 10 cc  |  C%=ct%+ct1%...|
00002520  12 20 20 20 20 20 20 d6  20 68 6c 69 6e 65 25 0d  |.      . hline%.|
00002530  10 d6 0e 20 20 20 20 ed  20 63 74 31 25 0d 10 e0  |...    . ct1%...|
00002540  0b 20 20 ed 20 63 74 25  0d 10 ea 05 e1 0d 10 f4  |.  . ct%........|
00002550  04 0d 10 fe 20 dd 20 f2  76 5f 73 6c 69 64 65 28  |.... . .v_slide(|
00002560  73 72 63 65 25 2c 64 65  73 74 25 2c 69 6e 63 25  |srce%,dest%,inc%|
00002570  29 0d 11 08 2f 20 20 f4  20 49 66 20 69 6e 63 25  |).../  . If inc%|
00002580  3d 31 20 65 78 65 63 75  74 69 6f 6e 20 74 69 6d  |=1 execution tim|
00002590  65 3d 31 32 38 30 20 63  65 6e 74 69 73 65 63 73  |e=1280 centisecs|
000025a0  0d 11 12 2e 20 20 f4 20  49 66 20 69 6e 63 25 3d  |....  . If inc%=|
000025b0  32 20 65 78 65 63 75 74  69 6f 6e 20 74 69 6d 65  |2 execution time|
000025c0  3d 36 34 30 20 63 65 6e  74 69 73 65 63 73 0d 11  |=640 centisecs..|
000025d0  1c 2e 20 20 f4 20 49 66  20 69 6e 63 25 3d 34 20  |..  . If inc%=4 |
000025e0  65 78 65 63 75 74 69 6f  6e 20 74 69 6d 65 3d 33  |execution time=3|
000025f0  32 30 20 63 65 6e 74 69  73 65 63 73 0d 11 26 2e  |20 centisecs..&.|
00002600  20 20 f4 20 49 66 20 69  6e 63 25 3d 38 20 65 78  |  . If inc%=8 ex|
00002610  65 63 75 74 69 6f 6e 20  74 69 6d 65 3d 31 36 30  |ecution time=160|
00002620  20 63 65 6e 74 69 73 65  63 73 0d 11 30 2e 20 20  | centisecs..0.  |
00002630  f4 20 49 66 20 69 6e 63  25 3d 31 36 20 65 78 65  |. If inc%=16 exe|
00002640  63 75 74 69 6f 6e 20 74  69 6d 65 3d 38 30 20 63  |cution time=80 c|
00002650  65 6e 74 69 73 65 63 73  0d 11 3a 12 20 20 f4 20  |entisecs..:.  . |
00002660  46 41 53 54 45 53 54 3d  31 36 0d 11 44 21 20 20  |FASTEST=16..D!  |
00002670  f4 20 69 66 20 69 6e 63  25 3e 30 20 54 48 45 4e  |. if inc%>0 THEN|
00002680  20 73 6c 69 64 65 20 64  6f 77 6e 0d 11 4e 1f 20  | slide down..N. |
00002690  20 f4 20 69 66 20 69 6e  63 25 3c 30 20 54 48 45  | . if inc%<0 THE|
000026a0  4e 20 73 6c 69 64 65 20  75 70 0d 11 58 36 20 20  |N slide up..X6  |
000026b0  ea 20 63 74 25 2c 63 74  31 25 2c 73 74 61 72 74  |. ct%,ct1%,start|
000026c0  25 2c 66 69 6e 69 73 68  25 2c 73 74 61 72 74 31  |%,finish%,start1|
000026d0  25 2c 66 69 6e 69 73 68  31 25 2c 69 6e 63 31 25  |%,finish1%,inc1%|
000026e0  0d 11 62 10 20 20 e7 20  69 6e 63 25 3e 30 20 8c  |..b.  . inc%>0 .|
000026f0  0d 11 6c 10 20 20 20 20  73 74 61 72 74 25 3d 30  |..l.    start%=0|
00002700  0d 11 76 18 20 20 20 20  66 69 6e 69 73 68 25 3d  |..v.    finish%=|
00002710  36 34 30 2d 69 6e 63 25  0d 11 80 11 20 20 20 20  |640-inc%....    |
00002720  73 74 61 72 74 31 25 3d  30 0d 11 8a 17 20 20 20  |start1%=0....   |
00002730  20 66 69 6e 69 73 68 31  25 3d 69 6e 63 25 2d 31  | finish1%=inc%-1|
00002740  0d 11 94 0f 20 20 20 20  69 6e 63 31 25 3d 31 0d  |....    inc1%=1.|
00002750  11 9e 07 20 20 cc 0d 11  a8 12 20 20 20 20 73 74  |...  .....    st|
00002760  61 72 74 25 3d 36 33 39  0d 11 b2 11 20 20 20 20  |art%=639....    |
00002770  66 69 6e 69 73 68 25 3d  30 0d 11 bc 11 20 20 20  |finish%=0....   |
00002780  20 73 74 61 72 74 31 25  3d 30 0d 11 c6 17 20 20  | start1%=0....  |
00002790  20 20 66 69 6e 69 73 68  31 25 3d 69 6e 63 25 2b  |  finish1%=inc%+|
000027a0  31 0d 11 d0 10 20 20 20  20 69 6e 63 31 25 3d 2d  |1....    inc1%=-|
000027b0  31 0d 11 da 07 20 20 cd  0d 11 e4 10 20 20 20 20  |1....  .....    |
000027c0  41 25 3d 73 72 63 65 25  0d 11 ee 10 20 20 20 20  |A%=srce%....    |
000027d0  42 25 3d 64 65 73 74 25  0d 11 f8 23 20 20 e3 20  |B%=dest%...#  . |
000027e0  63 74 25 3d 73 74 61 72  74 25 20 b8 20 66 69 6e  |ct%=start% . fin|
000027f0  69 73 68 25 20 88 20 69  6e 63 25 0d 12 02 0a 20  |ish% . inc%.... |
00002800  20 20 20 c8 96 0d 12 0c  29 20 20 20 20 e3 20 63  |   .....)    . c|
00002810  74 31 25 3d 73 74 61 72  74 31 25 20 b8 20 66 69  |t1%=start1% . fi|
00002820  6e 69 73 68 31 25 20 88  20 69 6e 63 31 25 0d 12  |nish1% . inc1%..|
00002830  16 15 20 20 20 20 20 20  43 25 3d 63 74 25 2b 63  |..      C%=ct%+c|
00002840  74 31 25 0d 12 20 12 20  20 20 20 20 20 d6 20 76  |t1%.. .      . v|
00002850  6c 69 6e 65 25 0d 12 2a  0e 20 20 20 20 ed 20 63  |line%..*.    . c|
00002860  74 31 25 0d 12 34 0b 20  20 ed 20 63 74 25 0d 12  |t1%..4.  . ct%..|
00002870  3e 05 e1 0d 12 48 04 0d  12 52 04 0d 12 5c 23 dd  |>....H...R...\#.|
00002880  20 f2 64 5f 73 6c 69 64  65 28 73 72 63 65 25 2c  | .d_slide(srce%,|
00002890  64 65 73 74 25 2c 63 6f  72 6e 65 72 25 29 0d 12  |dest%,corner%)..|
000028a0  66 41 20 20 ea 20 63 74  25 2c 68 78 25 2c 68 79  |fA  . ct%,hx%,hy|
000028b0  25 2c 68 77 69 64 74 68  25 2c 68 68 65 69 67 68  |%,hwidth%,hheigh|
000028c0  74 25 2c 76 78 25 2c 76  79 25 2c 76 77 69 64 74  |t%,vx%,vy%,vwidt|
000028d0  68 25 2c 76 68 65 69 67  68 74 25 2c 63 74 25 0d  |h%,vheight%,ct%.|
000028e0  12 70 0b 20 20 63 74 25  3d 30 0d 12 7a 12 20 20  |.p.  ct%=0..z.  |
000028f0  c8 8e 20 63 6f 72 6e 65  72 25 20 ca 0d 12 84 17  |.. corner% .....|
00002900  20 20 20 20 c9 20 31 3a  f4 20 42 4c 20 43 4f 52  |    . 1:. BL COR|
00002910  4e 45 52 0d 12 8e 31 20  20 20 20 68 78 5f 69 6e  |NER...1    hx_in|
00002920  63 25 3d 35 3a 68 79 5f  69 6e 63 25 3d 2d 32 3a  |c%=5:hy_inc%=-2:|
00002930  76 78 5f 69 6e 63 25 3d  30 3a 76 79 5f 69 6e 63  |vx_inc%=0:vy_inc|
00002940  25 3d 2d 32 0d 12 98 30  20 20 20 20 68 78 25 3d  |%=-2...0    hx%=|
00002950  30 3a 68 79 25 3d 32 35  34 3a 76 78 25 3d 30 3a  |0:hy%=254:vx%=0:|
00002960  76 79 25 3d 32 35 34 3a  72 65 70 5f 65 6e 64 25  |vy%=254:rep_end%|
00002970  3d 36 34 30 0d 12 a2 17  20 20 20 20 c9 20 32 3a  |=640....    . 2:|
00002980  f4 20 54 4c 20 43 4f 52  4e 45 52 0d 12 ac 30 20  |. TL CORNER...0 |
00002990  20 20 20 68 78 5f 69 6e  63 25 3d 35 3a 68 79 5f  |   hx_inc%=5:hy_|
000029a0  69 6e 63 25 3d 30 3a 76  78 5f 69 6e 63 25 3d 30  |inc%=0:vx_inc%=0|
000029b0  3a 76 79 5f 69 6e 63 25  3d 2b 32 0d 12 b6 2c 20  |:vy_inc%=+2..., |
000029c0  20 20 20 68 78 25 3d 30  3a 68 79 25 3d 30 3a 76  |   hx%=0:hy%=0:v|
000029d0  78 25 3d 30 3a 76 79 25  3d 30 3a 72 65 70 5f 65  |x%=0:vy%=0:rep_e|
000029e0  6e 64 25 3d 36 34 30 0d  12 c0 17 20 20 20 20 c9  |nd%=640....    .|
000029f0  20 33 3a f4 20 54 52 20  43 4f 52 4e 45 52 0d 12  | 3:. TR CORNER..|
00002a00  ca 31 20 20 20 20 68 78  5f 69 6e 63 25 3d 2d 35  |.1    hx_inc%=-5|
00002a10  3a 68 79 5f 69 6e 63 25  3d 30 3a 76 78 5f 69 6e  |:hy_inc%=0:vx_in|
00002a20  63 25 3d 2d 35 3a 76 79  5f 69 6e 63 25 3d 32 0d  |c%=-5:vy_inc%=2.|
00002a30  12 d4 2f 20 20 20 20 68  78 25 3d 36 33 35 3a 68  |../    hx%=635:h|
00002a40  79 25 3d 30 3a 76 78 25  3d 36 33 35 3a 76 79 25  |y%=0:vx%=635:vy%|
00002a50  3d 30 3a 72 65 70 5f 65  6e 64 25 3d 2d 35 0d 12  |=0:rep_end%=-5..|
00002a60  de 17 20 20 20 20 c9 20  34 3a f4 20 42 52 20 43  |..    . 4:. BR C|
00002a70  4f 52 4e 45 52 0d 12 e8  33 20 20 20 20 68 78 5f  |ORNER...3    hx_|
00002a80  69 6e 63 25 3d 2d 35 3a  68 79 5f 69 6e 63 25 3d  |inc%=-5:hy_inc%=|
00002a90  2d 32 3a 76 78 5f 69 6e  63 25 3d 2d 35 3a 76 79  |-2:vx_inc%=-5:vy|
00002aa0  5f 69 6e 63 25 3d 2d 32  0d 12 f2 33 20 20 20 20  |_inc%=-2...3    |
00002ab0  68 78 25 3d 36 33 35 3a  68 79 25 3d 32 35 34 3a  |hx%=635:hy%=254:|
00002ac0  76 78 25 3d 36 33 35 3a  76 79 25 3d 32 35 34 3a  |vx%=635:vy%=254:|
00002ad0  72 65 70 5f 65 6e 64 25  3d 2d 35 0d 12 fc 07 20  |rep_end%=-5.... |
00002ae0  20 cb 0d 13 06 0f 20 20  68 77 69 64 74 68 25 3d  | .....  hwidth%=|
00002af0  35 0d 13 10 10 20 20 68  68 65 69 67 68 74 25 3d  |5....  hheight%=|
00002b00  32 0d 13 1a 0f 20 20 76  77 69 64 74 68 25 3d 35  |2....  vwidth%=5|
00002b10  0d 13 24 10 20 20 76 68  65 69 67 68 74 25 3d 32  |..$.  vheight%=2|
00002b20  0d 13 2e 0e 20 20 41 25  3d 73 72 63 65 25 0d 13  |....  A%=srce%..|
00002b30  38 0e 20 20 42 25 3d 64  65 73 74 25 0d 13 42 07  |8.  B%=dest%..B.|
00002b40  20 20 f5 0d 13 4c 0f 20  20 20 20 f4 20 53 3d 47  |  ...L.    . S=G|
00002b50  45 54 0d 13 56 11 20 20  20 20 63 74 25 3d 63 74  |ET..V.    ct%=ct|
00002b60  25 2b 31 0d 13 60 12 20  20 20 20 43 25 3d 68 77  |%+1..`.    C%=hw|
00002b70  69 64 74 68 25 0d 13 6a  13 20 20 20 20 44 25 3d  |idth%..j.    D%=|
00002b80  68 68 65 69 67 68 74 25  0d 13 74 0e 20 20 20 20  |hheight%..t.    |
00002b90  45 25 3d 68 78 25 0d 13  7e 0e 20 20 20 20 46 25  |E%=hx%..~.    F%|
00002ba0  3d 68 79 25 0d 13 88 0e  20 20 20 20 47 25 3d 68  |=hy%....    G%=h|
00002bb0  78 25 0d 13 92 0e 20 20  20 20 48 25 3d 68 79 25  |x%....    H%=hy%|
00002bc0  0d 13 9c 1e f4 20 20 20  20 49 46 20 28 63 74 25  |.....    IF (ct%|
00002bd0  20 4d 4f 44 20 32 29 3d  30 20 54 48 45 4e 0d 13  | MOD 2)=0 THEN..|
00002be0  a6 0c 20 20 20 20 20 20  c8 96 0d 13 b0 0f f4 20  |..      ....... |
00002bf0  20 20 20 20 45 4e 44 49  46 0d 13 ba 16 20 20 20  |    ENDIF....   |
00002c00  20 d6 20 62 6c 6f 63 6b  5f 62 6c 69 74 31 25 0d  | . block_blit1%.|
00002c10  13 c4 17 20 20 20 20 68  78 25 3d 68 78 25 2b 68  |...    hx%=hx%+h|
00002c20  78 5f 69 6e 63 25 0d 13  ce 17 20 20 20 20 68 79  |x_inc%....    hy|
00002c30  25 3d 68 79 25 2b 68 79  5f 69 6e 63 25 0d 13 d8  |%=hy%+hy_inc%...|
00002c40  1b 20 20 20 20 68 68 65  69 67 68 74 25 3d 68 68  |.    hheight%=hh|
00002c50  65 69 67 68 74 25 2b 32  0d 13 e2 12 20 20 20 20  |eight%+2....    |
00002c60  43 25 3d 76 77 69 64 74  68 25 0d 13 ec 13 20 20  |C%=vwidth%....  |
00002c70  20 20 44 25 3d 76 68 65  69 67 68 74 25 0d 13 f6  |  D%=vheight%...|
00002c80  0e 20 20 20 20 45 25 3d  76 78 25 0d 14 00 0e 20  |.    E%=vx%.... |
00002c90  20 20 20 46 25 3d 76 79  25 0d 14 0a 0e 20 20 20  |   F%=vy%....   |
00002ca0  20 47 25 3d 76 78 25 0d  14 14 0e 20 20 20 20 48  | G%=vx%....    H|
00002cb0  25 3d 76 79 25 0d 14 1e  16 20 20 20 20 d6 20 62  |%=vy%....    . b|
00002cc0  6c 6f 63 6b 5f 62 6c 69  74 31 25 0d 14 28 17 20  |lock_blit1%..(. |
00002cd0  20 20 20 76 79 25 3d 76  79 25 2b 76 79 5f 69 6e  |   vy%=vy%+vy_in|
00002ce0  63 25 0d 14 32 17 20 20  20 20 76 78 25 3d 76 78  |c%..2.    vx%=vx|
00002cf0  25 2b 76 78 5f 69 6e 63  25 0d 14 3c 19 20 20 20  |%+vx_inc%..<.   |
00002d00  20 76 77 69 64 74 68 25  3d 76 77 69 64 74 68 25  | vwidth%=vwidth%|
00002d10  2b 35 0d 14 46 14 20 20  fd 20 68 78 25 3d 72 65  |+5..F.  . hx%=re|
00002d20  70 5f 65 6e 64 25 0d 14  50 05 e1 0d 14 5a 04 0d  |p_end%..P....Z..|
00002d30  14 64 12 dd 20 f2 6f 76  65 72 5f 73 6c 69 64 65  |.d.. .over_slide|
00002d40  72 0d 14 6e 37 20 20 f2  63 6f 70 79 5f 66 75 6c  |r..n7  .copy_ful|
00002d50  6c 5f 73 63 72 65 65 6e  28 73 63 72 65 65 6e 5f  |l_screen(screen_|
00002d60  62 75 66 66 65 72 25 2c  73 63 72 6e 62 61 73 65  |buffer%,scrnbase|
00002d70  5f 30 25 2c 31 36 30 29  0d 14 78 1a 20 20 e3 20  |_0%,160)..x.  . |
00002d80  63 25 3d 30 20 b8 20 31  30 30 30 30 30 3a ed 20  |c%=0 . 100000:. |
00002d90  63 25 0d 14 82 17 20 20  41 25 3d 73 63 72 65 65  |c%....  A%=scree|
00002da0  6e 5f 62 75 66 66 65 72  25 0d 14 8c 14 20 20 42  |n_buffer%....  B|
00002db0  25 3d 73 63 72 6e 62 61  73 65 5f 30 25 0d 14 96  |%=scrnbase_0%...|
00002dc0  17 20 20 43 25 3d 73 63  72 65 65 6e 5f 62 75 66  |.  C%=screen_buf|
00002dd0  66 65 72 25 0d 14 a0 13  20 20 d6 20 73 6c 69 64  |fer%....  . slid|
00002de0  65 5f 6f 76 65 72 25 0d  14 aa 05 e1 0d 14 b4 04  |e_over%.........|
00002df0  0d 14 be 1a dd 20 f2 73  70 69 72 61 6c 28 73 72  |..... .spiral(sr|
00002e00  63 65 25 2c 64 65 73 74  25 29 0d 14 c8 0e 20 20  |ce%,dest%)....  |
00002e10  41 25 3d 73 72 63 65 25  0d 14 d2 0e 20 20 42 25  |A%=srce%....  B%|
00002e20  3d 64 65 73 74 25 0d 14  dc 1b 20 20 43 25 3d 31  |=dest%....  C%=1|
00002e30  30 30 30 20 20 20 3a f4  20 43 25 20 44 45 4c 41  |000   :. C% DELA|
00002e40  59 0d 14 e6 0e 20 20 d6  20 73 70 69 72 6f 25 0d  |Y....  . spiro%.|
00002e50  14 f0 05 e1 0d 14 fa 04  0d 15 04 1b dd 20 f2 6d  |............. .m|
00002e60  61 74 72 69 78 38 28 73  72 63 65 25 2c 64 65 73  |atrix8(srce%,des|
00002e70  74 25 29 0d 15 0e 3d 20  20 ea 20 6e 25 2c 62 6c  |t%)...=  . n%,bl|
00002e80  6f 63 73 69 7a 65 25 2c  63 74 25 2c 78 25 2c 79  |ocsize%,ct%,x%,y|
00002e90  25 2c 67 72 69 64 77 69  64 74 68 25 2c 67 72 69  |%,gridwidth%,gri|
00002ea0  64 68 65 69 67 68 74 25  2c 73 71 75 61 72 65 25  |dheight%,square%|
00002eb0  0d 15 18 17 20 20 67 72  69 64 77 69 64 74 68 25  |....  gridwidth%|
00002ec0  3d 36 34 30 3e 3e 33 0d  15 22 18 20 20 67 72 69  |=640>>3..".  gri|
00002ed0  64 68 65 69 67 68 74 25  3d 32 35 36 3e 3e 33 0d  |dheight%=256>>3.|
00002ee0  15 2c 0e 20 20 41 25 3d  73 72 63 65 25 0d 15 36  |.,.  A%=srce%..6|
00002ef0  0e 20 20 42 25 3d 64 65  73 74 25 0d 15 40 17 20  |.  B%=dest%..@. |
00002f00  20 6e 25 3d 67 72 69 64  77 69 64 74 68 25 20 81  | n%=gridwidth% .|
00002f10  20 35 0d 15 4a 10 20 20  73 71 75 61 72 65 25 3d  | 5..J.  square%=|
00002f20  36 33 0d 15 54 0b 20 20  43 25 3d 6e 25 0d 15 5e  |63..T.  C%=n%..^|
00002f30  10 20 20 44 25 3d 73 71  75 61 72 65 25 0d 15 68  |.  D%=square%..h|
00002f40  0d 20 20 45 25 3d 74 65  6d 70 0d 15 72 11 20 20  |.  E%=temp..r.  |
00002f50  d6 20 6d 61 74 72 69 78  5f 38 25 0d 15 7c 05 e1  |. matrix_8%..|..|
00002f60  0d 15 86 04 0d 15 90 4b  f4 20 2a 2a 20 20 49 6e  |.......K. **  In|
00002f70  69 74 69 61 6c 69 73 61  74 69 6f 6e 20 2a 2a 2a  |itialisation ***|
00002f80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00002fa0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00002fb0  15 9a 4b f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..K. ***********|
00002fc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00002ff0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 15 a4 04 0d 15  |**********......|
00003000  ae 04 0d 15 b8 04 0d 15  c2 04 0d 15 cc 04 0d 15  |................|
00003010  d6 0d dd 20 f2 72 61 6e  64 6f 6d 0d 15 e0 17 20  |... .random.... |
00003020  20 ea 20 63 6f 75 6e 74  25 2c 71 25 2c 74 65 6d  | . count%,q%,tem|
00003030  70 25 0d 15 ea 16 20 20  e3 20 63 6f 75 6e 74 25  |p%....  . count%|
00003040  3d 30 20 b8 20 32 35 35  0d 15 f4 20 20 20 20 20  |=0 . 255...     |
00003050  62 6c 6f 63 6b 5f 6e 6f  25 28 63 6f 75 6e 74 25  |block_no%(count%|
00003060  29 3d 63 6f 75 6e 74 25  0d 15 fe 0e 20 20 ed 20  |)=count%....  . |
00003070  63 6f 75 6e 74 25 0d 16  08 1a 20 20 e3 20 63 6f  |count%....  . co|
00003080  75 6e 74 25 3d 32 35 35  20 b8 20 31 20 88 2d 31  |unt%=255 . 1 .-1|
00003090  0d 16 12 16 20 20 20 20  71 25 3d b3 28 63 6f 75  |....    q%=.(cou|
000030a0  6e 74 25 2b 31 29 0d 16  1c 0f 20 20 20 20 71 25  |nt%+1)....    q%|
000030b0  3d 71 25 2d 31 0d 16 26  1f 20 20 20 20 74 65 6d  |=q%-1..&.    tem|
000030c0  70 25 3d 62 6c 6f 63 6b  5f 6e 6f 25 28 63 6f 75  |p%=block_no%(cou|
000030d0  6e 74 25 29 0d 16 30 27  20 20 20 20 62 6c 6f 63  |nt%)..0'    bloc|
000030e0  6b 5f 6e 6f 25 28 63 6f  75 6e 74 25 29 3d 62 6c  |k_no%(count%)=bl|
000030f0  6f 63 6b 5f 6e 6f 25 28  71 25 29 0d 16 3a 1b 20  |ock_no%(q%)..:. |
00003100  20 20 20 62 6c 6f 63 6b  5f 6e 6f 25 28 71 25 29  |   block_no%(q%)|
00003110  3d 74 65 6d 70 25 0d 16  44 0e 20 20 ed 20 63 6f  |=temp%..D.  . co|
00003120  75 6e 74 25 0d 16 4e 05  e1 0d 16 58 04 0d 16 62  |unt%..N....X...b|
00003130  04 0d 16 6c 0e dd 20 f2  73 63 72 6e 62 73 65 0d  |...l.. .scrnbse.|
00003140  16 76 04 0d 16 80 29 20  20 f4 20 50 72 6f 63 20  |.v....)  . Proc |
00003150  67 69 76 65 73 20 62 61  73 65 20 61 64 64 72 65  |gives base addre|
00003160  73 73 20 6f 66 20 73 63  72 65 65 6e 0d 16 8a 2c  |ss of screen...,|
00003170  20 20 f4 20 69 6e 20 76  61 72 73 20 73 63 72 6e  |  . in vars scrn|
00003180  62 61 73 65 5f 30 25 20  26 20 73 63 72 65 65 6e  |base_0% & screen|
00003190  5f 62 75 66 66 65 72 25  0d 16 94 15 20 20 21 69  |_buffer%....  !i|
000031a0  6e 70 75 74 6c 69 73 74  25 3d 31 34 38 0d 16 9e  |nputlist%=148...|
000031b0  18 20 20 21 28 69 6e 70  75 74 6c 69 73 74 25 2b  |.  !(inputlist%+|
000031c0  34 29 3d 2d 31 0d 16 a8  35 20 20 c8 99 20 22 4f  |4)=-1...5  .. "O|
000031d0  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
000031e0  65 73 22 2c 69 6e 70 75  74 6c 69 73 74 25 2c 6f  |es",inputlist%,o|
000031f0  75 74 70 75 74 6c 69 73  74 25 0d 16 b2 1e 20 20  |utputlist%....  |
00003200  73 63 72 6e 62 61 73 65  5f 30 25 3d 21 6f 75 74  |scrnbase_0%=!out|
00003210  70 75 74 6c 69 73 74 25  0d 16 bc 05 e1 0d 16 c6  |putlist%........|
00003220  04 0d 16 d0 0c dd 20 f2  65 72 72 6f 72 0d 16 da  |...... .error...|
00003230  0b 20 20 ee 20 85 20 e0  0d 16 e4 17 20 20 20 20  |.  . . .....    |
00003240  20 65 72 72 6f 72 5f 62  6c 6b 25 21 30 3d 9f 0d  | error_blk%!0=..|
00003250  16 ee 1b 20 20 20 20 20  24 28 65 72 72 6f 72 5f  |...     $(error_|
00003260  62 6c 6b 25 2b 34 29 3d  f6 24 0d 16 f8 3e 20 20  |blk%+4)=.$...>  |
00003270  20 20 20 c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |   .."Wimp_Repor|
00003280  74 45 72 72 6f 72 22 2c  65 72 72 6f 72 5f 62 6c  |tError",error_bl|
00003290  6b 25 2c 25 30 30 30 31  31 30 31 2c 22 53 6c 69  |k%,%0001101,"Sli|
000032a0  64 65 20 53 68 6f 77 22  0d 17 02 2b 20 20 c8 99  |de Show"...+  ..|
000032b0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000032c0  2c 74 61 73 6b 5f 68 61  6e 64 6c 65 25 2c 74 61  |,task_handle%,ta|
000032d0  73 6b 25 0d 17 0c 07 20  20 e0 0d 17 16 05 e1 0d  |sk%....  .......|
000032e0  17 20 04 0d 17 2a 2e dd  20 f2 76 5f 73 6c 6f 74  |. ...*.. .v_slot|
000032f0  73 28 73 72 63 65 25 2c  64 65 73 74 25 2c 73 6c  |s(srce%,dest%,sl|
00003300  6f 74 5f 77 69 64 74 68  25 2c 73 70 65 65 64 25  |ot_width%,speed%|
00003310  29 0d 17 34 17 f4 20 54  49 4d 45 20 6f 66 20 65  |)..4.. TIME of e|
00003320  78 65 63 75 74 69 6f 6e  0d 17 3e 1d f4 20 73 70  |xecution..>.. sp|
00003330  65 65 64 25 3d 31 20 3b  36 34 30 20 63 65 6e 74  |eed%=1 ;640 cent|
00003340  69 73 65 63 73 0d 17 48  1d f4 20 73 70 65 65 64  |isecs..H.. speed|
00003350  25 3d 32 20 3b 33 32 30  20 63 65 6e 74 69 73 65  |%=2 ;320 centise|
00003360  63 73 0d 17 52 1d f4 20  73 70 65 65 64 25 3d 34  |cs..R.. speed%=4|
00003370  20 3b 31 36 30 20 63 65  6e 74 69 73 65 63 73 0d  | ;160 centisecs.|
00003380  17 5c 1c f4 20 73 70 65  65 64 25 3d 38 20 3b 38  |.\.. speed%=8 ;8|
00003390  30 20 63 65 6e 74 69 73  65 63 73 0d 17 66 1d f4  |0 centisecs..f..|
000033a0  20 73 70 65 65 64 25 3d  31 36 20 3b 38 30 20 63  | speed%=16 ;80 c|
000033b0  65 6e 74 69 73 65 63 73  0d 17 70 1d f4 20 73 70  |entisecs..p.. sp|
000033c0  65 65 64 25 3d 33 32 20  3b 36 30 20 63 65 6e 74  |eed%=32 ;60 cent|
000033d0  69 73 65 63 73 0d 17 7a  17 f4 20 67 75 65 73 73  |isecs..z.. guess|
000033e0  20 6d 61 78 20 73 70 65  65 64 3d 38 0d 17 84 10  | max speed=8....|
000033f0  ea 20 6e 25 2c 6e 31 25  2c 63 74 25 0d 17 8e 09  |. n%,n1%,ct%....|
00003400  63 74 25 3d 30 0d 17 98  0c 41 25 3d 73 72 63 65  |ct%=0....A%=srce|
00003410  25 0d 17 a2 0c 42 25 3d  64 65 73 74 25 0d 17 ac  |%....B%=dest%...|
00003420  21 e3 20 6e 31 25 3d 30  20 b8 20 28 73 6c 6f 74  |!. n1%=0 . (slot|
00003430  5f 77 69 64 74 68 25 20  81 20 32 29 2d 31 0d 17  |_width% . 2)-1..|
00003440  b6 04 0d 17 c0 24 20 20  e3 20 6e 25 3d 30 20 b8  |.....$  . n%=0 .|
00003450  20 28 36 34 30 20 81 20  73 6c 6f 74 5f 77 69 64  | (640 . slot_wid|
00003460  74 68 25 29 2d 31 0d 17  ca 26 20 20 20 20 43 25  |th%)-1...&    C%|
00003470  3d 28 6e 25 2a 73 6c 6f  74 5f 77 69 64 74 68 25  |=(n%*slot_width%|
00003480  29 2b 28 28 6e 31 25 29  3c 3c 31 29 0d 17 d4 11  |)+((n1%)<<1)....|
00003490  20 20 20 20 63 74 25 3d  63 74 25 2b 31 0d 17 de  |    ct%=ct%+1...|
000034a0  1c 20 20 20 20 e7 20 28  63 74 25 20 83 20 73 70  |.    . (ct% . sp|
000034b0  65 65 64 25 29 3d 30 20  8c 0d 17 e8 0c 20 20 20  |eed%)=0 .....   |
000034c0  20 20 20 c8 96 0d 17 f2  09 20 20 20 20 cd 0d 17  |   ......    ...|
000034d0  fc 10 20 20 20 20 d6 20  76 6c 69 6e 65 25 0d 18  |..    . vline%..|
000034e0  06 0f 20 20 20 20 43 25  3d 43 25 2b 31 0d 18 10  |..    C%=C%+1...|
000034f0  10 20 20 20 20 d6 20 76  6c 69 6e 65 25 0d 18 1a  |.    . vline%...|
00003500  0a 20 20 ed 20 6e 25 0d  18 24 09 ed 20 6e 31 25  |.  . n%..$.. n1%|
00003510  0d 18 2e 05 e1 0d 18 38  04 0d 18 42 04 0d 18 4c  |.......8...B...L|
00003520  2e dd 20 f2 68 5f 73 6c  6f 74 73 28 73 72 63 65  |.. .h_slots(srce|
00003530  25 2c 64 65 73 74 25 2c  73 6c 6f 74 5f 77 69 64  |%,dest%,slot_wid|
00003540  74 68 25 2c 73 70 65 65  64 25 29 0d 18 56 17 f4  |th%,speed%)..V..|
00003550  20 54 49 4d 45 20 6f 66  20 65 78 65 63 75 74 69  | TIME of executi|
00003560  6f 6e 0d 18 60 1d f4 20  73 70 65 65 64 25 3d 31  |on..`.. speed%=1|
00003570  20 3b 35 31 32 20 63 65  6e 74 69 73 65 63 73 0d  | ;512 centisecs.|
00003580  18 6a 1d f4 20 73 70 65  65 64 25 3d 32 20 3b 32  |.j.. speed%=2 ;2|
00003590  35 36 20 63 65 6e 74 69  73 65 63 73 0d 18 74 1d  |56 centisecs..t.|
000035a0  f4 20 73 70 65 65 64 25  3d 34 20 3b 31 32 38 20  |. speed%=4 ;128 |
000035b0  63 65 6e 74 69 73 65 63  73 0d 18 7e 1c f4 20 73  |centisecs..~.. s|
000035c0  70 65 65 64 25 3d 38 20  3b 36 34 20 63 65 6e 74  |peed%=8 ;64 cent|
000035d0  69 73 65 63 73 0d 18 88  1d f4 20 73 70 65 65 64  |isecs..... speed|
000035e0  25 3d 31 36 20 3b 33 32  20 63 65 6e 74 69 73 65  |%=16 ;32 centise|
000035f0  63 73 0d 18 92 10 f4 20  31 36 20 66 61 73 74 65  |cs..... 16 faste|
00003600  73 74 0d 18 9c 04 0d 18  a6 10 ea 20 6e 25 2c 6e  |st......... n%,n|
00003610  31 25 2c 63 74 25 0d 18  b0 09 63 74 25 3d 30 0d  |1%,ct%....ct%=0.|
00003620  18 ba 04 0d 18 c4 0c 41  25 3d 73 72 63 65 25 0d  |.......A%=srce%.|
00003630  18 ce 0c 42 25 3d 64 65  73 74 25 0d 18 d8 1b e3  |...B%=dest%.....|
00003640  20 6e 31 25 3d 30 20 b8  20 73 6c 6f 74 5f 77 69  | n1%=0 . slot_wi|
00003650  64 74 68 25 2d 31 0d 18  e2 24 20 20 e3 20 6e 25  |dth%-1...$  . n%|
00003660  3d 30 20 b8 20 28 32 35  36 20 81 20 73 6c 6f 74  |=0 . (256 . slot|
00003670  5f 77 69 64 74 68 25 29  2d 31 0d 18 ec 1f 20 20  |_width%)-1....  |
00003680  20 20 43 25 3d 28 6e 25  2a 73 6c 6f 74 5f 77 69  |  C%=(n%*slot_wi|
00003690  64 74 68 25 29 2b 6e 31  25 0d 18 f6 11 20 20 20  |dth%)+n1%....   |
000036a0  20 63 74 25 3d 63 74 25  2b 31 0d 19 00 1c 20 20  | ct%=ct%+1....  |
000036b0  20 20 e7 20 28 63 74 25  20 83 20 73 70 65 65 64  |  . (ct% . speed|
000036c0  25 29 3d 30 20 8c 0d 19  0a 0c 20 20 20 20 20 20  |%)=0 .....      |
000036d0  c8 96 0d 19 14 09 20 20  20 20 cd 0d 19 1e 10 20  |......    ..... |
000036e0  20 20 20 d6 20 68 6c 69  6e 65 25 0d 19 28 0a 20  |   . hline%..(. |
000036f0  20 ed 20 6e 25 0d 19 32  09 ed 20 6e 31 25 0d 19  | . n%..2.. n1%..|
00003700  3c 05 e1 0d 19 46 04 0d  19 50 2f dd 20 f2 6c 68  |<....F...P/. .lh|
00003710  5f 73 6c 6f 74 73 28 73  72 63 65 25 2c 64 65 73  |_slots(srce%,des|
00003720  74 25 2c 73 6c 6f 74 5f  77 69 64 74 68 25 2c 73  |t%,slot_width%,s|
00003730  70 65 65 64 25 29 0d 19  5a 10 ea 20 6e 25 2c 6e  |peed%)..Z.. n%,n|
00003740  31 25 2c 63 74 25 0d 19  64 09 63 74 25 3d 30 0d  |1%,ct%..d.ct%=0.|
00003750  19 6e 04 0d 19 78 0c 41  25 3d 73 72 63 65 25 0d  |.n...x.A%=srce%.|
00003760  19 82 0c 42 25 3d 64 65  73 74 25 0d 19 8c 1b e3  |...B%=dest%.....|
00003770  20 6e 31 25 3d 30 20 b8  20 73 6c 6f 74 5f 77 69  | n1%=0 . slot_wi|
00003780  64 74 68 25 2d 31 0d 19  96 24 20 20 e3 20 6e 25  |dth%-1...$  . n%|
00003790  3d 30 20 b8 20 28 32 35  36 20 81 20 73 6c 6f 74  |=0 . (256 . slot|
000037a0  5f 77 69 64 74 68 25 29  2d 31 0d 19 a0 2d 20 20  |_width%)-1...-  |
000037b0  20 20 43 25 3d 28 6e 25  2a 73 6c 6f 74 5f 77 69  |  C%=(n%*slot_wi|
000037c0  64 74 68 25 29 2b 73 6c  6f 74 5f 77 69 64 74 68  |dth%)+slot_width|
000037d0  25 2d 31 2d 6e 31 25 0d  19 aa 11 20 20 20 20 63  |%-1-n1%....    c|
000037e0  74 25 3d 63 74 25 2b 31  0d 19 b4 1c 20 20 20 20  |t%=ct%+1....    |
000037f0  e7 20 28 63 74 25 20 83  20 73 70 65 65 64 25 29  |. (ct% . speed%)|
00003800  3d 30 20 8c 0d 19 be 0c  20 20 20 20 20 20 c8 96  |=0 .....      ..|
00003810  0d 19 c8 09 20 20 20 20  cd 0d 19 d2 10 20 20 20  |....    .....   |
00003820  20 d6 20 68 6c 69 6e 65  25 0d 19 dc 0a 20 20 ed  | . hline%....  .|
00003830  20 6e 25 0d 19 e6 09 ed  20 6e 31 25 0d 19 f0 05  | n%..... n1%....|
00003840  e1 0d 19 fa 04 0d 1a 04  2f dd 20 f2 6c 76 5f 73  |......../. .lv_s|
00003850  6c 6f 74 73 28 73 72 63  65 25 2c 64 65 73 74 25  |lots(srce%,dest%|
00003860  2c 73 6c 6f 74 5f 77 69  64 74 68 25 2c 73 70 65  |,slot_width%,spe|
00003870  65 64 25 29 0d 1a 0e 10  ea 20 6e 25 2c 6e 31 25  |ed%)..... n%,n1%|
00003880  2c 63 74 25 0d 1a 18 09  63 74 25 3d 30 0d 1a 22  |,ct%....ct%=0.."|
00003890  0c 41 25 3d 73 72 63 65  25 0d 1a 2c 0c 42 25 3d  |.A%=srce%..,.B%=|
000038a0  64 65 73 74 25 0d 1a 36  21 e3 20 6e 31 25 3d 30  |dest%..6!. n1%=0|
000038b0  20 b8 20 28 73 6c 6f 74  5f 77 69 64 74 68 25 20  | . (slot_width% |
000038c0  81 20 32 29 2d 31 0d 1a  40 04 0d 1a 4a 24 20 20  |. 2)-1..@...J$  |
000038d0  e3 20 6e 25 3d 30 20 b8  20 28 36 34 30 20 81 20  |. n%=0 . (640 . |
000038e0  73 6c 6f 74 5f 77 69 64  74 68 25 29 2d 31 0d 1a  |slot_width%)-1..|
000038f0  54 34 20 20 20 20 43 25  3d 28 6e 25 2a 73 6c 6f  |T4    C%=(n%*slo|
00003900  74 5f 77 69 64 74 68 25  29 2b 73 6c 6f 74 5f 77  |t_width%)+slot_w|
00003910  69 64 74 68 25 2d 31 2d  28 28 6e 31 25 29 3c 3c  |idth%-1-((n1%)<<|
00003920  31 29 0d 1a 5e 11 20 20  20 20 63 74 25 3d 63 74  |1)..^.    ct%=ct|
00003930  25 2b 31 0d 1a 68 1c 20  20 20 20 e7 20 28 63 74  |%+1..h.    . (ct|
00003940  25 20 83 20 73 70 65 65  64 25 29 3d 30 20 8c 0d  |% . speed%)=0 ..|
00003950  1a 72 0c 20 20 20 20 20  20 c8 96 0d 1a 7c 09 20  |.r.      ....|. |
00003960  20 20 20 cd 0d 1a 86 10  20 20 20 20 d6 20 76 6c  |   .....    . vl|
00003970  69 6e 65 25 0d 1a 90 0f  20 20 20 20 43 25 3d 43  |ine%....    C%=C|
00003980  25 2d 31 0d 1a 9a 10 20  20 20 20 d6 20 76 6c 69  |%-1....    . vli|
00003990  6e 65 25 0d 1a a4 0a 20  20 ed 20 6e 25 0d 1a ae  |ne%....  . n%...|
000039a0  09 ed 20 6e 31 25 0d 1a  b8 05 e1 0d 1a c2 04 0d  |.. n1%..........|
000039b0  1a cc 04 0d 1a d6 10 dd  20 f2 6c 6f 61 64 5f 61  |........ .load_a|
000039c0  73 73 79 0d 1a e0 1b ea  20 41 24 28 29 2c 73 74  |ssy..... A$(),st|
000039d0  25 28 29 2c 6c 65 6e 25  2c 70 61 74 68 24 0d 1a  |%(),len%,path$..|
000039e0  ea 0c de 20 41 24 28 32  30 29 0d 1a f4 0d de 20  |... A$(20)..... |
000039f0  73 74 25 28 32 30 29 0d  1a fe 04 0d 1b 08 10 de  |st%(20).........|
00003a00  20 66 61 64 65 72 25 20  31 32 30 0d 1b 12 19 de  | fader% 120.....|
00003a10  20 6d 6f 64 65 5f 31 32  5f 74 6f 5f 31 35 25 20  | mode_12_to_15% |
00003a20  20 31 36 30 0d 1b 1c 17  de 20 6d 6f 76 5f 6d 65  | 160..... mov_me|
00003a30  6d 5f 62 6c 6f 63 6b 25  20 36 34 0d 1b 26 1a de  |m_block% 64..&..|
00003a40  20 63 6f 6d 70 5f 64 63  6f 64 65 72 5f 71 74 72  | comp_dcoder_qtr|
00003a50  25 20 31 35 36 0d 1b 30  17 de 20 63 6f 6d 70 5f  |% 156..0.. comp_|
00003a60  64 63 6f 64 65 72 25 20  20 31 36 34 0d 1b 3a 10  |dcoder%  164..:.|
00003a70  de 20 76 6c 69 6e 65 25  20 31 30 30 0d 1b 44 0f  |. vline% 100..D.|
00003a80  de 20 68 6c 69 6e 65 25  20 35 36 0d 1b 4e 13 de  |. hline% 56..N..|
00003a90  20 6d 61 74 72 69 78 5f  38 25 20 33 30 30 0d 1b  | matrix_8% 300..|
00003aa0  58 10 de 20 73 70 69 72  6f 25 20 32 31 32 0d 1b  |X.. spiro% 212..|
00003ab0  62 15 de 20 73 6c 69 64  65 5f 6f 76 65 72 25 20  |b.. slide_over% |
00003ac0  31 34 30 0d 1b 6c 12 de  20 63 6c 69 70 70 65 72  |140..l.. clipper|
00003ad0  25 20 34 33 36 0d 1b 76  14 de 20 62 6c 6f 63 6b  |% 436..v.. block|
00003ae0  5f 70 75 74 25 20 31 32  30 0d 1b 80 10 de 20 63  |_put% 120..... c|
00003af0  6f 64 65 72 25 20 31 32  38 0d 1b 8a 13 de 20 63  |oder% 128..... c|
00003b00  6f 64 65 72 5f 31 32 25  20 31 32 38 0d 1b 94 10  |oder_12% 128....|
00003b10  de 20 64 63 6f 64 65 72  25 20 36 30 0d 1b 9e 14  |. dcoder% 60....|
00003b20  de 20 64 63 6f 64 65 72  5f 31 32 25 20 31 32 38  |. dcoder_12% 128|
00003b30  0d 1b a8 13 de 20 73 63  61 6c 65 5f 31 5f 34 25  |..... scale_1_4%|
00003b40  20 38 30 0d 1b b2 1a de  20 63 6f 70 79 5f 66 75  | 80..... copy_fu|
00003b50  6c 6c 5f 73 63 72 65 65  6e 25 20 38 30 0d 1b bc  |ll_screen% 80...|
00003b60  0f de 20 70 61 75 73 65  25 20 34 30 0d 1b c6 17  |.. pause% 40....|
00003b70  de 20 62 6c 6f 63 6b 5f  62 6c 69 74 31 25 20 20  |. block_blit1%  |
00003b80  31 31 32 0d 1b d0 04 0d  1b da 04 0d 1b e4 11 73  |112............s|
00003b90  74 25 28 31 29 3d 66 61  64 65 72 25 0d 1b ee 19  |t%(1)=fader%....|
00003ba0  73 74 25 28 32 29 3d 6d  6f 64 65 5f 31 32 5f 74  |st%(2)=mode_12_t|
00003bb0  6f 5f 31 35 25 0d 1b f8  19 73 74 25 28 33 29 3d  |o_15%....st%(3)=|
00003bc0  6d 6f 76 5f 6d 65 6d 5f  62 6c 6f 63 6b 25 0d 1c  |mov_mem_block%..|
00003bd0  02 1b 73 74 25 28 34 29  3d 63 6f 6d 70 5f 64 63  |..st%(4)=comp_dc|
00003be0  6f 64 65 72 5f 71 74 72  25 0d 1c 0c 17 73 74 25  |oder_qtr%....st%|
00003bf0  28 35 29 3d 63 6f 6d 70  5f 64 63 6f 64 65 72 25  |(5)=comp_dcoder%|
00003c00  0d 1c 16 11 73 74 25 28  36 29 3d 76 6c 69 6e 65  |....st%(6)=vline|
00003c10  25 0d 1c 20 11 73 74 25  28 37 29 3d 68 6c 69 6e  |%.. .st%(7)=hlin|
00003c20  65 25 0d 1c 2a 14 73 74  25 28 38 29 3d 6d 61 74  |e%..*.st%(8)=mat|
00003c30  72 69 78 5f 38 25 0d 1c  34 11 73 74 25 28 39 29  |rix_8%..4.st%(9)|
00003c40  3d 73 70 69 72 6f 25 0d  1c 3e 17 73 74 25 28 31  |=spiro%..>.st%(1|
00003c50  30 29 3d 73 6c 69 64 65  5f 6f 76 65 72 25 0d 1c  |0)=slide_over%..|
00003c60  48 14 73 74 25 28 31 31  29 3d 63 6c 69 70 70 65  |H.st%(11)=clippe|
00003c70  72 25 0d 1c 52 16 73 74  25 28 31 32 29 3d 62 6c  |r%..R.st%(12)=bl|
00003c80  6f 63 6b 5f 70 75 74 25  0d 1c 5c 12 73 74 25 28  |ock_put%..\.st%(|
00003c90  31 33 29 3d 63 6f 64 65  72 25 0d 1c 66 13 73 74  |13)=coder%..f.st|
00003ca0  25 28 31 34 29 3d 64 63  6f 64 65 72 25 0d 1c 70  |%(14)=dcoder%..p|
00003cb0  16 73 74 25 28 31 35 29  3d 73 63 61 6c 65 5f 31  |.st%(15)=scale_1|
00003cc0  5f 34 25 0d 1c 7a 1d 73  74 25 28 31 36 29 3d 63  |_4%..z.st%(16)=c|
00003cd0  6f 70 79 5f 66 75 6c 6c  5f 73 63 72 65 65 6e 25  |opy_full_screen%|
00003ce0  0d 1c 84 12 73 74 25 28  31 37 29 3d 70 61 75 73  |....st%(17)=paus|
00003cf0  65 25 0d 1c 8e 18 73 74  25 28 31 38 29 3d 62 6c  |e%....st%(18)=bl|
00003d00  6f 63 6b 5f 62 6c 69 74  31 25 0d 1c 98 15 73 74  |ock_blit1%....st|
00003d10  25 28 31 39 29 3d 63 6f  64 65 72 5f 31 32 25 0d  |%(19)=coder_12%.|
00003d20  1c a2 16 73 74 25 28 32  30 29 3d 64 63 6f 64 65  |...st%(20)=dcode|
00003d30  72 5f 31 32 25 0d 1c ac  04 0d 1c b6 04 0d 1c c0  |r_12%...........|
00003d40  11 41 24 28 31 29 3d 22  66 61 64 65 72 22 0d 1c  |.A$(1)="fader"..|
00003d50  ca 13 41 24 28 32 29 3d  22 6d 6f 64 65 5f 31 32  |..A$(2)="mode_12|
00003d60  22 0d 1c d4 13 41 24 28  33 29 3d 22 6d 6f 76 5f  |"....A$(3)="mov_|
00003d70  6d 65 6d 22 0d 1c de 14  41 24 28 34 29 3d 22 63  |mem"....A$(4)="c|
00003d80  6f 6d 70 64 71 74 72 22  0d 1c e8 14 41 24 28 35  |ompdqtr"....A$(5|
00003d90  29 3d 22 63 6f 6d 70 64  63 6f 64 22 0d 1c f2 11  |)="compdcod"....|
00003da0  41 24 28 36 29 3d 22 76  6c 69 6e 65 22 0d 1c fc  |A$(6)="vline"...|
00003db0  11 41 24 28 37 29 3d 22  68 6c 69 6e 65 22 0d 1d  |.A$(7)="hline"..|
00003dc0  06 14 41 24 28 38 29 3d  22 6d 61 74 72 69 78 5f  |..A$(8)="matrix_|
00003dd0  38 22 0d 1d 10 11 41 24  28 39 29 3d 22 73 70 69  |8"....A$(9)="spi|
00003de0  72 6f 22 0d 1d 1a 14 41  24 28 31 30 29 3d 22 73  |ro"....A$(10)="s|
00003df0  6c 69 64 65 5f 6f 22 0d  1d 24 14 41 24 28 31 31  |lide_o"..$.A$(11|
00003e00  29 3d 22 63 6c 69 70 70  65 72 22 0d 1d 2e 15 41  |)="clipper"....A|
00003e10  24 28 31 32 29 3d 22 62  6c 6f 63 6b 70 75 74 22  |$(12)="blockput"|
00003e20  0d 1d 38 12 41 24 28 31  33 29 3d 22 63 6f 64 65  |..8.A$(13)="code|
00003e30  72 22 0d 1d 42 13 41 24  28 31 34 29 3d 22 64 63  |r"..B.A$(14)="dc|
00003e40  6f 64 65 72 22 0d 1d 4c  15 41 24 28 31 35 29 3d  |oder"..L.A$(15)=|
00003e50  22 73 63 61 6c 65 31 2f  34 22 0d 1d 56 16 41 24  |"scale1/4"..V.A$|
00003e60  28 31 36 29 3d 22 63 6f  70 79 66 73 63 72 6e 22  |(16)="copyfscrn"|
00003e70  0d 1d 60 12 41 24 28 31  37 29 3d 22 70 61 75 73  |..`.A$(17)="paus|
00003e80  65 22 0d 1d 6a 14 41 24  28 31 38 29 3d 22 62 6c  |e"..j.A$(18)="bl|
00003e90  63 6b 62 6c 74 22 0d 1d  74 15 41 24 28 31 39 29  |ckblt"..t.A$(19)|
00003ea0  3d 22 63 6f 64 65 72 5f  31 32 22 0d 1d 7e 16 41  |="coder_12"..~.A|
00003eb0  24 28 32 30 29 3d 22 64  63 6f 64 65 72 5f 31 32  |$(20)="dcoder_12|
00003ec0  22 0d 1d 88 04 0d 1d 92  42 c8 99 22 4f 53 5f 52  |".......B.."OS_R|
00003ed0  65 61 64 56 61 72 56 61  6c 22 2c 22 6f 62 65 79  |eadVarVal","obey|
00003ee0  24 64 69 72 22 2c 70 69  63 5f 6e 61 6d 65 5f 74  |$dir",pic_name_t|
00003ef0  61 62 6c 65 25 2c 32 35  35 2c 30 2c 33 20 20 b8  |able%,255,0,3  .|
00003f00  20 2c 2c 6c 65 6e 25 0d  1d 9c 17 f4 20 63 6f 6e  | ,,len%..... con|
00003f10  74 72 6f 6c 20 74 65 72  6d 69 6e 61 74 65 0d 1d  |trol terminate..|
00003f20  a6 1b 70 69 63 5f 6e 61  6d 65 5f 74 61 62 6c 65  |..pic_name_table|
00003f30  25 3f 6c 65 6e 25 3d 31  33 0d 1d b0 1b 66 69 6c  |%?len%=13....fil|
00003f40  65 73 24 3d 24 70 69 63  5f 6e 61 6d 65 5f 74 61  |es$=$pic_name_ta|
00003f50  62 6c 65 25 0d 1d ba 04  0d 1d c4 3f f4 20 66 69  |ble%.......?. fi|
00003f60  6c 65 73 24 20 69 73 20  74 68 65 20 70 61 74 68  |les$ is the path|
00003f70  20 6e 61 6d 65 20 6f 66  20 74 68 65 20 61 70 70  | name of the app|
00003f80  6c 69 63 61 74 69 6f 6e  73 20 73 75 70 70 6f 72  |lications suppor|
00003f90  74 20 66 69 6c 65 73 0d  1d ce 10 e3 20 63 74 25  |t files..... ct%|
00003fa0  3d 31 20 b8 20 32 30 0d  1d d8 28 20 20 70 61 74  |=1 . 20...(  pat|
00003fb0  68 24 3d 66 69 6c 65 73  24 2b 22 2e 61 73 73 65  |h$=files$+".asse|
00003fc0  6d 62 6c 65 72 2e 22 2b  41 24 28 63 74 25 29 0d  |mbler."+A$(ct%).|
00003fd0  1d e2 25 20 20 c8 99 22  4f 53 5f 46 69 6c 65 22  |..%  .."OS_File"|
00003fe0  2c 31 32 2c 70 61 74 68  24 2c 73 74 25 28 63 74  |,12,path$,st%(ct|
00003ff0  25 29 2c 30 0d 1d ec 09  ed 20 63 74 25 0d 1d f6  |%),0..... ct%...|
00004000  04 0d 1e 00 05 e1 0d 1e  0a 04 0d 1e 14 16 dd 20  |............... |
00004010  f2 67 72 61 62 5f 6d 65  6d 28 73 69 7a 65 25 29  |.grab_mem(size%)|
00004020  0d 1e 1e 14 ea 20 6e 65  77 73 69 7a 65 25 2c 64  |..... newsize%,d|
00004030  69 66 66 25 0d 1e 28 11  66 69 72 73 74 5f 66 72  |iff%..(.first_fr|
00004040  65 65 25 3d 93 0d 1e 32  34 c8 99 22 4f 53 5f 43  |ee%=...24.."OS_C|
00004050  68 61 6e 67 65 45 6e 76  69 72 6f 6e 6d 65 6e 74  |hangeEnvironment|
00004060  22 2c 31 34 2c 30 2c 30  2c 30 20 b8 20 2c 65 6e  |",14,0,0,0 . ,en|
00004070  64 5f 6f 66 5f 6d 65 6d  25 0d 1e 3c 1f 64 69 66  |d_of_mem%..<.dif|
00004080  66 25 3d 73 69 7a 65 25  2d 28 65 6e 64 5f 6f 66  |f%=size%-(end_of|
00004090  5f 6d 65 6d 25 2d 93 29  0d 1e 46 26 6e 65 77 73  |_mem%-.)..F&news|
000040a0  69 7a 65 25 3d 28 65 6e  64 5f 6f 66 5f 6d 65 6d  |ize%=(end_of_mem|
000040b0  25 2d 26 38 30 30 30 29  2b 64 69 66 66 25 0d 1e  |%-&8000)+diff%..|
000040c0  50 21 c8 99 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |P!.."Wimp_SlotSi|
000040d0  7a 65 22 2c 6e 65 77 73  69 7a 65 25 2c 2d 31 0d  |ze",newsize%,-1.|
000040e0  1e 5a 34 c8 99 22 4f 53  5f 43 68 61 6e 67 65 45  |.Z4.."OS_ChangeE|
000040f0  6e 76 69 72 6f 6e 6d 65  6e 74 22 2c 31 34 2c 30  |nvironment",14,0|
00004100  2c 30 2c 30 20 b8 20 2c  65 6e 64 5f 6f 66 5f 6d  |,0,0 . ,end_of_m|
00004110  65 6d 25 0d 1e 64 05 e1  0d 1e 6e 04 0d 1e 78 04  |em%..d....n...x.|
00004120  0d 1e 82 04 0d 1e 8c 17  dd 20 f2 6d 6f 64 65 5f  |......... .mode_|
00004130  63 68 61 6e 67 65 28 66  6c 25 29 0d 1e 96 15 20  |change(fl%).... |
00004140  20 ea 20 6d 6f 64 65 25  2c 63 68 6f 69 63 65 25  | . mode%,choice%|
00004150  0d 1e a0 1e 20 20 c8 99  22 4f 53 5f 42 79 74 65  |....  .."OS_Byte|
00004160  22 2c 31 33 35 20 b8 2c  2c 6d 6f 64 65 25 0d 1e  |",135 .,,mode%..|
00004170  aa 10 20 20 c8 8e 20 6d  6f 64 65 25 20 ca 0d 1e  |..  .. mode% ...|
00004180  b4 18 20 20 c9 20 31 35  2c 31 35 2b 31 32 38 3a  |..  . 15,15+128:|
00004190  f4 20 6e 6f 77 74 0d 1e  be 07 20 20 7f 0d 1e c8  |. nowt....  ....|
000041a0  16 20 20 20 20 65 72 72  6f 72 5f 62 6c 6b 25 21  |.    error_blk%!|
000041b0  30 3d 30 0d 1e d2 26 20  20 20 20 24 28 65 72 72  |0=0...&    $(err|
000041c0  6f 72 5f 62 6c 6b 25 2b  34 29 3d 22 4d 6f 64 65  |or_blk%+4)="Mode|
000041d0  20 31 35 20 6f 6e 6c 79  22 0d 1e dc 10 20 20 20  | 15 only"....   |
000041e0  20 c8 8e 20 66 6c 25 20  ca 0d 1e e6 0b 20 20 20  | .. fl% .....   |
000041f0  20 c9 20 30 0d 1e f0 3f  20 20 20 20 20 20 c8 99  | . 0...?      ..|
00004200  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00004210  72 22 2c 65 72 72 6f 72  5f 62 6c 6b 25 2c 25 30  |r",error_blk%,%0|
00004220  30 30 31 31 30 31 2c 22  53 6c 69 64 65 20 53 68  |001101,"Slide Sh|
00004230  6f 77 22 0d 1e fa 1d 20  20 20 20 20 20 c8 99 22  |ow"....      .."|
00004240  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 31 35  |Wimp_SetMode",15|
00004250  0d 1f 04 0b 20 20 20 20  c9 20 31 0d 1f 0e 4a 20  |....    . 1...J |
00004260  20 20 20 20 20 c8 99 22  57 69 6d 70 5f 52 65 70  |     .."Wimp_Rep|
00004270  6f 72 74 45 72 72 6f 72  22 2c 65 72 72 6f 72 5f  |ortError",error_|
00004280  62 6c 6b 25 2c 25 30 30  30 31 31 31 31 2c 22 53  |blk%,%0001111,"S|
00004290  6c 69 64 65 20 53 68 6f  77 22 20 b8 20 2c 63 68  |lide Show" . ,ch|
000042a0  6f 69 63 65 25 0d 1f 18  17 20 20 20 20 20 20 e7  |oice%....      .|
000042b0  20 63 68 6f 69 63 65 25  3d 31 20 8c 0d 1f 22 1f  | choice%=1 ...".|
000042c0  20 20 20 20 20 20 20 20  c8 99 22 57 69 6d 70 5f  |        .."Wimp_|
000042d0  53 65 74 4d 6f 64 65 22  2c 31 35 0d 1f 2c 0b 20  |SetMode",15..,. |
000042e0  20 20 20 20 20 cc 0d 1f  36 31 20 20 20 20 20 20  |     ...61      |
000042f0  20 20 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |  .."Wimp_CloseD|
00004300  6f 77 6e 22 2c 74 61 73  6b 5f 68 61 6e 64 6c 65  |own",task_handle|
00004310  25 2c 74 61 73 6b 25 0d  1f 40 0d 20 20 20 20 20  |%,task%..@.     |
00004320  20 20 20 e0 0d 1f 4a 0b  20 20 20 20 20 20 cd 0d  |   ...J.      ..|
00004330  1f 54 09 20 20 20 20 cb  0d 1f 5e 07 20 20 cb 0d  |.T.    ...^.  ..|
00004340  1f 68 05 e1 0d 1f 72 04  0d 1f 7c 04 0d 1f 86 09  |.h....r...|.....|
00004350  dd 20 f2 63 6a 0d 1f 90  0b ea 20 78 25 2c 79 25  |. .cj..... x%,y%|
00004360  0d 1f 9a 15 41 25 3d 73  63 72 65 65 6e 5f 62 75  |....A%=screen_bu|
00004370  66 66 65 72 25 0d 1f a4  12 42 25 3d 73 63 72 6e  |ffer%....B%=scrn|
00004380  62 61 73 65 5f 30 25 0d  1f ae 09 43 25 3d 38 30  |base_0%....C%=80|
00004390  0d 1f b8 09 44 25 3d 33  32 0d 1f c2 08 79 25 3d  |....D%=32....y%=|
000043a0  30 0d 1f cc 05 f5 0d 1f  d6 0a 20 20 78 25 3d 30  |0.........  x%=0|
000043b0  0d 1f e0 07 20 20 f5 0d  1f ea 0d 20 20 20 20 45  |....  .....    E|
000043c0  25 3d 78 25 0d 1f f4 0d  20 20 20 20 46 25 3d 79  |%=x%....    F%=y|
000043d0  25 0d 1f fe 0d 20 20 20  20 47 25 3d 78 25 0d 20  |%....    G%=x%. |
000043e0  08 0d 20 20 20 20 48 25  3d 79 25 0d 20 12 0a 20  |..    H%=y%. .. |
000043f0  20 20 20 c8 96 0d 20 1c  16 20 20 20 20 d6 20 62  |   ... ..    . b|
00004400  6c 6f 63 6b 5f 62 6c 69  74 31 25 0d 20 26 10 20  |lock_blit1%. &. |
00004410  20 20 20 78 25 3d 78 25  2b 38 30 0d 20 30 0e 20  |   x%=x%+80. 0. |
00004420  20 fd 20 78 25 3e 36 33  39 0d 20 3a 0c 79 25 3d  | . x%>639. :.y%=|
00004430  79 25 2b 33 32 0d 20 44  0c fd 20 79 25 3e 32 35  |y%+32. D.. y%>25|
00004440  35 0d 20 4e 05 e1 0d 20  58 04 0d 20 62 0f dd 20  |5. N... X.. b.. |
00004450  f2 6c 6f 61 64 5f 73 65  71 0d 20 6c 20 ea 20 66  |.load_seq. l . f|
00004460  5f 68 61 6e 25 2c 69 63  6f 6e 73 25 2c 6d 65 6d  |_han%,icons%,mem|
00004470  6f 72 79 25 2c 6d 65 6d  24 0d 20 76 0f 20 20 66  |ory%,mem$. v.  f|
00004480  5f 68 61 6e 25 3d 2d 31  0d 20 80 1e 20 20 70 61  |_han%=-1. ..  pa|
00004490  74 68 24 3d 66 69 6c 65  73 24 2b 22 2e 73 65 71  |th$=files$+".seq|
000044a0  75 65 6e 63 65 22 0d 20  8a 24 20 20 c8 99 22 4f  |uence". .$  .."O|
000044b0  53 5f 46 69 6e 64 22 2c  26 34 30 2c 70 61 74 68  |S_Find",&40,path|
000044c0  24 20 b8 20 66 5f 68 61  6e 25 0d 20 94 2d 20 20  |$ . f_han%. .-  |
000044d0  20 20 c8 99 22 4f 53 5f  47 42 50 42 22 2c 34 2c  |  .."OS_GBPB",4,|
000044e0  66 5f 68 61 6e 25 2c 67  65 6e 65 72 61 6c 5f 62  |f_han%,general_b|
000044f0  6c 6f 63 6b 25 2c 38 0d  20 9e 1a 20 20 c8 99 22  |lock%,8. ..  .."|
00004500  4f 53 5f 46 69 6e 64 22  2c 30 2c 66 5f 68 61 6e  |OS_Find",0,f_han|
00004510  25 0d 20 a8 0f 20 20 66  5f 68 61 6e 25 3d 2d 31  |%. ..  f_han%=-1|
00004520  0d 20 b2 21 20 20 f2 67  72 61 62 5f 6d 65 6d 28  |. .!  .grab_mem(|
00004530  67 65 6e 65 72 61 6c 5f  62 6c 6f 63 6b 25 21 34  |general_block%!4|
00004540  29 0d 20 bc 2a 20 20 e7  20 67 65 6e 65 72 61 6c  |). .*  . general|
00004550  5f 62 6c 6f 63 6b 25 21  34 3e 28 65 6e 64 5f 6f  |_block%!4>(end_o|
00004560  66 5f 6d 65 6d 25 2d 93  29 20 8c 0d 20 c6 2f 20  |f_mem%-.) .. ./ |
00004570  20 20 20 6d 65 6d 6f 72  79 25 3d 32 30 38 2b 28  |   memory%=208+(|
00004580  28 67 65 6e 65 72 61 6c  5f 62 6c 6f 63 6b 25 21  |(general_block%!|
00004590  34 29 20 81 20 31 30 32  34 29 0d 20 d0 25 20 20  |4) . 1024). .%  |
000045a0  20 20 6d 65 6d 6f 72 79  25 3d 31 36 2a 28 28 6d  |  memory%=16*((m|
000045b0  65 6d 6f 72 79 25 20 81  20 31 36 29 2b 31 29 0d  |emory% . 16)+1).|
000045c0  20 da 17 20 20 20 20 6d  65 6d 24 3d c3 28 6d 65  | ..    mem$=.(me|
000045d0  6d 6f 72 79 25 29 0d 20  e4 45 20 20 20 20 85 20  |mory%). .E    . |
000045e0  31 2c 22 4e 6f 74 20 65  6e 6f 75 67 68 20 6d 65  |1,"Not enough me|
000045f0  6d 6f 72 79 20 74 6f 20  6c 6f 61 64 20 73 65 71  |mory to load seq|
00004600  75 65 6e 63 65 2c 6e 65  65 64 73 20 22 2b 6d 65  |uence,needs "+me|
00004610  6d 24 2b 22 4b 20 46 72  65 65 22 0d 20 ee 07 20  |m$+"K Free". .. |
00004620  20 cd 0d 20 f8 35 20 20  f2 6c 6f 61 64 5f 6f 72  | .. .5  .load_or|
00004630  5f 73 61 76 65 5f 73 65  71 28 26 34 30 2c 34 2c  |_save_seq(&40,4,|
00004640  67 65 6e 65 72 61 6c 5f  62 6c 6f 63 6b 25 21 34  |general_block%!4|
00004650  2c 70 61 74 68 24 29 0d  21 02 0f 20 20 66 5f 68  |,path$).!..  f_h|
00004660  61 6e 25 3d 2d 31 0d 21  0c 22 20 20 6e 6f 5f 6f  |an%=-1.!."  no_o|
00004670  66 5f 70 69 63 73 25 3d  67 65 6e 65 72 61 6c 5f  |f_pics%=general_|
00004680  62 6c 6f 63 6b 25 21 38  0d 21 16 28 20 20 75 73  |block%!8.!.(  us|
00004690  65 72 5f 74 69 6d 65 64  5f 66 6c 61 67 25 3d 67  |er_timed_flag%=g|
000046a0  65 6e 65 72 61 6c 5f 62  6c 6f 63 6b 25 21 32 34  |eneral_block%!24|
000046b0  0d 21 20 22 20 20 6c 6f  6f 70 5f 66 6c 61 67 25  |.! "  loop_flag%|
000046c0  3d 67 65 6e 65 72 61 6c  5f 62 6c 6f 63 6b 25 21  |=general_block%!|
000046d0  32 38 0d 21 2a 1e 20 20  69 63 6f 6e 73 25 3d 67  |28.!*.  icons%=g|
000046e0  65 6e 65 72 61 6c 5f 62  6c 6f 63 6b 25 21 31 32  |eneral_block%!12|
000046f0  0d 21 34 23 20 20 66 69  72 73 74 5f 66 72 65 65  |.!4#  first_free|
00004700  25 3d 67 65 6e 65 72 61  6c 5f 62 6c 6f 63 6b 25  |%=general_block%|
00004710  21 31 36 0d 21 3e 22 20  20 6f 6c 64 5f 68 69 6d  |!16.!>"  old_him|
00004720  65 6d 25 3d 67 65 6e 65  72 61 6c 5f 62 6c 6f 63  |em%=general_bloc|
00004730  6b 25 21 32 30 0d 21 48  17 20 20 f2 61 64 6a 75  |k%!20.!H.  .adju|
00004740  73 74 5f 66 6f 72 5f 68  69 6d 65 6d 0d 21 52 05  |st_for_himem.!R.|
00004750  e1 0d 21 5c 04 0d 21 66  2a dd 20 f2 6c 6f 61 64  |..!\..!f*. .load|
00004760  5f 6f 72 5f 73 61 76 65  5f 73 65 71 28 6c 73 25  |_or_save_seq(ls%|
00004770  2c 6e 25 2c 6c 65 6e 25  2c 70 61 74 68 24 29 0d  |,n%,len%,path$).|
00004780  21 70 0e 20 20 66 5f 68  61 6e 25 3d 30 0d 21 7a  |!p.  f_han%=0.!z|
00004790  24 20 20 c8 99 22 4f 53  5f 46 69 6e 64 22 2c 6c  |$  .."OS_Find",l|
000047a0  73 25 2c 70 61 74 68 24  20 b8 20 66 5f 68 61 6e  |s%,path$ . f_han|
000047b0  25 0d 21 84 2d 20 20 c8  99 22 4f 53 5f 47 42 50  |%.!.-  .."OS_GBP|
000047c0  42 22 2c 6e 25 2c 66 5f  68 61 6e 25 2c 67 65 6e  |B",n%,f_han%,gen|
000047d0  65 72 61 6c 5f 62 6c 6f  63 6b 25 2c 33 32 0d 21  |eral_block%,32.!|
000047e0  8e 31 20 20 c8 99 22 4f  53 5f 47 42 50 42 22 2c  |.1  .."OS_GBPB",|
000047f0  6e 25 2c 66 5f 68 61 6e  25 2c 70 69 63 5f 6e 61  |n%,f_han%,pic_na|
00004800  6d 65 5f 74 61 62 6c 65  25 2c 32 34 30 2a 34 0d  |me_table%,240*4.|
00004810  21 98 2e 20 20 c8 99 22  4f 53 5f 47 42 50 42 22  |!..  .."OS_GBPB"|
00004820  2c 6e 25 2c 66 5f 68 61  6e 25 2c 70 69 63 74 75  |,n%,f_han%,pictu|
00004830  72 65 5f 74 61 62 6c 65  25 2c 32 34 30 0d 21 a2  |re_table%,240.!.|
00004840  35 20 20 c8 99 22 4f 53  5f 47 42 50 42 22 2c 6e  |5  .."OS_GBPB",n|
00004850  25 2c 66 5f 68 61 6e 25  2c 70 69 63 74 75 72 65  |%,f_han%,picture|
00004860  5f 6c 65 6e 67 74 68 5f  74 61 62 6c 65 25 2c 32  |_length_table%,2|
00004870  34 30 0d 21 ac 39 20 20  c8 99 22 4f 53 5f 47 42  |40.!.9  .."OS_GB|
00004880  50 42 22 2c 6e 25 2c 66  5f 68 61 6e 25 2c 70 69  |PB",n%,f_han%,pi|
00004890  63 74 75 72 65 5f 66 69  6c 65 6c 65 6e 67 74 68  |cture_filelength|
000048a0  5f 74 61 62 6c 65 25 2c  32 34 30 0d 21 b6 30 20  |_table%,240.!.0 |
000048b0  20 c8 99 22 4f 53 5f 47  42 50 42 22 2c 6e 25 2c  | .."OS_GBPB",n%,|
000048c0  66 5f 68 61 6e 25 2c 70  69 63 74 75 72 65 5f 69  |f_han%,picture_i|
000048d0  64 5f 74 61 62 6c 65 25  2c 36 30 0d 21 c0 33 20  |d_table%,60.!.3 |
000048e0  20 c8 99 22 4f 53 5f 47  42 50 42 22 2c 6e 25 2c  | .."OS_GBPB",n%,|
000048f0  66 5f 68 61 6e 25 2c 70  69 63 74 75 72 65 5f 74  |f_han%,picture_t|
00004900  69 6d 65 5f 74 61 62 6c  65 25 2c 32 34 30 0d 21  |ime_table%,240.!|
00004910  ca 2b 20 20 c8 99 22 4f  53 5f 47 42 50 42 22 2c  |.+  .."OS_GBPB",|
00004920  6e 25 2c 66 5f 68 61 6e  25 2c 69 63 6f 6e 5f 74  |n%,f_han%,icon_t|
00004930  61 62 6c 65 25 2c 32 34  30 0d 21 d4 33 20 20 c8  |able%,240.!.3  .|
00004940  99 22 4f 53 5f 47 42 50  42 22 2c 6e 25 2c 66 5f  |."OS_GBPB",n%,f_|
00004950  68 61 6e 25 2c 74 72 61  6e 73 69 74 69 6f 6e 5f  |han%,transition_|
00004960  69 64 5f 74 61 62 6c 65  25 2c 36 30 0d 21 de 31  |id_table%,60.!.1|
00004970  20 20 c8 99 22 4f 53 5f  47 42 50 42 22 2c 6e 25  |  .."OS_GBPB",n%|
00004980  2c 66 5f 68 61 6e 25 2c  70 61 6c 65 74 74 65 5f  |,f_han%,palette_|
00004990  74 61 62 6c 65 5f 31 32  25 2c 32 34 30 0d 21 e8  |table_12%,240.!.|
000049a0  2c 20 20 c8 99 22 4f 53  5f 47 42 50 42 22 2c 6e  |,  .."OS_GBPB",n|
000049b0  25 2c 66 5f 68 61 6e 25  2c 70 6c 61 79 5f 70 61  |%,f_han%,play_pa|
000049c0  6c 65 74 74 65 25 2c 36  34 0d 21 f2 04 0d 21 fc  |lette%,64.!...!.|
000049d0  22 20 20 c8 99 22 4f 53  5f 47 42 50 42 22 2c 6e  |"  .."OS_GBPB",n|
000049e0  25 2c 66 5f 68 61 6e 25  2c 93 2c 6c 65 6e 25 0d  |%,f_han%,.,len%.|
000049f0  22 06 18 c8 99 22 4f 53  5f 46 69 6e 64 22 2c 30  |"...."OS_Find",0|
00004a00  2c 66 5f 68 61 6e 25 0d  22 10 05 e1 0d 22 1a 04  |,f_han%."...."..|
00004a10  0d 22 24 04 0d 22 2e 14  dd 20 f2 63 68 65 63 6b  |."$.."... .check|
00004a20  5f 6d 6f 64 65 5f 31 35  0d 22 38 13 f2 6d 6f 64  |_mode_15."8..mod|
00004a30  65 5f 63 68 61 6e 67 65  28 31 29 0d 22 42 05 e1  |e_change(1)."B..|
00004a40  0d 22 4c 04 0d 22 56 04  0d 22 60 04 0d 22 6a 1a  |."L.."V.."`.."j.|
00004a50  dd 20 a4 67 65 74 5f 66  69 6c 65 6e 61 6d 65 28  |. .get_filename(|
00004a60  70 61 74 68 25 29 0d 22  74 16 20 20 ea 20 63 68  |path%)."t.  . ch|
00004a70  61 72 25 2c 6e 25 2c 6c  61 73 74 25 0d 22 7e 0b  |ar%,n%,last%."~.|
00004a80  20 20 6e 25 3d 2d 31 0d  22 88 07 20 20 f5 0d 22  |  n%=-1."..  .."|
00004a90  92 0f 20 20 20 20 6e 25  3d 6e 25 2b 31 0d 22 9c  |..    n%=n%+1.".|
00004aa0  16 20 20 20 20 63 68 61  72 25 3d 70 61 74 68 25  |.    char%=path%|
00004ab0  3f 6e 25 0d 22 a6 1b 20  20 fd 20 63 68 61 72 25  |?n%."..  . char%|
00004ac0  3d 30 20 20 84 20 63 68  61 72 25 3d 31 33 0d 22  |=0  . char%=13."|
00004ad0  b0 0e 20 20 6c 61 73 74  25 3d 6e 25 0d 22 ba 07  |..  last%=n%."..|
00004ae0  20 20 f5 0d 22 c4 0f 20  20 20 20 6e 25 3d 6e 25  |  .."..    n%=n%|
00004af0  2d 31 0d 22 ce 16 20 20  20 20 63 68 61 72 25 3d  |-1."..    char%=|
00004b00  70 61 74 68 25 3f 6e 25  0d 22 d8 10 20 20 fd 20  |path%?n%."..  . |
00004b10  63 68 61 72 25 3d 34 36  0d 22 e2 0e 20 20 f4 20  |char%=46."..  . |
00004b20  34 36 3d 22 2e 22 0d 22  ec 14 20 20 70 61 74 68  |46="."."..  path|
00004b30  25 3f 6c 61 73 74 25 3d  31 33 0d 22 f6 16 20 20  |%?last%=13."..  |
00004b40  3d 24 28 70 61 74 68 25  2b 28 6e 25 2b 31 29 29  |=$(path%+(n%+1))|
00004b50  0d 23 00 11 f4 20 45 4e  44 46 55 4e 43 54 49 4f  |.#... ENDFUNCTIO|
00004b60  4e 0d 23 0a 04 0d 23 14  04 0d 23 1e 04 0d 23 28  |N.#...#...#...#(|
00004b70  18 dd 20 f2 72 65 61 64  5f 69 6e 69 74 5f 70 61  |.. .read_init_pa|
00004b80  6c 65 74 74 65 0d 23 32  19 de 20 69 6e 69 74 69  |lette.#2.. initi|
00004b90  61 6c 5f 70 61 6c 65 74  74 65 25 20 36 34 0d 23  |al_palette% 64.#|
00004ba0  3c 23 f2 72 65 61 64 5f  70 61 6c 65 74 74 65 28  |<#.read_palette(|
00004bb0  69 6e 69 74 69 61 6c 5f  70 61 6c 65 74 74 65 25  |initial_palette%|
00004bc0  29 0d 23 46 05 e1 0d 23  50 04 0d 23 5a 1d dd 20  |).#F...#P..#Z.. |
00004bd0  f2 72 65 61 64 5f 70 61  6c 65 74 74 65 28 70 61  |.read_palette(pa|
00004be0  6c 65 74 74 65 25 29 0d  23 64 09 ea 20 63 74 25  |lette%).#d.. ct%|
00004bf0  0d 23 6e 10 e3 20 63 74  25 3d 30 20 b8 20 31 35  |.#n.. ct%=0 . 15|
00004c00  0d 23 78 35 20 20 c8 99  22 4f 53 5f 52 65 61 64  |.#x5  .."OS_Read|
00004c10  50 61 6c 65 74 74 65 22  2c 63 74 25 2c 31 36 20  |Palette",ct%,16 |
00004c20  b8 20 2c 2c 70 61 6c 65  74 74 65 25 21 28 63 74  |. ,,palette%!(ct|
00004c30  25 3c 3c 32 29 0d 23 82  09 ed 20 63 74 25 0d 23  |%<<2).#... ct%.#|
00004c40  8c 05 e1 0d 23 96 04 0d  23 a0 1c dd 20 f2 73 65  |....#...#... .se|
00004c50  74 5f 70 61 6c 65 74 74  65 28 70 61 6c 65 74 74  |t_palette(palett|
00004c60  65 25 29 0d 23 aa 09 ea  20 63 74 25 0d 23 b4 10  |e%).#... ct%.#..|
00004c70  e3 20 63 74 25 3d 30 20  b8 20 31 35 0d 23 be 16  |. ct%=0 . 15.#..|
00004c80  20 20 69 6e 70 75 74 6c  69 73 74 25 3f 30 3d 63  |  inputlist%?0=c|
00004c90  74 25 0d 23 c8 24 20 20  69 6e 70 75 74 6c 69 73  |t%.#.$  inputlis|
00004ca0  74 25 21 31 3d 70 61 6c  65 74 74 65 25 21 28 63  |t%!1=palette%!(c|
00004cb0  74 25 3c 3c 32 29 0d 23  d2 1f 20 20 c8 99 22 4f  |t%<<2).#..  .."O|
00004cc0  53 5f 57 6f 72 64 22 2c  31 32 2c 69 6e 70 75 74  |S_Word",12,input|
00004cd0  6c 69 73 74 25 0d 23 dc  09 ed 20 63 74 25 0d 23  |list%.#... ct%.#|
00004ce0  e6 05 e1 0d 23 f0 04 0d  23 fa 04 0d 24 04 34 dd  |....#...#...$.4.|
00004cf0  20 f2 63 6f 70 79 5f 66  75 6c 6c 5f 73 63 72 65  | .copy_full_scre|
00004d00  65 6e 28 61 64 64 72 5f  73 72 63 65 25 2c 61 64  |en(addr_srce%,ad|
00004d10  64 72 5f 64 65 73 74 25  2c 73 69 7a 65 25 29 0d  |dr_dest%,size%).|
00004d20  24 0e 13 20 20 41 25 3d  61 64 64 72 5f 73 72 63  |$..  A%=addr_src|
00004d30  65 25 0d 24 18 13 20 20  42 25 3d 61 64 64 72 5f  |e%.$..  B%=addr_|
00004d40  64 65 73 74 25 0d 24 22  0e 20 20 43 25 3d 73 69  |dest%.$".  C%=si|
00004d50  7a 65 25 0d 24 2c 19 20  20 d6 20 63 6f 70 79 5f  |ze%.$,.  . copy_|
00004d60  66 75 6c 6c 5f 73 63 72  65 65 6e 25 0d 24 36 05  |full_screen%.$6.|
00004d70  e1 0d 24 40 04 0d 24 4a  10 dd 20 f2 74 69 6d 65  |..$@..$J.. .time|
00004d80  74 61 62 6c 65 0d 24 54  22 20 20 de 20 74 72 61  |table.$T"  . tra|
00004d90  6e 73 69 74 69 6f 6e 5f  74 69 6d 65 5f 74 61 62  |nsition_time_tab|
00004da0  6c 65 25 20 31 32 38 0d  24 5e 20 20 20 74 72 61  |le% 128.$^   tra|
00004db0  6e 73 69 74 69 6f 6e 5f  74 69 6d 65 5f 74 61 62  |nsition_time_tab|
00004dc0  6c 65 25 21 30 3d 30 0d  24 68 22 20 20 74 72 61  |le%!0=0.$h"  tra|
00004dd0  6e 73 69 74 69 6f 6e 5f  74 69 6d 65 5f 74 61 62  |nsition_time_tab|
00004de0  6c 65 25 21 34 3d 32 36  30 0d 24 72 22 20 20 74  |le%!4=260.$r"  t|
00004df0  72 61 6e 73 69 74 69 6f  6e 5f 74 69 6d 65 5f 74  |ransition_time_t|
00004e00  61 62 6c 65 25 21 38 3d  31 33 30 0d 24 7c 22 20  |able%!8=130.$|" |
00004e10  20 74 72 61 6e 73 69 74  69 6f 6e 5f 74 69 6d 65  | transition_time|
00004e20  5f 74 61 62 6c 65 25 21  31 32 3d 37 30 0d 24 86  |_table%!12=70.$.|
00004e30  22 20 20 74 72 61 6e 73  69 74 69 6f 6e 5f 74 69  |"  transition_ti|
00004e40  6d 65 5f 74 61 62 6c 65  25 21 31 36 3d 39 30 0d  |me_table%!16=90.|
00004e50  24 90 23 20 20 74 72 61  6e 73 69 74 69 6f 6e 5f  |$.#  transition_|
00004e60  74 69 6d 65 5f 74 61 62  6c 65 25 21 32 30 3d 31  |time_table%!20=1|
00004e70  33 30 0d 24 9a 22 20 20  74 72 61 6e 73 69 74 69  |30.$."  transiti|
00004e80  6f 6e 5f 74 69 6d 65 5f  74 61 62 6c 65 25 21 32  |on_time_table%!2|
00004e90  34 3d 37 30 0d 24 a4 22  20 20 74 72 61 6e 73 69  |4=70.$."  transi|
00004ea0  74 69 6f 6e 5f 74 69 6d  65 5f 74 61 62 6c 65 25  |tion_time_table%|
00004eb0  21 32 38 3d 37 30 0d 24  ae 23 20 20 74 72 61 6e  |!28=70.$.#  tran|
00004ec0  73 69 74 69 6f 6e 5f 74  69 6d 65 5f 74 61 62 6c  |sition_time_tabl|
00004ed0  65 25 21 33 32 3d 32 36  30 0d 24 b8 23 20 20 74  |e%!32=260.$.#  t|
00004ee0  72 61 6e 73 69 74 69 6f  6e 5f 74 69 6d 65 5f 74  |ransition_time_t|
00004ef0  61 62 6c 65 25 21 33 36  3d 31 33 30 0d 24 c2 22  |able%!36=130.$."|
00004f00  20 20 74 72 61 6e 73 69  74 69 6f 6e 5f 74 69 6d  |  transition_tim|
00004f10  65 5f 74 61 62 6c 65 25  21 34 30 3d 37 30 0d 24  |e_table%!40=70.$|
00004f20  cc 22 20 20 74 72 61 6e  73 69 74 69 6f 6e 5f 74  |."  transition_t|
00004f30  69 6d 65 5f 74 61 62 6c  65 25 21 34 34 3d 39 30  |ime_table%!44=90|
00004f40  0d 24 d6 23 20 20 74 72  61 6e 73 69 74 69 6f 6e  |.$.#  transition|
00004f50  5f 74 69 6d 65 5f 74 61  62 6c 65 25 21 34 38 3d  |_time_table%!48=|
00004f60  31 33 30 0d 24 e0 22 20  20 74 72 61 6e 73 69 74  |130.$."  transit|
00004f70  69 6f 6e 5f 74 69 6d 65  5f 74 61 62 6c 65 25 21  |ion_time_table%!|
00004f80  35 32 3d 37 30 0d 24 ea  22 20 20 74 72 61 6e 73  |52=70.$."  trans|
00004f90  69 74 69 6f 6e 5f 74 69  6d 65 5f 74 61 62 6c 65  |ition_time_table|
00004fa0  25 21 35 36 3d 31 30 0d  24 f4 23 20 20 74 72 61  |%!56=10.$.#  tra|
00004fb0  6e 73 69 74 69 6f 6e 5f  74 69 6d 65 5f 74 61 62  |nsition_time_tab|
00004fc0  6c 65 25 21 36 30 3d 32  36 30 0d 24 fe 23 20 20  |le%!60=260.$.#  |
00004fd0  74 72 61 6e 73 69 74 69  6f 6e 5f 74 69 6d 65 5f  |transition_time_|
00004fe0  74 61 62 6c 65 25 21 36  34 3d 31 36 30 0d 25 08  |table%!64=160.%.|
00004ff0  22 20 20 74 72 61 6e 73  69 74 69 6f 6e 5f 74 69  |"  transition_ti|
00005000  6d 65 5f 74 61 62 6c 65  25 21 36 38 3d 38 30 0d  |me_table%!68=80.|
00005010  25 12 23 20 20 74 72 61  6e 73 69 74 69 6f 6e 5f  |%.#  transition_|
00005020  74 69 6d 65 5f 74 61 62  6c 65 25 21 37 32 3d 31  |time_table%!72=1|
00005030  31 30 0d 25 1c 23 20 20  74 72 61 6e 73 69 74 69  |10.%.#  transiti|
00005040  6f 6e 5f 74 69 6d 65 5f  74 61 62 6c 65 25 21 37  |on_time_table%!7|
00005050  36 3d 31 36 30 0d 25 26  23 20 20 74 72 61 6e 73  |6=160.%&#  trans|
00005060  69 74 69 6f 6e 5f 74 69  6d 65 5f 74 61 62 6c 65  |ition_time_table|
00005070  25 21 38 30 3d 31 31 30  0d 25 30 22 20 20 74 72  |%!80=110.%0"  tr|
00005080  61 6e 73 69 74 69 6f 6e  5f 74 69 6d 65 5f 74 61  |ansition_time_ta|
00005090  62 6c 65 25 21 38 34 3d  36 30 0d 25 3a 23 20 20  |ble%!84=60.%:#  |
000050a0  74 72 61 6e 73 69 74 69  6f 6e 5f 74 69 6d 65 5f  |transition_time_|
000050b0  74 61 62 6c 65 25 21 38  38 3d 32 36 30 0d 25 44  |table%!88=260.%D|
000050c0  23 20 20 74 72 61 6e 73  69 74 69 6f 6e 5f 74 69  |#  transition_ti|
000050d0  6d 65 5f 74 61 62 6c 65  25 21 39 32 3d 31 36 30  |me_table%!92=160|
000050e0  0d 25 4e 22 20 20 74 72  61 6e 73 69 74 69 6f 6e  |.%N"  transition|
000050f0  5f 74 69 6d 65 5f 74 61  62 6c 65 25 21 39 36 3d  |_time_table%!96=|
00005100  38 30 0d 25 58 24 20 20  74 72 61 6e 73 69 74 69  |80.%X$  transiti|
00005110  6f 6e 5f 74 69 6d 65 5f  74 61 62 6c 65 25 21 31  |on_time_table%!1|
00005120  30 30 3d 31 31 30 0d 25  62 24 20 20 74 72 61 6e  |00=110.%b$  tran|
00005130  73 69 74 69 6f 6e 5f 74  69 6d 65 5f 74 61 62 6c  |sition_time_tabl|
00005140  65 25 21 31 30 34 3d 31  36 30 0d 25 6c 24 20 20  |e%!104=160.%l$  |
00005150  74 72 61 6e 73 69 74 69  6f 6e 5f 74 69 6d 65 5f  |transition_time_|
00005160  74 61 62 6c 65 25 21 31  30 38 3d 31 33 30 0d 25  |table%!108=130.%|
00005170  76 22 20 20 74 72 61 6e  73 69 74 69 6f 6e 5f 74  |v"  transition_t|
00005180  69 6d 65 5f 74 61 62 6c  65 25 21 31 31 32 3d 30  |ime_table%!112=0|
00005190  0d 25 80 04 0d 25 8a 05  e1 0d 25 94 04 0d 25 9e  |.%...%....%...%.|
000051a0  17 dd 20 f2 61 64 6a 75  73 74 5f 66 6f 72 5f 68  |.. .adjust_for_h|
000051b0  69 6d 65 6d 0d 25 a8 10  20 ea 20 64 69 66 66 25  |imem.%.. . diff%|
000051c0  2c 63 74 25 0d 25 b2 17  20 64 69 66 66 25 3d 6f  |,ct%.%.. diff%=o|
000051d0  6c 64 5f 68 69 6d 65 6d  25 2d 93 0d 25 bc 16 20  |ld_himem%-..%.. |
000051e0  e3 20 63 74 25 3d 30 20  b8 20 32 33 36 20 88 20  |. ct%=0 . 236 . |
000051f0  34 0d 25 c6 32 20 70 69  63 74 75 72 65 5f 74 61  |4.%.2 picture_ta|
00005200  62 6c 65 25 21 63 74 25  3d 28 70 69 63 74 75 72  |ble%!ct%=(pictur|
00005210  65 5f 74 61 62 6c 65 25  21 63 74 25 29 2d 64 69  |e_table%!ct%)-di|
00005220  66 66 25 0d 25 d0 2c 20  69 63 6f 6e 5f 74 61 62  |ff%.%., icon_tab|
00005230  6c 65 25 21 63 74 25 3d  28 69 63 6f 6e 5f 74 61  |le%!ct%=(icon_ta|
00005240  62 6c 65 25 21 63 74 25  29 2d 64 69 66 66 25 0d  |ble%!ct%)-diff%.|
00005250  25 da 38 20 70 61 6c 65  74 74 65 5f 74 61 62 6c  |%.8 palette_tabl|
00005260  65 5f 31 32 25 21 63 74  25 3d 28 70 61 6c 65 74  |e_12%!ct%=(palet|
00005270  74 65 5f 74 61 62 6c 65  5f 31 32 25 21 63 74 25  |te_table_12%!ct%|
00005280  29 2d 64 69 66 66 25 0d  25 e4 0a 20 ed 20 63 74  |)-diff%.%.. . ct|
00005290  25 0d 25 ee 05 e1 0d 25  f8 04 0d 26 02 04 0d 26  |%.%....%...&...&|
000052a0  0c 1a dd 20 f2 73 65 74  70 61 6c 65 74 74 65 31  |... .setpalette1|
000052b0  32 28 61 64 64 72 25 29  0d 26 16 1c 6d 6f 64 65  |2(addr%).&..mode|
000052c0  31 32 5f 62 75 66 66 65  72 25 21 30 3d 61 64 64  |12_buffer%!0=add|
000052d0  72 25 21 30 0d 26 20 1c  6d 6f 64 65 31 32 5f 62  |r%!0.& .mode12_b|
000052e0  75 66 66 65 72 25 21 34  3d 61 64 64 72 25 21 34  |uffer%!4=addr%!4|
000052f0  0d 26 2a 1c 6d 6f 64 65  31 32 5f 62 75 66 66 65  |.&*.mode12_buffe|
00005300  72 25 21 38 3d 61 64 64  72 25 21 38 0d 26 34 1e  |r%!8=addr%!8.&4.|
00005310  6d 6f 64 65 31 32 5f 62  75 66 66 65 72 25 21 31  |mode12_buffer%!1|
00005320  32 3d 61 64 64 72 25 21  31 32 0d 26 3e 05 e1 0d  |2=addr%!12.&>...|
00005330  26 48 04 0d 26 52 0c dd  20 f2 66 61 64 65 72 0d  |&H..&R.. .fader.|
00005340  26 5c 13 ea 20 77 25 2c  78 6f 66 66 25 28 29 2c  |&\.. w%,xoff%(),|
00005350  6e 25 0d 26 66 10 de 20  78 6f 66 66 25 28 36 33  |n%.&f.. xoff%(63|
00005360  39 29 0d 26 70 0a 77 25  3d 36 34 30 0d 26 7a 11  |9).&p.w%=640.&z.|
00005370  e3 20 6e 25 3d 30 20 b8  20 77 25 2d 31 0d 26 84  |. n%=0 . w%-1.&.|
00005380  17 20 20 78 6f 66 66 25  28 6e 25 29 3d b3 28 77  |.  xoff%(n%)=.(w|
00005390  25 29 2d 31 0d 26 8e 08  ed 20 6e 25 0d 26 98 04  |%)-1.&... n%.&..|
000053a0  0d 26 a2 15 41 25 3d 73  63 72 65 65 6e 5f 62 75  |.&..A%=screen_bu|
000053b0  66 66 65 72 25 0d 26 ac  12 42 25 3d 73 63 72 6e  |ffer%.&..B%=scrn|
000053c0  62 61 73 65 5f 30 25 0d  26 b6 06 c8 96 0d 26 c0  |base_0%.&.....&.|
000053d0  20 d6 20 66 61 64 65 72  25 2c 78 6f 66 66 25 28  | . fader%,xoff%(|
000053e0  29 2c 62 6c 6f 63 6b 5f  6e 6f 25 28 29 0d 26 ca  |),block_no%().&.|
000053f0  05 e1 0d ff                                       |....|
000053f4