@ � �-256 A%=&EA:X%=0:Y%=&FF:� �(&FFF4) � &FF00 � T%=1 � T%=0
= rom%=&8000:page%=&1900:tone=150:T=2:M%=244:Z%=245:flag=0
 � A$(90):� B$(15)
( �7:�23;8202;0;0;0
2 �STARS:�START:�MENU:�
<
� �REC
F6�PORTDISPLAY:�7,19)"1  1  1  1  0  1  0  IN":�BOX
P �15
ZN$="":O%=0:Q%=0
d � flag=0 � �SAMPLE
n�
x
� read
�� ?&79=Z% � Q%=Q%+1
�� Q%> 5*S% � ?&79=M%
�� Q%> 5*S% � �GAP(32)
�
� ?&79=M%
�O%=0
��:� read:� ?&79=M%
�
�:O%=O%+1
�� read:� ?&79=Z%
�Q%=0
�� O%<L% � N$=N$+"1"
�� O%>L% � N$=N$+"2"
�
� read
�� ?&79=M% � �tj@

Q%=Q%+1

 � Q%> 1.75*S% � � �TlA 


� �dp@

"� PRINT

,� N%=32 � 90

6� N$=A$(N%) � �GAP(N%)

@�

J
� �DZ@

T�

^ � �STARS 

h � T%=1 � �STAR

r � T%=1 � �

|� DILLY 60

�� N=0�2 � 2

�
P%=DILLY 

�
[OPTN 

�
LDX#0 

�	.loop

�	LDA#0

�STA&70,X

�INX

�	CPX#8

�BNE loop

�LDA#&80

�
STA&71

�LDA#&40

STA&76

.loopa

LDA# �"*"
&
STA&74
0	LDA#6
:LDX#&70
D	LDY#0
NJSR&FFF1
XINC &70
b
BNE a 
lINC &71
v.a 
�DEC &75 
�
BNE loopa
�DEC &76 
�
BNE loopa
�RTS
�.lilly  
�
LDY#15
�JSR&FFB9
�
STA&74
�RTS
�]:�
�� DILLY
�!&F6=&8005
� lilly
� ?&74=42 � V%=0 � V%=1
�
  � �rom
* � T%=1 � �INOUT
4 � T%=1 � �
> � V%=1 � � �TdD
H � V%=1 � �
R� ROM READ
\� rom 10
f� N=0 � 2 � 2
p
P%=rom
z	[OPTN
�
LDY#15
�JSR&FFB9
�
STA&74
�RTS
�]:�
�W%=&8000
��14
��
�!&F6=W%
�	� rom
�� �(?&74);
�W%=W%+1:� W%>&BFFF � � �TZD
�� ?&74= �"*"
 �15
 �
  �7:�"END OF RAM":W%=&8000:�
$
 �:�:�
.6 �"SORRY NO SIDEWAYS RAM!":�:�:�5)"PRESS ANY KEY"
8
 I=�:�
B� �STAR
L� bob 50
V� N=0 � 2 � 2
`
P%=bob
j	[OPTN
t	LDA#0
~
STA&7A
�
STA&7C
�
STA&7D
�LDA#&19
�
STA&7B
�LDA#&40
�
STA&7F
�
LDA#42
�
STA&7E
�	LDA#0
�
STA&74
�.ll
�	LDA#6
LDX#&7A

	LDY#0
JSR&FFF1
INC &7A
(BNE aaa
2INC &7B
<.aaa
FDEC &74
P
BNE ll
ZDEC &7F
d
BNE ll
nRTS
x]:�
�
 � bob
��
�� �INOUT
�� barry 20
��N=0�2�2
�
 P%=barry
�	[OPTN
�	LDA#0
�
STA&7C
�
STA&7D
�	LDA#5
�LDX#&7A
�	LDY#0
JSR&FFF1
RTS
]:�
"W%=&1900:�14
,�
6!&7A=W%
@� barry
J� �(?&7E);
T  W%=W%+1:� W%>&5900 � � �D|F
^� ?&7E=�"*"
h�15
r�
|�":::END:::":�7:W%=&1900
��
� � �GAP(F)
� �(F);
� � T%=1 � �dBF
�2 ?rom%=F:rom%=rom%+1:� rom%>&BFFF � rom%=&8000
� �
�. !&7A=page%:?&7E=F:X%=&7A:Y%=0:A%=6:�&FFF1
�. page%=page%+1:� page%>&7000 � page%=&1900
� �
� � �SAMPLE
� � MACHINE:� rec
�
T1=0:T2=0
� small=0:large=0
�

� read
� ?&79<>Z%
&�
0� read 
:T1=T1+1
D � ?&79<>M%
N A$(58)="44"
X� 
b
� read
l� ?&79<>Z%
v�
�
� read
�T2=T2+1
�
�?&79<>M%
�� T1<T2 �small=T1 
�� T2<T1 �small=T2
�� T1>T2 �large=T1 
�� T2>T1 �large=T2
�check=large/small
�� check<2.5 � �dtF
�S%=small:L%=small*2.5
� flag=1
� �
�
 � SET UP
 A$(46)="121212"
A$(65)="12"
A$(66)="2111"
 A$(67)="2121"
*A$(68)="211"
4A$(69)="1"
>A$(70)="1121"
HA$(71)="221"
RA$(72)="1111"
\A$(73)="11"
fA$(74)="1222"
pA$(75)="212"
zA$(76)="1211"
�A$(77)="22"
�A$(78)="21"
�A$(79)="222"
�A$(80)="1221"
�A$(81)="2212"
�A$(82)="121"
�A$(83)="111"
�A$(84)="2"
�A$(85)="112"
�A$(86)="1112"
�A$(87)="122"
�A$(88)="2112"
�A$(89)="2122"
	A$(90)="2211"
	A$(48)="22222"
	A$(49)="12222"
	$A$(50)="11222"
	.A$(51)="11122"
	8A$(52)="11112"
	BA$(53)="11111"
	LA$(54)="21111"
	VA$(55)="22111"
	`A$(56)="22211"
	jA$(57)="22221"
	tA$(58)="22222"
	~ � MACHINE &80
	�
� N=0�2�2
	�P%=MACHINE
	�	[OPTN
	� LDX#15:LDA #0
	�.a
	�STA&70,X
	�DEX
	�	BNE a
	�LDA#&62
	�
STA&70
	�LDA#&FE
	�
STA&71

STA&76

LDA#&60

STA&75
LDA#&11
(
STA&7A
2LDA#&7F
<
STA&7B
FRTS
P	.send
ZLDA#254
d
STA&74
n
 LDA#6
xLDX#&70
�	LDY#0
�JSR&FFF1
�RTS
�.rec
�
LDA#&A
�
STA&74
�	LDA#6
�LDX#&70
�	LDY#0
�JSR&FFF1
�RTS
�.on
�	LDA#2

STA&79
	LDA#6
LDX#&75
"	LDY#0
,JSR&FFF1
6
LDA# �"1"
@
STA&7E
J	LDA#6
TLDX#&7A
^	LDY#0
hJSR&FFF1
rRTS
|.off
�	LDA#0
�
STA&79
�	LDA#6
�LDX#&75
�	LDY#0
�JSR&FFF1
�
LDA# �"0"
�
STA&7E
�	LDA#6
�LDX#&7A 
�
LDY#0 
�JSR&FFF1
�RTS
+ .read:LDA#5:LDX#&75:LDY#0:JSR&FFF1:RTS
]:�
 � MACHINE
& �
0 � �PLAY(S$)
:� M=1� � (S$)
DZ$=�S$,M,1)
N� Z$="1" � �DOT
X� Z$="2" � �DASH
b �
l �1,0,0,T*1.5
v �=0:�:� �=�((T*1.5)*5)
��
� � �DOT
� �on
��1,-15,tone,T
� �=0:�:� �=�(T*5)
�	 �off
��1,0,0,T
� �=0:�:� �=�(T*5)
��
�� �DASH
� �on
��1,-15,tone,T*3
� �=0:�:� �=�((T*3)*5)

	 �off

�1,0,0,T

 �=0:�:� �=�(T*5)

 �

*� �STRING(X$)

4� N

> � N=1 � �(X$)

HU$=�X$,N,1)

R� U$=" " � �SPACE

\ � U$=" " � �tDM

f S$=A$(�(U$)):�PLAY(S$) 

p � flag=1 � �tDM

z	 �U$;

��

��

�� �SPACE

��1,0,0,T*5

� �=0:�:� �=�(T*5*5)

�	�" ";

��

� � �SEND:� send

�2 �PORTDISPLAY:�7,19)"0  0  0  0  0  0  0  IN"

�	 �BOX

� �

� I$=�(1000):� I$="" � �drM

� �STRING(I$):�0
 �
� �VARABLES
�
$�"ENTER TONE (0-255)";tone 
.�"ENTER SPEED:="
8�5)"1/very fast."
B�5)"2/fast."
L �5)"3/medium."
V �5)"4/slow."
`�5)"5/very slow."
j T=�(50):�T<49�T>53��DjN 
t T=T-48
~ �
�
��MENU
� � �dxG
� � � �MENU
��26:flag=0
��
�&�''"   ��������������������������"
�$�"  � ��� ��꿯����굙�  �"
�$�"  � ��� ��굠����굙�  �"
�$�"�   ��� 굵�꿯����굙�  �"
�$�"�   ��� 굡�굠����굙�  �"
�$�"�   ��� ������������������  �"
�$�"  � �������������������������"
&�'''" ��SEND DATA...............A"

#�" ��SEND DATA...............A"
#�"�� RECEIVE DATA............B"
#�"�� RECEIVE DATA............B"
(#�"�� TUTOR...................C"
2#�"�� TUTOR...................C"
<#�"�� CHANGE TONE OR SPEED....D"
F#�"�� CHANGE TONE OR SPEED....D"
P�'"          �ENTER CHOICE"
ZI$=�(500):�I$=""��DZO
d� I$<"A"� I$>"D" � �DZO
n� I$="A"� �CHOICE
x� I$="B"� �IN
�� I$="C"� �TUTOR
�� I$="D"� �VARABLES
�� I$="D"� � �tpN
� � �tfN
��
���PORTDISPLAY
��
�;�''''''''''''''"��������������������������������������"
�-�"���      PORT INPUT OUTPUT          ��"
�-�"���   �  �����������������          ��"
�-�"���    7  6  5  4  3  2  1  0       ��"
�-�"���                                 ��"
�-�"���                                 ��"
-�"���                                 ��"
-�"���                                 ��"
-�"���                                 ��"
"-�"��������������������������������������"
, �10,21)"escape for menu!"
6 �
@
 � �on
J	 � on
T �
^ � �off
h
 � off
r �
| � �BOX
� �28,0,12,39,0
� �
���CHOICE
��
�-�"��������������������������������������"
�-�"��������������������������������������"
�-�"��������������������������������������"
�!�"��    ��������꿯�"
�!�"����  ������굢�굠�"
�!�"��    굵��������꿯�"
�!�"��    굡�������굠�"
�!�"��    ��������������������"
�!�"      ��������������������"
'�"  ��    ��꿯�����꿯���"
'�"��      굢�굠�����굠���"
'�"��      ���꿯�����꿯���"
&'�"��      ��굠�����굠���"
0'�"��      ������������������������"
:-�"��������������������������������������"
D-�"��������������������������������������"
N-�"��������������������������������������"
X#�"       ��PLEASE ENTER CHIOCE"
b#�"       ��PLEASE ENTER CHIOCE"
l#�"      �  �������������������"
v&�"   ��SENTENCES................A"
�&�"   ��SENTENCES................A"
�&�"  �� LETTERS..................B"
�&�"  �� LETTERS..................B"
�choice$=�(1000)
�# � choice$>"B"�choice$<"A"��t^Q
�� choice$="A"� �CENT
�� choice$="B"� �SEND
��
�� �CENT:�:� send
�7�PORTDISPLAY:�7,19)"0  0  0  0  0  0  0  IN":�BOX 
�Q$="":�:�"ENTER STRING: "
� �
�Q=�
 �(Q);
 � Q=127�Q$=�Q$,�(Q$)-1)
 �Q=127��dxQ
 Q$=Q$+�(Q)
* � Q=13
4 �
>&�STRING(Q$):�:�"REPEAT? (y/n)":W=�
H �W=89 � �TtR
R
� �ddQ
\�
f��TUTOR
p�
z-�"��                                   �"
�-�"�� ��    �￥�굪￥����        �"
�-�"�� �     �굠�굠굠����        �"
�-�"�� �     �굠�굠굠����        �"
�-�"�� �     �굠�굠굠����        �"
�-�"�� �     ��������������������        �"
�-�"��       ��������������������        �"
�*�'"     ���A to F.................A �"
�*�'"     ���G to L.................B �"
�*�'"     ���M to S.................C �"
�*�'"     ���T to W.................D �"
�*�'"    ����X to Z.................E �"
�*�'"    � ��NUMBERS ect............F �"
�
�'"��"
 �"��   ��  � ENTER   CHOICE"
 �"��   ��  � ENTER   CHOICE"
 �"��        ���������������"
$CHOICE=�
.� CHOICE=65 � �A
8� CHOICE=66 � �G
B� CHOICE=67 � �M
L� CHOICE=68 � �T
V� CHOICE=69 � �X
`� CHOICE=70 � �NUM
j �
t � �SETUP:flag=1
~B �:�PORTDISPLAY:�7,19)"0  0  0  0  0  0  1  IN":�BOX:�send:� 
�	��OPT
� �26
��
�,�"�������������������������������������"
�'�"��  ���ﰪ￥�￥������"
�'�"��  ���굠굠�굠����굢�"
�'�"��  ��꿯��굠�굠�������"
�'�"��  ��굠��굠�굠������"
�'�"��  ����������������������������"
�,�"�������������������������������������"
�+�'''"   ����LEARN CHOSEN LETTERS...A �"
�(�"   ����LEARN CHOSEN LETTERS...A �"
*�''"  � ���CURRENT  TEST..........B �"

(�"�   ���CURRENT  TEST..........B �"
*�''"�   ���FULL   TEST............C �"
(�"�   ���FULL   TEST............C �"
(,�'"������������������������������������"
2�"�      ���ENTER CHOICE"
<�"    �   ��ENTER CHOICE"
F
options=�
P�
Z� �A
dB$(1)="di da           A"
nB$(2)="da di di di     B"
xB$(3)="da di da di     C"
�B$(4)="da di di        D"
�B$(5)="di              E"
�B$(6)="di di da di     F"
��OPT
�$� options<65 � options>67 � �t`T
�% � options=66 � options=67 � �TbU
��
��26:�SETUP
� �-1,260,0,0:�-1,228,0,0
�$�"GET READY!!!":�=0:�:� �=500:� 
�P$="ABCDEF"
�G� N=1�6:�STRING(�P$,N,1)):�-1,�(�P$,N,1)),0,0:�J=0�2000:�:� B$(N):�
��:�"Repeat? (Y/N)"
I=�
� I=�"Y" � �dHT
 �
"
� TEST
, �SETUP
6 �:�"10 WORDS":�
@ �N=0 � 3000:�
J � 10 WORDS
TT$="":� N=1�10
^ TT=�(4)+1:�J=1�TT
hT$=T$+�(�(6)+64):�
r
T$=T$+" "
|�
� �STRING(T$)
�� N=0 � 2000:�:�:�T$
��:�"Repeat (Y/N)":I=�
�� I=�"Y" � �TvU
� �
�� �G
�B$(1)="da da di     G"
�B$(2)="di di di di  H"
�B$(3)="di di        I"
�B$(4)="di da da da  J"
�B$(5)="da di da     K"
�B$(6)="di da di di  L"
�	�OPT 
$� options<65 � options>67 � �d~U
� options=66��tJV
� options=67��T`W
& �
0�26:�SETUP
:�-1,260,0,0:�-1,228,0,0
D#�"GET READY!!!":�=0:�:� �=500:�
NP$="GHIJKL"
XG� N=1�6:�STRING(�P$,N,1)):�-1,�(�P$,N,1)),0,0:�J=0�2000:�:� B$(N):�
b�:�"Repeat? (Y/N)"
lI=�
v� I=�"Y" � �TfV
� �
� � TEST
�
�SETUP
�/�:�5)"TEST:  Ten words of 2-5 letters":�:�
��N=0 � 3000:�
�� 10 WORDS
�T$="":� N=1�10
�TT=�(4)+1:�J=1�TT
�T$=T$+�(�(6)+70):�
�
T$=T$+" "
��
��STRING(T$)
�� N=0 � 2000:�:�:�T$
�:�"Repeat (Y/N)":I=�
� I=�"Y" � �t^V
�
 � FULL TEST
*
�SETUP
43�:�5)"TEST:  Fifteen words of 1-7 letters":�:�
>�N=0 � 3000:�
H� 15 WORDS
RT$="":� N=1�15
\TT=�(6)+1:�J=1�TT
fT$=T$+�(�(12)+64):� 
pT$=T$+" " 
z�
��STRING(T$)
�� N=0 � 2000:�:�:�T$
��:�"Repeat (Y/N)":I=�
�� I=�"Y" � �TtW
��
�� �M
� B$(1)="da da       M"
� B$(2)="da di       N"
� B$(3)="da da da    O"
� B$(4)="di da da di P"
� B$(5)="da da di da Q"
� B$(6)="di da di    R"
� B$(7)="di di di    S"   
�OPT
% � options<65 � options>67 � �TFX
� options=66� �tRX
$� options=67� �T^Y
.� 
8�26:�SETUP
B�-1,260,0,0:�-1,228,0,0 
L$�"GET READY!!!":�=0:�:� �=500:� 
VP$="MNOPQRS"
`G� N=1�7:�STRING(�P$,N,1)):�-1,�(�P$,N,1)),0,0:�J=0�2000:�:� B$(N):�
j�:�"Repeat? (Y/N)"
tI=�
~� I=�"Y" � �TnX
� �
�
 � TEST A
�
�SETUP
�/�:�5)"TEST:  Ten words of 2-5 letters":�:�
��N=0 � 3000:�
�� 10 WORDS
�T$="":� N=1�10
�TT=�(4)+1:�J=1�TT
�T$=T$+�(�(7)+76):�
�
T$=T$+" "
��
��STRING(T$)
� N=0 � 2000:�:�:�T$

�:�"Repeat (Y/N)":I=�
� I=�"Y" � �tfX
 � FULL TEST
(
�SETUP
23�:�5)"TEST:  Fifteen words of 1-7 letters":�:�
<�N=0 � 3000:�
F� 15 WORDS
PT$="":� N=1�15
ZTT=�(6)+1:�J=1�TT
dT$=T$+�(�(19)+64):�
n
T$=T$+" "
x�
��STRING(T$)
�� N=0 � 2000:�:�:�T$ 
��:�"Repeat (Y/N)":I=�
�� I=�"Y" � �TrY
��
�� �T
�B$(1)="da             T"
�B$(2)="di di da       U"
�B$(3)="di di di da    V"
�B$(4)="da da di da    W"
��OPT
�$� options<65 � options>67 � �dfY
� � options=66� �DrZ
� options=67� �d~Z
�
�26:�SETUP
"�-1,260,0,0:�-1,228,0,0
,#�"GET READY!!!":�=0:�:� �=500:�
6
P$="TUVW"
@G� N=1�4:�STRING(�P$,N,1)):�-1,�(�P$,N,1)),0,0:�J=0�2000:�:� B$(N):�
J�:�"Repeat? (Y/N)"
TI=�
^ � I=�"Y" � �TNZ
h�
r
�SETUP
|/�:�5)"TEST:  Ten words of 2-5 letters":�:�
��N=0 � 3000:�
�� 10 WORDS
�T$="":� N=1�10
�TT=�(4)+1:�J=1�TT
�T$=T$+�(�(4)+83):�
�
T$=T$+" "
��
��STRING(T$)
�� N=0 � 2000:�:�:�T$
��:�"Repeat (Y/N)":I=�
�� I=�"Y" � �D|Z
� �
�� FULL TEST

�SETUP
3�:�5)"TEST:  Fifteen words of 1-7 letters":�:�
�N=0 � 3000:�
&T$="":� N=1�15
0TT=�(6)+1:�J=1�TT
:T$=T$+�(�(23)+64):� 
D
T$=T$+" "
N�
X�STRING(T$)
b� N=0 � 2000:�:�:�T$ 
l�:�"Repeat (Y/N)":I=�
v� I=�"Y" � �TtW
��
�	 � �X
� B$(1)="da di di da    X"
� B$(2)="da di da da    Y"
� B$(3)="da da di di    Z"
��OPT
�$� options<65 � options>67 � �tr[
�� options=66� �T~\
�� options=67� �d@\
��
��26:�SETUP
��-1,260,0,0:�-1,228,0,0
�#�"GET READY!!!":�=0:�:� �=500:�
P$="XYZ"
G� N=1�3:�STRING(�P$,N,1)):�-1,�(�P$,N,1)),0,0:�J=0�2000:�:� B$(N):�
�:�"Repeat? (Y/N)"
 I=�
*� I=�"Y" � �dZ[
4 �
>
�SETUP
H/�:�5)"TEST:  Ten words of 2-5 letters":�:�
R�N=0 � 3000:�
\T$="":� N=1�10
fTT=�(4)+1:�J=1�TT
p T$=T$+�(�(3)+87):�
z
T$=T$+" "
��
��STRING(T$)
�� N=0 � 2000:�:�:�T$ 
��:�"Repeat (Y/N)":I=�
�� I=�"Y" � �DH\
��
�
�SETUP
�3�:�5)"TEST:  Fifteen words of 1-7 letters":�:�
��N=0 � 3000:�
�T$="":� N=1�15
�TT=�(6)+1:�J=1�TT
�T$=T$+�(�(26)+64):�
�
T$=T$+" "
�
�STRING(T$)
� N=0 � 2000:�:�:�T$
$�:�"Repeat (Y/N)":I=�
.� I=�"Y" � �dJ\
8�
B
� �NUM
LB$(1)="di da da da da   1"
VB$(2)="di di da da da   2"
`B$(3)="di di di da da   3"
jB$(4)="di di di di da   4"
tB$(5)="di di di di di   5"
~B$(6)="da di di di di   6"
�B$(7)="da da di di di   7"
�B$(8)="da da da di di   8"
�B$(9)="da da da da di   9"
�B$(10)="da da da da da   0"
�!B$(11)="di da di da di da  ."
��OPT
�$� options<65 � options>67 � �tz]
�� options=66� �DP^
�� options=67� �dp^
�� 
��26:�SETUP
��-1,260,0,0:�-1,228,0,0
#�"GET READY!!!":�=0:�:� �=500:�

P$="1234567890."
H� N=1�11:�STRING(�P$,N,1)):�-1,�(�P$,N,1)),0,0:�J=0�2000:�:� B$(N):�
�:�"Repeat? (Y/N)"
(I=�
2� I=�"Y" � �db]
<�
F
� TEST
P
�SETUP
Z+ �"RANDOM GROUPS OF NUMBERS+full stop."
d�N=0 � 3000:�
n� 10 GROUPS
xT$="":� N=1�10 
�TT=�(4)+1:�J=1�TT
� num=�(12)+45
� � num=47 � �tL^
�T$=T$+�(num):�
�
T$=T$+" "
��
��STRING(T$)
�� N=0 � 2000:�:�:�T$
��:�"Repeat (Y/N)":I=�
�� I=�"Y" � �DP^
��
�
�SETUP
�3�:�"TEST:  Fifteen words of 1-7 characters":�:�
�N=0 � 3000:�
T$="":� N=1�15
TT=�(6)+1:�J=1�TT
"num=�(45)+45
, � num=47 � �Tb_
6 � num<65 � num>57 � �Tb_
@T$=T$+�(num):�
J
T$=T$+" "
T�
^�STRING(T$)
h� N=0 � 2000:�:�:�T$
r�:�"Repeat (Y/N)":I=�
|� I=�"Y" � �dz^
��
���IN
� �26:�15
��
�-�"��������������������������������������"
�+�"��  ��꿯��ﰠ�����꿯�����"
�+�"��  ��굠�굢�������굠�����"
�+�"��  ��꿯�굠�����굵�꿯�����"
�+�"��  ��굠��贠���굡�굠�����"
�+�"��  ��������������������������������"
�-�"��������������������������������������"
�-�"��������������������������������������"
�%�"��  Take a sample............A"
 %�"��  Take a sample............A"
 -�"��������������������������������������"
 %�"��  Rec. Data from Port......B"
 &%�"��  Rec. Data from Port......B"
 0-�"��������������������������������������"
 :%�"��  Set up port options......C"
 D%�"��  Set up port options......C"
 N-�"��������������������������������������"
 X%�"��  Full description of Rec..D"
 b%�"��  Full description of Rec..D"
 l-�"��������������������������������������"
 v%�"��  See stored messages......E"
 �%�"��  See stored messages......E"
 �-�"��������������������������������������"
 �( �"        �ENTER CHOICE� (M menu)";
 � � � �IN
 �
 I$=� 
 �� I$="A" � �SAMP
 �� I$="B" � �REC
 �� I$="C" � �OPTION
 �� I$="D" � �DISCRIPTION
 �� I$="E" � �MESSAGES
 �� I$="M" � �MENU
 � � �tZ_
 ��
!
��SAMP
!�
!,�"�������������������������������������"
! ,�"�������������������������������������"
!*,�"�������������������������������������"
!4%�"��    ��������굠�꿯�"
!>%�"��    굢�������굠�굠�"
!H%�"��    �����굵�꿯�굠�꿯�"
!R%�"��    ����굡�굠�굠�굠�"
!\%�"��    ������������������������"
!f,�"�������������������������������������"
!p,�"�������������������������������������"
!z,�"�������������������������������������"
!�,�'"��THIS SECTION WILL TAKE A SAMPLE OF"
!�+�"��THIS SECTION WILL TAKE A SAMPLE OF"
!�-�"��INCOMMING MORSE AND SET UP THE CYNC."
!�-�"��INCOMMING MORSE AND SET UP THE CYNC."
!�+�'"��AFTER THE SAMPLE THE PROGRAM WILL"
!�*�"��AFTER THE SAMPLE THE PROGRAM WILL"
!�$�"��JUMP INTO THE REC. SECTION."
!�$�"��JUMP INTO THE REC. SECTION."
!�%�'"��  �PRESS ANY KEY WHEN READY"
!�$�"��  �PRESS ANY KEY WHEN READY"
!�0�"                                   �����";
!� I=�:�SAMPLE:�REC
!� �
"��OPTION
"�
"-�"��������������������������������������"
"$'�"�   ���ﰪ￥�￥������"
".'�"�   ���굠굠�굠����굢�"
"8'�"�   ��꿯��굠�굠�������"
"B'�"�   ��굠��굠�굠������"
"L'�"�   ����������������������������"
"V-�"��������������������������������������"
"`"�'"�        THIS SECTION WILL"
"j#�"�        ALLOW YOU TO SELECT"
"t$�"�        HOW MORSE IS ENTERED"
"~"�"�        INTO THE COMPUTER."
"�%�"�        A TONE CAN BE DEFINED"
"�%�"�        AS A LOW TO HIGH OR A"
"�(�"�        HIGH TO LOW ON THE PORT."
"�$�"�        THE DEFAULT STATE IS"
"�&�"�        HIGH TO LOW WHEN THERE"
"��"�        IS A TONE."
"�)�'"��ENTER Y IF YOU WANT LOW TO HIGH"
"�(�"��ENTER Y IF YOU WANT LOW TO HIGH"
"�+�"��ON A TONE, OR ANY KEY FOR DEFAULT."
"�+�"��ON A TONE, OR ANY KEY FOR DEFAULT."
"�1�'"                                   �����";
"�II=�
#� II=�"Y" � M%=245
#
� II=�"Y" � Z%=244
#�
#��DISCRIPTION
#(�
#20�"����������������������������������������";
#<#�"��   �� ��꿯����ﰠ굠"
#F#�"��   �� ��굠����굠굠"
#P#�"��   �� 굵�꿯�굵��굠굠"
#Z#�"��   �� 굡�굠�굡��굠���"
#d#�"��   �� ��������������������"
#n0�"����������������������������������������";
#x.�'"    To rec.data a TTL 5 volt signal is"
#�+�"supplied to bit 0 of the port.When a"
#�,�"tone is present the bit should change"
#�.�"state(high to low or low to high). This"
#�*�"signal must be in morse and will be"
#�-�"decoded by the computer. If you have a"
#�-�"tube or sideways ram,  all of the rec-"
#�,�"ived messages will be stored. You can"
#�*�"then recall these messages at will."
#�-�"    The computer will take a sample of"
#�0�"the signal from defalut but if different";
#�0�"speeds are used then use the sample from";
#��"menu."
#�*�"    The other bits on the port will"
$-�"change state from recieve to transmit,"
$,�"thus may be used to switch the trans-"
$!�"mitter.� � PRESS ANY KEY.";
$" II=�:�
$,��MESSAGES
$6�
$@*�'"� ��꿯���������꿯���"
$J)�"� ��굠�굢�굢���굢�굠�굢�"
$T)�"� 굵�꿯���ﰠ������꿯����"
$^)�"� 굡�굠���������굠���"
$h)�"� ��������������������������������"
$r)�"  ��������������������������������"
$|�"    ��SHIFT TO SCROLL"
$��"    ��SHIFT TO SCROLL"
$� �"   ��    ANY KEY TO START"
$� �"   ��    ANY KEY TO START"
$�#�"  ��         ESCAPE FOR MENU"
$�#�"  ��         ESCAPE FOR MENU"
$�+�"������������������������������������"
$� �
$� II=�:�rom:II=�:�
$���START
$��
$�#�'''"��   ��������꿯�"
$� �"��   ������굢�굠�"
$� �"�  � 굵��������꿯�"
% �"��   굡�������굠�"
% �"��   ��������������������"
% �"     ��������������������"
%&*�'"��굠���������������"
%0)�"��굴�������굢�������"
%:)�"�����������������꿯�"
%D)�"����������������굠�"
%N)�"����������������������������������"
%X)�"  ��������������������������������"
%b�"               ��By"
%l�"               ��By"
%v#�'"     ��Jim Walsh     (1985)"
%�"�"     ��Jim Walsh     (1985)"
%�
 � JIM
%�	 II=�
%��
%�(�"��THIS PROGRAM WILL ENABLE YOU TO"
%�(�"��THIS PROGRAM WILL ENABLE YOU TO"
%�-�''"  ��A...send morse via your keyboard"
%�+�"  ��A...send morse via your keyboard"
%��"  ��  � and port."
%��"  ��  � and port."
%�.�'"��  B...receive morse through the port"
%�-�"��  B...receive morse through the port"
%�%�"���     and decode it for you."
&%�"���     and decode it for you."
&*�'"��  C...help you to learn morse by"
&)�"��  C...help you to learn morse by"
& )�"��      sending random letters and"
&*)�"��      sending random letters and"
&4+�"��      numbers. You may change tone"
&>+�"��      numbers. You may change tone"
&H%�"��      and speed if you wish."
&R%�"��      and speed if you wish."
&\	 II=�
&f�
&p,�"��THE PROGRAM WILL WORK ON BOTH SIDES"
&z,�"��THE PROGRAM WILL WORK ON BOTH SIDES"
&��"��OF THE TUBE (6502)."
&��"��OF THE TUBE (6502)."
&�.�"��IF YOU HAVE A TUBE INCOMMING MESSAGES"
&�.�"��IF YOU HAVE A TUBE INCOMMING MESSAGES"
&�0�"��WILL BE STORED INTO THE TERMINAL WHICH";
&�0�"��WILL BE STORED INTO THE TERMINAL WHICH";
&�,�"��WILL GIVE YOU A VERY LARGE STORAGE."
&�,�"��WILL GIVE YOU A VERY LARGE STORAGE."
&�,�"��IF YOU DON'T HAVE A TUBE BUT HAVE A"
&�,�"��IF YOU DON'T HAVE A TUBE BUT HAVE A"
&�.�"��SIDEWAYS RAM EXPANSION THEN THIS WILL"
&�.�"��SIDEWAYS RAM EXPANSION THEN THIS WILL"
&�.�"��BE USED AUTOMATICALLY,AS ABOVE.(ATPL)"
'.�"��BE USED AUTOMATICALLY,AS ABOVE.(ATPL)"
'.�"��THIS FEATURE OF STORING MESSAGES WILL"
'.�"��THIS FEATURE OF STORING MESSAGES WILL"
'$-�"��ALLOW FOR LOTS OF MESSAGES WHILE YOU"
'.-�"��ALLOW FOR LOTS OF MESSAGES WHILE YOU"
'8�"��ARE OUT."
'B�"��ARE OUT."
'L	 II=�
'V�
'`0�"��IF YOU CAN TYPE THEN MORSE MAY BE SENT";
'j0�"��IF YOU CAN TYPE THEN MORSE MAY BE SENT";
't.�"��AS YOU KEY, OR YOU CAN FORM A STRING."
'~.�"��AS YOU KEY, OR YOU CAN FORM A STRING."
'�.�"��YOU WILL NEED A TTL INTERFACE TO REC."
'�.�"��YOU WILL NEED A TTL INTERFACE TO REC."
'�"�"��MESSAGES FROM YOUR RADIO."
'�"�"��MESSAGES FROM YOUR RADIO."
'�,�"��THE PROGRAM IS GREAT IF YOU WANT TO"
'�,�"��THE PROGRAM IS GREAT IF YOU WANT TO"
'�+�"��LEARN MORSE AS IT WILL SEND RANDOM"
'�+�"��LEARN MORSE AS IT WILL SEND RANDOM"
'��"��WORDS AND NUMBERS."
'��"��WORDS AND NUMBERS."
'��
'���"�OUTPUT IS ON BIT 1 OF THE PORT AND "'"�INPUT IS ON BIT 0. THE OTHER BITS WILL"'"�CHANGE STATE FROM SEND TO RECEIVE SO"'"�THEY MAY BE USED TO DRIVE RELAYS ECT."
(�
(
;�"�THE STATE OF THE PORT IS DISPLAYED IN"'"�EACH MODE."
( �15)"�O.K."
(	 II=�
( �
�

00000000  0d 00 0a 40 20 e7 20 a6  2d 32 35 36 20 41 25 3d  |...@ . .-256 A%=|
00000010  26 45 41 3a 58 25 3d 30  3a 59 25 3d 26 46 46 3a  |&EA:X%=0:Y%=&FF:|
00000020  e7 20 ba 28 26 46 46 46  34 29 20 80 20 26 46 46  |. .(&FFF4) . &FF|
00000030  30 30 20 8c 20 54 25 3d  31 20 8b 20 54 25 3d 30  |00 . T%=1 . T%=0|
00000040  0d 00 14 3d 20 72 6f 6d  25 3d 26 38 30 30 30 3a  |...= rom%=&8000:|
00000050  70 61 67 65 25 3d 26 31  39 30 30 3a 74 6f 6e 65  |page%=&1900:tone|
00000060  3d 31 35 30 3a 54 3d 32  3a 4d 25 3d 32 34 34 3a  |=150:T=2:M%=244:|
00000070  5a 25 3d 32 34 35 3a 66  6c 61 67 3d 30 0d 00 1e  |Z%=245:flag=0...|
00000080  16 20 de 20 41 24 28 39  30 29 3a de 20 42 24 28  |. . A$(90):. B$(|
00000090  31 35 29 0d 00 28 16 20  eb 37 3a ef 32 33 3b 38  |15)..(. .7:.23;8|
000000a0  32 30 32 3b 30 3b 30 3b  30 0d 00 32 1a 20 f2 53  |202;0;0;0..2. .S|
000000b0  54 41 52 53 3a f2 53 54  41 52 54 3a f2 4d 45 4e  |TARS:.START:.MEN|
000000c0  55 3a e0 0d 00 3c 0a dd  20 f2 52 45 43 0d 00 46  |U:...<.. .REC..F|
000000d0  36 f2 50 4f 52 54 44 49  53 50 4c 41 59 3a f1 8a  |6.PORTDISPLAY:..|
000000e0  37 2c 31 39 29 22 31 20  20 31 20 20 31 20 20 31  |7,19)"1  1  1  1|
000000f0  20 20 30 20 20 31 20 20  30 20 20 49 4e 22 3a f2  |  0  1  0  IN":.|
00000100  42 4f 58 0d 00 50 08 20  ef 31 35 0d 00 5a 13 4e  |BOX..P. .15..Z.N|
00000110  24 3d 22 22 3a 4f 25 3d  30 3a 51 25 3d 30 0d 00  |$="":O%=0:Q%=0..|
00000120  64 17 20 e7 20 66 6c 61  67 3d 30 20 8c 20 f2 53  |d. . flag=0 . .S|
00000130  41 4d 50 4c 45 0d 00 6e  05 f5 0d 00 78 0a d6 20  |AMPLE..n....x.. |
00000140  72 65 61 64 0d 00 82 17  e7 20 3f 26 37 39 3d 5a  |read..... ?&79=Z|
00000150  25 20 8c 20 51 25 3d 51  25 2b 31 0d 00 8c 18 e7  |% . Q%=Q%+1.....|
00000160  20 51 25 3e 20 35 2a 53  25 20 8c 20 3f 26 37 39  | Q%> 5*S% . ?&79|
00000170  3d 4d 25 0d 00 96 19 e7  20 51 25 3e 20 35 2a 53  |=M%..... Q%> 5*S|
00000180  25 20 8c 20 f2 47 41 50  28 33 32 29 0d 00 a0 0d  |% . .GAP(32)....|
00000190  fd 20 3f 26 37 39 3d 4d  25 0d 00 aa 08 4f 25 3d  |. ?&79=M%....O%=|
000001a0  30 0d 00 b4 16 f5 3a d6  20 72 65 61 64 3a fd 20  |0.....:. read:. |
000001b0  3f 26 37 39 3d 4d 25 0d  00 be 0d f5 3a 4f 25 3d  |?&79=M%.....:O%=|
000001c0  4f 25 2b 31 0d 00 c8 14  d6 20 72 65 61 64 3a fd  |O%+1..... read:.|
000001d0  20 3f 26 37 39 3d 5a 25  0d 00 d2 08 51 25 3d 30  | ?&79=Z%....Q%=0|
000001e0  0d 00 dc 17 e7 20 4f 25  3c 4c 25 20 8c 20 4e 24  |..... O%<L% . N$|
000001f0  3d 4e 24 2b 22 31 22 0d  00 e6 17 e7 20 4f 25 3e  |=N$+"1"..... O%>|
00000200  4c 25 20 8c 20 4e 24 3d  4e 24 2b 22 32 22 0d 00  |L% . N$=N$+"2"..|
00000210  f0 0a d6 20 72 65 61 64  0d 00 fa 14 e7 20 3f 26  |... read..... ?&|
00000220  37 39 3d 4d 25 20 8c 20  8d 74 6a 40 0d 01 04 0b  |79=M% . .tj@....|
00000230  51 25 3d 51 25 2b 31 0d  01 0e 1c 20 e7 20 51 25  |Q%=Q%+1.... . Q%|
00000240  3e 20 31 2e 37 35 2a 53  25 20 8c 20 e5 20 8d 54  |> 1.75*S% . . .T|
00000250  6c 41 20 0d 01 18 0a e5  20 8d 64 70 40 0d 01 22  |lA ..... .dp@.."|
00000260  0b f4 20 50 52 49 4e 54  0d 01 2c 10 e3 20 4e 25  |.. PRINT..,.. N%|
00000270  3d 33 32 20 b8 20 39 30  0d 01 36 1a e7 20 4e 24  |=32 . 90..6.. N$|
00000280  3d 41 24 28 4e 25 29 20  8c 20 f2 47 41 50 28 4e  |=A$(N%) . .GAP(N|
00000290  25 29 0d 01 40 05 ed 0d  01 4a 0a e5 20 8d 44 5a  |%)..@....J.. .DZ|
000002a0  40 0d 01 54 05 e1 0d 01  5e 0e 20 dd 20 f2 53 54  |@..T....^. . .ST|
000002b0  41 52 53 20 0d 01 68 13  20 e7 20 54 25 3d 31 20  |ARS ..h. . T%=1 |
000002c0  8c 20 f2 53 54 41 52 0d  01 72 0f 20 e7 20 54 25  |. .STAR..r. . T%|
000002d0  3d 31 20 8c 20 e1 0d 01  7c 0e de 20 44 49 4c 4c  |=1 . ...|.. DILL|
000002e0  59 20 36 30 0d 01 86 0f  e3 20 4e 3d 30 b8 32 20  |Y 60..... N=0.2 |
000002f0  88 20 32 0d 01 90 0d 50  25 3d 44 49 4c 4c 59 20  |. 2....P%=DILLY |
00000300  0d 01 9a 0a 5b 4f 50 54  4e 20 0d 01 a4 0a 4c 44  |....[OPTN ....LD|
00000310  58 23 30 20 0d 01 ae 09  2e 6c 6f 6f 70 0d 01 b8  |X#0 .....loop...|
00000320  09 4c 44 41 23 30 0d 01  c2 0c 53 54 41 26 37 30  |.LDA#0....STA&70|
00000330  2c 58 0d 01 cc 07 49 4e  58 0d 01 d6 09 43 50 58  |,X....INX....CPX|
00000340  23 38 0d 01 e0 0c 42 4e  45 20 6c 6f 6f 70 0d 01  |#8....BNE loop..|
00000350  ea 0b 4c 44 41 23 26 38  30 0d 01 f4 0a 53 54 41  |..LDA#&80....STA|
00000360  26 37 31 0d 01 fe 0b 4c  44 41 23 26 34 30 0d 02  |&71....LDA#&40..|
00000370  08 0a 53 54 41 26 37 36  0d 02 12 0a 2e 6c 6f 6f  |..STA&76.....loo|
00000380  70 61 0d 02 1c 0d 4c 44  41 23 20 97 22 2a 22 0d  |pa....LDA# ."*".|
00000390  02 26 0a 53 54 41 26 37  34 0d 02 30 09 4c 44 41  |.&.STA&74..0.LDA|
000003a0  23 36 0d 02 3a 0b 4c 44  58 23 26 37 30 0d 02 44  |#6..:.LDX#&70..D|
000003b0  09 4c 44 59 23 30 0d 02  4e 0c 4a 53 52 26 46 46  |.LDY#0..N.JSR&FF|
000003c0  46 31 0d 02 58 0b 49 4e  43 20 26 37 30 0d 02 62  |F1..X.INC &70..b|
000003d0  0a 42 4e 45 20 61 20 0d  02 6c 0b 49 4e 43 20 26  |.BNE a ..l.INC &|
000003e0  37 31 0d 02 76 07 2e 61  20 0d 02 80 0c 44 45 43  |71..v..a ....DEC|
000003f0  20 26 37 35 20 0d 02 8a  0d 42 4e 45 20 6c 6f 6f  | &75 ....BNE loo|
00000400  70 61 0d 02 94 0c 44 45  43 20 26 37 36 20 0d 02  |pa....DEC &76 ..|
00000410  9e 0d 42 4e 45 20 6c 6f  6f 70 61 0d 02 a8 07 52  |..BNE loopa....R|
00000420  54 53 0d 02 b2 0c 2e 6c  69 6c 6c 79 20 20 0d 02  |TS.....lilly  ..|
00000430  bc 0a 4c 44 59 23 31 35  0d 02 c6 0c 4a 53 52 26  |..LDY#15....JSR&|
00000440  46 46 42 39 0d 02 d0 0a  53 54 41 26 37 34 0d 02  |FFB9....STA&74..|
00000450  da 07 52 54 53 0d 02 e4  07 5d 3a ed 0d 02 ee 0b  |..RTS....]:.....|
00000460  d6 20 44 49 4c 4c 59 0d  02 f8 0e 21 26 46 36 3d  |. DILLY....!&F6=|
00000470  26 38 30 30 35 0d 03 02  0b d6 20 6c 69 6c 6c 79  |&8005..... lilly|
00000480  0d 03 0c 1b e7 20 3f 26  37 34 3d 34 32 20 8c 20  |..... ?&74=42 . |
00000490  56 25 3d 30 20 8b 20 56  25 3d 31 0d 03 16 05 e1  |V%=0 . V%=1.....|
000004a0  0d 03 20 0b 20 dd 20 f2  72 6f 6d 0d 03 2a 14 20  |.. . . .rom..*. |
000004b0  e7 20 54 25 3d 31 20 8c  20 f2 49 4e 4f 55 54 0d  |. T%=1 . .INOUT.|
000004c0  03 34 0f 20 e7 20 54 25  3d 31 20 8c 20 e1 0d 03  |.4. . T%=1 . ...|
000004d0  3e 14 20 e7 20 56 25 3d  31 20 8c 20 e4 20 8d 54  |>. . V%=1 . . .T|
000004e0  64 44 0d 03 48 0f 20 e7  20 56 25 3d 31 20 8c 20  |dD..H. . V%=1 . |
000004f0  e1 0d 03 52 0e f4 20 52  4f 4d 20 52 45 41 44 0d  |...R.. ROM READ.|
00000500  03 5c 0c de 20 72 6f 6d  20 31 30 0d 03 66 11 e3  |.\.. rom 10..f..|
00000510  20 4e 3d 30 20 b8 20 32  20 88 20 32 0d 03 70 0a  | N=0 . 2 . 2..p.|
00000520  50 25 3d 72 6f 6d 0d 03  7a 09 5b 4f 50 54 4e 0d  |P%=rom..z.[OPTN.|
00000530  03 84 0a 4c 44 59 23 31  35 0d 03 8e 0c 4a 53 52  |...LDY#15....JSR|
00000540  26 46 46 42 39 0d 03 98  0a 53 54 41 26 37 34 0d  |&FFB9....STA&74.|
00000550  03 a2 07 52 54 53 0d 03  ac 07 5d 3a ed 0d 03 b6  |...RTS....]:....|
00000560  0c 57 25 3d 26 38 30 30  30 0d 03 c0 07 ef 31 34  |.W%=&8000.....14|
00000570  0d 03 ca 05 f5 0d 03 d4  0b 21 26 46 36 3d 57 25  |.........!&F6=W%|
00000580  0d 03 de 09 d6 20 72 6f  6d 0d 03 e8 0e f1 20 bd  |..... rom..... .|
00000590  28 3f 26 37 34 29 3b 0d  03 f2 1f 57 25 3d 57 25  |(?&74);....W%=W%|
000005a0  2b 31 3a e7 20 57 25 3e  26 42 46 46 46 20 8c 20  |+1:. W%>&BFFF . |
000005b0  e4 20 8d 54 5a 44 0d 03  fc 10 fd 20 3f 26 37 34  |. .TZD..... ?&74|
000005c0  3d 20 97 22 2a 22 0d 04  06 08 20 ef 31 35 0d 04  |= ."*".... .15..|
000005d0  10 06 20 e1 0d 04 1a 20  20 ef 37 3a f1 22 45 4e  |.. ....  .7:."EN|
000005e0  44 20 4f 46 20 52 41 4d  22 3a 57 25 3d 26 38 30  |D OF RAM":W%=&80|
000005f0  30 30 3a f8 0d 04 24 0a  20 f1 3a f1 3a f1 0d 04  |00:...$. .:.:...|
00000600  2e 36 20 f1 22 53 4f 52  52 59 20 4e 4f 20 53 49  |.6 ."SORRY NO SI|
00000610  44 45 57 41 59 53 20 52  41 4d 21 22 3a f1 3a f1  |DEWAYS RAM!":.:.|
00000620  3a f1 8a 35 29 22 50 52  45 53 53 20 41 4e 59 20  |:..5)"PRESS ANY |
00000630  4b 45 59 22 0d 04 38 0a  20 49 3d a5 3a f8 0d 04  |KEY"..8. I=.:...|
00000640  42 0b dd 20 f2 53 54 41  52 0d 04 4c 0c de 20 62  |B.. .STAR..L.. b|
00000650  6f 62 20 35 30 0d 04 56  11 e3 20 4e 3d 30 20 b8  |ob 50..V.. N=0 .|
00000660  20 32 20 88 20 32 0d 04  60 0a 50 25 3d 62 6f 62  | 2 . 2..`.P%=bob|
00000670  0d 04 6a 09 5b 4f 50 54  4e 0d 04 74 09 4c 44 41  |..j.[OPTN..t.LDA|
00000680  23 30 0d 04 7e 0a 53 54  41 26 37 41 0d 04 88 0a  |#0..~.STA&7A....|
00000690  53 54 41 26 37 43 0d 04  92 0a 53 54 41 26 37 44  |STA&7C....STA&7D|
000006a0  0d 04 9c 0b 4c 44 41 23  26 31 39 0d 04 a6 0a 53  |....LDA#&19....S|
000006b0  54 41 26 37 42 0d 04 b0  0b 4c 44 41 23 26 34 30  |TA&7B....LDA#&40|
000006c0  0d 04 ba 0a 53 54 41 26  37 46 0d 04 c4 0a 4c 44  |....STA&7F....LD|
000006d0  41 23 34 32 0d 04 ce 0a  53 54 41 26 37 45 0d 04  |A#42....STA&7E..|
000006e0  d8 09 4c 44 41 23 30 0d  04 e2 0a 53 54 41 26 37  |..LDA#0....STA&7|
000006f0  34 0d 04 ec 07 2e 6c 6c  0d 04 f6 09 4c 44 41 23  |4.....ll....LDA#|
00000700  36 0d 05 00 0b 4c 44 58  23 26 37 41 0d 05 0a 09  |6....LDX#&7A....|
00000710  4c 44 59 23 30 0d 05 14  0c 4a 53 52 26 46 46 46  |LDY#0....JSR&FFF|
00000720  31 0d 05 1e 0b 49 4e 43  20 26 37 41 0d 05 28 0b  |1....INC &7A..(.|
00000730  42 4e 45 20 61 61 61 0d  05 32 0b 49 4e 43 20 26  |BNE aaa..2.INC &|
00000740  37 42 0d 05 3c 08 2e 61  61 61 0d 05 46 0b 44 45  |7B..<..aaa..F.DE|
00000750  43 20 26 37 34 0d 05 50  0a 42 4e 45 20 6c 6c 0d  |C &74..P.BNE ll.|
00000760  05 5a 0b 44 45 43 20 26  37 46 0d 05 64 0a 42 4e  |.Z.DEC &7F..d.BN|
00000770  45 20 6c 6c 0d 05 6e 07  52 54 53 0d 05 78 07 5d  |E ll..n.RTS..x.]|
00000780  3a ed 0d 05 82 0a 20 d6  20 62 6f 62 0d 05 8c 05  |:..... . bob....|
00000790  e1 0d 05 96 0c dd 20 f2  49 4e 4f 55 54 0d 05 a0  |...... .INOUT...|
000007a0  0e de 20 62 61 72 72 79  20 32 30 0d 05 aa 0c e3  |.. barry 20.....|
000007b0  4e 3d 30 b8 32 88 32 0d  05 b4 0d 20 50 25 3d 62  |N=0.2.2.... P%=b|
000007c0  61 72 72 79 0d 05 be 09  5b 4f 50 54 4e 0d 05 c8  |arry....[OPTN...|
000007d0  09 4c 44 41 23 30 0d 05  d2 0a 53 54 41 26 37 43  |.LDA#0....STA&7C|
000007e0  0d 05 dc 0a 53 54 41 26  37 44 0d 05 e6 09 4c 44  |....STA&7D....LD|
000007f0  41 23 35 0d 05 f0 0b 4c  44 58 23 26 37 41 0d 05  |A#5....LDX#&7A..|
00000800  fa 09 4c 44 59 23 30 0d  06 04 0c 4a 53 52 26 46  |..LDY#0....JSR&F|
00000810  46 46 31 0d 06 0e 07 52  54 53 0d 06 18 07 5d 3a  |FF1....RTS....]:|
00000820  ed 0d 06 22 10 57 25 3d  26 31 39 30 30 3a ef 31  |...".W%=&1900:.1|
00000830  34 0d 06 2c 05 f5 0d 06  36 0b 21 26 37 41 3d 57  |4..,....6.!&7A=W|
00000840  25 0d 06 40 0b d6 20 62  61 72 72 79 0d 06 4a 0e  |%..@.. barry..J.|
00000850  f1 20 bd 28 3f 26 37 45  29 3b 0d 06 54 20 20 57  |. .(?&7E);..T  W|
00000860  25 3d 57 25 2b 31 3a e7  20 57 25 3e 26 35 39 30  |%=W%+1:. W%>&590|
00000870  30 20 8c 20 e4 20 8d 44  7c 46 0d 06 5e 0f fd 20  |0 . . .D|F..^.. |
00000880  3f 26 37 45 3d 97 22 2a  22 0d 06 68 07 ef 31 35  |?&7E=."*"..h..15|
00000890  0d 06 72 05 e1 0d 06 7c  1c f1 22 3a 3a 3a 45 4e  |..r....|..":::EN|
000008a0  44 3a 3a 3a 22 3a ef 37  3a 57 25 3d 26 31 39 30  |D:::":.7:W%=&190|
000008b0  30 0d 06 86 05 f8 0d 06  90 0e 20 dd 20 f2 47 41  |0......... . .GA|
000008c0  50 28 46 29 0d 06 9a 0b  20 f1 bd 28 46 29 3b 0d  |P(F).... ..(F);.|
000008d0  06 a4 12 20 e7 20 54 25  3d 31 20 8c 20 8d 64 42  |... . T%=1 . .dB|
000008e0  46 0d 06 ae 32 20 3f 72  6f 6d 25 3d 46 3a 72 6f  |F...2 ?rom%=F:ro|
000008f0  6d 25 3d 72 6f 6d 25 2b  31 3a e7 20 72 6f 6d 25  |m%=rom%+1:. rom%|
00000900  3e 26 42 46 46 46 20 8c  20 72 6f 6d 25 3d 26 38  |>&BFFF . rom%=&8|
00000910  30 30 30 0d 06 b8 06 20  e1 0d 06 c2 2e 20 21 26  |000.... ..... !&|
00000920  37 41 3d 70 61 67 65 25  3a 3f 26 37 45 3d 46 3a  |7A=page%:?&7E=F:|
00000930  58 25 3d 26 37 41 3a 59  25 3d 30 3a 41 25 3d 36  |X%=&7A:Y%=0:A%=6|
00000940  3a d6 26 46 46 46 31 0d  06 cc 2e 20 70 61 67 65  |:.&FFF1.... page|
00000950  25 3d 70 61 67 65 25 2b  31 3a e7 20 70 61 67 65  |%=page%+1:. page|
00000960  25 3e 26 37 30 30 30 20  8c 20 70 61 67 65 25 3d  |%>&7000 . page%=|
00000970  26 31 39 30 30 0d 06 d6  06 20 e1 0d 06 e0 0e 20  |&1900.... ..... |
00000980  dd 20 f2 53 41 4d 50 4c  45 0d 06 ea 14 20 d6 20  |. .SAMPLE.... . |
00000990  4d 41 43 48 49 4e 45 3a  d6 20 72 65 63 0d 06 f4  |MACHINE:. rec...|
000009a0  0d 54 31 3d 30 3a 54 32  3d 30 0d 06 fe 14 20 73  |.T1=0:T2=0.... s|
000009b0  6d 61 6c 6c 3d 30 3a 6c  61 72 67 65 3d 30 0d 07  |mall=0:large=0..|
000009c0  08 05 f5 0d 07 12 0a d6  20 72 65 61 64 0d 07 1c  |........ read...|
000009d0  0e fd 20 3f 26 37 39 3c  3e 5a 25 0d 07 26 05 f5  |.. ?&79<>Z%..&..|
000009e0  0d 07 30 0b d6 20 72 65  61 64 20 0d 07 3a 0b 54  |..0.. read ..:.T|
000009f0  31 3d 54 31 2b 31 0d 07  44 0f 20 fd 20 3f 26 37  |1=T1+1..D. . ?&7|
00000a00  39 3c 3e 4d 25 0d 07 4e  10 20 41 24 28 35 38 29  |9<>M%..N. A$(58)|
00000a10  3d 22 34 34 22 0d 07 58  06 f5 20 0d 07 62 0a d6  |="44"..X.. ..b..|
00000a20  20 72 65 61 64 0d 07 6c  0e fd 20 3f 26 37 39 3c  | read..l.. ?&79<|
00000a30  3e 5a 25 0d 07 76 05 f5  0d 07 80 0a d6 20 72 65  |>Z%..v....... re|
00000a40  61 64 0d 07 8a 0b 54 32  3d 54 32 2b 31 0d 07 94  |ad....T2=T2+1...|
00000a50  0d fd 3f 26 37 39 3c 3e  4d 25 0d 07 9e 16 e7 20  |..?&79<>M%..... |
00000a60  54 31 3c 54 32 20 8c 73  6d 61 6c 6c 3d 54 31 20  |T1<T2 .small=T1 |
00000a70  0d 07 a8 15 e7 20 54 32  3c 54 31 20 8c 73 6d 61  |..... T2<T1 .sma|
00000a80  6c 6c 3d 54 32 0d 07 b2  16 e7 20 54 31 3e 54 32  |ll=T2..... T1>T2|
00000a90  20 8c 6c 61 72 67 65 3d  54 31 20 0d 07 bc 15 e7  | .large=T1 .....|
00000aa0  20 54 32 3e 54 31 20 8c  6c 61 72 67 65 3d 54 32  | T2>T1 .large=T2|
00000ab0  0d 07 c6 15 63 68 65 63  6b 3d 6c 61 72 67 65 2f  |....check=large/|
00000ac0  73 6d 61 6c 6c 0d 07 d0  16 e7 20 63 68 65 63 6b  |small..... check|
00000ad0  3c 32 2e 35 20 8c 20 8d  64 74 46 0d 07 da 19 53  |<2.5 . .dtF....S|
00000ae0  25 3d 73 6d 61 6c 6c 3a  4c 25 3d 73 6d 61 6c 6c  |%=small:L%=small|
00000af0  2a 32 2e 35 0d 07 e4 0b  20 66 6c 61 67 3d 31 0d  |*2.5.... flag=1.|
00000b00  07 ee 06 20 e1 0d 07 f8  0d 20 f4 20 53 45 54 20  |... ..... . SET |
00000b10  55 50 0d 08 02 14 20 41  24 28 34 36 29 3d 22 31  |UP.... A$(46)="1|
00000b20  32 31 32 31 32 22 0d 08  0c 0f 41 24 28 36 35 29  |21212"....A$(65)|
00000b30  3d 22 31 32 22 0d 08 16  11 41 24 28 36 36 29 3d  |="12"....A$(66)=|
00000b40  22 32 31 31 31 22 0d 08  20 11 41 24 28 36 37 29  |"2111".. .A$(67)|
00000b50  3d 22 32 31 32 31 22 0d  08 2a 10 41 24 28 36 38  |="2121"..*.A$(68|
00000b60  29 3d 22 32 31 31 22 0d  08 34 0e 41 24 28 36 39  |)="211"..4.A$(69|
00000b70  29 3d 22 31 22 0d 08 3e  11 41 24 28 37 30 29 3d  |)="1"..>.A$(70)=|
00000b80  22 31 31 32 31 22 0d 08  48 10 41 24 28 37 31 29  |"1121"..H.A$(71)|
00000b90  3d 22 32 32 31 22 0d 08  52 11 41 24 28 37 32 29  |="221"..R.A$(72)|
00000ba0  3d 22 31 31 31 31 22 0d  08 5c 0f 41 24 28 37 33  |="1111"..\.A$(73|
00000bb0  29 3d 22 31 31 22 0d 08  66 11 41 24 28 37 34 29  |)="11"..f.A$(74)|
00000bc0  3d 22 31 32 32 32 22 0d  08 70 10 41 24 28 37 35  |="1222"..p.A$(75|
00000bd0  29 3d 22 32 31 32 22 0d  08 7a 11 41 24 28 37 36  |)="212"..z.A$(76|
00000be0  29 3d 22 31 32 31 31 22  0d 08 84 0f 41 24 28 37  |)="1211"....A$(7|
00000bf0  37 29 3d 22 32 32 22 0d  08 8e 0f 41 24 28 37 38  |7)="22"....A$(78|
00000c00  29 3d 22 32 31 22 0d 08  98 10 41 24 28 37 39 29  |)="21"....A$(79)|
00000c10  3d 22 32 32 32 22 0d 08  a2 11 41 24 28 38 30 29  |="222"....A$(80)|
00000c20  3d 22 31 32 32 31 22 0d  08 ac 11 41 24 28 38 31  |="1221"....A$(81|
00000c30  29 3d 22 32 32 31 32 22  0d 08 b6 10 41 24 28 38  |)="2212"....A$(8|
00000c40  32 29 3d 22 31 32 31 22  0d 08 c0 10 41 24 28 38  |2)="121"....A$(8|
00000c50  33 29 3d 22 31 31 31 22  0d 08 ca 0e 41 24 28 38  |3)="111"....A$(8|
00000c60  34 29 3d 22 32 22 0d 08  d4 10 41 24 28 38 35 29  |4)="2"....A$(85)|
00000c70  3d 22 31 31 32 22 0d 08  de 11 41 24 28 38 36 29  |="112"....A$(86)|
00000c80  3d 22 31 31 31 32 22 0d  08 e8 10 41 24 28 38 37  |="1112"....A$(87|
00000c90  29 3d 22 31 32 32 22 0d  08 f2 11 41 24 28 38 38  |)="122"....A$(88|
00000ca0  29 3d 22 32 31 31 32 22  0d 08 fc 11 41 24 28 38  |)="2112"....A$(8|
00000cb0  39 29 3d 22 32 31 32 32  22 0d 09 06 11 41 24 28  |9)="2122"....A$(|
00000cc0  39 30 29 3d 22 32 32 31  31 22 0d 09 10 12 41 24  |90)="2211"....A$|
00000cd0  28 34 38 29 3d 22 32 32  32 32 32 22 0d 09 1a 12  |(48)="22222"....|
00000ce0  41 24 28 34 39 29 3d 22  31 32 32 32 32 22 0d 09  |A$(49)="12222"..|
00000cf0  24 12 41 24 28 35 30 29  3d 22 31 31 32 32 32 22  |$.A$(50)="11222"|
00000d00  0d 09 2e 12 41 24 28 35  31 29 3d 22 31 31 31 32  |....A$(51)="1112|
00000d10  32 22 0d 09 38 12 41 24  28 35 32 29 3d 22 31 31  |2"..8.A$(52)="11|
00000d20  31 31 32 22 0d 09 42 12  41 24 28 35 33 29 3d 22  |112"..B.A$(53)="|
00000d30  31 31 31 31 31 22 0d 09  4c 12 41 24 28 35 34 29  |11111"..L.A$(54)|
00000d40  3d 22 32 31 31 31 31 22  0d 09 56 12 41 24 28 35  |="21111"..V.A$(5|
00000d50  35 29 3d 22 32 32 31 31  31 22 0d 09 60 12 41 24  |5)="22111"..`.A$|
00000d60  28 35 36 29 3d 22 32 32  32 31 31 22 0d 09 6a 12  |(56)="22211"..j.|
00000d70  41 24 28 35 37 29 3d 22  32 32 32 32 31 22 0d 09  |A$(57)="22221"..|
00000d80  74 12 41 24 28 35 38 29  3d 22 32 32 32 32 32 22  |t.A$(58)="22222"|
00000d90  0d 09 7e 12 20 de 20 4d  41 43 48 49 4e 45 20 26  |..~. . MACHINE &|
00000da0  38 30 0d 09 88 0d e3 20  4e 3d 30 b8 32 88 32 0d  |80..... N=0.2.2.|
00000db0  09 92 0e 50 25 3d 4d 41  43 48 49 4e 45 0d 09 9c  |...P%=MACHINE...|
00000dc0  09 5b 4f 50 54 4e 0d 09  a6 12 20 4c 44 58 23 31  |.[OPTN.... LDX#1|
00000dd0  35 3a 4c 44 41 20 23 30  0d 09 b0 06 2e 61 0d 09  |5:LDA #0.....a..|
00000de0  ba 0c 53 54 41 26 37 30  2c 58 0d 09 c4 07 44 45  |..STA&70,X....DE|
00000df0  58 0d 09 ce 09 42 4e 45  20 61 0d 09 d8 0b 4c 44  |X....BNE a....LD|
00000e00  41 23 26 36 32 0d 09 e2  0a 53 54 41 26 37 30 0d  |A#&62....STA&70.|
00000e10  09 ec 0b 4c 44 41 23 26  46 45 0d 09 f6 0a 53 54  |...LDA#&FE....ST|
00000e20  41 26 37 31 0d 0a 00 0a  53 54 41 26 37 36 0d 0a  |A&71....STA&76..|
00000e30  0a 0b 4c 44 41 23 26 36  30 0d 0a 14 0a 53 54 41  |..LDA#&60....STA|
00000e40  26 37 35 0d 0a 1e 0b 4c  44 41 23 26 31 31 0d 0a  |&75....LDA#&11..|
00000e50  28 0a 53 54 41 26 37 41  0d 0a 32 0b 4c 44 41 23  |(.STA&7A..2.LDA#|
00000e60  26 37 46 0d 0a 3c 0a 53  54 41 26 37 42 0d 0a 46  |&7F..<.STA&7B..F|
00000e70  07 52 54 53 0d 0a 50 09  2e 73 65 6e 64 0d 0a 5a  |.RTS..P..send..Z|
00000e80  0b 4c 44 41 23 32 35 34  0d 0a 64 0a 53 54 41 26  |.LDA#254..d.STA&|
00000e90  37 34 0d 0a 6e 0a 20 4c  44 41 23 36 0d 0a 78 0b  |74..n. LDA#6..x.|
00000ea0  4c 44 58 23 26 37 30 0d  0a 82 09 4c 44 59 23 30  |LDX#&70....LDY#0|
00000eb0  0d 0a 8c 0c 4a 53 52 26  46 46 46 31 0d 0a 96 07  |....JSR&FFF1....|
00000ec0  52 54 53 0d 0a a0 08 2e  72 65 63 0d 0a aa 0a 4c  |RTS.....rec....L|
00000ed0  44 41 23 26 41 0d 0a b4  0a 53 54 41 26 37 34 0d  |DA#&A....STA&74.|
00000ee0  0a be 09 4c 44 41 23 36  0d 0a c8 0b 4c 44 58 23  |...LDA#6....LDX#|
00000ef0  26 37 30 0d 0a d2 09 4c  44 59 23 30 0d 0a dc 0c  |&70....LDY#0....|
00000f00  4a 53 52 26 46 46 46 31  0d 0a e6 07 52 54 53 0d  |JSR&FFF1....RTS.|
00000f10  0a f0 07 2e 6f 6e 0d 0a  fa 09 4c 44 41 23 32 0d  |....on....LDA#2.|
00000f20  0b 04 0a 53 54 41 26 37  39 0d 0b 0e 09 4c 44 41  |...STA&79....LDA|
00000f30  23 36 0d 0b 18 0b 4c 44  58 23 26 37 35 0d 0b 22  |#6....LDX#&75.."|
00000f40  09 4c 44 59 23 30 0d 0b  2c 0c 4a 53 52 26 46 46  |.LDY#0..,.JSR&FF|
00000f50  46 31 0d 0b 36 0d 4c 44  41 23 20 97 22 31 22 0d  |F1..6.LDA# ."1".|
00000f60  0b 40 0a 53 54 41 26 37  45 0d 0b 4a 09 4c 44 41  |.@.STA&7E..J.LDA|
00000f70  23 36 0d 0b 54 0b 4c 44  58 23 26 37 41 0d 0b 5e  |#6..T.LDX#&7A..^|
00000f80  09 4c 44 59 23 30 0d 0b  68 0c 4a 53 52 26 46 46  |.LDY#0..h.JSR&FF|
00000f90  46 31 0d 0b 72 07 52 54  53 0d 0b 7c 08 2e 6f 66  |F1..r.RTS..|..of|
00000fa0  66 0d 0b 86 09 4c 44 41  23 30 0d 0b 90 0a 53 54  |f....LDA#0....ST|
00000fb0  41 26 37 39 0d 0b 9a 09  4c 44 41 23 36 0d 0b a4  |A&79....LDA#6...|
00000fc0  0b 4c 44 58 23 26 37 35  0d 0b ae 09 4c 44 59 23  |.LDX#&75....LDY#|
00000fd0  30 0d 0b b8 0c 4a 53 52  26 46 46 46 31 0d 0b c2  |0....JSR&FFF1...|
00000fe0  0d 4c 44 41 23 20 97 22  30 22 0d 0b cc 0a 53 54  |.LDA# ."0"....ST|
00000ff0  41 26 37 45 0d 0b d6 09  4c 44 41 23 36 0d 0b e0  |A&7E....LDA#6...|
00001000  0c 4c 44 58 23 26 37 41  20 0d 0b ea 0a 4c 44 59  |.LDX#&7A ....LDY|
00001010  23 30 20 0d 0b f4 0c 4a  53 52 26 46 46 46 31 0d  |#0 ....JSR&FFF1.|
00001020  0b fe 07 52 54 53 0d 0c  08 2b 20 2e 72 65 61 64  |...RTS...+ .read|
00001030  3a 4c 44 41 23 35 3a 4c  44 58 23 26 37 35 3a 4c  |:LDA#5:LDX#&75:L|
00001040  44 59 23 30 3a 4a 53 52  26 46 46 46 31 3a 52 54  |DY#0:JSR&FFF1:RT|
00001050  53 0d 0c 12 07 5d 3a ed  0d 0c 1c 0e 20 d6 20 4d  |S....]:..... . M|
00001060  41 43 48 49 4e 45 0d 0c  26 06 20 f8 0d 0c 30 10  |ACHINE..&. ...0.|
00001070  20 dd 20 f2 50 4c 41 59  28 53 24 29 0d 0c 3a 11  | . .PLAY(S$)..:.|
00001080  e3 20 4d 3d 31 b8 20 a9  20 28 53 24 29 0d 0c 44  |. M=1. . (S$)..D|
00001090  0f 5a 24 3d c1 53 24 2c  4d 2c 31 29 0d 0c 4e 13  |.Z$=.S$,M,1)..N.|
000010a0  e7 20 5a 24 3d 22 31 22  20 8c 20 f2 44 4f 54 0d  |. Z$="1" . .DOT.|
000010b0  0c 58 14 e7 20 5a 24 3d  22 32 22 20 8c 20 f2 44  |.X.. Z$="2" . .D|
000010c0  41 53 48 0d 0c 62 06 20  ed 0d 0c 6c 11 20 d4 31  |ASH..b. ...l. .1|
000010d0  2c 30 2c 30 2c 54 2a 31  2e 35 0d 0c 76 1b 20 d1  |,0,0,T*1.5..v. .|
000010e0  3d 30 3a f5 3a fd 20 91  3d a8 28 28 54 2a 31 2e  |=0:.:. .=.((T*1.|
000010f0  35 29 2a 35 29 0d 0c 80  05 e1 0d 0c 8a 0b 20 dd  |5)*5)......... .|
00001100  20 f2 44 4f 54 0d 0c 94  08 20 f2 6f 6e 0d 0c 9e  | .DOT.... .on...|
00001110  11 d4 31 2c 2d 31 35 2c  74 6f 6e 65 2c 54 0d 0c  |..1,-15,tone,T..|
00001120  a8 15 20 d1 3d 30 3a f5  3a fd 20 91 3d a8 28 54  |.. .=0:.:. .=.(T|
00001130  2a 35 29 0d 0c b2 09 20  f2 6f 66 66 0d 0c bc 0c  |*5).... .off....|
00001140  d4 31 2c 30 2c 30 2c 54  0d 0c c6 15 20 d1 3d 30  |.1,0,0,T.... .=0|
00001150  3a f5 3a fd 20 91 3d a8  28 54 2a 35 29 0d 0c d0  |:.:. .=.(T*5)...|
00001160  05 e1 0d 0c da 0b dd 20  f2 44 41 53 48 0d 0c e4  |....... .DASH...|
00001170  08 20 f2 6f 6e 0d 0c ee  13 d4 31 2c 2d 31 35 2c  |. .on.....1,-15,|
00001180  74 6f 6e 65 2c 54 2a 33  0d 0c f8 19 20 d1 3d 30  |tone,T*3.... .=0|
00001190  3a f5 3a fd 20 91 3d a8  28 28 54 2a 33 29 2a 35  |:.:. .=.((T*3)*5|
000011a0  29 0d 0d 02 09 20 f2 6f  66 66 0d 0d 0c 0c d4 31  |).... .off.....1|
000011b0  2c 30 2c 30 2c 54 0d 0d  16 15 20 d1 3d 30 3a f5  |,0,0,T.... .=0:.|
000011c0  3a fd 20 91 3d a8 28 54  2a 35 29 0d 0d 20 05 e1  |:. .=.(T*5).. ..|
000011d0  0d 0d 2a 11 dd 20 f2 53  54 52 49 4e 47 28 58 24  |..*.. .STRING(X$|
000011e0  29 0d 0d 34 07 ea 20 4e  0d 0d 3e 12 20 e3 20 4e  |)..4.. N..>. . N|
000011f0  3d 31 20 b8 20 a9 28 58  24 29 0d 0d 48 0f 55 24  |=1 . .(X$)..H.U$|
00001200  3d c1 58 24 2c 4e 2c 31  29 0d 0d 52 15 e7 20 55  |=.X$,N,1)..R.. U|
00001210  24 3d 22 20 22 20 8c 20  f2 53 50 41 43 45 0d 0d  |$=" " . .SPACE..|
00001220  5c 14 20 e7 20 55 24 3d  22 20 22 20 8c 20 8d 74  |\. . U$=" " . .t|
00001230  44 4d 0d 0d 66 1c 20 53  24 3d 41 24 28 97 28 55  |DM..f. S$=A$(.(U|
00001240  24 29 29 3a f2 50 4c 41  59 28 53 24 29 20 0d 0d  |$)):.PLAY(S$) ..|
00001250  70 14 20 e7 20 66 6c 61  67 3d 31 20 8c 20 8d 74  |p. . flag=1 . .t|
00001260  44 4d 0d 0d 7a 09 20 f1  55 24 3b 0d 0d 84 05 ed  |DM..z. .U$;.....|
00001270  0d 0d 8e 05 e1 0d 0d 98  0c dd 20 f2 53 50 41 43  |.......... .SPAC|
00001280  45 0d 0d a2 0e d4 31 2c  30 2c 30 2c 54 2a 35 0d  |E.....1,0,0,T*5.|
00001290  0d ac 17 20 d1 3d 30 3a  f5 3a fd 20 91 3d a8 28  |... .=0:.:. .=.(|
000012a0  54 2a 35 2a 35 29 0d 0d  b6 09 f1 22 20 22 3b 0d  |T*5*5)....." ";.|
000012b0  0d c0 05 e1 0d 0d ca 13  20 dd 20 f2 53 45 4e 44  |........ . .SEND|
000012c0  3a d6 20 73 65 6e 64 0d  0d d4 32 20 f2 50 4f 52  |:. send...2 .POR|
000012d0  54 44 49 53 50 4c 41 59  3a f1 8a 37 2c 31 39 29  |TDISPLAY:..7,19)|
000012e0  22 30 20 20 30 20 20 30  20 20 30 20 20 30 20 20  |"0  0  0  0  0  |
000012f0  30 20 20 30 20 20 49 4e  22 0d 0d de 09 20 f2 42  |0  0  IN".... .B|
00001300  4f 58 0d 0d e8 06 20 f5  0d 0d f2 1e 20 49 24 3d  |OX.... ..... I$=|
00001310  bf 28 31 30 30 30 29 3a  e7 20 49 24 3d 22 22 20  |.(1000):. I$="" |
00001320  8c 20 8d 64 72 4d 0d 0d  fc 13 20 f2 53 54 52 49  |. .drM.... .STRI|
00001330  4e 47 28 49 24 29 3a fd  30 0d 0e 06 06 20 e1 0d  |NG(I$):.0.... ..|
00001340  0e 10 0f dd 20 f2 56 41  52 41 42 4c 45 53 0d 0e  |.... .VARABLES..|
00001350  1a 05 db 0d 0e 24 1f e8  22 45 4e 54 45 52 20 54  |.....$.."ENTER T|
00001360  4f 4e 45 20 28 30 2d 32  35 35 29 22 3b 74 6f 6e  |ONE (0-255)";ton|
00001370  65 20 0d 0e 2e 14 f1 22  45 4e 54 45 52 20 53 50  |e ....."ENTER SP|
00001380  45 45 44 3a 3d 22 0d 0e  38 16 f1 8a 35 29 22 31  |EED:="..8...5)"1|
00001390  2f 76 65 72 79 20 66 61  73 74 2e 22 0d 0e 42 11  |/very fast."..B.|
000013a0  f1 8a 35 29 22 32 2f 66  61 73 74 2e 22 0d 0e 4c  |..5)"2/fast."..L|
000013b0  14 20 f1 8a 35 29 22 33  2f 6d 65 64 69 75 6d 2e  |. ..5)"3/medium.|
000013c0  22 0d 0e 56 12 20 f1 8a  35 29 22 34 2f 73 6c 6f  |"..V. ..5)"4/slo|
000013d0  77 2e 22 0d 0e 60 16 f1  8a 35 29 22 35 2f 76 65  |w."..`...5)"5/ve|
000013e0  72 79 20 73 6c 6f 77 2e  22 0d 0e 6a 1d 20 54 3d  |ry slow."..j. T=|
000013f0  a6 28 35 30 29 3a e7 54  3c 34 39 84 54 3e 35 33  |.(50):.T<49.T>53|
00001400  8c 8d 44 6a 4e 20 0d 0e  74 0b 20 54 3d 54 2d 34  |..DjN ..t. T=T-4|
00001410  38 0d 0e 7e 06 20 e1 0d  0e 88 0a dd f2 4d 45 4e  |8..~. .......MEN|
00001420  55 0d 0e 92 0b 20 e4 20  8d 64 78 47 0d 0e 9c 0e  |U.... . .dxG....|
00001430  20 ee 20 85 20 f2 4d 45  4e 55 0d 0e a6 0e ef 32  | . . .MENU.....2|
00001440  36 3a 66 6c 61 67 3d 30  0d 0e b0 05 db 0d 0e ba  |6:flag=0........|
00001450  26 f1 27 27 22 20 20 20  94 f0 f0 f0 f0 f0 f0 f0  |&.''"   ........|
00001460  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00001470  f0 f0 22 0d 0e c4 24 f1  22 20 20 94 20 b5 93 9a  |.."...$."  . ...|
00001480  20 ea f5 e0 ff ea bf af  a5 ea b5 ea b5 ea b5 ea  | ...............|
00001490  b5 99 94 20 20 ea 22 0d  0e ce 24 f1 22 20 20 94  |...  ."...$."  .|
000014a0  20 b5 93 9a 20 ea ff fe  ff ea b5 a0 a0 ea fd ea  | ... ...........|
000014b0  b5 ea b5 ea b5 99 94 20  20 ea 22 0d 0e d8 24 f1  |.......  ."...$.|
000014c0  22 94 20 20 20 b5 93 9a  20 ea b5 b5 ff ea bf af  |".   ... .......|
000014d0  a0 ea bf ff b5 ea b5 ea  b5 99 94 20 20 ea 22 0d  |...........  .".|
000014e0  0e e2 24 f1 22 94 20 20  20 b5 93 9a 20 ea b5 a1  |..$.".   ... ...|
000014f0  ff ea b5 a0 a0 ea b5 eb  b5 ea b5 ea b5 99 94 20  |............... |
00001500  20 ea 22 0d 0e ec 24 f1  22 94 20 20 20 b5 93 9a  | ."...$.".   ...|
00001510  20 aa a5 a0 af aa af af  a5 aa a5 aa a5 a0 af af  | ...............|
00001520  a0 99 94 20 20 ea 22 0d  0e f6 24 f1 22 20 20 94  |...  ."...$."  .|
00001530  20 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  | ...............|
00001540  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 22 0d 0f 00 26 f1  |.........."...&.|
00001550  27 27 27 22 20 8d 86 53  45 4e 44 20 44 41 54 41  |'''" ..SEND DATA|
00001560  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 41  |...............A|
00001570  22 0d 0f 0a 23 f1 22 20  8d 86 53 45 4e 44 20 44  |"...#." ..SEND D|
00001580  41 54 41 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |ATA.............|
00001590  2e 2e 41 22 0d 0f 14 23  f1 22 8d 85 20 52 45 43  |..A"...#.".. REC|
000015a0  45 49 56 45 20 44 41 54  41 2e 2e 2e 2e 2e 2e 2e  |EIVE DATA.......|
000015b0  2e 2e 2e 2e 2e 42 22 0d  0f 1e 23 f1 22 8d 85 20  |.....B"...#.".. |
000015c0  52 45 43 45 49 56 45 20  44 41 54 41 2e 2e 2e 2e  |RECEIVE DATA....|
000015d0  2e 2e 2e 2e 2e 2e 2e 2e  42 22 0d 0f 28 23 f1 22  |........B"..(#."|
000015e0  8d 83 20 54 55 54 4f 52  2e 2e 2e 2e 2e 2e 2e 2e  |.. TUTOR........|
000015f0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 43 22 0d 0f 32  |...........C"..2|
00001600  23 f1 22 8d 83 20 54 55  54 4f 52 2e 2e 2e 2e 2e  |#.".. TUTOR.....|
00001610  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 43 22  |..............C"|
00001620  0d 0f 3c 23 f1 22 8d 81  20 43 48 41 4e 47 45 20  |..<#.".. CHANGE |
00001630  54 4f 4e 45 20 4f 52 20  53 50 45 45 44 2e 2e 2e  |TONE OR SPEED...|
00001640  2e 44 22 0d 0f 46 23 f1  22 8d 81 20 43 48 41 4e  |.D"..F#.".. CHAN|
00001650  47 45 20 54 4f 4e 45 20  4f 52 20 53 50 45 45 44  |GE TONE OR SPEED|
00001660  2e 2e 2e 2e 44 22 0d 0f  50 1f f1 27 22 20 20 20  |....D"..P..'"   |
00001670  20 20 20 20 20 20 20 88  45 4e 54 45 52 20 43 48  |       .ENTER CH|
00001680  4f 49 43 45 22 0d 0f 5a  19 49 24 3d bf 28 35 30  |OICE"..Z.I$=.(50|
00001690  30 29 3a e7 49 24 3d 22  22 8c 8d 44 5a 4f 0d 0f  |0):.I$=""..DZO..|
000016a0  64 1b e7 20 49 24 3c 22  41 22 84 20 49 24 3e 22  |d.. I$<"A". I$>"|
000016b0  44 22 20 8c 20 8d 44 5a  4f 0d 0f 6e 15 e7 20 49  |D" . .DZO..n.. I|
000016c0  24 3d 22 41 22 8c 20 f2  43 48 4f 49 43 45 0d 0f  |$="A". .CHOICE..|
000016d0  78 11 e7 20 49 24 3d 22  42 22 8c 20 f2 49 4e 0d  |x.. I$="B". .IN.|
000016e0  0f 82 14 e7 20 49 24 3d  22 43 22 8c 20 f2 54 55  |.... I$="C". .TU|
000016f0  54 4f 52 0d 0f 8c 17 e7  20 49 24 3d 22 44 22 8c  |TOR..... I$="D".|
00001700  20 f2 56 41 52 41 42 4c  45 53 0d 0f 96 14 e7 20  | .VARABLES..... |
00001710  49 24 3d 22 44 22 8c 20  e5 20 8d 74 70 4e 0d 0f  |I$="D". . .tpN..|
00001720  a0 0b 20 e5 20 8d 74 66  4e 0d 0f aa 05 e1 0d 0f  |.. . .tfN.......|
00001730  b4 11 dd f2 50 4f 52 54  44 49 53 50 4c 41 59 0d  |....PORTDISPLAY.|
00001740  0f be 05 db 0d 0f c8 3b  f1 27 27 27 27 27 27 27  |.......;.'''''''|
00001750  27 27 27 27 27 27 27 22  94 f0 f0 f0 f0 f0 f0 f0  |'''''''"........|
00001760  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00001770  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 22 0d  |..............".|
00001780  0f d2 2d f1 22 94 b5 83  20 20 20 20 20 20 50 4f  |..-."...      PO|
00001790  52 54 20 49 4e 50 55 54  20 4f 55 54 50 55 54 20  |RT INPUT OUTPUT |
000017a0  20 20 20 20 20 20 20 20  20 94 ea 22 0d 0f dc 2d  |         .."...-|
000017b0  f1 22 94 b5 83 20 20 20  96 20 20 a3 a3 a3 a3 a3  |."...   .  .....|
000017c0  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 20 20 20 20  |............    |
000017d0  20 20 20 20 20 20 94 ea  22 0d 0f e6 2d f1 22 94  |      .."...-.".|
000017e0  b5 83 20 20 20 20 37 20  20 36 20 20 35 20 20 34  |..    7  6  5  4|
000017f0  20 20 33 20 20 32 20 20  31 20 20 30 20 20 20 20  |  3  2  1  0    |
00001800  20 20 20 94 ea 22 0d 0f  f0 2d f1 22 94 b5 83 20  |   .."...-."... |
00001810  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001830  94 ea 22 0d 0f fa 2d f1  22 94 b5 83 20 20 20 20  |.."...-."...    |
00001840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001850  20 20 20 20 20 20 20 20  20 20 20 20 20 94 ea 22  |             .."|
00001860  0d 10 04 2d f1 22 94 b5  83 20 20 20 20 20 20 20  |...-."...       |
00001870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001880  20 20 20 20 20 20 20 20  20 20 94 ea 22 0d 10 0e  |          .."...|
00001890  2d f1 22 94 b5 83 20 20  20 20 20 20 20 20 20 20  |-."...          |
000018a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000018b0  20 20 20 20 20 20 20 94  ea 22 0d 10 18 2d f1 22  |       .."...-."|
000018c0  94 b5 83 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
000018d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000018e0  20 20 20 20 94 ea 22 0d  10 22 2d f1 22 94 a3 a3  |    ..".."-."...|
000018f0  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
*
00001910  a3 a3 a3 22 0d 10 2c 1f  20 f1 8a 31 30 2c 32 31  |..."..,. ..10,21|
00001920  29 22 65 73 63 61 70 65  20 66 6f 72 20 6d 65 6e  |)"escape for men|
00001930  75 21 22 0d 10 36 06 20  e1 0d 10 40 0a 20 dd 20  |u!"..6. ...@. . |
00001940  f2 6f 6e 0d 10 4a 09 20  d6 20 6f 6e 0d 10 54 06  |.on..J. . on..T.|
00001950  20 e1 0d 10 5e 0b 20 dd  20 f2 6f 66 66 0d 10 68  | ...^. . .off..h|
00001960  0a 20 d6 20 6f 66 66 0d  10 72 06 20 e1 0d 10 7c  |. . off..r. ...||
00001970  0b 20 dd 20 f2 42 4f 58  0d 10 86 12 20 ef 32 38  |. . .BOX.... .28|
00001980  2c 30 2c 31 32 2c 33 39  2c 30 0d 10 90 06 20 e1  |,0,12,39,0.... .|
00001990  0d 10 9a 0c dd f2 43 48  4f 49 43 45 0d 10 a4 05  |......CHOICE....|
000019a0  db 0d 10 ae 2d f1 22 94  f0 f0 f0 f0 f0 f0 f0 f0  |....-.".........|
000019b0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
000019c0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 22 0d 10  |............."..|
000019d0  b8 2d f1 22 93 ff ff ff  ff ff ff ff ff ff ff ff  |.-."............|
000019e0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
000019f0  ff ff ff ff ff ff ff ff  ff ff 22 0d 10 c2 2d f1  |.........."...-.|
00001a00  22 94 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |"...............|
00001a10  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00001a20  a3 a3 a3 a3 a3 a3 a3 22  0d 10 cc 21 f1 22 95 9a  |......."...!."..|
00001a30  20 20 20 20 ea f5 e0 ff  e0 bf ef b0 ea bf ef b0  |    ............|
00001a40  e0 bf ef b0 ea bf af a5  22 0d 10 d6 21 f1 22 96  |........"...!.".|
00001a50  96 95 9a 20 20 ea ff fe  ff ea b5 ea b5 ea b5 ea  |...  ...........|
00001a60  b5 ea b5 a2 a1 ea b5 a0  a0 22 0d 10 e0 21 f1 22  |........."...!."|
00001a70  94 9a 20 20 20 20 ea b5  b5 ff ea b5 ea b5 ea bf  |..    ..........|
00001a80  ff a0 a0 af ef b0 ea bf  af a0 22 0d 10 ea 21 f1  |.........."...!.|
00001a90  22 95 9a 20 20 20 20 ea  b5 a1 ff ea b5 ea b5 ea  |"..    .........|
00001aa0  b5 eb b4 e8 b4 ea b5 ea  b5 a0 a0 22 0d 10 f4 21  |..........."...!|
00001ab0  f1 22 95 9a 20 20 20 20  aa a5 a0 af a0 af af a0  |."..    ........|
00001ac0  aa a5 aa a5 a0 af af a0  aa af af a5 22 0d 10 fe  |............"...|
00001ad0  21 f1 22 20 20 20 20 20  20 a0 a0 a0 a0 a0 a0 a0  |!."      .......|
00001ae0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 22 0d 11  |............."..|
00001af0  08 27 f1 22 20 20 94 9a  20 20 20 20 e0 bf ef b0  |.'."  ..    ....|
00001b00  ea bf af a5 ea b5 ea b5  ea bf f5 a0 ea bf af a5  |................|
00001b10  ea bf ef b0 22 0d 11 12  27 f1 22 94 9a 20 20 20  |...."...'."..   |
00001b20  20 20 20 ea b5 a2 a1 ea  b5 a0 a0 ea fd ea b5 ea  |   .............|
00001b30  b5 eb b4 ea b5 a0 a0 ea  b5 ea b5 22 0d 11 1c 27  |..........."...'|
00001b40  f1 22 95 9a 20 20 20 20  20 20 a0 af ef b0 ea bf  |."..      ......|
00001b50  af a0 ea bf ff b5 ea b5  ea b5 ea bf af a0 ea bf  |................|
00001b60  ff a0 22 0d 11 26 27 f1  22 94 9a 20 20 20 20 20  |.."..&'."..     |
00001b70  20 e8 b4 ea b5 ea b5 a0  a0 ea b5 eb b5 ea b5 fe  | ...............|
00001b80  a1 ea b5 a0 a0 ea b5 eb  b4 22 0d 11 30 27 f1 22  |........."..0'."|
00001b90  94 9a 20 20 20 20 20 20  a0 af af a0 aa af af a5  |..      ........|
00001ba0  aa a5 aa a5 aa af a5 a0  aa af af a5 aa a5 aa a5  |................|
00001bb0  22 0d 11 3a 2d f1 22 94  f0 f0 f0 f0 f0 f0 f0 f0  |"..:-.".........|
00001bc0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
00001bd0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 22 0d 11  |............."..|
00001be0  44 2d f1 22 93 ff ff ff  ff ff ff ff ff ff ff ff  |D-."............|
00001bf0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
00001c00  ff ff ff ff ff ff ff ff  ff ff 22 0d 11 4e 2d f1  |.........."..N-.|
00001c10  22 94 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |"...............|
00001c20  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00001c30  a3 a3 a3 a3 a3 a3 a3 22  0d 11 58 23 f1 22 20 20  |......."..X#."  |
00001c40  20 20 20 20 20 8d 83 50  4c 45 41 53 45 20 45 4e  |     ..PLEASE EN|
00001c50  54 45 52 20 43 48 49 4f  43 45 22 0d 11 62 23 f1  |TER CHIOCE"..b#.|
00001c60  22 20 20 20 20 20 20 20  8d 83 50 4c 45 41 53 45  |"       ..PLEASE|
00001c70  20 45 4e 54 45 52 20 43  48 49 4f 43 45 22 0d 11  | ENTER CHIOCE"..|
00001c80  6c 23 f1 22 20 20 20 20  20 20 92 20 20 a3 a3 a3  |l#."      .  ...|
00001c90  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00001ca0  22 0d 11 76 26 f1 22 20  20 20 8d 81 53 45 4e 54  |"..v&."   ..SENT|
00001cb0  45 4e 43 45 53 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |ENCES...........|
00001cc0  2e 2e 2e 2e 2e 41 22 0d  11 80 26 f1 22 20 20 20  |.....A"...&."   |
00001cd0  8d 81 53 45 4e 54 45 4e  43 45 53 2e 2e 2e 2e 2e  |..SENTENCES.....|
00001ce0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 41 22 0d 11 8a  |...........A"...|
00001cf0  26 f1 22 20 20 8d 87 20  4c 45 54 54 45 52 53 2e  |&."  .. LETTERS.|
00001d00  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00001d10  2e 42 22 0d 11 94 26 f1  22 20 20 8d 87 20 4c 45  |.B"...&."  .. LE|
00001d20  54 54 45 52 53 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |TTERS...........|
00001d30  2e 2e 2e 2e 2e 2e 2e 42  22 0d 11 9e 13 63 68 6f  |.......B"....cho|
00001d40  69 63 65 24 3d bf 28 31  30 30 30 29 0d 11 a8 23  |ice$=.(1000)...#|
00001d50  20 e7 20 63 68 6f 69 63  65 24 3e 22 42 22 84 63  | . choice$>"B".c|
00001d60  68 6f 69 63 65 24 3c 22  41 22 8c 8d 74 5e 51 0d  |hoice$<"A"..t^Q.|
00001d70  11 b2 18 e7 20 63 68 6f  69 63 65 24 3d 22 41 22  |.... choice$="A"|
00001d80  8c 20 f2 43 45 4e 54 0d  11 bc 18 e7 20 63 68 6f  |. .CENT..... cho|
00001d90  69 63 65 24 3d 22 42 22  8c 20 f2 53 45 4e 44 0d  |ice$="B". .SEND.|
00001da0  11 c6 05 e1 0d 11 d0 14  dd 20 f2 43 45 4e 54 3a  |......... .CENT:|
00001db0  db 3a d6 20 73 65 6e 64  0d 11 da 37 f2 50 4f 52  |.:. send...7.POR|
00001dc0  54 44 49 53 50 4c 41 59  3a f1 8a 37 2c 31 39 29  |TDISPLAY:..7,19)|
00001dd0  22 30 20 20 30 20 20 30  20 20 30 20 20 30 20 20  |"0  0  0  0  0  |
00001de0  30 20 20 30 20 20 49 4e  22 3a f2 42 4f 58 20 0d  |0  0  IN":.BOX .|
00001df0  11 e4 1d 51 24 3d 22 22  3a db 3a f1 22 45 4e 54  |...Q$="":.:."ENT|
00001e00  45 52 20 53 54 52 49 4e  47 3a 20 22 0d 11 ee 06  |ER STRING: "....|
00001e10  20 f5 0d 11 f8 07 51 3d  a5 0d 12 02 0b 20 f1 bd  | .....Q=..... ..|
00001e20  28 51 29 3b 0d 12 0c 1c  20 e7 20 51 3d 31 32 37  |(Q);.... . Q=127|
00001e30  8c 51 24 3d c0 51 24 2c  a9 28 51 24 29 2d 31 29  |.Q$=.Q$,.(Q$)-1)|
00001e40  0d 12 16 10 20 e7 51 3d  31 32 37 8c 8d 64 78 51  |.... .Q=127..dxQ|
00001e50  0d 12 20 0e 51 24 3d 51  24 2b bd 28 51 29 0d 12  |.. .Q$=Q$+.(Q)..|
00001e60  2a 0b 20 fd 20 51 3d 31  33 0d 12 34 06 20 db 0d  |*. . Q=13..4. ..|
00001e70  12 3e 26 f2 53 54 52 49  4e 47 28 51 24 29 3a db  |.>&.STRING(Q$):.|
00001e80  3a f1 22 52 45 50 45 41  54 3f 20 28 79 2f 6e 29  |:."REPEAT? (y/n)|
00001e90  22 3a 57 3d a5 0d 12 48  11 20 e7 57 3d 38 39 20  |":W=...H. .W=89 |
00001ea0  8c 20 8d 54 74 52 0d 12  52 0a e5 20 8d 64 64 51  |. .TtR..R.. .ddQ|
00001eb0  0d 12 5c 05 e1 0d 12 66  0b dd f2 54 55 54 4f 52  |..\....f...TUTOR|
00001ec0  0d 12 70 05 db 0d 12 7a  2d f1 22 84 9d 20 20 20  |..p....z-."..   |
00001ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001ef0  9c 22 0d 12 84 2d f1 22  84 9d 20 94 93 20 20 20  |."...-.".. ..   |
00001f00  20 aa ef bf a5 ea b5 ea  b5 aa ef bf a5 e0 bf ef  | ...............|
00001f10  b0 ea bf ef b0 20 20 20  20 20 20 20 20 9c 22 0d  |.....        .".|
00001f20  12 8e 2d f1 22 84 9d 20  93 20 20 20 20 20 a0 ea  |..-.".. .     ..|
00001f30  b5 a0 ea b5 ea b5 a0 ea  b5 a0 ea b5 ea b5 ea b5  |................|
00001f40  ea b5 20 20 20 20 20 20  20 20 9c 22 0d 12 98 2d  |..        ."...-|
00001f50  f1 22 84 9d 20 93 20 20  20 20 20 a0 ea b5 a0 ea  |.".. .     .....|
00001f60  b5 ea b5 a0 ea b5 a0 ea  b5 ea b5 ea bf ff a0 20  |............... |
00001f70  20 20 20 20 20 20 20 9c  22 0d 12 a2 2d f1 22 84  |       ."...-.".|
00001f80  9d 20 93 20 20 20 20 20  a0 ea b5 a0 ea b5 ea b5  |. .     ........|
00001f90  a0 ea b5 a0 ea b5 ea b5  ea b5 eb b4 20 20 20 20  |............    |
00001fa0  20 20 20 20 9c 22 0d 12  ac 2d f1 22 84 9d 20 93  |    ."...-.".. .|
00001fb0  20 20 20 20 20 a0 aa a5  a0 a0 af af a0 a0 aa a5  |     ...........|
00001fc0  a0 a0 af af a0 aa a5 aa  a5 20 20 20 20 20 20 20  |.........       |
00001fd0  20 9c 22 0d 12 b6 2d f1  22 84 9d 20 20 20 20 20  | ."...-."..     |
00001fe0  20 20 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |  ..............|
00001ff0  a0 a0 a0 a0 a0 a0 20 20  20 20 20 20 20 20 9c 22  |......        ."|
00002000  0d 12 c0 2a f1 27 22 20  20 20 20 20 81 9d 87 41  |...*.'"     ...A|
00002010  20 74 6f 20 46 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  | to F...........|
00002020  2e 2e 2e 2e 2e 2e 41 20  9c 22 0d 12 ca 2a f1 27  |......A ."...*.'|
00002030  22 20 20 20 20 20 82 9d  85 47 20 74 6f 20 4c 2e  |"     ...G to L.|
00002040  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00002050  42 20 9c 22 0d 12 d4 2a  f1 27 22 20 20 20 20 20  |B ."...*.'"     |
00002060  84 9d 87 4d 20 74 6f 20  53 2e 2e 2e 2e 2e 2e 2e  |...M to S.......|
00002070  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 43 20 9c 22 0d 12  |..........C ."..|
00002080  de 2a f1 27 22 20 20 20  20 20 85 9d 84 54 20 74  |.*.'"     ...T t|
00002090  6f 20 57 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |o W.............|
000020a0  2e 2e 2e 2e 44 20 9c 22  0d 12 e8 2a f1 27 22 20  |....D ."...*.'" |
000020b0  20 20 20 87 87 9d 84 58  20 74 6f 20 5a 2e 2e 2e  |   ....X to Z...|
000020c0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 45 20  |..............E |
000020d0  9c 22 0d 12 f2 2a f1 27  22 20 20 20 20 81 20 9d  |."...*.'"    . .|
000020e0  87 4e 55 4d 42 45 52 53  20 65 63 74 2e 2e 2e 2e  |.NUMBERS ect....|
000020f0  2e 2e 2e 2e 2e 2e 2e 2e  46 20 9c 22 0d 12 fc 0a  |........F ."....|
00002100  f1 27 22 84 9d 22 0d 13  06 20 f1 22 84 9d 20 20  |.'".."... ."..  |
00002110  20 8d 83 20 20 88 20 45  4e 54 45 52 20 20 20 43  | ..  . ENTER   C|
00002120  48 4f 49 43 45 22 0d 13  10 20 f1 22 84 9d 20 20  |HOICE"... ."..  |
00002130  20 8d 83 20 20 88 20 45  4e 54 45 52 20 20 20 43  | ..  . ENTER   C|
00002140  48 4f 49 43 45 22 0d 13  1a 20 f1 22 84 9d 20 20  |HOICE"... ."..  |
00002150  20 20 20 20 20 20 93 a3  a3 a3 a3 a3 a3 a3 a3 a3  |      ..........|
00002160  a3 a3 a3 a3 a3 22 0d 13  24 0c 43 48 4f 49 43 45  |....."..$.CHOICE|
00002170  3d a5 0d 13 2e 14 e7 20  43 48 4f 49 43 45 3d 36  |=...... CHOICE=6|
00002180  35 20 8c 20 f2 41 0d 13  38 14 e7 20 43 48 4f 49  |5 . .A..8.. CHOI|
00002190  43 45 3d 36 36 20 8c 20  f2 47 0d 13 42 14 e7 20  |CE=66 . .G..B.. |
000021a0  43 48 4f 49 43 45 3d 36  37 20 8c 20 f2 4d 0d 13  |CHOICE=67 . .M..|
000021b0  4c 14 e7 20 43 48 4f 49  43 45 3d 36 38 20 8c 20  |L.. CHOICE=68 . |
000021c0  f2 54 0d 13 56 14 e7 20  43 48 4f 49 43 45 3d 36  |.T..V.. CHOICE=6|
000021d0  39 20 8c 20 f2 58 0d 13  60 16 e7 20 43 48 4f 49  |9 . .X..`.. CHOI|
000021e0  43 45 3d 37 30 20 8c 20  f2 4e 55 4d 0d 13 6a 06  |CE=70 . .NUM..j.|
000021f0  20 e1 0d 13 74 14 20 dd  20 f2 53 45 54 55 50 3a  | ...t. . .SETUP:|
00002200  66 6c 61 67 3d 31 0d 13  7e 42 20 db 3a f2 50 4f  |flag=1..~B .:.PO|
00002210  52 54 44 49 53 50 4c 41  59 3a f1 8a 37 2c 31 39  |RTDISPLAY:..7,19|
00002220  29 22 30 20 20 30 20 20  30 20 20 30 20 20 30 20  |)"0  0  0  0  0 |
00002230  20 30 20 20 31 20 20 49  4e 22 3a f2 42 4f 58 3a  | 0  1  IN":.BOX:|
00002240  d6 73 65 6e 64 3a e1 20  0d 13 88 09 dd f2 4f 50  |.send:. ......OP|
00002250  54 0d 13 92 08 20 ef 32  36 0d 13 9c 05 db 0d 13  |T.... .26.......|
00002260  a6 2c f1 22 94 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |.,."............|
00002270  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
00002280  b9 b9 b9 b9 b9 b9 b9 b9  b9 22 0d 13 b0 27 f1 22  |........."...'."|
00002290  91 9a 20 20 e0 bf ef b0  ea bf ef b0 aa ef bf a5  |..  ............|
000022a0  aa ef bf a5 e0 bf ef b0  ea b5 ea b5 e0 bf ef b0  |................|
000022b0  22 0d 13 ba 27 f1 22 91  9a 20 20 ea b5 ea b5 ea  |"...'."..  .....|
000022c0  b5 ea b5 a0 ea b5 a0 a0  ea b5 a0 ea b5 ea b5 ea  |................|
000022d0  fd ea b5 ea b5 a2 a1 22  0d 13 c4 27 f1 22 91 9a  |......."...'."..|
000022e0  20 20 ea b5 ea b5 ea bf  af a0 a0 ea b5 a0 a0 ea  |  ..............|
000022f0  b5 a0 ea b5 ea b5 ea bf  ff b5 a0 af ef b0 22 0d  |..............".|
00002300  13 ce 27 f1 22 91 9a 20  20 ea b5 ea b5 ea b5 a0  |..'."..  .......|
00002310  a0 a0 ea b5 a0 a0 ea b5  a0 ea b5 ea b5 ea b5 eb  |................|
00002320  b5 e8 b4 ea b5 22 0d 13  d8 27 f1 22 91 9a 20 20  |....."...'."..  |
00002330  a0 af af a0 aa a5 a0 a0  a0 aa a5 a0 aa af af a5  |................|
00002340  a0 af af a0 aa a5 aa a5  a0 af af a0 22 0d 13 e2  |............"...|
00002350  2c f1 22 94 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |,.".............|
00002360  b9 b9 b9 b9 b9 b9 b9 b9  b9 b9 b9 b9 b9 b9 b9 b9  |................|
00002370  b9 b9 b9 b9 b9 b9 b9 b9  22 0d 13 ec 2b f1 27 27  |........"...+.''|
00002380  27 22 20 20 20 83 9d 8d  84 4c 45 41 52 4e 20 43  |'"   ....LEARN C|
00002390  48 4f 53 45 4e 20 4c 45  54 54 45 52 53 2e 2e 2e  |HOSEN LETTERS...|
000023a0  41 20 9c 22 0d 13 f6 28  f1 22 20 20 20 83 9d 8d  |A ."...(."   ...|
000023b0  84 4c 45 41 52 4e 20 43  48 4f 53 45 4e 20 4c 45  |.LEARN CHOSEN LE|
000023c0  54 54 45 52 53 2e 2e 2e  41 20 9c 22 0d 14 00 2a  |TTERS...A ."...*|
000023d0  f1 27 27 22 20 20 84 20  9d 8d 87 43 55 52 52 45  |.''"  . ...CURRE|
000023e0  4e 54 20 20 54 45 53 54  2e 2e 2e 2e 2e 2e 2e 2e  |NT  TEST........|
000023f0  2e 2e 42 20 9c 22 0d 14  0a 28 f1 22 84 20 20 20  |..B ."...(.".   |
00002400  9d 8d 87 43 55 52 52 45  4e 54 20 20 54 45 53 54  |...CURRENT  TEST|
00002410  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 42 20 9c 22 0d 14  |..........B ."..|
00002420  14 2a f1 27 27 22 85 20  20 20 9d 8d 83 46 55 4c  |.*.''".   ...FUL|
00002430  4c 20 20 20 54 45 53 54  2e 2e 2e 2e 2e 2e 2e 2e  |L   TEST........|
00002440  2e 2e 2e 2e 43 20 9c 22  0d 14 1e 28 f1 22 85 20  |....C ."...(.". |
00002450  20 20 9d 8d 83 46 55 4c  4c 20 20 20 54 45 53 54  |  ...FULL   TEST|
00002460  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 43 20 9c 22  |............C ."|
00002470  0d 14 28 2c f1 27 22 94  ac ac ac ac ac ac ac ac  |..(,.'".........|
00002480  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00002490  ac ac ac ac ac ac ac ac  ac ac ac 22 0d 14 32 1d  |..........."..2.|
000024a0  f1 22 94 20 20 20 20 20  20 88 8d 81 45 4e 54 45  |.".      ...ENTE|
000024b0  52 20 43 48 4f 49 43 45  22 0d 14 3c 1d f1 22 20  |R CHOICE"..<.." |
000024c0  20 20 20 88 20 20 20 8d  81 45 4e 54 45 52 20 43  |   .   ..ENTER C|
000024d0  48 4f 49 43 45 22 0d 14  46 0d 6f 70 74 69 6f 6e  |HOICE"..F.option|
000024e0  73 3d a5 0d 14 50 05 e1  0d 14 5a 08 dd 20 f2 41  |s=...P....Z.. .A|
000024f0  0d 14 64 1d 42 24 28 31  29 3d 22 64 69 20 64 61  |..d.B$(1)="di da|
00002500  20 20 20 20 20 20 20 20  20 20 20 41 22 0d 14 6e  |           A"..n|
00002510  1d 42 24 28 32 29 3d 22  64 61 20 64 69 20 64 69  |.B$(2)="da di di|
00002520  20 64 69 20 20 20 20 20  42 22 0d 14 78 1d 42 24  | di     B"..x.B$|
00002530  28 33 29 3d 22 64 61 20  64 69 20 64 61 20 64 69  |(3)="da di da di|
00002540  20 20 20 20 20 43 22 0d  14 82 1d 42 24 28 34 29  |     C"....B$(4)|
00002550  3d 22 64 61 20 64 69 20  64 69 20 20 20 20 20 20  |="da di di      |
00002560  20 20 44 22 0d 14 8c 1d  42 24 28 35 29 3d 22 64  |  D"....B$(5)="d|
00002570  69 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |i              E|
00002580  22 0d 14 96 1d 42 24 28  36 29 3d 22 64 69 20 64  |"....B$(6)="di d|
00002590  69 20 64 61 20 64 69 20  20 20 20 20 46 22 0d 14  |i da di     F"..|
000025a0  a0 08 f2 4f 50 54 0d 14  aa 24 e7 20 6f 70 74 69  |...OPT...$. opti|
000025b0  6f 6e 73 3c 36 35 20 84  20 6f 70 74 69 6f 6e 73  |ons<65 . options|
000025c0  3e 36 37 20 8c 20 8d 74  60 54 0d 14 b4 25 20 e7  |>67 . .t`T...% .|
000025d0  20 6f 70 74 69 6f 6e 73  3d 36 36 20 84 20 6f 70  | options=66 . op|
000025e0  74 69 6f 6e 73 3d 36 37  20 8c 20 8d 54 62 55 0d  |tions=67 . .TbU.|
000025f0  14 be 05 f4 0d 14 c8 0e  ef 32 36 3a f2 53 45 54  |.........26:.SET|
00002600  55 50 0d 14 d2 1c 20 d4  2d 31 2c 32 36 30 2c 30  |UP.... .-1,260,0|
00002610  2c 30 3a d4 2d 31 2c 32  32 38 2c 30 2c 30 0d 14  |,0:.-1,228,0,0..|
00002620  dc 24 f1 22 47 45 54 20  52 45 41 44 59 21 21 21  |.$."GET READY!!!|
00002630  22 3a d1 3d 30 3a f5 3a  fd 20 91 3d 35 30 30 3a  |":.=0:.:. .=500:|
00002640  db 20 0d 14 e6 0f 50 24  3d 22 41 42 43 44 45 46  |. ....P$="ABCDEF|
00002650  22 0d 14 f0 47 e3 20 4e  3d 31 b8 36 3a f2 53 54  |"...G. N=1.6:.ST|
00002660  52 49 4e 47 28 c1 50 24  2c 4e 2c 31 29 29 3a d4  |RING(.P$,N,1)):.|
00002670  2d 31 2c 97 28 c1 50 24  2c 4e 2c 31 29 29 2c 30  |-1,.(.P$,N,1)),0|
00002680  2c 30 3a e3 4a 3d 30 b8  32 30 30 30 3a ed 3a f1  |,0:.J=0.2000:.:.|
00002690  20 42 24 28 4e 29 3a ed  0d 14 fa 16 f1 3a f1 22  | B$(N):......:."|
000026a0  52 65 70 65 61 74 3f 20  28 59 2f 4e 29 22 0d 15  |Repeat? (Y/N)"..|
000026b0  04 07 49 3d a5 0d 15 0e  13 e7 20 49 3d 97 22 59  |..I=...... I=."Y|
000026c0  22 20 8c 20 8d 64 48 54  0d 15 18 06 20 e1 0d 15  |" . .dHT.... ...|
000026d0  22 0a f4 20 54 45 53 54  0d 15 2c 0b 20 f2 53 45  |".. TEST..,. .SE|
000026e0  54 55 50 0d 15 36 14 20  db 3a f1 22 31 30 20 57  |TUP..6. .:."10 W|
000026f0  4f 52 44 53 22 3a f1 0d  15 40 12 20 e3 4e 3d 30  |ORDS":...@. .N=0|
00002700  20 b8 20 33 30 30 30 3a  ed 0d 15 4a 0f 20 f4 20  | . 3000:...J. . |
00002710  31 30 20 57 4f 52 44 53  0d 15 54 12 54 24 3d 22  |10 WORDS..T.T$="|
00002720  22 3a e3 20 4e 3d 31 b8  31 30 0d 15 5e 16 20 54  |":. N=1.10..^. T|
00002730  54 3d b3 28 34 29 2b 31  3a e3 4a 3d 31 b8 54 54  |T=.(4)+1:.J=1.TT|
00002740  0d 15 68 16 54 24 3d 54  24 2b bd 28 b3 28 36 29  |..h.T$=T$+.(.(6)|
00002750  2b 36 34 29 3a ed 0d 15  72 0d 54 24 3d 54 24 2b  |+64):...r.T$=T$+|
00002760  22 20 22 0d 15 7c 05 ed  0d 15 86 10 20 f2 53 54  |" "..|...... .ST|
00002770  52 49 4e 47 28 54 24 29  0d 15 90 18 e3 20 4e 3d  |RING(T$)..... N=|
00002780  30 20 b8 20 32 30 30 30  3a ed 3a f1 3a f1 54 24  |0 . 2000:.:.:.T$|
00002790  0d 15 9a 19 f1 3a f1 22  52 65 70 65 61 74 20 28  |.....:."Repeat (|
000027a0  59 2f 4e 29 22 3a 49 3d  a5 0d 15 a4 13 e7 20 49  |Y/N)":I=...... I|
000027b0  3d 97 22 59 22 20 8c 20  8d 54 76 55 0d 15 ae 06  |=."Y" . .TvU....|
000027c0  20 e1 0d 15 b8 08 dd 20  f2 47 0d 15 c2 1a 42 24  | ...... .G....B$|
000027d0  28 31 29 3d 22 64 61 20  64 61 20 64 69 20 20 20  |(1)="da da di   |
000027e0  20 20 47 22 0d 15 cc 1a  42 24 28 32 29 3d 22 64  |  G"....B$(2)="d|
000027f0  69 20 64 69 20 64 69 20  64 69 20 20 48 22 0d 15  |i di di di  H"..|
00002800  d6 1a 42 24 28 33 29 3d  22 64 69 20 64 69 20 20  |..B$(3)="di di  |
00002810  20 20 20 20 20 20 49 22  0d 15 e0 1a 42 24 28 34  |      I"....B$(4|
00002820  29 3d 22 64 69 20 64 61  20 64 61 20 64 61 20 20  |)="di da da da  |
00002830  4a 22 0d 15 ea 1a 42 24  28 35 29 3d 22 64 61 20  |J"....B$(5)="da |
00002840  64 69 20 64 61 20 20 20  20 20 4b 22 0d 15 f4 1a  |di da     K"....|
00002850  42 24 28 36 29 3d 22 64  69 20 64 61 20 64 69 20  |B$(6)="di da di |
00002860  64 69 20 20 4c 22 0d 15  fe 09 f2 4f 50 54 20 0d  |di  L".....OPT .|
00002870  16 08 24 e7 20 6f 70 74  69 6f 6e 73 3c 36 35 20  |..$. options<65 |
00002880  84 20 6f 70 74 69 6f 6e  73 3e 36 37 20 8c 20 8d  |. options>67 . .|
00002890  64 7e 55 0d 16 12 15 e7  20 6f 70 74 69 6f 6e 73  |d~U..... options|
000028a0  3d 36 36 8c 8d 74 4a 56  0d 16 1c 15 e7 20 6f 70  |=66..tJV..... op|
000028b0  74 69 6f 6e 73 3d 36 37  8c 8d 54 60 57 0d 16 26  |tions=67..T`W..&|
000028c0  06 20 db 0d 16 30 0e ef  32 36 3a f2 53 45 54 55  |. ...0..26:.SETU|
000028d0  50 0d 16 3a 1b d4 2d 31  2c 32 36 30 2c 30 2c 30  |P..:..-1,260,0,0|
000028e0  3a d4 2d 31 2c 32 32 38  2c 30 2c 30 0d 16 44 23  |:.-1,228,0,0..D#|
000028f0  f1 22 47 45 54 20 52 45  41 44 59 21 21 21 22 3a  |."GET READY!!!":|
00002900  d1 3d 30 3a f5 3a fd 20  91 3d 35 30 30 3a db 0d  |.=0:.:. .=500:..|
00002910  16 4e 0f 50 24 3d 22 47  48 49 4a 4b 4c 22 0d 16  |.N.P$="GHIJKL"..|
00002920  58 47 e3 20 4e 3d 31 b8  36 3a f2 53 54 52 49 4e  |XG. N=1.6:.STRIN|
00002930  47 28 c1 50 24 2c 4e 2c  31 29 29 3a d4 2d 31 2c  |G(.P$,N,1)):.-1,|
00002940  97 28 c1 50 24 2c 4e 2c  31 29 29 2c 30 2c 30 3a  |.(.P$,N,1)),0,0:|
00002950  e3 4a 3d 30 b8 32 30 30  30 3a ed 3a f1 20 42 24  |.J=0.2000:.:. B$|
00002960  28 4e 29 3a ed 0d 16 62  16 f1 3a f1 22 52 65 70  |(N):...b..:."Rep|
00002970  65 61 74 3f 20 28 59 2f  4e 29 22 0d 16 6c 07 49  |eat? (Y/N)"..l.I|
00002980  3d a5 0d 16 76 13 e7 20  49 3d 97 22 59 22 20 8c  |=...v.. I=."Y" .|
00002990  20 8d 54 66 56 0d 16 80  06 20 e1 0d 16 8a 0b 20  | .TfV.... ..... |
000029a0  f4 20 54 45 53 54 0d 16  94 0a f2 53 45 54 55 50  |. TEST.....SETUP|
000029b0  0d 16 9e 2f db 3a f1 8a  35 29 22 54 45 53 54 3a  |.../.:..5)"TEST:|
000029c0  20 20 54 65 6e 20 77 6f  72 64 73 20 6f 66 20 32  |  Ten words of 2|
000029d0  2d 35 20 6c 65 74 74 65  72 73 22 3a f1 3a f1 0d  |-5 letters":.:..|
000029e0  16 a8 11 e3 4e 3d 30 20  b8 20 33 30 30 30 3a ed  |....N=0 . 3000:.|
000029f0  0d 16 b2 0e f4 20 31 30  20 57 4f 52 44 53 0d 16  |..... 10 WORDS..|
00002a00  bc 12 54 24 3d 22 22 3a  e3 20 4e 3d 31 b8 31 30  |..T$="":. N=1.10|
00002a10  0d 16 c6 15 54 54 3d b3  28 34 29 2b 31 3a e3 4a  |....TT=.(4)+1:.J|
00002a20  3d 31 b8 54 54 0d 16 d0  16 54 24 3d 54 24 2b bd  |=1.TT....T$=T$+.|
00002a30  28 b3 28 36 29 2b 37 30  29 3a ed 0d 16 da 0d 54  |(.(6)+70):.....T|
00002a40  24 3d 54 24 2b 22 20 22  0d 16 e4 05 ed 0d 16 ee  |$=T$+" "........|
00002a50  0f f2 53 54 52 49 4e 47  28 54 24 29 0d 16 f8 18  |..STRING(T$)....|
00002a60  e3 20 4e 3d 30 20 b8 20  32 30 30 30 3a ed 3a f1  |. N=0 . 2000:.:.|
00002a70  3a f1 54 24 0d 17 02 19  f1 3a f1 22 52 65 70 65  |:.T$.....:."Repe|
00002a80  61 74 20 28 59 2f 4e 29  22 3a 49 3d a5 0d 17 0c  |at (Y/N)":I=....|
00002a90  13 e7 20 49 3d 97 22 59  22 20 8c 20 8d 74 5e 56  |.. I=."Y" . .t^V|
00002aa0  0d 17 16 05 e1 0d 17 20  0f f4 20 46 55 4c 4c 20  |....... .. FULL |
00002ab0  54 45 53 54 0d 17 2a 0a  f2 53 45 54 55 50 0d 17  |TEST..*..SETUP..|
00002ac0  34 33 db 3a f1 8a 35 29  22 54 45 53 54 3a 20 20  |43.:..5)"TEST:  |
00002ad0  46 69 66 74 65 65 6e 20  77 6f 72 64 73 20 6f 66  |Fifteen words of|
00002ae0  20 31 2d 37 20 6c 65 74  74 65 72 73 22 3a f1 3a  | 1-7 letters":.:|
00002af0  f1 0d 17 3e 11 e3 4e 3d  30 20 b8 20 33 30 30 30  |...>..N=0 . 3000|
00002b00  3a ed 0d 17 48 0e f4 20  31 35 20 57 4f 52 44 53  |:...H.. 15 WORDS|
00002b10  0d 17 52 12 54 24 3d 22  22 3a e3 20 4e 3d 31 b8  |..R.T$="":. N=1.|
00002b20  31 35 0d 17 5c 15 54 54  3d b3 28 36 29 2b 31 3a  |15..\.TT=.(6)+1:|
00002b30  e3 4a 3d 31 b8 54 54 0d  17 66 18 54 24 3d 54 24  |.J=1.TT..f.T$=T$|
00002b40  2b bd 28 b3 28 31 32 29  2b 36 34 29 3a ed 20 0d  |+.(.(12)+64):. .|
00002b50  17 70 0e 54 24 3d 54 24  2b 22 20 22 20 0d 17 7a  |.p.T$=T$+" " ..z|
00002b60  05 ed 0d 17 84 0f f2 53  54 52 49 4e 47 28 54 24  |.......STRING(T$|
00002b70  29 0d 17 8e 18 e3 20 4e  3d 30 20 b8 20 32 30 30  |)..... N=0 . 200|
00002b80  30 3a ed 3a f1 3a f1 54  24 0d 17 98 19 f1 3a f1  |0:.:.:.T$.....:.|
00002b90  22 52 65 70 65 61 74 20  28 59 2f 4e 29 22 3a 49  |"Repeat (Y/N)":I|
00002ba0  3d a5 0d 17 a2 13 e7 20  49 3d 97 22 59 22 20 8c  |=...... I=."Y" .|
00002bb0  20 8d 54 74 57 0d 17 ac  05 e1 0d 17 b6 08 dd 20  | .TtW.......... |
00002bc0  f2 4d 0d 17 c0 1a 20 42  24 28 31 29 3d 22 64 61  |.M.... B$(1)="da|
00002bd0  20 64 61 20 20 20 20 20  20 20 4d 22 0d 17 ca 1a  | da       M"....|
00002be0  20 42 24 28 32 29 3d 22  64 61 20 64 69 20 20 20  | B$(2)="da di   |
00002bf0  20 20 20 20 4e 22 0d 17  d4 1a 20 42 24 28 33 29  |    N".... B$(3)|
00002c00  3d 22 64 61 20 64 61 20  64 61 20 20 20 20 4f 22  |="da da da    O"|
00002c10  0d 17 de 1a 20 42 24 28  34 29 3d 22 64 69 20 64  |.... B$(4)="di d|
00002c20  61 20 64 61 20 64 69 20  50 22 0d 17 e8 1a 20 42  |a da di P".... B|
00002c30  24 28 35 29 3d 22 64 61  20 64 61 20 64 69 20 64  |$(5)="da da di d|
00002c40  61 20 51 22 0d 17 f2 1a  20 42 24 28 36 29 3d 22  |a Q".... B$(6)="|
00002c50  64 69 20 64 61 20 64 69  20 20 20 20 52 22 0d 17  |di da di    R"..|
00002c60  fc 1d 20 42 24 28 37 29  3d 22 64 69 20 64 69 20  |.. B$(7)="di di |
00002c70  64 69 20 20 20 20 53 22  20 20 20 0d 18 06 08 f2  |di    S"   .....|
00002c80  4f 50 54 0d 18 10 25 20  e7 20 6f 70 74 69 6f 6e  |OPT...% . option|
00002c90  73 3c 36 35 20 84 20 6f  70 74 69 6f 6e 73 3e 36  |s<65 . options>6|
00002ca0  37 20 8c 20 8d 54 46 58  0d 18 1a 16 e7 20 6f 70  |7 . .TFX..... op|
00002cb0  74 69 6f 6e 73 3d 36 36  8c 20 8d 74 52 58 0d 18  |tions=66. .tRX..|
00002cc0  24 16 e7 20 6f 70 74 69  6f 6e 73 3d 36 37 8c 20  |$.. options=67. |
00002cd0  8d 54 5e 59 0d 18 2e 06  db 20 0d 18 38 0e ef 32  |.T^Y..... ..8..2|
00002ce0  36 3a f2 53 45 54 55 50  0d 18 42 1c d4 2d 31 2c  |6:.SETUP..B..-1,|
00002cf0  32 36 30 2c 30 2c 30 3a  d4 2d 31 2c 32 32 38 2c  |260,0,0:.-1,228,|
00002d00  30 2c 30 20 0d 18 4c 24  f1 22 47 45 54 20 52 45  |0,0 ..L$."GET RE|
00002d10  41 44 59 21 21 21 22 3a  d1 3d 30 3a f5 3a fd 20  |ADY!!!":.=0:.:. |
00002d20  91 3d 35 30 30 3a db 20  0d 18 56 10 50 24 3d 22  |.=500:. ..V.P$="|
00002d30  4d 4e 4f 50 51 52 53 22  0d 18 60 47 e3 20 4e 3d  |MNOPQRS"..`G. N=|
00002d40  31 b8 37 3a f2 53 54 52  49 4e 47 28 c1 50 24 2c  |1.7:.STRING(.P$,|
00002d50  4e 2c 31 29 29 3a d4 2d  31 2c 97 28 c1 50 24 2c  |N,1)):.-1,.(.P$,|
00002d60  4e 2c 31 29 29 2c 30 2c  30 3a e3 4a 3d 30 b8 32  |N,1)),0,0:.J=0.2|
00002d70  30 30 30 3a ed 3a f1 20  42 24 28 4e 29 3a ed 0d  |000:.:. B$(N):..|
00002d80  18 6a 16 f1 3a f1 22 52  65 70 65 61 74 3f 20 28  |.j..:."Repeat? (|
00002d90  59 2f 4e 29 22 0d 18 74  07 49 3d a5 0d 18 7e 13  |Y/N)"..t.I=...~.|
00002da0  e7 20 49 3d 97 22 59 22  20 8c 20 8d 54 6e 58 0d  |. I=."Y" . .TnX.|
00002db0  18 88 06 20 e1 0d 18 92  0d 20 f4 20 54 45 53 54  |... ..... . TEST|
00002dc0  20 41 0d 18 9c 0a f2 53  45 54 55 50 0d 18 a6 2f  | A.....SETUP.../|
00002dd0  db 3a f1 8a 35 29 22 54  45 53 54 3a 20 20 54 65  |.:..5)"TEST:  Te|
00002de0  6e 20 77 6f 72 64 73 20  6f 66 20 32 2d 35 20 6c  |n words of 2-5 l|
00002df0  65 74 74 65 72 73 22 3a  f1 3a f1 0d 18 b0 11 e3  |etters":.:......|
00002e00  4e 3d 30 20 b8 20 33 30  30 30 3a ed 0d 18 ba 0e  |N=0 . 3000:.....|
00002e10  f4 20 31 30 20 57 4f 52  44 53 0d 18 c4 12 54 24  |. 10 WORDS....T$|
00002e20  3d 22 22 3a e3 20 4e 3d  31 b8 31 30 0d 18 ce 15  |="":. N=1.10....|
00002e30  54 54 3d b3 28 34 29 2b  31 3a e3 4a 3d 31 b8 54  |TT=.(4)+1:.J=1.T|
00002e40  54 0d 18 d8 16 54 24 3d  54 24 2b bd 28 b3 28 37  |T....T$=T$+.(.(7|
00002e50  29 2b 37 36 29 3a ed 0d  18 e2 0d 54 24 3d 54 24  |)+76):.....T$=T$|
00002e60  2b 22 20 22 0d 18 ec 05  ed 0d 18 f6 0f f2 53 54  |+" "..........ST|
00002e70  52 49 4e 47 28 54 24 29  0d 19 00 18 e3 20 4e 3d  |RING(T$)..... N=|
00002e80  30 20 b8 20 32 30 30 30  3a ed 3a f1 3a f1 54 24  |0 . 2000:.:.:.T$|
00002e90  0d 19 0a 19 f1 3a f1 22  52 65 70 65 61 74 20 28  |.....:."Repeat (|
00002ea0  59 2f 4e 29 22 3a 49 3d  a5 0d 19 14 13 e7 20 49  |Y/N)":I=...... I|
00002eb0  3d 97 22 59 22 20 8c 20  8d 74 66 58 0d 19 1e 10  |=."Y" . .tfX....|
00002ec0  20 f4 20 46 55 4c 4c 20  54 45 53 54 0d 19 28 0a  | . FULL TEST..(.|
00002ed0  f2 53 45 54 55 50 0d 19  32 33 db 3a f1 8a 35 29  |.SETUP..23.:..5)|
00002ee0  22 54 45 53 54 3a 20 20  46 69 66 74 65 65 6e 20  |"TEST:  Fifteen |
00002ef0  77 6f 72 64 73 20 6f 66  20 31 2d 37 20 6c 65 74  |words of 1-7 let|
00002f00  74 65 72 73 22 3a f1 3a  f1 0d 19 3c 11 e3 4e 3d  |ters":.:...<..N=|
00002f10  30 20 b8 20 33 30 30 30  3a ed 0d 19 46 0e f4 20  |0 . 3000:...F.. |
00002f20  31 35 20 57 4f 52 44 53  0d 19 50 12 54 24 3d 22  |15 WORDS..P.T$="|
00002f30  22 3a e3 20 4e 3d 31 b8  31 35 0d 19 5a 15 54 54  |":. N=1.15..Z.TT|
00002f40  3d b3 28 36 29 2b 31 3a  e3 4a 3d 31 b8 54 54 0d  |=.(6)+1:.J=1.TT.|
00002f50  19 64 17 54 24 3d 54 24  2b bd 28 b3 28 31 39 29  |.d.T$=T$+.(.(19)|
00002f60  2b 36 34 29 3a ed 0d 19  6e 0d 54 24 3d 54 24 2b  |+64):...n.T$=T$+|
00002f70  22 20 22 0d 19 78 05 ed  0d 19 82 0f f2 53 54 52  |" "..x.......STR|
00002f80  49 4e 47 28 54 24 29 0d  19 8c 19 e3 20 4e 3d 30  |ING(T$)..... N=0|
00002f90  20 b8 20 32 30 30 30 3a  ed 3a f1 3a f1 54 24 20  | . 2000:.:.:.T$ |
00002fa0  0d 19 96 19 f1 3a f1 22  52 65 70 65 61 74 20 28  |.....:."Repeat (|
00002fb0  59 2f 4e 29 22 3a 49 3d  a5 0d 19 a0 13 e7 20 49  |Y/N)":I=...... I|
00002fc0  3d 97 22 59 22 20 8c 20  8d 54 72 59 0d 19 aa 05  |=."Y" . .TrY....|
00002fd0  e1 0d 19 b4 08 dd 20 f2  54 0d 19 be 1c 42 24 28  |...... .T....B$(|
00002fe0  31 29 3d 22 64 61 20 20  20 20 20 20 20 20 20 20  |1)="da          |
00002ff0  20 20 20 54 22 0d 19 c8  1c 42 24 28 32 29 3d 22  |   T"....B$(2)="|
00003000  64 69 20 64 69 20 64 61  20 20 20 20 20 20 20 55  |di di da       U|
00003010  22 0d 19 d2 1c 42 24 28  33 29 3d 22 64 69 20 64  |"....B$(3)="di d|
00003020  69 20 64 69 20 64 61 20  20 20 20 56 22 0d 19 dc  |i di da    V"...|
00003030  1c 42 24 28 34 29 3d 22  64 61 20 64 61 20 64 69  |.B$(4)="da da di|
00003040  20 64 61 20 20 20 20 57  22 0d 19 e6 08 f2 4f 50  | da    W".....OP|
00003050  54 0d 19 f0 24 e7 20 6f  70 74 69 6f 6e 73 3c 36  |T...$. options<6|
00003060  35 20 84 20 6f 70 74 69  6f 6e 73 3e 36 37 20 8c  |5 . options>67 .|
00003070  20 8d 64 66 59 0d 19 fa  17 20 e7 20 6f 70 74 69  | .dfY.... . opti|
00003080  6f 6e 73 3d 36 36 8c 20  8d 44 72 5a 0d 1a 04 16  |ons=66. .DrZ....|
00003090  e7 20 6f 70 74 69 6f 6e  73 3d 36 37 8c 20 8d 64  |. options=67. .d|
000030a0  7e 5a 0d 1a 0e 05 db 0d  1a 18 0e ef 32 36 3a f2  |~Z..........26:.|
000030b0  53 45 54 55 50 0d 1a 22  1b d4 2d 31 2c 32 36 30  |SETUP.."..-1,260|
000030c0  2c 30 2c 30 3a d4 2d 31  2c 32 32 38 2c 30 2c 30  |,0,0:.-1,228,0,0|
000030d0  0d 1a 2c 23 f1 22 47 45  54 20 52 45 41 44 59 21  |..,#."GET READY!|
000030e0  21 21 22 3a d1 3d 30 3a  f5 3a fd 20 91 3d 35 30  |!!":.=0:.:. .=50|
000030f0  30 3a db 0d 1a 36 0d 50  24 3d 22 54 55 56 57 22  |0:...6.P$="TUVW"|
00003100  0d 1a 40 47 e3 20 4e 3d  31 b8 34 3a f2 53 54 52  |..@G. N=1.4:.STR|
00003110  49 4e 47 28 c1 50 24 2c  4e 2c 31 29 29 3a d4 2d  |ING(.P$,N,1)):.-|
00003120  31 2c 97 28 c1 50 24 2c  4e 2c 31 29 29 2c 30 2c  |1,.(.P$,N,1)),0,|
00003130  30 3a e3 4a 3d 30 b8 32  30 30 30 3a ed 3a f1 20  |0:.J=0.2000:.:. |
00003140  42 24 28 4e 29 3a ed 0d  1a 4a 16 f1 3a f1 22 52  |B$(N):...J..:."R|
00003150  65 70 65 61 74 3f 20 28  59 2f 4e 29 22 0d 1a 54  |epeat? (Y/N)"..T|
00003160  07 49 3d a5 0d 1a 5e 14  20 e7 20 49 3d 97 22 59  |.I=...^. . I=."Y|
00003170  22 20 8c 20 8d 54 4e 5a  0d 1a 68 05 e1 0d 1a 72  |" . .TNZ..h....r|
00003180  0a f2 53 45 54 55 50 0d  1a 7c 2f db 3a f1 8a 35  |..SETUP..|/.:..5|
00003190  29 22 54 45 53 54 3a 20  20 54 65 6e 20 77 6f 72  |)"TEST:  Ten wor|
000031a0  64 73 20 6f 66 20 32 2d  35 20 6c 65 74 74 65 72  |ds of 2-5 letter|
000031b0  73 22 3a f1 3a f1 0d 1a  86 11 e3 4e 3d 30 20 b8  |s":.:......N=0 .|
000031c0  20 33 30 30 30 3a ed 0d  1a 90 0e f4 20 31 30 20  | 3000:...... 10 |
000031d0  57 4f 52 44 53 0d 1a 9a  12 54 24 3d 22 22 3a e3  |WORDS....T$="":.|
000031e0  20 4e 3d 31 b8 31 30 0d  1a a4 15 54 54 3d b3 28  | N=1.10....TT=.(|
000031f0  34 29 2b 31 3a e3 4a 3d  31 b8 54 54 0d 1a ae 16  |4)+1:.J=1.TT....|
00003200  54 24 3d 54 24 2b bd 28  b3 28 34 29 2b 38 33 29  |T$=T$+.(.(4)+83)|
00003210  3a ed 0d 1a b8 0d 54 24  3d 54 24 2b 22 20 22 0d  |:.....T$=T$+" ".|
00003220  1a c2 05 ed 0d 1a cc 0f  f2 53 54 52 49 4e 47 28  |.........STRING(|
00003230  54 24 29 0d 1a d6 18 e3  20 4e 3d 30 20 b8 20 32  |T$)..... N=0 . 2|
00003240  30 30 30 3a ed 3a f1 3a  f1 54 24 0d 1a e0 19 f1  |000:.:.:.T$.....|
00003250  3a f1 22 52 65 70 65 61  74 20 28 59 2f 4e 29 22  |:."Repeat (Y/N)"|
00003260  3a 49 3d a5 0d 1a ea 13  e7 20 49 3d 97 22 59 22  |:I=...... I=."Y"|
00003270  20 8c 20 8d 44 7c 5a 0d  1a f4 06 20 e1 0d 1a fe  | . .D|Z.... ....|
00003280  0f f4 20 46 55 4c 4c 20  54 45 53 54 0d 1b 08 0a  |.. FULL TEST....|
00003290  f2 53 45 54 55 50 0d 1b  12 33 db 3a f1 8a 35 29  |.SETUP...3.:..5)|
000032a0  22 54 45 53 54 3a 20 20  46 69 66 74 65 65 6e 20  |"TEST:  Fifteen |
000032b0  77 6f 72 64 73 20 6f 66  20 31 2d 37 20 6c 65 74  |words of 1-7 let|
000032c0  74 65 72 73 22 3a f1 3a  f1 0d 1b 1c 11 e3 4e 3d  |ters":.:......N=|
000032d0  30 20 b8 20 33 30 30 30  3a ed 0d 1b 26 12 54 24  |0 . 3000:...&.T$|
000032e0  3d 22 22 3a e3 20 4e 3d  31 b8 31 35 0d 1b 30 15  |="":. N=1.15..0.|
000032f0  54 54 3d b3 28 36 29 2b  31 3a e3 4a 3d 31 b8 54  |TT=.(6)+1:.J=1.T|
00003300  54 0d 1b 3a 18 54 24 3d  54 24 2b bd 28 b3 28 32  |T..:.T$=T$+.(.(2|
00003310  33 29 2b 36 34 29 3a ed  20 0d 1b 44 0d 54 24 3d  |3)+64):. ..D.T$=|
00003320  54 24 2b 22 20 22 0d 1b  4e 05 ed 0d 1b 58 0f f2  |T$+" "..N....X..|
00003330  53 54 52 49 4e 47 28 54  24 29 0d 1b 62 19 e3 20  |STRING(T$)..b.. |
00003340  4e 3d 30 20 b8 20 32 30  30 30 3a ed 3a f1 3a f1  |N=0 . 2000:.:.:.|
00003350  54 24 20 0d 1b 6c 19 f1  3a f1 22 52 65 70 65 61  |T$ ..l..:."Repea|
00003360  74 20 28 59 2f 4e 29 22  3a 49 3d a5 0d 1b 76 13  |t (Y/N)":I=...v.|
00003370  e7 20 49 3d 97 22 59 22  20 8c 20 8d 54 74 57 0d  |. I=."Y" . .TtW.|
00003380  1b 80 05 e1 0d 1b 8a 09  20 dd 20 f2 58 0d 1b 94  |........ . .X...|
00003390  1d 20 42 24 28 31 29 3d  22 64 61 20 64 69 20 64  |. B$(1)="da di d|
000033a0  69 20 64 61 20 20 20 20  58 22 0d 1b 9e 1d 20 42  |i da    X".... B|
000033b0  24 28 32 29 3d 22 64 61  20 64 69 20 64 61 20 64  |$(2)="da di da d|
000033c0  61 20 20 20 20 59 22 0d  1b a8 1d 20 42 24 28 33  |a    Y".... B$(3|
000033d0  29 3d 22 64 61 20 64 61  20 64 69 20 64 69 20 20  |)="da da di di  |
000033e0  20 20 5a 22 0d 1b b2 08  f2 4f 50 54 0d 1b bc 24  |  Z".....OPT...$|
000033f0  e7 20 6f 70 74 69 6f 6e  73 3c 36 35 20 84 20 6f  |. options<65 . o|
00003400  70 74 69 6f 6e 73 3e 36  37 20 8c 20 8d 74 72 5b  |ptions>67 . .tr[|
00003410  0d 1b c6 16 e7 20 6f 70  74 69 6f 6e 73 3d 36 36  |..... options=66|
00003420  8c 20 8d 54 7e 5c 0d 1b  d0 16 e7 20 6f 70 74 69  |. .T~\..... opti|
00003430  6f 6e 73 3d 36 37 8c 20  8d 64 40 5c 0d 1b da 05  |ons=67. .d@\....|
00003440  db 0d 1b e4 0e ef 32 36  3a f2 53 45 54 55 50 0d  |......26:.SETUP.|
00003450  1b ee 1b d4 2d 31 2c 32  36 30 2c 30 2c 30 3a d4  |....-1,260,0,0:.|
00003460  2d 31 2c 32 32 38 2c 30  2c 30 0d 1b f8 23 f1 22  |-1,228,0,0...#."|
00003470  47 45 54 20 52 45 41 44  59 21 21 21 22 3a d1 3d  |GET READY!!!":.=|
00003480  30 3a f5 3a fd 20 91 3d  35 30 30 3a db 0d 1c 02  |0:.:. .=500:....|
00003490  0c 50 24 3d 22 58 59 5a  22 0d 1c 0c 47 e3 20 4e  |.P$="XYZ"...G. N|
000034a0  3d 31 b8 33 3a f2 53 54  52 49 4e 47 28 c1 50 24  |=1.3:.STRING(.P$|
000034b0  2c 4e 2c 31 29 29 3a d4  2d 31 2c 97 28 c1 50 24  |,N,1)):.-1,.(.P$|
000034c0  2c 4e 2c 31 29 29 2c 30  2c 30 3a e3 4a 3d 30 b8  |,N,1)),0,0:.J=0.|
000034d0  32 30 30 30 3a ed 3a f1  20 42 24 28 4e 29 3a ed  |2000:.:. B$(N):.|
000034e0  0d 1c 16 16 f1 3a f1 22  52 65 70 65 61 74 3f 20  |.....:."Repeat? |
000034f0  28 59 2f 4e 29 22 0d 1c  20 07 49 3d a5 0d 1c 2a  |(Y/N)".. .I=...*|
00003500  13 e7 20 49 3d 97 22 59  22 20 8c 20 8d 64 5a 5b  |.. I=."Y" . .dZ[|
00003510  0d 1c 34 06 20 e1 0d 1c  3e 0a f2 53 45 54 55 50  |..4. ...>..SETUP|
00003520  0d 1c 48 2f db 3a f1 8a  35 29 22 54 45 53 54 3a  |..H/.:..5)"TEST:|
00003530  20 20 54 65 6e 20 77 6f  72 64 73 20 6f 66 20 32  |  Ten words of 2|
00003540  2d 35 20 6c 65 74 74 65  72 73 22 3a f1 3a f1 0d  |-5 letters":.:..|
00003550  1c 52 11 e3 4e 3d 30 20  b8 20 33 30 30 30 3a ed  |.R..N=0 . 3000:.|
00003560  0d 1c 5c 12 54 24 3d 22  22 3a e3 20 4e 3d 31 b8  |..\.T$="":. N=1.|
00003570  31 30 0d 1c 66 15 54 54  3d b3 28 34 29 2b 31 3a  |10..f.TT=.(4)+1:|
00003580  e3 4a 3d 31 b8 54 54 0d  1c 70 17 20 54 24 3d 54  |.J=1.TT..p. T$=T|
00003590  24 2b bd 28 b3 28 33 29  2b 38 37 29 3a ed 0d 1c  |$+.(.(3)+87):...|
000035a0  7a 0d 54 24 3d 54 24 2b  22 20 22 0d 1c 84 05 ed  |z.T$=T$+" ".....|
000035b0  0d 1c 8e 0f f2 53 54 52  49 4e 47 28 54 24 29 0d  |.....STRING(T$).|
000035c0  1c 98 19 e3 20 4e 3d 30  20 b8 20 32 30 30 30 3a  |.... N=0 . 2000:|
000035d0  ed 3a f1 3a f1 54 24 20  0d 1c a2 19 f1 3a f1 22  |.:.:.T$ .....:."|
000035e0  52 65 70 65 61 74 20 28  59 2f 4e 29 22 3a 49 3d  |Repeat (Y/N)":I=|
000035f0  a5 0d 1c ac 13 e7 20 49  3d 97 22 59 22 20 8c 20  |...... I=."Y" . |
00003600  8d 44 48 5c 0d 1c b6 05  e1 0d 1c c0 0a f2 53 45  |.DH\..........SE|
00003610  54 55 50 0d 1c ca 33 db  3a f1 8a 35 29 22 54 45  |TUP...3.:..5)"TE|
00003620  53 54 3a 20 20 46 69 66  74 65 65 6e 20 77 6f 72  |ST:  Fifteen wor|
00003630  64 73 20 6f 66 20 31 2d  37 20 6c 65 74 74 65 72  |ds of 1-7 letter|
00003640  73 22 3a f1 3a f1 0d 1c  d4 11 e3 4e 3d 30 20 b8  |s":.:......N=0 .|
00003650  20 33 30 30 30 3a ed 0d  1c de 12 54 24 3d 22 22  | 3000:.....T$=""|
00003660  3a e3 20 4e 3d 31 b8 31  35 0d 1c e8 15 54 54 3d  |:. N=1.15....TT=|
00003670  b3 28 36 29 2b 31 3a e3  4a 3d 31 b8 54 54 0d 1c  |.(6)+1:.J=1.TT..|
00003680  f2 17 54 24 3d 54 24 2b  bd 28 b3 28 32 36 29 2b  |..T$=T$+.(.(26)+|
00003690  36 34 29 3a ed 0d 1c fc  0d 54 24 3d 54 24 2b 22  |64):.....T$=T$+"|
000036a0  20 22 0d 1d 06 05 ed 0d  1d 10 0f f2 53 54 52 49  | "..........STRI|
000036b0  4e 47 28 54 24 29 0d 1d  1a 18 e3 20 4e 3d 30 20  |NG(T$)..... N=0 |
000036c0  b8 20 32 30 30 30 3a ed  3a f1 3a f1 54 24 0d 1d  |. 2000:.:.:.T$..|
000036d0  24 19 f1 3a f1 22 52 65  70 65 61 74 20 28 59 2f  |$..:."Repeat (Y/|
000036e0  4e 29 22 3a 49 3d a5 0d  1d 2e 13 e7 20 49 3d 97  |N)":I=...... I=.|
000036f0  22 59 22 20 8c 20 8d 64  4a 5c 0d 1d 38 05 e1 0d  |"Y" . .dJ\..8...|
00003700  1d 42 0a dd 20 f2 4e 55  4d 0d 1d 4c 1e 42 24 28  |.B.. .NUM..L.B$(|
00003710  31 29 3d 22 64 69 20 64  61 20 64 61 20 64 61 20  |1)="di da da da |
00003720  64 61 20 20 20 31 22 0d  1d 56 1e 42 24 28 32 29  |da   1"..V.B$(2)|
00003730  3d 22 64 69 20 64 69 20  64 61 20 64 61 20 64 61  |="di di da da da|
00003740  20 20 20 32 22 0d 1d 60  1e 42 24 28 33 29 3d 22  |   2"..`.B$(3)="|
00003750  64 69 20 64 69 20 64 69  20 64 61 20 64 61 20 20  |di di di da da  |
00003760  20 33 22 0d 1d 6a 1e 42  24 28 34 29 3d 22 64 69  | 3"..j.B$(4)="di|
00003770  20 64 69 20 64 69 20 64  69 20 64 61 20 20 20 34  | di di di da   4|
00003780  22 0d 1d 74 1e 42 24 28  35 29 3d 22 64 69 20 64  |"..t.B$(5)="di d|
00003790  69 20 64 69 20 64 69 20  64 69 20 20 20 35 22 0d  |i di di di   5".|
000037a0  1d 7e 1e 42 24 28 36 29  3d 22 64 61 20 64 69 20  |.~.B$(6)="da di |
000037b0  64 69 20 64 69 20 64 69  20 20 20 36 22 0d 1d 88  |di di di   6"...|
000037c0  1e 42 24 28 37 29 3d 22  64 61 20 64 61 20 64 69  |.B$(7)="da da di|
000037d0  20 64 69 20 64 69 20 20  20 37 22 0d 1d 92 1e 42  | di di   7"....B|
000037e0  24 28 38 29 3d 22 64 61  20 64 61 20 64 61 20 64  |$(8)="da da da d|
000037f0  69 20 64 69 20 20 20 38  22 0d 1d 9c 1e 42 24 28  |i di   8"....B$(|
00003800  39 29 3d 22 64 61 20 64  61 20 64 61 20 64 61 20  |9)="da da da da |
00003810  64 69 20 20 20 39 22 0d  1d a6 1f 42 24 28 31 30  |di   9"....B$(10|
00003820  29 3d 22 64 61 20 64 61  20 64 61 20 64 61 20 64  |)="da da da da d|
00003830  61 20 20 20 30 22 0d 1d  b0 21 42 24 28 31 31 29  |a   0"...!B$(11)|
00003840  3d 22 64 69 20 64 61 20  64 69 20 64 61 20 64 69  |="di da di da di|
00003850  20 64 61 20 20 2e 22 0d  1d ba 08 f2 4f 50 54 0d  | da  .".....OPT.|
00003860  1d c4 24 e7 20 6f 70 74  69 6f 6e 73 3c 36 35 20  |..$. options<65 |
00003870  84 20 6f 70 74 69 6f 6e  73 3e 36 37 20 8c 20 8d  |. options>67 . .|
00003880  74 7a 5d 0d 1d ce 16 e7  20 6f 70 74 69 6f 6e 73  |tz]..... options|
00003890  3d 36 36 8c 20 8d 44 50  5e 0d 1d d8 16 e7 20 6f  |=66. .DP^..... o|
000038a0  70 74 69 6f 6e 73 3d 36  37 8c 20 8d 64 70 5e 0d  |ptions=67. .dp^.|
000038b0  1d e2 06 db 20 0d 1d ec  0e ef 32 36 3a f2 53 45  |.... .....26:.SE|
000038c0  54 55 50 0d 1d f6 1b d4  2d 31 2c 32 36 30 2c 30  |TUP.....-1,260,0|
000038d0  2c 30 3a d4 2d 31 2c 32  32 38 2c 30 2c 30 0d 1e  |,0:.-1,228,0,0..|
000038e0  00 23 f1 22 47 45 54 20  52 45 41 44 59 21 21 21  |.#."GET READY!!!|
000038f0  22 3a d1 3d 30 3a f5 3a  fd 20 91 3d 35 30 30 3a  |":.=0:.:. .=500:|
00003900  db 0d 1e 0a 14 50 24 3d  22 31 32 33 34 35 36 37  |.....P$="1234567|
00003910  38 39 30 2e 22 0d 1e 14  48 e3 20 4e 3d 31 b8 31  |890."...H. N=1.1|
00003920  31 3a f2 53 54 52 49 4e  47 28 c1 50 24 2c 4e 2c  |1:.STRING(.P$,N,|
00003930  31 29 29 3a d4 2d 31 2c  97 28 c1 50 24 2c 4e 2c  |1)):.-1,.(.P$,N,|
00003940  31 29 29 2c 30 2c 30 3a  e3 4a 3d 30 b8 32 30 30  |1)),0,0:.J=0.200|
00003950  30 3a ed 3a f1 20 42 24  28 4e 29 3a ed 0d 1e 1e  |0:.:. B$(N):....|
00003960  16 f1 3a f1 22 52 65 70  65 61 74 3f 20 28 59 2f  |..:."Repeat? (Y/|
00003970  4e 29 22 0d 1e 28 07 49  3d a5 0d 1e 32 13 e7 20  |N)"..(.I=...2.. |
00003980  49 3d 97 22 59 22 20 8c  20 8d 64 62 5d 0d 1e 3c  |I=."Y" . .db]..<|
00003990  05 e1 0d 1e 46 0a f4 20  54 45 53 54 0d 1e 50 0a  |....F.. TEST..P.|
000039a0  f2 53 45 54 55 50 0d 1e  5a 2b 20 f1 22 52 41 4e  |.SETUP..Z+ ."RAN|
000039b0  44 4f 4d 20 47 52 4f 55  50 53 20 4f 46 20 4e 55  |DOM GROUPS OF NU|
000039c0  4d 42 45 52 53 2b 66 75  6c 6c 20 73 74 6f 70 2e  |MBERS+full stop.|
000039d0  22 0d 1e 64 11 e3 4e 3d  30 20 b8 20 33 30 30 30  |"..d..N=0 . 3000|
000039e0  3a ed 0d 1e 6e 0f f4 20  31 30 20 47 52 4f 55 50  |:...n.. 10 GROUP|
000039f0  53 0d 1e 78 13 54 24 3d  22 22 3a e3 20 4e 3d 31  |S..x.T$="":. N=1|
00003a00  b8 31 30 20 0d 1e 82 15  54 54 3d b3 28 34 29 2b  |.10 ....TT=.(4)+|
00003a10  31 3a e3 4a 3d 31 b8 54  54 0d 1e 8c 11 20 6e 75  |1:.J=1.TT.... nu|
00003a20  6d 3d b3 28 31 32 29 2b  34 35 0d 1e 96 14 20 e7  |m=.(12)+45.... .|
00003a30  20 6e 75 6d 3d 34 37 20  8c 20 8d 74 4c 5e 0d 1e  | num=47 . .tL^..|
00003a40  a0 12 54 24 3d 54 24 2b  bd 28 6e 75 6d 29 3a ed  |..T$=T$+.(num):.|
00003a50  0d 1e aa 0d 54 24 3d 54  24 2b 22 20 22 0d 1e b4  |....T$=T$+" "...|
00003a60  05 ed 0d 1e be 0f f2 53  54 52 49 4e 47 28 54 24  |.......STRING(T$|
00003a70  29 0d 1e c8 18 e3 20 4e  3d 30 20 b8 20 32 30 30  |)..... N=0 . 200|
00003a80  30 3a ed 3a f1 3a f1 54  24 0d 1e d2 19 f1 3a f1  |0:.:.:.T$.....:.|
00003a90  22 52 65 70 65 61 74 20  28 59 2f 4e 29 22 3a 49  |"Repeat (Y/N)":I|
00003aa0  3d a5 0d 1e dc 13 e7 20  49 3d 97 22 59 22 20 8c  |=...... I=."Y" .|
00003ab0  20 8d 44 50 5e 0d 1e e6  05 e1 0d 1e f0 0a f2 53  | .DP^..........S|
00003ac0  45 54 55 50 0d 1e fa 33  db 3a f1 22 54 45 53 54  |ETUP...3.:."TEST|
00003ad0  3a 20 20 46 69 66 74 65  65 6e 20 77 6f 72 64 73  |:  Fifteen words|
00003ae0  20 6f 66 20 31 2d 37 20  63 68 61 72 61 63 74 65  | of 1-7 characte|
00003af0  72 73 22 3a f1 3a f1 0d  1f 04 11 e3 4e 3d 30 20  |rs":.:......N=0 |
00003b00  b8 20 33 30 30 30 3a ed  0d 1f 0e 12 54 24 3d 22  |. 3000:.....T$="|
00003b10  22 3a e3 20 4e 3d 31 b8  31 35 0d 1f 18 15 54 54  |":. N=1.15....TT|
00003b20  3d b3 28 36 29 2b 31 3a  e3 4a 3d 31 b8 54 54 0d  |=.(6)+1:.J=1.TT.|
00003b30  1f 22 10 6e 75 6d 3d b3  28 34 35 29 2b 34 35 0d  |.".num=.(45)+45.|
00003b40  1f 2c 14 20 e7 20 6e 75  6d 3d 34 37 20 8c 20 8d  |.,. . num=47 . .|
00003b50  54 62 5f 0d 1f 36 1d 20  e7 20 6e 75 6d 3c 36 35  |Tb_..6. . num<65|
00003b60  20 80 20 6e 75 6d 3e 35  37 20 8c 20 8d 54 62 5f  | . num>57 . .Tb_|
00003b70  0d 1f 40 12 54 24 3d 54  24 2b bd 28 6e 75 6d 29  |..@.T$=T$+.(num)|
00003b80  3a ed 0d 1f 4a 0d 54 24  3d 54 24 2b 22 20 22 0d  |:...J.T$=T$+" ".|
00003b90  1f 54 05 ed 0d 1f 5e 0f  f2 53 54 52 49 4e 47 28  |.T....^..STRING(|
00003ba0  54 24 29 0d 1f 68 18 e3  20 4e 3d 30 20 b8 20 32  |T$)..h.. N=0 . 2|
00003bb0  30 30 30 3a ed 3a f1 3a  f1 54 24 0d 1f 72 19 f1  |000:.:.:.T$..r..|
00003bc0  3a f1 22 52 65 70 65 61  74 20 28 59 2f 4e 29 22  |:."Repeat (Y/N)"|
00003bd0  3a 49 3d a5 0d 1f 7c 13  e7 20 49 3d 97 22 59 22  |:I=...|.. I=."Y"|
00003be0  20 8c 20 8d 64 7a 5e 0d  1f 86 05 e1 0d 1f 90 08  | . .dz^.........|
00003bf0  dd f2 49 4e 0d 1f 9a 0c  20 ef 32 36 3a ef 31 35  |..IN.... .26:.15|
00003c00  0d 1f a4 05 db 0d 1f ae  2d f1 22 93 e6 e6 e6 e6  |........-.".....|
00003c10  e6 e6 e6 e6 e6 e6 e6 e6  e6 e6 e6 e6 e6 e6 e6 e6  |................|
*
00003c30  e6 22 0d 1f b8 2b f1 22  95 9a 20 20 ea bf ef b0  |."...+."..  ....|
00003c40  ea bf af a5 e0 bf ef b0  a0 a0 a0 a0 ea f5 e0 ff  |................|
00003c50  ea bf af a5 ea b5 ea b5  ea b5 ea b5 22 0d 1f c2  |............"...|
00003c60  2b f1 22 95 9a 20 20 ea  b5 ea b5 ea b5 a0 a0 ea  |+."..  .........|
00003c70  b5 a2 a1 a0 a0 a0 a0 ea  ff fe ff ea b5 a0 a0 ea  |................|
00003c80  fd ea b5 ea b5 ea b5 22  0d 1f cc 2b f1 22 95 9a  |......."...+."..|
00003c90  20 20 ea bf ff a0 ea bf  af a0 ea b5 a0 a0 a0 a0  |  ..............|
00003ca0  a0 a0 ea b5 b5 ff ea bf  af a0 ea bf ff b5 ea b5  |................|
00003cb0  ea b5 22 0d 1f d6 2b f1  22 95 9a 20 20 ea b5 eb  |.."...+."..  ...|
00003cc0  b4 ea b5 a0 a0 ea b5 e8  b4 a0 a0 a0 a0 ea b5 a1  |................|
00003cd0  ff ea b5 a0 a0 ea b5 eb  b5 ea b5 ea b5 22 0d 1f  |............."..|
00003ce0  e0 2b f1 22 95 9a 20 20  aa a5 aa a5 aa af af a5  |.+."..  ........|
00003cf0  a0 af af a0 a0 a0 a0 a0  aa a5 a0 af aa af af a5  |................|
00003d00  aa a5 aa a5 a0 af af a0  22 0d 1f ea 2d f1 22 93  |........"...-.".|
00003d10  e6 e6 e6 e6 e6 e6 e6 e6  e6 e6 e6 e6 e6 e6 e6 e6  |................|
*
00003d30  e6 e6 e6 e6 e6 22 0d 1f  f4 2d f1 22 96 ac ac ac  |....."...-."....|
00003d40  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
*
00003d60  ac ac 22 0d 1f fe 25 f1  22 8d 84 20 20 54 61 6b  |.."...%."..  Tak|
00003d70  65 20 61 20 73 61 6d 70  6c 65 2e 2e 2e 2e 2e 2e  |e a sample......|
00003d80  2e 2e 2e 2e 2e 2e 41 22  0d 20 08 25 f1 22 8d 84  |......A". .%."..|
00003d90  20 20 54 61 6b 65 20 61  20 73 61 6d 70 6c 65 2e  |  Take a sample.|
00003da0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 41 22 0d 20 12  |...........A". .|
00003db0  2d f1 22 96 ac ac ac ac  ac ac ac ac ac ac ac ac  |-.".............|
00003dc0  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00003dd0  ac ac ac ac ac ac ac ac  ac 22 0d 20 1c 25 f1 22  |.........". .%."|
00003de0  8d 83 20 20 52 65 63 2e  20 44 61 74 61 20 66 72  |..  Rec. Data fr|
00003df0  6f 6d 20 50 6f 72 74 2e  2e 2e 2e 2e 2e 42 22 0d  |om Port......B".|
00003e00  20 26 25 f1 22 8d 83 20  20 52 65 63 2e 20 44 61  | &%."..  Rec. Da|
00003e10  74 61 20 66 72 6f 6d 20  50 6f 72 74 2e 2e 2e 2e  |ta from Port....|
00003e20  2e 2e 42 22 0d 20 30 2d  f1 22 96 ac ac ac ac ac  |..B". 0-."......|
00003e30  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
*
00003e50  22 0d 20 3a 25 f1 22 8d  81 20 20 53 65 74 20 75  |". :%."..  Set u|
00003e60  70 20 70 6f 72 74 20 6f  70 74 69 6f 6e 73 2e 2e  |p port options..|
00003e70  2e 2e 2e 2e 43 22 0d 20  44 25 f1 22 8d 81 20 20  |....C". D%."..  |
00003e80  53 65 74 20 75 70 20 70  6f 72 74 20 6f 70 74 69  |Set up port opti|
00003e90  6f 6e 73 2e 2e 2e 2e 2e  2e 43 22 0d 20 4e 2d f1  |ons......C". N-.|
00003ea0  22 96 ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |"...............|
00003eb0  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00003ec0  ac ac ac ac ac ac ac 22  0d 20 58 25 f1 22 8d 82  |.......". X%."..|
00003ed0  20 20 46 75 6c 6c 20 64  65 73 63 72 69 70 74 69  |  Full descripti|
00003ee0  6f 6e 20 6f 66 20 52 65  63 2e 2e 44 22 0d 20 62  |on of Rec..D". b|
00003ef0  25 f1 22 8d 82 20 20 46  75 6c 6c 20 64 65 73 63  |%."..  Full desc|
00003f00  72 69 70 74 69 6f 6e 20  6f 66 20 52 65 63 2e 2e  |ription of Rec..|
00003f10  44 22 0d 20 6c 2d f1 22  96 ac ac ac ac ac ac ac  |D". l-."........|
00003f20  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00003f30  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac 22 0d  |..............".|
00003f40  20 76 25 f1 22 8d 85 20  20 53 65 65 20 73 74 6f  | v%."..  See sto|
00003f50  72 65 64 20 6d 65 73 73  61 67 65 73 2e 2e 2e 2e  |red messages....|
00003f60  2e 2e 45 22 0d 20 80 25  f1 22 8d 85 20 20 53 65  |..E". .%."..  Se|
00003f70  65 20 73 74 6f 72 65 64  20 6d 65 73 73 61 67 65  |e stored message|
00003f80  73 2e 2e 2e 2e 2e 2e 45  22 0d 20 8a 2d f1 22 96  |s......E". .-.".|
00003f90  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
*
00003fb0  ac ac ac ac ac 22 0d 20  94 28 20 f1 22 20 20 20  |.....". .( ."   |
00003fc0  20 20 20 20 20 88 45 4e  54 45 52 20 43 48 4f 49  |     .ENTER CHOI|
00003fd0  43 45 89 20 28 4d 20 6d  65 6e 75 29 22 3b 0d 20  |CE. (M menu)";. |
00003fe0  9e 0c 20 ee 20 85 20 f2  49 4e 0d 20 a8 0a 20 49  |.. . . .IN. .. I|
00003ff0  24 3d be 20 0d 20 b2 14  e7 20 49 24 3d 22 41 22  |$=. . ... I$="A"|
00004000  20 8c 20 f2 53 41 4d 50  0d 20 bc 13 e7 20 49 24  | . .SAMP. ... I$|
00004010  3d 22 42 22 20 8c 20 f2  52 45 43 0d 20 c6 16 e7  |="B" . .REC. ...|
00004020  20 49 24 3d 22 43 22 20  8c 20 f2 4f 50 54 49 4f  | I$="C" . .OPTIO|
00004030  4e 0d 20 d0 1b e7 20 49  24 3d 22 44 22 20 8c 20  |N. ... I$="D" . |
00004040  f2 44 49 53 43 52 49 50  54 49 4f 4e 0d 20 da 18  |.DISCRIPTION. ..|
00004050  e7 20 49 24 3d 22 45 22  20 8c 20 f2 4d 45 53 53  |. I$="E" . .MESS|
00004060  41 47 45 53 0d 20 e4 14  e7 20 49 24 3d 22 4d 22  |AGES. ... I$="M"|
00004070  20 8c 20 f2 4d 45 4e 55  0d 20 ee 0b 20 e5 20 8d  | . .MENU. .. . .|
00004080  74 5a 5f 0d 20 f8 05 e1  0d 21 02 0a dd f2 53 41  |tZ_. ....!....SA|
00004090  4d 50 0d 21 0c 05 db 0d  21 16 2c f1 22 91 f0 f0  |MP.!....!.,."...|
000040a0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
*
000040c0  f0 f0 22 0d 21 20 2c f1  22 97 ff ff ff ff ff ff  |..".! ,.".......|
000040d0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
000040e0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff 22 0d  |..............".|
000040f0  21 2a 2c f1 22 91 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |!*,."...........|
00004100  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00004110  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 22 0d 21 34 25 f1  |..........".!4%.|
00004120  22 93 9a 20 20 20 20 e0  bf ef b0 e0 bf ef b0 ea  |"..    .........|
00004130  f5 e0 ff ea bf ef b0 ea  b5 a0 a0 ea bf af a5 22  |..............."|
00004140  0d 21 3e 25 f1 22 93 9a  20 20 20 20 ea b5 a2 a1  |.!>%."..    ....|
00004150  ea b5 ea b5 ea ff fe ff  ea b5 ea b5 ea b5 a0 a0  |................|
00004160  ea b5 a0 a0 22 0d 21 48  25 f1 22 93 9a 20 20 20  |....".!H%."..   |
00004170  20 a0 af ef b0 ea bf ef  b5 ea b5 b5 ff ea bf af  | ...............|
00004180  a0 ea b5 a0 a0 ea bf af  a0 22 0d 21 52 25 f1 22  |.........".!R%."|
00004190  93 9a 20 20 20 20 e8 b4  ea b5 ea b5 ea b5 ea b5  |..    ..........|
000041a0  a1 ff ea b5 a0 a0 ea b5  a0 a0 ea b5 a0 a0 22 0d  |..............".|
000041b0  21 5c 25 f1 22 93 9a 20  20 20 20 a0 af af a0 aa  |!\%."..    .....|
000041c0  a5 aa a5 aa a5 a0 af aa  a5 a0 a0 aa af af a5 aa  |................|
000041d0  af af a5 22 0d 21 66 2c  f1 22 91 f0 f0 f0 f0 f0  |...".!f,."......|
000041e0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 f0  |................|
000041f0  f0 f0 f0 f0 f0 f0 f0 f0  f0 f0 f0 f0 f0 f0 f0 22  |..............."|
00004200  0d 21 70 2c f1 22 97 ff  ff ff ff ff ff ff ff ff  |.!p,."..........|
00004210  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
00004220  ff ff ff ff ff ff ff ff  ff ff ff 22 0d 21 7a 2c  |...........".!z,|
00004230  f1 22 91 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |."..............|
00004240  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
00004250  a3 a3 a3 a3 a3 a3 a3 22  0d 21 84 2c f1 27 22 8d  |.......".!.,.'".|
00004260  85 54 48 49 53 20 53 45  43 54 49 4f 4e 20 57 49  |.THIS SECTION WI|
00004270  4c 4c 20 54 41 4b 45 20  41 20 53 41 4d 50 4c 45  |LL TAKE A SAMPLE|
00004280  20 4f 46 22 0d 21 8e 2b  f1 22 8d 85 54 48 49 53  | OF".!.+."..THIS|
00004290  20 53 45 43 54 49 4f 4e  20 57 49 4c 4c 20 54 41  | SECTION WILL TA|
000042a0  4b 45 20 41 20 53 41 4d  50 4c 45 20 4f 46 22 0d  |KE A SAMPLE OF".|
000042b0  21 98 2d f1 22 8d 85 49  4e 43 4f 4d 4d 49 4e 47  |!.-."..INCOMMING|
000042c0  20 4d 4f 52 53 45 20 41  4e 44 20 53 45 54 20 55  | MORSE AND SET U|
000042d0  50 20 54 48 45 20 43 59  4e 43 2e 22 0d 21 a2 2d  |P THE CYNC.".!.-|
000042e0  f1 22 8d 85 49 4e 43 4f  4d 4d 49 4e 47 20 4d 4f  |."..INCOMMING MO|
000042f0  52 53 45 20 41 4e 44 20  53 45 54 20 55 50 20 54  |RSE AND SET UP T|
00004300  48 45 20 43 59 4e 43 2e  22 0d 21 ac 2b f1 27 22  |HE CYNC.".!.+.'"|
00004310  8d 84 41 46 54 45 52 20  54 48 45 20 53 41 4d 50  |..AFTER THE SAMP|
00004320  4c 45 20 54 48 45 20 50  52 4f 47 52 41 4d 20 57  |LE THE PROGRAM W|
00004330  49 4c 4c 22 0d 21 b6 2a  f1 22 8d 84 41 46 54 45  |ILL".!.*."..AFTE|
00004340  52 20 54 48 45 20 53 41  4d 50 4c 45 20 54 48 45  |R THE SAMPLE THE|
00004350  20 50 52 4f 47 52 41 4d  20 57 49 4c 4c 22 0d 21  | PROGRAM WILL".!|
00004360  c0 24 f1 22 8d 84 4a 55  4d 50 20 49 4e 54 4f 20  |.$."..JUMP INTO |
00004370  54 48 45 20 52 45 43 2e  20 53 45 43 54 49 4f 4e  |THE REC. SECTION|
00004380  2e 22 0d 21 ca 24 f1 22  8d 84 4a 55 4d 50 20 49  |.".!.$."..JUMP I|
00004390  4e 54 4f 20 54 48 45 20  52 45 43 2e 20 53 45 43  |NTO THE REC. SEC|
000043a0  54 49 4f 4e 2e 22 0d 21  d4 25 f1 27 22 8d 86 20  |TION.".!.%.'".. |
000043b0  20 88 50 52 45 53 53 20  41 4e 59 20 4b 45 59 20  | .PRESS ANY KEY |
000043c0  57 48 45 4e 20 52 45 41  44 59 22 0d 21 de 24 f1  |WHEN READY".!.$.|
000043d0  22 8d 86 20 20 88 50 52  45 53 53 20 41 4e 59 20  |"..  .PRESS ANY |
000043e0  4b 45 59 20 57 48 45 4e  20 52 45 41 44 59 22 0d  |KEY WHEN READY".|
000043f0  21 e8 30 f1 22 20 20 20  20 20 20 20 20 20 20 20  |!.0."           |
00004400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004410  20 20 20 20 20 20 20 20  8c 9c 99 93 a0 22 3b 0d  |        .....";.|
00004420  21 f2 15 20 49 3d a5 3a  f2 53 41 4d 50 4c 45 3a  |!.. I=.:.SAMPLE:|
00004430  f2 52 45 43 0d 21 fc 06  20 e1 0d 22 06 0c dd f2  |.REC.!.. .."....|
00004440  4f 50 54 49 4f 4e 0d 22  10 05 db 0d 22 1a 2d f1  |OPTION."....".-.|
00004450  22 93 a3 ac a3 ac a3 ac  a3 ac a3 ac a3 ac a3 ac  |"...............|
00004460  a3 ac a3 ac a3 ac a3 ac  a3 ac a3 ac a3 ac a3 ac  |................|
00004470  a3 ac a3 ac a3 ac a3 22  0d 22 24 27 f1 22 96 20  |......."."$'.". |
00004480  20 20 e0 bf ef b0 ea bf  ef b0 aa ef bf a5 aa ef  |  ..............|
00004490  bf a5 e0 bf ef b0 ea b5  ea b5 e0 bf ef b0 22 0d  |..............".|
000044a0  22 2e 27 f1 22 96 20 20  20 ea b5 ea b5 ea b5 ea  |".'.".   .......|
000044b0  b5 a0 ea b5 a0 a0 ea b5  a0 ea b5 ea b5 ea fd ea  |................|
000044c0  b5 ea b5 a2 a1 22 0d 22  38 27 f1 22 96 20 20 20  |....."."8'.".   |
000044d0  ea b5 ea b5 ea bf af a0  a0 ea b5 a0 a0 ea b5 a0  |................|
000044e0  ea b5 ea b5 ea bf ff b5  a0 af ef b0 22 0d 22 42  |............"."B|
000044f0  27 f1 22 96 20 20 20 ea  b5 ea b5 ea b5 a0 a0 a0  |'.".   .........|
00004500  ea b5 a0 a0 ea b5 a0 ea  b5 ea b5 ea b5 eb b5 e8  |................|
00004510  b4 ea b5 22 0d 22 4c 27  f1 22 96 20 20 20 a0 af  |..."."L'.".   ..|
00004520  af a0 aa a5 a0 a0 a0 aa  a5 a0 aa af af a5 a0 af  |................|
00004530  af a0 aa a5 aa a5 a0 af  af a0 22 0d 22 56 2d f1  |.........."."V-.|
00004540  22 93 ac a3 ac a3 ac a3  ac a3 ac a3 ac a3 ac a3  |"...............|
00004550  ac a3 ac a3 ac a3 ac a3  ac a3 ac a3 ac a3 ac a3  |................|
00004560  ac a3 ac a3 ac a3 ac 22  0d 22 60 22 f1 27 22 81  |......."."`".'".|
00004570  20 20 20 20 20 20 20 20  54 48 49 53 20 53 45 43  |        THIS SEC|
00004580  54 49 4f 4e 20 57 49 4c  4c 22 0d 22 6a 23 f1 22  |TION WILL"."j#."|
00004590  81 20 20 20 20 20 20 20  20 41 4c 4c 4f 57 20 59  |.        ALLOW Y|
000045a0  4f 55 20 54 4f 20 53 45  4c 45 43 54 22 0d 22 74  |OU TO SELECT"."t|
000045b0  24 f1 22 81 20 20 20 20  20 20 20 20 48 4f 57 20  |$.".        HOW |
000045c0  4d 4f 52 53 45 20 49 53  20 45 4e 54 45 52 45 44  |MORSE IS ENTERED|
000045d0  22 0d 22 7e 22 f1 22 81  20 20 20 20 20 20 20 20  |"."~".".        |
000045e0  49 4e 54 4f 20 54 48 45  20 43 4f 4d 50 55 54 45  |INTO THE COMPUTE|
000045f0  52 2e 22 0d 22 88 25 f1  22 81 20 20 20 20 20 20  |R.".".%.".      |
00004600  20 20 41 20 54 4f 4e 45  20 43 41 4e 20 42 45 20  |  A TONE CAN BE |
00004610  44 45 46 49 4e 45 44 22  0d 22 92 25 f1 22 81 20  |DEFINED".".%.". |
00004620  20 20 20 20 20 20 20 41  53 20 41 20 4c 4f 57 20  |       AS A LOW |
00004630  54 4f 20 48 49 47 48 20  4f 52 20 41 22 0d 22 9c  |TO HIGH OR A".".|
00004640  28 f1 22 81 20 20 20 20  20 20 20 20 48 49 47 48  |(.".        HIGH|
00004650  20 54 4f 20 4c 4f 57 20  4f 4e 20 54 48 45 20 50  | TO LOW ON THE P|
00004660  4f 52 54 2e 22 0d 22 a6  24 f1 22 81 20 20 20 20  |ORT.".".$.".    |
00004670  20 20 20 20 54 48 45 20  44 45 46 41 55 4c 54 20  |    THE DEFAULT |
00004680  53 54 41 54 45 20 49 53  22 0d 22 b0 26 f1 22 81  |STATE IS".".&.".|
00004690  20 20 20 20 20 20 20 20  48 49 47 48 20 54 4f 20  |        HIGH TO |
000046a0  4c 4f 57 20 57 48 45 4e  20 54 48 45 52 45 22 0d  |LOW WHEN THERE".|
000046b0  22 ba 1a f1 22 81 20 20  20 20 20 20 20 20 49 53  |"...".        IS|
000046c0  20 41 20 54 4f 4e 45 2e  22 0d 22 c4 29 f1 27 22  | A TONE.".".).'"|
000046d0  8d 84 45 4e 54 45 52 20  59 20 49 46 20 59 4f 55  |..ENTER Y IF YOU|
000046e0  20 57 41 4e 54 20 4c 4f  57 20 54 4f 20 48 49 47  | WANT LOW TO HIG|
000046f0  48 22 0d 22 ce 28 f1 22  8d 84 45 4e 54 45 52 20  |H".".(."..ENTER |
00004700  59 20 49 46 20 59 4f 55  20 57 41 4e 54 20 4c 4f  |Y IF YOU WANT LO|
00004710  57 20 54 4f 20 48 49 47  48 22 0d 22 d8 2b f1 22  |W TO HIGH".".+."|
00004720  8d 84 4f 4e 20 41 20 54  4f 4e 45 2c 20 4f 52 20  |..ON A TONE, OR |
00004730  41 4e 59 20 4b 45 59 20  46 4f 52 20 44 45 46 41  |ANY KEY FOR DEFA|
00004740  55 4c 54 2e 22 0d 22 e2  2b f1 22 8d 84 4f 4e 20  |ULT.".".+."..ON |
00004750  41 20 54 4f 4e 45 2c 20  4f 52 20 41 4e 59 20 4b  |A TONE, OR ANY K|
00004760  45 59 20 46 4f 52 20 44  45 46 41 55 4c 54 2e 22  |EY FOR DEFAULT."|
00004770  0d 22 ec 31 f1 27 22 20  20 20 20 20 20 20 20 20  |.".1.'"         |
00004780  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004790  20 20 20 20 20 20 20 20  20 20 8c 9c 99 93 a0 22  |          ....."|
000047a0  3b 0d 22 f6 08 49 49 3d  a5 0d 23 00 16 e7 20 49  |;."..II=..#... I|
000047b0  49 3d 97 22 59 22 20 8c  20 4d 25 3d 32 34 35 0d  |I=."Y" . M%=245.|
000047c0  23 0a 16 e7 20 49 49 3d  97 22 59 22 20 8c 20 5a  |#... II=."Y" . Z|
000047d0  25 3d 32 34 34 0d 23 14  05 e1 0d 23 1e 11 dd f2  |%=244.#....#....|
000047e0  44 49 53 43 52 49 50 54  49 4f 4e 0d 23 28 05 db  |DISCRIPTION.#(..|
000047f0  0d 23 32 30 f1 22 91 f3  f3 f3 f3 f3 f3 f3 f3 f3  |.#20."..........|
00004800  f3 f3 f3 f3 f3 f3 f3 f3  f3 f3 f3 f3 f3 f3 f3 f3  |................|
00004810  f3 f3 f3 f3 f3 f3 f3 f3  f3 f3 f3 f3 f3 f3 22 3b  |..............";|
00004820  0d 23 3c 23 f1 22 86 9d  20 20 20 94 9a 20 ea f5  |.#<#."..   .. ..|
00004830  e0 ff ea bf af a5 ea f5  e0 ff e0 bf ef b0 a0 ea  |................|
00004840  b5 a0 22 0d 23 46 23 f1  22 87 9d 20 20 20 94 9a  |..".#F#."..   ..|
00004850  20 ea ff fe ff ea b5 a0  a0 ea ff fe ff ea b5 ea  | ...............|
00004860  b5 a0 ea b5 a0 22 0d 23  50 23 f1 22 86 9d 20 20  |.....".#P#."..  |
00004870  20 94 9a 20 ea b5 b5 ff  ea bf af a0 ea b5 b5 ff  | .. ............|
00004880  ea b5 ea b5 a0 ea b5 a0  22 0d 23 5a 23 f1 22 87  |........".#Z#.".|
00004890  9d 20 20 20 94 9a 20 ea  b5 a1 ff ea b5 a0 a0 ea  |.   .. .........|
000048a0  b5 a1 ff ea b5 ea b5 a0  a2 a1 a0 22 0d 23 64 23  |...........".#d#|
000048b0  f1 22 86 9d 20 20 20 94  9a 20 aa a5 a0 af aa af  |."..   .. ......|
000048c0  af a5 aa a5 a0 af a0 af  af a0 a0 aa a5 a0 22 0d  |..............".|
000048d0  23 6e 30 f1 22 91 f3 f3  f3 f3 f3 f3 f3 f3 f3 f3  |#n0."...........|
000048e0  f3 f3 f3 f3 f3 f3 f3 f3  f3 f3 f3 f3 f3 f3 f3 f3  |................|
000048f0  f3 f3 f3 f3 f3 f3 f3 f3  f3 f3 f3 f3 f3 22 3b 0d  |.............";.|
00004900  23 78 2e f1 27 22 20 20  20 20 54 6f 20 72 65 63  |#x..'"    To rec|
00004910  2e 64 61 74 61 20 61 20  54 54 4c 20 35 20 76 6f  |.data a TTL 5 vo|
00004920  6c 74 20 73 69 67 6e 61  6c 20 69 73 22 0d 23 82  |lt signal is".#.|
00004930  2b f1 22 73 75 70 70 6c  69 65 64 20 74 6f 20 62  |+."supplied to b|
00004940  69 74 20 30 20 6f 66 20  74 68 65 20 70 6f 72 74  |it 0 of the port|
00004950  2e 57 68 65 6e 20 61 22  0d 23 8c 2c f1 22 74 6f  |.When a".#.,."to|
00004960  6e 65 20 69 73 20 70 72  65 73 65 6e 74 20 74 68  |ne is present th|
00004970  65 20 62 69 74 20 73 68  6f 75 6c 64 20 63 68 61  |e bit should cha|
00004980  6e 67 65 22 0d 23 96 2e  f1 22 73 74 61 74 65 28  |nge".#..."state(|
00004990  68 69 67 68 20 74 6f 20  6c 6f 77 20 6f 72 20 6c  |high to low or l|
000049a0  6f 77 20 74 6f 20 68 69  67 68 29 2e 20 54 68 69  |ow to high). Thi|
000049b0  73 22 0d 23 a0 2a f1 22  73 69 67 6e 61 6c 20 6d  |s".#.*."signal m|
000049c0  75 73 74 20 62 65 20 69  6e 20 6d 6f 72 73 65 20  |ust be in morse |
000049d0  61 6e 64 20 77 69 6c 6c  20 62 65 22 0d 23 aa 2d  |and will be".#.-|
000049e0  f1 22 64 65 63 6f 64 65  64 20 62 79 20 74 68 65  |."decoded by the|
000049f0  20 63 6f 6d 70 75 74 65  72 2e 20 49 66 20 79 6f  | computer. If yo|
00004a00  75 20 68 61 76 65 20 61  22 0d 23 b4 2d f1 22 74  |u have a".#.-."t|
00004a10  75 62 65 20 6f 72 20 73  69 64 65 77 61 79 73 20  |ube or sideways |
00004a20  72 61 6d 2c 20 20 61 6c  6c 20 6f 66 20 74 68 65  |ram,  all of the|
00004a30  20 72 65 63 2d 22 0d 23  be 2c f1 22 69 76 65 64  | rec-".#.,."ived|
00004a40  20 6d 65 73 73 61 67 65  73 20 77 69 6c 6c 20 62  | messages will b|
00004a50  65 20 73 74 6f 72 65 64  2e 20 59 6f 75 20 63 61  |e stored. You ca|
00004a60  6e 22 0d 23 c8 2a f1 22  74 68 65 6e 20 72 65 63  |n".#.*."then rec|
00004a70  61 6c 6c 20 74 68 65 73  65 20 6d 65 73 73 61 67  |all these messag|
00004a80  65 73 20 61 74 20 77 69  6c 6c 2e 22 0d 23 d2 2d  |es at will.".#.-|
00004a90  f1 22 20 20 20 20 54 68  65 20 63 6f 6d 70 75 74  |."    The comput|
00004aa0  65 72 20 77 69 6c 6c 20  74 61 6b 65 20 61 20 73  |er will take a s|
00004ab0  61 6d 70 6c 65 20 6f 66  22 0d 23 dc 30 f1 22 74  |ample of".#.0."t|
00004ac0  68 65 20 73 69 67 6e 61  6c 20 66 72 6f 6d 20 64  |he signal from d|
00004ad0  65 66 61 6c 75 74 20 62  75 74 20 69 66 20 64 69  |efalut but if di|
00004ae0  66 66 65 72 65 6e 74 22  3b 0d 23 e6 30 f1 22 73  |fferent";.#.0."s|
00004af0  70 65 65 64 73 20 61 72  65 20 75 73 65 64 20 74  |peeds are used t|
00004b00  68 65 6e 20 75 73 65 20  74 68 65 20 73 61 6d 70  |hen use the samp|
00004b10  6c 65 20 66 72 6f 6d 22  3b 0d 23 f0 0c f1 22 6d  |le from";.#..."m|
00004b20  65 6e 75 2e 22 0d 23 fa  2a f1 22 20 20 20 20 54  |enu.".#.*."    T|
00004b30  68 65 20 6f 74 68 65 72  20 62 69 74 73 20 6f 6e  |he other bits on|
00004b40  20 74 68 65 20 70 6f 72  74 20 77 69 6c 6c 22 0d  | the port will".|
00004b50  24 04 2d f1 22 63 68 61  6e 67 65 20 73 74 61 74  |$.-."change stat|
00004b60  65 20 66 72 6f 6d 20 72  65 63 69 65 76 65 20 74  |e from recieve t|
00004b70  6f 20 74 72 61 6e 73 6d  69 74 2c 22 0d 24 0e 2c  |o transmit,".$.,|
00004b80  f1 22 74 68 75 73 20 6d  61 79 20 62 65 20 75 73  |."thus may be us|
00004b90  65 64 20 74 6f 20 73 77  69 74 63 68 20 74 68 65  |ed to switch the|
00004ba0  20 74 72 61 6e 73 2d 22  0d 24 18 21 f1 22 6d 69  | trans-".$.!."mi|
00004bb0  74 74 65 72 2e 83 20 88  20 50 52 45 53 53 20 41  |tter.. . PRESS A|
00004bc0  4e 59 20 4b 45 59 2e 22  3b 0d 24 22 0b 20 49 49  |NY KEY.";.$". II|
00004bd0  3d a5 3a e1 0d 24 2c 0e  dd f2 4d 45 53 53 41 47  |=.:..$,...MESSAG|
00004be0  45 53 0d 24 36 05 db 0d  24 40 2a f1 27 22 96 20  |ES.$6...$@*.'". |
00004bf0  ea f5 e0 ff ea bf af a5  e0 bf ef b0 e0 bf ef b0  |................|
00004c00  e0 bf ef b0 e0 bf ef b0  ea bf af a5 e0 bf ef b0  |................|
00004c10  22 0d 24 4a 29 f1 22 96  20 ea ff fe ff ea b5 a0  |".$J).". .......|
00004c20  a0 ea b5 a2 a1 ea b5 a2  a1 ea b5 ea b5 ea b5 a2  |................|
00004c30  a1 ea b5 a0 a0 ea b5 a2  a1 22 0d 24 54 29 f1 22  |.........".$T)."|
00004c40  96 20 ea b5 b5 ff ea bf  af a0 a0 af ef b0 a0 af  |. ..............|
00004c50  ef b0 ea bf ef b5 ea b5  ef b5 ea bf af a0 a0 af  |................|
00004c60  ef b0 22 0d 24 5e 29 f1  22 96 20 ea b5 a1 ff ea  |..".$^).". .....|
00004c70  b5 a0 a0 e8 b4 ea b5 e8  b4 ea b5 ea b5 ea b5 ea  |................|
00004c80  b5 ea b5 ea b5 a0 a0 e8  b4 ea b5 22 0d 24 68 29  |...........".$h)|
00004c90  f1 22 96 20 aa a5 a0 af  aa af af a5 a0 af af a0  |.". ............|
00004ca0  a0 af af a0 aa a5 aa a5  a0 af af a0 aa af af a5  |................|
00004cb0  a0 af af a0 22 0d 24 72  29 f1 22 20 20 a0 a0 a0  |....".$r)."  ...|
00004cc0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |................|
00004cd0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 22 0d 24  |.............".$|
00004ce0  7c 1c f1 22 20 20 20 20  8d 84 53 48 49 46 54 20  ||.."    ..SHIFT |
00004cf0  54 4f 20 53 43 52 4f 4c  4c 22 0d 24 86 1c f1 22  |TO SCROLL".$..."|
00004d00  20 20 20 20 8d 84 53 48  49 46 54 20 54 4f 20 53  |    ..SHIFT TO S|
00004d10  43 52 4f 4c 4c 22 0d 24  90 20 f1 22 20 20 20 8d  |CROLL".$. ."   .|
00004d20  83 20 20 20 20 41 4e 59  20 4b 45 59 20 54 4f 20  |.    ANY KEY TO |
00004d30  53 54 41 52 54 22 0d 24  9a 20 f1 22 20 20 20 8d  |START".$. ."   .|
00004d40  83 20 20 20 20 41 4e 59  20 4b 45 59 20 54 4f 20  |.    ANY KEY TO |
00004d50  53 54 41 52 54 22 0d 24  a4 23 f1 22 20 20 8d 81  |START".$.#."  ..|
00004d60  20 20 20 20 20 20 20 20  20 45 53 43 41 50 45 20  |         ESCAPE |
00004d70  46 4f 52 20 4d 45 4e 55  22 0d 24 ae 23 f1 22 20  |FOR MENU".$.#." |
00004d80  20 8d 81 20 20 20 20 20  20 20 20 20 45 53 43 41  | ..         ESCA|
00004d90  50 45 20 46 4f 52 20 4d  45 4e 55 22 0d 24 b8 2b  |PE FOR MENU".$.+|
00004da0  f1 22 95 ac ac ac ac ac  ac ac ac ac ac ac ac ac  |."..............|
00004db0  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
00004dc0  ac ac ac ac ac ac 22 0d  24 c2 06 20 f1 0d 24 cc  |......".$.. ..$.|
00004dd0  15 20 49 49 3d a5 3a f2  72 6f 6d 3a 49 49 3d a5  |. II=.:.rom:II=.|
00004de0  3a e1 0d 24 d6 0b dd f2  53 54 41 52 54 0d 24 e0  |:..$....START.$.|
00004df0  05 db 0d 24 ea 23 f1 27  27 27 22 91 9a 20 20 20  |...$.#.'''"..   |
00004e00  ea f5 e0 ff e0 bf ef b0  ea bf ef b0 e0 bf ef b0  |................|
00004e10  ea bf af a5 22 0d 24 f4  20 f1 22 91 9a 20 20 20  |....".$. ."..   |
00004e20  ea ff fe ff ea b5 ea b5  ea b5 ea b5 ea b5 a2 a1  |................|
00004e30  ea b5 a0 a0 22 0d 24 fe  20 f1 22 97 20 20 9a 20  |....".$. .".  . |
00004e40  ea b5 b5 ff ea b5 ea b5  ea bf ff a0 a0 af ef b0  |................|
00004e50  ea bf af a0 22 0d 25 08  20 f1 22 91 9a 20 20 20  |....".%. ."..   |
00004e60  ea b5 a1 ff ea b5 ea b5  ea b5 eb b4 e8 b4 ea b5  |................|
00004e70  ea b5 a0 a0 22 0d 25 12  20 f1 22 91 9a 20 20 20  |....".%. ."..   |
00004e80  aa a5 a0 af a0 af af a0  aa a5 aa a5 a0 af af a0  |................|
00004e90  aa af af a5 22 0d 25 1c  20 f1 22 20 20 20 20 20  |....".%. ."     |
00004ea0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |................|
00004eb0  a0 a0 a0 a0 22 0d 25 26  2a f1 27 22 94 9a ea b5  |....".%&*.'"....|
00004ec0  a0 ff e0 bf ef b0 ea bf  ef b0 ea b5 fa a5 e0 bf  |................|
00004ed0  ef b0 ea b5 ea b5 e0 bf  ef b0 ea bf ef b0 22 0d  |..............".|
00004ee0  25 30 29 f1 22 94 9a ea  b5 b4 ff ea b5 ea b5 ea  |%0)."...........|
00004ef0  b5 ea b5 ea fd b7 a0 ea  b5 a2 a1 ea b5 ea b5 ea  |................|
00004f00  b5 ea b5 ea b5 ea b5 22  0d 25 3a 29 f1 22 94 9a  |.......".%:)."..|
00004f10  ea f5 f5 ff ea b5 ea b5  ea bf ff a0 ea ff b0 a0  |................|
00004f20  a0 af ef b0 ea bf ef b5  ea b5 ea b5 ea bf af a0  |................|
00004f30  22 0d 25 44 29 f1 22 94  9a ea ff eb ff ea b5 ea  |".%D).".........|
00004f40  b5 ea b5 eb b4 ea b7 fd  a0 e8 b4 ea b5 ea b5 ea  |................|
00004f50  b5 ea b5 ea b5 ea b5 a0  a0 22 0d 25 4e 29 f1 22  |.........".%N)."|
00004f60  94 9a aa a5 a0 af a0 af  af a0 aa a5 aa a5 aa a5  |................|
00004f70  aa a5 a0 af af a0 aa a5  aa a5 a0 af af a0 aa a5  |................|
00004f80  a0 a0 22 0d 25 58 29 f1  22 20 20 a0 a0 a0 a0 a0  |..".%X)."  .....|
00004f90  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 a0 a0 a0 a0 a0  |................|
00004fa0  a0 a0 a0 a0 a0 a0 a0 a0  a0 a0 a0 22 0d 25 62 1a  |...........".%b.|
00004fb0  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00004fc0  20 8d 83 42 79 22 0d 25  6c 1a f1 22 20 20 20 20  | ..By".%l.."    |
00004fd0  20 20 20 20 20 20 20 20  20 20 20 8d 83 42 79 22  |           ..By"|
00004fe0  0d 25 76 23 f1 27 22 20  20 20 20 20 8d 85 4a 69  |.%v#.'"     ..Ji|
00004ff0  6d 20 57 61 6c 73 68 20  20 20 20 20 28 31 39 38  |m Walsh     (198|
00005000  35 29 22 0d 25 80 22 f1  22 20 20 20 20 20 8d 85  |5)".%."."     ..|
00005010  4a 69 6d 20 57 61 6c 73  68 20 20 20 20 20 28 31  |Jim Walsh     (1|
00005020  39 38 35 29 22 0d 25 8a  0a 20 f4 20 4a 49 4d 0d  |985)".%.. . JIM.|
00005030  25 94 09 20 49 49 3d a5  0d 25 9e 05 db 0d 25 a8  |%.. II=..%....%.|
00005040  28 f1 22 8d 85 54 48 49  53 20 50 52 4f 47 52 41  |(."..THIS PROGRA|
00005050  4d 20 57 49 4c 4c 20 45  4e 41 42 4c 45 20 59 4f  |M WILL ENABLE YO|
00005060  55 20 54 4f 22 0d 25 b2  28 f1 22 8d 85 54 48 49  |U TO".%.(."..THI|
00005070  53 20 50 52 4f 47 52 41  4d 20 57 49 4c 4c 20 45  |S PROGRAM WILL E|
00005080  4e 41 42 4c 45 20 59 4f  55 20 54 4f 22 0d 25 bc  |NABLE YOU TO".%.|
00005090  2d f1 27 27 22 20 20 8d  83 41 2e 2e 2e 73 65 6e  |-.''"  ..A...sen|
000050a0  64 20 6d 6f 72 73 65 20  76 69 61 20 79 6f 75 72  |d morse via your|
000050b0  20 6b 65 79 62 6f 61 72  64 22 0d 25 c6 2b f1 22  | keyboard".%.+."|
000050c0  20 20 8d 83 41 2e 2e 2e  73 65 6e 64 20 6d 6f 72  |  ..A...send mor|
000050d0  73 65 20 76 69 61 20 79  6f 75 72 20 6b 65 79 62  |se via your keyb|
000050e0  6f 61 72 64 22 0d 25 d0  18 f1 22 20 20 8d 84 20  |oard".%..."  .. |
000050f0  20 83 20 61 6e 64 20 70  6f 72 74 2e 22 0d 25 da  | . and port.".%.|
00005100  18 f1 22 20 20 8d 84 20  20 83 20 61 6e 64 20 70  |.."  ..  . and p|
00005110  6f 72 74 2e 22 0d 25 e4  2e f1 27 22 8d 81 20 20  |ort.".%...'"..  |
00005120  42 2e 2e 2e 72 65 63 65  69 76 65 20 6d 6f 72 73  |B...receive mors|
00005130  65 20 74 68 72 6f 75 67  68 20 74 68 65 20 70 6f  |e through the po|
00005140  72 74 22 0d 25 ee 2d f1  22 8d 81 20 20 42 2e 2e  |rt".%.-."..  B..|
00005150  2e 72 65 63 65 69 76 65  20 6d 6f 72 73 65 20 74  |.receive morse t|
00005160  68 72 6f 75 67 68 20 74  68 65 20 70 6f 72 74 22  |hrough the port"|
00005170  0d 25 f8 25 f1 22 8d 8d  81 20 20 20 20 20 61 6e  |.%.%."...     an|
00005180  64 20 64 65 63 6f 64 65  20 69 74 20 66 6f 72 20  |d decode it for |
00005190  79 6f 75 2e 22 0d 26 02  25 f1 22 8d 8d 81 20 20  |you.".&.%."...  |
000051a0  20 20 20 61 6e 64 20 64  65 63 6f 64 65 20 69 74  |   and decode it|
000051b0  20 66 6f 72 20 79 6f 75  2e 22 0d 26 0c 2a f1 27  | for you.".&.*.'|
000051c0  22 8d 84 20 20 43 2e 2e  2e 68 65 6c 70 20 79 6f  |"..  C...help yo|
000051d0  75 20 74 6f 20 6c 65 61  72 6e 20 6d 6f 72 73 65  |u to learn morse|
000051e0  20 62 79 22 0d 26 16 29  f1 22 8d 84 20 20 43 2e  | by".&.)."..  C.|
000051f0  2e 2e 68 65 6c 70 20 79  6f 75 20 74 6f 20 6c 65  |..help you to le|
00005200  61 72 6e 20 6d 6f 72 73  65 20 62 79 22 0d 26 20  |arn morse by".& |
00005210  29 f1 22 8d 84 20 20 20  20 20 20 73 65 6e 64 69  |)."..      sendi|
00005220  6e 67 20 72 61 6e 64 6f  6d 20 6c 65 74 74 65 72  |ng random letter|
00005230  73 20 61 6e 64 22 0d 26  2a 29 f1 22 8d 84 20 20  |s and".&*)."..  |
00005240  20 20 20 20 73 65 6e 64  69 6e 67 20 72 61 6e 64  |    sending rand|
00005250  6f 6d 20 6c 65 74 74 65  72 73 20 61 6e 64 22 0d  |om letters and".|
00005260  26 34 2b f1 22 8d 84 20  20 20 20 20 20 6e 75 6d  |&4+."..      num|
00005270  62 65 72 73 2e 20 59 6f  75 20 6d 61 79 20 63 68  |bers. You may ch|
00005280  61 6e 67 65 20 74 6f 6e  65 22 0d 26 3e 2b f1 22  |ange tone".&>+."|
00005290  8d 84 20 20 20 20 20 20  6e 75 6d 62 65 72 73 2e  |..      numbers.|
000052a0  20 59 6f 75 20 6d 61 79  20 63 68 61 6e 67 65 20  | You may change |
000052b0  74 6f 6e 65 22 0d 26 48  25 f1 22 8d 84 20 20 20  |tone".&H%."..   |
000052c0  20 20 20 61 6e 64 20 73  70 65 65 64 20 69 66 20  |   and speed if |
000052d0  79 6f 75 20 77 69 73 68  2e 22 0d 26 52 25 f1 22  |you wish.".&R%."|
000052e0  8d 84 20 20 20 20 20 20  61 6e 64 20 73 70 65 65  |..      and spee|
000052f0  64 20 69 66 20 79 6f 75  20 77 69 73 68 2e 22 0d  |d if you wish.".|
00005300  26 5c 09 20 49 49 3d a5  0d 26 66 05 db 0d 26 70  |&\. II=..&f...&p|
00005310  2c f1 22 8d 85 54 48 45  20 50 52 4f 47 52 41 4d  |,."..THE PROGRAM|
00005320  20 57 49 4c 4c 20 57 4f  52 4b 20 4f 4e 20 42 4f  | WILL WORK ON BO|
00005330  54 48 20 53 49 44 45 53  22 0d 26 7a 2c f1 22 8d  |TH SIDES".&z,.".|
00005340  85 54 48 45 20 50 52 4f  47 52 41 4d 20 57 49 4c  |.THE PROGRAM WIL|
00005350  4c 20 57 4f 52 4b 20 4f  4e 20 42 4f 54 48 20 53  |L WORK ON BOTH S|
00005360  49 44 45 53 22 0d 26 84  1c f1 22 8d 85 4f 46 20  |IDES".&..."..OF |
00005370  54 48 45 20 54 55 42 45  20 28 36 35 30 32 29 2e  |THE TUBE (6502).|
00005380  22 0d 26 8e 1c f1 22 8d  85 4f 46 20 54 48 45 20  |".&..."..OF THE |
00005390  54 55 42 45 20 28 36 35  30 32 29 2e 22 0d 26 98  |TUBE (6502).".&.|
000053a0  2e f1 22 8d 82 49 46 20  59 4f 55 20 48 41 56 45  |.."..IF YOU HAVE|
000053b0  20 41 20 54 55 42 45 20  49 4e 43 4f 4d 4d 49 4e  | A TUBE INCOMMIN|
000053c0  47 20 4d 45 53 53 41 47  45 53 22 0d 26 a2 2e f1  |G MESSAGES".&...|
000053d0  22 8d 82 49 46 20 59 4f  55 20 48 41 56 45 20 41  |"..IF YOU HAVE A|
000053e0  20 54 55 42 45 20 49 4e  43 4f 4d 4d 49 4e 47 20  | TUBE INCOMMING |
000053f0  4d 45 53 53 41 47 45 53  22 0d 26 ac 30 f1 22 8d  |MESSAGES".&.0.".|
00005400  82 57 49 4c 4c 20 42 45  20 53 54 4f 52 45 44 20  |.WILL BE STORED |
00005410  49 4e 54 4f 20 54 48 45  20 54 45 52 4d 49 4e 41  |INTO THE TERMINA|
00005420  4c 20 57 48 49 43 48 22  3b 0d 26 b6 30 f1 22 8d  |L WHICH";.&.0.".|
00005430  82 57 49 4c 4c 20 42 45  20 53 54 4f 52 45 44 20  |.WILL BE STORED |
00005440  49 4e 54 4f 20 54 48 45  20 54 45 52 4d 49 4e 41  |INTO THE TERMINA|
00005450  4c 20 57 48 49 43 48 22  3b 0d 26 c0 2c f1 22 8d  |L WHICH";.&.,.".|
00005460  82 57 49 4c 4c 20 47 49  56 45 20 59 4f 55 20 41  |.WILL GIVE YOU A|
00005470  20 56 45 52 59 20 4c 41  52 47 45 20 53 54 4f 52  | VERY LARGE STOR|
00005480  41 47 45 2e 22 0d 26 ca  2c f1 22 8d 82 57 49 4c  |AGE.".&.,."..WIL|
00005490  4c 20 47 49 56 45 20 59  4f 55 20 41 20 56 45 52  |L GIVE YOU A VER|
000054a0  59 20 4c 41 52 47 45 20  53 54 4f 52 41 47 45 2e  |Y LARGE STORAGE.|
000054b0  22 0d 26 d4 2c f1 22 8d  84 49 46 20 59 4f 55 20  |".&.,."..IF YOU |
000054c0  44 4f 4e 27 54 20 48 41  56 45 20 41 20 54 55 42  |DON'T HAVE A TUB|
000054d0  45 20 42 55 54 20 48 41  56 45 20 41 22 0d 26 de  |E BUT HAVE A".&.|
000054e0  2c f1 22 8d 84 49 46 20  59 4f 55 20 44 4f 4e 27  |,."..IF YOU DON'|
000054f0  54 20 48 41 56 45 20 41  20 54 55 42 45 20 42 55  |T HAVE A TUBE BU|
00005500  54 20 48 41 56 45 20 41  22 0d 26 e8 2e f1 22 8d  |T HAVE A".&...".|
00005510  84 53 49 44 45 57 41 59  53 20 52 41 4d 20 45 58  |.SIDEWAYS RAM EX|
00005520  50 41 4e 53 49 4f 4e 20  54 48 45 4e 20 54 48 49  |PANSION THEN THI|
00005530  53 20 57 49 4c 4c 22 0d  26 f2 2e f1 22 8d 84 53  |S WILL".&..."..S|
00005540  49 44 45 57 41 59 53 20  52 41 4d 20 45 58 50 41  |IDEWAYS RAM EXPA|
00005550  4e 53 49 4f 4e 20 54 48  45 4e 20 54 48 49 53 20  |NSION THEN THIS |
00005560  57 49 4c 4c 22 0d 26 fc  2e f1 22 8d 84 42 45 20  |WILL".&..."..BE |
00005570  55 53 45 44 20 41 55 54  4f 4d 41 54 49 43 41 4c  |USED AUTOMATICAL|
00005580  4c 59 2c 41 53 20 41 42  4f 56 45 2e 28 41 54 50  |LY,AS ABOVE.(ATP|
00005590  4c 29 22 0d 27 06 2e f1  22 8d 84 42 45 20 55 53  |L)".'..."..BE US|
000055a0  45 44 20 41 55 54 4f 4d  41 54 49 43 41 4c 4c 59  |ED AUTOMATICALLY|
000055b0  2c 41 53 20 41 42 4f 56  45 2e 28 41 54 50 4c 29  |,AS ABOVE.(ATPL)|
000055c0  22 0d 27 10 2e f1 22 8d  81 54 48 49 53 20 46 45  |".'..."..THIS FE|
000055d0  41 54 55 52 45 20 4f 46  20 53 54 4f 52 49 4e 47  |ATURE OF STORING|
000055e0  20 4d 45 53 53 41 47 45  53 20 57 49 4c 4c 22 0d  | MESSAGES WILL".|
000055f0  27 1a 2e f1 22 8d 81 54  48 49 53 20 46 45 41 54  |'..."..THIS FEAT|
00005600  55 52 45 20 4f 46 20 53  54 4f 52 49 4e 47 20 4d  |URE OF STORING M|
00005610  45 53 53 41 47 45 53 20  57 49 4c 4c 22 0d 27 24  |ESSAGES WILL".'$|
00005620  2d f1 22 8d 81 41 4c 4c  4f 57 20 46 4f 52 20 4c  |-."..ALLOW FOR L|
00005630  4f 54 53 20 4f 46 20 4d  45 53 53 41 47 45 53 20  |OTS OF MESSAGES |
00005640  57 48 49 4c 45 20 59 4f  55 22 0d 27 2e 2d f1 22  |WHILE YOU".'.-."|
00005650  8d 81 41 4c 4c 4f 57 20  46 4f 52 20 4c 4f 54 53  |..ALLOW FOR LOTS|
00005660  20 4f 46 20 4d 45 53 53  41 47 45 53 20 57 48 49  | OF MESSAGES WHI|
00005670  4c 45 20 59 4f 55 22 0d  27 38 11 f1 22 8d 81 41  |LE YOU".'8.."..A|
00005680  52 45 20 4f 55 54 2e 22  0d 27 42 11 f1 22 8d 81  |RE OUT.".'B.."..|
00005690  41 52 45 20 4f 55 54 2e  22 0d 27 4c 09 20 49 49  |ARE OUT.".'L. II|
000056a0  3d a5 0d 27 56 05 db 0d  27 60 30 f1 22 8d 83 49  |=..'V...'`0."..I|
000056b0  46 20 59 4f 55 20 43 41  4e 20 54 59 50 45 20 54  |F YOU CAN TYPE T|
000056c0  48 45 4e 20 4d 4f 52 53  45 20 4d 41 59 20 42 45  |HEN MORSE MAY BE|
000056d0  20 53 45 4e 54 22 3b 0d  27 6a 30 f1 22 8d 83 49  | SENT";.'j0."..I|
000056e0  46 20 59 4f 55 20 43 41  4e 20 54 59 50 45 20 54  |F YOU CAN TYPE T|
000056f0  48 45 4e 20 4d 4f 52 53  45 20 4d 41 59 20 42 45  |HEN MORSE MAY BE|
00005700  20 53 45 4e 54 22 3b 0d  27 74 2e f1 22 8d 83 41  | SENT";.'t.."..A|
00005710  53 20 59 4f 55 20 4b 45  59 2c 20 4f 52 20 59 4f  |S YOU KEY, OR YO|
00005720  55 20 43 41 4e 20 46 4f  52 4d 20 41 20 53 54 52  |U CAN FORM A STR|
00005730  49 4e 47 2e 22 0d 27 7e  2e f1 22 8d 83 41 53 20  |ING.".'~.."..AS |
00005740  59 4f 55 20 4b 45 59 2c  20 4f 52 20 59 4f 55 20  |YOU KEY, OR YOU |
00005750  43 41 4e 20 46 4f 52 4d  20 41 20 53 54 52 49 4e  |CAN FORM A STRIN|
00005760  47 2e 22 0d 27 88 2e f1  22 8d 84 59 4f 55 20 57  |G.".'..."..YOU W|
00005770  49 4c 4c 20 4e 45 45 44  20 41 20 54 54 4c 20 49  |ILL NEED A TTL I|
00005780  4e 54 45 52 46 41 43 45  20 54 4f 20 52 45 43 2e  |NTERFACE TO REC.|
00005790  22 0d 27 92 2e f1 22 8d  84 59 4f 55 20 57 49 4c  |".'..."..YOU WIL|
000057a0  4c 20 4e 45 45 44 20 41  20 54 54 4c 20 49 4e 54  |L NEED A TTL INT|
000057b0  45 52 46 41 43 45 20 54  4f 20 52 45 43 2e 22 0d  |ERFACE TO REC.".|
000057c0  27 9c 22 f1 22 8d 84 4d  45 53 53 41 47 45 53 20  |'."."..MESSAGES |
000057d0  46 52 4f 4d 20 59 4f 55  52 20 52 41 44 49 4f 2e  |FROM YOUR RADIO.|
000057e0  22 0d 27 a6 22 f1 22 8d  84 4d 45 53 53 41 47 45  |".'."."..MESSAGE|
000057f0  53 20 46 52 4f 4d 20 59  4f 55 52 20 52 41 44 49  |S FROM YOUR RADI|
00005800  4f 2e 22 0d 27 b0 2c f1  22 8d 82 54 48 45 20 50  |O.".'.,."..THE P|
00005810  52 4f 47 52 41 4d 20 49  53 20 47 52 45 41 54 20  |ROGRAM IS GREAT |
00005820  49 46 20 59 4f 55 20 57  41 4e 54 20 54 4f 22 0d  |IF YOU WANT TO".|
00005830  27 ba 2c f1 22 8d 82 54  48 45 20 50 52 4f 47 52  |'.,."..THE PROGR|
00005840  41 4d 20 49 53 20 47 52  45 41 54 20 49 46 20 59  |AM IS GREAT IF Y|
00005850  4f 55 20 57 41 4e 54 20  54 4f 22 0d 27 c4 2b f1  |OU WANT TO".'.+.|
00005860  22 8d 82 4c 45 41 52 4e  20 4d 4f 52 53 45 20 41  |"..LEARN MORSE A|
00005870  53 20 49 54 20 57 49 4c  4c 20 53 45 4e 44 20 52  |S IT WILL SEND R|
00005880  41 4e 44 4f 4d 22 0d 27  ce 2b f1 22 8d 82 4c 45  |ANDOM".'.+."..LE|
00005890  41 52 4e 20 4d 4f 52 53  45 20 41 53 20 49 54 20  |ARN MORSE AS IT |
000058a0  57 49 4c 4c 20 53 45 4e  44 20 52 41 4e 44 4f 4d  |WILL SEND RANDOM|
000058b0  22 0d 27 d8 1b f1 22 8d  82 57 4f 52 44 53 20 41  |".'..."..WORDS A|
000058c0  4e 44 20 4e 55 4d 42 45  52 53 2e 22 0d 27 e2 1b  |ND NUMBERS.".'..|
000058d0  f1 22 8d 82 57 4f 52 44  53 20 41 4e 44 20 4e 55  |."..WORDS AND NU|
000058e0  4d 42 45 52 53 2e 22 0d  27 ec 05 f1 0d 27 f6 a6  |MBERS.".'....'..|
000058f0  f1 22 84 4f 55 54 50 55  54 20 49 53 20 4f 4e 20  |.".OUTPUT IS ON |
00005900  42 49 54 20 31 20 4f 46  20 54 48 45 20 50 4f 52  |BIT 1 OF THE POR|
00005910  54 20 41 4e 44 20 22 27  22 84 49 4e 50 55 54 20  |T AND "'".INPUT |
00005920  49 53 20 4f 4e 20 42 49  54 20 30 2e 20 54 48 45  |IS ON BIT 0. THE|
00005930  20 4f 54 48 45 52 20 42  49 54 53 20 57 49 4c 4c  | OTHER BITS WILL|
00005940  22 27 22 84 43 48 41 4e  47 45 20 53 54 41 54 45  |"'".CHANGE STATE|
00005950  20 46 52 4f 4d 20 53 45  4e 44 20 54 4f 20 52 45  | FROM SEND TO RE|
00005960  43 45 49 56 45 20 53 4f  22 27 22 84 54 48 45 59  |CEIVE SO"'".THEY|
00005970  20 4d 41 59 20 42 45 20  55 53 45 44 20 54 4f 20  | MAY BE USED TO |
00005980  44 52 49 56 45 20 52 45  4c 41 59 53 20 45 43 54  |DRIVE RELAYS ECT|
00005990  2e 22 0d 28 00 05 f1 0d  28 0a 3b f1 22 82 54 48  |.".(....(.;.".TH|
000059a0  45 20 53 54 41 54 45 20  4f 46 20 54 48 45 20 50  |E STATE OF THE P|
000059b0  4f 52 54 20 49 53 20 44  49 53 50 4c 41 59 45 44  |ORT IS DISPLAYED|
000059c0  20 49 4e 22 27 22 82 45  41 43 48 20 4d 4f 44 45  | IN"'".EACH MODE|
000059d0  2e 22 0d 28 14 11 20 f1  8a 31 35 29 22 81 4f 2e  |.".(.. ..15)".O.|
000059e0  4b 2e 22 0d 28 19 09 20  49 49 3d a5 0d 28 1e 06  |K.".(.. II=..(..|
000059f0  20 e1 0d ff                                       | ...|
000059f4