� DATA TRANSFER PROGRAM
6� IDEA TAKEN FROM WATFORD ELECTRONICS BBC-Z88 LINK
� D.WALKER NOV'93
(#� ELECTRON VERSION JAN'94 v1.01
2� 7
<�19,1,2;0;
FK=1
PJ=1
Z)�6,0) "ELECTRON Data Link Software";
d-�5,23);"Use UP, DN cursor or (L)etter ";
n
x
�;�(156);
�
� opt$(5)
�opt$(1)="Receive File"
�opt$(2)="Send File"
�opt$(3)="Inbound CR/LF ON"
� opt$(4)="Outbound CR/LF ON "
�opt$(5)="Quit"
�
� N=1 � 5
�� �8,N*2+5);�140;�129;
�� ;"(";�opt$(N),1);")";
�� ;�opt$(N),�(opt$(N))-1);
��
�*FX 4,1
�n=1

� �9,n*2+5);�130;



�

"G=�

,� G=42 � � �dzJ

61� G=139 � � �9,n*2+5);�129;:n=n-1:� n<1 � n=5

@1� G=138 � � �9,n*2+5);�129;:n=n+1:� n>5 � n=1

J� �9,n*2+5);�130;

TU� G=13 � G=81 � G=82 � G=83 � G=113 � G=114 � G=115 � G=73 � G=105 � G=79 � G=111

^ � G=81 � G=113 � n=5

h � G=82 � G=114 � n=1

r � G=83 � G=115 � n=2

| � G=73 � G=105 � n=3

� � G=79 � G=111 � n=4

�

� � n=3 � �inbound:� �dz@

� � n=4 � �outbound:� �dz@

� �#0

� � � � �dfJ

�
 � op$(3)

� � 3

�
 � A=0

� � 19,1,6;0;

�
 � �0,0);

� 

�6 LF=10:FF=12:CR=&D:XON=&11:XOFF=&13:SP=&20:ESC=&1B
) osbyte=&FFF4:oswrch=&FFEE:escflg=&FF
 *FX15 0
 *fx6,0
& *fx2,2
0 *fx5,2
: *fx8,7
D *fx7,7
N *fx15,0
X �do_ass
b � � � �T^J
l 
v= badname=-1:notfound=-2:recperr=-3:endoffile=-4:endbat=-5
� protoerr=-6
� 
� F$="":F%=0
�	 Z%=n
� � �0,R%);
�# � Z%=1 � Z%=2 F$=�input(Z%=1) 
� � Z%=1 A%=�recfile
�   � Z%=2 A%=�sendfile
� � Z%<>5 � �
� �#0
�	 � 26
� � �1,R%+14);
� *FX2 0
 *FX3 0
 *FX5 1
 �
 
* ��inbound
4 � K>1 � K=0
>/ � K=1 � �9,11)�(129)"(I)nbound CR/LF OFF"
H/ � K=0 � �9,11)�(129)"(I)nbound CR/LF ON "
R �10,11);
\
 K=K+1
f �
p
z ��outbound
� � J>1 � J=0
�0 � J=1 � �9,13)�(129)"(O)utbound CR/LF OFF"
�0 � J=0 � �9,13)�(129)"(O)utbound CR/LF ON "
� �10,13);
�
 J=J+1
� �
�
� ݤrecfile
�
 ?&75=&00
� A%=�openout(F$)
� �
�   A%=�(rbyte) � &FF
� � A%=&8A � A%=&0A
 � K=1 � A%=CR � � �(LF);

 � �(A%);
 � A%>=0 � F%<>0 � �#F%,A%
$ � A=A+1
. � A%=8
8 �#F%:F$="":F%=0
B( �50,24) "Characters Received ";A-1
L
 � B=1000
V � B=B-1
` � B=0 � �DjD � �DVD
j �
t �reperr(A%)
~ � A%=endbat =-1
� =0
� 
� ݤsendfile
�
 F%=�(F$)
�" � F%=0 � �reperr(notfound):=0
� �
�   I%=�#F%
�   �sendchr(I%)
�
�
 � �(I%);
� � J=1 � I%=CR � � �(LF);
� � A=A+1
 � �#F%

 �
 � #F%:F$="":F%=0
$ �50,24) "Characters Sent ";A-1
(
2
 � C=1000
< � C=C-1
F � C=0 � �DPE � �T|E
P =-1
Z 
d ݤopenout(FI$)
n � FI$="" �=badname
x! � IF LEN(FI$)>7 THEN=toolong
� F%=�(FI$)
� � F%=notfound
� =0
� 
� ��sendchr(chr%)
�, � chr%>=32 � chr%<127 A%=chr%:� wbyte:�
� � chr%=&89 � chr%=&09
� � chr%=&8A � chr%=&0A
� � chr%=&8D � chr%=&0D
�7 � chr%=&09 � chr%=&0A � chr%=&0D A%=chr%:� wbyte:�
� �
� 
� ��reperr(err)
 �
, � err<>-1 � � X%=-1 � err+1 � -1:� A$:�
	 � A$
"	 � A$
, �
6 
@B � "Bad name","File not found","Reception error","End of file"
J( � "End of session","Protocol error"
T 
^
 ��do_ass
h
 c=&70
r xonoff=&71:?xonoff=0
| rxoff=&72:?rxoff=0
�
 ?&73=&FF
�
 ?&74=&FF
� � code% 200
� � pass=0 � 2 � 2
�
 P%=code%
� [ OPT pass
� .wbyte
�	STA c
�PHA:TXA:PHA:TYA:PHA
� .wwait
�BIT escflg
�
BMI exitw
�LDA #&91:LDX #1:JSR osbyte
BCS noresp

LDA #0
CPY #XON
&BEQ setxon
0
CPY #XOFF
:BNE noresp
D
LDA #1
N
  .setxon
XSTA xonoff
b
  .noresp
lLDA xonoff
v
BNE wwait
�LDA #3:LDX #26:JSR osbyte
�	LDA c
�JSR oswrch
�LDA #3:LDX #0:JSR osbyte
� .exitw
�PLA:TAY:PLA:TAX:PLA
�RTS
� 
� .rbyte
�TXA:PHA:TYA:PHA
�)LDA #&80:LDX #&FE:LDY #&FF:JSR osbyte
�
LDA #XOFF
�CPX #240
BCS flipx3
 .enufsp

LDA rxoff
 BEQ exbyte
*CPX #200
4BCS exbyte
>LDA #XON
HBNE kkll \always
R .flipx3
\
LDX rxoff
fBNE exbyte
p
 .kkll
zPHA
�LDA rxoff:� #&FF:STA rxoff
�LDA #3:LDX #26:JSR osbyte
�PLA:JSR oswrch
�LDA #3:LDX #0:JSR osbyte
� .exbyte
�BIT escflg
�
BMI exitr
�LDA #&91:LDX #1:JSR osbyte
�
BCS delay
�LDA #&01
�STA &75
�	STY c
�CPY #XON
	BEQ exbyte
	
CPY #XOFF
	BEQ exbyte
	$
JMP exitr
	. .delay
	8LDA &75
	BCMP #&00
	LBEQ exbyte
	VDEC &73
	`LDA &73
	jCMP #&00
	tBNE exbyte
	~LDA #&FF
	�STA &73
	�DEC &74
	�LDA &74
	�CMP #&DF
	�BNE exbyte
	�LDA #&08
	�	STA c
	�
.exitr
	�PLA:TAY:PLA:TAX
	�	LDA c
	�RTS
	� ]
 � pass

 �
 

 � � �
( *fx2,0
2 *fx3,0
< *fx5,1
F � �=17 � �
P �:�;" @ ";�
Z �#0
d �  '"Press SPACE"
n
 � � �=32
x �
� �
� 
� � �input(C)
� �
�# �' �32," ");�(13);"Filename:";
� � ""F$
� � 11:� fudge
� � F$<>"" � C
� �
� =F$
�
 � � �
� � �=25 � � 7:C%=24:� @@@@
�� * COMMANDS
�
� �0,5);"*";
� "" a$
"� a$="" � �
,
� cd% 255
6$cd%=a$
@X%=cd% � 256:Y%=cd% � 256
J� &FFF7
T� ''"Hit a key"
^G=�
h�
�

00000000  0d 00 0a 1b f4 20 44 41  54 41 20 54 52 41 4e 53  |..... DATA TRANS|
00000010  46 45 52 20 50 52 4f 47  52 41 4d 0d 00 14 36 f4  |FER PROGRAM...6.|
00000020  20 49 44 45 41 20 54 41  4b 45 4e 20 46 52 4f 4d  | IDEA TAKEN FROM|
00000030  20 57 41 54 46 4f 52 44  20 45 4c 45 43 54 52 4f  | WATFORD ELECTRO|
00000040  4e 49 43 53 20 42 42 43  2d 5a 38 38 20 4c 49 4e  |NICS BBC-Z88 LIN|
00000050  4b 0d 00 1e 15 f4 20 44  2e 57 41 4c 4b 45 52 20  |K..... D.WALKER |
00000060  4e 4f 56 27 39 33 0d 00  28 23 f4 20 45 4c 45 43  |NOV'93..(#. ELEC|
00000070  54 52 4f 4e 20 56 45 52  53 49 4f 4e 20 4a 41 4e  |TRON VERSION JAN|
00000080  27 39 34 20 76 31 2e 30  31 0d 00 32 07 eb 20 37  |'94 v1.01..2.. 7|
00000090  0d 00 3c 0e ef 31 39 2c  31 2c 32 3b 30 3b 0d 00  |..<..19,1,2;0;..|
000000a0  46 07 4b 3d 31 0d 00 50  07 4a 3d 31 0d 00 5a 29  |F.K=1..P.J=1..Z)|
000000b0  f1 8a 36 2c 30 29 20 22  45 4c 45 43 54 52 4f 4e  |..6,0) "ELECTRON|
000000c0  20 44 61 74 61 20 4c 69  6e 6b 20 53 6f 66 74 77  | Data Link Softw|
000000d0  61 72 65 22 3b 0d 00 64  2d f1 8a 35 2c 32 33 29  |are";..d-..5,23)|
000000e0  3b 22 55 73 65 20 55 50  2c 20 44 4e 20 63 75 72  |;"Use UP, DN cur|
000000f0  73 6f 72 20 6f 72 20 28  4c 29 65 74 74 65 72 20  |sor or (L)etter |
00000100  22 3b 0d 00 6e 04 0d 00  78 0d f1 3b bd 28 31 35  |";..n...x..;.(15|
00000110  36 29 3b 0d 00 82 0d de  20 6f 70 74 24 28 35 29  |6);..... opt$(5)|
00000120  0d 00 8c 1a 6f 70 74 24  28 31 29 3d 22 52 65 63  |....opt$(1)="Rec|
00000130  65 69 76 65 20 46 69 6c  65 22 0d 00 96 17 6f 70  |eive File"....op|
00000140  74 24 28 32 29 3d 22 53  65 6e 64 20 46 69 6c 65  |t$(2)="Send File|
00000150  22 0d 00 a0 1e 6f 70 74  24 28 33 29 3d 22 49 6e  |"....opt$(3)="In|
00000160  62 6f 75 6e 64 20 43 52  2f 4c 46 20 4f 4e 22 0d  |bound CR/LF ON".|
00000170  00 aa 20 6f 70 74 24 28  34 29 3d 22 4f 75 74 62  |.. opt$(4)="Outb|
00000180  6f 75 6e 64 20 43 52 2f  4c 46 20 4f 4e 20 22 0d  |ound CR/LF ON ".|
00000190  00 b4 12 6f 70 74 24 28  35 29 3d 22 51 75 69 74  |...opt$(5)="Quit|
000001a0  22 0d 00 be 0d e3 20 4e  3d 31 20 b8 20 35 0d 00  |"..... N=1 . 5..|
000001b0  c8 1a f1 20 8a 38 2c 4e  2a 32 2b 35 29 3b bd 31  |... .8,N*2+5);.1|
000001c0  34 30 3b bd 31 32 39 3b  0d 00 d2 1b f1 20 3b 22  |40;.129;..... ;"|
000001d0  28 22 3b c0 6f 70 74 24  28 4e 29 2c 31 29 3b 22  |(";.opt$(N),1);"|
000001e0  29 22 3b 0d 00 dc 1e f1  20 3b c2 6f 70 74 24 28  |)";..... ;.opt$(|
000001f0  4e 29 2c a9 28 6f 70 74  24 28 4e 29 29 2d 31 29  |N),.(opt$(N))-1)|
00000200  3b 0d 00 e6 05 ed 0d 00  f0 0b 2a 46 58 20 34 2c  |;.........*FX 4,|
00000210  31 0d 00 fa 07 6e 3d 31  0d 01 04 15 f1 20 8a 39  |1....n=1..... .9|
00000220  2c 6e 2a 32 2b 35 29 3b  bd 31 33 30 3b 0d 01 0e  |,n*2+5);.130;...|
00000230  04 0d 01 18 05 f5 0d 01  22 07 47 3d a5 0d 01 2c  |........".G=...,|
00000240  13 e7 20 47 3d 34 32 20  8c 20 e5 20 8d 64 7a 4a  |.. G=42 . . .dzJ|
00000250  0d 01 36 31 e7 20 47 3d  31 33 39 20 8c 20 f1 20  |..61. G=139 . . |
00000260  8a 39 2c 6e 2a 32 2b 35  29 3b bd 31 32 39 3b 3a  |.9,n*2+5);.129;:|
00000270  6e 3d 6e 2d 31 3a e7 20  6e 3c 31 20 8c 20 6e 3d  |n=n-1:. n<1 . n=|
00000280  35 0d 01 40 31 e7 20 47  3d 31 33 38 20 8c 20 f1  |5..@1. G=138 . .|
00000290  20 8a 39 2c 6e 2a 32 2b  35 29 3b bd 31 32 39 3b  | .9,n*2+5);.129;|
000002a0  3a 6e 3d 6e 2b 31 3a e7  20 6e 3e 35 20 8c 20 6e  |:n=n+1:. n>5 . n|
000002b0  3d 31 0d 01 4a 15 f1 20  8a 39 2c 6e 2a 32 2b 35  |=1..J.. .9,n*2+5|
000002c0  29 3b bd 31 33 30 3b 0d  01 54 55 fd 20 47 3d 31  |);.130;..TU. G=1|
000002d0  33 20 84 20 47 3d 38 31  20 84 20 47 3d 38 32 20  |3 . G=81 . G=82 |
000002e0  84 20 47 3d 38 33 20 84  20 47 3d 31 31 33 20 84  |. G=83 . G=113 .|
000002f0  20 47 3d 31 31 34 20 84  20 47 3d 31 31 35 20 84  | G=114 . G=115 .|
00000300  20 47 3d 37 33 20 84 20  47 3d 31 30 35 20 84 20  | G=73 . G=105 . |
00000310  47 3d 37 39 20 84 20 47  3d 31 31 31 0d 01 5e 19  |G=79 . G=111..^.|
00000320  20 e7 20 47 3d 38 31 20  84 20 47 3d 31 31 33 20  | . G=81 . G=113 |
00000330  8c 20 6e 3d 35 0d 01 68  19 20 e7 20 47 3d 38 32  |. n=5..h. . G=82|
00000340  20 84 20 47 3d 31 31 34  20 8c 20 6e 3d 31 0d 01  | . G=114 . n=1..|
00000350  72 19 20 e7 20 47 3d 38  33 20 84 20 47 3d 31 31  |r. . G=83 . G=11|
00000360  35 20 8c 20 6e 3d 32 0d  01 7c 19 20 e7 20 47 3d  |5 . n=2..|. . G=|
00000370  37 33 20 84 20 47 3d 31  30 35 20 8c 20 6e 3d 33  |73 . G=105 . n=3|
00000380  0d 01 86 19 20 e7 20 47  3d 37 39 20 84 20 47 3d  |.... . G=79 . G=|
00000390  31 31 31 20 8c 20 6e 3d  34 0d 01 90 04 0d 01 9a  |111 . n=4.......|
000003a0  1c 20 e7 20 6e 3d 33 20  8c 20 f2 69 6e 62 6f 75  |. . n=3 . .inbou|
000003b0  6e 64 3a e5 20 8d 64 7a  40 0d 01 a4 1d 20 e7 20  |nd:. .dz@.... . |
000003c0  6e 3d 34 20 8c 20 f2 6f  75 74 62 6f 75 6e 64 3a  |n=4 . .outbound:|
000003d0  e5 20 8d 64 7a 40 0d 01  ae 08 20 d9 23 30 0d 01  |. .dz@.... .#0..|
000003e0  b8 0f 20 ee 20 85 20 e5  20 8d 64 66 4a 0d 01 c2  |.. . . . .dfJ...|
000003f0  0d 20 de 20 6f 70 24 28  33 29 0d 01 cc 08 20 eb  |. . op$(3).... .|
00000400  20 33 0d 01 d6 0a 20 e9  20 41 3d 30 0d 01 e0 10  | 3.... . A=0....|
00000410  20 ef 20 31 39 2c 31 2c  36 3b 30 3b 0d 01 ea 0d  | . 19,1,6;0;....|
00000420  20 f1 20 8a 30 2c 30 29  3b 0d 01 f4 05 20 0d 01  | . .0,0);.... ..|
00000430  fe 36 20 4c 46 3d 31 30  3a 46 46 3d 31 32 3a 43  |.6 LF=10:FF=12:C|
00000440  52 3d 26 44 3a 58 4f 4e  3d 26 31 31 3a 58 4f 46  |R=&D:XON=&11:XOF|
00000450  46 3d 26 31 33 3a 53 50  3d 26 32 30 3a 45 53 43  |F=&13:SP=&20:ESC|
00000460  3d 26 31 42 0d 02 08 29  20 6f 73 62 79 74 65 3d  |=&1B...) osbyte=|
00000470  26 46 46 46 34 3a 6f 73  77 72 63 68 3d 26 46 46  |&FFF4:oswrch=&FF|
00000480  45 45 3a 65 73 63 66 6c  67 3d 26 46 46 0d 02 12  |EE:escflg=&FF...|
00000490  0c 20 2a 46 58 31 35 20  30 0d 02 1c 0b 20 2a 66  |. *FX15 0.... *f|
000004a0  78 36 2c 30 0d 02 26 0b  20 2a 66 78 32 2c 32 0d  |x6,0..&. *fx2,2.|
000004b0  02 30 0b 20 2a 66 78 35  2c 32 0d 02 3a 0b 20 2a  |.0. *fx5,2..:. *|
000004c0  66 78 38 2c 37 0d 02 44  0b 20 2a 66 78 37 2c 37  |fx8,7..D. *fx7,7|
000004d0  0d 02 4e 0c 20 2a 66 78  31 35 2c 30 0d 02 58 0c  |..N. *fx15,0..X.|
000004e0  20 f2 64 6f 5f 61 73 73  0d 02 62 0f 20 ee 20 85  | .do_ass..b. . .|
000004f0  20 e5 20 8d 54 5e 4a 0d  02 6c 05 20 0d 02 76 3d  | . .T^J..l. ..v=|
00000500  20 62 61 64 6e 61 6d 65  3d 2d 31 3a 6e 6f 74 66  | badname=-1:notf|
00000510  6f 75 6e 64 3d 2d 32 3a  72 65 63 70 65 72 72 3d  |ound=-2:recperr=|
00000520  2d 33 3a 65 6e 64 6f 66  66 69 6c 65 3d 2d 34 3a  |-3:endoffile=-4:|
00000530  65 6e 64 62 61 74 3d 2d  35 0d 02 80 10 20 70 72  |endbat=-5.... pr|
00000540  6f 74 6f 65 72 72 3d 2d  36 0d 02 8a 05 20 0d 02  |otoerr=-6.... ..|
00000550  94 0f 20 46 24 3d 22 22  3a 46 25 3d 30 0d 02 9e  |.. F$="":F%=0...|
00000560  09 20 5a 25 3d 6e 0d 02  a8 0e 20 f1 20 8a 30 2c  |. Z%=n.... . .0,|
00000570  52 25 29 3b 0d 02 b2 23  20 e7 20 5a 25 3d 31 20  |R%);...# . Z%=1 |
00000580  84 20 5a 25 3d 32 20 46  24 3d a4 69 6e 70 75 74  |. Z%=2 F$=.input|
00000590  28 5a 25 3d 31 29 20 0d  02 bc 17 20 e7 20 5a 25  |(Z%=1) .... . Z%|
000005a0  3d 31 20 41 25 3d a4 72  65 63 66 69 6c 65 0d 02  |=1 A%=.recfile..|
000005b0  c6 1a 20 20 20 e7 20 5a  25 3d 32 20 41 25 3d a4  |..   . Z%=2 A%=.|
000005c0  73 65 6e 64 66 69 6c 65  0d 02 d0 10 20 e7 20 5a  |sendfile.... . Z|
000005d0  25 3c 3e 35 20 8c 20 f9  0d 02 da 08 20 d9 23 30  |%<>5 . ..... .#0|
000005e0  0d 02 e4 09 20 ef 20 32  36 0d 02 ee 11 20 f1 20  |.... . 26.... . |
000005f0  8a 31 2c 52 25 2b 31 34  29 3b 0d 02 f8 0b 20 2a  |.1,R%+14);.... *|
00000600  46 58 32 20 30 0d 03 02  0b 20 2a 46 58 33 20 30  |FX2 0.... *FX3 0|
00000610  0d 03 0c 0b 20 2a 46 58  35 20 31 0d 03 16 06 20  |.... *FX5 1.... |
00000620  e0 0d 03 20 04 0d 03 2a  0e 20 dd f2 69 6e 62 6f  |... ...*. ..inbo|
00000630  75 6e 64 0d 03 34 10 20  e7 20 4b 3e 31 20 8c 20  |und..4. . K>1 . |
00000640  4b 3d 30 0d 03 3e 2f 20  e7 20 4b 3d 31 20 8c 20  |K=0..>/ . K=1 . |
00000650  f1 8a 39 2c 31 31 29 bd  28 31 32 39 29 22 28 49  |..9,11).(129)"(I|
00000660  29 6e 62 6f 75 6e 64 20  43 52 2f 4c 46 20 4f 46  |)nbound CR/LF OF|
00000670  46 22 0d 03 48 2f 20 e7  20 4b 3d 30 20 8c 20 f1  |F"..H/ . K=0 . .|
00000680  8a 39 2c 31 31 29 bd 28  31 32 39 29 22 28 49 29  |.9,11).(129)"(I)|
00000690  6e 62 6f 75 6e 64 20 43  52 2f 4c 46 20 4f 4e 20  |nbound CR/LF ON |
000006a0  22 0d 03 52 0e 20 f1 8a  31 30 2c 31 31 29 3b 0d  |"..R. ..10,11);.|
000006b0  03 5c 0a 20 4b 3d 4b 2b  31 0d 03 66 06 20 e1 0d  |.\. K=K+1..f. ..|
000006c0  03 70 04 0d 03 7a 0f 20  dd f2 6f 75 74 62 6f 75  |.p...z. ..outbou|
000006d0  6e 64 0d 03 84 10 20 e7  20 4a 3e 31 20 8c 20 4a  |nd.... . J>1 . J|
000006e0  3d 30 0d 03 8e 30 20 e7  20 4a 3d 31 20 8c 20 f1  |=0...0 . J=1 . .|
000006f0  8a 39 2c 31 33 29 bd 28  31 32 39 29 22 28 4f 29  |.9,13).(129)"(O)|
00000700  75 74 62 6f 75 6e 64 20  43 52 2f 4c 46 20 4f 46  |utbound CR/LF OF|
00000710  46 22 0d 03 98 30 20 e7  20 4a 3d 30 20 8c 20 f1  |F"...0 . J=0 . .|
00000720  8a 39 2c 31 33 29 bd 28  31 32 39 29 22 28 4f 29  |.9,13).(129)"(O)|
00000730  75 74 62 6f 75 6e 64 20  43 52 2f 4c 46 20 4f 4e  |utbound CR/LF ON|
00000740  20 22 0d 03 a2 0e 20 f1  8a 31 30 2c 31 33 29 3b  | ".... ..10,13);|
00000750  0d 03 ac 0a 20 4a 3d 4a  2b 31 0d 03 b6 06 20 e1  |.... J=J+1.... .|
00000760  0d 03 c0 04 0d 03 ca 0e  20 dd a4 72 65 63 66 69  |........ ..recfi|
00000770  6c 65 0d 03 d4 0d 20 3f  26 37 35 3d 26 30 30 0d  |le.... ?&75=&00.|
00000780  03 de 14 20 41 25 3d a4  6f 70 65 6e 6f 75 74 28  |... A%=.openout(|
00000790  46 24 29 0d 03 e8 06 20  f5 0d 03 f2 18 20 20 20  |F$).... .....   |
000007a0  41 25 3d ba 28 72 62 79  74 65 29 20 80 20 26 46  |A%=.(rbyte) . &F|
000007b0  46 0d 03 fc 16 20 e7 20  41 25 3d 26 38 41 20 8c  |F.... . A%=&8A .|
000007c0  20 41 25 3d 26 30 41 0d  04 06 1d 20 e7 20 4b 3d  | A%=&0A.... . K=|
000007d0  31 20 80 20 41 25 3d 43  52 20 8c 20 f1 20 bd 28  |1 . A%=CR . . .(|
000007e0  4c 46 29 3b 0d 04 10 0d  20 f1 20 bd 28 41 25 29  |LF);.... . .(A%)|
000007f0  3b 0d 04 1a 1e 20 e7 20  41 25 3e 3d 30 20 80 20  |;.... . A%>=0 . |
00000800  46 25 3c 3e 30 20 8c 20  d5 23 46 25 2c 41 25 0d  |F%<>0 . .#F%,A%.|
00000810  04 24 0c 20 e9 20 41 3d  41 2b 31 0d 04 2e 0b 20  |.$. . A=A+1.... |
00000820  fd 20 41 25 3d 38 0d 04  38 14 20 d9 23 46 25 3a  |. A%=8..8. .#F%:|
00000830  46 24 3d 22 22 3a 46 25  3d 30 0d 04 42 28 20 f1  |F$="":F%=0..B( .|
00000840  8a 35 30 2c 32 34 29 20  22 43 68 61 72 61 63 74  |.50,24) "Charact|
00000850  65 72 73 20 52 65 63 65  69 76 65 64 20 22 3b 41  |ers Received ";A|
00000860  2d 31 0d 04 4c 0d 20 e9  20 42 3d 31 30 30 30 0d  |-1..L. . B=1000.|
00000870  04 56 0c 20 e9 20 42 3d  42 2d 31 0d 04 60 18 20  |.V. . B=B-1..`. |
00000880  e7 20 42 3d 30 20 8c 20  8d 44 6a 44 20 8b 20 8d  |. B=0 . .DjD . .|
00000890  44 56 44 0d 04 6a 06 20  f1 0d 04 74 10 20 f2 72  |DVD..j. ...t. .r|
000008a0  65 70 65 72 72 28 41 25  29 0d 04 7e 14 20 e7 20  |eperr(A%)..~. . |
000008b0  41 25 3d 65 6e 64 62 61  74 20 3d 2d 31 0d 04 88  |A%=endbat =-1...|
000008c0  07 20 3d 30 0d 04 92 05  20 0d 04 9c 0f 20 dd a4  |. =0.... .... ..|
000008d0  73 65 6e 64 66 69 6c 65  0d 04 a6 0d 20 46 25 3d  |sendfile.... F%=|
000008e0  ad 28 46 24 29 0d 04 b0  22 20 e7 20 46 25 3d 30  |.(F$)..." . F%=0|
000008f0  20 8c 20 f2 72 65 70 65  72 72 28 6e 6f 74 66 6f  | . .reperr(notfo|
00000900  75 6e 64 29 3a 3d 30 0d  04 ba 06 20 f5 0d 04 c4  |und):=0.... ....|
00000910  0e 20 20 20 49 25 3d 9a  23 46 25 0d 04 ce 13 20  |.   I%=.#F%.... |
00000920  20 20 f2 73 65 6e 64 63  68 72 28 49 25 29 0d 04  |  .sendchr(I%)..|
00000930  d8 04 0d 04 e2 0d 20 f1  20 bd 28 49 25 29 3b 0d  |...... . .(I%);.|
00000940  04 ec 1d 20 e7 20 4a 3d  31 20 80 20 49 25 3d 43  |... . J=1 . I%=C|
00000950  52 20 8c 20 f1 20 bd 28  4c 46 29 3b 0d 04 f6 0c  |R . . .(LF);....|
00000960  20 e9 20 41 3d 41 2b 31  0d 05 00 0b 20 fd 20 c5  | . A=A+1.... . .|
00000970  23 46 25 0d 05 0a 06 20  f1 0d 05 14 15 20 d9 20  |#F%.... ..... . |
00000980  23 46 25 3a 46 24 3d 22  22 3a 46 25 3d 30 0d 05  |#F%:F$="":F%=0..|
00000990  1e 24 20 f1 8a 35 30 2c  32 34 29 20 22 43 68 61  |.$ ..50,24) "Cha|
000009a0  72 61 63 74 65 72 73 20  53 65 6e 74 20 22 3b 41  |racters Sent ";A|
000009b0  2d 31 0d 05 28 04 0d 05  32 0d 20 e9 20 43 3d 31  |-1..(...2. . C=1|
000009c0  30 30 30 0d 05 3c 0c 20  e9 20 43 3d 43 2d 31 0d  |000..<. . C=C-1.|
000009d0  05 46 18 20 e7 20 43 3d  30 20 8c 20 8d 44 50 45  |.F. . C=0 . .DPE|
000009e0  20 8b 20 8d 54 7c 45 0d  05 50 08 20 3d 2d 31 0d  | . .T|E..P. =-1.|
000009f0  05 5a 05 20 0d 05 64 13  20 dd a4 6f 70 65 6e 6f  |.Z. ..d. ..openo|
00000a00  75 74 28 46 49 24 29 0d  05 6e 17 20 e7 20 46 49  |ut(FI$)..n. . FI|
00000a10  24 3d 22 22 20 8c 3d 62  61 64 6e 61 6d 65 0d 05  |$="" .=badname..|
00000a20  78 21 20 f4 20 49 46 20  4c 45 4e 28 46 49 24 29  |x! . IF LEN(FI$)|
00000a30  3e 37 20 54 48 45 4e 3d  74 6f 6f 6c 6f 6e 67 0d  |>7 THEN=toolong.|
00000a40  05 82 0e 20 46 25 3d ae  28 46 49 24 29 0d 05 8c  |... F%=.(FI$)...|
00000a50  12 20 e7 20 46 25 3d 6e  6f 74 66 6f 75 6e 64 0d  |. . F%=notfound.|
00000a60  05 96 07 20 3d 30 0d 05  a0 05 20 0d 05 aa 14 20  |... =0.... .... |
00000a70  dd f2 73 65 6e 64 63 68  72 28 63 68 72 25 29 0d  |..sendchr(chr%).|
00000a80  05 b4 2c 20 e7 20 63 68  72 25 3e 3d 33 32 20 80  |.., . chr%>=32 .|
00000a90  20 63 68 72 25 3c 31 32  37 20 41 25 3d 63 68 72  | chr%<127 A%=chr|
00000aa0  25 3a d6 20 77 62 79 74  65 3a e1 0d 05 be 1a 20  |%:. wbyte:..... |
00000ab0  e7 20 63 68 72 25 3d 26  38 39 20 8c 20 63 68 72  |. chr%=&89 . chr|
00000ac0  25 3d 26 30 39 0d 05 c8  1a 20 e7 20 63 68 72 25  |%=&09.... . chr%|
00000ad0  3d 26 38 41 20 8c 20 63  68 72 25 3d 26 30 41 0d  |=&8A . chr%=&0A.|
00000ae0  05 d2 1a 20 e7 20 63 68  72 25 3d 26 38 44 20 8c  |... . chr%=&8D .|
00000af0  20 63 68 72 25 3d 26 30  44 0d 05 dc 37 20 e7 20  | chr%=&0D...7 . |
00000b00  63 68 72 25 3d 26 30 39  20 84 20 63 68 72 25 3d  |chr%=&09 . chr%=|
00000b10  26 30 41 20 84 20 63 68  72 25 3d 26 30 44 20 41  |&0A . chr%=&0D A|
00000b20  25 3d 63 68 72 25 3a d6  20 77 62 79 74 65 3a e1  |%=chr%:. wbyte:.|
00000b30  0d 05 e6 06 20 e1 0d 05  f0 05 20 0d 05 fa 12 20  |.... ..... .... |
00000b40  dd f2 72 65 70 65 72 72  28 65 72 72 29 0d 06 04  |..reperr(err)...|
00000b50  06 20 f7 0d 06 0e 2c 20  e7 20 65 72 72 3c 3e 2d  |. ...., . err<>-|
00000b60  31 20 8c 20 e3 20 58 25  3d 2d 31 20 b8 20 65 72  |1 . . X%=-1 . er|
00000b70  72 2b 31 20 88 20 2d 31  3a f3 20 41 24 3a ed 0d  |r+1 . -1:. A$:..|
00000b80  06 18 09 20 f3 20 41 24  0d 06 22 09 20 f1 20 41  |... . A$..". . A|
00000b90  24 0d 06 2c 06 20 e1 0d  06 36 05 20 0d 06 40 42  |$..,. ...6. ..@B|
00000ba0  20 dc 20 22 42 61 64 20  6e 61 6d 65 22 2c 22 46  | . "Bad name","F|
00000bb0  69 6c 65 20 6e 6f 74 20  66 6f 75 6e 64 22 2c 22  |ile not found","|
00000bc0  52 65 63 65 70 74 69 6f  6e 20 65 72 72 6f 72 22  |Reception error"|
00000bd0  2c 22 45 6e 64 20 6f 66  20 66 69 6c 65 22 0d 06  |,"End of file"..|
00000be0  4a 28 20 dc 20 22 45 6e  64 20 6f 66 20 73 65 73  |J( . "End of ses|
00000bf0  73 69 6f 6e 22 2c 22 50  72 6f 74 6f 63 6f 6c 20  |sion","Protocol |
00000c00  65 72 72 6f 72 22 0d 06  54 05 20 0d 06 5e 0d 20  |error"..T. ..^. |
00000c10  dd f2 64 6f 5f 61 73 73  0d 06 68 0a 20 63 3d 26  |..do_ass..h. c=&|
00000c20  37 30 0d 06 72 19 20 78  6f 6e 6f 66 66 3d 26 37  |70..r. xonoff=&7|
00000c30  31 3a 3f 78 6f 6e 6f 66  66 3d 30 0d 06 7c 17 20  |1:?xonoff=0..|. |
00000c40  72 78 6f 66 66 3d 26 37  32 3a 3f 72 78 6f 66 66  |rxoff=&72:?rxoff|
00000c50  3d 30 0d 06 86 0d 20 3f  26 37 33 3d 26 46 46 0d  |=0.... ?&73=&FF.|
00000c60  06 90 0d 20 3f 26 37 34  3d 26 46 46 0d 06 9a 10  |... ?&74=&FF....|
00000c70  20 de 20 63 6f 64 65 25  20 32 30 30 0d 06 a4 15  | . code% 200....|
00000c80  20 e3 20 70 61 73 73 3d  30 20 b8 20 32 20 88 20  | . pass=0 . 2 . |
00000c90  32 0d 06 ae 0d 20 50 25  3d 63 6f 64 65 25 0d 06  |2.... P%=code%..|
00000ca0  b8 0f 20 5b 20 4f 50 54  20 70 61 73 73 0d 06 c2  |.. [ OPT pass...|
00000cb0  0b 20 2e 77 62 79 74 65  0d 06 cc 09 53 54 41 20  |. .wbyte....STA |
00000cc0  63 0d 06 d6 17 50 48 41  3a 54 58 41 3a 50 48 41  |c....PHA:TXA:PHA|
00000cd0  3a 54 59 41 3a 50 48 41  0d 06 e0 0b 20 2e 77 77  |:TYA:PHA.... .ww|
00000ce0  61 69 74 0d 06 ea 0e 42  49 54 20 65 73 63 66 6c  |ait....BIT escfl|
00000cf0  67 0d 06 f4 0d 42 4d 49  20 65 78 69 74 77 0d 06  |g....BMI exitw..|
00000d00  fe 1e 4c 44 41 20 23 26  39 31 3a 4c 44 58 20 23  |..LDA #&91:LDX #|
00000d10  31 3a 4a 53 52 20 6f 73  62 79 74 65 0d 07 08 0e  |1:JSR osbyte....|
00000d20  42 43 53 20 6e 6f 72 65  73 70 0d 07 12 0a 4c 44  |BCS noresp....LD|
00000d30  41 20 23 30 0d 07 1c 0c  43 50 59 20 23 58 4f 4e  |A #0....CPY #XON|
00000d40  0d 07 26 0e 42 45 51 20  73 65 74 78 6f 6e 0d 07  |..&.BEQ setxon..|
00000d50  30 0d 43 50 59 20 23 58  4f 46 46 0d 07 3a 0e 42  |0.CPY #XOFF..:.B|
00000d60  4e 45 20 6e 6f 72 65 73  70 0d 07 44 0a 4c 44 41  |NE noresp..D.LDA|
00000d70  20 23 31 0d 07 4e 0d 20  20 2e 73 65 74 78 6f 6e  | #1..N.  .setxon|
00000d80  0d 07 58 0e 53 54 41 20  78 6f 6e 6f 66 66 0d 07  |..X.STA xonoff..|
00000d90  62 0d 20 20 2e 6e 6f 72  65 73 70 0d 07 6c 0e 4c  |b.  .noresp..l.L|
00000da0  44 41 20 78 6f 6e 6f 66  66 0d 07 76 0d 42 4e 45  |DA xonoff..v.BNE|
00000db0  20 77 77 61 69 74 0d 07  80 1d 4c 44 41 20 23 33  | wwait....LDA #3|
00000dc0  3a 4c 44 58 20 23 32 36  3a 4a 53 52 20 6f 73 62  |:LDX #26:JSR osb|
00000dd0  79 74 65 0d 07 8a 09 4c  44 41 20 63 0d 07 94 0e  |yte....LDA c....|
00000de0  4a 53 52 20 6f 73 77 72  63 68 0d 07 9e 1c 4c 44  |JSR oswrch....LD|
00000df0  41 20 23 33 3a 4c 44 58  20 23 30 3a 4a 53 52 20  |A #3:LDX #0:JSR |
00000e00  6f 73 62 79 74 65 0d 07  a8 0b 20 2e 65 78 69 74  |osbyte.... .exit|
00000e10  77 0d 07 b2 17 50 4c 41  3a 54 41 59 3a 50 4c 41  |w....PLA:TAY:PLA|
00000e20  3a 54 41 58 3a 50 4c 41  0d 07 bc 07 52 54 53 0d  |:TAX:PLA....RTS.|
00000e30  07 c6 05 20 0d 07 d0 0b  20 2e 72 62 79 74 65 0d  |... .... .rbyte.|
00000e40  07 da 13 54 58 41 3a 50  48 41 3a 54 59 41 3a 50  |...TXA:PHA:TYA:P|
00000e50  48 41 0d 07 e4 29 4c 44  41 20 23 26 38 30 3a 4c  |HA...)LDA #&80:L|
00000e60  44 58 20 23 26 46 45 3a  4c 44 59 20 23 26 46 46  |DX #&FE:LDY #&FF|
00000e70  3a 4a 53 52 20 6f 73 62  79 74 65 0d 07 ee 0d 4c  |:JSR osbyte....L|
00000e80  44 41 20 23 58 4f 46 46  0d 07 f8 0c 43 50 58 20  |DA #XOFF....CPX |
00000e90  23 32 34 30 0d 08 02 0e  42 43 53 20 66 6c 69 70  |#240....BCS flip|
00000ea0  78 33 0d 08 0c 0c 20 2e  65 6e 75 66 73 70 0d 08  |x3.... .enufsp..|
00000eb0  16 0d 4c 44 41 20 72 78  6f 66 66 0d 08 20 0e 42  |..LDA rxoff.. .B|
00000ec0  45 51 20 65 78 62 79 74  65 0d 08 2a 0c 43 50 58  |EQ exbyte..*.CPX|
00000ed0  20 23 32 30 30 0d 08 34  0e 42 43 53 20 65 78 62  | #200..4.BCS exb|
00000ee0  79 74 65 0d 08 3e 0c 4c  44 41 20 23 58 4f 4e 0d  |yte..>.LDA #XON.|
00000ef0  08 48 14 42 4e 45 20 6b  6b 6c 6c 20 5c 61 6c 77  |.H.BNE kkll \alw|
00000f00  61 79 73 0d 08 52 0c 20  2e 66 6c 69 70 78 33 0d  |ays..R. .flipx3.|
00000f10  08 5c 0d 4c 44 58 20 72  78 6f 66 66 0d 08 66 0e  |.\.LDX rxoff..f.|
00000f20  42 4e 45 20 65 78 62 79  74 65 0d 08 70 0a 20 2e  |BNE exbyte..p. .|
00000f30  6b 6b 6c 6c 0d 08 7a 07  50 48 41 0d 08 84 1e 4c  |kkll..z.PHA....L|
00000f40  44 41 20 72 78 6f 66 66  3a 82 20 23 26 46 46 3a  |DA rxoff:. #&FF:|
00000f50  53 54 41 20 72 78 6f 66  66 0d 08 8e 1d 4c 44 41  |STA rxoff....LDA|
00000f60  20 23 33 3a 4c 44 58 20  23 32 36 3a 4a 53 52 20  | #3:LDX #26:JSR |
00000f70  6f 73 62 79 74 65 0d 08  98 12 50 4c 41 3a 4a 53  |osbyte....PLA:JS|
00000f80  52 20 6f 73 77 72 63 68  0d 08 a2 1c 4c 44 41 20  |R oswrch....LDA |
00000f90  23 33 3a 4c 44 58 20 23  30 3a 4a 53 52 20 6f 73  |#3:LDX #0:JSR os|
00000fa0  62 79 74 65 0d 08 ac 0c  20 2e 65 78 62 79 74 65  |byte.... .exbyte|
00000fb0  0d 08 b6 0e 42 49 54 20  65 73 63 66 6c 67 0d 08  |....BIT escflg..|
00000fc0  c0 0d 42 4d 49 20 65 78  69 74 72 0d 08 ca 1e 4c  |..BMI exitr....L|
00000fd0  44 41 20 23 26 39 31 3a  4c 44 58 20 23 31 3a 4a  |DA #&91:LDX #1:J|
00000fe0  53 52 20 6f 73 62 79 74  65 0d 08 d4 0d 42 43 53  |SR osbyte....BCS|
00000ff0  20 64 65 6c 61 79 0d 08  de 0c 4c 44 41 20 23 26  | delay....LDA #&|
00001000  30 31 0d 08 e8 0b 53 54  41 20 26 37 35 0d 08 f2  |01....STA &75...|
00001010  09 53 54 59 20 63 0d 08  fc 0c 43 50 59 20 23 58  |.STY c....CPY #X|
00001020  4f 4e 0d 09 06 0e 42 45  51 20 65 78 62 79 74 65  |ON....BEQ exbyte|
00001030  0d 09 10 0d 43 50 59 20  23 58 4f 46 46 0d 09 1a  |....CPY #XOFF...|
00001040  0e 42 45 51 20 65 78 62  79 74 65 0d 09 24 0d 4a  |.BEQ exbyte..$.J|
00001050  4d 50 20 65 78 69 74 72  0d 09 2e 0b 20 2e 64 65  |MP exitr.... .de|
00001060  6c 61 79 0d 09 38 0b 4c  44 41 20 26 37 35 0d 09  |lay..8.LDA &75..|
00001070  42 0c 43 4d 50 20 23 26  30 30 0d 09 4c 0e 42 45  |B.CMP #&00..L.BE|
00001080  51 20 65 78 62 79 74 65  0d 09 56 0b 44 45 43 20  |Q exbyte..V.DEC |
00001090  26 37 33 0d 09 60 0b 4c  44 41 20 26 37 33 0d 09  |&73..`.LDA &73..|
000010a0  6a 0c 43 4d 50 20 23 26  30 30 0d 09 74 0e 42 4e  |j.CMP #&00..t.BN|
000010b0  45 20 65 78 62 79 74 65  0d 09 7e 0c 4c 44 41 20  |E exbyte..~.LDA |
000010c0  23 26 46 46 0d 09 88 0b  53 54 41 20 26 37 33 0d  |#&FF....STA &73.|
000010d0  09 92 0b 44 45 43 20 26  37 34 0d 09 9c 0b 4c 44  |...DEC &74....LD|
000010e0  41 20 26 37 34 0d 09 a6  0c 43 4d 50 20 23 26 44  |A &74....CMP #&D|
000010f0  46 0d 09 b0 0e 42 4e 45  20 65 78 62 79 74 65 0d  |F....BNE exbyte.|
00001100  09 ba 0c 4c 44 41 20 23  26 30 38 0d 09 c4 09 53  |...LDA #&08....S|
00001110  54 41 20 63 0d 09 ce 0a  2e 65 78 69 74 72 0d 09  |TA c.....exitr..|
00001120  d8 13 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |..PLA:TAY:PLA:TA|
00001130  58 0d 09 e2 09 4c 44 41  20 63 0d 09 ec 07 52 54  |X....LDA c....RT|
00001140  53 0d 09 f6 06 20 5d 0d  0a 00 0b 20 ed 20 70 61  |S.... ].... . pa|
00001150  73 73 0d 0a 0a 06 20 e1  0d 0a 14 05 20 0d 0a 1e  |ss.... ..... ...|
00001160  0a 20 ee 20 85 20 87 0d  0a 28 0b 20 2a 66 78 32  |. . . ...(. *fx2|
00001170  2c 30 0d 0a 32 0b 20 2a  66 78 33 2c 30 0d 0a 3c  |,0..2. *fx3,0..<|
00001180  0b 20 2a 66 78 35 2c 31  0d 0a 46 0f 20 e7 20 9f  |. *fx5,1..F. . .|
00001190  3d 31 37 20 8c 20 f9 0d  0a 50 10 20 f6 3a f1 3b  |=17 . ...P. .:.;|
000011a0  22 20 40 20 22 3b 9e 0d  0a 5a 08 20 d9 23 30 0d  |" @ ";...Z. .#0.|
000011b0  0a 64 16 20 f1 20 20 27  22 50 72 65 73 73 20 53  |.d. .  '"Press S|
000011c0  50 41 43 45 22 0d 0a 6e  0d 20 f5 20 fd 20 a5 3d  |PACE"..n. . . .=|
000011d0  33 32 0d 0a 78 06 20 f9  0d 0a 82 06 20 e0 0d 0a  |32..x. ..... ...|
000011e0  8c 05 20 0d 0a 96 10 20  dd 20 a4 69 6e 70 75 74  |.. .... . .input|
000011f0  28 43 29 0d 0a a0 06 20  f5 0d 0a aa 23 20 f1 27  |(C).... ....# .'|
00001200  20 c4 33 32 2c 22 20 22  29 3b bd 28 31 33 29 3b  | .32," ");.(13);|
00001210  22 46 69 6c 65 6e 61 6d  65 3a 22 3b 0d 0a b4 0b  |"Filename:";....|
00001220  20 e8 20 22 22 46 24 0d  0a be 11 20 ef 20 31 31  | . ""F$.... . 11|
00001230  3a f4 20 66 75 64 67 65  0d 0a c8 11 20 fd 20 46  |:. fudge.... . F|
00001240  24 3c 3e 22 22 20 84 20  43 0d 0a d2 06 20 f1 0d  |$<>"" . C.... ..|
00001250  0a dc 08 20 3d 46 24 0d  0a e6 0a 20 ee 20 85 20  |... =F$.... . . |
00001260  87 0d 0a f0 1e 20 e7 20  9f 3d 32 35 20 8c 20 eb  |..... . .=25 . .|
00001270  20 37 3a 43 25 3d 32 34  3a e5 20 40 40 40 40 0d  | 7:C%=24:. @@@@.|
00001280  0a fa 10 f4 20 2a 20 43  4f 4d 4d 41 4e 44 53 0d  |.... * COMMANDS.|
00001290  0b 04 05 db 0d 0b 0e 10  f1 20 8a 30 2c 35 29 3b  |......... .0,5);|
000012a0  22 2a 22 3b 0d 0b 18 0b  e8 20 22 22 20 61 24 0d  |"*";..... "" a$.|
000012b0  0b 22 0f e7 20 61 24 3d  22 22 20 8c 20 f9 0d 0b  |.".. a$="" . ...|
000012c0  2c 0d de 20 63 64 25 20  32 35 35 0d 0b 36 0b 24  |,.. cd% 255..6.$|
000012d0  63 64 25 3d 61 24 0d 0b  40 1d 58 25 3d 63 64 25  |cd%=a$..@.X%=cd%|
000012e0  20 83 20 32 35 36 3a 59  25 3d 63 64 25 20 81 20  | . 256:Y%=cd% . |
000012f0  32 35 36 0d 0b 4a 0b d6  20 26 46 46 46 37 0d 0b  |256..J.. &FFF7..|
00001300  54 13 f1 20 27 27 22 48  69 74 20 61 20 6b 65 79  |T.. ''"Hit a key|
00001310  22 0d 0b 5e 07 47 3d a5  0d 0b 68 05 f9 0d ff     |"..^.G=...h....|
0000131f