!� > <Sequencer$Dir>.Sequencer
� � �0:�$;" at line ";�:�
	�init
(� � �error
20� file$<>"" � A$=file$:file$="":�animate(A$)
<� source$<>"" �
F$�("LOAD "+source$+" "+�~(text%))
PGș "OS_File",5,source$ � ,,,,ln%:?(text%+ln%)=10:?(text%+ln%+1)=255
Zsource$=""
d�compile_file
n�
x�
�?� PRINTTAB(0,0)(FNwindow+MB/10);"  ";MH;"     ";MW;"      "
�
finish%=�
�Ȏ (�window+MB/10) �
�	� 0.1
�I%=0
��
�S%=I%+1:I%=�path$,".",S%)
�
� I%=0
�path$=�path$,S%-2)
��update_directory
�%� 0.4:�insert_text(path$):�butoff
�F� 1.4:� drive(MH)<>-1 � path$=�d_name(drive(MH)):�update_directory
�^� 2.4:� directory$(dir_pos%+MH)<>"" � path$+="."+directory$(dir_pos%+MH):�update_directory

d� 3.1:� sprite$(spr_pos%+MH)<>"" � �insert_text("*PlotFile "+sprite$(spr_pos%+MH)+�(13)):�butoff

n� 3.4:� sprite$(spr_pos%+MH)<>"" � �insert_text("*PlotFile "+path$+"."+sprite$(spr_pos%+MH)+�(13)):�butoff

&� 4.4:� source$(sou_pos%+MH)<>"" �

";�("LOAD "+path$+"."+source$(sou_pos%+MH)+" "+�~(text%))

,^ș "OS_File",5,path$+"."+source$(sou_pos%+MH) � ,,,,ln%:?(text%+ln%)=10:?(text%+ln%+1)=255

60xpos%=0:ypos%=0:xcur%=0:ycur%=0:�update_text

@�

JO� 5.4:� object$(obj_pos%+MH)<>"" � �animate(path$+"."+object$(obj_pos%+MH))

T� 7.4:�"DIR "+path$

^A%=0:� find_text

hf$=$!out

r/� f$="" � � 99,"Bad or Missing incore name"

|� end_of_file

�*�"SAVE "+f$+" "+�~(text%)+" "+�~(!out)

��"SETTYPE "+f$+" "+�~(stp%)

��update_directory

�� 8.4:finish%=�

�-� 9.4:�insert_text("Frame"+�(13)):�butoff

�� 10.4:�oscli

�� 11.4:�compile_file

�-� 13.4,14.4,15.4,16.4,17.4,18.4,19.4,20.4

�Ȏ (�window+MB/10) �

�C� 13.4:� directory$(dir_pos%+19)<>"" � dir_pos%+=18:�update_dir

�2� 14.4:� dir_pos%>0 � dir_pos%-=18:�update_dir

�@� 15.4:� sprite$(spr_pos%+19)<>"" � spr_pos%+=18:�update_spr

�2� 16.4:� spr_pos%>0 � spr_pos%-=18:�update_spr
>� 17.4:� source$(sou_pos%+8)<>"" � sou_pos%+=7:�update_sou
1� 18.4:� sou_pos%>0 � sou_pos%-=7:�update_sou
>� 19.4:� object$(obj_pos%+9)<>"" � obj_pos%+=8:�update_obj
&1� 20.4:� obj_pos%>0 � obj_pos%-=8:�update_obj
0�
:�butoff
D�
NI%=�(0)
XȎ I% �
b� 136,137,138,139:
l
� �(-2) �
vȎ I% �
�� 136:xcur%=0
�� 137:xcur%=-1:ycur%+=1
�)� 138:� last_line:ycur%=!out:xcur%=-1
�� 139:ycur%=0:xcur%=0
��
��
�Ȏ I% �
�� 136:xcur%+=xcur%>0
�� 137:xcur%-=xcur%<255
�� 138:ycur%-=ycur%<1024
�� 139:ycur%+=ycur%>0
��
��
�update_text
�
4� (I%>31 � I%<127) � I%=13 � �insert_text(�(I%))
 D� I%=127 � A%=xcur%:B%=ycur%:� delete_char:xcur%-=1:�update_text
*B� I%=21 � A%=xcur%:B%=ycur%:� delete_line:xcur%=0:�update_text
4
� finish%
>*FX4
H� 12
R�
\
f��oscli
p� �
z�0
�*FX4
�*POINTER 0
�
� � � �$
��
��
�
�"*"deal$
�
�deal$
�� deal$=""
��
��update_text
�� �
�
*FX4,1
��restore_screen
�

��butoff
$�:ȗX,Y,B:� B=0
.�
8
B��insert_text(t$)
L
$b%=t$
VA%=ycur%:� find_text
`V� !out=-1 � l%=xcur%+�(t$) � � xcur%>�($!out) � l%=xcur%+�(t$) � l%=�($!out)+�(t$)
j� l%>254 � �7:�
t$A%=xcur%:B%=ycur%:C%=b%:D%=�(t$)
~� insert_char
�-xcur%+=D%:� ��t$,1)=13 � ycur%+=1:xcur%=0
��update_text
��
�
�� �animate(obj_file$)
�� �
�	mc%=�
�� � � �compile_error:�
��load_object
��
�� decompact
�� �
�restore_screen

�

��load_object
(� 0
2�"Com_Open "+obj_file$
<	mc%=�
F�"PlotFile $"
P�
Zcb%=buffer%
d�
n�"Com_UnStream $ &"+�~(cb%)
xframe%=!cb%
�cb%+=!(cb%+4)
�� frame%=-1
�*Com_Close
�
!frame=-1
�!mode=�
�*Com_Remember
��
�
���compile_error
�� 7
��#0
�� mc% � �restore_screen
�7ycur%=A%:xcur%=0:xpos%=0:ypos%=ycur%-4:�update_text
� 128+15 Ȝ 128
� �=17 � � �DJF
�clearwindow(0)
""�$;" at macro line ";ycur%+1;
,�:ȗ X,Y,B:� B=0
6�:ȗ X,Y,B:� B>0 � �(0)<>""
@�:ȗ X,Y,B:� B=0
J� 138 Ȝ 192
T�clearwindow(0)
^
�path$
h� 26
r�
|
���compile_file
�� �
�	mc%=�
�� � � �compile_error:� �:�
�%line%=2:� last_line:lines%=!out-1
�UA%=1:� find_text:� !out=-1 � � 99,"File To Small or Not There!" � obj_file$=$!out
�CA%=2:� find_text:� !out=-1 � � 99,"File To Small or Not There!"
�[� $!out<>"13" � $!out<>"15" � � 99,"Wrong Mode Setting for Sequencing" � mode%=�($!out)
�4� mode%:mc%=�:bk%=�:bd%=�:frame%=0:prin%=�:sd%=�
�!mode=mode%
��
�/� �sort(obj_file$)="SEQUENCE" � �sequence:�
�� line%=3 � lines%
NA%=line%:� find_text:� !out=-1 � � 99,"File Mismatch" � deal$=�sort($!out)
Ȏ deal$ �
� ""
&� �(13)
0� �(255)
:!� "SWAPDISC","SWAPDISK":sd%=�
D"� "BACKGROUND":bk%=line%:bd%=�
N� "PRINT":prin%=�
X� "FRAME":� bd%>0 �
bline%=bd%:bd%=�
l�
v!� frame% � �register_frame(0)
�
frame%+=1
�
� !mode:�
�� bk% � bd%=line%:line%=bk%
��
�) � 99,"Unknown File Make Up Command"
��
��
��
��register_frame(1)
�dA%=1:� find_text:� !out=-1 � � 99,"File Mismatch" � �"SETPOSITION 0 1023":�"PlotFile "+obj_file$
� frame%=-1:�register_frame(2)
� �"SETTYPE "+obj_file$+" D7D"
��restore_screen
	*FX15
�

 ��sequence
*object_intact%=�
4delay%=0
>� line%=3 � lines%
HNA%=line%:� find_text:� !out=-1 � � 99,"File Mismatch" � deal$=�sort($!out)
RB� �deal$,4)="LOAD" � obj_file$=�deal$,5):�load_object:deal$=""
\2� �deal$,4)="MODE" � � �(�deal$,5)):�:deal$=""
f6� �deal$,4)="GOTO" � line%=�(�deal$,5))-2:deal$=""
p6� �deal$,5)="DELAY" � delay%=�(�deal$,6)):deal$=""
z3� �deal$,4)="WAIT" � I=�(�(�deal$,5))):deal$=""
�� �deal$,7)="ANIMATE" �
�*Com_Check
�loop%=�(�deal$,8))
�� loop%>-1 �
�� R=1 � loop%
�� decompact
�ȗ MX,MY,MB
�I=�(delay%)
�� I>-1 � MB>0 � R=loop%
��
��
��butoff
��
	� decompact
	I=�(delay%)
	ȗ MX,MY,MB
	$� I>-1 � MB>0
	.�
	8deal$=""
	B�
	LȎ deal$ �
	V� ""
	`� �(13)
	j� �(10)
	t� �(255)
	~� "KEYPRESS"
	��butoff
	��
	�ȗ MX,MY,MB
	�� �(0)<>-1 � MB>0
	�% � 99,"Unknown Sequence Command"
	��
	��
	��restore_screen
	�	*FX15
	��
	�
	�ݤsort(in$)
(I%=�in$,"~"):� I%>0 � in$=�in$,I%-1)


ndeal$=""
� R%=1 � �(in$)
A=��in$,R%,1)
(� A>96 � A<123 � A-=32
2ndeal$+=�(A)
<$� �(ndeal$)=1 � A=32 � ndeal$=""
F�
P� �ndeal$,1,1)="*" �
Z!� bd% � �definebuffer:�ndeal$
d:=""
n�
xdeal$=""
�� R%=1 � �(ndeal$)
�A=��ndeal$,R%,1)
�� A>32 � deal$+=�(A)
��
�
=deal$
�
�� �startload(F$)
�handle%=�(obj_file$)
��#handle%=0
�)ș "OS_GBPB",4,handle%,b%,4 � ,,,,Pt%
�
size%=!b%
��#handle%=0
�2ș "OS_GBPB",4,handle%,buffer%,size% � ,,,,Pt%
�#handle%=Pt%
*SETPOSITION 0 1023
*PLOTSPRITE
"�
,
6
��disc(l)
@� � sd% � �
J
� l=2 � �
T� 7
^-�0,0)"                                 "
h(�"         DISC CHANGE             "
r�" Please insert ";
|
Ȏ l �
�� 0:�"SOURCE file disk  "
�� 1:�"OBJECT file disk  "
�� 2:�"SEQUENCER disk    "
��
�(�"                                 "
�(�"    Then press the SPACE BAR     "
�(�"                                 "
��
�
� �=32
��
�
�
�� �register_frame(dpr%)
� frame%=1 �
�definebuffer
�update_compare
&�disc(1)
0�reset_page
:�"Com_Open "+obj_file$
D*Com_Save $ 0 0 1279 1023 0
N�update_compare
Xtotal%=0:sprite%=0
b� dpr%<>1 � �disc(dpr%)
l�
v�
�
!mode=�:�
�� compare_screen
��update_compare
�
� prin% �
�� 2
��0,20)"Sprite ";sprite%
�s%=&14000-&14000*(!mode=15)
��"Size is ";s%;" bytes"
��"Bytes used ";!count
� �"Compaction ";!count/s%*100
��" "
�� 3
��

total%+=!count:sprite%+=1

� dpr%<>2 � �disc(1)

!(buffer%+&28000)=frame%

 !(buffer%+&28004)=!count+8

*#ad$=�~(buffer%+&28000):�"&";ad$

4�reset_page

>/A$="Com_Stream $ &"+ad$+" "+�(!count+8):�A$

H�update_compare

Rl� frame%=-1 � �"Total in bytes ";total%:�"This needs to be under ";bsize%;" to run.   Press any key":A=�

\� dpr%<>1 � �disc(dpr%)

f�

p

z� �restore_screen

�� A%

��display

��update_text

��update_drives

��update_directory

�	mc%=�

��

�

���definebuffer

�� �

�� � � � �:�

�*� "DefineBuffer "+�(buffer%)+" &28000"

�� "DefineBack "+�(buffer%)

�	� �:�


��display
�15:�:*POINTER
$� "Com_Memory "+�(screen%)
.*SETPOSITION 0 1023
8� 19,0,24,11*16,11*16,3*16
B*PlotFile @
L� 138 Ȝ 192
V� 0 Ȝ 0
`�
j
t� �init
~
� 15:�
�*POINTER
�
*FX4,1
�
*FX229
�,� 23,255,&88,&22,&88,&22,&88,&22,&88,&22
�max_windows%=21
�
stp%=&D2B
�%� b% 512,text% 2048,screen% 18662
�Q� wlx%(max_windows%),wby%(max_windows%),wrx%(max_windows%),wty%(max_windows%)
�E� drive(8),directory$(255),sprite$(255),source$(255),object$(255)
�bsize%=(�-�)-36*1024
�� buffer% bsize%
�3�"LOAD <Sequencer$Dir>.TitlScreen "+�~(screen%)
text%?0=10

text%?1=&FF
xpos%=0
ypos%=0
(xcur%=0
2ycur%=0
<� 23,9,76,8
F� 23,19,31,12
P� 35,30,46,12
Z� 50,30,61,12
d� 65,19,76,12
n� 65,30,76,22
x� 2,30,31,22
�� 2,17,10,16   :REM SAVE
�� 12,17,20,16  :REM FINISH
�� 2,15,10,14   :REM FRAME
�� 12,15,20,14  :REM - * -
�� 2,13,20,12   :REM GO
�.� 2,13,20,12  :REM;reserved for sixth icon
�#� 35,11,36,11 :REM;scroll icons
�� 45,11,46,11
�� 50,11,51,11
�� 60,11,61,11
�� 65,11,66,11
�� 75,11,76,11
�� 65,21,66,21
� 75,21,76,21
� 2,19,20,19

"� w%=0 � max_windows%
,)� wlx%(w%),wby%(w%),wrx%(w%),wty%(w%)
6�
@
J
�assemble
Tfile$=""
^source$=""
h� �
r$� � � file$="":source$="":� �dtP
|�15
�ș "OS_GetEnv" � r0,r1,r2
�	A$=""
�&� ?r0<>0 � A$+=�(?r0):r0+=1:� �tZP
�-� �A$," ")<>0 � A$=�A$,�A$," ")+1):� �tdP
�� A$<>"" �
� ș "OS_File",5,A$ � r0,r1,r2
�� r0=1 �
�F� ((r2 � &FFF00000)=&FFF00000) � ((r2 � &FFF00)=&D7D00) � file$=A$
�H� ((r2 � &FFF00000)=&FFF00000) � ((r2 � &FFF00)=&D2B00) � source$=A$
��
��
�� �
�$� file$<>"" � source$<>"" � � 21
&� file$="" � source$="" � �display
�update_drives
path$=�d_name(dr%)
&�update_directory
0�update_text
:� 6
D�
N
Xݤd_name(dr%)
b�"DIR :"+�(dr%)
lș "OS_GBPB",5,,b%
vn$="":� R=1 � ?b%
�n$+=�(?(b%+R)):�
��n$=""��n$<33n$=�dr%
�="adfs::"+n$+".$"
�
���update_directory
�dir_pos%=0
�spr_pos%=0
�sou_pos%=0
�obj_pos%=0
�
maxdir%=0
�
maxspr%=0
�
maxsou%=0
�
maxobj%=0
read%=0
�
@  ș "OS_GBPB",10,path$+�(0),b%,1,read%,1024,"*" � ,,,,read%
   � read%>-1 �
*    load%=b%!0
4)    � (load% � &FFF00000)=&FFF00000 �
>      name$="":c%=0
H      �
R"        name$+=�(?(b%+c%+&14))
\        c%+=1
f>      � ?(b%+c%+&14)=0 � ?(b%+c%+&14)=13 � ?(b%+c%+&14)=10
p      � name$+=CHR$(13)
z      � !(b%+&10)=1 �
�$        Ȏ (load% � &FFF00)>>8 �
�5         � &D7F:sprite$(maxspr%)=name$:maxspr%+=1
�5         � stp%:source$(maxsou%)=name$:maxsou%+=1
�5         � &D7D:object$(maxobj%)=name$:maxobj%+=1
�
        �
�      �
�>      � !(b%+&10)=2 � directory$(maxdir%)=name$:maxdir%+=1
�	    �
�  �
�� read%=-1
�
�*� R%=maxdir% � 255:directory$(R%)="":�
�'� R%=maxspr% � 255:sprite$(R%)="":�
'� R%=maxsou% � 255:source$(R%)="":�
'� R%=maxobj% � 255:object$(R%)="":�
�clearwindow(0)
$
�path$
.�update_dir
8�update_spr
B�update_sou
L�update_obj
V�
`
j��update_dir
t�clearwindow(2)
~� R%=0 � 18
��directory$(dir_pos%+R%);
�� R%<18 � �(13)
��
��
�
���update_spr
��clearwindow(3)
�� R%=0 � 18
��sprite$(spr_pos%+R%);
�� R%<18 � �(13)
��
��


��update_sou
�clearwindow(4)
� R%=0 � 7
(�source$(sou_pos%+R%);
2� R%<7 � �(13)
<�
F�
P
Z��update_obj
d�clearwindow(5)
n� R%=0 � 8
x�object$(obj_pos%+R%);
�� R%<8 � �(13)
��
��
�
���update_text
�*� 28,wlx%(6),wby%(6),wrx%(6)+1,wty%(6)
��0,0);
�� xcur%<0 �
�� ycur%=0 �
�xcur%=0
��
�Fycur%-=1:A%=ycur%:� find_text:� !out=-1 � xcur%=0 � xcur%=�($!out)
��
�
#� xcur%-4<xpos% � xpos%=xcur%-4
%� xcur%>xpos%+29 � xpos%=xcur%-29
"#� ycur%-2<ypos% � ypos%=ycur%-2
,#� ycur%>ypos%+8 � ypos%=ycur%-8
6� xpos%<0 � xpos%=0
@� ypos%<0 � ypos%=0
JA%=xpos%:B%=ypos%
T� printtext
^� 3,63 Ȝ 192
h<ȓ Ȑ 16+(xcur%-xpos%+1)*16,320-(ycur%-ypos%+1)*32,15,31
r�clearwindow(21)
|��(ycur%+1);
��10,0)�(xcur%+1);
��
�
���update_drives
�� R=0 � 7:drive(R)=-1:�
�maxdrives%=0
��clearwindow(1)
�"ș "ADFS_Drives" � dr%,fl%,hd%
�
� fl%>0 �
�� R%=1 � fl%
��"Drive :";�(R%-1)
�(drive(maxdrives%)=R%-1:maxdrives%+=1
��
�

� hd%>0 �
� R%=1 � hd%
&�"Drive :";�(R%+3)
0(drive(maxdrives%)=R%+3:maxdrives%+=1
:�
D�
N�
X
b� �clearwindow(w%)
l,� 28,wlx%(w%),wby%(w%),wrx%(w%),wty%(w%)
v�
�7� w%=6 � � 28,wlx%(w%),wby%(w%),wrx%(w%)+1,wty%(w%)
��
�
�
� �window
�8� returns the handle of the window under the pointer
�w%=0
�ȗ MX,MY,MB
�CX=MX � 16
�CY=(1023-MY)�32
��
�c� CX>=wlx%(w%) � CY<=wby%(w%) � CX<=wrx%(w%) � CY>=wty%(w%) � MH=CY-wty%(w%):MW=CX-wlx%(w%):=w%
�	w%+=1
�� w%=max_windows%+1
MH=-1:MW=-1:=-1

��error
 � �=17 � �
*� 128+15 Ȝ 128
4�clearwindow(0)
>�$;" at line ";�;
H�:ȗ X,Y,B:� B=0
R�:ȗ X,Y,B:� B>0 � �(0)<>""
\�:ȗ X,Y,B:� B=0
f� 138 Ȝ 192
p�clearwindow(0)
z
�path$
��
�
���assemble
��code%4000
��PASS=0 � 2 �2
�P%=code%
�[OPTPASS
�.count:EQUD 0
�.mode :EQUD 0
�.buff :EQUD buffer%
�.fscr :EQUD 148
�      :EQUD -1
�.scrad:EQUD 0

;---SEQUENCING UTILS---

$.update_compare
.;must be called FIRST
8ADR R0,fscr
BADR R1,scrad
LSWI "OS_ReadVduVariables"
VLDR R0,scrad
`LDR R1,mode
jCMP R1,#15:�Q R1,#&28000/4
t!          :MOVNE R1,#&14000/4
~LDR R2,buff
�.l1
�!LDR R3,[R0],#4:STR R3,[R2],#4
�SUBS R1,R1,#1:BNE l1
�MOV PC,R14
�
�.reset_page
�ADR R0,fscr
�ADR R1,scrad
�SWI "OS_ReadVduVariables"
�LDR R0,scrad
�LDR R1,mode
�CMP R1,#15:�Q R1,#&28000/4
!          :MOVNE R1,#&14000/4

LDR R2,buff
.l1
!LDR R3,[R2],#4:STR R3,[R0],#4
(SUBS R1,R1,#1:BNE l1
2MOV PC,R14
<
F.compare_screen
PSTMFD R13!,{R8-R12}
ZLDR R0,scrad
d!LDR R7,buff:ADD R7,R7,#&28000
n)            ADD R7,R7,#8 ;header info
xLDR R1,mode
�>CMP R1,#15:�Q R1,#&28000/4:ADDEQ R8,R7,#&1400:�Q R6,#&1400
�C          :MOVNE R1,#&14000/4:ADDNE R8,R7,#&A00 :MOVNE R6,#&A00
�LDR R2,buff
�MOV R9,#32:MOV R10,#0
�.l1
�LDR R3,[R0],#4
�LDR R4,[R2],#4
�
MOV R5,#0
�MOV R10,R10,LSL#1
�"CMP R3,R4:  ;STREQ R5,[R0,#-4]
�          STRNE R3,[R2,#-4]
�          STRNE R3,[R8],#4
�          ADDNE R6,R6,#4
          �RNE R10,R10,#1
6SUB R9,R9,#1:CMP R9,#0:�Q R9,#32:STREQ R10,[R7],#4
SUBS R1,R1,#1:BNE l1
";LDR R6,buff
,;SUB R6,R8,R6
6STR R6,count
@LDMFD R13!,{R8-R12}
JMOV PC,R14
T
^.posit :EQUD 0
h.frame :EQUD 0
r
|.decompact
�STMFD R13!,{R8-R12}
�ADR R0,fscr
�ADR R1,scrad
�SWI "OS_ReadVduVariables"
�LDR R0,scrad
�LDR R7,posit
�7LDR R3,frame:CMN R3,#1:LDREQ R7,buff:STREQ R7,posit
�LDR R0,[R7,#0]:STR R0,frame
�,LDR R0,[R7,#4]:ADD R0,R0,R7:STR R0,posit
�ADD R7,R7,#8
�LDR R0,scrad
�LDR R1,mode
�1CMP R1,#15:�Q R1,#&28000/4:ADDEQ R8,R7,#&1400
3          :MOVNE R1,#&14000/4:ADDNE R8,R7,#&A00
MOV R9,#32
LDR R10,[R7],#4
&.l1
0� R11,R10,#&80000000
:MOV R10,R10,LSL#1
DCMP R11,#0
NLDRNE R4,[R8],#4
XSTRNE R4,[R0]
b;ADDNE R3,R3,#4
lADD R0,R0,#4
v6SUB R9,R9,#1:CMP R9,#0:�Q R9,#32:LDREQ R10,[R7],#4
�SUBS R1,R1,#1:BNE l1
�;LDR R4,buff
�;SUB R3,R8,R4
�;STR R3,curent
�LDMFD R13!,{R8-R12}
�MOV PC,R14
�
�
�;---TEXT UTILS----
�
�.text :EQUD text%
�.out  :EQUD 0
�
.printtext
;r0=chacters across
;r1=lines down
 LDR R2,text
*CMP R1,#0:BEQ found
4.l1
>8LDRB R3,[R2],#1:CMP R3,#&FF:SUBEQ R2,R2,#1:BEQ found
HCMP R3,#10
RSUBEQS R1,R1,#1
\
BNE l1
f
.found
pMOV R1,#9   ;size in lines
z
MOV R5,R0
�
.lineloop
�
MOV R4,R5
�
MOV R6,#0
�CMP R4,#0:BEQ found2
�.l1
�8LDRB R3,[R2],#1:CMP R3,#&FF:SUBEQ R2,R2,#1:�Q R3,#10
�#CMP R3,#10:BEQ nothing_to_print
�SUBS R4,R4,#1
�
BNE l1
�.found2
�.l1
�LDRB R3,[R2],#1
�(CMP R3,#&FF:SUBEQ R2,R2,#1:�Q R3,#10
.nothing_to_print
%CMP R6,#30    ;size in characters
%MOVLT R0,R3:�Q R0,#13:MOVGT R0,#0
$#CMP R1,#1:CMPEQ R0,#10:�Q R0,#0
.CMP R0,#10:SWINE 0
8ADD R6,R6,#1
BCMP R3,#10:BNE l1
LMOV R0,#255
V.l1
`CMP R6,#30:SWILE 0
jADD R6,R6,#1
tCMP R6,#30:BLE l1
~"CMP R1,#1:MOVNE R0,#13:SWINE 0
�"          MOVNE R0,#10:SWINE 0
�SUBS R1,R1,#1:BNE lineloop
�MOV PC,R14
�
�.insert_char
�;r0=xpos
�;r1=ypos
�;r2=pointer to string
�;r3=string length
�LDR R4,text
�CMP R1,#0:BEQ found3
�.l1
(LDRB R7,[R4],#1:CMP R7,#&FF:BEQ ins1

CMP R7,#10
SUBEQS R1,R1,#1

BNE l1
(.found3
2CMP R0,#0:BEQ found4
<(LDRB R7,[R4],#1:CMP R7,#&FF:BEQ ins2
F(                CMP R7,#10 :BEQ ins2
PSUBS R0,R0,#1:BNE found3
Z.found4
d
MOV R5,R4
n.l1
xLDRB R7,[R5],#1
�CMP R7,#&FF:BNE l1
�.l1
�LDRB R7,[R5]
�STRB R7,[R5,R3]
�SUB R5,R5,#1
�CMP R5,R4:BGE l1
�ADD R5,R5,#1
�.l1
�LDRB R7,[R2],#1
�CMP R7,#13:�Q R7,#10
�STRB R7,[R5],#1
�SUBS R3,R3,#1:BNE l1
�ADD R5,R5,#1
LDRB R2,[R5]
CMP R2,#&FF:�Q R2,#10
!            STREQB R2,[R5],#1
"            �Q R2,#&FF
,!            STREQB R2,[R5],#1
6MOV PC,R14
@
J	.ins2
TSUB R4,R4,#1
^ADD R0,R0,R3
h
MOV R5,R4
r.l1
|LDRB R7,[R5],#1
�CMP R7,#&FF:BNE l1
�.l1
�LDRB R7,[R5]
�STRB R7,[R5,R0]
�SUB R5,R5,#1
�CMP R5,R4:BGE l1
�MOV R6,#32
�.l1
�STRB R6,[R4],#1
�SUBS R0,R0,#1:BNE l1
�SUB R4,R4,R3
�.l1
�LDRB R7,[R2],#1
 CMP R7,#13:�Q R7,#10
 STRB R7,[R4],#1
 SUBS R3,R3,#1:BNE l1
 &ADD R4,R4,#1
 0LDRB R2,[R4]
 :CMP R2,#&FF:�Q R2,#10
 D!            STREQB R2,[R4],#1
 N            �Q R2,#&FF
 X!            STREQB R2,[R4],#1
 bMOV PC,R14
 l
 v	.ins1
 �SUB R4,R4,#1
 �ADD R1,R1,#1
 �MOV R7,#10
 �.l1
 �STRB R7,[R4],#1
 �SUBS R1,R1,#1:BNE l1
 � MOV R7,#&FF:STRB R7,[R4],#-1
 �B found3
 �
 �.delete_char
 �;r0=xpos
 �;r1=ypos
 �LDR R4,text
!#CMP R1,#0:CMPEQ R0,#0:�Q PC,R14
!CMP R1,#0:BEQ found6
!.l1
! )LDRB R3,[R4],#1:CMP R3,#&FF:�Q PC,R14
!*CMP R3,#10
!4SUBEQS R1,R1,#1
!>
BNE l1
!H.found6
!RCMP R0,#0:BEQ found7
!\)LDRB R3,[R4],#1:CMP R3,#&FF:�Q PC,R14
!f)                CMP R3,#10 :�Q PC,R14
!pSUBS R0,R0,#1:BNE found6
!z.found7
!�LDRB R6,[R4,#-1]:CMP R6,#10
!�*LDREQB R6,[R4]:CMPEQ R6,#&FF:�Q PC,R14
!�
MOV R5,R4
!�.l1
!�LDRB R3,[R5],#1
!�CMP R3,#&FF:BNE l1
!�SUB R4,R4,#1
!�.l1
!�LDRB R3,[R4,#1]
!�STRB R3,[R4],#1
!�CMP R4,R5:BLE l1
!�MOV PC,R14
!�
".delete_line
";r0=xpos
";r1=ypos
"$LDR R4,text
".CMP R1,#0:BEQ found8
"8.l1
"B)LDRB R3,[R4],#1:CMP R3,#&FF:�Q PC,R14
"LCMP R3,#10
"VSUBEQS R1,R1,#1
"`
BNE l1
"j.found8
"tADD R5,R4,#1
"~.l1
"�LDRB R3,[R5],#1
"�CMP R3,#10:BNE l1
"�.found9
"�LDRB R6,[R5,#-1]:CMP R6,#10
"�*LDREQB R0,[R5]:CMPEQ R6,#&FF:�Q PC,R14
"�SUB R5,R5,#1
"�.l1
"�LDRB R3,[R5],#1
"�STRB R3,[R4],#1
"�CMP R3,#&FF:BNE l1
"�MOV PC,R14
"�
#.last_line
#
LDR R0,text
#
MOV R1,#0
#.l1
#(LDRB R2,[R0],#1
#2CMP R2,#10:ADDEQ R1,R1,#1
#<CMP R2,#&FF:BNE l1
#FSTR R1,out
#PMOV PC,R14
#Z
#d.end_of_file
#nLDR R0,text
#x.l1
#�LDRB R2,[R0],#1
#�CMP R2,#&FF:BNE l1
#�SUB R0,R0,#2:STR R0,out
#�MOV PC,R14
#�
#�.find_text
#�LDR R4,text
#�CMP R0,#0:BEQ found10
#�.l1
#�BLDRB R3,[R4],#1:CMP R3,#&FF:MVNEQ R0,#0:STREQ R0,out:�Q PC,R14
#�CMP R3,#10
#�SUBEQS R0,R0,#1
#�
BNE l1
$.found10
$ADR R2,txt_buffer
$.l1
$"LDRB R3,[R4],#1
$,STRB R3,[R2],#1
$6#CMP R3,#10:CMPNE R3,#&FF:BNE l1
$@MOV R3,#13
$JSTRB R3,[R2,#-1]
$TADR R2,txt_buffer
$^STR R2,out
$hMOV PC,R14
$r
$|.txt_buffer
$�EQUS �255," ")
$�
$�]�
$��
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 53 65 71 75 65 6e 63  |...!. > <Sequenc|
00000010  65 72 24 44 69 72 3e 2e  53 65 71 75 65 6e 63 65  |er$Dir>.Sequence|
00000020  72 0d 00 14 1e ee 20 85  20 eb 30 3a f1 f6 24 3b  |r..... . .0:..$;|
00000030  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000040  00 1e 09 f2 69 6e 69 74  0d 00 28 0e ee 20 85 20  |....init..(.. . |
00000050  f2 65 72 72 6f 72 0d 00  32 30 e7 20 66 69 6c 65  |.error..20. file|
00000060  24 3c 3e 22 22 20 8c 20  41 24 3d 66 69 6c 65 24  |$<>"" . A$=file$|
00000070  3a 66 69 6c 65 24 3d 22  22 3a f2 61 6e 69 6d 61  |:file$="":.anima|
00000080  74 65 28 41 24 29 0d 00  3c 13 e7 20 73 6f 75 72  |te(A$)..<.. sour|
00000090  63 65 24 3c 3e 22 22 20  8c 0d 00 46 24 ff 28 22  |ce$<>"" ...F$.("|
000000a0  4c 4f 41 44 20 22 2b 73  6f 75 72 63 65 24 2b 22  |LOAD "+source$+"|
000000b0  20 22 2b c3 7e 28 74 65  78 74 25 29 29 0d 00 50  | "+.~(text%))..P|
000000c0  47 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |G.. "OS_File",5,|
000000d0  73 6f 75 72 63 65 24 20  b8 20 2c 2c 2c 2c 6c 6e  |source$ . ,,,,ln|
000000e0  25 3a 3f 28 74 65 78 74  25 2b 6c 6e 25 29 3d 31  |%:?(text%+ln%)=1|
000000f0  30 3a 3f 28 74 65 78 74  25 2b 6c 6e 25 2b 31 29  |0:?(text%+ln%+1)|
00000100  3d 32 35 35 0d 00 5a 0e  73 6f 75 72 63 65 24 3d  |=255..Z.source$=|
00000110  22 22 0d 00 64 11 f2 63  6f 6d 70 69 6c 65 5f 66  |""..d..compile_f|
00000120  69 6c 65 0d 00 6e 05 cd  0d 00 78 05 f5 0d 00 82  |ile..n....x.....|
00000130  3f f4 20 50 52 49 4e 54  54 41 42 28 30 2c 30 29  |?. PRINTTAB(0,0)|
00000140  28 46 4e 77 69 6e 64 6f  77 2b 4d 42 2f 31 30 29  |(FNwindow+MB/10)|
00000150  3b 22 20 20 22 3b 4d 48  3b 22 20 20 20 20 20 22  |;"  ";MH;"     "|
00000160  3b 4d 57 3b 22 20 20 20  20 20 20 22 0d 00 8c 0d  |;MW;"      "....|
00000170  66 69 6e 69 73 68 25 3d  a3 0d 00 96 18 c8 8e 20  |finish%=....... |
00000180  28 a4 77 69 6e 64 6f 77  2b 4d 42 2f 31 30 29 20  |(.window+MB/10) |
00000190  ca 0d 00 a0 09 c9 20 30  2e 31 0d 00 aa 08 49 25  |...... 0.1....I%|
000001a0  3d 30 0d 00 b4 05 f5 0d  00 be 1d 53 25 3d 49 25  |=0.........S%=I%|
000001b0  2b 31 3a 49 25 3d a7 70  61 74 68 24 2c 22 2e 22  |+1:I%=.path$,"."|
000001c0  2c 53 25 29 0d 00 c8 0a  fd 20 49 25 3d 30 0d 00  |,S%)..... I%=0..|
000001d0  d2 16 70 61 74 68 24 3d  c0 70 61 74 68 24 2c 53  |..path$=.path$,S|
000001e0  25 2d 32 29 0d 00 dc 15  f2 75 70 64 61 74 65 5f  |%-2).....update_|
000001f0  64 69 72 65 63 74 6f 72  79 0d 00 e6 25 c9 20 30  |directory...%. 0|
00000200  2e 34 3a f2 69 6e 73 65  72 74 5f 74 65 78 74 28  |.4:.insert_text(|
00000210  70 61 74 68 24 29 3a f2  62 75 74 6f 66 66 0d 00  |path$):.butoff..|
00000220  f0 46 c9 20 31 2e 34 3a  e7 20 64 72 69 76 65 28  |.F. 1.4:. drive(|
00000230  4d 48 29 3c 3e 2d 31 20  8c 20 70 61 74 68 24 3d  |MH)<>-1 . path$=|
00000240  a4 64 5f 6e 61 6d 65 28  64 72 69 76 65 28 4d 48  |.d_name(drive(MH|
00000250  29 29 3a f2 75 70 64 61  74 65 5f 64 69 72 65 63  |)):.update_direc|
00000260  74 6f 72 79 0d 00 fa 5e  c9 20 32 2e 34 3a e7 20  |tory...^. 2.4:. |
00000270  64 69 72 65 63 74 6f 72  79 24 28 64 69 72 5f 70  |directory$(dir_p|
00000280  6f 73 25 2b 4d 48 29 3c  3e 22 22 20 8c 20 70 61  |os%+MH)<>"" . pa|
00000290  74 68 24 2b 3d 22 2e 22  2b 64 69 72 65 63 74 6f  |th$+="."+directo|
000002a0  72 79 24 28 64 69 72 5f  70 6f 73 25 2b 4d 48 29  |ry$(dir_pos%+MH)|
000002b0  3a f2 75 70 64 61 74 65  5f 64 69 72 65 63 74 6f  |:.update_directo|
000002c0  72 79 0d 01 04 64 c9 20  33 2e 31 3a e7 20 73 70  |ry...d. 3.1:. sp|
000002d0  72 69 74 65 24 28 73 70  72 5f 70 6f 73 25 2b 4d  |rite$(spr_pos%+M|
000002e0  48 29 3c 3e 22 22 20 8c  20 f2 69 6e 73 65 72 74  |H)<>"" . .insert|
000002f0  5f 74 65 78 74 28 22 2a  50 6c 6f 74 46 69 6c 65  |_text("*PlotFile|
00000300  20 22 2b 73 70 72 69 74  65 24 28 73 70 72 5f 70  | "+sprite$(spr_p|
00000310  6f 73 25 2b 4d 48 29 2b  bd 28 31 33 29 29 3a f2  |os%+MH)+.(13)):.|
00000320  62 75 74 6f 66 66 0d 01  0e 6e c9 20 33 2e 34 3a  |butoff...n. 3.4:|
00000330  e7 20 73 70 72 69 74 65  24 28 73 70 72 5f 70 6f  |. sprite$(spr_po|
00000340  73 25 2b 4d 48 29 3c 3e  22 22 20 8c 20 f2 69 6e  |s%+MH)<>"" . .in|
00000350  73 65 72 74 5f 74 65 78  74 28 22 2a 50 6c 6f 74  |sert_text("*Plot|
00000360  46 69 6c 65 20 22 2b 70  61 74 68 24 2b 22 2e 22  |File "+path$+"."|
00000370  2b 73 70 72 69 74 65 24  28 73 70 72 5f 70 6f 73  |+sprite$(spr_pos|
00000380  25 2b 4d 48 29 2b bd 28  31 33 29 29 3a f2 62 75  |%+MH)+.(13)):.bu|
00000390  74 6f 66 66 0d 01 18 26  c9 20 34 2e 34 3a e7 20  |toff...&. 4.4:. |
000003a0  73 6f 75 72 63 65 24 28  73 6f 75 5f 70 6f 73 25  |source$(sou_pos%|
000003b0  2b 4d 48 29 3c 3e 22 22  20 8c 0d 01 22 3b ff 28  |+MH)<>"" ...";.(|
000003c0  22 4c 4f 41 44 20 22 2b  70 61 74 68 24 2b 22 2e  |"LOAD "+path$+".|
000003d0  22 2b 73 6f 75 72 63 65  24 28 73 6f 75 5f 70 6f  |"+source$(sou_po|
000003e0  73 25 2b 4d 48 29 2b 22  20 22 2b c3 7e 28 74 65  |s%+MH)+" "+.~(te|
000003f0  78 74 25 29 29 0d 01 2c  5e c8 99 20 22 4f 53 5f  |xt%))..,^.. "OS_|
00000400  46 69 6c 65 22 2c 35 2c  70 61 74 68 24 2b 22 2e  |File",5,path$+".|
00000410  22 2b 73 6f 75 72 63 65  24 28 73 6f 75 5f 70 6f  |"+source$(sou_po|
00000420  73 25 2b 4d 48 29 20 b8  20 2c 2c 2c 2c 6c 6e 25  |s%+MH) . ,,,,ln%|
00000430  3a 3f 28 74 65 78 74 25  2b 6c 6e 25 29 3d 31 30  |:?(text%+ln%)=10|
00000440  3a 3f 28 74 65 78 74 25  2b 6c 6e 25 2b 31 29 3d  |:?(text%+ln%+1)=|
00000450  32 35 35 0d 01 36 30 78  70 6f 73 25 3d 30 3a 79  |255..60xpos%=0:y|
00000460  70 6f 73 25 3d 30 3a 78  63 75 72 25 3d 30 3a 79  |pos%=0:xcur%=0:y|
00000470  63 75 72 25 3d 30 3a f2  75 70 64 61 74 65 5f 74  |cur%=0:.update_t|
00000480  65 78 74 0d 01 40 05 cd  0d 01 4a 4f c9 20 35 2e  |ext..@....JO. 5.|
00000490  34 3a e7 20 6f 62 6a 65  63 74 24 28 6f 62 6a 5f  |4:. object$(obj_|
000004a0  70 6f 73 25 2b 4d 48 29  3c 3e 22 22 20 8c 20 f2  |pos%+MH)<>"" . .|
000004b0  61 6e 69 6d 61 74 65 28  70 61 74 68 24 2b 22 2e  |animate(path$+".|
000004c0  22 2b 6f 62 6a 65 63 74  24 28 6f 62 6a 5f 70 6f  |"+object$(obj_po|
000004d0  73 25 2b 4d 48 29 29 0d  01 54 17 c9 20 37 2e 34  |s%+MH))..T.. 7.4|
000004e0  3a ff 22 44 49 52 20 22  2b 70 61 74 68 24 0d 01  |:."DIR "+path$..|
000004f0  5e 14 41 25 3d 30 3a d6  20 66 69 6e 64 5f 74 65  |^.A%=0:. find_te|
00000500  78 74 0d 01 68 0c 66 24  3d 24 21 6f 75 74 0d 01  |xt..h.f$=$!out..|
00000510  72 2f e7 20 66 24 3d 22  22 20 8c 20 85 20 39 39  |r/. f$="" . . 99|
00000520  2c 22 42 61 64 20 6f 72  20 4d 69 73 73 69 6e 67  |,"Bad or Missing|
00000530  20 69 6e 63 6f 72 65 20  6e 61 6d 65 22 0d 01 7c  | incore name"..||
00000540  11 d6 20 65 6e 64 5f 6f  66 5f 66 69 6c 65 0d 01  |.. end_of_file..|
00000550  86 2a ff 22 53 41 56 45  20 22 2b 66 24 2b 22 20  |.*."SAVE "+f$+" |
00000560  22 2b c3 7e 28 74 65 78  74 25 29 2b 22 20 22 2b  |"+.~(text%)+" "+|
00000570  c3 7e 28 21 6f 75 74 29  0d 01 90 1f ff 22 53 45  |.~(!out)....."SE|
00000580  54 54 59 50 45 20 22 2b  66 24 2b 22 20 22 2b c3  |TTYPE "+f$+" "+.|
00000590  7e 28 73 74 70 25 29 0d  01 9a 15 f2 75 70 64 61  |~(stp%).....upda|
000005a0  74 65 5f 64 69 72 65 63  74 6f 72 79 0d 01 a4 13  |te_directory....|
000005b0  c9 20 38 2e 34 3a 66 69  6e 69 73 68 25 3d b9 0d  |. 8.4:finish%=..|
000005c0  01 ae 2d c9 20 39 2e 34  3a f2 69 6e 73 65 72 74  |..-. 9.4:.insert|
000005d0  5f 74 65 78 74 28 22 46  72 61 6d 65 22 2b bd 28  |_text("Frame"+.(|
000005e0  31 33 29 29 3a f2 62 75  74 6f 66 66 0d 01 b8 11  |13)):.butoff....|
000005f0  c9 20 31 30 2e 34 3a f2  6f 73 63 6c 69 0d 01 c2  |. 10.4:.oscli...|
00000600  18 c9 20 31 31 2e 34 3a  f2 63 6f 6d 70 69 6c 65  |.. 11.4:.compile|
00000610  5f 66 69 6c 65 0d 01 cc  2d c9 20 31 33 2e 34 2c  |_file...-. 13.4,|
00000620  31 34 2e 34 2c 31 35 2e  34 2c 31 36 2e 34 2c 31  |14.4,15.4,16.4,1|
00000630  37 2e 34 2c 31 38 2e 34  2c 31 39 2e 34 2c 32 30  |7.4,18.4,19.4,20|
00000640  2e 34 0d 01 d6 18 c8 8e  20 28 a4 77 69 6e 64 6f  |.4...... (.windo|
00000650  77 2b 4d 42 2f 31 30 29  20 ca 0d 01 e0 43 c9 20  |w+MB/10) ....C. |
00000660  31 33 2e 34 3a e7 20 64  69 72 65 63 74 6f 72 79  |13.4:. directory|
00000670  24 28 64 69 72 5f 70 6f  73 25 2b 31 39 29 3c 3e  |$(dir_pos%+19)<>|
00000680  22 22 20 8c 20 64 69 72  5f 70 6f 73 25 2b 3d 31  |"" . dir_pos%+=1|
00000690  38 3a f2 75 70 64 61 74  65 5f 64 69 72 0d 01 ea  |8:.update_dir...|
000006a0  32 c9 20 31 34 2e 34 3a  e7 20 64 69 72 5f 70 6f  |2. 14.4:. dir_po|
000006b0  73 25 3e 30 20 8c 20 64  69 72 5f 70 6f 73 25 2d  |s%>0 . dir_pos%-|
000006c0  3d 31 38 3a f2 75 70 64  61 74 65 5f 64 69 72 0d  |=18:.update_dir.|
000006d0  01 f4 40 c9 20 31 35 2e  34 3a e7 20 73 70 72 69  |..@. 15.4:. spri|
000006e0  74 65 24 28 73 70 72 5f  70 6f 73 25 2b 31 39 29  |te$(spr_pos%+19)|
000006f0  3c 3e 22 22 20 8c 20 73  70 72 5f 70 6f 73 25 2b  |<>"" . spr_pos%+|
00000700  3d 31 38 3a f2 75 70 64  61 74 65 5f 73 70 72 0d  |=18:.update_spr.|
00000710  01 fe 32 c9 20 31 36 2e  34 3a e7 20 73 70 72 5f  |..2. 16.4:. spr_|
00000720  70 6f 73 25 3e 30 20 8c  20 73 70 72 5f 70 6f 73  |pos%>0 . spr_pos|
00000730  25 2d 3d 31 38 3a f2 75  70 64 61 74 65 5f 73 70  |%-=18:.update_sp|
00000740  72 0d 02 08 3e c9 20 31  37 2e 34 3a e7 20 73 6f  |r...>. 17.4:. so|
00000750  75 72 63 65 24 28 73 6f  75 5f 70 6f 73 25 2b 38  |urce$(sou_pos%+8|
00000760  29 3c 3e 22 22 20 8c 20  73 6f 75 5f 70 6f 73 25  |)<>"" . sou_pos%|
00000770  2b 3d 37 3a f2 75 70 64  61 74 65 5f 73 6f 75 0d  |+=7:.update_sou.|
00000780  02 12 31 c9 20 31 38 2e  34 3a e7 20 73 6f 75 5f  |..1. 18.4:. sou_|
00000790  70 6f 73 25 3e 30 20 8c  20 73 6f 75 5f 70 6f 73  |pos%>0 . sou_pos|
000007a0  25 2d 3d 37 3a f2 75 70  64 61 74 65 5f 73 6f 75  |%-=7:.update_sou|
000007b0  0d 02 1c 3e c9 20 31 39  2e 34 3a e7 20 6f 62 6a  |...>. 19.4:. obj|
000007c0  65 63 74 24 28 6f 62 6a  5f 70 6f 73 25 2b 39 29  |ect$(obj_pos%+9)|
000007d0  3c 3e 22 22 20 8c 20 6f  62 6a 5f 70 6f 73 25 2b  |<>"" . obj_pos%+|
000007e0  3d 38 3a f2 75 70 64 61  74 65 5f 6f 62 6a 0d 02  |=8:.update_obj..|
000007f0  26 31 c9 20 32 30 2e 34  3a e7 20 6f 62 6a 5f 70  |&1. 20.4:. obj_p|
00000800  6f 73 25 3e 30 20 8c 20  6f 62 6a 5f 70 6f 73 25  |os%>0 . obj_pos%|
00000810  2d 3d 38 3a f2 75 70 64  61 74 65 5f 6f 62 6a 0d  |-=8:.update_obj.|
00000820  02 30 05 cb 0d 02 3a 0b  f2 62 75 74 6f 66 66 0d  |.0....:..butoff.|
00000830  02 44 05 cb 0d 02 4e 0b  49 25 3d a6 28 30 29 0d  |.D....N.I%=.(0).|
00000840  02 58 0b c8 8e 20 49 25  20 ca 0d 02 62 16 c9 20  |.X... I% ...b.. |
00000850  31 33 36 2c 31 33 37 2c  31 33 38 2c 31 33 39 3a  |136,137,138,139:|
00000860  0d 02 6c 0d e7 20 a6 28  2d 32 29 20 8c 0d 02 76  |..l.. .(-2) ...v|
00000870  0b c8 8e 20 49 25 20 ca  0d 02 80 11 c9 20 31 33  |... I% ...... 13|
00000880  36 3a 78 63 75 72 25 3d  30 0d 02 8a 1b c9 20 31  |6:xcur%=0..... 1|
00000890  33 37 3a 78 63 75 72 25  3d 2d 31 3a 79 63 75 72  |37:xcur%=-1:ycur|
000008a0  25 2b 3d 31 0d 02 94 29  c9 20 31 33 38 3a d6 20  |%+=1...). 138:. |
000008b0  6c 61 73 74 5f 6c 69 6e  65 3a 79 63 75 72 25 3d  |last_line:ycur%=|
000008c0  21 6f 75 74 3a 78 63 75  72 25 3d 2d 31 0d 02 9e  |!out:xcur%=-1...|
000008d0  19 c9 20 31 33 39 3a 79  63 75 72 25 3d 30 3a 78  |.. 139:ycur%=0:x|
000008e0  63 75 72 25 3d 30 0d 02  a8 05 cb 0d 02 b2 05 cc  |cur%=0..........|
000008f0  0d 02 bc 0b c8 8e 20 49  25 20 ca 0d 02 c6 18 c9  |...... I% ......|
00000900  20 31 33 36 3a 78 63 75  72 25 2b 3d 78 63 75 72  | 136:xcur%+=xcur|
00000910  25 3e 30 0d 02 d0 1a c9  20 31 33 37 3a 78 63 75  |%>0..... 137:xcu|
00000920  72 25 2d 3d 78 63 75 72  25 3c 32 35 35 0d 02 da  |r%-=xcur%<255...|
00000930  1b c9 20 31 33 38 3a 79  63 75 72 25 2d 3d 79 63  |.. 138:ycur%-=yc|
00000940  75 72 25 3c 31 30 32 34  0d 02 e4 18 c9 20 31 33  |ur%<1024..... 13|
00000950  39 3a 79 63 75 72 25 2b  3d 79 63 75 72 25 3e 30  |9:ycur%+=ycur%>0|
00000960  0d 02 ee 05 cb 0d 02 f8  05 cd 0d 03 02 10 f2 75  |...............u|
00000970  70 64 61 74 65 5f 74 65  78 74 0d 03 0c 05 cb 0d  |pdate_text......|
00000980  03 16 34 e7 20 28 49 25  3e 33 31 20 80 20 49 25  |..4. (I%>31 . I%|
00000990  3c 31 32 37 29 20 84 20  49 25 3d 31 33 20 8c 20  |<127) . I%=13 . |
000009a0  f2 69 6e 73 65 72 74 5f  74 65 78 74 28 bd 28 49  |.insert_text(.(I|
000009b0  25 29 29 0d 03 20 44 e7  20 49 25 3d 31 32 37 20  |%)).. D. I%=127 |
000009c0  8c 20 41 25 3d 78 63 75  72 25 3a 42 25 3d 79 63  |. A%=xcur%:B%=yc|
000009d0  75 72 25 3a d6 20 64 65  6c 65 74 65 5f 63 68 61  |ur%:. delete_cha|
000009e0  72 3a 78 63 75 72 25 2d  3d 31 3a f2 75 70 64 61  |r:xcur%-=1:.upda|
000009f0  74 65 5f 74 65 78 74 0d  03 2a 42 e7 20 49 25 3d  |te_text..*B. I%=|
00000a00  32 31 20 8c 20 41 25 3d  78 63 75 72 25 3a 42 25  |21 . A%=xcur%:B%|
00000a10  3d 79 63 75 72 25 3a d6  20 64 65 6c 65 74 65 5f  |=ycur%:. delete_|
00000a20  6c 69 6e 65 3a 78 63 75  72 25 3d 30 3a f2 75 70  |line:xcur%=0:.up|
00000a30  64 61 74 65 5f 74 65 78  74 0d 03 34 0d fd 20 66  |date_text..4.. f|
00000a40  69 6e 69 73 68 25 0d 03  3e 08 2a 46 58 34 0d 03  |inish%..>.*FX4..|
00000a50  48 08 eb 20 31 32 0d 03  52 05 e0 0d 03 5c 04 0d  |H.. 12..R....\..|
00000a60  03 66 0b dd f2 6f 73 63  6c 69 0d 03 70 07 ea 20  |.f...oscli..p.. |
00000a70  85 0d 03 7a 06 eb 30 0d  03 84 08 2a 46 58 34 0d  |...z..0....*FX4.|
00000a80  03 8e 0e 2a 50 4f 49 4e  54 45 52 20 30 0d 03 98  |...*POINTER 0...|
00000a90  0d ee 20 85 20 ea 20 f1  f6 24 0d 03 a2 05 ee 0d  |.. . . ..$......|
00000aa0  03 ac 05 f5 0d 03 b6 0d  e8 22 2a 22 64 65 61 6c  |........."*"deal|
00000ab0  24 0d 03 c0 0a ff 64 65  61 6c 24 0d 03 ca 0e fd  |$.....deal$.....|
00000ac0  20 64 65 61 6c 24 3d 22  22 0d 03 d4 05 87 0d 03  | deal$="".......|
00000ad0  de 10 f2 75 70 64 61 74  65 5f 74 65 78 74 0d 03  |...update_text..|
00000ae0  e8 07 f7 20 85 0d 03 f2  0a 2a 46 58 34 2c 31 0d  |... .....*FX4,1.|
00000af0  03 fc 13 f2 72 65 73 74  6f 72 65 5f 73 63 72 65  |....restore_scre|
00000b00  65 6e 0d 04 06 05 e1 0d  04 10 04 0d 04 1a 0c dd  |en..............|
00000b10  f2 62 75 74 6f 66 66 0d  04 24 13 f5 3a c8 97 58  |.butoff..$..:..X|
00000b20  2c 59 2c 42 3a fd 20 42  3d 30 0d 04 2e 05 e1 0d  |,Y,B:. B=0......|
00000b30  04 38 04 0d 04 42 15 dd  f2 69 6e 73 65 72 74 5f  |.8...B...insert_|
00000b40  74 65 78 74 28 74 24 29  0d 04 4c 0a 24 62 25 3d  |text(t$)..L.$b%=|
00000b50  74 24 0d 04 56 18 41 25  3d 79 63 75 72 25 3a d6  |t$..V.A%=ycur%:.|
00000b60  20 66 69 6e 64 5f 74 65  78 74 0d 04 60 56 e7 20  | find_text..`V. |
00000b70  21 6f 75 74 3d 2d 31 20  8c 20 6c 25 3d 78 63 75  |!out=-1 . l%=xcu|
00000b80  72 25 2b a9 28 74 24 29  20 8b 20 e7 20 78 63 75  |r%+.(t$) . . xcu|
00000b90  72 25 3e a9 28 24 21 6f  75 74 29 20 8c 20 6c 25  |r%>.($!out) . l%|
00000ba0  3d 78 63 75 72 25 2b a9  28 74 24 29 20 8b 20 6c  |=xcur%+.(t$) . l|
00000bb0  25 3d a9 28 24 21 6f 75  74 29 2b a9 28 74 24 29  |%=.($!out)+.(t$)|
00000bc0  0d 04 6a 13 e7 20 6c 25  3e 32 35 34 20 8c 20 ef  |..j.. l%>254 . .|
00000bd0  37 3a e1 0d 04 74 24 41  25 3d 78 63 75 72 25 3a  |7:...t$A%=xcur%:|
00000be0  42 25 3d 79 63 75 72 25  3a 43 25 3d 62 25 3a 44  |B%=ycur%:C%=b%:D|
00000bf0  25 3d a9 28 74 24 29 0d  04 7e 11 d6 20 69 6e 73  |%=.(t$)..~.. ins|
00000c00  65 72 74 5f 63 68 61 72  0d 04 88 2d 78 63 75 72  |ert_char...-xcur|
00000c10  25 2b 3d 44 25 3a e7 20  97 c2 74 24 2c 31 29 3d  |%+=D%:. ..t$,1)=|
00000c20  31 33 20 8c 20 79 63 75  72 25 2b 3d 31 3a 78 63  |13 . ycur%+=1:xc|
00000c30  75 72 25 3d 30 0d 04 92  10 f2 75 70 64 61 74 65  |ur%=0.....update|
00000c40  5f 74 65 78 74 0d 04 9c  05 e1 0d 04 a6 04 0d 04  |_text...........|
00000c50  b0 19 dd 20 f2 61 6e 69  6d 61 74 65 28 6f 62 6a  |... .animate(obj|
00000c60  5f 66 69 6c 65 24 29 0d  04 ba 07 ea 20 85 0d 04  |_file$)..... ...|
00000c70  c4 09 6d 63 25 3d a3 0d  04 ce 1a ee 20 85 20 ea  |..mc%=...... . .|
00000c80  20 f2 63 6f 6d 70 69 6c  65 5f 65 72 72 6f 72 3a  | .compile_error:|
00000c90  e1 0d 04 d8 10 f2 6c 6f  61 64 5f 6f 62 6a 65 63  |......load_objec|
00000ca0  74 0d 04 e2 05 f5 0d 04  ec 0f d6 20 64 65 63 6f  |t.......... deco|
00000cb0  6d 70 61 63 74 0d 04 f6  07 fd 20 a3 0d 05 00 13  |mpact..... .....|
00000cc0  f2 72 65 73 74 6f 72 65  5f 73 63 72 65 65 6e 0d  |.restore_screen.|
00000cd0  05 0a 05 e1 0d 05 14 04  0d 05 1e 11 dd f2 6c 6f  |..............lo|
00000ce0  61 64 5f 6f 62 6a 65 63  74 0d 05 28 07 eb 20 30  |ad_object..(.. 0|
00000cf0  0d 05 32 1a ff 22 43 6f  6d 5f 4f 70 65 6e 20 22  |..2.."Com_Open "|
00000d00  2b 6f 62 6a 5f 66 69 6c  65 24 0d 05 3c 09 6d 63  |+obj_file$..<.mc|
00000d10  25 3d b9 0d 05 46 11 ff  22 50 6c 6f 74 46 69 6c  |%=...F.."PlotFil|
00000d20  65 20 24 22 0d 05 50 05  87 0d 05 5a 0f 63 62 25  |e $"..P....Z.cb%|
00000d30  3d 62 75 66 66 65 72 25  0d 05 64 05 f5 0d 05 6e  |=buffer%..d....n|
00000d40  1f ff 22 43 6f 6d 5f 55  6e 53 74 72 65 61 6d 20  |.."Com_UnStream |
00000d50  24 20 26 22 2b c3 7e 28  63 62 25 29 0d 05 78 0f  |$ &"+.~(cb%)..x.|
00000d60  66 72 61 6d 65 25 3d 21  63 62 25 0d 05 82 11 63  |frame%=!cb%....c|
00000d70  62 25 2b 3d 21 28 63 62  25 2b 34 29 0d 05 8c 0f  |b%+=!(cb%+4)....|
00000d80  fd 20 66 72 61 6d 65 25  3d 2d 31 0d 05 96 0e 2a  |. frame%=-1....*|
00000d90  43 6f 6d 5f 43 6c 6f 73  65 0d 05 a0 0d 21 66 72  |Com_Close....!fr|
00000da0  61 6d 65 3d 2d 31 0d 05  aa 0b 21 6d 6f 64 65 3d  |ame=-1....!mode=|
00000db0  eb 0d 05 b4 11 2a 43 6f  6d 5f 52 65 6d 65 6d 62  |.....*Com_Rememb|
00000dc0  65 72 0d 05 be 05 e1 0d  05 c8 04 0d 05 d2 13 dd  |er..............|
00000dd0  f2 63 6f 6d 70 69 6c 65  5f 65 72 72 6f 72 0d 05  |.compile_error..|
00000de0  dc 07 ef 20 37 0d 05 e6  07 d9 23 30 0d 05 f0 1b  |... 7.....#0....|
00000df0  e7 20 6d 63 25 20 8c 20  f2 72 65 73 74 6f 72 65  |. mc% . .restore|
00000e00  5f 73 63 72 65 65 6e 0d  05 fa 37 79 63 75 72 25  |_screen...7ycur%|
00000e10  3d 41 25 3a 78 63 75 72  25 3d 30 3a 78 70 6f 73  |=A%:xcur%=0:xpos|
00000e20  25 3d 30 3a 79 70 6f 73  25 3d 79 63 75 72 25 2d  |%=0:ypos%=ycur%-|
00000e30  34 3a f2 75 70 64 61 74  65 5f 74 65 78 74 0d 06  |4:.update_text..|
00000e40  04 13 fb 20 31 32 38 2b  31 35 20 c8 9c 20 31 32  |... 128+15 .. 12|
00000e50  38 0d 06 0e 13 e7 20 9f  3d 31 37 20 8c 20 e5 20  |8..... .=17 . . |
00000e60  8d 44 4a 46 0d 06 18 13  f2 63 6c 65 61 72 77 69  |.DJF.....clearwi|
00000e70  6e 64 6f 77 28 30 29 0d  06 22 22 f1 f6 24 3b 22  |ndow(0)..""..$;"|
00000e80  20 61 74 20 6d 61 63 72  6f 20 6c 69 6e 65 20 22  | at macro line "|
00000e90  3b 79 63 75 72 25 2b 31  3b 0d 06 2c 14 f5 3a c8  |;ycur%+1;..,..:.|
00000ea0  97 20 58 2c 59 2c 42 3a  fd 20 42 3d 30 0d 06 36  |. X,Y,B:. B=0..6|
00000eb0  1f f5 3a c8 97 20 58 2c  59 2c 42 3a fd 20 42 3e  |..:.. X,Y,B:. B>|
00000ec0  30 20 84 20 bf 28 30 29  3c 3e 22 22 0d 06 40 14  |0 . .(0)<>""..@.|
00000ed0  f5 3a c8 97 20 58 2c 59  2c 42 3a fd 20 42 3d 30  |.:.. X,Y,B:. B=0|
00000ee0  0d 06 4a 10 fb 20 31 33  38 20 c8 9c 20 31 39 32  |..J.. 138 .. 192|
00000ef0  0d 06 54 13 f2 63 6c 65  61 72 77 69 6e 64 6f 77  |..T..clearwindow|
00000f00  28 30 29 0d 06 5e 0a f1  70 61 74 68 24 0d 06 68  |(0)..^..path$..h|
00000f10  08 ef 20 32 36 0d 06 72  05 e1 0d 06 7c 04 0d 06  |.. 26..r....|...|
00000f20  86 12 dd f2 63 6f 6d 70  69 6c 65 5f 66 69 6c 65  |....compile_file|
00000f30  0d 06 90 07 ea 20 85 0d  06 9a 09 6d 63 25 3d a3  |..... .....mc%=.|
00000f40  0d 06 a4 1e ee 20 85 20  ea 20 f2 63 6f 6d 70 69  |..... . . .compi|
00000f50  6c 65 5f 65 72 72 6f 72  3a f7 20 85 3a e1 0d 06  |le_error:. .:...|
00000f60  ae 25 6c 69 6e 65 25 3d  32 3a d6 20 6c 61 73 74  |.%line%=2:. last|
00000f70  5f 6c 69 6e 65 3a 6c 69  6e 65 73 25 3d 21 6f 75  |_line:lines%=!ou|
00000f80  74 2d 31 0d 06 b8 55 41  25 3d 31 3a d6 20 66 69  |t-1...UA%=1:. fi|
00000f90  6e 64 5f 74 65 78 74 3a  e7 20 21 6f 75 74 3d 2d  |nd_text:. !out=-|
00000fa0  31 20 8c 20 85 20 39 39  2c 22 46 69 6c 65 20 54  |1 . . 99,"File T|
00000fb0  6f 20 53 6d 61 6c 6c 20  6f 72 20 4e 6f 74 20 54  |o Small or Not T|
00000fc0  68 65 72 65 21 22 20 8b  20 6f 62 6a 5f 66 69 6c  |here!" . obj_fil|
00000fd0  65 24 3d 24 21 6f 75 74  0d 06 c2 43 41 25 3d 32  |e$=$!out...CA%=2|
00000fe0  3a d6 20 66 69 6e 64 5f  74 65 78 74 3a e7 20 21  |:. find_text:. !|
00000ff0  6f 75 74 3d 2d 31 20 8c  20 85 20 39 39 2c 22 46  |out=-1 . . 99,"F|
00001000  69 6c 65 20 54 6f 20 53  6d 61 6c 6c 20 6f 72 20  |ile To Small or |
00001010  4e 6f 74 20 54 68 65 72  65 21 22 0d 06 cc 5b e7  |Not There!"...[.|
00001020  20 24 21 6f 75 74 3c 3e  22 31 33 22 20 80 20 24  | $!out<>"13" . $|
00001030  21 6f 75 74 3c 3e 22 31  35 22 20 8c 20 85 20 39  |!out<>"15" . . 9|
00001040  39 2c 22 57 72 6f 6e 67  20 4d 6f 64 65 20 53 65  |9,"Wrong Mode Se|
00001050  74 74 69 6e 67 20 66 6f  72 20 53 65 71 75 65 6e  |tting for Sequen|
00001060  63 69 6e 67 22 20 8b 20  6d 6f 64 65 25 3d a0 28  |cing" . mode%=.(|
00001070  24 21 6f 75 74 29 0d 06  d6 34 eb 20 6d 6f 64 65  |$!out)...4. mode|
00001080  25 3a 6d 63 25 3d b9 3a  62 6b 25 3d a3 3a 62 64  |%:mc%=.:bk%=.:bd|
00001090  25 3d b9 3a 66 72 61 6d  65 25 3d 30 3a 70 72 69  |%=.:frame%=0:pri|
000010a0  6e 25 3d a3 3a 73 64 25  3d a3 0d 06 e0 0f 21 6d  |n%=.:sd%=.....!m|
000010b0  6f 64 65 3d 6d 6f 64 65  25 0d 06 ea 05 87 0d 06  |ode=mode%.......|
000010c0  f4 2f e7 20 a4 73 6f 72  74 28 6f 62 6a 5f 66 69  |./. .sort(obj_fi|
000010d0  6c 65 24 29 3d 22 53 45  51 55 45 4e 43 45 22 20  |le$)="SEQUENCE" |
000010e0  8c 20 f2 73 65 71 75 65  6e 63 65 3a e1 0d 06 fe  |. .sequence:....|
000010f0  16 e3 20 6c 69 6e 65 25  3d 33 20 b8 20 6c 69 6e  |.. line%=3 . lin|
00001100  65 73 25 0d 07 08 4e 41  25 3d 6c 69 6e 65 25 3a  |es%...NA%=line%:|
00001110  d6 20 66 69 6e 64 5f 74  65 78 74 3a e7 20 21 6f  |. find_text:. !o|
00001120  75 74 3d 2d 31 20 8c 20  85 20 39 39 2c 22 46 69  |ut=-1 . . 99,"Fi|
00001130  6c 65 20 4d 69 73 6d 61  74 63 68 22 20 8b 20 64  |le Mismatch" . d|
00001140  65 61 6c 24 3d a4 73 6f  72 74 28 24 21 6f 75 74  |eal$=.sort($!out|
00001150  29 0d 07 12 0e c8 8e 20  64 65 61 6c 24 20 ca 0d  |)...... deal$ ..|
00001160  07 1c 08 c9 20 22 22 0d  07 26 0b c9 20 bd 28 31  |.... ""..&.. .(1|
00001170  33 29 0d 07 30 0c c9 20  bd 28 32 35 35 29 0d 07  |3)..0.. .(255)..|
00001180  3a 21 c9 20 22 53 57 41  50 44 49 53 43 22 2c 22  |:!. "SWAPDISC","|
00001190  53 57 41 50 44 49 53 4b  22 3a 73 64 25 3d b9 0d  |SWAPDISK":sd%=..|
000011a0  07 44 22 c9 20 22 42 41  43 4b 47 52 4f 55 4e 44  |.D". "BACKGROUND|
000011b0  22 3a 62 6b 25 3d 6c 69  6e 65 25 3a 62 64 25 3d  |":bk%=line%:bd%=|
000011c0  a3 0d 07 4e 15 c9 20 22  50 52 49 4e 54 22 3a 70  |...N.. "PRINT":p|
000011d0  72 69 6e 25 3d b9 0d 07  58 17 c9 20 22 46 52 41  |rin%=...X.. "FRA|
000011e0  4d 45 22 3a e7 20 62 64  25 3e 30 20 8c 0d 07 62  |ME":. bd%>0 ...b|
000011f0  13 6c 69 6e 65 25 3d 62  64 25 3a 62 64 25 3d b9  |.line%=bd%:bd%=.|
00001200  0d 07 6c 05 cc 0d 07 76  21 e7 20 66 72 61 6d 65  |..l....v!. frame|
00001210  25 20 8c 20 f2 72 65 67  69 73 74 65 72 5f 66 72  |% . .register_fr|
00001220  61 6d 65 28 30 29 0d 07  80 0d 66 72 61 6d 65 25  |ame(0)....frame%|
00001230  2b 3d 31 0d 07 8a 0d eb  20 21 6d 6f 64 65 3a 87  |+=1..... !mode:.|
00001240  0d 07 94 1f e7 20 62 6b  25 20 8c 20 62 64 25 3d  |..... bk% . bd%=|
00001250  6c 69 6e 65 25 3a 6c 69  6e 65 25 3d 62 6b 25 0d  |line%:line%=bk%.|
00001260  07 9e 05 cd 0d 07 a8 29  7f 20 85 20 39 39 2c 22  |.......). . 99,"|
00001270  55 6e 6b 6e 6f 77 6e 20  46 69 6c 65 20 4d 61 6b  |Unknown File Mak|
00001280  65 20 55 70 20 43 6f 6d  6d 61 6e 64 22 0d 07 b2  |e Up Command"...|
00001290  05 cb 0d 07 bc 05 cd 0d  07 c6 05 ed 0d 07 d0 16  |................|
000012a0  f2 72 65 67 69 73 74 65  72 5f 66 72 61 6d 65 28  |.register_frame(|
000012b0  31 29 0d 07 da 64 41 25  3d 31 3a d6 20 66 69 6e  |1)...dA%=1:. fin|
000012c0  64 5f 74 65 78 74 3a e7  20 21 6f 75 74 3d 2d 31  |d_text:. !out=-1|
000012d0  20 8c 20 85 20 39 39 2c  22 46 69 6c 65 20 4d 69  | . . 99,"File Mi|
000012e0  73 6d 61 74 63 68 22 20  8b 20 ff 22 53 45 54 50  |smatch" . ."SETP|
000012f0  4f 53 49 54 49 4f 4e 20  30 20 31 30 32 33 22 3a  |OSITION 0 1023":|
00001300  ff 22 50 6c 6f 74 46 69  6c 65 20 22 2b 6f 62 6a  |."PlotFile "+obj|
00001310  5f 66 69 6c 65 24 0d 07  e4 20 66 72 61 6d 65 25  |_file$... frame%|
00001320  3d 2d 31 3a f2 72 65 67  69 73 74 65 72 5f 66 72  |=-1:.register_fr|
00001330  61 6d 65 28 32 29 0d 07  ee 20 ff 22 53 45 54 54  |ame(2)... ."SETT|
00001340  59 50 45 20 22 2b 6f 62  6a 5f 66 69 6c 65 24 2b  |YPE "+obj_file$+|
00001350  22 20 44 37 44 22 0d 07  f8 13 f2 72 65 73 74 6f  |" D7D".....resto|
00001360  72 65 5f 73 63 72 65 65  6e 0d 08 02 09 2a 46 58  |re_screen....*FX|
00001370  31 35 0d 08 0c 05 e1 0d  08 16 04 0d 08 20 0e dd  |15........... ..|
00001380  f2 73 65 71 75 65 6e 63  65 0d 08 2a 14 6f 62 6a  |.sequence..*.obj|
00001390  65 63 74 5f 69 6e 74 61  63 74 25 3d a3 0d 08 34  |ect_intact%=...4|
000013a0  0c 64 65 6c 61 79 25 3d  30 0d 08 3e 16 e3 20 6c  |.delay%=0..>.. l|
000013b0  69 6e 65 25 3d 33 20 b8  20 6c 69 6e 65 73 25 0d  |ine%=3 . lines%.|
000013c0  08 48 4e 41 25 3d 6c 69  6e 65 25 3a d6 20 66 69  |.HNA%=line%:. fi|
000013d0  6e 64 5f 74 65 78 74 3a  e7 20 21 6f 75 74 3d 2d  |nd_text:. !out=-|
000013e0  31 20 8c 20 85 20 39 39  2c 22 46 69 6c 65 20 4d  |1 . . 99,"File M|
000013f0  69 73 6d 61 74 63 68 22  20 8b 20 64 65 61 6c 24  |ismatch" . deal$|
00001400  3d a4 73 6f 72 74 28 24  21 6f 75 74 29 0d 08 52  |=.sort($!out)..R|
00001410  42 e7 20 c0 64 65 61 6c  24 2c 34 29 3d 22 4c 4f  |B. .deal$,4)="LO|
00001420  41 44 22 20 8c 20 6f 62  6a 5f 66 69 6c 65 24 3d  |AD" . obj_file$=|
00001430  c1 64 65 61 6c 24 2c 35  29 3a f2 6c 6f 61 64 5f  |.deal$,5):.load_|
00001440  6f 62 6a 65 63 74 3a 64  65 61 6c 24 3d 22 22 0d  |object:deal$="".|
00001450  08 5c 32 e7 20 c0 64 65  61 6c 24 2c 34 29 3d 22  |.\2. .deal$,4)="|
00001460  4d 4f 44 45 22 20 8c 20  eb 20 a0 28 c1 64 65 61  |MODE" . . .(.dea|
00001470  6c 24 2c 35 29 29 3a 87  3a 64 65 61 6c 24 3d 22  |l$,5)):.:deal$="|
00001480  22 0d 08 66 36 e7 20 c0  64 65 61 6c 24 2c 34 29  |"..f6. .deal$,4)|
00001490  3d 22 47 4f 54 4f 22 20  8c 20 6c 69 6e 65 25 3d  |="GOTO" . line%=|
000014a0  a0 28 c1 64 65 61 6c 24  2c 35 29 29 2d 32 3a 64  |.(.deal$,5))-2:d|
000014b0  65 61 6c 24 3d 22 22 0d  08 70 36 e7 20 c0 64 65  |eal$=""..p6. .de|
000014c0  61 6c 24 2c 35 29 3d 22  44 45 4c 41 59 22 20 8c  |al$,5)="DELAY" .|
000014d0  20 64 65 6c 61 79 25 3d  a0 28 c1 64 65 61 6c 24  | delay%=.(.deal$|
000014e0  2c 36 29 29 3a 64 65 61  6c 24 3d 22 22 0d 08 7a  |,6)):deal$=""..z|
000014f0  33 e7 20 c0 64 65 61 6c  24 2c 34 29 3d 22 57 41  |3. .deal$,4)="WA|
00001500  49 54 22 20 8c 20 49 3d  a6 28 a0 28 c1 64 65 61  |IT" . I=.(.(.dea|
00001510  6c 24 2c 35 29 29 29 3a  64 65 61 6c 24 3d 22 22  |l$,5))):deal$=""|
00001520  0d 08 84 1b e7 20 c0 64  65 61 6c 24 2c 37 29 3d  |..... .deal$,7)=|
00001530  22 41 4e 49 4d 41 54 45  22 20 8c 0d 08 8e 0e 2a  |"ANIMATE" .....*|
00001540  43 6f 6d 5f 43 68 65 63  6b 0d 08 98 16 6c 6f 6f  |Com_Check....loo|
00001550  70 25 3d a0 28 c1 64 65  61 6c 24 2c 38 29 29 0d  |p%=.(.deal$,8)).|
00001560  08 a2 10 e7 20 6c 6f 6f  70 25 3e 2d 31 20 8c 0d  |.... loop%>-1 ..|
00001570  08 ac 11 e3 20 52 3d 31  20 b8 20 6c 6f 6f 70 25  |.... R=1 . loop%|
00001580  0d 08 b6 0f d6 20 64 65  63 6f 6d 70 61 63 74 0d  |..... decompact.|
00001590  08 c0 0f c8 97 20 4d 58  2c 4d 59 2c 4d 42 0d 08  |..... MX,MY,MB..|
000015a0  ca 0f 49 3d a6 28 64 65  6c 61 79 25 29 0d 08 d4  |..I=.(delay%)...|
000015b0  1b e7 20 49 3e 2d 31 20  84 20 4d 42 3e 30 20 8c  |.. I>-1 . MB>0 .|
000015c0  20 52 3d 6c 6f 6f 70 25  0d 08 de 05 ed 0d 08 e8  | R=loop%........|
000015d0  05 cc 0d 08 f2 0b f2 62  75 74 6f 66 66 0d 08 fc  |.......butoff...|
000015e0  05 f5 0d 09 06 0f d6 20  64 65 63 6f 6d 70 61 63  |....... decompac|
000015f0  74 0d 09 10 0f 49 3d a6  28 64 65 6c 61 79 25 29  |t....I=.(delay%)|
00001600  0d 09 1a 0f c8 97 20 4d  58 2c 4d 59 2c 4d 42 0d  |...... MX,MY,MB.|
00001610  09 24 11 fd 20 49 3e 2d  31 20 84 20 4d 42 3e 30  |.$.. I>-1 . MB>0|
00001620  0d 09 2e 05 cd 0d 09 38  0c 64 65 61 6c 24 3d 22  |.......8.deal$="|
00001630  22 0d 09 42 05 cd 0d 09  4c 0e c8 8e 20 64 65 61  |"..B....L... dea|
00001640  6c 24 20 ca 0d 09 56 08  c9 20 22 22 0d 09 60 0b  |l$ ...V.. ""..`.|
00001650  c9 20 bd 28 31 33 29 0d  09 6a 0b c9 20 bd 28 31  |. .(13)..j.. .(1|
00001660  30 29 0d 09 74 0c c9 20  bd 28 32 35 35 29 0d 09  |0)..t.. .(255)..|
00001670  7e 10 c9 20 22 4b 45 59  50 52 45 53 53 22 0d 09  |~.. "KEYPRESS"..|
00001680  88 0b f2 62 75 74 6f 66  66 0d 09 92 05 f5 0d 09  |...butoff.......|
00001690  9c 0f c8 97 20 4d 58 2c  4d 59 2c 4d 42 0d 09 a6  |.... MX,MY,MB...|
000016a0  15 fd 20 a6 28 30 29 3c  3e 2d 31 20 84 20 4d 42  |.. .(0)<>-1 . MB|
000016b0  3e 30 0d 09 b0 25 7f 20  85 20 39 39 2c 22 55 6e  |>0...%. . 99,"Un|
000016c0  6b 6e 6f 77 6e 20 53 65  71 75 65 6e 63 65 20 43  |known Sequence C|
000016d0  6f 6d 6d 61 6e 64 22 0d  09 ba 05 cb 0d 09 c4 05  |ommand".........|
000016e0  ed 0d 09 ce 13 f2 72 65  73 74 6f 72 65 5f 73 63  |......restore_sc|
000016f0  72 65 65 6e 0d 09 d8 09  2a 46 58 31 35 0d 09 e2  |reen....*FX15...|
00001700  05 e1 0d 09 ec 04 0d 09  f6 0f dd a4 73 6f 72 74  |............sort|
00001710  28 69 6e 24 29 0d 0a 00  28 49 25 3d a7 69 6e 24  |(in$)...(I%=.in$|
00001720  2c 22 7e 22 29 3a e7 20  49 25 3e 30 20 8c 20 69  |,"~"):. I%>0 . i|
00001730  6e 24 3d c0 69 6e 24 2c  49 25 2d 31 29 0d 0a 0a  |n$=.in$,I%-1)...|
00001740  0d 6e 64 65 61 6c 24 3d  22 22 0d 0a 14 13 e3 20  |.ndeal$=""..... |
00001750  52 25 3d 31 20 b8 20 a9  28 69 6e 24 29 0d 0a 1e  |R%=1 . .(in$)...|
00001760  11 41 3d 97 c1 69 6e 24  2c 52 25 2c 31 29 0d 0a  |.A=..in$,R%,1)..|
00001770  28 1a e7 20 41 3e 39 36  20 80 20 41 3c 31 32 33  |(.. A>96 . A<123|
00001780  20 8c 20 41 2d 3d 33 32  0d 0a 32 10 6e 64 65 61  | . A-=32..2.ndea|
00001790  6c 24 2b 3d bd 28 41 29  0d 0a 3c 24 e7 20 a9 28  |l$+=.(A)..<$. .(|
000017a0  6e 64 65 61 6c 24 29 3d  31 20 80 20 41 3d 33 32  |ndeal$)=1 . A=32|
000017b0  20 8c 20 6e 64 65 61 6c  24 3d 22 22 0d 0a 46 05  | . ndeal$=""..F.|
000017c0  ed 0d 0a 50 18 e7 20 c1  6e 64 65 61 6c 24 2c 31  |...P.. .ndeal$,1|
000017d0  2c 31 29 3d 22 2a 22 20  8c 0d 0a 5a 21 e7 20 62  |,1)="*" ...Z!. b|
000017e0  64 25 20 8c 20 f2 64 65  66 69 6e 65 62 75 66 66  |d% . .definebuff|
000017f0  65 72 3a ff 6e 64 65 61  6c 24 0d 0a 64 08 3a 3d  |er:.ndeal$..d.:=|
00001800  22 22 0d 0a 6e 05 cd 0d  0a 78 0c 64 65 61 6c 24  |""..n....x.deal$|
00001810  3d 22 22 0d 0a 82 16 e3  20 52 25 3d 31 20 b8 20  |=""..... R%=1 . |
00001820  a9 28 6e 64 65 61 6c 24  29 0d 0a 8c 14 41 3d 97  |.(ndeal$)....A=.|
00001830  c1 6e 64 65 61 6c 24 2c  52 25 2c 31 29 0d 0a 96  |.ndeal$,R%,1)...|
00001840  18 e7 20 41 3e 33 32 20  8c 20 64 65 61 6c 24 2b  |.. A>32 . deal$+|
00001850  3d bd 28 41 29 0d 0a a0  05 ed 0d 0a aa 0a 3d 64  |=.(A).........=d|
00001860  65 61 6c 24 0d 0a b4 04  0d 0a be 14 dd 20 f2 73  |eal$......... .s|
00001870  74 61 72 74 6c 6f 61 64  28 46 24 29 0d 0a c8 18  |tartload(F$)....|
00001880  68 61 6e 64 6c 65 25 3d  8e 28 6f 62 6a 5f 66 69  |handle%=.(obj_fi|
00001890  6c 65 24 29 0d 0a d2 0f  cf 23 68 61 6e 64 6c 65  |le$).....#handle|
000018a0  25 3d 30 0d 0a dc 29 c8  99 20 22 4f 53 5f 47 42  |%=0...).. "OS_GB|
000018b0  50 42 22 2c 34 2c 68 61  6e 64 6c 65 25 2c 62 25  |PB",4,handle%,b%|
000018c0  2c 34 20 b8 20 2c 2c 2c  2c 50 74 25 0d 0a e6 0d  |,4 . ,,,,Pt%....|
000018d0  73 69 7a 65 25 3d 21 62  25 0d 0a f0 0f cf 23 68  |size%=!b%.....#h|
000018e0  61 6e 64 6c 65 25 3d 30  0d 0a fa 32 c8 99 20 22  |andle%=0...2.. "|
000018f0  4f 53 5f 47 42 50 42 22  2c 34 2c 68 61 6e 64 6c  |OS_GBPB",4,handl|
00001900  65 25 2c 62 75 66 66 65  72 25 2c 73 69 7a 65 25  |e%,buffer%,size%|
00001910  20 b8 20 2c 2c 2c 2c 50  74 25 0d 0b 04 11 cf 23  | . ,,,,Pt%.....#|
00001920  68 61 6e 64 6c 65 25 3d  50 74 25 0d 0b 0e 17 2a  |handle%=Pt%....*|
00001930  53 45 54 50 4f 53 49 54  49 4f 4e 20 30 20 31 30  |SETPOSITION 0 10|
00001940  32 33 0d 0b 18 0f 2a 50  4c 4f 54 53 50 52 49 54  |23....*PLOTSPRIT|
00001950  45 0d 0b 22 05 e1 0d 0b  2c 04 0d 0b 36 0d dd f2  |E.."....,...6...|
00001960  64 69 73 63 28 6c 29 0d  0b 40 0f e7 20 ac 20 73  |disc(l)..@.. . s|
00001970  64 25 20 8c 20 e1 0d 0b  4a 0d e7 20 6c 3d 32 20  |d% . ...J.. l=2 |
00001980  8c 20 e1 0d 0b 54 07 ef  20 37 0d 0b 5e 2d f1 8a  |. ...T.. 7..^-..|
00001990  30 2c 30 29 22 20 20 20  20 20 20 20 20 20 20 20  |0,0)"           |
000019a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000019b0  20 20 20 20 20 20 22 0d  0b 68 28 f1 22 20 20 20  |      "..h(."   |
000019c0  20 20 20 20 20 20 44 49  53 43 20 43 48 41 4e 47  |      DISC CHANG|
000019d0  45 20 20 20 20 20 20 20  20 20 20 20 20 20 22 0d  |E             ".|
000019e0  0b 72 17 f1 22 20 50 6c  65 61 73 65 20 69 6e 73  |.r.." Please ins|
000019f0  65 72 74 20 22 3b 0d 0b  7c 0a c8 8e 20 6c 20 ca  |ert ";..|... l .|
00001a00  0d 0b 86 1d c9 20 30 3a  f1 22 53 4f 55 52 43 45  |..... 0:."SOURCE|
00001a10  20 66 69 6c 65 20 64 69  73 6b 20 20 22 0d 0b 90  | file disk  "...|
00001a20  1d c9 20 31 3a f1 22 4f  42 4a 45 43 54 20 66 69  |.. 1:."OBJECT fi|
00001a30  6c 65 20 64 69 73 6b 20  20 22 0d 0b 9a 1d c9 20  |le disk  "..... |
00001a40  32 3a f1 22 53 45 51 55  45 4e 43 45 52 20 64 69  |2:."SEQUENCER di|
00001a50  73 6b 20 20 20 20 22 0d  0b a4 05 cb 0d 0b ae 28  |sk    "........(|
00001a60  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00001a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a80  20 20 20 22 0d 0b b8 28  f1 22 20 20 20 20 54 68  |   "...(."    Th|
00001a90  65 6e 20 70 72 65 73 73  20 74 68 65 20 53 50 41  |en press the SPA|
00001aa0  43 45 20 42 41 52 20 20  20 20 20 22 0d 0b c2 28  |CE BAR     "...(|
00001ab0  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00001ac0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ad0  20 20 20 22 0d 0b cc 05  f5 0d 0b d6 0a fd 20 a5  |   ".......... .|
00001ae0  3d 33 32 0d 0b e0 05 e1  0d 0b ea 04 0d 0b f4 04  |=32.............|
00001af0  0d 0b fe 1b dd 20 f2 72  65 67 69 73 74 65 72 5f  |..... .register_|
00001b00  66 72 61 6d 65 28 64 70  72 25 29 0d 0c 08 10 e7  |frame(dpr%).....|
00001b10  20 66 72 61 6d 65 25 3d  31 20 8c 0d 0c 12 11 f2  | frame%=1 ......|
00001b20  64 65 66 69 6e 65 62 75  66 66 65 72 0d 0c 1c 13  |definebuffer....|
00001b30  d6 75 70 64 61 74 65 5f  63 6f 6d 70 61 72 65 0d  |.update_compare.|
00001b40  0c 26 0c f2 64 69 73 63  28 31 29 0d 0c 30 0f d6  |.&..disc(1)..0..|
00001b50  72 65 73 65 74 5f 70 61  67 65 0d 0c 3a 1a ff 22  |reset_page..:.."|
00001b60  43 6f 6d 5f 4f 70 65 6e  20 22 2b 6f 62 6a 5f 66  |Com_Open "+obj_f|
00001b70  69 6c 65 24 0d 0c 44 1f  2a 43 6f 6d 5f 53 61 76  |ile$..D.*Com_Sav|
00001b80  65 20 24 20 30 20 30 20  31 32 37 39 20 31 30 32  |e $ 0 0 1279 102|
00001b90  33 20 30 0d 0c 4e 13 d6  75 70 64 61 74 65 5f 63  |3 0..N..update_c|
00001ba0  6f 6d 70 61 72 65 0d 0c  58 16 74 6f 74 61 6c 25  |ompare..X.total%|
00001bb0  3d 30 3a 73 70 72 69 74  65 25 3d 30 0d 0c 62 1b  |=0:sprite%=0..b.|
00001bc0  e7 20 64 70 72 25 3c 3e  31 20 8c 20 f2 64 69 73  |. dpr%<>1 . .dis|
00001bd0  63 28 64 70 72 25 29 0d  0c 6c 05 e1 0d 0c 76 05  |c(dpr%)..l....v.|
00001be0  cd 0d 0c 80 0d 21 6d 6f  64 65 3d eb 3a 87 0d 0c  |.....!mode=.:...|
00001bf0  8a 14 d6 20 63 6f 6d 70  61 72 65 5f 73 63 72 65  |... compare_scre|
00001c00  65 6e 0d 0c 94 13 d6 75  70 64 61 74 65 5f 63 6f  |en.....update_co|
00001c10  6d 70 61 72 65 0d 0c 9e  0d e7 20 70 72 69 6e 25  |mpare..... prin%|
00001c20  20 8c 0d 0c a8 07 ef 20  32 0d 0c b2 1c f1 8a 30  | ...... 2......0|
00001c30  2c 32 30 29 22 53 70 72  69 74 65 20 22 3b 73 70  |,20)"Sprite ";sp|
00001c40  72 69 74 65 25 0d 0c bc  1f 73 25 3d 26 31 34 30  |rite%....s%=&140|
00001c50  30 30 2d 26 31 34 30 30  30 2a 28 21 6d 6f 64 65  |00-&14000*(!mode|
00001c60  3d 31 35 29 0d 0c c6 1b  f1 22 53 69 7a 65 20 69  |=15)....."Size i|
00001c70  73 20 22 3b 73 25 3b 22  20 62 79 74 65 73 22 0d  |s ";s%;" bytes".|
00001c80  0c d0 19 f1 22 42 79 74  65 73 20 75 73 65 64 20  |...."Bytes used |
00001c90  22 3b 21 63 6f 75 6e 74  0d 0c da 20 f1 22 43 6f  |";!count... ."Co|
00001ca0  6d 70 61 63 74 69 6f 6e  20 22 3b 21 63 6f 75 6e  |mpaction ";!coun|
00001cb0  74 2f 73 25 2a 31 30 30  0d 0c e4 08 f1 22 20 22  |t/s%*100....." "|
00001cc0  0d 0c ee 07 ef 20 33 0d  0c f8 05 cd 0d 0d 02 1d  |..... 3.........|
00001cd0  74 6f 74 61 6c 25 2b 3d  21 63 6f 75 6e 74 3a 73  |total%+=!count:s|
00001ce0  70 72 69 74 65 25 2b 3d  31 0d 0d 0c 18 e7 20 64  |prite%+=1..... d|
00001cf0  70 72 25 3c 3e 32 20 8c  20 f2 64 69 73 63 28 31  |pr%<>2 . .disc(1|
00001d00  29 0d 0d 16 1c 21 28 62  75 66 66 65 72 25 2b 26  |)....!(buffer%+&|
00001d10  32 38 30 30 30 29 3d 66  72 61 6d 65 25 0d 0d 20  |28000)=frame%.. |
00001d20  1e 21 28 62 75 66 66 65  72 25 2b 26 32 38 30 30  |.!(buffer%+&2800|
00001d30  34 29 3d 21 63 6f 75 6e  74 2b 38 0d 0d 2a 23 61  |4)=!count+8..*#a|
00001d40  64 24 3d c3 7e 28 62 75  66 66 65 72 25 2b 26 32  |d$=.~(buffer%+&2|
00001d50  38 30 30 30 29 3a f1 22  26 22 3b 61 64 24 0d 0d  |8000):."&";ad$..|
00001d60  34 0f d6 72 65 73 65 74  5f 70 61 67 65 0d 0d 3e  |4..reset_page..>|
00001d70  2f 41 24 3d 22 43 6f 6d  5f 53 74 72 65 61 6d 20  |/A$="Com_Stream |
00001d80  24 20 26 22 2b 61 64 24  2b 22 20 22 2b c3 28 21  |$ &"+ad$+" "+.(!|
00001d90  63 6f 75 6e 74 2b 38 29  3a ff 41 24 0d 0d 48 13  |count+8):.A$..H.|
00001da0  d6 75 70 64 61 74 65 5f  63 6f 6d 70 61 72 65 0d  |.update_compare.|
00001db0  0d 52 6c e7 20 66 72 61  6d 65 25 3d 2d 31 20 8c  |.Rl. frame%=-1 .|
00001dc0  20 f1 22 54 6f 74 61 6c  20 69 6e 20 62 79 74 65  | ."Total in byte|
00001dd0  73 20 22 3b 74 6f 74 61  6c 25 3a f1 22 54 68 69  |s ";total%:."Thi|
00001de0  73 20 6e 65 65 64 73 20  74 6f 20 62 65 20 75 6e  |s needs to be un|
00001df0  64 65 72 20 22 3b 62 73  69 7a 65 25 3b 22 20 74  |der ";bsize%;" t|
00001e00  6f 20 72 75 6e 2e 20 20  20 50 72 65 73 73 20 61  |o run.   Press a|
00001e10  6e 79 20 6b 65 79 22 3a  41 3d a5 0d 0d 5c 1b e7  |ny key":A=...\..|
00001e20  20 64 70 72 25 3c 3e 31  20 8c 20 f2 64 69 73 63  | dpr%<>1 . .disc|
00001e30  28 64 70 72 25 29 0d 0d  66 05 e1 0d 0d 70 04 0d  |(dpr%)..f....p..|
00001e40  0d 7a 15 dd 20 f2 72 65  73 74 6f 72 65 5f 73 63  |.z.. .restore_sc|
00001e50  72 65 65 6e 0d 0d 84 08  ea 20 41 25 0d 0d 8e 0c  |reen..... A%....|
00001e60  f2 64 69 73 70 6c 61 79  0d 0d 98 10 f2 75 70 64  |.display.....upd|
00001e70  61 74 65 5f 74 65 78 74  0d 0d a2 12 f2 75 70 64  |ate_text.....upd|
00001e80  61 74 65 5f 64 72 69 76  65 73 0d 0d ac 15 f2 75  |ate_drives.....u|
00001e90  70 64 61 74 65 5f 64 69  72 65 63 74 6f 72 79 0d  |pdate_directory.|
00001ea0  0d b6 09 6d 63 25 3d a3  0d 0d c0 05 e1 0d 0d ca  |...mc%=.........|
00001eb0  04 0d 0d d4 12 dd f2 64  65 66 69 6e 65 62 75 66  |.......definebuf|
00001ec0  66 65 72 0d 0d d5 07 ea  20 85 0d 0d de 0f ee 20  |fer..... ...... |
00001ed0  85 20 ea 20 f7 20 85 3a  e1 0d 0d e8 2a ff 20 22  |. . . .:....*. "|
00001ee0  44 65 66 69 6e 65 42 75  66 66 65 72 20 22 2b c3  |DefineBuffer "+.|
00001ef0  28 62 75 66 66 65 72 25  29 2b 22 20 26 32 38 30  |(buffer%)+" &280|
00001f00  30 30 22 0d 0d f2 1e ff  20 22 44 65 66 69 6e 65  |00"..... "Define|
00001f10  42 61 63 6b 20 22 2b c3  28 62 75 66 66 65 72 25  |Back "+.(buffer%|
00001f20  29 0d 0d fc 09 f7 20 85  3a e1 0d 0e 06 04 0d 0e  |)..... .:.......|
00001f30  10 0d dd f2 64 69 73 70  6c 61 79 0d 0e 1a 12 eb  |....display.....|
00001f40  31 35 3a 87 3a 2a 50 4f  49 4e 54 45 52 0d 0e 24  |15:.:*POINTER..$|
00001f50  1e ff 20 22 43 6f 6d 5f  4d 65 6d 6f 72 79 20 22  |.. "Com_Memory "|
00001f60  2b c3 28 73 63 72 65 65  6e 25 29 0d 0e 2e 17 2a  |+.(screen%)....*|
00001f70  53 45 54 50 4f 53 49 54  49 4f 4e 20 30 20 31 30  |SETPOSITION 0 10|
00001f80  32 33 0d 0e 38 1e ef 20  31 39 2c 30 2c 32 34 2c  |23..8.. 19,0,24,|
00001f90  31 31 2a 31 36 2c 31 31  2a 31 36 2c 33 2a 31 36  |11*16,11*16,3*16|
00001fa0  0d 0e 42 0f 2a 50 6c 6f  74 46 69 6c 65 20 40 0d  |..B.*PlotFile @.|
00001fb0  0e 4c 10 fb 20 31 33 38  20 c8 9c 20 31 39 32 0d  |.L.. 138 .. 192.|
00001fc0  0e 56 0c fb 20 30 20 c8  9c 20 30 0d 0e 60 05 e1  |.V.. 0 .. 0..`..|
00001fd0  0d 0e 6a 04 0d 0e 74 0b  dd 20 f2 69 6e 69 74 0d  |..j...t.. .init.|
00001fe0  0e 7e 0a eb 20 31 35 3a  87 0d 0e 88 0c 2a 50 4f  |.~.. 15:.....*PO|
00001ff0  49 4e 54 45 52 0d 0e 92  0a 2a 46 58 34 2c 31 0d  |INTER....*FX4,1.|
00002000  0e 9c 0a 2a 46 58 32 32  39 0d 0e a6 2c ef 20 32  |...*FX229...,. 2|
00002010  33 2c 32 35 35 2c 26 38  38 2c 26 32 32 2c 26 38  |3,255,&88,&22,&8|
00002020  38 2c 26 32 32 2c 26 38  38 2c 26 32 32 2c 26 38  |8,&22,&88,&22,&8|
00002030  38 2c 26 32 32 0d 0e b0  13 6d 61 78 5f 77 69 6e  |8,&22....max_win|
00002040  64 6f 77 73 25 3d 32 31  0d 0e ba 0d 73 74 70 25  |dows%=21....stp%|
00002050  3d 26 44 32 42 0d 0e c4  25 de 20 62 25 20 35 31  |=&D2B...%. b% 51|
00002060  32 2c 74 65 78 74 25 20  32 30 34 38 2c 73 63 72  |2,text% 2048,scr|
00002070  65 65 6e 25 20 31 38 36  36 32 0d 0e ce 51 de 20  |een% 18662...Q. |
00002080  77 6c 78 25 28 6d 61 78  5f 77 69 6e 64 6f 77 73  |wlx%(max_windows|
00002090  25 29 2c 77 62 79 25 28  6d 61 78 5f 77 69 6e 64  |%),wby%(max_wind|
000020a0  6f 77 73 25 29 2c 77 72  78 25 28 6d 61 78 5f 77  |ows%),wrx%(max_w|
000020b0  69 6e 64 6f 77 73 25 29  2c 77 74 79 25 28 6d 61  |indows%),wty%(ma|
000020c0  78 5f 77 69 6e 64 6f 77  73 25 29 0d 0e d8 45 de  |x_windows%)...E.|
000020d0  20 64 72 69 76 65 28 38  29 2c 64 69 72 65 63 74  | drive(8),direct|
000020e0  6f 72 79 24 28 32 35 35  29 2c 73 70 72 69 74 65  |ory$(255),sprite|
000020f0  24 28 32 35 35 29 2c 73  6f 75 72 63 65 24 28 32  |$(255),source$(2|
00002100  35 35 29 2c 6f 62 6a 65  63 74 24 28 32 35 35 29  |55),object$(255)|
00002110  0d 0e e2 18 62 73 69 7a  65 25 3d 28 93 2d 92 29  |....bsize%=(.-.)|
00002120  2d 33 36 2a 31 30 32 34  0d 0e ec 14 de 20 62 75  |-36*1024..... bu|
00002130  66 66 65 72 25 20 62 73  69 7a 65 25 0d 0e f6 33  |ffer% bsize%...3|
00002140  ff 22 4c 4f 41 44 20 3c  53 65 71 75 65 6e 63 65  |."LOAD <Sequence|
00002150  72 24 44 69 72 3e 2e 54  69 74 6c 53 63 72 65 65  |r$Dir>.TitlScree|
00002160  6e 20 22 2b c3 7e 28 73  63 72 65 65 6e 25 29 0d  |n "+.~(screen%).|
00002170  0f 00 0e 74 65 78 74 25  3f 30 3d 31 30 0d 0f 0a  |...text%?0=10...|
00002180  0f 74 65 78 74 25 3f 31  3d 26 46 46 0d 0f 14 0b  |.text%?1=&FF....|
00002190  78 70 6f 73 25 3d 30 0d  0f 1e 0b 79 70 6f 73 25  |xpos%=0....ypos%|
000021a0  3d 30 0d 0f 28 0b 78 63  75 72 25 3d 30 0d 0f 32  |=0..(.xcur%=0..2|
000021b0  0b 79 63 75 72 25 3d 30  0d 0f 3c 0f dc 20 32 33  |.ycur%=0..<.. 23|
000021c0  2c 39 2c 37 36 2c 38 0d  0f 46 11 dc 20 32 33 2c  |,9,76,8..F.. 23,|
000021d0  31 39 2c 33 31 2c 31 32  0d 0f 50 11 dc 20 33 35  |19,31,12..P.. 35|
000021e0  2c 33 30 2c 34 36 2c 31  32 0d 0f 5a 11 dc 20 35  |,30,46,12..Z.. 5|
000021f0  30 2c 33 30 2c 36 31 2c  31 32 0d 0f 64 11 dc 20  |0,30,61,12..d.. |
00002200  36 35 2c 31 39 2c 37 36  2c 31 32 0d 0f 6e 11 dc  |65,19,76,12..n..|
00002210  20 36 35 2c 33 30 2c 37  36 2c 32 32 0d 0f 78 10  | 65,30,76,22..x.|
00002220  dc 20 32 2c 33 30 2c 33  31 2c 32 32 0d 0f 82 1c  |. 2,30,31,22....|
00002230  dc 20 32 2c 31 37 2c 31  30 2c 31 36 20 20 20 3a  |. 2,17,10,16   :|
00002240  52 45 4d 20 53 41 56 45  0d 0f 8c 1e dc 20 31 32  |REM SAVE..... 12|
00002250  2c 31 37 2c 32 30 2c 31  36 20 20 3a 52 45 4d 20  |,17,20,16  :REM |
00002260  46 49 4e 49 53 48 0d 0f  96 1d dc 20 32 2c 31 35  |FINISH..... 2,15|
00002270  2c 31 30 2c 31 34 20 20  20 3a 52 45 4d 20 46 52  |,10,14   :REM FR|
00002280  41 4d 45 0d 0f a0 1d dc  20 31 32 2c 31 35 2c 32  |AME..... 12,15,2|
00002290  30 2c 31 34 20 20 3a 52  45 4d 20 2d 20 2a 20 2d  |0,14  :REM - * -|
000022a0  0d 0f aa 1a dc 20 32 2c  31 33 2c 32 30 2c 31 32  |..... 2,13,20,12|
000022b0  20 20 20 3a 52 45 4d 20  47 4f 0d 0f b4 2e dc 20  |   :REM GO..... |
000022c0  32 2c 31 33 2c 32 30 2c  31 32 20 20 3a 52 45 4d  |2,13,20,12  :REM|
000022d0  3b 72 65 73 65 72 76 65  64 20 66 6f 72 20 73 69  |;reserved for si|
000022e0  78 74 68 20 69 63 6f 6e  0d 0f be 23 dc 20 33 35  |xth icon...#. 35|
000022f0  2c 31 31 2c 33 36 2c 31  31 20 3a 52 45 4d 3b 73  |,11,36,11 :REM;s|
00002300  63 72 6f 6c 6c 20 69 63  6f 6e 73 0d 0f c8 11 dc  |croll icons.....|
00002310  20 34 35 2c 31 31 2c 34  36 2c 31 31 0d 0f d2 11  | 45,11,46,11....|
00002320  dc 20 35 30 2c 31 31 2c  35 31 2c 31 31 0d 0f dc  |. 50,11,51,11...|
00002330  11 dc 20 36 30 2c 31 31  2c 36 31 2c 31 31 0d 0f  |.. 60,11,61,11..|
00002340  e6 11 dc 20 36 35 2c 31  31 2c 36 36 2c 31 31 0d  |... 65,11,66,11.|
00002350  0f f0 11 dc 20 37 35 2c  31 31 2c 37 36 2c 31 31  |.... 75,11,76,11|
00002360  0d 0f fa 11 dc 20 36 35  2c 32 31 2c 36 36 2c 32  |..... 65,21,66,2|
00002370  31 0d 10 04 11 dc 20 37  35 2c 32 31 2c 37 36 2c  |1..... 75,21,76,|
00002380  32 31 0d 10 0e 10 dc 20  32 2c 31 39 2c 32 30 2c  |21..... 2,19,20,|
00002390  31 39 0d 10 18 04 0d 10  22 19 e3 20 77 25 3d 30  |19......".. w%=0|
000023a0  20 b8 20 6d 61 78 5f 77  69 6e 64 6f 77 73 25 0d  | . max_windows%.|
000023b0  10 2c 29 f3 20 77 6c 78  25 28 77 25 29 2c 77 62  |.,). wlx%(w%),wb|
000023c0  79 25 28 77 25 29 2c 77  72 78 25 28 77 25 29 2c  |y%(w%),wrx%(w%),|
000023d0  77 74 79 25 28 77 25 29  0d 10 36 05 ed 0d 10 40  |wty%(w%)..6....@|
000023e0  04 0d 10 4a 0d f2 61 73  73 65 6d 62 6c 65 0d 10  |...J..assemble..|
000023f0  54 0c 66 69 6c 65 24 3d  22 22 0d 10 5e 0e 73 6f  |T.file$=""..^.so|
00002400  75 72 63 65 24 3d 22 22  0d 10 68 07 ea 20 85 0d  |urce$=""..h.. ..|
00002410  10 72 24 ee 20 85 20 ea  20 66 69 6c 65 24 3d 22  |.r$. . . file$="|
00002420  22 3a 73 6f 75 72 63 65  24 3d 22 22 3a e5 20 8d  |":source$="":. .|
00002430  64 74 50 0d 10 7c 07 eb  31 35 0d 10 86 1d c8 99  |dtP..|..15......|
00002440  20 22 4f 53 5f 47 65 74  45 6e 76 22 20 b8 20 72  | "OS_GetEnv" . r|
00002450  30 2c 72 31 2c 72 32 0d  10 90 09 41 24 3d 22 22  |0,r1,r2....A$=""|
00002460  0d 10 9a 26 e7 20 3f 72  30 3c 3e 30 20 8c 20 41  |...&. ?r0<>0 . A|
00002470  24 2b 3d bd 28 3f 72 30  29 3a 72 30 2b 3d 31 3a  |$+=.(?r0):r0+=1:|
00002480  e5 20 8d 74 5a 50 0d 10  a4 2d e7 20 a7 41 24 2c  |. .tZP...-. .A$,|
00002490  22 20 22 29 3c 3e 30 20  8c 20 41 24 3d c1 41 24  |" ")<>0 . A$=.A$|
000024a0  2c a7 41 24 2c 22 20 22  29 2b 31 29 3a e5 20 8d  |,.A$," ")+1):. .|
000024b0  74 64 50 0d 10 ae 0e e7  20 41 24 3c 3e 22 22 20  |tdP..... A$<>"" |
000024c0  8c 0d 10 b8 20 c8 99 20  22 4f 53 5f 46 69 6c 65  |.... .. "OS_File|
000024d0  22 2c 35 2c 41 24 20 b8  20 72 30 2c 72 31 2c 72  |",5,A$ . r0,r1,r|
000024e0  32 0d 10 c2 0c e7 20 72  30 3d 31 20 8c 0d 10 cc  |2..... r0=1 ....|
000024f0  46 e7 20 28 28 72 32 20  80 20 26 46 46 46 30 30  |F. ((r2 . &FFF00|
00002500  30 30 30 29 3d 26 46 46  46 30 30 30 30 30 29 20  |000)=&FFF00000) |
00002510  80 20 28 28 72 32 20 80  20 26 46 46 46 30 30 29  |. ((r2 . &FFF00)|
00002520  3d 26 44 37 44 30 30 29  20 8c 20 66 69 6c 65 24  |=&D7D00) . file$|
00002530  3d 41 24 0d 10 d6 48 e7  20 28 28 72 32 20 80 20  |=A$...H. ((r2 . |
00002540  26 46 46 46 30 30 30 30  30 29 3d 26 46 46 46 30  |&FFF00000)=&FFF0|
00002550  30 30 30 30 29 20 80 20  28 28 72 32 20 80 20 26  |0000) . ((r2 . &|
00002560  46 46 46 30 30 29 3d 26  44 32 42 30 30 29 20 8c  |FFF00)=&D2B00) .|
00002570  20 73 6f 75 72 63 65 24  3d 41 24 0d 10 e0 05 cd  | source$=A$.....|
00002580  0d 10 ea 05 cd 0d 10 f4  07 f7 20 85 0d 10 fe 24  |.......... ....$|
00002590  e7 20 66 69 6c 65 24 3c  3e 22 22 20 84 20 73 6f  |. file$<>"" . so|
000025a0  75 72 63 65 24 3c 3e 22  22 20 8c 20 ef 20 32 31  |urce$<>"" . . 21|
000025b0  0d 11 08 26 e7 20 66 69  6c 65 24 3d 22 22 20 80  |...&. file$="" .|
000025c0  20 73 6f 75 72 63 65 24  3d 22 22 20 8c 20 f2 64  | source$="" . .d|
000025d0  69 73 70 6c 61 79 0d 11  12 12 f2 75 70 64 61 74  |isplay.....updat|
000025e0  65 5f 64 72 69 76 65 73  0d 11 1c 16 70 61 74 68  |e_drives....path|
000025f0  24 3d a4 64 5f 6e 61 6d  65 28 64 72 25 29 0d 11  |$=.d_name(dr%)..|
00002600  26 15 f2 75 70 64 61 74  65 5f 64 69 72 65 63 74  |&..update_direct|
00002610  6f 72 79 0d 11 30 10 f2  75 70 64 61 74 65 5f 74  |ory..0..update_t|
00002620  65 78 74 0d 11 3a 07 ef  20 36 0d 11 44 05 e1 0d  |ext..:.. 6..D...|
00002630  11 4e 04 0d 11 58 11 dd  a4 64 5f 6e 61 6d 65 28  |.N...X...d_name(|
00002640  64 72 25 29 0d 11 62 13  ff 22 44 49 52 20 3a 22  |dr%)..b.."DIR :"|
00002650  2b c3 28 64 72 25 29 0d  11 6c 16 c8 99 20 22 4f  |+.(dr%)..l... "O|
00002660  53 5f 47 42 50 42 22 2c  35 2c 2c 62 25 0d 11 76  |S_GBPB",5,,b%..v|
00002670  15 6e 24 3d 22 22 3a e3  20 52 3d 31 20 b8 20 3f  |.n$="":. R=1 . ?|
00002680  62 25 0d 11 80 14 6e 24  2b 3d bd 28 3f 28 62 25  |b%....n$+=.(?(b%|
00002690  2b 52 29 29 3a ed 0d 11  8a 18 e7 6e 24 3d 22 22  |+R)):......n$=""|
000026a0  84 97 6e 24 3c 33 33 6e  24 3d c3 64 72 25 0d 11  |..n$<33n$=.dr%..|
000026b0  94 15 3d 22 61 64 66 73  3a 3a 22 2b 6e 24 2b 22  |..="adfs::"+n$+"|
000026c0  2e 24 22 0d 11 9e 04 0d  11 a8 16 dd f2 75 70 64  |.$"..........upd|
000026d0  61 74 65 5f 64 69 72 65  63 74 6f 72 79 0d 11 b2  |ate_directory...|
000026e0  0e 64 69 72 5f 70 6f 73  25 3d 30 0d 11 bc 0e 73  |.dir_pos%=0....s|
000026f0  70 72 5f 70 6f 73 25 3d  30 0d 11 c6 0e 73 6f 75  |pr_pos%=0....sou|
00002700  5f 70 6f 73 25 3d 30 0d  11 d0 0e 6f 62 6a 5f 70  |_pos%=0....obj_p|
00002710  6f 73 25 3d 30 0d 11 da  0d 6d 61 78 64 69 72 25  |os%=0....maxdir%|
00002720  3d 30 0d 11 e4 0d 6d 61  78 73 70 72 25 3d 30 0d  |=0....maxspr%=0.|
00002730  11 ee 0d 6d 61 78 73 6f  75 25 3d 30 0d 11 f8 0d  |...maxsou%=0....|
00002740  6d 61 78 6f 62 6a 25 3d  30 0d 12 02 0b 72 65 61  |maxobj%=0....rea|
00002750  64 25 3d 30 0d 12 0c 05  f5 0d 12 16 40 20 20 c8  |d%=0........@  .|
00002760  99 20 22 4f 53 5f 47 42  50 42 22 2c 31 30 2c 70  |. "OS_GBPB",10,p|
00002770  61 74 68 24 2b bd 28 30  29 2c 62 25 2c 31 2c 72  |ath$+.(0),b%,1,r|
00002780  65 61 64 25 2c 31 30 32  34 2c 22 2a 22 20 b8 20  |ead%,1024,"*" . |
00002790  2c 2c 2c 2c 72 65 61 64  25 0d 12 20 12 20 20 e7  |,,,,read%.. .  .|
000027a0  20 72 65 61 64 25 3e 2d  31 20 8c 0d 12 2a 12 20  | read%>-1 ...*. |
000027b0  20 20 20 6c 6f 61 64 25  3d 62 25 21 30 0d 12 34  |   load%=b%!0..4|
000027c0  29 20 20 20 20 e7 20 28  6c 6f 61 64 25 20 80 20  |)    . (load% . |
000027d0  26 46 46 46 30 30 30 30  30 29 3d 26 46 46 46 30  |&FFF00000)=&FFF0|
000027e0  30 30 30 30 20 8c 0d 12  3e 17 20 20 20 20 20 20  |0000 ...>.      |
000027f0  6e 61 6d 65 24 3d 22 22  3a 63 25 3d 30 0d 12 48  |name$="":c%=0..H|
00002800  0b 20 20 20 20 20 20 f5  0d 12 52 22 20 20 20 20  |.      ...R"    |
00002810  20 20 20 20 6e 61 6d 65  24 2b 3d bd 28 3f 28 62  |    name$+=.(?(b|
00002820  25 2b 63 25 2b 26 31 34  29 29 0d 12 5c 11 20 20  |%+c%+&14))..\.  |
00002830  20 20 20 20 20 20 63 25  2b 3d 31 0d 12 66 3e 20  |      c%+=1..f> |
00002840  20 20 20 20 20 fd 20 3f  28 62 25 2b 63 25 2b 26  |     . ?(b%+c%+&|
00002850  31 34 29 3d 30 20 84 20  3f 28 62 25 2b 63 25 2b  |14)=0 . ?(b%+c%+|
00002860  26 31 34 29 3d 31 33 20  84 20 3f 28 62 25 2b 63  |&14)=13 . ?(b%+c|
00002870  25 2b 26 31 34 29 3d 31  30 0d 12 70 1b 20 20 20  |%+&14)=10..p.   |
00002880  20 20 20 f4 20 6e 61 6d  65 24 2b 3d 43 48 52 24  |   . name$+=CHR$|
00002890  28 31 33 29 0d 12 7a 19  20 20 20 20 20 20 e7 20  |(13)..z.      . |
000028a0  21 28 62 25 2b 26 31 30  29 3d 31 20 8c 0d 12 84  |!(b%+&10)=1 ....|
000028b0  24 20 20 20 20 20 20 20  20 c8 8e 20 28 6c 6f 61  |$        .. (loa|
000028c0  64 25 20 80 20 26 46 46  46 30 30 29 3e 3e 38 20  |d% . &FFF00)>>8 |
000028d0  ca 0d 12 8e 35 20 20 20  20 20 20 20 20 20 c9 20  |....5         . |
000028e0  26 44 37 46 3a 73 70 72  69 74 65 24 28 6d 61 78  |&D7F:sprite$(max|
000028f0  73 70 72 25 29 3d 6e 61  6d 65 24 3a 6d 61 78 73  |spr%)=name$:maxs|
00002900  70 72 25 2b 3d 31 0d 12  98 35 20 20 20 20 20 20  |pr%+=1...5      |
00002910  20 20 20 c9 20 73 74 70  25 3a 73 6f 75 72 63 65  |   . stp%:source|
00002920  24 28 6d 61 78 73 6f 75  25 29 3d 6e 61 6d 65 24  |$(maxsou%)=name$|
00002930  3a 6d 61 78 73 6f 75 25  2b 3d 31 0d 12 a2 35 20  |:maxsou%+=1...5 |
00002940  20 20 20 20 20 20 20 20  c9 20 26 44 37 44 3a 6f  |        . &D7D:o|
00002950  62 6a 65 63 74 24 28 6d  61 78 6f 62 6a 25 29 3d  |bject$(maxobj%)=|
00002960  6e 61 6d 65 24 3a 6d 61  78 6f 62 6a 25 2b 3d 31  |name$:maxobj%+=1|
00002970  0d 12 ac 0d 20 20 20 20  20 20 20 20 cb 0d 12 b6  |....        ....|
00002980  0b 20 20 20 20 20 20 cd  0d 12 c0 3e 20 20 20 20  |.      ....>    |
00002990  20 20 e7 20 21 28 62 25  2b 26 31 30 29 3d 32 20  |  . !(b%+&10)=2 |
000029a0  8c 20 64 69 72 65 63 74  6f 72 79 24 28 6d 61 78  |. directory$(max|
000029b0  64 69 72 25 29 3d 6e 61  6d 65 24 3a 6d 61 78 64  |dir%)=name$:maxd|
000029c0  69 72 25 2b 3d 31 0d 12  ca 09 20 20 20 20 cd 0d  |ir%+=1....    ..|
000029d0  12 d4 07 20 20 cd 0d 12  de 0e fd 20 72 65 61 64  |...  ...... read|
000029e0  25 3d 2d 31 0d 12 e8 04  0d 12 f2 2a e3 20 52 25  |%=-1.......*. R%|
000029f0  3d 6d 61 78 64 69 72 25  20 b8 20 32 35 35 3a 64  |=maxdir% . 255:d|
00002a00  69 72 65 63 74 6f 72 79  24 28 52 25 29 3d 22 22  |irectory$(R%)=""|
00002a10  3a ed 0d 12 fc 27 e3 20  52 25 3d 6d 61 78 73 70  |:....'. R%=maxsp|
00002a20  72 25 20 b8 20 32 35 35  3a 73 70 72 69 74 65 24  |r% . 255:sprite$|
00002a30  28 52 25 29 3d 22 22 3a  ed 0d 13 06 27 e3 20 52  |(R%)="":....'. R|
00002a40  25 3d 6d 61 78 73 6f 75  25 20 b8 20 32 35 35 3a  |%=maxsou% . 255:|
00002a50  73 6f 75 72 63 65 24 28  52 25 29 3d 22 22 3a ed  |source$(R%)="":.|
00002a60  0d 13 10 27 e3 20 52 25  3d 6d 61 78 6f 62 6a 25  |...'. R%=maxobj%|
00002a70  20 b8 20 32 35 35 3a 6f  62 6a 65 63 74 24 28 52  | . 255:object$(R|
00002a80  25 29 3d 22 22 3a ed 0d  13 1a 13 f2 63 6c 65 61  |%)="":......clea|
00002a90  72 77 69 6e 64 6f 77 28  30 29 0d 13 24 0a f1 70  |rwindow(0)..$..p|
00002aa0  61 74 68 24 0d 13 2e 0f  f2 75 70 64 61 74 65 5f  |ath$.....update_|
00002ab0  64 69 72 0d 13 38 0f f2  75 70 64 61 74 65 5f 73  |dir..8..update_s|
00002ac0  70 72 0d 13 42 0f f2 75  70 64 61 74 65 5f 73 6f  |pr..B..update_so|
00002ad0  75 0d 13 4c 0f f2 75 70  64 61 74 65 5f 6f 62 6a  |u..L..update_obj|
00002ae0  0d 13 56 05 e1 0d 13 60  04 0d 13 6a 10 dd f2 75  |..V....`...j...u|
00002af0  70 64 61 74 65 5f 64 69  72 0d 13 74 13 f2 63 6c  |pdate_dir..t..cl|
00002b00  65 61 72 77 69 6e 64 6f  77 28 32 29 0d 13 7e 0f  |earwindow(2)..~.|
00002b10  e3 20 52 25 3d 30 20 b8  20 31 38 0d 13 88 1d f1  |. R%=0 . 18.....|
00002b20  64 69 72 65 63 74 6f 72  79 24 28 64 69 72 5f 70  |directory$(dir_p|
00002b30  6f 73 25 2b 52 25 29 3b  0d 13 92 14 e7 20 52 25  |os%+R%);..... R%|
00002b40  3c 31 38 20 8c 20 f1 bd  28 31 33 29 0d 13 9c 05  |<18 . ..(13)....|
00002b50  ed 0d 13 a6 05 e1 0d 13  b0 04 0d 13 ba 10 dd f2  |................|
00002b60  75 70 64 61 74 65 5f 73  70 72 0d 13 c4 13 f2 63  |update_spr.....c|
00002b70  6c 65 61 72 77 69 6e 64  6f 77 28 33 29 0d 13 ce  |learwindow(3)...|
00002b80  0f e3 20 52 25 3d 30 20  b8 20 31 38 0d 13 d8 1a  |.. R%=0 . 18....|
00002b90  f1 73 70 72 69 74 65 24  28 73 70 72 5f 70 6f 73  |.sprite$(spr_pos|
00002ba0  25 2b 52 25 29 3b 0d 13  e2 14 e7 20 52 25 3c 31  |%+R%);..... R%<1|
00002bb0  38 20 8c 20 f1 bd 28 31  33 29 0d 13 ec 05 ed 0d  |8 . ..(13)......|
00002bc0  13 f6 05 e1 0d 14 00 04  0d 14 0a 10 dd f2 75 70  |..............up|
00002bd0  64 61 74 65 5f 73 6f 75  0d 14 14 13 f2 63 6c 65  |date_sou.....cle|
00002be0  61 72 77 69 6e 64 6f 77  28 34 29 0d 14 1e 0e e3  |arwindow(4).....|
00002bf0  20 52 25 3d 30 20 b8 20  37 0d 14 28 1a f1 73 6f  | R%=0 . 7..(..so|
00002c00  75 72 63 65 24 28 73 6f  75 5f 70 6f 73 25 2b 52  |urce$(sou_pos%+R|
00002c10  25 29 3b 0d 14 32 13 e7  20 52 25 3c 37 20 8c 20  |%);..2.. R%<7 . |
00002c20  f1 bd 28 31 33 29 0d 14  3c 05 ed 0d 14 46 05 e1  |..(13)..<....F..|
00002c30  0d 14 50 04 0d 14 5a 10  dd f2 75 70 64 61 74 65  |..P...Z...update|
00002c40  5f 6f 62 6a 0d 14 64 13  f2 63 6c 65 61 72 77 69  |_obj..d..clearwi|
00002c50  6e 64 6f 77 28 35 29 0d  14 6e 0e e3 20 52 25 3d  |ndow(5)..n.. R%=|
00002c60  30 20 b8 20 38 0d 14 78  1a f1 6f 62 6a 65 63 74  |0 . 8..x..object|
00002c70  24 28 6f 62 6a 5f 70 6f  73 25 2b 52 25 29 3b 0d  |$(obj_pos%+R%);.|
00002c80  14 82 13 e7 20 52 25 3c  38 20 8c 20 f1 bd 28 31  |.... R%<8 . ..(1|
00002c90  33 29 0d 14 8c 05 ed 0d  14 96 05 e1 0d 14 a0 04  |3)..............|
00002ca0  0d 14 aa 11 dd f2 75 70  64 61 74 65 5f 74 65 78  |......update_tex|
00002cb0  74 0d 14 b4 2a ef 20 32  38 2c 77 6c 78 25 28 36  |t...*. 28,wlx%(6|
00002cc0  29 2c 77 62 79 25 28 36  29 2c 77 72 78 25 28 36  |),wby%(6),wrx%(6|
00002cd0  29 2b 31 2c 77 74 79 25  28 36 29 0d 14 be 0b f1  |)+1,wty%(6).....|
00002ce0  8a 30 2c 30 29 3b 0d 14  c8 0f e7 20 78 63 75 72  |.0,0);..... xcur|
00002cf0  25 3c 30 20 8c 0d 14 d2  0f e7 20 79 63 75 72 25  |%<0 ...... ycur%|
00002d00  3d 30 20 8c 0d 14 dc 0b  78 63 75 72 25 3d 30 0d  |=0 .....xcur%=0.|
00002d10  14 e6 05 cc 0d 14 f0 46  79 63 75 72 25 2d 3d 31  |.......Fycur%-=1|
00002d20  3a 41 25 3d 79 63 75 72  25 3a d6 20 66 69 6e 64  |:A%=ycur%:. find|
00002d30  5f 74 65 78 74 3a e7 20  21 6f 75 74 3d 2d 31 20  |_text:. !out=-1 |
00002d40  8c 20 78 63 75 72 25 3d  30 20 8b 20 78 63 75 72  |. xcur%=0 . xcur|
00002d50  25 3d a9 28 24 21 6f 75  74 29 0d 14 fa 05 cd 0d  |%=.($!out)......|
00002d60  15 04 05 cd 0d 15 0e 23  e7 20 78 63 75 72 25 2d  |.......#. xcur%-|
00002d70  34 3c 78 70 6f 73 25 20  8c 20 78 70 6f 73 25 3d  |4<xpos% . xpos%=|
00002d80  78 63 75 72 25 2d 34 0d  15 18 25 e7 20 78 63 75  |xcur%-4...%. xcu|
00002d90  72 25 3e 78 70 6f 73 25  2b 32 39 20 8c 20 78 70  |r%>xpos%+29 . xp|
00002da0  6f 73 25 3d 78 63 75 72  25 2d 32 39 0d 15 22 23  |os%=xcur%-29.."#|
00002db0  e7 20 79 63 75 72 25 2d  32 3c 79 70 6f 73 25 20  |. ycur%-2<ypos% |
00002dc0  8c 20 79 70 6f 73 25 3d  79 63 75 72 25 2d 32 0d  |. ypos%=ycur%-2.|
00002dd0  15 2c 23 e7 20 79 63 75  72 25 3e 79 70 6f 73 25  |.,#. ycur%>ypos%|
00002de0  2b 38 20 8c 20 79 70 6f  73 25 3d 79 63 75 72 25  |+8 . ypos%=ycur%|
00002df0  2d 38 0d 15 36 17 e7 20  78 70 6f 73 25 3c 30 20  |-8..6.. xpos%<0 |
00002e00  8c 20 78 70 6f 73 25 3d  30 0d 15 40 17 e7 20 79  |. xpos%=0..@.. y|
00002e10  70 6f 73 25 3c 30 20 8c  20 79 70 6f 73 25 3d 30  |pos%<0 . ypos%=0|
00002e20  0d 15 4a 15 41 25 3d 78  70 6f 73 25 3a 42 25 3d  |..J.A%=xpos%:B%=|
00002e30  79 70 6f 73 25 0d 15 54  0f d6 20 70 72 69 6e 74  |ypos%..T.. print|
00002e40  74 65 78 74 0d 15 5e 11  e6 20 33 2c 36 33 20 c8  |text..^.. 3,63 .|
00002e50  9c 20 31 39 32 0d 15 68  3c c8 93 20 c8 90 20 31  |. 192..h<.. .. 1|
00002e60  36 2b 28 78 63 75 72 25  2d 78 70 6f 73 25 2b 31  |6+(xcur%-xpos%+1|
00002e70  29 2a 31 36 2c 33 32 30  2d 28 79 63 75 72 25 2d  |)*16,320-(ycur%-|
00002e80  79 70 6f 73 25 2b 31 29  2a 33 32 2c 31 35 2c 33  |ypos%+1)*32,15,3|
00002e90  31 0d 15 72 14 f2 63 6c  65 61 72 77 69 6e 64 6f  |1..r..clearwindo|
00002ea0  77 28 32 31 29 0d 15 7c  10 f1 c3 28 79 63 75 72  |w(21)..|...(ycur|
00002eb0  25 2b 31 29 3b 0d 15 86  16 f1 8a 31 30 2c 30 29  |%+1);......10,0)|
00002ec0  c3 28 78 63 75 72 25 2b  31 29 3b 0d 15 90 05 e1  |.(xcur%+1);.....|
00002ed0  0d 15 9a 04 0d 15 a4 13  dd f2 75 70 64 61 74 65  |..........update|
00002ee0  5f 64 72 69 76 65 73 0d  15 ae 1b e3 20 52 3d 30  |_drives..... R=0|
00002ef0  20 b8 20 37 3a 64 72 69  76 65 28 52 29 3d 2d 31  | . 7:drive(R)=-1|
00002f00  3a ed 0d 15 b8 10 6d 61  78 64 72 69 76 65 73 25  |:.....maxdrives%|
00002f10  3d 30 0d 15 c2 13 f2 63  6c 65 61 72 77 69 6e 64  |=0.....clearwind|
00002f20  6f 77 28 31 29 0d 15 cc  22 c8 99 20 22 41 44 46  |ow(1)...".. "ADF|
00002f30  53 5f 44 72 69 76 65 73  22 20 b8 20 64 72 25 2c  |S_Drives" . dr%,|
00002f40  66 6c 25 2c 68 64 25 0d  15 d6 0d e7 20 66 6c 25  |fl%,hd%..... fl%|
00002f50  3e 30 20 8c 0d 15 e0 10  e3 20 52 25 3d 31 20 b8  |>0 ...... R%=1 .|
00002f60  20 66 6c 25 0d 15 ea 16  f1 22 44 72 69 76 65 20  | fl%....."Drive |
00002f70  3a 22 3b c3 28 52 25 2d  31 29 0d 15 f4 28 64 72  |:";.(R%-1)...(dr|
00002f80  69 76 65 28 6d 61 78 64  72 69 76 65 73 25 29 3d  |ive(maxdrives%)=|
00002f90  52 25 2d 31 3a 6d 61 78  64 72 69 76 65 73 25 2b  |R%-1:maxdrives%+|
00002fa0  3d 31 0d 15 fe 05 ed 0d  16 08 05 cd 0d 16 12 0d  |=1..............|
00002fb0  e7 20 68 64 25 3e 30 20  8c 0d 16 1c 10 e3 20 52  |. hd%>0 ...... R|
00002fc0  25 3d 31 20 b8 20 68 64  25 0d 16 26 16 f1 22 44  |%=1 . hd%..&.."D|
00002fd0  72 69 76 65 20 3a 22 3b  c3 28 52 25 2b 33 29 0d  |rive :";.(R%+3).|
00002fe0  16 30 28 64 72 69 76 65  28 6d 61 78 64 72 69 76  |.0(drive(maxdriv|
00002ff0  65 73 25 29 3d 52 25 2b  33 3a 6d 61 78 64 72 69  |es%)=R%+3:maxdri|
00003000  76 65 73 25 2b 3d 31 0d  16 3a 05 ed 0d 16 44 05  |ves%+=1..:....D.|
00003010  cd 0d 16 4e 05 e1 0d 16  58 04 0d 16 62 16 dd 20  |...N....X...b.. |
00003020  f2 63 6c 65 61 72 77 69  6e 64 6f 77 28 77 25 29  |.clearwindow(w%)|
00003030  0d 16 6c 2c ef 20 32 38  2c 77 6c 78 25 28 77 25  |..l,. 28,wlx%(w%|
00003040  29 2c 77 62 79 25 28 77  25 29 2c 77 72 78 25 28  |),wby%(w%),wrx%(|
00003050  77 25 29 2c 77 74 79 25  28 77 25 29 0d 16 76 05  |w%),wty%(w%)..v.|
00003060  db 0d 16 80 37 e7 20 77  25 3d 36 20 8c 20 ef 20  |....7. w%=6 . . |
00003070  32 38 2c 77 6c 78 25 28  77 25 29 2c 77 62 79 25  |28,wlx%(w%),wby%|
00003080  28 77 25 29 2c 77 72 78  25 28 77 25 29 2b 31 2c  |(w%),wrx%(w%)+1,|
00003090  77 74 79 25 28 77 25 29  0d 16 8a 05 e1 0d 16 94  |wty%(w%)........|
000030a0  04 0d 16 9e 0d dd 20 a4  77 69 6e 64 6f 77 0d 16  |...... .window..|
000030b0  a8 38 f4 20 72 65 74 75  72 6e 73 20 74 68 65 20  |.8. returns the |
000030c0  68 61 6e 64 6c 65 20 6f  66 20 74 68 65 20 77 69  |handle of the wi|
000030d0  6e 64 6f 77 20 75 6e 64  65 72 20 74 68 65 20 70  |ndow under the p|
000030e0  6f 69 6e 74 65 72 0d 16  b2 08 77 25 3d 30 0d 16  |ointer....w%=0..|
000030f0  bc 0f c8 97 20 4d 58 2c  4d 59 2c 4d 42 0d 16 c6  |.... MX,MY,MB...|
00003100  0e 43 58 3d 4d 58 20 81  20 31 36 0d 16 d0 13 43  |.CX=MX . 16....C|
00003110  59 3d 28 31 30 32 33 2d  4d 59 29 81 33 32 0d 16  |Y=(1023-MY).32..|
00003120  da 05 f5 0d 16 e4 63 e7  20 43 58 3e 3d 77 6c 78  |......c. CX>=wlx|
00003130  25 28 77 25 29 20 80 20  43 59 3c 3d 77 62 79 25  |%(w%) . CY<=wby%|
00003140  28 77 25 29 20 80 20 43  58 3c 3d 77 72 78 25 28  |(w%) . CX<=wrx%(|
00003150  77 25 29 20 80 20 43 59  3e 3d 77 74 79 25 28 77  |w%) . CY>=wty%(w|
00003160  25 29 20 8c 20 4d 48 3d  43 59 2d 77 74 79 25 28  |%) . MH=CY-wty%(|
00003170  77 25 29 3a 4d 57 3d 43  58 2d 77 6c 78 25 28 77  |w%):MW=CX-wlx%(w|
00003180  25 29 3a 3d 77 25 0d 16  ee 09 77 25 2b 3d 31 0d  |%):=w%....w%+=1.|
00003190  16 f8 17 fd 20 77 25 3d  6d 61 78 5f 77 69 6e 64  |.... w%=max_wind|
000031a0  6f 77 73 25 2b 31 0d 17  02 13 4d 48 3d 2d 31 3a  |ows%+1....MH=-1:|
000031b0  4d 57 3d 2d 31 3a 3d 2d  31 0d 17 0c 04 0d 17 16  |MW=-1:=-1.......|
000031c0  0b dd f2 65 72 72 6f 72  0d 17 20 0e e7 20 9f 3d  |...error.. .. .=|
000031d0  31 37 20 8c 20 e1 0d 17  2a 13 fb 20 31 32 38 2b  |17 . ...*.. 128+|
000031e0  31 35 20 c8 9c 20 31 32  38 0d 17 34 13 f2 63 6c  |15 .. 128..4..cl|
000031f0  65 61 72 77 69 6e 64 6f  77 28 30 29 0d 17 3e 16  |earwindow(0)..>.|
00003200  f1 f6 24 3b 22 20 61 74  20 6c 69 6e 65 20 22 3b  |..$;" at line ";|
00003210  9e 3b 0d 17 48 14 f5 3a  c8 97 20 58 2c 59 2c 42  |.;..H..:.. X,Y,B|
00003220  3a fd 20 42 3d 30 0d 17  52 1f f5 3a c8 97 20 58  |:. B=0..R..:.. X|
00003230  2c 59 2c 42 3a fd 20 42  3e 30 20 84 20 bf 28 30  |,Y,B:. B>0 . .(0|
00003240  29 3c 3e 22 22 0d 17 5c  14 f5 3a c8 97 20 58 2c  |)<>""..\..:.. X,|
00003250  59 2c 42 3a fd 20 42 3d  30 0d 17 66 10 fb 20 31  |Y,B:. B=0..f.. 1|
00003260  33 38 20 c8 9c 20 31 39  32 0d 17 70 13 f2 63 6c  |38 .. 192..p..cl|
00003270  65 61 72 77 69 6e 64 6f  77 28 30 29 0d 17 7a 0a  |earwindow(0)..z.|
00003280  f1 70 61 74 68 24 0d 17  84 05 e1 0d 17 8e 04 0d  |.path$..........|
00003290  17 98 0e dd f2 61 73 73  65 6d 62 6c 65 0d 17 a2  |.....assemble...|
000032a0  0e de 63 6f 64 65 25 34  30 30 30 0d 17 ac 12 e3  |..code%4000.....|
000032b0  50 41 53 53 3d 30 20 b8  20 32 20 88 32 0d 17 b6  |PASS=0 . 2 .2...|
000032c0  0c 50 25 3d 63 6f 64 65  25 0d 17 c0 0c 5b 4f 50  |.P%=code%....[OP|
000032d0  54 50 41 53 53 0d 17 ca  11 2e 63 6f 75 6e 74 3a  |TPASS.....count:|
000032e0  45 51 55 44 20 30 0d 17  d4 11 2e 6d 6f 64 65 20  |EQUD 0.....mode |
000032f0  3a 45 51 55 44 20 30 0d  17 de 17 2e 62 75 66 66  |:EQUD 0.....buff|
00003300  20 3a 45 51 55 44 20 62  75 66 66 65 72 25 0d 17  | :EQUD buffer%..|
00003310  e8 13 2e 66 73 63 72 20  3a 45 51 55 44 20 31 34  |...fscr :EQUD 14|
00003320  38 0d 17 f2 12 20 20 20  20 20 20 3a 45 51 55 44  |8....      :EQUD|
00003330  20 2d 31 0d 17 fc 11 2e  73 63 72 61 64 3a 45 51  | -1.....scrad:EQ|
00003340  55 44 20 30 0d 18 06 04  0d 18 10 1b 3b 2d 2d 2d  |UD 0........;---|
00003350  53 45 51 55 45 4e 43 49  4e 47 20 55 54 49 4c 53  |SEQUENCING UTILS|
00003360  2d 2d 2d 0d 18 1a 04 0d  18 24 13 2e 75 70 64 61  |---......$..upda|
00003370  74 65 5f 63 6f 6d 70 61  72 65 0d 18 2e 19 3b 6d  |te_compare....;m|
00003380  75 73 74 20 62 65 20 63  61 6c 6c 65 64 20 46 49  |ust be called FI|
00003390  52 53 54 0d 18 38 0f 41  44 52 20 52 30 2c 66 73  |RST..8.ADR R0,fs|
000033a0  63 72 0d 18 42 10 41 44  52 20 52 31 2c 73 63 72  |cr..B.ADR R1,scr|
000033b0  61 64 0d 18 4c 1d 53 57  49 20 22 4f 53 5f 52 65  |ad..L.SWI "OS_Re|
000033c0  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 0d  |adVduVariables".|
000033d0  18 56 10 4c 44 52 20 52  30 2c 73 63 72 61 64 0d  |.V.LDR R0,scrad.|
000033e0  18 60 0f 4c 44 52 20 52  31 2c 6d 6f 64 65 0d 18  |.`.LDR R1,mode..|
000033f0  6a 1e 43 4d 50 20 52 31  2c 23 31 35 3a ec 51 20  |j.CMP R1,#15:.Q |
00003400  52 31 2c 23 26 32 38 30  30 30 2f 34 0d 18 74 21  |R1,#&28000/4..t!|
00003410  20 20 20 20 20 20 20 20  20 20 3a 4d 4f 56 4e 45  |          :MOVNE|
00003420  20 52 31 2c 23 26 31 34  30 30 30 2f 34 0d 18 7e  | R1,#&14000/4..~|
00003430  0f 4c 44 52 20 52 32 2c  62 75 66 66 0d 18 88 07  |.LDR R2,buff....|
00003440  2e 6c 31 0d 18 92 21 4c  44 52 20 52 33 2c 5b 52  |.l1...!LDR R3,[R|
00003450  30 5d 2c 23 34 3a 53 54  52 20 52 33 2c 5b 52 32  |0],#4:STR R3,[R2|
00003460  5d 2c 23 34 0d 18 9c 18  53 55 42 53 20 52 31 2c  |],#4....SUBS R1,|
00003470  52 31 2c 23 31 3a 42 4e  45 20 6c 31 0d 18 a6 0e  |R1,#1:BNE l1....|
00003480  4d 4f 56 20 50 43 2c 52  31 34 0d 18 b0 04 0d 18  |MOV PC,R14......|
00003490  ba 0f 2e 72 65 73 65 74  5f 70 61 67 65 0d 18 c4  |...reset_page...|
000034a0  0f 41 44 52 20 52 30 2c  66 73 63 72 0d 18 ce 10  |.ADR R0,fscr....|
000034b0  41 44 52 20 52 31 2c 73  63 72 61 64 0d 18 d8 1d  |ADR R1,scrad....|
000034c0  53 57 49 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |SWI "OS_ReadVduV|
000034d0  61 72 69 61 62 6c 65 73  22 0d 18 e2 10 4c 44 52  |ariables"....LDR|
000034e0  20 52 30 2c 73 63 72 61  64 0d 18 ec 0f 4c 44 52  | R0,scrad....LDR|
000034f0  20 52 31 2c 6d 6f 64 65  0d 18 f6 1e 43 4d 50 20  | R1,mode....CMP |
00003500  52 31 2c 23 31 35 3a ec  51 20 52 31 2c 23 26 32  |R1,#15:.Q R1,#&2|
00003510  38 30 30 30 2f 34 0d 19  00 21 20 20 20 20 20 20  |8000/4...!      |
00003520  20 20 20 20 3a 4d 4f 56  4e 45 20 52 31 2c 23 26  |    :MOVNE R1,#&|
00003530  31 34 30 30 30 2f 34 0d  19 0a 0f 4c 44 52 20 52  |14000/4....LDR R|
00003540  32 2c 62 75 66 66 0d 19  14 07 2e 6c 31 0d 19 1e  |2,buff.....l1...|
00003550  21 4c 44 52 20 52 33 2c  5b 52 32 5d 2c 23 34 3a  |!LDR R3,[R2],#4:|
00003560  53 54 52 20 52 33 2c 5b  52 30 5d 2c 23 34 0d 19  |STR R3,[R0],#4..|
00003570  28 18 53 55 42 53 20 52  31 2c 52 31 2c 23 31 3a  |(.SUBS R1,R1,#1:|
00003580  42 4e 45 20 6c 31 0d 19  32 0e 4d 4f 56 20 50 43  |BNE l1..2.MOV PC|
00003590  2c 52 31 34 0d 19 3c 04  0d 19 46 13 2e 63 6f 6d  |,R14..<...F..com|
000035a0  70 61 72 65 5f 73 63 72  65 65 6e 0d 19 50 17 53  |pare_screen..P.S|
000035b0  54 4d 46 44 20 52 31 33  21 2c 7b 52 38 2d 52 31  |TMFD R13!,{R8-R1|
000035c0  32 7d 0d 19 5a 10 4c 44  52 20 52 30 2c 73 63 72  |2}..Z.LDR R0,scr|
000035d0  61 64 0d 19 64 21 4c 44  52 20 52 37 2c 62 75 66  |ad..d!LDR R7,buf|
000035e0  66 3a 41 44 44 20 52 37  2c 52 37 2c 23 26 32 38  |f:ADD R7,R7,#&28|
000035f0  30 30 30 0d 19 6e 29 20  20 20 20 20 20 20 20 20  |000..n)         |
00003600  20 20 20 41 44 44 20 52  37 2c 52 37 2c 23 38 20  |   ADD R7,R7,#8 |
00003610  3b 68 65 61 64 65 72 20  69 6e 66 6f 0d 19 78 0f  |;header info..x.|
00003620  4c 44 52 20 52 31 2c 6d  6f 64 65 0d 19 82 3e 43  |LDR R1,mode...>C|
00003630  4d 50 20 52 31 2c 23 31  35 3a ec 51 20 52 31 2c  |MP R1,#15:.Q R1,|
00003640  23 26 32 38 30 30 30 2f  34 3a 41 44 44 45 51 20  |#&28000/4:ADDEQ |
00003650  52 38 2c 52 37 2c 23 26  31 34 30 30 3a ec 51 20  |R8,R7,#&1400:.Q |
00003660  52 36 2c 23 26 31 34 30  30 0d 19 8c 43 20 20 20  |R6,#&1400...C   |
00003670  20 20 20 20 20 20 20 3a  4d 4f 56 4e 45 20 52 31  |       :MOVNE R1|
00003680  2c 23 26 31 34 30 30 30  2f 34 3a 41 44 44 4e 45  |,#&14000/4:ADDNE|
00003690  20 52 38 2c 52 37 2c 23  26 41 30 30 20 3a 4d 4f  | R8,R7,#&A00 :MO|
000036a0  56 4e 45 20 52 36 2c 23  26 41 30 30 0d 19 96 0f  |VNE R6,#&A00....|
000036b0  4c 44 52 20 52 32 2c 62  75 66 66 0d 19 a0 19 4d  |LDR R2,buff....M|
000036c0  4f 56 20 52 39 2c 23 33  32 3a 4d 4f 56 20 52 31  |OV R9,#32:MOV R1|
000036d0  30 2c 23 30 0d 19 aa 07  2e 6c 31 0d 19 b4 12 4c  |0,#0.....l1....L|
000036e0  44 52 20 52 33 2c 5b 52  30 5d 2c 23 34 0d 19 be  |DR R3,[R0],#4...|
000036f0  12 4c 44 52 20 52 34 2c  5b 52 32 5d 2c 23 34 0d  |.LDR R4,[R2],#4.|
00003700  19 c8 0d 4d 4f 56 20 52  35 2c 23 30 0d 19 d2 15  |...MOV R5,#0....|
00003710  4d 4f 56 20 52 31 30 2c  52 31 30 2c 4c 53 4c 23  |MOV R10,R10,LSL#|
00003720  31 0d 19 dc 22 43 4d 50  20 52 33 2c 52 34 3a 20  |1..."CMP R3,R4: |
00003730  20 3b 53 54 52 45 51 20  52 35 2c 5b 52 30 2c 23  | ;STREQ R5,[R0,#|
00003740  2d 34 5d 0d 19 e6 1f 20  20 20 20 20 20 20 20 20  |-4]....         |
00003750  20 53 54 52 4e 45 20 52  33 2c 5b 52 32 2c 23 2d  | STRNE R3,[R2,#-|
00003760  34 5d 0d 19 f0 1e 20 20  20 20 20 20 20 20 20 20  |4]....          |
00003770  53 54 52 4e 45 20 52 33  2c 5b 52 38 5d 2c 23 34  |STRNE R3,[R8],#4|
00003780  0d 19 fa 1c 20 20 20 20  20 20 20 20 20 20 41 44  |....          AD|
00003790  44 4e 45 20 52 36 2c 52  36 2c 23 34 0d 1a 04 1d  |DNE R6,R6,#4....|
000037a0  20 20 20 20 20 20 20 20  20 20 84 52 4e 45 20 52  |          .RNE R|
000037b0  31 30 2c 52 31 30 2c 23  31 0d 1a 0e 36 53 55 42  |10,R10,#1...6SUB|
000037c0  20 52 39 2c 52 39 2c 23  31 3a 43 4d 50 20 52 39  | R9,R9,#1:CMP R9|
000037d0  2c 23 30 3a ec 51 20 52  39 2c 23 33 32 3a 53 54  |,#0:.Q R9,#32:ST|
000037e0  52 45 51 20 52 31 30 2c  5b 52 37 5d 2c 23 34 0d  |REQ R10,[R7],#4.|
000037f0  1a 18 18 53 55 42 53 20  52 31 2c 52 31 2c 23 31  |...SUBS R1,R1,#1|
00003800  3a 42 4e 45 20 6c 31 0d  1a 22 10 3b 4c 44 52 20  |:BNE l1..".;LDR |
00003810  52 36 2c 62 75 66 66 0d  1a 2c 11 3b 53 55 42 20  |R6,buff..,.;SUB |
00003820  52 36 2c 52 38 2c 52 36  0d 1a 36 10 53 54 52 20  |R6,R8,R6..6.STR |
00003830  52 36 2c 63 6f 75 6e 74  0d 1a 40 17 4c 44 4d 46  |R6,count..@.LDMF|
00003840  44 20 52 31 33 21 2c 7b  52 38 2d 52 31 32 7d 0d  |D R13!,{R8-R12}.|
00003850  1a 4a 0e 4d 4f 56 20 50  43 2c 52 31 34 0d 1a 54  |.J.MOV PC,R14..T|
00003860  04 0d 1a 5e 12 2e 70 6f  73 69 74 20 3a 45 51 55  |...^..posit :EQU|
00003870  44 20 30 0d 1a 68 12 2e  66 72 61 6d 65 20 3a 45  |D 0..h..frame :E|
00003880  51 55 44 20 30 0d 1a 72  04 0d 1a 7c 0e 2e 64 65  |QUD 0..r...|..de|
00003890  63 6f 6d 70 61 63 74 0d  1a 86 17 53 54 4d 46 44  |compact....STMFD|
000038a0  20 52 31 33 21 2c 7b 52  38 2d 52 31 32 7d 0d 1a  | R13!,{R8-R12}..|
000038b0  90 0f 41 44 52 20 52 30  2c 66 73 63 72 0d 1a 9a  |..ADR R0,fscr...|
000038c0  10 41 44 52 20 52 31 2c  73 63 72 61 64 0d 1a a4  |.ADR R1,scrad...|
000038d0  1d 53 57 49 20 22 4f 53  5f 52 65 61 64 56 64 75  |.SWI "OS_ReadVdu|
000038e0  56 61 72 69 61 62 6c 65  73 22 0d 1a ae 10 4c 44  |Variables"....LD|
000038f0  52 20 52 30 2c 73 63 72  61 64 0d 1a b8 10 4c 44  |R R0,scrad....LD|
00003900  52 20 52 37 2c 70 6f 73  69 74 0d 1a c2 37 4c 44  |R R7,posit...7LD|
00003910  52 20 52 33 2c 66 72 61  6d 65 3a 43 4d 4e 20 52  |R R3,frame:CMN R|
00003920  33 2c 23 31 3a 4c 44 52  45 51 20 52 37 2c 62 75  |3,#1:LDREQ R7,bu|
00003930  66 66 3a 53 54 52 45 51  20 52 37 2c 70 6f 73 69  |ff:STREQ R7,posi|
00003940  74 0d 1a cc 1f 4c 44 52  20 52 30 2c 5b 52 37 2c  |t....LDR R0,[R7,|
00003950  23 30 5d 3a 53 54 52 20  52 30 2c 66 72 61 6d 65  |#0]:STR R0,frame|
00003960  0d 1a d6 2c 4c 44 52 20  52 30 2c 5b 52 37 2c 23  |...,LDR R0,[R7,#|
00003970  34 5d 3a 41 44 44 20 52  30 2c 52 30 2c 52 37 3a  |4]:ADD R0,R0,R7:|
00003980  53 54 52 20 52 30 2c 70  6f 73 69 74 0d 1a e0 10  |STR R0,posit....|
00003990  41 44 44 20 52 37 2c 52  37 2c 23 38 0d 1a ea 10  |ADD R7,R7,#8....|
000039a0  4c 44 52 20 52 30 2c 73  63 72 61 64 0d 1a f4 0f  |LDR R0,scrad....|
000039b0  4c 44 52 20 52 31 2c 6d  6f 64 65 0d 1a fe 31 43  |LDR R1,mode...1C|
000039c0  4d 50 20 52 31 2c 23 31  35 3a ec 51 20 52 31 2c  |MP R1,#15:.Q R1,|
000039d0  23 26 32 38 30 30 30 2f  34 3a 41 44 44 45 51 20  |#&28000/4:ADDEQ |
000039e0  52 38 2c 52 37 2c 23 26  31 34 30 30 0d 1b 08 33  |R8,R7,#&1400...3|
000039f0  20 20 20 20 20 20 20 20  20 20 3a 4d 4f 56 4e 45  |          :MOVNE|
00003a00  20 52 31 2c 23 26 31 34  30 30 30 2f 34 3a 41 44  | R1,#&14000/4:AD|
00003a10  44 4e 45 20 52 38 2c 52  37 2c 23 26 41 30 30 0d  |DNE R8,R7,#&A00.|
00003a20  1b 12 0e 4d 4f 56 20 52  39 2c 23 33 32 0d 1b 1c  |...MOV R9,#32...|
00003a30  13 4c 44 52 20 52 31 30  2c 5b 52 37 5d 2c 23 34  |.LDR R10,[R7],#4|
00003a40  0d 1b 26 07 2e 6c 31 0d  1b 30 18 80 20 52 31 31  |..&..l1..0.. R11|
00003a50  2c 52 31 30 2c 23 26 38  30 30 30 30 30 30 30 0d  |,R10,#&80000000.|
00003a60  1b 3a 15 4d 4f 56 20 52  31 30 2c 52 31 30 2c 4c  |.:.MOV R10,R10,L|
00003a70  53 4c 23 31 0d 1b 44 0e  43 4d 50 20 52 31 31 2c  |SL#1..D.CMP R11,|
00003a80  23 30 0d 1b 4e 14 4c 44  52 4e 45 20 52 34 2c 5b  |#0..N.LDRNE R4,[|
00003a90  52 38 5d 2c 23 34 0d 1b  58 11 53 54 52 4e 45 20  |R8],#4..X.STRNE |
00003aa0  52 34 2c 5b 52 30 5d 0d  1b 62 13 3b 41 44 44 4e  |R4,[R0]..b.;ADDN|
00003ab0  45 20 52 33 2c 52 33 2c  23 34 0d 1b 6c 10 41 44  |E R3,R3,#4..l.AD|
00003ac0  44 20 52 30 2c 52 30 2c  23 34 0d 1b 76 36 53 55  |D R0,R0,#4..v6SU|
00003ad0  42 20 52 39 2c 52 39 2c  23 31 3a 43 4d 50 20 52  |B R9,R9,#1:CMP R|
00003ae0  39 2c 23 30 3a ec 51 20  52 39 2c 23 33 32 3a 4c  |9,#0:.Q R9,#32:L|
00003af0  44 52 45 51 20 52 31 30  2c 5b 52 37 5d 2c 23 34  |DREQ R10,[R7],#4|
00003b00  0d 1b 80 18 53 55 42 53  20 52 31 2c 52 31 2c 23  |....SUBS R1,R1,#|
00003b10  31 3a 42 4e 45 20 6c 31  0d 1b 8a 10 3b 4c 44 52  |1:BNE l1....;LDR|
00003b20  20 52 34 2c 62 75 66 66  0d 1b 94 11 3b 53 55 42  | R4,buff....;SUB|
00003b30  20 52 33 2c 52 38 2c 52  34 0d 1b 9e 12 3b 53 54  | R3,R8,R4....;ST|
00003b40  52 20 52 33 2c 63 75 72  65 6e 74 0d 1b a8 17 4c  |R R3,curent....L|
00003b50  44 4d 46 44 20 52 31 33  21 2c 7b 52 38 2d 52 31  |DMFD R13!,{R8-R1|
00003b60  32 7d 0d 1b b2 0e 4d 4f  56 20 50 43 2c 52 31 34  |2}....MOV PC,R14|
00003b70  0d 1b bc 04 0d 1b c6 04  0d 1b d0 16 3b 2d 2d 2d  |............;---|
00003b80  54 45 58 54 20 55 54 49  4c 53 2d 2d 2d 2d 0d 1b  |TEXT UTILS----..|
00003b90  da 04 0d 1b e4 15 2e 74  65 78 74 20 3a 45 51 55  |.......text :EQU|
00003ba0  44 20 74 65 78 74 25 0d  1b ee 11 2e 6f 75 74 20  |D text%.....out |
00003bb0  20 3a 45 51 55 44 20 30  0d 1b f8 04 0d 1c 02 0e  | :EQUD 0........|
00003bc0  2e 70 72 69 6e 74 74 65  78 74 0d 1c 0c 17 3b 72  |.printtext....;r|
00003bd0  30 3d 63 68 61 63 74 65  72 73 20 61 63 72 6f 73  |0=chacters acros|
00003be0  73 0d 1c 16 12 3b 72 31  3d 6c 69 6e 65 73 20 64  |s....;r1=lines d|
00003bf0  6f 77 6e 0d 1c 20 0f 4c  44 52 20 52 32 2c 74 65  |own.. .LDR R2,te|
00003c00  78 74 0d 1c 2a 17 43 4d  50 20 52 31 2c 23 30 3a  |xt..*.CMP R1,#0:|
00003c10  42 45 51 20 66 6f 75 6e  64 0d 1c 34 07 2e 6c 31  |BEQ found..4..l1|
00003c20  0d 1c 3e 38 4c 44 52 42  20 52 33 2c 5b 52 32 5d  |..>8LDRB R3,[R2]|
00003c30  2c 23 31 3a 43 4d 50 20  52 33 2c 23 26 46 46 3a  |,#1:CMP R3,#&FF:|
00003c40  53 55 42 45 51 20 52 32  2c 52 32 2c 23 31 3a 42  |SUBEQ R2,R2,#1:B|
00003c50  45 51 20 66 6f 75 6e 64  0d 1c 48 0e 43 4d 50 20  |EQ found..H.CMP |
00003c60  52 33 2c 23 31 30 0d 1c  52 13 53 55 42 45 51 53  |R3,#10..R.SUBEQS|
00003c70  20 52 31 2c 52 31 2c 23  31 0d 1c 5c 0a 42 4e 45  | R1,R1,#1..\.BNE|
00003c80  20 6c 31 0d 1c 66 0a 2e  66 6f 75 6e 64 0d 1c 70  | l1..f..found..p|
00003c90  1e 4d 4f 56 20 52 31 2c  23 39 20 20 20 3b 73 69  |.MOV R1,#9   ;si|
00003ca0  7a 65 20 69 6e 20 6c 69  6e 65 73 0d 1c 7a 0d 4d  |ze in lines..z.M|
00003cb0  4f 56 20 52 35 2c 52 30  0d 1c 84 0d 2e 6c 69 6e  |OV R5,R0.....lin|
00003cc0  65 6c 6f 6f 70 0d 1c 8e  0d 4d 4f 56 20 52 34 2c  |eloop....MOV R4,|
00003cd0  52 35 0d 1c 98 0d 4d 4f  56 20 52 36 2c 23 30 0d  |R5....MOV R6,#0.|
00003ce0  1c a2 18 43 4d 50 20 52  34 2c 23 30 3a 42 45 51  |...CMP R4,#0:BEQ|
00003cf0  20 66 6f 75 6e 64 32 0d  1c ac 07 2e 6c 31 0d 1c  | found2.....l1..|
00003d00  b6 38 4c 44 52 42 20 52  33 2c 5b 52 32 5d 2c 23  |.8LDRB R3,[R2],#|
00003d10  31 3a 43 4d 50 20 52 33  2c 23 26 46 46 3a 53 55  |1:CMP R3,#&FF:SU|
00003d20  42 45 51 20 52 32 2c 52  32 2c 23 31 3a ec 51 20  |BEQ R2,R2,#1:.Q |
00003d30  52 33 2c 23 31 30 0d 1c  c0 23 43 4d 50 20 52 33  |R3,#10...#CMP R3|
00003d40  2c 23 31 30 3a 42 45 51  20 6e 6f 74 68 69 6e 67  |,#10:BEQ nothing|
00003d50  5f 74 6f 5f 70 72 69 6e  74 0d 1c ca 11 53 55 42  |_to_print....SUB|
00003d60  53 20 52 34 2c 52 34 2c  23 31 0d 1c d4 0a 42 4e  |S R4,R4,#1....BN|
00003d70  45 20 6c 31 0d 1c de 0b  2e 66 6f 75 6e 64 32 0d  |E l1.....found2.|
00003d80  1c e8 07 2e 6c 31 0d 1c  f2 13 4c 44 52 42 20 52  |....l1....LDRB R|
00003d90  33 2c 5b 52 32 5d 2c 23  31 0d 1c fc 28 43 4d 50  |3,[R2],#1...(CMP|
00003da0  20 52 33 2c 23 26 46 46  3a 53 55 42 45 51 20 52  | R3,#&FF:SUBEQ R|
00003db0  32 2c 52 32 2c 23 31 3a  ec 51 20 52 33 2c 23 31  |2,R2,#1:.Q R3,#1|
00003dc0  30 0d 1d 06 15 2e 6e 6f  74 68 69 6e 67 5f 74 6f  |0.....nothing_to|
00003dd0  5f 70 72 69 6e 74 0d 1d  10 25 43 4d 50 20 52 36  |_print...%CMP R6|
00003de0  2c 23 33 30 20 20 20 20  3b 73 69 7a 65 20 69 6e  |,#30    ;size in|
00003df0  20 63 68 61 72 61 63 74  65 72 73 0d 1d 1a 25 4d  | characters...%M|
00003e00  4f 56 4c 54 20 52 30 2c  52 33 3a ec 51 20 52 30  |OVLT R0,R3:.Q R0|
00003e10  2c 23 31 33 3a 4d 4f 56  47 54 20 52 30 2c 23 30  |,#13:MOVGT R0,#0|
00003e20  0d 1d 24 23 43 4d 50 20  52 31 2c 23 31 3a 43 4d  |..$#CMP R1,#1:CM|
00003e30  50 45 51 20 52 30 2c 23  31 30 3a ec 51 20 52 30  |PEQ R0,#10:.Q R0|
00003e40  2c 23 30 0d 1d 2e 16 43  4d 50 20 52 30 2c 23 31  |,#0....CMP R0,#1|
00003e50  30 3a 53 57 49 4e 45 20  30 0d 1d 38 10 41 44 44  |0:SWINE 0..8.ADD|
00003e60  20 52 36 2c 52 36 2c 23  31 0d 1d 42 15 43 4d 50  | R6,R6,#1..B.CMP|
00003e70  20 52 33 2c 23 31 30 3a  42 4e 45 20 6c 31 0d 1d  | R3,#10:BNE l1..|
00003e80  4c 0f 4d 4f 56 20 52 30  2c 23 32 35 35 0d 1d 56  |L.MOV R0,#255..V|
00003e90  07 2e 6c 31 0d 1d 60 16  43 4d 50 20 52 36 2c 23  |..l1..`.CMP R6,#|
00003ea0  33 30 3a 53 57 49 4c 45  20 30 0d 1d 6a 10 41 44  |30:SWILE 0..j.AD|
00003eb0  44 20 52 36 2c 52 36 2c  23 31 0d 1d 74 15 43 4d  |D R6,R6,#1..t.CM|
00003ec0  50 20 52 36 2c 23 33 30  3a 42 4c 45 20 6c 31 0d  |P R6,#30:BLE l1.|
00003ed0  1d 7e 22 43 4d 50 20 52  31 2c 23 31 3a 4d 4f 56  |.~"CMP R1,#1:MOV|
00003ee0  4e 45 20 52 30 2c 23 31  33 3a 53 57 49 4e 45 20  |NE R0,#13:SWINE |
00003ef0  30 0d 1d 88 22 20 20 20  20 20 20 20 20 20 20 4d  |0..."          M|
00003f00  4f 56 4e 45 20 52 30 2c  23 31 30 3a 53 57 49 4e  |OVNE R0,#10:SWIN|
00003f10  45 20 30 0d 1d 92 1e 53  55 42 53 20 52 31 2c 52  |E 0....SUBS R1,R|
00003f20  31 2c 23 31 3a 42 4e 45  20 6c 69 6e 65 6c 6f 6f  |1,#1:BNE lineloo|
00003f30  70 0d 1d 9c 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |p....MOV PC,R14.|
00003f40  1d a6 04 0d 1d b0 10 2e  69 6e 73 65 72 74 5f 63  |........insert_c|
00003f50  68 61 72 0d 1d ba 0c 3b  72 30 3d 78 70 6f 73 0d  |har....;r0=xpos.|
00003f60  1d c4 0c 3b 72 31 3d 79  70 6f 73 0d 1d ce 19 3b  |...;r1=ypos....;|
00003f70  72 32 3d 70 6f 69 6e 74  65 72 20 74 6f 20 73 74  |r2=pointer to st|
00003f80  72 69 6e 67 0d 1d d8 15  3b 72 33 3d 73 74 72 69  |ring....;r3=stri|
00003f90  6e 67 20 6c 65 6e 67 74  68 0d 1d e2 0f 4c 44 52  |ng length....LDR|
00003fa0  20 52 34 2c 74 65 78 74  0d 1d ec 18 43 4d 50 20  | R4,text....CMP |
00003fb0  52 31 2c 23 30 3a 42 45  51 20 66 6f 75 6e 64 33  |R1,#0:BEQ found3|
00003fc0  0d 1d f6 07 2e 6c 31 0d  1e 00 28 4c 44 52 42 20  |.....l1...(LDRB |
00003fd0  52 37 2c 5b 52 34 5d 2c  23 31 3a 43 4d 50 20 52  |R7,[R4],#1:CMP R|
00003fe0  37 2c 23 26 46 46 3a 42  45 51 20 69 6e 73 31 0d  |7,#&FF:BEQ ins1.|
00003ff0  1e 0a 0e 43 4d 50 20 52  37 2c 23 31 30 0d 1e 14  |...CMP R7,#10...|
00004000  13 53 55 42 45 51 53 20  52 31 2c 52 31 2c 23 31  |.SUBEQS R1,R1,#1|
00004010  0d 1e 1e 0a 42 4e 45 20  6c 31 0d 1e 28 0b 2e 66  |....BNE l1..(..f|
00004020  6f 75 6e 64 33 0d 1e 32  18 43 4d 50 20 52 30 2c  |ound3..2.CMP R0,|
00004030  23 30 3a 42 45 51 20 66  6f 75 6e 64 34 0d 1e 3c  |#0:BEQ found4..<|
00004040  28 4c 44 52 42 20 52 37  2c 5b 52 34 5d 2c 23 31  |(LDRB R7,[R4],#1|
00004050  3a 43 4d 50 20 52 37 2c  23 26 46 46 3a 42 45 51  |:CMP R7,#&FF:BEQ|
00004060  20 69 6e 73 32 0d 1e 46  28 20 20 20 20 20 20 20  | ins2..F(       |
00004070  20 20 20 20 20 20 20 20  20 43 4d 50 20 52 37 2c  |         CMP R7,|
00004080  23 31 30 20 3a 42 45 51  20 69 6e 73 32 0d 1e 50  |#10 :BEQ ins2..P|
00004090  1c 53 55 42 53 20 52 30  2c 52 30 2c 23 31 3a 42  |.SUBS R0,R0,#1:B|
000040a0  4e 45 20 66 6f 75 6e 64  33 0d 1e 5a 0b 2e 66 6f  |NE found3..Z..fo|
000040b0  75 6e 64 34 0d 1e 64 0d  4d 4f 56 20 52 35 2c 52  |und4..d.MOV R5,R|
000040c0  34 0d 1e 6e 07 2e 6c 31  0d 1e 78 13 4c 44 52 42  |4..n..l1..x.LDRB|
000040d0  20 52 37 2c 5b 52 35 5d  2c 23 31 0d 1e 82 16 43  | R7,[R5],#1....C|
000040e0  4d 50 20 52 37 2c 23 26  46 46 3a 42 4e 45 20 6c  |MP R7,#&FF:BNE l|
000040f0  31 0d 1e 8c 07 2e 6c 31  0d 1e 96 10 4c 44 52 42  |1.....l1....LDRB|
00004100  20 52 37 2c 5b 52 35 5d  0d 1e a0 13 53 54 52 42  | R7,[R5]....STRB|
00004110  20 52 37 2c 5b 52 35 2c  52 33 5d 0d 1e aa 10 53  | R7,[R5,R3]....S|
00004120  55 42 20 52 35 2c 52 35  2c 23 31 0d 1e b4 14 43  |UB R5,R5,#1....C|
00004130  4d 50 20 52 35 2c 52 34  3a 42 47 45 20 6c 31 0d  |MP R5,R4:BGE l1.|
00004140  1e be 10 41 44 44 20 52  35 2c 52 35 2c 23 31 0d  |...ADD R5,R5,#1.|
00004150  1e c8 07 2e 6c 31 0d 1e  d2 13 4c 44 52 42 20 52  |....l1....LDRB R|
00004160  37 2c 5b 52 32 5d 2c 23  31 0d 1e dc 18 43 4d 50  |7,[R2],#1....CMP|
00004170  20 52 37 2c 23 31 33 3a  ec 51 20 52 37 2c 23 31  | R7,#13:.Q R7,#1|
00004180  30 0d 1e e6 13 53 54 52  42 20 52 37 2c 5b 52 35  |0....STRB R7,[R5|
00004190  5d 2c 23 31 0d 1e f0 18  53 55 42 53 20 52 33 2c  |],#1....SUBS R3,|
000041a0  52 33 2c 23 31 3a 42 4e  45 20 6c 31 0d 1e fa 10  |R3,#1:BNE l1....|
000041b0  41 44 44 20 52 35 2c 52  35 2c 23 31 0d 1f 04 10  |ADD R5,R5,#1....|
000041c0  4c 44 52 42 20 52 32 2c  5b 52 35 5d 0d 1f 0e 19  |LDRB R2,[R5]....|
000041d0  43 4d 50 20 52 32 2c 23  26 46 46 3a ec 51 20 52  |CMP R2,#&FF:.Q R|
000041e0  32 2c 23 31 30 0d 1f 18  21 20 20 20 20 20 20 20  |2,#10...!       |
000041f0  20 20 20 20 20 53 54 52  45 51 42 20 52 32 2c 5b  |     STREQB R2,[|
00004200  52 35 5d 2c 23 31 0d 1f  22 1a 20 20 20 20 20 20  |R5],#1..".      |
00004210  20 20 20 20 20 20 ec 51  20 52 32 2c 23 26 46 46  |      .Q R2,#&FF|
00004220  0d 1f 2c 21 20 20 20 20  20 20 20 20 20 20 20 20  |..,!            |
00004230  53 54 52 45 51 42 20 52  32 2c 5b 52 35 5d 2c 23  |STREQB R2,[R5],#|
00004240  31 0d 1f 36 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |1..6.MOV PC,R14.|
00004250  1f 40 04 0d 1f 4a 09 2e  69 6e 73 32 0d 1f 54 10  |.@...J..ins2..T.|
00004260  53 55 42 20 52 34 2c 52  34 2c 23 31 0d 1f 5e 10  |SUB R4,R4,#1..^.|
00004270  41 44 44 20 52 30 2c 52  30 2c 52 33 0d 1f 68 0d  |ADD R0,R0,R3..h.|
00004280  4d 4f 56 20 52 35 2c 52  34 0d 1f 72 07 2e 6c 31  |MOV R5,R4..r..l1|
00004290  0d 1f 7c 13 4c 44 52 42  20 52 37 2c 5b 52 35 5d  |..|.LDRB R7,[R5]|
000042a0  2c 23 31 0d 1f 86 16 43  4d 50 20 52 37 2c 23 26  |,#1....CMP R7,#&|
000042b0  46 46 3a 42 4e 45 20 6c  31 0d 1f 90 07 2e 6c 31  |FF:BNE l1.....l1|
000042c0  0d 1f 9a 10 4c 44 52 42  20 52 37 2c 5b 52 35 5d  |....LDRB R7,[R5]|
000042d0  0d 1f a4 13 53 54 52 42  20 52 37 2c 5b 52 35 2c  |....STRB R7,[R5,|
000042e0  52 30 5d 0d 1f ae 10 53  55 42 20 52 35 2c 52 35  |R0]....SUB R5,R5|
000042f0  2c 23 31 0d 1f b8 14 43  4d 50 20 52 35 2c 52 34  |,#1....CMP R5,R4|
00004300  3a 42 47 45 20 6c 31 0d  1f c2 0e 4d 4f 56 20 52  |:BGE l1....MOV R|
00004310  36 2c 23 33 32 0d 1f cc  07 2e 6c 31 0d 1f d6 13  |6,#32.....l1....|
00004320  53 54 52 42 20 52 36 2c  5b 52 34 5d 2c 23 31 0d  |STRB R6,[R4],#1.|
00004330  1f e0 18 53 55 42 53 20  52 30 2c 52 30 2c 23 31  |...SUBS R0,R0,#1|
00004340  3a 42 4e 45 20 6c 31 0d  1f ea 10 53 55 42 20 52  |:BNE l1....SUB R|
00004350  34 2c 52 34 2c 52 33 0d  1f f4 07 2e 6c 31 0d 1f  |4,R4,R3.....l1..|
00004360  fe 13 4c 44 52 42 20 52  37 2c 5b 52 32 5d 2c 23  |..LDRB R7,[R2],#|
00004370  31 0d 20 08 18 43 4d 50  20 52 37 2c 23 31 33 3a  |1. ..CMP R7,#13:|
00004380  ec 51 20 52 37 2c 23 31  30 0d 20 12 13 53 54 52  |.Q R7,#10. ..STR|
00004390  42 20 52 37 2c 5b 52 34  5d 2c 23 31 0d 20 1c 18  |B R7,[R4],#1. ..|
000043a0  53 55 42 53 20 52 33 2c  52 33 2c 23 31 3a 42 4e  |SUBS R3,R3,#1:BN|
000043b0  45 20 6c 31 0d 20 26 10  41 44 44 20 52 34 2c 52  |E l1. &.ADD R4,R|
000043c0  34 2c 23 31 0d 20 30 10  4c 44 52 42 20 52 32 2c  |4,#1. 0.LDRB R2,|
000043d0  5b 52 34 5d 0d 20 3a 19  43 4d 50 20 52 32 2c 23  |[R4]. :.CMP R2,#|
000043e0  26 46 46 3a ec 51 20 52  32 2c 23 31 30 0d 20 44  |&FF:.Q R2,#10. D|
000043f0  21 20 20 20 20 20 20 20  20 20 20 20 20 53 54 52  |!            STR|
00004400  45 51 42 20 52 32 2c 5b  52 34 5d 2c 23 31 0d 20  |EQB R2,[R4],#1. |
00004410  4e 1a 20 20 20 20 20 20  20 20 20 20 20 20 ec 51  |N.            .Q|
00004420  20 52 32 2c 23 26 46 46  0d 20 58 21 20 20 20 20  | R2,#&FF. X!    |
00004430  20 20 20 20 20 20 20 20  53 54 52 45 51 42 20 52  |        STREQB R|
00004440  32 2c 5b 52 34 5d 2c 23  31 0d 20 62 0e 4d 4f 56  |2,[R4],#1. b.MOV|
00004450  20 50 43 2c 52 31 34 0d  20 6c 04 0d 20 76 09 2e  | PC,R14. l.. v..|
00004460  69 6e 73 31 0d 20 80 10  53 55 42 20 52 34 2c 52  |ins1. ..SUB R4,R|
00004470  34 2c 23 31 0d 20 8a 10  41 44 44 20 52 31 2c 52  |4,#1. ..ADD R1,R|
00004480  31 2c 23 31 0d 20 94 0e  4d 4f 56 20 52 37 2c 23  |1,#1. ..MOV R7,#|
00004490  31 30 0d 20 9e 07 2e 6c  31 0d 20 a8 13 53 54 52  |10. ...l1. ..STR|
000044a0  42 20 52 37 2c 5b 52 34  5d 2c 23 31 0d 20 b2 18  |B R7,[R4],#1. ..|
000044b0  53 55 42 53 20 52 31 2c  52 31 2c 23 31 3a 42 4e  |SUBS R1,R1,#1:BN|
000044c0  45 20 6c 31 0d 20 bc 20  4d 4f 56 20 52 37 2c 23  |E l1. . MOV R7,#|
000044d0  26 46 46 3a 53 54 52 42  20 52 37 2c 5b 52 34 5d  |&FF:STRB R7,[R4]|
000044e0  2c 23 2d 31 0d 20 c6 0c  42 20 66 6f 75 6e 64 33  |,#-1. ..B found3|
000044f0  0d 20 d0 04 0d 20 da 10  2e 64 65 6c 65 74 65 5f  |. ... ...delete_|
00004500  63 68 61 72 0d 20 e4 0c  3b 72 30 3d 78 70 6f 73  |char. ..;r0=xpos|
00004510  0d 20 ee 0c 3b 72 31 3d  79 70 6f 73 0d 20 f8 0f  |. ..;r1=ypos. ..|
00004520  4c 44 52 20 52 34 2c 74  65 78 74 0d 21 02 23 43  |LDR R4,text.!.#C|
00004530  4d 50 20 52 31 2c 23 30  3a 43 4d 50 45 51 20 52  |MP R1,#0:CMPEQ R|
00004540  30 2c 23 30 3a ec 51 20  50 43 2c 52 31 34 0d 21  |0,#0:.Q PC,R14.!|
00004550  0c 18 43 4d 50 20 52 31  2c 23 30 3a 42 45 51 20  |..CMP R1,#0:BEQ |
00004560  66 6f 75 6e 64 36 0d 21  16 07 2e 6c 31 0d 21 20  |found6.!...l1.! |
00004570  29 4c 44 52 42 20 52 33  2c 5b 52 34 5d 2c 23 31  |)LDRB R3,[R4],#1|
00004580  3a 43 4d 50 20 52 33 2c  23 26 46 46 3a ec 51 20  |:CMP R3,#&FF:.Q |
00004590  50 43 2c 52 31 34 0d 21  2a 0e 43 4d 50 20 52 33  |PC,R14.!*.CMP R3|
000045a0  2c 23 31 30 0d 21 34 13  53 55 42 45 51 53 20 52  |,#10.!4.SUBEQS R|
000045b0  31 2c 52 31 2c 23 31 0d  21 3e 0a 42 4e 45 20 6c  |1,R1,#1.!>.BNE l|
000045c0  31 0d 21 48 0b 2e 66 6f  75 6e 64 36 0d 21 52 18  |1.!H..found6.!R.|
000045d0  43 4d 50 20 52 30 2c 23  30 3a 42 45 51 20 66 6f  |CMP R0,#0:BEQ fo|
000045e0  75 6e 64 37 0d 21 5c 29  4c 44 52 42 20 52 33 2c  |und7.!\)LDRB R3,|
000045f0  5b 52 34 5d 2c 23 31 3a  43 4d 50 20 52 33 2c 23  |[R4],#1:CMP R3,#|
00004600  26 46 46 3a ec 51 20 50  43 2c 52 31 34 0d 21 66  |&FF:.Q PC,R14.!f|
00004610  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
00004620  20 43 4d 50 20 52 33 2c  23 31 30 20 3a ec 51 20  | CMP R3,#10 :.Q |
00004630  50 43 2c 52 31 34 0d 21  70 1c 53 55 42 53 20 52  |PC,R14.!p.SUBS R|
00004640  30 2c 52 30 2c 23 31 3a  42 4e 45 20 66 6f 75 6e  |0,R0,#1:BNE foun|
00004650  64 36 0d 21 7a 0b 2e 66  6f 75 6e 64 37 0d 21 84  |d6.!z..found7.!.|
00004660  1f 4c 44 52 42 20 52 36  2c 5b 52 34 2c 23 2d 31  |.LDRB R6,[R4,#-1|
00004670  5d 3a 43 4d 50 20 52 36  2c 23 31 30 0d 21 8e 2a  |]:CMP R6,#10.!.*|
00004680  4c 44 52 45 51 42 20 52  36 2c 5b 52 34 5d 3a 43  |LDREQB R6,[R4]:C|
00004690  4d 50 45 51 20 52 36 2c  23 26 46 46 3a ec 51 20  |MPEQ R6,#&FF:.Q |
000046a0  50 43 2c 52 31 34 0d 21  98 0d 4d 4f 56 20 52 35  |PC,R14.!..MOV R5|
000046b0  2c 52 34 0d 21 a2 07 2e  6c 31 0d 21 ac 13 4c 44  |,R4.!...l1.!..LD|
000046c0  52 42 20 52 33 2c 5b 52  35 5d 2c 23 31 0d 21 b6  |RB R3,[R5],#1.!.|
000046d0  16 43 4d 50 20 52 33 2c  23 26 46 46 3a 42 4e 45  |.CMP R3,#&FF:BNE|
000046e0  20 6c 31 0d 21 c0 10 53  55 42 20 52 34 2c 52 34  | l1.!..SUB R4,R4|
000046f0  2c 23 31 0d 21 ca 07 2e  6c 31 0d 21 d4 13 4c 44  |,#1.!...l1.!..LD|
00004700  52 42 20 52 33 2c 5b 52  34 2c 23 31 5d 0d 21 de  |RB R3,[R4,#1].!.|
00004710  13 53 54 52 42 20 52 33  2c 5b 52 34 5d 2c 23 31  |.STRB R3,[R4],#1|
00004720  0d 21 e8 14 43 4d 50 20  52 34 2c 52 35 3a 42 4c  |.!..CMP R4,R5:BL|
00004730  45 20 6c 31 0d 21 f2 0e  4d 4f 56 20 50 43 2c 52  |E l1.!..MOV PC,R|
00004740  31 34 0d 21 fc 04 0d 22  06 10 2e 64 65 6c 65 74  |14.!..."...delet|
00004750  65 5f 6c 69 6e 65 0d 22  10 0c 3b 72 30 3d 78 70  |e_line."..;r0=xp|
00004760  6f 73 0d 22 1a 0c 3b 72  31 3d 79 70 6f 73 0d 22  |os."..;r1=ypos."|
00004770  24 0f 4c 44 52 20 52 34  2c 74 65 78 74 0d 22 2e  |$.LDR R4,text.".|
00004780  18 43 4d 50 20 52 31 2c  23 30 3a 42 45 51 20 66  |.CMP R1,#0:BEQ f|
00004790  6f 75 6e 64 38 0d 22 38  07 2e 6c 31 0d 22 42 29  |ound8."8..l1."B)|
000047a0  4c 44 52 42 20 52 33 2c  5b 52 34 5d 2c 23 31 3a  |LDRB R3,[R4],#1:|
000047b0  43 4d 50 20 52 33 2c 23  26 46 46 3a ec 51 20 50  |CMP R3,#&FF:.Q P|
000047c0  43 2c 52 31 34 0d 22 4c  0e 43 4d 50 20 52 33 2c  |C,R14."L.CMP R3,|
000047d0  23 31 30 0d 22 56 13 53  55 42 45 51 53 20 52 31  |#10."V.SUBEQS R1|
000047e0  2c 52 31 2c 23 31 0d 22  60 0a 42 4e 45 20 6c 31  |,R1,#1."`.BNE l1|
000047f0  0d 22 6a 0b 2e 66 6f 75  6e 64 38 0d 22 74 10 41  |."j..found8."t.A|
00004800  44 44 20 52 35 2c 52 34  2c 23 31 0d 22 7e 07 2e  |DD R5,R4,#1."~..|
00004810  6c 31 0d 22 88 13 4c 44  52 42 20 52 33 2c 5b 52  |l1."..LDRB R3,[R|
00004820  35 5d 2c 23 31 0d 22 92  15 43 4d 50 20 52 33 2c  |5],#1."..CMP R3,|
00004830  23 31 30 3a 42 4e 45 20  6c 31 0d 22 9c 0b 2e 66  |#10:BNE l1."...f|
00004840  6f 75 6e 64 39 0d 22 a6  1f 4c 44 52 42 20 52 36  |ound9."..LDRB R6|
00004850  2c 5b 52 35 2c 23 2d 31  5d 3a 43 4d 50 20 52 36  |,[R5,#-1]:CMP R6|
00004860  2c 23 31 30 0d 22 b0 2a  4c 44 52 45 51 42 20 52  |,#10.".*LDREQB R|
00004870  30 2c 5b 52 35 5d 3a 43  4d 50 45 51 20 52 36 2c  |0,[R5]:CMPEQ R6,|
00004880  23 26 46 46 3a ec 51 20  50 43 2c 52 31 34 0d 22  |#&FF:.Q PC,R14."|
00004890  ba 10 53 55 42 20 52 35  2c 52 35 2c 23 31 0d 22  |..SUB R5,R5,#1."|
000048a0  c4 07 2e 6c 31 0d 22 ce  13 4c 44 52 42 20 52 33  |...l1."..LDRB R3|
000048b0  2c 5b 52 35 5d 2c 23 31  0d 22 d8 13 53 54 52 42  |,[R5],#1."..STRB|
000048c0  20 52 33 2c 5b 52 34 5d  2c 23 31 0d 22 e2 16 43  | R3,[R4],#1."..C|
000048d0  4d 50 20 52 33 2c 23 26  46 46 3a 42 4e 45 20 6c  |MP R3,#&FF:BNE l|
000048e0  31 0d 22 ec 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |1."..MOV PC,R14.|
000048f0  22 f6 04 0d 23 00 0e 2e  6c 61 73 74 5f 6c 69 6e  |"...#...last_lin|
00004900  65 0d 23 0a 0f 4c 44 52  20 52 30 2c 74 65 78 74  |e.#..LDR R0,text|
00004910  0d 23 14 0d 4d 4f 56 20  52 31 2c 23 30 0d 23 1e  |.#..MOV R1,#0.#.|
00004920  07 2e 6c 31 0d 23 28 13  4c 44 52 42 20 52 32 2c  |..l1.#(.LDRB R2,|
00004930  5b 52 30 5d 2c 23 31 0d  23 32 1d 43 4d 50 20 52  |[R0],#1.#2.CMP R|
00004940  32 2c 23 31 30 3a 41 44  44 45 51 20 52 31 2c 52  |2,#10:ADDEQ R1,R|
00004950  31 2c 23 31 0d 23 3c 16  43 4d 50 20 52 32 2c 23  |1,#1.#<.CMP R2,#|
00004960  26 46 46 3a 42 4e 45 20  6c 31 0d 23 46 0e 53 54  |&FF:BNE l1.#F.ST|
00004970  52 20 52 31 2c 6f 75 74  0d 23 50 0e 4d 4f 56 20  |R R1,out.#P.MOV |
00004980  50 43 2c 52 31 34 0d 23  5a 04 0d 23 64 10 2e 65  |PC,R14.#Z..#d..e|
00004990  6e 64 5f 6f 66 5f 66 69  6c 65 0d 23 6e 0f 4c 44  |nd_of_file.#n.LD|
000049a0  52 20 52 30 2c 74 65 78  74 0d 23 78 07 2e 6c 31  |R R0,text.#x..l1|
000049b0  0d 23 82 13 4c 44 52 42  20 52 32 2c 5b 52 30 5d  |.#..LDRB R2,[R0]|
000049c0  2c 23 31 0d 23 8c 16 43  4d 50 20 52 32 2c 23 26  |,#1.#..CMP R2,#&|
000049d0  46 46 3a 42 4e 45 20 6c  31 0d 23 96 1b 53 55 42  |FF:BNE l1.#..SUB|
000049e0  20 52 30 2c 52 30 2c 23  32 3a 53 54 52 20 52 30  | R0,R0,#2:STR R0|
000049f0  2c 6f 75 74 0d 23 a0 0e  4d 4f 56 20 50 43 2c 52  |,out.#..MOV PC,R|
00004a00  31 34 0d 23 aa 04 0d 23  b4 0e 2e 66 69 6e 64 5f  |14.#...#...find_|
00004a10  74 65 78 74 0d 23 be 0f  4c 44 52 20 52 34 2c 74  |text.#..LDR R4,t|
00004a20  65 78 74 0d 23 c8 19 43  4d 50 20 52 30 2c 23 30  |ext.#..CMP R0,#0|
00004a30  3a 42 45 51 20 66 6f 75  6e 64 31 30 0d 23 d2 07  |:BEQ found10.#..|
00004a40  2e 6c 31 0d 23 dc 42 4c  44 52 42 20 52 33 2c 5b  |.l1.#.BLDRB R3,[|
00004a50  52 34 5d 2c 23 31 3a 43  4d 50 20 52 33 2c 23 26  |R4],#1:CMP R3,#&|
00004a60  46 46 3a 4d 56 4e 45 51  20 52 30 2c 23 30 3a 53  |FF:MVNEQ R0,#0:S|
00004a70  54 52 45 51 20 52 30 2c  6f 75 74 3a ec 51 20 50  |TREQ R0,out:.Q P|
00004a80  43 2c 52 31 34 0d 23 e6  0e 43 4d 50 20 52 33 2c  |C,R14.#..CMP R3,|
00004a90  23 31 30 0d 23 f0 13 53  55 42 45 51 53 20 52 30  |#10.#..SUBEQS R0|
00004aa0  2c 52 30 2c 23 31 0d 23  fa 0a 42 4e 45 20 6c 31  |,R0,#1.#..BNE l1|
00004ab0  0d 24 04 0c 2e 66 6f 75  6e 64 31 30 0d 24 0e 15  |.$...found10.$..|
00004ac0  41 44 52 20 52 32 2c 74  78 74 5f 62 75 66 66 65  |ADR R2,txt_buffe|
00004ad0  72 0d 24 18 07 2e 6c 31  0d 24 22 13 4c 44 52 42  |r.$...l1.$".LDRB|
00004ae0  20 52 33 2c 5b 52 34 5d  2c 23 31 0d 24 2c 13 53  | R3,[R4],#1.$,.S|
00004af0  54 52 42 20 52 33 2c 5b  52 32 5d 2c 23 31 0d 24  |TRB R3,[R2],#1.$|
00004b00  36 23 43 4d 50 20 52 33  2c 23 31 30 3a 43 4d 50  |6#CMP R3,#10:CMP|
00004b10  4e 45 20 52 33 2c 23 26  46 46 3a 42 4e 45 20 6c  |NE R3,#&FF:BNE l|
00004b20  31 0d 24 40 0e 4d 4f 56  20 52 33 2c 23 31 33 0d  |1.$@.MOV R3,#13.|
00004b30  24 4a 14 53 54 52 42 20  52 33 2c 5b 52 32 2c 23  |$J.STRB R3,[R2,#|
00004b40  2d 31 5d 0d 24 54 15 41  44 52 20 52 32 2c 74 78  |-1].$T.ADR R2,tx|
00004b50  74 5f 62 75 66 66 65 72  0d 24 5e 0e 53 54 52 20  |t_buffer.$^.STR |
00004b60  52 32 2c 6f 75 74 0d 24  68 0e 4d 4f 56 20 50 43  |R2,out.$h.MOV PC|
00004b70  2c 52 31 34 0d 24 72 04  0d 24 7c 0f 2e 74 78 74  |,R14.$r..$|..txt|
00004b80  5f 62 75 66 66 65 72 0d  24 86 12 45 51 55 53 20  |_buffer.$..EQUS |
00004b90  c4 32 35 35 2c 22 20 22  29 0d 24 90 04 0d 24 9a  |.255," ").$...$.|
00004ba0  06 5d ed 0d 24 a4 05 e1  0d ff                    |.]..$.....|
00004baa