џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџline feed command is send  to the printer. To print the two lines
of text, we need a FOR NEXT loop  since  line  132 only prints one line of text.
Therefore, FORT=1 TO LL:GOSUB132:NEXTLL ... prints the  two lines of text. After
which we print another one  and one half empty lines, PRINT#-2,HL$:PRINT#-2,FL$:
Notice that there is  no  semicolon  this  time  therefore,  the printer will be
restored to the full linefeed mode while at the same time printing an empty line
... And ... RETURN to the appropriate place.

        All that is  left  to  discuss  now  are  the  Delete, the Alphabetising
functions and the printing of the file  in  sequential order. We will cover that
next month in the last  article  of  this  series.   Meanwhile,  if you have any
questions or perhaps would like to  know  more  about some part or other of this
program please feel free to call or write  me  at the address below. Also by the
time you read this, I will be ready  for  another BASIC project, if you have one
of those "Gee, I wish I had a  program  that  could  do this" or a "Why does not
someone write a .... for the COCO 3", please feel free to call or write....

                              George  Quellhorst
                              203B Meadows Drive.
                            Painesville,Ohio.44077
                            Phone:  (216) 350-9121
                P.S. Please note that I have a NEW phone number

















Writing a Label Processor                                               Page 49


 it creatџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  and "P"rint options become available.
We will cover the "P"rint option first.

        Printing the label: Refer to the article that went along with the CONFIG
program, to see how the text  is  centered  on the labels. We need the following
two variables in order to be able  to  print a label. CS(1-LL), obtained in line
71, the character style for each label line to be printed. We must also know how
many lines there are in the label.  LL,  which represents the amount of lines in
the label, and was defined in line 44.

        Line 77:  IFP$="P"THEN LL=VAL(LEFT$(D$(1),1))  retrieves the variable LL
from D$(1). When you are printing a label which is displayed in the edit window,
you may print multiple copies of the same label therefore, the GOSUB157 prints a
little message to the screen asking you  how  many labels you want to print. The
statement: LINEINPUT"";M$:M=VAL(M$) places the amount of labels we want to print
in the variable "M".

        Backtrack just a little to line  54,  we skipped over this line earlier,
it also gets the label ready for printing.  However, line 54 does so only with a
newly inputted label that you DO NOT  want  to  save to the disk. It also allows
for multiple copies. The difference  is  that  after  the label(s) is printed in
line 54 the program goes back  to  the  editor  to  allow  you to input the next
label. While in this case (line  77),  the  label printed remains on the screen.
You may "scan" to print the next label or press BREAK to return to the main menu
after the label or labels have been printed.

        GOSUB 177: For an explanation of how  the printer codes are added to the
label line, see the article accompanying  the  CONFIG program. Suffice it to say
that the gosub 191 in this line adds  the  printer code for that line A$(LN) and
the left margin, or the starting printhead position, P(T). After the program has
done a GOSUB 191, we have the following variables in memory:

        DE$,   ( Sets the printer back to the default mode, cancels any
                 previously used Italics, etc.)
        A$(T), ( The printer code for each label line.)
        P(T),  ( The printhead positioning variable.)

        Now the program is ready to print the label. GOSUB121 does the work.
121 POKESP,0:ON LL GOSUB 123,125,127,129,131:POKEFP,0:RETURN

        LL of course contains the amount of  text lines in the label. A standard
label has five printable lines and a  "HALF"  line in between each label. Giving
us SIX lines per label of which five  can  be used for printing. You will notice
that the program goes to a different  "print line" depending on the variable LL,
for a one line label the program goes  to  line  123, for a two line to line 125
etc. Etc.

        On a one line label we would want  to  print the text line in the center
of our label, as opposed to the top or bottom of the label. Therefore, line 123,
prints three empty lines,  PRINT#-2:PRINT#-2:PRINT#-2:T=1:GOSUB132  ... 132 does
the actual printing..................



Writing a Label Processor                                               Page 48





        132  PRINT#-2,DE$;  ...  resets  the  printer  ...  A$(T);  ... adds the
character style for the line  to be printed ... CHR$(27);CHR$(0);CHR$(P(T)); ...
sets the printhead position ... L$(T): ...  the  line of text .... RETURN ... to
line 123, do two more PRINT#-2, two empty  lines, and RETURN to line 77 or 54 to
RETURN to the label displayed on the screen or to input the next label depending
on where you where when you pressed "P".

        The program is set up so that the  first  line printed on a new label is
actually the empty space in between two  labels.  Therefore on a one line label,
after three PRINT#-2's, the next line  printed  is  the one in the CENTER of the
label. Now lets see how labels of other line lengths are printed.

        Two line label: Line 125, you  cannot  center  two  lines on a five line
label, you either have one empty line  on  top,  two lines of text and two empty
lines on the bottom or vice versa.  Therefore  we want to have 1 1/2 empty lines
on top, two lines of text and  again  1 1/2  empty lines on the bottom. Line 125
therefore, prints two empty lines, (Remember the printhead is sitting in between
two labels), and  a  "Half  empty"  line,  2 1/2 lines total. PRINT#-2:PRINT#-2:
PRINT#-2,HL$. ... In order to take the printer out of the "HALF LINE" feed mode,
we must send a "FULL LINE" feed code to  the printer before we can print the two
lines of text. PRINT#-2,FL$;:  The  semicolon  prevents the paper from advancing
after the full through to line
69,  the NEXT RN, GET's record number  two  from  the disk and compares it again
with NA$ until a match or  the End Of File (EOF) has been reached. The statement
I=LOF(1) after the NEXT RN,  prevents  us  from  getting  an  IE error when this
happens and the last record in the file is printed to the screen.

                              ( SEE NOTE BELOW )


Writing a Label Processor                                               Page 46





        Notice the "<=" this means SMALLER THAN  OR EQUAL TO. If the two strings
are equal, it means we have  found  the  record we were looking for. If however,
the record retrieved from the disk  is  greater  then the letters we entered for
the search, it means that the record was  not found. You may have typed in a "D"
for example, while there are no "D's" in  your  file. in this case the "<" stops
the process, I=RN and the next record is printed to the screen.

        What this means is that if you entered  a  "K" and there are no "K's" in
the file, the first record starting with  the  letter "L" will be printed to the
screen. If there are no "L's" either than the "M" and so on.

                                   N O T E:

        The Color Computer checks the "value" of a string according to the ASCII
code of its characters, one letter  at  a  time. In the next two strings, "AQUA"
and "BABY", the computer checks the first  letter first, it compares the "A" and
the "B" if one is greater then the other it stops right there. However given the
following two strings "AQUARIUS" and AQUATIC",  were  the first two letters have
the same value, it continues on  and  compares  the  next two letters the "Q's".
Since they are also equal, it  goes  to  the  third  letter and so on, until the
computer finds two that are not of equal  value.  In this case it will stop when
it reaches the fifth letter  the  "R"  in  "AQUARIUS"  and the "T" in "AQUATIC".
Because the "R" has a smaller value  (ASCII 82) then the "T" (ASCII 84) it stops
right there since it  now  "KNOWS"  that  AQUARIUS  is smaller then AQUATIC even
though the "TOTAL" value of ALL  the  ASCII  codes in the strings would assign a
greater value to the string AQUARIUS simply because it has more letters. We will
refer back to this when we  alphabetize  the  file since the COCO uses this very
same method to alphabetize a file.

        Line 71, is very similar to line 45, discussed earlier, except this time
we take the label as it was saved to  the disk and get it ready to be printed on
the screen and the printer.  The  variable  CS(T)  the second character when the
label is "GET" from the  disk  is  the  Character  Style for each separate label
line.

        Line 72 checks to see if the  label  on  the screen is the last label in
the file, IF I=LOF(1), if it is we  print  a message to the screen informing you
that the last label in the file is printed on the screen.

        Line 73, is the INKEY statement for  the routine that will let us "scan"
thru the file, forward and backward,  using  the  right  and left arrow keys. As
long as a label is printed on the  screen  in this part of the program, you will
be able to enter the edit mode  and  edit  the label or enter the print mode and
print the label. The right and  left  arrow  keys  have a "wrap around" feature,
line 74, will route the program to line 80  if  the left arrow is pressed and to
line 81 if the right arrow  is pressed. Line 80, IFI <1 THEN I=LOF(1) ELSEI=I-1,
we are pressing the left arrow, there is no record number zero, therefore if the
first label is displayed  on  the  screen,  instead  of subtracting one from the
record number, I=I-1, and GET'ing it  from  the  disk, we set I to equal LOF(1),
the result is that the LAST  record  is  taken from the disk and displayed. Line
81, does just the opposite, IF I=LOF(1), the  last record is on the screen, THEN
I=1, we get the first record in the file, otherwise I=I+1, gets the next record.
Both lines will return the program  to  line  70, which will GET the next record
from the disk.






Writing a Label Processor                                               Page 47





        Just found another  BOO BOO,  line  79  the  INKEY  statement, serves no
purpose here and is NOT NEEDED,  it  must  have  been  left over from when I was
programming this puppy. Just delete it or  pretend  it is not there. It will not
hurt to leave it in since the program never gets around to going to that line.

        Once a record has been printed  to  the screen, regardless of the method
used to retrieve that record, the  "E"dite.

       Scan thru the file and print: Line  number 64 is the INKEY statement that
allows you to input the record  number you want to retrieve.  IFRN=0 THEN LOCATE
65,13:PRINT"    ":GOTO64. If RN=0 it  means  that  you either pressed ENTER only
without entering a number, or entered  a  LETTER  instead  of a number, in which
case the program erases  the  character  you  just  entered,  and returns to the
beginning of the line.

       In line 65 we check to see if  the  number entered is a valid number. You
cannot GET record number 34 for  example,  if  there  are only 12 records in the
file, you would receive  an  IE ERROR, Input past End of file.  Therefore, I=RN,
were RN is the value you entered  in  line  63  as the record number you wish to
retrieve. IF I > LOF(1);...  Once a file has  been opened in the proper way, the
computer "knows" at all times how many records there are in the file.



Writing a Label Processor                                               Page 45





        The command for asking  the  computer  how  many  records there are in a
given file is LOF, Length Of File, followed  by  the file number in parenthesis.
(You can open more than one file  at  a  time). Thus in our case LOF(1) contains
the amount of records  or  labels  in  the  file.  To  prevent getting the error
message, which would close the files,  we state: IFI>LOF(1) THEN .. we print the
error message to the screen, together  with LOF(1), thereby letting you know how
many records there are in your  file.  If  the  number entered was too great, we
return to the beginning of line 64, otherwise we GOTO70.

        Retrieving a label by last name, gets a little more complicated. Suppose
you input the letter "C" and there are  no  labels in the file starting with the
letter "C" ? The program would  "look"  thru  the entire file, without finding a
"C" and promptly give you an IE ERROR.  Here's  how it is done. Our disk file is
FIELDed as a single record which is 252 characters long.  In order to search for
a last name, we must first  re-FIELD  the  file,  (See  pages  34 and 35 of this
article) into 6 FIELD's of equal Length, our six label lines. In line 70 we do a
GOSUB56 which re-FIELD"s the record into D$(1-6). Now D$(1) is the first line of
our label.

        I have written the program so that you may input the "SMALLEST AMOUNT OF
SIGNIFICANT CHARACTERS". Which means that if  you  have the following four names
in your file, BAKER, BAKKER, BIKKER  and  BLICKER, entering the letter "B" would
retrieve BAKER from the disk. You  must think in alphabetical order here. Typing
in "BA" would also give you "BAKER."  While  typing in "BAK" would GET "BAKKER",
"BI" gets "BIKKER", and typing in "BL"  would  print the "BLICKER" record to the
screen. Typing in a single letter  always retrieves the first record that starts
with that letter from the disk.

                               (SEE NOTE BELOW).

        Line 67 is the INKEY line for  the  name retrieval method. Notice on the
end of the line, where it states: LE=LEN(NA$). NA$ is the string you typed in at
the prompt. The variable LE is therefore  equal  to the amount of characters you
typed in. Had you entered BAK for BAKKER, for example, LE would equal three.
        Line 68 gets the record  from  the  file.  It  is worth noting here that
although we divided the record  into  6  equal  FIELD's, the command GET#1,I for
example, still GET's the entire record from the disk. But now it is retrieved in
six equal parts. RN is the variable for  Record Number, in order to search for a
name, even in a direct  access  file,  we  must  do a sequential search thru the
file. Therefore, we  GET #1,1.  FOR RN=1  TO  LOF(1):GET#1,RN.  Now that we have
record number 1 in memory, we  must  check  and  see  if it is the record we are
looking for. Remember our label line as retrieved from the disk, looks like this
...... 13ABLESON^HAROLD<--------- ] ..... The 1 and  the 3 must be removed so to
speak, before we are able to check  if  we  have  the correct record. We want to
check the record retrieved against NA$, the characters we typed in earlier.

        Lets type in "BAL",  IFNA$<=MID$(D$,3,LE) THEN I=RN. We start the search
at the third letter in  D$(1)  and,  by  using  LE  as  the Length of the search
string, we are in  this  case,  comparing  the  first  three characters of D$(1)
against NA$, the three letters we  typed  in  as our search string. in the above
record MID$(D$,3,LE) is equal to  "ABL"  since  we typed in three characters and
LE=3. Since "BAL" is GREATER then "ABL"..  The program will fall (JЋ1):SV(J)ГSV(JЋ1):SN(J)ГSN(JЋ1):‹:LГLЌ1:IГIЌ1&J8IГIЋ1:…IДГL Ї1040 :„210&PBŠ&wL‡@484,"PRESS [ENTER] TO CONTINUE";&ŒV…џ’ДВџ‹(13)Ї1110&’`&Зjž:‡"   CASSETTE OR DISK ? (C/D)"&жtK$Гџ’:…K$Г"C"ЇDNГЌ1:Ѕ1170&ш~…K$ДВ"D"Ї1140&ёˆDNГ1' ’‡" READY ";:…DNГЌ1Ї‡"CASSETTE"; :„‡"DISK";'8œ‡" - PRESS [ENTER]"'CІІ1110'IА'`КK$Гџ’:…K$Г"Y"Ї1230'rФ…K$ДВ"N"Ї1210'xЮ'ˆиШ0:Р1:Ѕ130'ŽŠ&Зjž:‡"   CASSETTE OR DISK ? (C/D)"&жtK$Гџ’:…K$Г"C"ЇDNГЌ1:Ѕ1170&ш~…K$ДВ"D"Ї1140&ёˆDNГ1' ’‡" READY џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ


                                  CHAPTER IX
                                  **********


        Before we start, I have a few things that should be mentioned first. Two
little bugs sneaked their way into  the  program. You should either correct them
or load in the next version of the program that will be published in CFDM.

        Bug number 1. In line 77  the  very  last  statement in the line is ....
GOTO70. This should be changed to ..... GOTO73, which is the INKEY statement.

        Bug number 2. In line 54,  where it states: FORLN=1TOM and "NOW PRINTING
LABEL NUMBER";LN:GOSUB121:NEXTLN. The "LN's"  should  be  changed to "B". DO NOT
CHANGE ANY OF THE OTHER "LN's" IN THE LINE JUST THE ONES MENTIONED ABOVE.

                           THE NEW LINE SHOULD READ:

54 FORLN=1TOLL:L$(LN)=R$(LN):GOSUB178:GOSUB191:NEXTLN:FORB=1TOM:LOCATE42,22:ATTR
3,0:PRINT"NOW PRINTING LABEL NUMBER";B:GOSUB121:NEXTB:ATTR0,0:GOSUB153:A=1:GOSUB
80:GOSUB181:GOSUB144:ATTR3,0:GOSUB141:ATTR2,0:LN=1:GOSUB142:GOTO27

        The variable "LN" was used for two different purposes here, it created a
BS ERROR in a other part of the program.

                               PRINTING A LABEL:

        Most of the GOSUB's in this program contain messages that are printed to
the screen to let you know what to do  next.  From here on, if a GOSUB is just a
screen print GOSUB or a sound, I will  not mention it anymore, you can look them
up if you wish to see what it is they do.

        Before we can print a label or a return address we must have the address
to be printed in the memory  of  the  computer. This program has several ways of
doing so. You may "scan" thru the  file  one  label  at a time either forward or
backward, you may request a specific label  number  to be printed to the screen,
or you may request a specific name  to  be  printed to the screen. In the afore-
mentioned three methods, you can print multiple copies of the same label.

        You may also request to have the  entire  file or part of it printed. In
this case however, each label can only be printed once, either with or without a
return address. Lines 64 - 81  allow  us  to  retrieve  a label by last name, by
record number, or scan thru the file.  The labels will be printed to the screen,
and printer at the same tim<<DH(( RHDNHD<DDD<0 D<0 D:0D6080:2:2@2D2"
D2"
J2"
 F>2 B>2 J@: J@:JJ>J@:2J@:2 JB80 D:.D:.D:.@D:.D6.@6.N6.D6. D D6. @6*@6*@6*@@6*@2*<2*J2*@2* @ @6* <.&<.&<.&@<.& <.& 8.& F2 B2 @0 @0@0@0((@@@80$@0$@$@0$@,$@*$($8$::@H NH:JD@:::,(::,(::,( <2,>>DJ RJ>NJ>D>DD:2"
D82$D62& :&<<DH(( RHDNHD<D D D<0 D:0D6080:2:2@2D2"
D2"
J2"
 F> B> J@: J@:J@:J@: J@:џN„:::,(::,(::,( <2,>>DJ RJ>NJ>џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ&':ƒ ******************************&M
:ƒ *           NIBLOADER        *&s:ƒ *              BY            *&™:ƒ *          RICK COOPER       *&П(:ƒ *           (C) 1990         *&х2:ƒ *                            *'<:ƒ *        DISTRIBUTED BY      *'1F:ƒ * RICK'S COMPUTER ENTERPRISE *'WP:ƒ *         P.O. BOX 276       *'}Z:ƒ *      LIBERTY, KY. 42539    *'Ђd:ƒ******************************'ЉnР8'Бxт32'И‚ž0'ШŒгM"NIBLOADR'ћ–… џ†(&HCFC3)ДВ&H8D Ї ’ &HE76,&HCE:’ &HE77,&HE7( F1$Г"HRIDDLE3"(ЊL2Г&HE92(1Д€ XГ0 Ѕ џ‡(F1$)Ќ1(LО’ L2,џŠ(џ(F1$,XЋ1,1))(XШL2ГL2Ћ1(`в‹ X(gмž0(ц‡ @35,"COCO FRIENDS DISK MAGAZINE";(І№‡ @107,"PRESENTS";(бњ‡ @168,џ‹(255);" HRIDDLE #3 ";џ‹(255);(ћ
‡ @258,"THE PICTURE CONTAINS CLUES.";)
‡ @293,"WHAT IS THE MESSAGE?";)0
’ &HE6E4,&HE6)<
"Ђ &HF00)C
,ф2)J
6Р4)\
@… џ’Г"" Ї 320)e
Jї:ž0)x
TF1$Г"HRIDDLE ")˜
^‡ @139,џ‹(255);F1$;џ‹(255);)Љ
h‡ @207,"BY";)Х
r‡ @264,"  JIM BENNETT";)Ы
|Š5);(ћ
‡ @258,"THE PICTURE CONTAINS CLUES.";)
џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ
O&ˆ
:ƒLOADER FOR SONG 'JERSEY BOUNCE' BY TINY BRADSHAW, TRANSCRIBED USING MUSIC3+ PROGRAM BY GEORGE QUELLHORST IN RAINBOW 4/91 PAGE 10&юž:‡@105,"JERSEY BOUNCE";:‡@175,"BY";:‡@233,"TINY BRADSHAW";:‡@354,"TRANSCRIBED BY: HERB SCHULER";'гM"JERSEY/BIN":’&HFF40,0'#(’65497,0:Ђ:’65496,0'N2ž:‡@228,"ONE FOR THE OLD HOME STATE!";3+ PROGRAM BY GEORGE QUELLHORST IN RAINBOW 4/91 PAGE 10&юž:‡@105,"JERSEY BOUNCE";:‡@175,"BY";:‡@233,"TINY BRADSHAW";:‡@354,"TRANSCRIBED BY: HERB SCHULER";'гM"JERSEY/BIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЌM "#%&')*,-./012344566677777766655443322100//.--,,,++****)))))))))))******************))))(((''&&%%$$$##""!!!            !!!!!!!!!!!!     




						




7
J
^
r
ˆ
 
Й
г
ю+Lo”Лф?qЅмV˜н(vЩ!тJЙ/Ќ	0	Л
P
э“Cў
Ф•s_X`w к&‡ќˆ+ч О"А$Р&я)@+Д.M1ˆ†L‹†?Зџ#P0ўjŸУŸЦŸЩŸЬ0€ŸР9žРІ€—Т91џPІ€юІпЯІ€юІпбІ€юІпгІ€юІпеŸР9ŽТІŸLУЋŸLЦЉŸLЩЉŸLЬЗџ мФгЯнФмЧгбнЧмЪггнЪмЭгенЭ1Ђ&
Т' ЧІ€    С9џu‘&O‹9ŽЋ №,@(XR,XR@,@(@,,@(XR,XR@,@(XR,TNRJ"NH$JD( F>*F>2@<0@<0@<0 @<0 @<0
8::@H NH:JD@:::,(::,(::,( <>>DJ RJ>NJ>D>DD:2"
D82$D62& :&<<DH(( RHDNHD<D D D<0 D:0D6080::@HN2& N2& J2& D2& D2& >2& <2,<2,D2,J2,RH< RH<RH<8(::@H NH:JD@:::,(::,(::,( <,(>>DJ RJ>NJ>D>DD:2D"
D82D$D62& :&<<DH(( RHDNHD<DDD<0 D<0 D:0D6080:2:2@2D2"
D2"
J2"
 F>2 B>2 J@: J@:JJ>J@:2J@:2 JB80 D:.D:.D:.@D:.D6.@6.N6.D6. D D6. @6*@6*@6*@@6*@2*<2*J2*@2* @ @6* <.&<.&<.&@<.& <.& 8.& F2 B2 @0 @0@0@0((@@@80$@0$@$@0$@,$@*$($8$::@H NH:JD@:::,(::,(::,( <2,>>DJ RJ>NJ>D>DD:2"
D82$D62& :&<<DH(( RHDNHD<D D D<0 D:0D6080:2:2@2D2"
D2"
J2"
 F> B> J@: J@:F> @< @<8::@H NH:JD@:::,(::,(::,( <>>DJ RJ>NJ>D>DD:2"
D82$D62& :&<<DH(( RHDNHD<D D D<0 D:0D6080::@HN2& N2& J2& D2& D2& >2& <2,<2,D2,J2,RH< RH<RH<8(::@H NH:JD@:::,(::,(::,( <,(>>DJ RJ>NJ>D>DD:2D"
D82D$D62& :&џL2‚-WRITTEN 01/10/93 BY BILL  ROSENFELD AND OFFERED AS        SHAREWARE.S3:ƒь<:ƒ FOR FREE COMPLETE INSTRUCT-IONS, SEND REQUEST WITH RETURN  ADDRESSED,STAMPED ENVELOPE TO   BILL ROSENFELD 103 BARBERRY LN.,ROSLYN HTS., NY 11577.ѓE:ƒOF:ƒ UPON FINDING THIS PROGRAM  USEFUL, YOUR DONATION WILL BE   APPRECIATED.(SUGGEST $10)VK:ƒгn‚-IT RECORDS TOTAL OF DIV-IDENDS OF AN INDIVIDUAL STOCK ORMUTUAL FUND. IT CAN PRINT TO    SCREEN OR CAN PRINT HARD-COPY.кo:ƒ‘r:ƒ -IN SELECTING THE OPTIONS ON THE MENU AND YOUR TYPING IN  DATA TO THE PROMPTS OF MENU "3","4" AND "5", YOU MIGHT BE ABLE  TO EXECUTE THIS PROGRAM WITHOUT FURTHER INSTRUCTIONS.ku‚ - ONE HINT - TO SAVE    THE INPUT DATA YOU SUPPLIED IN  RESPONSE TO MENU "3"&"4", PRESS MENU"2".THEN,WHEN YOU AGAIN RUN THIS PROGRAM AND WHEN YOU PRESS MENU "1", ALL SAVED DATA WILL REAPPEAR  WHEN YOU PRESS "5".rv:ƒ'w‚- MENU "5" WILL NOT DIS- PLAY UNLESS INPUT DATA HAD AL-  READY BEEN SAVED OR JUST ENTEREDIN "3" & "4". LIKEWISE, MENU"1" WILL NOT LOAD UNLESS DATA HAD   PREVIOUSLY BEEN SAVED.3xЅ 1240O‚…џ“В10000Ї•5000 :„•2000ƒŒž:R$Г"$#######.##":N$Г" $#####.##":X$Г" ##.###"ž–…џ“В10000ЇMГ600:„MГ200Н Œ SN$(M),PP(M),SV(M),SN(M)јЊž:‡Є1)"REINVESTED DIVIDEND COMPUTATION":‡Є1)џЁ(31,"-")ўД‡ZО‡ " -THIS PROGRAM COMPUTES TOTAL OF ALL REINVESTED (NON-TAX EXEMPT) DECLARED DIVIDENDS.`У‡Х‡ "        I M P O R T A N T  ": ‡"HIT <BREAK>- AND LIST  LINES 50-70 & 110-114 & 117-119.                                            TELLS HOW TO PROCEED         ШІ1100вž5м‡Є14)"MENU":‡Є14)"----"\ц‡:‡"  1. LOAD DATA FROM TAPE/DISK"№‡"  2. SAVE DATA TO TAPE/DISK"Ÿњ‡"  3. ENTER DIVIDEND DATA"С
‡"  4. ENTER VAL.ON DIV.DATE"х
‡"  5. DISPLAY TOTAL DIVIDENDS"
‡"  6. PRINT TOTAL DIVIDENDS"(
"‡"  7. DELETE DIVIDEND DATA"@
,‡"  8. END PROGRAM"`
6‡:‡Є7)"YOUR CHOICE ? (1-8)"u
@K$Гџ’:…K$Г""Ї320’
JKГџ‰(K$):…KД1 Б KВ8 Ї320П
Tˆ K Ѕ 350,400,440,540,580,760,1020,1090Ъ
^І1130ц
h™"I",#DN,"ANNYIELD":IГ1ј
r… џŒ(DN) Ї390&
|‰#DN,SN$(I),PP(I),SV(I),SN(I):IГIЋ1:Ѕ3706
†LГIЌ1:Ѕ210A
І1130І
š™"O",#DN,"ANNYIELD":€IГ1Ѕ L:…DNГЌ1Ї‡#DN,SN$(I),PP(I),SV(I),SN(I) :„й#DN,SN$(I),PP(I),SV(I),SN(I)Б
Є‹:š#DNЛ
ЎЅ210Ч
ИLГLЋ1:žт
Т‰"DATE OF DIV.";SN$(L)ќ
Ь‰"ADDED SHARES";SN(L)$
ж‡:‡"  IS THE INPUT CORRECT ? (Y/N)"/
рІ1210C
ъ…K$Г"N"Їž:Ѕ450c
є‡Є5)"ANOTHER STOCK ? (Y/N)"n
ўІ1210~…K$Г"Y"Ї440ˆЅ210Ÿ…LГ0Ї320:„€IГ1ЅL:žИ&‡"DIV.DATE: ";SN$(I)а0‡:‰"SH.VALUE";SV(I)м:‹:Ѕ210єD…LГ0Ї320:„TGГ0:TLГ0
N€IГ1ЅL:žX‡"DIV.DATE: ";SN$(I)6b‡"NO. OF SHARES:";SN(I)Wl‡"PER SH.VAL. :";:‡ЭR$;SV(I)‚vDVГSV(I)­SN(I):‡"DIV.VALUE :";:‡ЭR$;DVЎ€TDГDVЌPC:‡"TOT.DIV.PD.     :";:‡Э N$;TDЬŠ…TDД0ЇTLГTLЋTD :„TPГTPЋTDз”І1100№ž‹:ž:‡Є12)"SUMMARY":‡Ј‡"TOTAL DIVIDENDS     :";:‡Э N$;TP9В‡"TYPE IN CURRENT DATE:":‰ B$`М‡"DIV.REC.IN PREV.TAX YRS.: ": ‰ C{Н‡"MARKET VALUE  :":‰ EЇЦ‡:‡"DAYS IN LAST DIVIDEND PERIOD :":‰ Yла‡:‡"TOTAL PURCHASE PRICE OF INVESTMENTS : ":‰ D "к‡:‡"INCOME YIELD FOR DIVIDEND PERIOD:  ";:‡ЭX$;TPЎD­365ЎY­100;:‡"% yл‡:‡"ADJUSTED YIELD TO REFLECT PRICE CHANGES:  ";:‡Э X$;(TPЌ(DЌE))ЎD­365ЎY­100;:‡"% „фІ1100 ŽюЅ210 Рј…LГ0Ї320:„ž:‡" READY PRINTER - PRESS [ENTER]" еІ1110:TLГ0:TPГ0!‡#Ќ2,Є20);џ‹(15);"TAXABLE REINVESTED DIVIDENDS COMPUTATIONS";џ‹(14)!&‡#Ќ2![ ‡#Ќ2,Є20);"VANGUARD GNMA MUTUAL PORTFOLIO NO.36"!Œ*‡#Ќ2:‡#Ќ2,"TOTAL INVESTMENTS : ";:‡#Ќ2,ЭN$;D!т4‡#Ќ2:‡#Ќ2,"DIV.DATE               ADD.SHARES  SH.VALUE                 DIV.VALUE "4>‡#Ќ2, "**********            ***********  *******                 *********  "=H‡#Ќ2"HR€IГ1ЅL"_\‡#Ќ2,џŽ(SN$(I),8);"‡f‡#Ќ2,Є24);:‡#Ќ2,Э"#####.###";SN(I);"Џp‡#Ќ2,Є31);:‡#Ќ2,Э"$$####.##";SV(I);"бzPCГSN(I)­PP(I):DVГSN(I)­SV(I)"ї„‡#Ќ2,Є58);:‡#Ќ2,Э"$$#####.##";DV;##ŽTDГDVЌPC:‡#Ќ2,Є69);:‡#Ќ2,Э "#####.###";#A˜…TDД0ЇTLГTLЋTD :„TPГTPЋTD#GЂ‹#tЌ‡#Ќ2:‡#Ќ2,"TOTAL DIVID.  :";:‡#Ќ2,ЭN$;TP#ЌЖ‡#Ќ2:‡#Ќ2,"DIV. REC'D.PREV.TAX YRS.  :";:‡#Ќ2,ЭN$;C#ЕР‡#Ќ2#цЪ‡#Ќ2,Є15);џ‹(15);"CURRENT DATE - ",B$;џ‹(14)$%д‡#Ќ2,Є7);"TAXABLE CURRENT YEAR DIV.     :";:‡#Ќ2,Э N$;TPЌC$\о‡#Ќ2,Є15);"TOTAL INVESTMENTS     :";:‡#Ќ2,   ЭN$;D$“п‡#Ќ2,Є15);"MARKET VALUE          :";:‡#Ќ2,   ЭN$;E$јш‡#Ќ2:‡#Ќ2,Є15);"INCOME YIELD IF MARKET VALUE EQUALS COST:";:‡#Ќ2,   ЭX$;TPЎD­365ЎY­100;:‡#Ќ2,"%"%
щ‡#Ќ2%jъ‡#Ќ2,Є15);"ACTUAL YIELD IF MARKET VALUE <+> OR <-> COST:";:‡ #Ќ2,ЭX$;(TPЌ(DЌE))ЎD­365ЎY­100;:‡#Ќ2,"%%tђЅ210%ќ…LГ0Ї320%‰IГ1%ž%Ј‡"DIV.DATE: ";SN$(I)%з$‡:‡Є9)"DELETE ? (Y/N)":І1210:…K$Г"N"Ї1080&..€JГI Ѕ LЌ1:SN$(J)ГSN$(JЋ1):PP(J)ГPPMany a fair EDIFICE besides."8O2† "Latin AEDIS (temple) and FACERE (to make)."8Ÿ<† "(A) good example.","(B) far-fetched notion.","(C) fake.","(D) building."8ЦF:ƒ REM               WORD NUMBER 88уP† INURE v," in-yew'r ",A9:Z† "To accustom; as, such as may INURE and harden our bodies by martial exercises."9ad† "Anglo-Norman EN EURE (in use)."9Њn† "(A) to accustom.","(B) imprison.","(C) overflow.","(D) separate."9бx:ƒ REM               WORD NUMBER 99і‚† TRANSGRESS v," trans-gress ",C:@Œ† "To infringe, violate; as, to TRANSGRESS / The strict forbiddance.":r–† "Latin TRANS (across) and GRADI (to step).":И † "(A) to remove.","(B) discover.","(C) infringe.","(D) deliver.":рЊ:ƒ REM               WORD NUMBER 10:§Д† ZENITH n," zen-ith ",A;qО† "Highest point; point of heavens immediately above observers; as, Dropt from the ZENITH like a falling star.";’Ш† "Arabic SAMT (path, way).";рв† "(A) highest point.","(B) exaggeration.","(C) piquancy.","(D) routine."<м:ƒ REM               WORD NUMBER 11<,ц† OBDURATE adj," ob-dew-r't ",A<t№† "Stubborn, hardened against persuasion; as, with OBDURATE pride."<Їњ† "Latin OB (towards) and DURARE (to harden)."<є† "(A) stubborn.","(B) hard of hearing.","(C) overweight.","(D) greedy."=:ƒ REM               WORD NUMBER 12=A† PONDEROUS adj," pon-der-us ",B=“"† "Heavy; as, his PONDEROUS shield .../ Hung on his shoulders like the moon."=З,† "Latin PONDEROSUS (weighty)."=ћ6† "(A) contemplative.","(B) heavy.","(C) deep.","(D) mournful.">#@:ƒ REM               WORD NUMBER 13>@J† GROVEL v," grov-'l ",B>СT† "To lie or move with the body prostrate; figuratively, to humble oneself; as,    Upon the belly GROVELLING thou shalt go.">э^† "Old Norse A GRUFU (face downwards)."?4h† "(A) to dig.","(B) lie prostrate.","(C) escape.","(D) complain."?\r:ƒ REM               WORD NUMBER 14?}|† PROFANE adj," pro-fayn ",D?ↆ "Irreverent, blasphemous; as, Arm his PROFANE tongue with contemptuous words."@† "Latin PRO (in front of) and FANUM (temple)."@Xš† "(A) misleading.","(B) lateral.","(C) recklessly lavish.","(D) irreverent."@€Є:ƒ REM               WORD NUMBER 15@ Ў† RETINUE n," ret-in-ew ",BAИ† "Group of attendants; as, What followers, what RETINUE canst thou gain ... Longerthan thou canst feed them ...?"A:Т† "French RETENUE (retained)."A™Ь† "(A) superabundance.","(B) group of attendants.","(C) item of clothing.","(D) regiment."AСж:ƒ REM               WORD NUMBER 16Aфр† TEDIOUS adj," tee-dee-us ",CBPъ† "Tiresome, long and wearying; as, TEDIUOS waste of time to sit and hear / So manyhollow compliments."Byє† "Latin TAEDERE (to be wearisome)."BШў† "(A) unstable.","(B) ferocious.","(C) tiresome.","(D) incomprehensible."B№:ƒ REM               WORD NUMBER 17C
† ALLAY v," al-ay ",BCl† "To diminish (particularly fears), alleviate; as, to ALLAY the perturbations of  the mind."C–&† "Old Englisg ALECGAN (to lay out)."Cс0† "(A) to distract.","(B) diminish.","(C) put fear into.","(D) imply."D	::ƒ REM               WORD NUMBER 18D+D† FACTIUOS adj," fak-shus ",CDŸN† "Divided, or given to dividing, into groups with differing self interests; as, a FACTOUS and defeated party."DУX† "Latin FACTIOSUS (partisan)."Eb† "(A) irritable.","(B) based on history.","(C) divided into groups.","(D) faulty."ECl:ƒ REM               WORD NUMBER 19Eev† DERISION n," der-izh-un ",DEБ€† "Ridicule, mockery; as, the reproach and DERISION he met with daily."EвŠ† "Latin RIDERE (to laugh)."F”† "(A) origin.","(B) madness.","(C) neglect.","(D) ridicule."F<ž:ƒ REM               WORD NUMBER 20FYЈ† PUNY adj," pew-nee ",DFЁВ† "Undersize; of inferior strength; as, weak and PUNY adversaries."FХМ† "Old French PUISNE (junior)."G	Ц† "(A) witty.","(B) expert.","(C) vindictive.","(D) undersize."Gа† "NUMBER 4"GIк† "12--14 correct ...................good"Gxф† "15--18 correct ..............excellent"GЇю† "19--20 correct ............exceptional"ld French PUISNE (junior)."G	Ц† "(A) witty.","(B) expert.","(C) vindictive.","(D) u
џћічЏч№/іячюџўџўO§`џxЦшиши„оимDџЯЧyќ|~яŒ}ўЦпёр`
LР€
ГHўџњ>я)&ћПџћыя^Ю€ЧoaA‡З™АА6k@іw§їру	#xў§ўчїџ`lљсуy8
€`+
7ыпЮіСпй$ущуЦюёћмр
|
пЙ€o{`l
*qпŸў~Ÿ(?юмoќ†€]ЌИ0l
6ыљЦwѕ˜
ЛцмиуaО	ч
ŸЙ™€€@-3ЛАўЭјіиьйьр3{яЧY€`@ЗџЗчОЎЇvчЎчЗПЎяЇЛ§рџршиши„дпэ€Џї?gИ`Ч€
Аslѓ
ŒqЖ
™№ИЃ@
‡~:Ък;OkКŠоюОz™ЗАWЙЖŒ@џPќьц{ј|aogуoјцl
їрgсрd
@мЦУЬиУрРІріл№ћРц1@50o{l`x0УClolо?lnоџoяAПo€в@cиlџ!Ј&
’&HF812,&H21:’&HF91C,&H21&D’&HFFB8,63:’&HFFB9,36:’&HFFBA,54&i’&HFFB1,34:’&HFFBD,45:’&HFFBC,58&З(Œ W$(20),PR$(20),R$(20),F1$(20),F2$(20),A$(20),B$(20),C$(20),D$(20),L(20)&Ь2т80:у0,0:ž1:ј3,0&и<€XГ1Ѕ20'F W$(X),PR$(X),R$(X),F1$(X),F2$(X),A$(X),B$(X),C$(X),D$(X)'0PL(X)Г2­(џ‡(W$(X))Ќ1)'6Z‹'Ld NU$,S1$,S2$,S3$'–nM3Г442929:M7Г443569:M9Г443889:CMГ444369:IMГ445329:AMГ444049:EMГ444689'Ђx€YГ1Ѕ20'Ю‚хAMЌ(IЋ2),3:хAMЋI,3:хEMЌ(IЋ2),3:хEMЋI,3'иŒIГIЋ2'о–‹( IГ0:ё23,12:ј4,0:‡"IT PAYS TO ENRICH YOUR WORD POWER.";(6Њё35,18:ј2,0,U:‡NU$;:ј0,0([Дё35,23:ј2,1,B:‡" ANY KEY ";:ј0,0(sОZ$Гџ’:… Z$Г"" Ї 190(Ш€XГ1Ѕ20(…вž(Ѓмё32,0:ј0,0:‡"WORD No ";X;(Фц€YГ442593 Ѕ 442613 Љ2:хY,5:‹(г№€ YГ1 Ѕ 40(џњхM3Ќ(IЋ2),3:хM3ЋI,3:хM7Ќ(IЋ2),3:хM7ЋI,3)	
IГIЋ2)
‹)
IГ0)P
"ё18,5:‡"Pick the answer that you think is correct.";)b
,ё32,9:‡W$(X);)ˆ
6€YГ444033 Ѕ 444033ЋL(X) Љ2:хY,6:‹)š
@LEГџ‡(PR$(X)))Ъ
J… LEДГ12 Ї XXГ(LEЌ12)Ў2 :„ LEГLEЌ12:XXГLEЎ2*"
T… LEВ0 Ї ё54ЋXX,9:ј0,0,U:‡" pronounced";:ё53,11:ј0,0:‡"(";:ј4,2:‡PR$(X);:ј0,0:‡")";*+
^ј2,0*k
hё25,13:‡A$(X);:ё25,15:‡B$(X);:ё25,17:‡C$(X);:ё25,19:‡D$(X);*t
rј3,0*‹
|Z$Гџ’:…Z$Г"" Ї 380*Ѓ
†… R$(X)Г"A" Ї YYГ13*Л
… R$(X)Г"B" Ї YYГ15*г
š… R$(X)Г"C" Ї YYГ17*ы
Є… R$(X)Г"D" Ї YYГ19+$
Ў… Z$ГR$(X) Ї ё32,22:‡"CORRECT";: 200,1:SCГSCЋ1:Ѕ450+B
И… Z$ДВR$(X) Ї І490:Ѕ470+‘
Тё40,22:ј4,0:‡"---- YOU ANSWERED (";Z$;")";:ё4,22:ј2,1,B:‡" ANY KEY ";:ј0,0+Ј
ЬZ$Гџ’:…Z$Г"" Ї 460+Ў
ж‹+И
рЅ550+љ
ъј0,0:ё1,YY:ј4,0:‡"ANSWER = (";R$(X);")";:ё0,21:ј0,0:‡F1$(X);,
єё0,23:‡F2$(X);,,
ўё70,19:ј2,1,B:‡" ANY KEY ";,CZ$Гџ’:…Z$Г"" Ї 520,Lј0,0,R,X&ž,0ј0,0:ё30,0:‡"VOCABULARY RATINGS";:,Ÿ:€YГ442589 Ѕ 442623Љ2:хY,5:‹,­D€YГ1 Ѕ 40,йNхM3Ќ(IЋ2),3:хM3ЋI,3:хM9Ќ(IЋ2),3:хM9ЋI,3,уXIГIЋ2,щb‹,ёlIГ0-
vё20,5:‡S1$;-€ё20,6:‡S2$;-!Šё20,7:‡S3$;-J”ё28,11:‡"YOU SCORED ";SC;" correct";-iž€YГCMЌ24 Ѕ CMЋ20 Љ2:хY,6:‹-лЈё25,14:ј2,0:‡"(A) To play again.":ё25,16:‡"(B) To see all word definitions.":ё25,18:‡"(C) To end programme.";-ђВZ$Гџ’:…Z$Г"" Ї 690.М…Z$Г"A" Ї Ž.Ц…Z$Г"B" Ї І740.(а…Z$Г"C" Ї ž:Š.2кЅ690.8фž.Fю€XГ1 Ѕ 20.Lјž.jё32,0:ј0,0:‡"WORD No ";X;.‹€YГ442593 Ѕ 442613 Љ2:хY,5:‹.LEГџ‡(PR$(X)).Э … LEДГ12 Ї XXГ(LEЌ12)Ў2 :„ LEГLEЌ12:XXГLEЎ2/%*… LEВ0 Ї ё54ЋXX,8:ј0,0,U:‡" pronounced";:ё53,10:ј0,0:‡"(";:ј4,2:‡PR$(X);:ј0,0:‡")";/74ё32,9:‡W$(X);/]>€YГ444033 Ѕ 444033ЋL(X) Љ2:хY,6:‹/kH€YГ1 Ѕ 40/—RхCMЌ(IЋ2),3:хCMЋI,3:хIMЌ(IЋ2),3:хIMЋI,3/Ё\IГIЋ2/Їf‹/ЏpIГ0/жzё0,14:ј3,0:‡F1$(X);:ё0,16:‡F2$(X);/і„ё32,23:ј2,1,B:‡" ANY KEY ";0ŽZ$Гџ’:… Z$Г"" Ї 9100˜ј0,00Ђ‹0'ЌЅ55001ЖЅ9500Xш:ƒ REM               WORD NUMBER 10xђ† HAUGHTY adj," haw-tee ",C0жќ† "Arrogant; high in one's own esteem; as, an old, and HAUGHTY nation proud in     arms."0ђ† "French HAUT (high)."1/† "(A) tall.","(B) strong.","(C) arrogant.","(D) vague."1V:ƒ REM               WORD NUMBER 21v$† ASCRIBE v," as-crybe' ",A1ѓ.† "To attribute, regard as belonging to; as, to ASCRIBE the occurences of this lifeto the work of a special providence."2"8† "Latin AD (to) and SCRIBERE (to write)."2sB† "(A) to attribute.","(B) desire greatly.","(C) prohibit.","(D) recommend."2šL:ƒ REM               WORD NUMBER 32ОV† ARBITRATE v," ar-bit-rayt ",A3<`† "To give an authoritative decision, settle a dispute; as, an equal poise of hope and fear / Does  ARBITRATE the event."3`j† "Latin ARBITRARI (to judge)."3Гt† "(A) to give a decision.","(B) estimate.","(C) act cruelly.","(D) perceive."3к~:ƒREM                WORD NUMBER 44
ˆ† DELECTABLE v," del-ek-ta-b'l ",D4~’† "Delightful, pleasant; as, This garden (Eden), planted with the trees of God, /  DELECTABLE both to behold and taste."4Єœ† "Latin DELECTARE (to delight)."4яІ† "(A) rediculous.","(B) formidable.","(C) popular.","(D) delightful."5А:ƒ REM               WORD NUMBER 555К† EMBROIL v," em-broyl ",C5—Ф† "To bring into confusion; as, Chaos umpire sits, / And by decision more EMBROILS the fray."5КЮ† "French BROUILLER (to mix)."6и† "(A) to overheat.","(B) defraud.","(C) bring into confusion.","(D) display clearly."6<т:ƒ REM               WORD NUMBER 66kь† PUSILLANIMOUS adj," pew-sil-an-i-mus ",D6Ъі† "Timid, lacking courage; as, the most helpless, PUSILLANIMOUS ...creature in the world."7
† "Latin PUSILLUS (very small) and ANIMUS (mind)."7L
† "(A) omnipotent.","(B) courageous.","(C) out of sight.","(D) timid."7s:ƒ REM               WORD NUMBER 77“† EDIFICE n," ed-if-iss ",D8(† "Building, particularly a large, stately one; as, Turrets and terraces, and      glittering spires.  	'M
 "#&')*+-.012457889;;<<>>>???????>>><<;;987754210..-+*)'&$#"   """""#######""""   


















7
J
^
r
ˆ
 
Й
г
ю+Lo”Лф?qЅмV˜н(vЩ!тJЙ/Ќ	0	Л
P
э“Cў
Ф•s_X`w к&‡ќˆ+ч О"А$Р&я)@+Д.M1ˆ†L‹†?Зџ#P0ўjŸУŸЦŸЩŸЬ0€ŸР9žРІ€—Т91џPІ€юІпЯІ€юІпбІ€юІпгІ€юІпеŸР9ŽеІŸLУЋŸLЦЉŸLЩЉŸLЬЗџ мФгЯнФмЧгбнЧмЪггнЪмЭгенЭ1Ђ&
Т' ЧІ€    С9џu‘&O‹9ŽЋ №    6€D@D D 6€D@D D 6€D€D€>6,@>6,@@60€D>6@D>66@60D60H60D>6D>6D>6>6>66@60D60H60@D>6D>66@60D60H60D>6D>6D>6 >6>66@60>6060@6,& 6,&6@60D60H60D>6D>6D>6>6>6>66@60D60H60@D>6D>66@60D60H60D>6D>6D>6>6>6>66@60>6060@6,&NLHDLD>LD>D>H@6H@6@6D>6D>6N>6L>6H>6D>6LD>LD>@:4@:4>6,>6,N>6L>6H>6D>6LD>LD>D>H@6H@6@6D>6D>6>6@60>6060@6,&6,&NLHDLD>LD>D>H@6H@6@6D>6N>6LHD LD> @:4>6,>6,N>6L>6H>6D>6 LD>H@6H@6N@6D>6D>6>6@60>6060@6,&6@DHD>6D>6D>6>6>66@60D60H60@D>6D>66@60D60H60D>6D>6D>6 >6>66@60>6060@6,& 6,&6@60D60H60D>6D>6D>6>6>6>66@60D60H60@D>6D>66@60D60H60D>6D>6D>6>6>66@60>6060@6,&NLHDLD>LD>D>H@6H@6@6D>6D>6N>6L>6H>6D>6LD>LD>@:4@:4>6,>6,N>6L>6H>6D>6LD>LD>D>H@6H@6@6D>6D>6>6@60>6060@6,&6,&NLHDLD>LD>D>H@6H@6@6D>6N>6LHD LD> @:4>6,>6,N>6L>6H>6D>6LD>LD>D>H@6H@6@6D>6D>6>6@:4>:46@6,&6@60D60H60D>6D>6D>6>6>66NH@L@H@@D>6 6NH@L@H@D>6D>6D>6>6>66@60D60H60 ND> ND> 6@60>60: >6, >6,>6,60@60>6060 6,& 6,&6,&6@60>6060 6,& 6,&6,&6@60>6060€6,&€ND>€6,&џN„6NH@L@H@D>6D>6D>6>6>66@60D60H60 ND> ND> 6@60>60: >6, >6,>6,60@60>6060 6,& 6,&6,&6@60>6060 6,& 6,&6,&
ќ
ЛfРРРЖјУ
ИӘ
УИСИ
иј€
Р
Иџžі
€
€
Й€
С€ј
У€У€У
Иј
Иј~Ѕ€УЖ
У€7ЙСŒРРРр`ЅpџxџX€fX€ч|6f46>ЮтчўчЧŒџї€џљŒчњў@|L>Ф>Фџ>Ь>х€„0Ьџ?№pФџ`Юџ?рФџ№Цџ60Цџ~`ФЅ?№ЦppЦ0Ц636Ц|3Ц~w6Ц`3Ц~w6Ц~32Т~32Т|3Ц~w6Т 3Ц~w6Т~32Ч~32Т|3У~w6рТx3Уўw7у˜Илџџs3п=џџџџџпџџџџўПяџџЯџџмџЯџўџџпџо§џ{ўџџџџўПяћџЛџлџџџПџ[gЏџџћџџџџџЏџџџџџџр№?6>&8"( 
џO0oOЉсUŠџЦ~32Т~32Т|3Ц~w6Т 3Ц~w6Т~32Ч~32Т|3У~w6рТx3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ*************************
03900 DONE	EQU	*
03910 	END	BEGIN
03920 *************************
џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџб&у12,63:у13,40&™ž:‡@104,"CHARIOTS OF FIRE":‡@175,"BY";:‡@236,"VANGELIS";:‡@323,"TRANSCRIBED BY: ROY ATKINS";:‡@422,"PRESS ANY KEY TO PLAY":Ђ44539&ИгM"CHARIOTS/BIN":’&HFF40,0&а(’65497,0:Ђ:’65496,0OY ATKINS";:‡@422,"PRESS ANY KEY TO PLAY":Ђ4P№P№р№P№P№pр№і
vрg
№v

	

g
	
	gav
	
	
рр€ррvpр€р€g`vg`g`€g`€	
	
€€p`РР

ам
pP€р`n
а




а
аPWv

ьv
€
а


б

б
б


аРС
РС

С
YЮyх%—Р9ч•ч•щЩyeЦ•“ЩіŸ•iѕ–YљX•‰Ш
б§
yш~‡рРgАС
С

б

С
v€рР
Рч`С
g`Рб
бpсРабЭМабм
аЭќ
Э
ŽР`,тЮќрЮ/ЯР№<ќќ<а
	а0ўјy€арРабРб
	№1

раа№ра
РсЮ



раgщЭ‘СмЭvРMШаСсмь0ё
ЩиШ.Р,.0рТрСЮРЯР<<ѓ	брз
q	ш†мбр№ё
мро
р1арРСрС
арамм

б

бР§
С
	рЩм
	
@РЭ
<аФ<оЯ
№аƒЯШрц,яТЮ,0Ю<Я№Я0№ЯР?Œ8§Ш€84ќŽaшn№40ьўрѓ§
аўЮ
рЯ
аЭ
№<
9Э<
ШLH€и0ап@LєаРај№(ќ‚#тьр0 РёРќј№ƒ<ѓ	0ЩьФsў0щбїМpф§р№э<
э0ѓшќрШуЭ№ам

аpnрm
0м
аРžиарбРмФŒ@Р
омt
љЧŒhђрУрђр>7УЯ№Р4<?@7>Œ€Фі qOrШў0а~?Юпрѓў=ў€№ўи=>б0Эп
РбЭфўпсm
пЭбРо
м90РФ	
разtL№аљ№HіР № РƒТ>ђЧCј?ЯРњ@~ЏLРќазЪypљ
1ј'РшžїУяоўљѓž=иŽ
“раРр0§
аd>мца§ь
Р§
ь

0РNЭЭ§ЯœјаHРq@pLƒ№У
ає€„У`0Ъќ 4,<O8Ц@№Рѓ<gi9o?ӘјЦp~4б@іщяЯ
у№Cј
уяу€рьŸб‘брЭ


}зрЮРё
эрЭм
б
о	э
ШРь

<єќйФЯnђј<(0ъьѓ$ѓьs№Ш8<4	Ќ<0?Р@№|ѓіOdіШі=Р№r‡ё7ѓq
узCЧ№ЭсЯ>ьЯŸо0ўжў арЮбаРаЧёpїб Юм
СоЭЭ
С


аp№аь
№
ШРј@<@<L|@`Р`РШРЪ€ЯРђ2Cѓ€H8Рc€ŸУ№Рѓ@0ؘў
ў>?Œ	р№зФЯрЎѓŸЯ№=0Уnб0|
0аэ
аРо
с0а0б
эЭ

ќбРоŒрŒРШЭ‰<L8РL|№Яќ€ƒOУŒ
РЪШР№УC№РФOl№Ц€œ|ќ0ќ№Œї№7№<0№pЪш0у??іщя9ќРЯЭш@аўбрСаРЁС
p№р№а
СааРЭР08Ра<ŒLРЯРУЯlќ
@ЪŒ№ШєРЯ0јЩh
РѓŒѓ@ќh№h№ќірРŒ€ƒo№п
ь?<~о№0№цРЯРу@яЧ
p№РаРpР|№Р№РаС
ь

€Щ
аРŒР€Р@Рœ€Œ@Р№€ р€Рœ0ќ№>O
‰6РpЇрљЯФЮ
рР?ажЯ№РsаяЧN
р

аР№аь



аРаСђяя.ђтў.&цтс..&nŽ.&.Ž(сш(ўсіця/ўђтстnі/яшaтђў/я/ясўя!ђя.ђў€€
€РР
€0
€РxРx
€0€€€€€`B@№№<`<`№№B@``0и
€H
! 0U Q€
gg€
bH
! Р	 0Q€
р=€x
рxР0РD$
0 	LEAX	-1,X
01830 	BNE	CLS1
01840 	PULS	PC
01850 *************************
01860 WIDT32	PSHS	D,X,Y	DO A WIDTH 32
01870 	LDB	#32
01880 	JSR	63043
01890 	PULS	Y,X,D,PC
01900 *************************
01910 START	PSHS	U,Y,X,DP,B,A,CC	PRESERVE REGISTERS
01920 	CLR	$FF40	DRIVE MOTORS OFF
01930 START0	CLR	MONOFL,PCR
01940 	LDA	33021	IF COCO 3, DO WIDTH 32
01950 	CMPA	#50
01960 	BNE	START1
01970 	BSR	WIDT32
01980 START1	BSR	CLS	CLEAR SCREEN
01990 	LEAX	MSG0,PCR	DO TITLE MESSAGE & MENU
02000 	BSR	MSG
02010 GETKEY	JSR	[POLCAT]	WAIT FOR KEYBOARD INPUT
02020 	BEQ	GETKEY
02030 	JSR	[CHROUT]
02040 	CMPA	#$4D	M?
02050 	BEQ	MONO
02060 	CMPA	#$6D	m?
02070 	BEQ	MONO
02080 	CMPA	#$53	S?
02090 	BEQ	STEREO
02100 	CMPA	#$73	s?
02110 	BEQ	STEREO
02120 	CMPA	#$4F	O?
02130 	BEQ	ORCH90
02140 	CMPA	#$6F	o?
02150 	BEQ	ORCH90
02160 	CMPA	#$45	E?
02170 	BEQ	BASIC
02180 	CMPA	#$65	e?
02190 	BEQ	BASIC
02200 	LEAX	MSG1,PCR	INVALID KEYPRESS, SO PRINT CURSOR/PROMPT AGAIN, AND GO WAIT FOR A KEYPRESS
02210 	LBSR	MSG
02220 	BRA	GETKEY
02230 *************************
02240 MONO	LBSR	PCHECK	CHECK IF PRINTER ONLINE
02250 	LBSR	AUDION	TURN AUDIO ON
02260 	LDX	#$4000	ADJUST /MUS FILE PARAMETERS FOR MONO
02270 MONO1	LDD	,X
02280 	LSRA
02290 	LSRB
02300 	STD	,X++
02310 	CMPX	#$43FE
02320 	BLE	MONO1
02330 	BSR	PLAY	GO PLAY THE FILE
02340 	LBSR	AUDIOF	TURN AUDIO OFF
02350 	LDX	#$4000	RESTORE /MUS FILE PARAMETERS
02360 MONO2	LDD	,X
02370 	ASLA
02380 	ASLB
02390 	STD	,X++
02400 	CMPX	#$43FE
02410 	BLE	MONO2
02420 	BRA	START0	GO BACK TO MENU
02430 *************************
02440 BASIC	PULS	CC,A,B,DP,X,Y,U,PC	RETURN TO BASIC
02450 *************************
02460 STEREO	LBSR	ORCHON	ACTIVATE SOUND MULTIPLEXER
02470 	LBSR	STERON	ACTIVATE SPEECH SYSTEMS STEREO PACK
02480 	INC	MONOFL,PCR	INDICATE STEREO PLAYBACK
02490 	LDD	#$FF70	ADJUST STEREO PLAY ROUTINE TO SPEECH SYSTEMS STEREO PACK OUTPUT
02500 	STD	OUTPT1+1,PCR
02510 	LDD	#$FF72
02520 	STD	OUTPT2+1,PCR
02530 	BSR	PLAY	GO PLAY THE FILE
02540 	LBSR	STEROF	DEACTIVATE STEREO PACK
02550 	LBSR	ORCHOF	DISABLE SOUND MUX
02560 	LBRA	START0	BACK TO MENU
02570 *************************
02580 ORCH90	LBSR	ORCHON	ACTIVATE SOUND MUX FOR ORCH 90-CC PAK
02590 	INC	MONOFL,PCR	INDICATE STEREO PLAYBACK
02600 	LDD	#$FF7A	ADJUST STEREO PLAYBACK ROUTINE FOR ORCH 90-CC OUTPUT
02610 	STD	OUTPT1+1,PCR
02620 	LDD	#$FF7B
02630 	STD	OUTPT2+1,PCR
02640 	BSR	PLAY	GO PLAY THE FILE
02650 	LBSR	ORCHOF	DISABLE SOUND MUX
02660 	LBRA	START0	BACK TO MENU
02670 *************************
02680 PLAY	LDA	#$3F
02690 	TFR	A,DP
02700 	ORCC	#$50
02710 	LDX	#$4400
02720 	LDA	,X+
02730 	TST	MONOFL,PCR
02740 	LBEQ	PLAY6
02750 	STA	$3FFE
02760 	LDD	,X++
02770 	STA	$F1
02780 	STB	$F4
02790 	LDD	,X++
02800 	STA	$F7
02810 	STB	$FA
02820 	BRA	PLAY2
02830 PLAY0	CMPA	#$FE
02840 	BNE	PLAY1
02850 	LDD	0,X
02860 	STA	$F1
02870 	STB	$F4
02880 	LDD	2,X
02890 	STA	$F7
02900 	STA	$FA
02910 	LDA	4,X
02920 	STA	$FE
02930 PLAY1	LEAX	8,X
02940 PLAY2	LDA	,X+
02950 	BMI	PLAY0
02960 	BEQ	PLAY5
02970 	STA	$FD
02980 	LDB	$FE
02990 	STB	$FF
03000 PLAY3	LDA	[$3FF1]
03010 	ADDA	[$3FF7]
03020 OUTPT1	STA	$FF20	STEREO OUTPUT, ACTUAL PORT ADDRESS IS CHANGED TO PROPER STEREO PAK
03030 	LDA	[$3FF4]
03040 	ADDA	[$3FFA]
03050 OUTPT2	STA	$FF20
03060 	LDD	$F2
03070 	ADDD	,X
03080 	STD	$F2
03090 	LDD	$F5
03100 	ADDD	2,X
03110 	STD	$F5
03120 	LDD	$F8
03130 	ADDD	4,X
03140 	STD	$F8
03150 	LDD	$FB
03160 	ADDD	6,X
03170 	STD	$FB
03180 	DEC	$FF
03190 	BNE	PLAY4
03200 	DEC	$FD
03210 	BEQ	PLAY1
03220 	LDB	$FE
03230 	STB	$FF
03240 	BRA	PLAY3
03250 PLAY4	LEAX	0,X
03260 	LEAX	0,X
03270 	LEAX	0,X
03280 	LEAX	0,X
03290 	LEAX	0,X
03300 	BRA	PLAY3
03310 PLAY5	CLRA
03320 	TFR	A,DP
03330 	PULS	PC
03340 PLAY6	STA	$3FFA
03350 	LDD	,X++
03360 	STA	$ED
03370 	STB	$F0
03380 	LDD	,X++
03390 	STA	$F3
03400 	STB	$F6
03410 	BRA	PLAY9
03420 PLAY7	CMPA	#$FE
03430 	BNE	PLAY8
03440 	LDD	0,X
03450 	STA	$ED
03460 	STB	$F0
03470 	LDD	2,X
03480 	STA	$F3
03490 	STB	$F6
03500 	LDA	4,X
03510 	STA	$FA
03520 PLAY8	LEAX	8,X
03530 PLAY9	LDA	,X+
03540 	BMI	PLAY7
03550 	BEQ	PLAY5
03560 	STA	$F9
03570 	LDB	$FA
03580 	STB	$FB
03590 PLAY10	LDA	[$3FED]
03600 	ADDA	[$3FF0]
03610 	ADCA	[$3FF3]
03620 	ADCA	[$3FF6]
03630 OUTPT3	STA	$FF20	MONO OUTPUT
03640 	LDD	$EE
03650 	ADDD	,X
03660 	STD	$EE
03670 	LDD	$F1
03680 	ADDD	2,X
03690 	STD	$F1
03700 	LDD	$F4
03710 	ADDD	4,X
03720 	STD	$F4
03730 	LDD	$F7
03740 	ADDD	6,X
03750 	STD	$F7
03760 	DEC	$FB
03770 	BNE	PLAY11
03780 	DEC	$F9
03790 	BEQ	PLAY8
03800 	LDB	$FA
03810 	STB	$FB
03820 	BRA	PLAY10
03830 PLAY11	LEAX	0,X
03840 	LEAX	0,X
03850 	LEAX	0,X
03860 	LEAX	0,X
03870 	LEAX	0,X
03880 PLAY12	BRA	PLAY10
03890 00100 *************************
00110 *MUSICA /MUS FILE PLAYER
00120 *VERSION 1.0, WRITTEN BY:
00130 *ROBERT ALLEN TURNER,
00140 *BINARY SYSTEMS,
00150 *PO BOX 396,
00160 *DOUBLE SPRINGS, AL 35553
00170 *COPYRIGHT (C) 1993,
00180 *AS SHAREWARE FOR THE
00190 *PUBLIC. ENJOY!
00200 *FILE: "PLAY-MUS.ASM"
00210 *AD PLAY-MUS /WE/AO/WS/SR
00220 *WRITTEN VIA DISK EDTASM+
00230 *************************
00240 	ORG	$0E00
00250 *************************
00260 XFER	PSHS	U,Y,X,DP,B,A,CC	PRESERVE REGISTERS FOR A SMOOTH RETURN TO BASIC
00270 	LEAX	PLAY12+1,PCR	POINT TO END OF PLAYER ROUTINE
00280 	STX	TEMPX,PCR	STORE IT
00290 	LEAX	BEGIN,PCR	POINT TO START OF PLAYER ROUTINE
00300 	LDY	#$3B00	POINT TO ORG OF PLAYER ROUTINE
00310 XFER0	LDD	,X++	MOVE PLAYER ROUTINE TO START OF THE /MUS FILE
00320 	STD	,Y++
00330 	CMPX	TEMPX,PCR
00340 	BLE	XFER0
00350 	PULS	CC,A,B,DP,X,Y,U,PC	RESTORE REGISTERS AND RETURN TO BASIC
00360 TEMPX	RMB	2
00370 *************************
00380 POLCAT	EQU	$A000
00390 CHROUT	EQU	$A002
00400 *************************
00410 *	ORG	$3B00
00420 *************************
00430 BEGIN	LBRA	START	DOS PROGRAMMING CONVENTION
00440 	FDB	DONE-BEGIN
00450 *************************
00460 MSG0	FCC	'MUSICA  /MUS FILE PLAYER.'	TITLE MESSAGE AND INFO
00470 	FCB	$0D
00480 	FCC	'VERSION 1.00, WRITTEN BY:'
00490 	FCB	$0D
00500 	FCC	'ROBERT ALLEN TURNER,'
00510 	FCB	$0D
00520 	FCC	'BINARY SYSTEMS, PO BOX 396,'
00530 	FCB	$0D
00540 	FCC	'DOUBLE SPRINGS, AL 35553-0396.'
00550 	FCB	$0D
00560 	FCC	'COPYRIGHT (C) 11 MARCH 1993.'
00570 	FCB	$0D
00580 	FCC	'   press:'	MENU INFORMATION
00590 	FDB	$0D0D
00600 	FCC	'E] EXIT   - RETURN TO BASIC.'
00610 	FCB	$0D
00620 	FCC	'M] MONO   - TV/MONITOR SPEAKER.'
00630 	FCB	$0D
00640 	FCC	'S] STEREO - SPEECH SYSTEMS'
00650 	FCB	$0D
00660 	FCC	'            STEREO PACK.'
00670 	FCB	$0D
00680 	FCC	'O] STEREO - TANDY/SOFTWARE'
00690 	FCB	$0D
00700 	FCC	'            AFFAIR ORCHESTRA'
00710 	FCB	$0D
00720 	FCC	'            90-CC STEREO PAK.'
00730 MSG1	FCB	$0D	CURSOR PROMPT
00740 	FCC	'->'
00750 	FCB	$FF
00760 *************************
00770 MSG2	FCB	$0D	PRINTER ERROR MESSAGE
00780 	FCC	'PLEASE TURN OFF YOUR PRINTER!!'
00790 	FCB	$0D
00800 	FCC	'PRESS [ENTER] TO CONTINUE.'
00810 	FDB	$0DFF
00820 *************************
00830 TEMP0	RMB	1	SYSTEM VARIABLES
00840 TEMP1	RMB	1
00850 TEMP2	RMB	1
00860 TEMP3	RMB	1
00870 TEMP4	RMB	2
00880 TEMP5	RMB	2
00890 TEMP6	RMB	1
00900 MONOFL	RMB	1
00910 *************************
00920 AUDION	LDA	$FF01	'AUDIO ON' FOR MONO
00930 	STA	TEMP0,PCR
00940 	ANDA	#$F7
00950 	STA	$FF01
00960 	LDA	$FF03
00970 	STA	TEMP1,PCR
00980 	ANDA	#$F7
00990 	STA	$FF03
01000 	LDA	$FF20
01010 	STA	TEMP2,PCR
01020 	LDA	$FF23
01030 	STA	TEMP3,PCR
01040 	LDA	#$3C
01050 	STA	$FF23
01060 	PULS	PC
01070 *************************
01080 AUDIOF	LDA	TEMP0,PCR	'AUDIO OFF' FOR MONO
01090 	STA	$FF01
01100 	LDA	TEMP1,PCR
01110 	STA	$FF03
01120 	LDA	TEMP2,PCR
01130 	STA	$FF20
01140 	LDA	TEMP3,PCR
01150 	STA	$FF23
01160 	PULS	PC
01170 *************************
01180 STERON	LDD	$FF70	ENABLE SPEECH SYSTEMS STEREO PACK
01190 	STD	TEMP4,PCR
01200 	LDD	$FF72
01210 	STD	TEMP5,PCR
01220 	CLR	$FF71
01230 	CLR	$FF73
01240 	LDA	#$FF
01250 	STA	$FF70
01260 	STA	$FF72
01270 	SUBA	#$FB
01280 	STA	$FF71
01290 	STA	$FF73
01300 	PULS	PC
01310 *************************
01320 STEROF	LDD	TEMP4,PCR	DISABLE SPEECH SYSTEMS STEREO PACK
01330 	STD	$FF70
01340 	LDD	TEMP5,PCR
01350 	STD	$FF72
01360 	PULS	PC
01370 *************************
01380 ORCHON	LBSR	AUDION	ENABLE 'AUDIO ON' FOR ORCHESTRA 90-CC STEREO PAK
01390 	LDA	$FF35
01400 	STA	TEMP6,PCR
01410 	LDA	#52	SET COCO SOUND MULTIPLEXER TO CARTRIDGE INPUT
01420 	STA	$FF01
01430 	LDA	#63
01440 	STA	$FF03
01450 	LDA	#60	ENABLE SOUND MULTIPLEXER
01460 	STA	$FF35
01470 	PULS	PC
01480 *************************
01490 ORCHOF	BSR	AUDIOF	'AUDIO OFF' FOR ORCH 90-CC
01500 	LDA	TEMP6,PCR
01510 	STA	$FF35
01520 	PULS	PC
01530 *************************
01540 MSG	LDA	,X+	PRINT MESSAGE AS POINTED TO BY REGISTER X
01550 	CMPA	#$FF
01560 	BEQ	MSGEND
01570 	JSR	[CHROUT]
01580 	BRA	MSG
01590 MSGEND	PULS	PC
01600 *************************
01610 EWAIT	JSR	[POLCAT]	WAIT FOR [ENTER]
01620 	CMPA	#$0D
01630 	BNE	EWAIT
01640 	PULS	PC
01650 *************************
01660 PCHECK	LDA	$FF22	TEST IF PRINTER ONLINE
01670 	ANDA	#$01
01680 	BNE	PCHEC0
01690 	LEAX	MSG2,PCR
01700 	BSR	MSG
01710 	BSR	EWAIT
01720 PCHEC0	PULS	PC
01730 *************************
01740 CLS	LDX	#512	DO A CLS ON WIDTH 32 SCREEN
01750 	LDA	#32
01760 CLS0	JSR	[CHROUT]
01770 	LEAX	-1,X
01780 	BNE	CLS0
01790 	LDX	#512
01800 	LDA	#8
01810 CLS1	JSR	[CHROUT]
0182џ
M$:ƒ"WRITER" BOOT BY JIM BENNETTc
:ƒYOU CAN PUT THE POKE FOR YOUR BAUD RATE HERE IF YOU WANT …џ†(33021)Г50Ї’38345,20:’65314,20:у12,63:у13,0:у8,62:т32Lž:‡џЁ(32,"*"):‡@12,"WRITE";:‡@64,"MAKE CERTAIN BAUD RATE IS SET.  PRESS BREAK TO SET. PRESS ENTER TO RUN PROGRAM.":Ђ44539:Р1:•10000,&H6EC0:’282,0:гM"WRITE.BIN":Ђ&H7500ATE HERE IF YOU WANT …џ†(33021)Г50Ї’38345,20:’65314,20:у12,63:у13,0:у8,62:т32Lž:‡џЁ(32,"*"):‡@12,"WRITE";:‡@64,"MAKE CERTAIN BAUD RATE IS SET.  PRESS BREAK TO SET. PRESџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ
\oQPžIŒ$L1‹0ŸIьЄ9†O4НЃІр&%0
Z !~Ў	5 сф#цф5B4 –Ў'~ВwФцЄ:0ŸI0!сР"чР\Z'ТІ€ЇР їЦЮЦ~ЌF5 {ыc%ѓІcчc‰3„ЎdяdгoЯ5nЄLLL4@<–&НМoэё9ц„Ў5@ ЊLLL4@!–&
ьёНДєž9~М5ьєНЕ
оMЏBчФ3„50 ˆD—%~Г‘зЮЎУ4Z&љ~Д(5@Œ$Ў4nФпQ5@54@оQŒ$
Ў9]НЗ
T*~Гэ~ГћŽ
Ў'žЋ4:Œ
$ŸЋ5~ЕS˜Ц
тЇ„9_­Ÿ &ђ9‰г4\Z'Ї€ љ5”4ЦС_5'94DDDD5„&]'юŠ0:%‹Ї…\95 Іф4 р'†џ$цф@4юb\Z&Ір 
І€ЁР'ѓ†
$
@2aџMMnЄ˜рb#Ю˜_P\5 4oтЮ5 Ўdцb'bZ:Ір+	ыфсb5#Ю2aцaрф\$
_чaЏb ОзO5f44p'-цe'5сb"#ЎcZ:1
юфІeJ›OЁb"жOІ€ЁР'le0  чZ&ёЮoe2bўд5 +]&~ДJ
ц„ Н“Н’˜‰–ЖDф„$С%TT ј'_\XлСTO }ŽRНЉЂЬ3Œ4F~ЉыOжQ9
Ўфn‹5n‹5@4ср"†=&"95@Ўfьф+
у„)э„Ѓd.
nју„)э„Ѓd,ѓ2hnФƒ%%нOJмQгSDVM&4Іф=“O5'
†%нSЮзR0&пƒ9/§!мQгSDVі
л­†=з­+пSЬпQ0&у0 нSQRŽXI0$њ9e
T*ПCSУ
9нO5p40пQ˜Q—TмOш'нOмQрнQ95@Єрфр4@ ”5@Њрър єCS ˆЭ'Б0нQЬ
 R	QYI“O%R“O0&энwмQ нQ'–O&мP=зS–PжR=›S94DnЄ50эa5\n„5ŸdO_5ЌС$ нO'ь^Ш0‹
&ъnŸdOX0ыю„цРа'Ф~ДGЦз\ъШXIяф 
З\злэ„З4@уфэфnЄпO5 ч€5@яZ&љ5ч€o€:œO%їnЄ'Ц
M*
P9НДєЦ§3„4@ННм5Цџ\І…&ћ9х	† Ю†
nŸ \Z'!І€є їНЃ_аl"9НЃ_жlбk$паj$ќPеZ&ћ9Ц9їйў
ў9–М—КзЖXЮ—ЋХ‘"§З—ЗZІХ—ЙГ†—В9зе_D—иYЮ—Ъзд&Ю—Зди'1Œ9жеФXьЅнйжеTTTьЅнец€зь
'	нOьўЖ ѓXI
ŸЯ0‹ŸбмУнЧмХнЩnԘ”˜›˜Б˜Ё”Ё””4X0ŒіЎ…—ТН•šЮ” иn„Н•"ЮЯН“,Ц
,мНнЫмПнЭ–Ж…'в	бжйНŸінйжЧНŸі~ž§Н•cН•Є~™зиН“жДН•c~•Ђ5Ÿdў
›пf3Œџ
›~–•оfџ
›Ю2~џ
ўО
ќЏфnŸd5Ÿd3ŒъM&4@~­&54P
~ЎVзТпеН•š5~œг_НЉЂНЉv5~š95 ˜ЮЦ
4FnЄ,Ю.Ю'Ю&	Ю-Ю/Цџ†_9ŽŸI9јЎ–hЦŠL&нІЮЎф6PЬ
Нt{ЬN 4м'НtЂЬCŽoэ„ЬCŽnЧэ„ŽnХO_э„НЉ(0ŒЦ-.THIS PROGRAM WILL ENABLE YOU TO WRITE LETTERSНstНsno0ŒЦ@APOSITION PAPER IN PRINTER AND   MAKE CERTAIN PRINTER IS ON LINE.НstНsno0ŒЦADDRESS AT TOP RIGHT? (Y/N)НstНsnoНxOŽo
ц€Нp-0ŒЦ
YНpРНtь4Žo
ц€Нp-0ŒЦ
yНpРНtьНr',0ŒЦHOW MANY LINES?НstЮoНocŽo
ц€НpL§nХќnХ4ЬЃсНtь'~vоЬ
ŽnУэ„4ќnХ4Ь
4†0ŒЦLINEНstќnУНsgНsnoЮoНocЬНrVзoЬ/40ŒЦ
 ц„5НpƒНp-Žo
ц€НoЎНstНsnoНqЧ0ŒЦINSIDE ADDRESS? (Y/N)НstНsnoНxOŽo
ц€Нp-0ŒЦ
YНpРНtь4Žo
ц€Нp-0ŒЦ
yНpРНtьНr'І0ŒЦHOW MANY LINES?НstЮoНocŽo
ц€НpL§nХќnХ4ЬЃсНtу'iЬ
ŽnУэ„4ќnХ4Ь
4†0ŒЦLINEНstќnУНsgНsnoЮoНocЬНrVзoЬ40ŒЦ
 ц„5НpƒНp-Žo
ц€НoЎНstНsnoНqЧЬНrVзoНsno0ŒЦ	
GREETING:НstЮoНocЬНrVзoЬ40ŒЦ
 ц„5НpƒНp-Žo
ц€НoЎНstНsnoЬНrVзoНsnoџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЦџ	Т
УФТЧСССТ"ХТ%Ч'()*Ш.Уџ/0Ч73456УЩФЦ;<=>?@УџџџANNYIELDBAS’B1-C    BAS&KBANKRATEBAS1RCHARIOTSBASдCHARIOTSBIN1DISKCOPYBAS#НFONT    BIN8ALLERY BAS-PHRIDDLE3BASЯHRIDDLE3NIB2гJERSEY  BASRJERSEY  BINЖLABELDOC009
џ
ѕLABELPRCBAS:вNIBLOADRBIN,`PLAY-MUSADD$uPLAY-MUSASMџ\PRINTME9BAS9WORD3   BAS+
WORD4   BASЋWRITE   BAS PWRITE   BIN!fџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~xwНp{ЮoНo–Žo
ц€Нp-0ŒЦ
НpРНtь'~xO9НЉ(0ŒЦTYPE BODY OF LETTERНstНsnoЬ §nСЬ€НprНstoНp{ЮoНo–Žo
ц€Нp-0ŒЦ
НpРНtь'~xЏ~y{Žo
ц€Нp-Ь
НprНpРНtь'‡ЬНrVзoЬ40ŒЦ
 ц„5НpƒНp-ŽnШц€НoЎНstНsnoНЉ(0ŒЦCONTINUE OR PUSH DOWN ARROW:НstНsno0ŒЦ
ЮnЧНo–Ь §nСЬ НЅWЬ€НprНsto~xЏЬ–зŒЬНЉQЬ‰4ќnСчё~zсќnС4Ь
ус§nСŽo
ц€Нp-Ь€НprНoЎНstoŽnШц€Нp-Žo
ц€НoЎЮnЧНo–ŽnШц€Нq•4ЬBЃсНtь'ќЬBŽnУэ„4Ь
4Ь
НrV4†ŽnШц€Нp-ќnУ4Ь
4НqНp-0ŒЦ
 НpРНtь'ЖЬНrVзoЬ40ŒЦ
 ц„5НpƒНp-ŽnШц€Нp-ќnУНpїНoЎНstНsnoŽnШц€Нp-ЬB4ќnУНrVусНp№ЮnЧНo–НЉ(0ŒЦCONTINUE OR PUSH DOWN ARROW:НstНsnoŽnШц€Нp-Ь€НprНoЎНstoЬ 4ŽnШц€Нq•ус§nС~zо~zоНqЧ~xйŽo
ц€Нp-ЬНprНpРНtь4ŽnШц€Нp-0ŒЦ
НpРНtщНrw'JŽnШц€Нp-ŽnШц€Нq•4Ь
НrVусНpїЮnЧНo–ќnС4Ь
НrVус§nСќnСНЅWЬ€НprНstНsno~xЏŽo
ц€Нp-Ь
НprНpРНtь'~{}~y“ŽnШц€Нp-0ŒЦ
НpРНtщ'AЬНrVзoЬ40ŒЦ
 ц„5НpƒНp-ŽnШц€НoЎНstНsnoЬНrVзoНsno~{цЬНrVзoНsnoНЉ(0ŒЦ	CLOSING:НstЮoНocЬНrVзoЬ/40ŒЦ
 ц„5НpƒНp-Žo
ц€НoЎНstНsnoЬ
ŽnУэ„4Ь4Ь
4†ЬНrVзoНsnoНqЧ0ŒЦNAME:НstЮoНocЬНrVзoЬ/40ŒЦ
 ц„5НpƒНp-Žo
ц€НoЎНstНsnoЬ
4Ьџчё~sšџuНpƒНp-ŽnШц€НoЎНstНsnoЬНrVзoНsno~{цЬНrVзoНsnoНЉ(0ŒЦ	CLOSING:НstЮoНocЬНrVзoЬ/40ŒЦ
 ц„5НpƒНp-Žo
ц€НoЎНstНsnoЬ
ŽnУэ„4Ь4Ь
4†ЬНџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ
К&&
:ƒ A SECTOR BY SECTOR DISK COPY &N:ƒ BY KENT LORENTZEN UPDATE 3-18-93&X• 500&g(ˆ я Ѕ 250&p2т 40&w<ž5&šF‡" SECTOR BY SECTOR DISK COPY"& P‡&МZ‰" INPUT DRIVE NO. ";ID&Тd‡&оn‰" OUTPUT DRIVE NO.";OD&фx‡&ь‚TГ0&єŒSГ1'–п ID,T,S,A$,B$' р OD,T,S,A$,B$'$ЊSГSЋ1'5Д… SД19 Ї 150'?ОTГTЋ1'PШ… TД35 Ї 140'Vв‡'bм  100,5'zц‡ " COPY COMPLETED"'€№Š'Јњ‡ " ERROR IN TRACK ";T;" SECTOR ";S'Г
Ѕ 170'Й
Š&Тd‡&оn‰" OUTPUT DRIVE NO.";OD&фx‡&ь‚TГ0&єŒSГ1'–п ID,TџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkвDK #Яb3Œ§0Œ4ьŒ№ус4@ЃсŽцР:1?&љ9п3Œo4@ЌŒе'PЬc эЁЬ ќэЁŽ
є43ŒІРЇ€Ѓb&їЎŒЎ9žЌс$
ІРCЇ€1?&їŸ  0‹Ÿ3Ы3A0
ІТCЇ‚1?&їžo‚ Ьq§
Ѓ†>З
ЅНЌяŽ­ž4~­!ы@џџХ|ЋЗЖЌпЏ­АИ­ОВпМАБЋОЖБЌпОБппппппппКВНКЛЛКЛпВОМЗЖБКпГОБИЊОИКппппппп­АЊЋЖБКбпЛАпБАЋпЌОЉКпЖЋпЖБппппппОЌМЖЖпЙА­ВОЋгпА­пЋЗКпВаГпЈЖГГпппНКпЛ­АЏЏКЛгпОБЛпЋЗКпЏ­АИ­ОВпппппЈЖГГпНКпЊЌКГКЌЌопвпНАНбџы5џўaХ~ZЫШџы,џ§~YЫЧџъ\џќОлLнЏГОІвВЊЌпаВЊЌпЋАпаНЖБнХ~YЫЩХОлLнМАБЉК­ЌЖАБпЏ­АИ­ОВгпЉК­пЮбЯЯбнХ~YЫЩХОлLнЈ­ЖЋЋКБпНІХнХ~YЫЩХОлLн­АНК­ЋпОГГКБпЋЊ­БК­гнХ~YЫЩХОлLнНЖБО­ІпЌІЌЋКВЌгпЏАпНАЇпЬЦЩгнХ~YЫЩХОлLнЛАЊНГКпЌЏ­ЖБИЌгпОГпЬЪЪЪЬвЯЬЦЩбнХ~YЫЩџщьџћОлLнМАЏІ­ЖИЗЋпзМжпЮЭпВО­МЗпЮЦЦЬнХ~YЫЩХxХОлLнЙА­пЋЗКпЏЊНГЖМпОЌнХ~YЫЩХОлLнЌЗО­КЈО­КбпЏГКОЌКпКБЕАІонХ~YЫЩХ~YЪЯџщvџњxХmЮЬЪгЯХОлLнЏГОМКпЋЗКпЛЖЌДКЋЋКпМАБЋОЖБЖБИнХ~YЫЩХОлLнЋЗКпаВЊЌпЙЖГКЌпЖБпЛ­ЖЉКпЯпОБЛнХ~YЫЩХОлLнЏ­КЌЌпЄš‘‹šЂбнХ~YЫЩџщYџљ]ЫЫЪЬЦХzyзЮЬЪжKMЮЬXЩХ{aџщ9џјxПЯгнЈА­ДЖБИгпЏГКОЌКпЈОЖЋбнџщ#џїsпЙЯлзЭЮжгЙЮлзШЧжџщџіЇLЬZЮЧџщџѕ ЯгЮШгЇгОлгНлџшщџєzзqзОлгЮжLtзйЗЙЙжжXЮЫџшаџѓЙЯлзЇжLОлTqзНлгЮЭШжџшЩџђtЇџшЛџёЇLЇSЮХМLЯџшЏџ№ІLЬZпЇџшЄџяЅLЯZШџшџюzoзЙЯлзІжгЅRЬЭTЦгЬжKMнВЊЌнXЭЭџшbџэЙЮлзМжLoзЙЯлзІжгЅRЬЭTЮгЧжџшMџьАДлLqзЙЮлзМжгЮжџш+џыzзАДлLtзЯжNпАДлLtзйЗЙЙжжXЭЭџш!џъМLМTЮџшџщtЅХtІџчВџшzпМLЯXxПЯгнЋЗК­КпО­КпБАпаВЊЌпЙЖГКЌпАБпЋЗКппЛЖЌДпЖБпЛ­ЖЉКпЯнХ_ЮЪЯгЮХ_ЭЯЯгЮХ_ЮЪЯгЮХmЮЬЪгЯХ]ЫЫЪЬЦХqџч8џчz\зЯжKМпXxПЯгнЋЗК­КпО­КпБАЋпКБАЊИЗпЙ­ККпппппппИ­ОБЊГКЌпАБпЋЗКпЛЖЌДпЖБпЛ­ЖЉКпЯбнХ_ЮЪЯгЮХ_ЭЯЯгЮХ_ЮЪЯгЮХmЮЬЪгЯХ]ЫЫЪЬЦХqџч.џцМLМSЮџчџхпЛLЯZпМХxПЬЭгн­КОЛЖБИХпнФЙЮлзЛжTнбВЊЌнџцЪџф,ВпЙЮлзЛжTнбВЊЌнХxнОЛЛЖБИХппЏГОІвВЊЌбНЖБнХ~YЪЯХ]пАЮџцСџу~YЬЫџцTџтxнЌОЉЖБИХппнФЙЮлзЛжTнбНЖБнХ'ВпЙЮлзЛжTнаВЊЌнгйЗЬНЯЯгКОгйЗЬНЯЯХ)пЙЮлзЛжTнаВЊЌнпZпЙЮлзЛжTнаНЖБнХxПЬЭгннХxХxџцMџсtЛџцџрxн™Š‘œ‹–‘пœ’“š‹šбнХmЮЬЪгЯХxпнОБАЋЗК­пЛЖЌДпЄІаБЂРнФџхОџп]ЫЫЪЬЦХОлLtзyзЮЬЪжжХzОлKMнІнOОлKMн†нOОлKMнБнOОлKMн‘нX_ЮЪЯгЮХ_ЭЯЯгЮХ_ЮЪЯгЮХ~ZЬЭџхЅџоzОлLнІнNОлLн†нXqпХ{iџхzџнfпнЛнгмЮгЙЮлзЛжTнбВЊЌХнTpзwзЖЛжгЮжгЮџхhџм/пмЮгЮпXп­ЋлџхGџл;пмЮгЫХНАНлL­ЋлХВЌНLuзНАНлжџх&џк;пмЮгЪХ­ОЋлL­ЋлХГЌНLuз­ОЋлжџхџйЌОLВЌНRЭЪЩTГЌНџфђџи;пмЮгЭХНАНлL­ЋлХВЌНLuзНАНлжџфбџз;пмЮгЬХ­ОЋлL­ЋлХГЌНLuз­ОЋлжџфЗџжКОLЌОTзВЌНRЭЪЩTГЌНжSЮџфџе;пмЮгZзЮжSЮХНАНлL­ЋлХВЌНLuзНАНлжџфkџд;пмЮгZзЮжХ­ОЋлL­ЋлХГЌНLuз­ОЋлжџфTџгЋОLВЌНRЭЪЩTГЌНХeХoџу§џвmЮЬЪгЯХ]ЫЫЪЬЦХОLyзЮЬЪжХОLОSЫЧХxОХzзОKЯжTзОMЬжX_ЮЪЯгЮХ_ЭЯЯгЮХ_ЮЪЯгЮХxнвСнФХ~ZЫЪХ{oџуфџбx[ЮЩSбЪRxзОлжжФОлХoџуЩџа7ЯХ?ЮХjЪЯЯЯгйЗЬОЙЙХ~ZЭџуДџЯzyзЬЬЯЭЮжMKЪЯXoџуЊџЮЬЭХoџуSџЭАЮLyзйЗЮНжRЭЪЩTyзйЗЮМжSйЗЯЫЧЙХzyзАЮTЮЧжLЭЬЩпOпyзАЮTЮЦжLЮЭЦпOпyзАЮTЭЯжLЭЬШпXпoџтџЬaХxн‹—šп’žœ—–‘šп“ž‘˜Šž˜šп‹–‘п™п‹—–Œп˜ž’п—žŒпšš‘пž“‹šš›п›š›бп‹—–Œп–Œпž“†п›Ššп‹‹—šп˜ž’п—ž‰–‘˜пšš‘пŒž‰š›п–‘žŒœ––п™’ž‹пž‹пŒ’šп–‘‹бпžŒпп–‹п‘ˆпŒ‹ž‘›Œгп‹—šп˜ž’п–ŒпппŠŒš“šŒŒонХiџсРџЫХ|ЋЗЖЌпЏ­АИ­ОВпМАБЋОЖБЌпОБппппппппКВНКЛЛКЛпВОМЗЖБКпГОБИЊОИКппппппп­АЊЋЖБКбпЛАпБАЋпЌОЉКпЖЋпЖБппппппОЌМЖЖпЙА­ВОЋгпА­пЋЗКпВаГппппппппЈЖГГпНКпЛ­АЏЏКЛгпОБЛпЋЗКппппппппЏ­АИ­ОВпЈЖГГпНКпЊЌКГКЌЌоџџџЫ€ЯrћzPrџыЯrџэяqФџ~^Srџћа	Ъщ§Yћ“ВЊЌЖМОппаВЊЌпЙЖГКпЏГОІК­бђЉК­ЌЖАБпЮбЯЯгпЈ­ЖЋЋКБпНІХђ­АНК­ЋпОГГКБпЋЊ­БК­гђНЖБО­ІпЌІЌЋКВЌгпЏАпНАЇпЬЦЩгђЛАЊНГКпЌЏ­ЖБИЌгпОГпЬЪЪЪЬвЯЬЦЩбђМАЏІ­ЖИЗЋпзМжпЮЮпВО­МЗпЮЦЦЬбђпппšŒŒХђђКЂпКЇЖЋпппвп­КЋЊ­БпЋАпНОЌЖМбђВЂпВАБАпппвпЋЉаВАБЖЋА­пЌЏКОДК­бђЌЂпЌЋК­КАпвпЌЏККМЗпЌІЌЋКВЌђппппппппппппЌЋК­КАпЏОМДбђАЂпЌЋК­КАпвпЋОБЛІаЌАЙЋЈО­КђппппппппппппОЙЙОЖ­пА­МЗКЌЋ­ОђппппппппппппЦЯвММпЌЋК­КАпЏОДбђвСђЏГКОЌКпЋЊ­БпАЙЙпІАЊ­пЏ­ЖБЋК­оођЏ­КЌЌпЄКБЋК­ЂпЋАпМАБЋЖБЊКбђIIўXs{HўIќXs{HќIпXs#IмXs(yУHмЪYs5HўYs:HќYs?HпYsDHмЪsNsR€Ž€ŒyHHHŽHŒЪsossЪшwIЪXsyЫHўyРHќyУHЪЪrgYr–HЪЪY~иљR`_§пЪR`_џ~ђйЪIн{ўйїЯr
r$rЪq§џyпR`_§Ярйq§џyїR`_§ЯрйЪЫЩ9пB	МЪIЫ€€ПrёI~Эй§rr8ЯrЛrgR`_џиR`_§~Вик~’ио~ЌиЗ~ŒиЛ~Аиœ~и ~КиЩ~šиЭЯr
yш˜п2ш…ш
:qПџ{ЛЋ~sМ
а
rЊш
$qПџ{ЗЇ~sМ
а
пpЪшэш
"“r
j3rџ3rџ}rйш
ш№щ•ш
“r
Š3…rџЁ3„rџrљш

щВyРрtхЏqЛџY’r
ЏяиџHР
~h(~h(пщ~
йяџh(§hhYћh
ЯїYдиБh)
(Y`РT`РHпY`РT`РHп#
{"
#
§"
#ћ"#љ"ѕйѕѕиC)
(п;ЯџЯџЯџЯџЯџпGАрtЪHР~h(~h(	пщ~
йяџh(§h(	YћhЯїYди1h)(Y`РT`РV`РV`Р	Hп#{"#§"#ћ"#љ"ѕйѕѕи@)(п8ЯџЯџЯџЯџЯџпDџџџ'џљР
~h(~h(пщ~
йяџh(§hhYћh
ЯїYдиБh)
(Y`РT`РHпY`РT`РHп#
{"
#
§"
#ћ"#љ"ѕйѕѕиC)
(п;ЯџЯџЯџЯџЯџпGАрtЪHР~h(~hџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ+H&D
:ƒ COCO BOMBER BY STUART T WYSS-GALLIFENT (C) JANUARY 13, 1993&R’ 65497,0&]• 1000&|(т 80:у 0,0:у 8,63:ј 0,0:ž1&І2 P,PP:у P,PP:… PГ0 А PPГ0 Ї 60 :„ 50&Б<І 250'6F‡"Welcome to CoCo Bomber, the politically and militarily correct text adventure,  by Stuart T. Wyss-Gallifent.  (c) 1993 by me."(-P‡:‡"     The year is 1993, two years after Iraq invaded Kuwait.  Yet even now, with U.N. sactions and restrictions, Iraq continues to defy the allies with rhetoric.Their latest sign of defiance is crossing into territory that they once owned")Z‡"but had to forfeit, and stealing abandoned missiles and other war materials.    Their leader, Saddam Hussein, has publically declared another 'holy war' againstthe Allies, especially the United States.":‡)ёd‡"     In Iran, the Ayatolla Whomever has decided that his death sentence on      Salman Rushdie (Author of Satanic Verses) should apply also to anyone who       supports Rushdie in any way.  He has joined Hussein in a war to crush the"*—n‡"'infidel dogs'.  The border crossings continue, and to add further insult,      Hussein places missile launchers in the no-fly zone established by the Allies."*чx‡:ј 1,0:‡"Press any key to continue":Ђ 44539:AГџƒ0(2):’ 65497,0:ј 0,0:ё 0,0+Щ‚‡"     President George Bush has ordered you (yes, you) on a military air strike  to show the Iraqi and Iranian military who is boss.":‡:‡"     Launched from the U.S.S Kitty Hawk, you are flying a new B-1C bomber, armed";,РŒ‡"with six smart Phoenix missiles, and one bomb.  Your mission is to take out a   primary target, where Hussein and his Iranian counterpart are believed to be    hiding.  You may also destroy other things along the way to prove U.S. military",а–‡"might.":‡-Ц ‡"     But be careful.  You will be attacked by several different things.  A city or Mobile Missile Unit (MMU) may launch a Surface-to-Air Missile (SAM) or a     Ground-based Intercept MissilE (GIME).  You may destroy the MMUs if you want":‡.МЊ‡"     One last thing, recent intelligence reports have stated that Iraq is       developing radar-jamming equipment.  Still in its early stages, this equipment  may cause your search radar to pick up ghost cities that don't actually exist."/Д‡:‡"Good luck on this mission, pilot.  George is counting on you!"/6О‡:‡"Here is the fail-safe code for the bomb:";/DШQГџ„(ЌџŸ)/˜вFS$Гџ‹(џ„(26)Ћ64)Ћџ‹(џ„(26)Ћ64):ј 1,0:‡FS$;:ј 0,0:‡".  You should remember it."/Юм‡:‡:‡"Press any key to begin COCOBOMBER.":Ђ 44539/ьцAГџƒ0(2):’ 65497,0:Ѕ 2700№† 9,16,10,36,11,32,12,54,1,1,2,33,3,8,0,01њ€ AГ3584 Ѕ 3644: A$:’ A,џ‰("&H"ЋA$):‹ A:† BD,B3,ED,5D,27,36,F7,0E,1D,4F,B7,FF,D9,86,36,B7,FF,A1,5F,8E,20,00,A6,84,81,20,2F,08,80,00,A7,84,C6,01,20,04,86,20,A7,84,30,02,8C,2F,00,26,E7,C1,01,27,DF,86,79,B7,FF,A1,4F,B7,FF,D8,391
Йџƒ0Г3584:1%
CXГ19:RT$Гџ‹(13)1F
ΠST(CX),PL$(CX),X(CX),Y(CX)1b
"† USS KITTY HAWK,-5,-731v
,† BUSHIRE,5,-451Š
6† KHABIS,62,-201œ
@† MMU1,-23,261В
J† ASTERABAD,42,401У
T† MMU2,42,201е
^† BAKOL,30,381ч
h† MMU3,-15,501њ
r† TEHRAN,18,302
|† MMU4,-18,82
†† RESHT,7,502-
† MMU5,-39,52?
š† KHOI,-30,672X
Є† SULAIMANIYA,-35,362l
Ў† TIKRIT,-57,302}
И† HIT,-63,222’
Т† BAGHDAD,-51,132Ј
Ь† AN NAJAR,-49,-42М
ж† BASRA,-30,-162ю
р€ QГ1 Ѕ CX: PL$(Q),X,Y:X(Q)ГX­2:Y(Q)ГY­2:‹ Q3	
ъ€ QГ1 Ѕ CX:ST(Q)Г1:‹ Q3F
єPKГ6:BKГ1:CDГ90:XXГ0:YYГ.025:SPГ135:B1Г0:P(1)ГЌ1:P(2)ГЌ13X
ўPRГџ„(CXЌ1)Ћ13x… џŽ(PL$(PR),3)Г"MMU" Ї 5103К€ MГ1 Ѕ 8:MI(M)ГЌ1:MT$(M)Г"":‹ M:TY$(1)Г"GIME-":TY$(2)Г"SAM-"3аAГ2­3.1415926Ў3603т&X1ГЌ30:Y1ГЌ203щ0:ƒ3№::ƒ3їD:ƒ43Nё 1,21:ј 0,3:‡џЁ(33,32)Ћ"Input Window"ЋџЁ(33,32);:ј 0,04œXё 1,10:ј 0,1:‡" S=search C=course A=auto B=bomb P=phoenix E=ecm V=evasive I=stats L=locate  ";:ј 0,04сbё 0,0:ј 0,2:‡"B-1C"ЋџЁ(27,32)Ћ"Tactical Window"ЋџЁ(32,32);:ј 0,05.lё 0,11:ј 0,1:‡џЁ(25,32)Ћ"General Communications Window"ЋџЁ(25,32);:ј 0,06vA1Г0:P1$Г"Your primary target is the city of "ЋPL$(PR)Ћ".":І2010:P1$ГRT$:І2010:P1$Г"Phoenix Missile range is 10 km.":І2010:P1$Г"Bomb range is less than 2 km.":І2010:P1$Г"Enemies will fire within 25 km.":І2010:P1$ГRT$:І20106x€A1Г5:P1$Г"Flight computer awaiting instructions:":І 2060:A1Г0:P1$ГRT$:€ QГ1 Ѕ 7:І 2060:‹ Q6‡Šˆ № Ѕ 6606˜”:ƒ MAIN MENU6Ÿž:ƒ6ЉЈI$Гџ’6КВ… MIГ0 Ї 7406ђМ€ MГ1 Ѕ 8:… MI(M)ГЌ1 Ї 730 :„ MI(M)ГMI(M)Ќџ„(0)Ў2.17hЦMK(M)ГMK(M)Ќ.25:… MK(M)ДГ0 Ї P1$ГMT$(M)Ћ" explodes harmlessly in midair.":І 2010:P1$ГRT$:І 2010:MI(M)ГЌ1:Ѕ 7307~а… MI(M)ДГ1 Ї 16307†к‹ M8ф… P(1)ГВ0 Ї P(1)ГP(1)Ќџ„(0)Ў2:… P(1)ДГ0 Ї A1Г4:P1$ГPL$(PT(1))Ћ" is destroyed!":І 2010:A1Г0:P1$ГRT$:І 2010:ST(PT(1))Г0:PT(1)ГЌ18’ю… P(2)ГВ0 Ї P(2)ГP(2)Ќџ„(0)Ў1.5:… P(2)ДГ0 Ї A1Г4:P1$ГPL$(PT(2))Ћ" is destroyed!":І 2010:A1Г0:P1$ГRT$:І 2010:ST(PT(2))Г0:PT(2)ГЌ18ЈјX1ГX1ЋXX:Y1ГY1ЋYY9… B1В0 Ї B1ГB1Ќџ„(0)Ў5:… B1ДГ0 Ї B1Г0:A1Г4:P1$ГPL$(B2)Ћ" is destroyed!":І2010:A1Г0:P1$ГRT$:І2010:ST(B2)Г09C… I$Г"C" Ї … APГ2 Ї APГ1:Ѕ 870 :„ 8709W… I$Г"L" Ї 10009k … I$Г"B" Ї 21009*… I$Г"S" Ї 10909“4… I$Г"V" Ї 18709Ї>… I$Г"I" Ї 19209ЛH… I$Г"E" Ї 16609ЯR… I$Г"P" Ї 1760:J\… I$Г"A" Ї … APГ0 Ї APГ2:XXГXX­10:YYГYY­10:P1$Г"Autopilot activated.":І 2060:P1$ГRT$:І 2060:SPГSP­3 :„ … APГ2 Ї APГ1:Њf… APГ1 Ї APГ0:P1$Г"Autopilot deactivated":І 2060:P1$ГRT$:І 2060:XXГXXЎ10:YYГYYЎ10:SPГSPЎ3:Нp… I$Г"C" Ї 950:лz… APВ0 Ї … џ„(2)Г1 Ї 1420:љ„… APГ0 Ї … џ„(5)Г1 Ї 1420;#Ž… APВ0 А џŸВ100 Ї џŸГ0:І 1230:Ѕ 940;I˜… MIГ0 Ї … џŸВ1500 Ї џŸГ0:І 1230;mЂ… MIДВ0 А џŸВ500 Ї џŸГ0:І 1230;xЌЅ 660;Ж:ƒ CHANGE COURSE;дРP1$Г"Current heading is"Ћџˆ(CD)Ћ" degrees":І 2060:P1$ГRT$:І 2060<*Ъё 0,22:‰"New heading";ND:ё 0,22:‡џЁ(79,32);:NDГџ‚(џ(ND)):… NDВ360 Ї 970 :„ CDГND<NдXXГ.05­џ•(CD­A):YYГ.05­џ…(CD­A)<YоЅ 660<nш:ƒ LOCATE A CITY<Ћђё 0,22:‰"Where do you want to go?";A$:ё 0,22:‡џЁ(79,32);<ГќQГ1<і… џŽ(PL$(Q),џ‡(A$))ГA$ Ї XГX(Q):YГY(Q):І 1310:Ѕ 1040 :„ 1060=!… DГЌ1 Ї 1050 :„ … DГЌ2 Ї 1060 :„ 1070=Œ… ST(Q)Г0 Ї P1$ГPL$(Q)Ћ" (now destroyed) is below you.":І 2060 :„ P1$ГPL$(Q)Ћ" is below you.":І 2060=У$QГQЋ1:… QГCXЋ1 Ї P1$ГRT$:І 2060:Ѕ 660 :„ Ѕ 1030>b.… ST(Q)Г0 Ї P1$ГPL$(Q)Ћ" (now destroyed) bears"Ћџˆ(TH)Ћ" degrees at"Ћџˆ(D)Ћ" km.":І 2060 :„ P1$ГPL$(Q)Ћ" bears"Ћџˆ(TH)Ћ" degrees at"Ћџˆ(D)Ћ" km.":І 2060>n8Ѕ 1060>ЏB:ƒ SEARCH FOR CITIES WITHIN 40 KM AND RETURN RANGE AND ANGLE>иLP1$Г"Locations within 40 km:":І2060>чV€ QГ1 Ѕ CX?`… џ‚(X1ЌX(Q))В40 Б џ‚(Y1ЌY(Q))В40 Ї 1200?.jXГX(Q):YГY(Q):І 1310?Et… QГ1 А DД5 Ї 2190?_~… DГЌ1 Ї 1160 :„ 1180?Щˆ… ST(Q)Г0 Ї P1$ГPL$(Q)Ћ" (now destroyed) is below you.":І2060 :„ P1$ГPL$(Q)Ћ" is below you.":І 2060?е’Ѕ 1200?чœ… DВ40 Ї 1200@…І… ST(Q)Г0 Ї P1$ГPL$(Q)Ћ" (now destroyed) bears"Ћџˆ(TH)Ћ" degrees at"Ћџˆ(D)Ћ" km.":І 2060 :„ P1$ГPL$(Q)Ћ" bears"Ћџˆ(TH)Ћ" degrees at"Ћџˆ(D)Ћ" km.":І2060@А‹ Q@ЁКP1$ГRT$:І 2060@ЌФЅ 660@рЮ:ƒ SEARCH FOR CITIES WITH 10 KM (PHOENIX RANGE)Aи€ QГ2 Ѕ CX:… ST(Q)Г0 Ї 1270AFт… џ‚(X1ЌX(Q))В11 Б џ‚(Y1ЌY(Q))В11 Ї 1270 :„ XГX(Q):YГY(Q):І 1310AІь… DД11 Ї A1Г1:P1$ГPL$(Q)Ћ" is in Phoenix range.":І 2010:A1Г0:P1$ГRT$:І 2010:… APГ2 Ї APГ1AЎі‹ QAуMIГ0:€ MГ1 Ѕ 8:… MI(M)ДВЌ1 Ї MIГ1:MГ9:‹ M :„ ‹ MAј
… MIГ1 Ї І 1560BЅ 660BP:ƒ COMPUTE ANGLE, DISTANCE; INPUT X=X POS, Y=Y POS, X1=YOUR X, Y1=YOUR YBb(XГXЌX1:YГYЌY1Bx2DГџ›((X)Џ2Ћ(Y)Џ2)B‘<… DГ0 Ї DГЌ1:Ѕ 1410BцFXГXЎD:… XДЌ.99999999 Б XВ.99999999 Ї DГЌ2:Ѕ 1410 :„ THГЌџ”(XЎџ›(ЌX­XЋ1))Ћ1.5708BђPTHГTHЎACZ… џ€(Y(Q)ЌY1)ГЌ1 Ї THГ360ЌTHC!dTHГџ(TH)C-nDГџ(D)CIx:ƒ D=DISTANCE, TH=ANGLECO‚C†Œ:ƒ A CITY FIRES A MISSILE MISSILE ARRAY IS MI(1-8)C–MFГ0Cž € QГ2 Ѕ CXCГЊ… ST(Q)Г0 Ї 1530CрД… џ‚(X1ЌX(Q))В25 Б џ‚(Y1ЌY(Q))В25 Ї 1530CњОXГX(Q):YГY(Q):І 1310DШ… DВ25 Ї 1530D"в… џ„(8)ДВ1 Ї 1530D0м€ MГ1 Ѕ 8Eц… MI(M)ГЌ1 Ї MI(M)ГD:MT$(M)ГTY$(џ„(2))Ћџ(џˆ(џ„(9)),1):MK(M)ГD:MFГ1:A1Г2:P1$Г"*ALERT*":І 2010:A1Г3:P1$ГPL$(Q)Ћ" launches a "ЋMT$(M)Ћ".  Range is"Ћџˆ(D)Ћ" km.":І 2010:P1$ГRT$:І 2010:A1Г0:MГ9:… APГ2 Ї APГ1E№‹ MEњ‹ QE5… MFГ1 Ї P1$ГRT$:І 2010:MFГ0E@Ѕ 660Eh:ƒ PRINT MISSILES AND RANGE THEREOFEv"€ MГ1 Ѕ 8EŒ,… MI(M)ГЌ1 Ї 1600Eд6A1Г3:P1$ГMT$(M)Ћ" range is"Ћџˆ(џ(MI(M)­10)Ў10)Ћ" km.":І 2010:A1Г0Eм@‹ ME№JP1$ГRT$:І 2010EіTF^:ƒ GAME OVERFŽhAГџƒ0(Ќ1):’ 65497,0:€ GГ1 Ѕ 20:žџ„(9)Ќ1:‹ G:ž1:‡"COCOBOMBER EXPLODES IN MIDAIR AFTER BEING HIT BY ENEMY FIRE.  ALL CREW ARE DEAD."FšrЅ 2240Fб|:ƒ ELECTRONIC COUNTER MEASURES TO JAM MIG MISSILESFк†MFГ0Fы… MIГ0 Ї 660Fљš€ MГ1 Ѕ 8GЄ… MI(M)ГЌ1 Ї 1730G%Ў… џ„(5)ДВ3 Ї 1730GjИA1Г1:P1$ГMT$(M)Ћ" loses target lock.":І 2010:A1Г0:MI(M)ГЌ1:MFГ1GrТ‹ MGЬ… MFГ1 Ї P1$ГRT$:І 2010GšжЅ 660GИр:ƒ LAUNCH PHOENIX MISSILEH%ъ… P(1)ГВ0 А P(2)ГВ0 Ї P1$Г"Computer can only lock two missiles at a time":І 2010:P1$ГRT$:І 2010:Ѕ 670Hyє… PKГ0 Ї P1$Г"You have no more Phoenix missiles":І 2010:P1$ГRT$:І 2010:Ѕ 670HўPГ1H•… P(P)ГВ0 Ї PГ2HЭё 0,22:‰"Target to lock on ";TG$:ё 0,22:‡џЁ(79,32);HеQГ1I&… џŽ(PL$(Q),џ‡(TG$))ГTG$ Ї XГX(Q):YГY(Q):І 1310 :„ 1850IЧ0… DД11 Ї A1Г4:P1$Г"PHOENIX MISSILE AWAY!":І2010:A1Г0:P1$ГRT$:І 2010:P(P)ГD:PT(P)ГQ:PKГPKЌ1:QГCX :„ P1$ГPL$(Q)Ћ" is out of Phoenix range.":І 2010:P1$ГRT$:І 2010:QГCX:Ѕ 1850Iр:QГQЋ1:… QГCXЋ1 Ї 670IьDЅ 1830JN:ƒ EVASIVE ACTIONJ$X€ QГ1 Ѕ 8:І 2010:І 2060:‹ QJ?b€ MГ1 Ѕ 8:MI(M)ГЌ1:‹ MJclX1ГX1Ћџ„(50)Ќ25:Y1ГY1Ћџ„(50)Ќ25J{vCDГџ„(360)Ќ1:Ѕ 980J‰€:ƒ STATUSJ’ŠA1Г4JИ”P1$Г"B-1C Bomber status:":І 2060JўžP1$ГRT$:І 2060:P1$Г"Current heading:"Ћџˆ(CD)Ћ" degrees.":І 2060K(ЈP1$Г"Primary target:"ЋPL$(PR):І 2060KPВP1$Г"Speed:"Ћџˆ(SP)Ћ" km/h":І 2060K{МP1$Г"Phoenix missiles:"Ћџˆ(PK):І 2060K›ЦP1$Г"Bombs:"Ћџˆ(BK):І 2060KЛаA1Г0:P1$ГRT$:І 2060:Ѕ 660Kжк:ƒ SCROLL UPPER SCREENLф:ƒ INPUT STRING VIA P1$;K1=LINE COUNTERLLю€ K1Г1 Ѕ 7:P1$(K1)ГP1$(K1Ћ1):A1(K1)ГA1(K1Ћ1):‹ K1:P1$(8)ГP1$:A1(8)ГA1L‚ј€ K1Г1 Ѕ 8:ј A1(K1),0:ё 0,K1:‡P1$(K1):‹ K1:ё 0,10LˆLЃ:ƒ SCROLL LOWER SCREENLэ€ K1Г1 Ѕ 7:P2$(K1)ГP2$(K1Ћ1):A2(K1)ГA2(K1Ћ1):‹ K1:P2$(8)ГP1$:A2(8)ГA1M& € K1Г1 Ѕ 8:ј A2(K1),0:ё 0,K1Ћ11:‡P2$(K1):‹ K1:ё 0,10M,*M=4:ƒ DROP BOMBMŒ>… BKГ0 Ї A1Г0:P1$Г"You have no more bombs.":І 2010:P1$ГRT$:І 2010:Ѕ 660MРHё 0,22:‰"Target to bomb";TG$:ё 0,22:‡џЁ(79,32);N_Rё 0,22:‰"Fail-safe code for bomb:";F$:ё 0,22:‡џЁ(79,32);:… F$ДВFS$ Ї P1$Г"NO AUTHORIZATION FOR BOMB. CHECK FAIL-SAFE CODE.":І 2010:P1$ГRT$:І 2010:Ѕ 660Ng\QГ1NЄf… џŽ(PL$(Q),џ‡(TG$))ГTG$ Ї XГX(Q):YГY(Q):І 1310 :„ 2170OOp… DД2 Ї A1Г4:P1$Г"BOMB HAS BEEN DROPPED":І2010:B2ГQ:BKГBKЌ1:A1Г0:P1$ГRT$:І2010:B1ГD:QГCX :„ P1$ГPL$(Q)Ћ" is not in bomb range.":І 2010:P1$ГRT$:І 2010:QГCX:Ѕ 2170OhzQГQЋ1:… QГCXЋ1 Ї 670Ot„Ѕ 2150OŽ:ƒ ENDO–˜AГџƒ0(1):’ 65497,0OшЂ… BKГ1 А PKГ6 Ї ‡"Why are you back without shooting a single thing?:GOTO 2130PYЌ‡"Your mission was successful, and proved the U.S. and Allied military might to   Hussein and the Ayatolla."Q1Ж‡:… ST(PR)Г0 Ї ‡"George is especially happy that you destroyed your primary target!" :„ ‡"George is reasonably happy, because although you did not destroy your primary   target, the mission was still a success."QGР’ 65496,0:ј 0,0:Š the Ayatolla."Q1Ж‡:… ST(PR)Г0 Ї ‡"George is especially happy that you destroyed your primary target!" :„ ‡"George is reasonably happy, because although you did not destroy your pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!&
’&HF812,&H21:’&HF91C,&H21&D’&HFFB8,63:’&HFFB9,36:’&HFFBA,54&i’&HFFB1,34:’&HFFBD,45:’&HFFBC,58&З(Œ W$(20),PR$(20),R$(20),F1$(20),F2$(20),A$(20),B$(20),C$(20),D$(20),L(20)&Ь2т80:у0,0:ž1:ј3,0&и<€XГ1Ѕ20'F W$(X),PR$(X),R$(X),F1$(X),F2$(X),A$(X),B$(X),C$(X),D$(X)'0PL(X)Г2­(џ‡(W$(X))Ќ1)'6Z‹'Ld NU$,S1$,S2$,S3$'–nM3Г442929:M7Г443569:M9Г443889:CMГ444369:IMГ445329:AMГ444049:EMГ444689'Ђx€YГ1Ѕ20'Ю‚хAMЌ(IЋ2),3:хAMЋI,3:хEMЌ(IЋ2),3:хEMЋI,3'иŒIГIЋ2'о–‹( IГ0:ё23,12:ј4,0:‡"IT PAYS TO ENRICH YOUR WORD POWER.";(6Њё35,18:ј2,0,U:‡NU$;:ј0,0([Дё35,23:ј2,1,B:‡" ANY KEY ";:ј0,0(sОZ$Гџ’:… Z$Г"" Ї 190(Ш€XГ1Ѕ20(…вž(Ѓмё32,0:ј0,0:‡"WORD No ";X;(Фц€YГ442593 Ѕ 442613 Љ2:хY,5:‹(г№€ YГ1 Ѕ 40(џњхM3Ќ(IЋ2),3:хM3ЋI,3:хM7Ќ(IЋ2),3:хM7ЋI,3)	
IГIЋ2)
‹)
IГ0)P
"ё18,5:‡"Pick the answer that you think is correct.";)b
,ё32,9:‡W$(X);)ˆ
6€YГ444033 Ѕ 444033ЋL(X) Љ2:хY,6:‹)š
@LEГџ‡(PR$(X)))Ъ
J… LEДГ12 Ї XXГ(LEЌ12)Ў2 :„ LEГLEЌ12:XXГLEЎ2*"
T… LEВ0 Ї ё54ЋXX,9:ј0,0,U:‡" pronounced";:ё53,11:ј0,0:‡"(";:ј4,2:‡PR$(X);:ј0,0:‡")";*+
^ј2,0*k
hё25,13:‡A$(X);:ё25,15:‡B$(X);:ё25,17:‡C$(X);:ё25,19:‡D$(X);*t
rј3,0*‹
|Z$Гџ’:…Z$Г"" Ї 380*Ѓ
†… R$(X)Г"A" Ї YYГ13*Л
… R$(X)Г"B" Ї YYГ15*г
š… R$(X)Г"C" Ї YYГ17*ы
Є… R$(X)Г"D" Ї YYГ19+$
Ў… Z$ГR$(X) Ї ё32,22:‡"CORRECT";: 200,1:SCГSCЋ1:Ѕ450+B
И… Z$ДВR$(X) Ї І490:Ѕ470+‘
Тё40,22:ј4,0:‡"---- YOU ANSWERED (";Z$;")";:ё4,22:ј2,1,B:‡" ANY KEY ";:ј0,0+Ј
ЬZ$Гџ’:…Z$Г"" Ї 460+Ў
ж‹+И
рЅ550+љ
ъј0,0:ё1,YY:ј4,0:‡"ANSWER = (";R$(X);")";:ё1,21:ј0,0:‡F1$(X);,
єё1,23:‡F2$(X);,,
ўё70,19:ј2,1,B:‡" ANY KEY ";,CZ$Гџ’:…Z$Г"" Ї 520,Lј0,0,R,X&ž,0ј0,0:ё30,0:‡"VOCABULARY RATINGS";:,Ÿ:€YГ442589 Ѕ 442623Љ2:хY,5:‹,­D€YГ1 Ѕ 40,йNхM3Ќ(IЋ2),3:хM3ЋI,3:хM9Ќ(IЋ2),3:хM9ЋI,3,уXIГIЋ2,щb‹,ёlIГ0-
vё20,5:‡S1$;-€ё20,6:‡S2$;-!Šё20,7:‡S3$;-J”ё28,11:‡"YOU SCORED ";SC;" correct";-iž€YГCMЌ24 Ѕ CMЋ20 Љ2:хY,6:‹-лЈё25,14:ј2,0:‡"(A) To play again.":ё25,16:‡"(B) To see all word definitions.":ё25,18:‡"(C) To end programme.";-ђВZ$Гџ’:…Z$Г"" Ї 690.М…Z$Г"A" Ї Ž.Ц…Z$Г"B" Ї І740.(а…Z$Г"C" Ї ž:Š.2кЅ690.8фž.Fю€XГ1 Ѕ 20.Lјž.jё32,0:ј0,0:‡"WORD No ";X;.‹€YГ442593 Ѕ 442613 Љ2:хY,5:‹.LEГџ‡(PR$(X)).Э … LEДГ12 Ї XXГ(LEЌ12)Ў2 :„ LEГLEЌ12:XXГLEЎ2/%*… LEВ0 Ї ё54ЋXX,8:ј0,0,U:‡" pronounced";:ё53,Ђ€PН\ЏŽџџŒ'0 їџйННчBНсО@ŽŸгь„§@ЏЮ;ƒZ$	ь„эСЏ ёОTŸгОVŸеН5ОRŸзОTŸгН5ОNŸгОPŸеН5Н5aН5}L'Н5шННрџН€џи9€Ž/ŽџЉІ€Ї ŒџЏ&і9Ž5 ьŽ;ŽџАьэЁŒџР%іЖKЗџš990123>0123=>ŽџЁЦ0ŒџЄ$ч€\ іžІ40ŸІНЯУ5ŸІŽџЁЦ"€9ŒџЄ$ч€\ іЬ
мн9"SCREEN  /NIB"

 
!р€5žгŽœе%
9ц„o€ч  ђŽПџžг1?Œ@%цЄoЄч„1?0 ю0
ŸЯЮ@Ž†€—Ы“з%пг9ІЄ”Ы'І€—ЬжЬчРЫ
Ы&ф†€—Ы1! мŽПџžг1?Œ@$0
П 9цЄч„oЄ1?0 ~5€шŽŽ@ў †€—йЫŒР%
9ІЄ”й'Н5У–ЭЇ„йІЄ”й'Н5У–ЬЊ„Ї€й
й&憈—й1! Ю
Ы'цРФЫзЬXXXXзЭ ЫцФФ№зЭTTTTзЬ 9Ž@Ž@ ŒР%
9ц€шЄч  ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџM>':ƒ ******************************>Md:ƒ *           NIBLOADER        *>sn:ƒ *              BY            *>™x:ƒ *          RICK COOPER       *>П‚:ƒ *           (C) 1990         *>хŒ:ƒ *                            *?–:ƒ *        DISTRIBUTED BY      *?1 :ƒ * RICK'S COMPUTER ENTERPRISE *?WЊ:ƒ *         P.O. BOX 276       *?}Д:ƒ *      LIBERTY, KY. 42539    *?ЂО:ƒ******************************?ЉШР8?Бвт32?Имž0?ШцгM"NIBLOADR?ћ№… џ†(&HCFC3)ДВ&H8D Ї ’ &HE76,&HCE:’ &HE77,&HE7@њ‡ @37,"CFDM COCO GALLERY MENU";@8
‡ @101,"1) MOORING";@R
‡ @165,"2) BUILDBOW";@i
‡ @229,"3) HEIAU";@
"‡ @293,"4) PAGODA";@—
'‡ @357,"5) QUIT";@Џ
,I$Гџ’:… I$Г"" Ї 300@Ю
6IГџ‰(I$):… IД1 Б IВ5 Ї 300@м
@… IГ5 Ї Š@ї
J… IГ1 Ї F1$Г"MOORING "A
T… IГ2 Ї F1$Г"BUILDBOW"A-
^… IГ3 Ї F1$Г"HEIAU   "AH
c… IГ4 Ї F1$Г"PAGODA  "AU
hL2Г&HE92Ak
r€ XГ0 Ѕ џ‡(F1$)Ќ1A†
|’ L2,џŠ(џ(F1$,XЋ1,1))A’
†L2ГL2Ћ1Aš
‹ XAЧ
š… IГ1 Ї M1$Г"MOORING":M2$Г"KEIRAN KENNY"Aѕ
Є… IГ2 Ї M1$Г"BUILDBOW":M2$Г"KEIRAN KENNY"B"
Ў… IГ3 Ї M1$Г"HEIAU":M2$Г"GODFREY J MOLL"BM
Г… IГ4 Ї M1$Г"PAGODA":M2$Г"NORM BARSON"BT
Иž0Bm
ТM1Г174Ќџ(џ‡(M1$)Ў2)B†
ЬM2Г303Ќџ(џ‡(M2$)Ў2)BЎ
ж‡ @35,"COCO FRIENDS DISK MAGAZINE";BХ
р‡ @107,"PRESENTS";Bф
ъ‡ @M1,џ‹(255);M1$;џ‹(255);Bѕ
є‡ @238,"BY";C
ў‡ @M2,M2$;C’ &HE6E4,&HE6C"Ђ &HF00C)ф2C;&… џ’Г"" Ї 550CA0їCL:Ѕ 200T
Иž0Bm
ТM1Г174Ќџ(џ‡(M1$)Ў2)B†
ЬM2Г303Ќџ(џ‡(M2$)Ў2)BЎ
ж‡ @35,"COCO FRIENDS DISK MAGAZINE";BХ
р‡ @107,"PRESENTS";Bф
ъ‡ @M1,џ‹(255);M1$;џ‹(255);Bѕ
є‡ @238,"BY";C
ў‡ @M2џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ10:ј0,0:‡"(";:ј4,2:‡PR$(X);:ј0,0:‡")";/74ё32,9:‡W$(X);/]>€YГ444033 Ѕ 444033ЋL(X) Љ2:хY,6:‹/kH€YГ1 Ѕ 40/—RхCMЌ(IЋ2),3:хCMЋI,3:хIMЌ(IЋ2),3:хIMЋI,3/Ё\IГIЋ2/Їf‹/ЏpIГ0/жzё0,14:ј3,0:‡F1$(X);:ё0,16:‡F2$(X);/і„ё32,23:ј2,1,B:‡" ANY KEY ";0ŽZ$Гџ’:… Z$Г"" Ї 9100˜ј0,00Ђ‹0'ЌЅ55001ЖЅ9500Xш:ƒ REM  RD DEC 87    WORD NUMBER 10xђ† RESOUND v," reh-zownd ",B0йќ† "To echo; fill with sound; as, the sound RESOUNDED through the house like        thunder."1† "Latin RESONARE (to sound intensely)."1B† "(A) to reply.","(B) echo.","(C) regain.","(D) sing."1i:ƒ REM               WORD NUMBER 21‰$† OPAQUE adj," oh-payke ",A2.† "Not transparent; as, It was so dark that...he could scarcely distinguish the    transparent window from the OPAQUE walls."2)8† "Latin OPACUS (shady)."2yB† "(A) not transparent.","(B) slanting.","(C) disguised.","(D) egg shaped."2 L:ƒ REM               WORD NUMBER 32РV† AVARICE n," av-er-iss ",D3!`† "Greed for gain, money; as, Scrooge...had begun to wear the signs of care and    AVARICE."3@j† "Latin AVARUS (greedy)."3t† "(A) dislike.","(B) ambition.","(C) retribution.","(D) greed for money."3Ж~:ƒREM                WORD NUMBER 43тˆ† INCREDULOUS adj," ni-kred-yoo-lus ",C4^’† "Sceptical; unwilling to believe; as, Though he looked the phantom through and   through...he was still INCREDULOUS."4œ† "Latin IN- (not) and CREDULUS (believing)."4нІ† "(A) unimportant.","(B) unbelievable.","(C) sceptical.","(D) growing."5А:ƒ REM               WORD NUMBER 55"К† REGALE v," ree-gayl ",C5bФ† "To entertain; as, to REGALE him with a christmas carol."5†Ю† "Old French GALE (pleasure)."5би† "(A) to commiserate.","(B) control.","(C) entertain.","(D) retreat."5јт:ƒ REM               WORD NUMBER 66ь† LUSTROUS adj," luss-trus ",D6ˆі† "Shining; glossy; as, round its waist was bound a LUSTROUS belt, the sheen of    which was beautiful."6А† "Latin LUSTRARE (to illuminate)."6ђ
† "(A) passionate.","(B) sweet.","(C) costly.","(D) shining."7:ƒ REM               WORD NUMBER 77A† SCRUTINISE v," skroo-tih-nyze ",A7Œ(† "To examine closely; as, secrets that few would like to SCRUTINISE."7А2† "Latin SCRUTARI (to search)."8	<† "(A) to examine closely.","(B) act honourably.","(C) doubt.","(D) demand payment."80F:ƒ REM               WORD NUMBER 88RP† SYLLABLE n," sil-uh-b'l ",C8еZ† "Unit of pronunciation, either as a word or part of a word; as, He tried to say  Humbug! but stopped at the first SYLLABLE."8ьd† "Greek SULLABE."9Rn† "(A) term of endearment.","(B) obscure word.","(C) unit of pronunciation.","(D) study program."9yx:ƒ REM               WORD NUMBER 99Є‚† INCOHERENT adj," in-koh-heer-ent ",C9ёŒ† "Hard to understand; as, INCOHERENT sounds of lamentation and regret.":,–† "Latin IN- (not) and COHAERERE (to stick together).":‰ † "(A) out of sequence.","(B) disagreeing.","(C) hard to understand.","(D) embarrassed.":БЊ:ƒ REM               WORD NUMBER 10:ЩД† RAIL v," rayl ",B;О† "To abuse; use abusive language; as, He may RAIL at Christmas.";OШ† "Latin RUGIRE (to bellow) and Romanic BRAGERE (to bray).";–в† "(A) to come together.","(B) abuse.","(C) debate.","(D) revive.";Ом:ƒ REM               WORD NUMBER 11;дц† EKE v," eek ",D<6№† "To make best use of; as, goose...EKED out by the apple sauce and mashed         potatoes."<_њ† "Old English EACAN (to increase)."<Џ† "(A) to go hungry.","(B) decorate.","(C) escape.","(D) make best use of."<з:ƒ REM               WORD NUMBER 12<ѕ† FRAUGHT adj," frawt ",D=8"† "Filled; threatening or involving; as, FRAUGHT with misery."=v,† "From obsolete Middle English FRAUGHT (to load cargo)."=Г6† "(A) afraid.","(B) keen.","(C) distant.","(D) filled."=л@:ƒ REM               WORD NUMBER 13=єJ† FEIGN v," fayn ",B>jT† "To pretend, simulate; as, Hello! growled Scrooge, in his accustomed voice as    near as he could to FEIGN it.">^† "Latin FINGERE (to contrive).">хh† "(A) to divert attention.","(B) pretend.","(C) lose heart.","(D) congratulate."?
r:ƒ REM               WORD NUMBER 14?3|† INTRICATE adj," in-truh-kit ",A?Ћ†† "Complicated; as, Heavy wheels... made INTRICATE channels, hard to trace, in the thick yellow mud and icy water."?в† "Latin INTRICARE (to entangle)."@ š† "(A) complicated.","(B) delicate.","(C) inseparable.","(D) attractive."@HЄ:ƒ REM               WORD NUMBER 15@lЎ† PENITENCE n," pen-ih-t'ns ",B@МИ† "Remorse or regret; as, Scrooge...was overcome with PENITENCE amd grief."@сТ† "Latin PAENITERE (to repent)."AЬ† "(A) relief.","(B) remorse.","(C) deceit.","(D) anger."AGж:ƒ REM               WORD NUMBER 16AWр† CANT n,,BA›ъ† "Insincere, hypocritical talk; as, Forbear that wicked CANT."AМє† "Latin CANTARE (to sing)."Bў† "(A) frankness.","(B) insincere.","(C) prayer.","(D) decree."B(:ƒ REM               WORD NUMBER 17BE† DISPEL v," dis-pel ",DBЊ† "To scatter or disperse; as, The shadows of the things that would have been, may be DISPELED."Bм&† "Latin DIS- (away) and PELLERE (to drive)."C 0† "(A) to extract.","(B) divide.","(C) replace.","(D) scatter."CH::ƒ REM               WORD NUMBER 18CiD† MOROSE adj," muh-rohss ",CCОN† "Gloomy or sullen; as, What reason have you to be MOROSE? you're rich enough."CпX† "Latin MOROSUS (peevish)."D!b† "(A) foolish.","(B) sickly.","(C) gloomy.","(D) sarcastic."DIl:ƒ REM               WORD NUMBER 19Dnv† OFFICIOUS adj," uh-fish-us ",BD戆 "Meddlesome, intrusive; as, taking off her shawl and bonnet for her with         OFFICIOUS zeal."DћŠ† "Latin OFFICIOSUS (obliging)."E`”† "(A) representing authority.","(B) meddlesome.","(C) needlessly complicated.","(D) efficient."Eˆž:ƒ REM               WORD NUMBER 20EЏЈ† DECLENSION N," deh-klen-shun ",AEіВ† "Drop or decline; as, a sudden DECLENSION in his high spirits ."F&М† "Latin DE- (down) and CLINARE (to bend)."FhЦ† "(A) drop.","(B) refusal.","(C) statement.","(D) transfer."Fyа† "NUMBER 3"FЈк† "14--15 correct ...................fair"Fзф† "16--18 correct ...................good"Gю† "19--20 correct ..............excellent"down) and CLINARE (to bend)."FhЦ† "(A) drop.","(B) refusal.","(C) statement.","(D) transfer."Fyа† "NUMBER 3"FЈк† "14--15 correct ...................fair"Fзф† "16--18 correct ...................good"Gю† "19--20 correct ..............exc`”6лl@0%Жл$
ЖРк и6лD@0mЖлl
ЖРли6л`@0$’‰$
"@й@˜2I(@0Р@ €
@@€омxxщєњŸ^JbS*Х\ѓо§їglії{ЖŒлЯzјбѓИмŸялџoа№ Аа
є> 
Ор?Р.€Єћ„ћ
‚§‚ћ@СџъƒіЬ†иЮ„g3tC9ŸD>&f0о9іc|ч|/цt>фј(wwљлкзgšƒл[ŒпŸYѓ№ч”аuЯћhС џпŸLџПМLФ_мџ€€ў=€ Йџє3§ъои€2{ Ўђљй[Осћ/`oЯ<шокѓx3ЗЫрg.?рЮ?џт$/Яямu§ВљХчtњьO™ЯўљЬЯі8ЙŒђпіЙœ}тоЯg§ї>gЯ№ю;о§œЯѕЏ­-яэїЇ–жппу__ўёдќ§лъ§њљT’џ~§eЧя
ПЗЊў‡;ѓfoёл?}П”1ЉœoДЪPћш$Рѕ`џž0kТРРs=Є‚Р†z, Чг2,hаСУ
†0``РрA0`џO&
ž:‡"CHOICE OF INSTRUCTIONS FOR HAND CALCULATOR WITH [A^N] EXPONEN-  TIAL FUNCTION TO FIND EQUAL     LOAN PAYMENTS INCLUSIVE OF IN-  TEREST'Y‡:‡:‡"OR,YOU CAN GO RIGHT TO'BANKRATE'COMPUTER PROGRAMS WHICH ONLY RE-QUIRE YOUR INPUT UPON SCREEN    PROMPTS TO DETERMINE PAYMENT A- MOUNTS TO RETIRE LOANS OR DETER-MINE EARNED COMPOUND INTEREST.'…‡:‡:‰"PRINT OUT INSTRUCTIONS  (Y/N)";Y$'ž… Y$Г"Y" Ї 40 :„ 270(J(‡#Ќ2,"         1NTRUCTIONS TO USE HAND CALCULATOR (WITH [ A^N ] FUNCTION) TO COMPUTE         SERIES OF EQUAL LOAN PAYMENTS INCLUSIVE OF INTEREST COMPOUNDED PER PERIOD (‹2‡#Ќ2,"                            Written by Bill Rosenfeld"(™<‡#Ќ2:‡#Ќ2(ФF‡#Ќ2,"[LP] is individual Loan Payment.(хP‡#Ќ2,"[P] is Amount of Loan.)Z‡#Ќ2,"[N] is number of periods)*d‡#Ќ2,"[Z] is period interest )8n‡#Ќ2:‡#Ќ2)мx‡#Ќ2," Divide Interest by 12 to obtain monthly interest to be noted by 'Z' - If period is other than monthly, divide interest by number of periods in one year.*Y‚‡#Ќ2:‡#Ќ2,"A specific problem is to find monthly loan payments for a Loan of $10,000 at 6% annual interest for 18 months*“Œ‡#Ќ2:‡#Ќ2,"BASIC FORMULA is [LP = P/(((1-(1+Z)^N))/Z]*Ю–‡#Ќ2:‡#Ќ2,"To apply this Formula TO A HAND CALCULATOR.+4 ‡#Ќ2:‡#Ќ2,"STEP ONE: Z = .06/12= 0.005 (PLEASE NOTE THAT SYMBOL '/' STANDS FOR 'DIVIDE BY')":‡#Ќ2+зЊ‡#Ќ2,"STEP TWO: Use the character X to represent the portion of the Basic Formula < (1+Z)^-N> or  on calculator (1/(1+.005)^18) WHICH IS 1/1.0939=.91414":‡#Ќ2,Д‡#Ќ2,"STEP THREE:Formula is now condensed to [P/(1-X)/Z] or P/(1-.91414)/.005. Hold the top Dividend 'P' aside and calculate rest of the term which is 17.172":‡#Ќ2,пО‡#Ќ2,"STEP FOUR: Last step : LP =  P/17.172, or LP=$10,000/17.172. Answer is $582.34.":‡#Ќ2-{Ш‡#Ќ2:‡#Ќ2," THEREFORE 18 MONTHLY PAYMENTS , EACH $$582.34, WILL RETIRE THE $10,000 LOAN AND INCLUDE TOTAL INTEREST OF $482.18 FOR THE TERM OF THE LOAN.-­в‡#Ќ2:‡#Ќ2,"                          Q. E. D..м‡#Ќ2:‡#Ќ2:‡#Ќ2," THIS PROGRAM WILL NOW CONTINUE WITH COMPUTER-RUN BANK RATE CALCULATIONS".цž: Ѕ 240.;№‚ ** INTEREST COMPUTATIONS **.Zњ:ƒEDITED BY BILL ROSENFELD.„
ž:‡:‡Є4)"** INTEREST COMPUTATIONS **".Э
‡:‡:‡Є2)"SELECT THE FINANCIAL ACTIVITY IN WHICH YOU ARE INTERESTED:".ч
"‡:‡"<A> LOAN PAYMENT"/C
,‡"<D> COMPOUND INTE&Щ fІ№ё№ёэя№ёьЕп№ёьм[о№ё№ўм[P[о№ёэХЕА[PЕЭ№ё№ўХМЕНр№ё№ўеЕАЕЭ№ё№њэЫPЕА[Ю№ё­РPЕМп№ём[P[[]р№ё№чмЕАЕЮ№эŒ\[PЕЯ№‡Ы[P[^№ёЭќпpХЕАЕЕНр№ёмпи[Ы[PЕ[\﹧ќпь\МЕА[\№ё§ЯпќмМм\[Р[РЮёпЭ№ьpиЕМЕХЕ[РЯё짹њэ|АŒ…ЕЫPАЕpяёмпшзмŒ\иШм[Ча№ќё
짹ЏшзшРмиРШЫ[ЕРЯЯ№ќп
ўээРмаЭЩХЕМ[\аЯЯ№§ЯпјэчоРЭЫ[\зЕЭР№ќпё№§Э№ўŽ}эм\ОЮў|АWоžŒ№ќ§ё
№§ЯпЏ~оммœм
ŽŒPЮ|оŒ
№ќ§ё
№ќпЇя}эмймРЭ€ЮЯЭ§ё
№§ЯпЇшзм˜оЎЩэЭяэ€ЭЯЭ§№ё
№§Э№њўзЭРШмэѕЮ§Ммр№Яп
짹ЏxзмpРŽЕМм[Р[Ро№ќ§№ё
№ќпэ||Е[XмА[\[РЭ№ќ§№ё짹чэŒxЫ[[ШХАЕРpРЧ№ќп§Э№ўxяЭЧŒмзŒ[PЕЫP[P[РЭ~Э№ё짹ўїњўЭъќи|‡л[ЕМАМЕЭ|мўЯпЭ№яŽо}ЭчРэШ[ЕР\[PМо|мзр№ќ§№짹яшЏ‡њэŽŒпžХЕМœЫPХЮм~ЯЭ§№ё§Э№ўњјомŽЫ[ЕйР\[ЫЭэЭЧЯЭ§№ё§Япўїјмшэœ[PЕНРЫP\о~зоЯпЭ№ў~јшРаРЮмл[[ЩмеЕЭчп짹§Япў~ўмэ|зХЕпŸяпл[Э‡№ќпмп
ўїŒ‡аœЕА\иўь[\мпа№ќп짹ъэЧ‡Ю|Œ\PМиШмЕМо№ќ§№ќпњјиз‰эРЫ[Ы[\[\и№ќ§№§Э№я~иэ‡э[мP[\М
№ЯЭ§№§Япњ§язШўзŒЕЭэР€№ќп짹яэ‰шм[ЭэРШќпЭ№ўїоžоїžоЫ[\ЕМЕХЕМиЯпмпўŒоžњшэŒ\[Р[\а№ќ§№§ЯпчмщЎЏщЮЕХРЕХЕШ𝧹§ЯпїшЭžŸэщм[ЫХМ€ќ§№ќпўŒоиhомЕХМЕаќпмп
§ЭшэшэЫРЫ[ХАќп짹Џмэ˜яэщХЕЭЯЭ§№§Яп
§ЭЩ}эшљоЫ\аќпЭ№ЏЎЮойŽомаќ§№§Э№ЏЭ}љэž§ўпэ№ќ§№§ЯпЏмэxь§яэ№ќ§№§ЯпэЭЮопэўпЯпЭ№њўмйќьэчэРпЭ§№§Э№њё§Эьээ}эРпЯЭ§№§ЯпЏўЮойойоаяЯЭ§№§Яп
ёЏэщээьаяЯЭ§№ќп
њёЏэ}эь
ЮЯЭ§№§Э№ЏЁЏэРмоЯпмп
њ§эь
𝧹§Яп
ЏьэРк§ЯпЭ№Џњ§ЭэРкяаќ§№§Яп
њњ§ЮомаЭя ќпмп
њёњ§ЭяЏЯЭ§№§Яп
њїњ§Эяъ№ќпЭ№ЏЇЏаЭЮоЏ ќп짹ЏzњэомъњЯп짹ЏЎњаЭњўЏЯп짹ЏЁРаРЭяЏЎ ќ§№ќп
њъёЁРаРЮњ№ќ§№§Э№ЏЎЁэяЏЯп짹ЏЎЇЁьмњ№ќп짹ЏЎЁ­мяЏЎЏЯЭ§№ќп
њїЎЈzњ№РЭРмњъњ№§ќпмп
њxzqЁx РЭъ№ќп짹ЏъњъxЈqЌмкњъЯп짹ЏъњŠzxмм
Џ ќмќ§№ќп
њъњxјz‡ŠРмпЏ ќмќ§ўмп
њяъњ‡Šњам
њм§ЭЯр§Яп
њъњxЈz‡ Рм
ъўњммпр§Яп
њўЎњzxњм
яЏ ќМќоЭўЭ№ЏЎЈъњxqxЏ­ЭРоп §ЫЯпрќп
њъ~ЇЏЇъњм
РЭъњммоў짹ЏЎЈъzњzqЌм
РмоЏъЭЫРЫЭяЯп
њўЎЇŠzњ‡ЁЏ­
мъњъ
ЫРЭяЭ№§ќп№ЏЎŠшЇЏxЈ аРЮкњРЭЮЭ№ќпп
њъч‡Š‡ЏяЈxЁЏ аРЭЪњъќоЭ№§ЯпЭ№ЏЎЈЏЈzxz
ЏЎ ЌМьЯп
њўЇЈxЇњŠ

я
РЫРЭЮмяЯп
њъŠчЈzЏz‡
Эм
ъяЭРЫэЮ№ќп
њъxzъњzxЁ маРЎЏяРЫРЭЮ№§Э§
њчЇŠ‡ЏЇЁ аЭ
їммМпЮ№ќ§ё
њъчЈz‡ЏЁЈ аРЏРЭя
§ё
њъz‡њxЁz

ЫРЫЭРЭЫЭ№§ќё
њz‡ŠЈњŠ№аРї№§ЭРЫРЫЭрќё
њъz‡Š‡Їњz№аРї№мМММмо


њчЈЇЈxzњz‡Ё№аzммэў


њzxЈxЏЈxz№аї‡њпммМпр№№ЏъўЏzŠzњї‡
‡Џ №РЫРЭя


њїЏŠ‡ЇЏЁЏxЈЏ
xz‡ §РЭЮ№№ЏЇЈxЈzњїЈz
‡Јzммь№№ЏяЏЈzЏЇЈzё
ї‡Š‡ЇЏ ‡€§Эя

њzњїŠxЇЏz‡Šё‡ŠzxzŠpќмямаб
њїЏяxzчЇЏqŠёї‡Šxz‡Џям§

њ‡чЇ‡ЏЈxЈqxzxzŠї‡pќмМа№№ЏzїЇŠчЏŠxz‡ЈxЏ€јx}ЭРЫРЭ№

њїњ‡чЇњxЇ‡ЇŠ‡ЇЏx№xpэЭРЫРп
№ЏЎzxЇчЇїЇјxzxzŠ№qї‡аРп
№ЏЇЏЇЎ~Її‡Š‡ЇŠzЏxёяьп
ЏъўЏzъzъ~‡xЈxz‡Ї‡Šzњ№§ЭРп

њчЎzњ‡ї‡ЈzњўмМа№ЏzњъчЏz‡њxЈxЈxzxЏэЭЫРЭ№№№ЏЇњчњъ~їЏzЈzxЇ‡ЇЏпм№эс

њїњўЇЎzяЇЏzЇ‡Š‡ЇЏэРЯ
оп

њїњїЇЎЇъЏxz‡Ї‡ЇЏьаЭРэя

њЏzїЎЇъчЇњxЇ‡ЇЏьм№я

њїњъzъzїЏЈЇ‡ЇЏэЭРЯ
п

њїЏЎЇчЇЏЇŠzњўЭРя

њzњzъzњxЈЇЏмоЭРЮ
№ЏzњzњzњўмрЯС

њz~Їњўммр§С

њїЇЏЎЇЏмо
бб

њЏЇЎЇЏЭќр
ё

њъzёњўап

њzњёЏаб৹Џzњzњёњ§ў№п

њzњzњёЏпо№п

њъzњёЏоЭя

§№њzњёњќ§№рап
ё

њъzњёњќ§№б
пЏЏЯЭ№Н§№ЏЏЭ§№бБп
ЏњЯп
лэ
§
ЏЏмќп

ыОБба§
ЏЏЭ§№аыНсо
№ЏяЏЏм§№бНБап

њёњ§ЯЭ№оНо

њўњёњќп
сысб
б
оЏяЏЏЯп

ырЏЏЯЭ№АарасрЏЏЯп
абраб
ЏЏЯЭ№О





ЏЏпЭ§№рб
ЏЏм§№с
Н
рањёњ§ќп

рб

њёњЯп
аоАам

аб

њўњёњмќп
ОС
аЏЏ §ЯЭ§
аЏЏ §ќа№Аас



њўњёњЯм№ўАЮ
ЏЏмпЭ№оЮ
аС

њёњ№§Р№ас№арь


њёњ№§ќ
аь


РўњёњпР§
Н

С
ЏЏ
пЭ
НОРа

С
ЏЏ

ОрраРњёњ
ОоЭрАРаРњёњ
Бь

НАРњёњ
БаАНњёњ№яАРэ

СРњёњ№ё
эЁРалЫРЏЏ
ў
срсбЁ

срњёњ№
Ю
эрыо
ЏЏ
ёььоРьррЏЏ
ўЭсСэо

њёњ№СРАысъо
ЏЏ
ћЫоъСрэрњёњ№яС
ъЌрњёњ№ЮРръ
коњёњ№ёЁко
ЏЏ
ёЁск
ЏЏ
ёЁ
крњёњ№Ќњёњ№p~ьpq
Џ
Сp~Сpq
Џ

С
ьpq
Џ
p§С
Џ
ёqм
яС
ppњ№pёqЏСўЧp№Џ

qїёььрpqp№њ№ї
ЯсёўЧ№Џpq
p~p
њ№їЧp~p
њ№ї№Џ
њ№€vpvp~€
€vpG§@€	
@vpџh	@
@vpџъ 
рvp=џ{џ(P
ШvpП?€P(
Œvp
ПР>р`ЬР
€vpПƒа РР
@vp јРе4ŠlC@vpМ€ќРMЖl€рvp.<ўРЭЖl€Шtp{џ
џРЭЖlA
€`уџр
џ€РЭЖ 
%@
€~Ш
WџсРџ€Р`Р
€gЬЯџў8џРРР
€C€wОGпј>рР€wыј~рР€$w\€РѓР
џАРA\sn€ы_Г€?8Р`0
sЊ€пж7€8Р`0мyњ@Е}П№,РdАIE	lmР>џlћџРl0Уm€lgяРsн{шŒРe0R(€$єыР}ї{|ћъЮРa€Лt_ћРћ[ўењэЮРI0‘E
vt_Р
џаЌ“ї{EР|Д_яРЗьѕџ{ыР
њє_ыРуOŒОНћЎE@Р-ЖtЏћРк6џпн№wрРSts—РлџюџЫаРІ№e)яРчŽDџпџћpРfI T
ъ@{яZџЧџ™јРf’€2z€џёnялџїxР”( ВXe(
€ўїwџƒС§џјРfдmАЭЖ.Ь
n€
џПfљ‡ЭћЋИРfиEЭ˜ЏЈkћ№ЯуёџыА fиa€ЭАР
_``{№­џяс~Ж№`6и( Œ”˜7@зїэчЩ|…р`(o@o
?ЕџgпќВ€`P$’ы?=Ќ{яПД` I(ћ>о{?ќЌ`AvP›wћќ№ 	ьРэнзџчА
@ њ€яЏы§ƒйР€є€ћxm}pР	@;ђ›зџпџРBfфэОїџ‡џ€ 
Mяoхџ‡џ€š ћэюпџ	4€›ыЗќџўщэпЏ?џм]дяПўxџинАћsџOПАЛ ›(ГџјЃ`g€эVpџo­`ЩяJxџќ`)”ћA_ЧрS(›
={њр
.`эeџкрн@я
уџАрЛћ	џќёрК›жџљх`Wxэƒј
,ыPсўЈ™@ћ
0јPL	2€,љP6fя	џР €Eды"€&7ЮРр0ЛАћH"У@ { ˆВOР@.рTw€яв`@+р)Щя
P 1@#R`%”ћ0@ТРљXZz“(›Q
q
ќВV(
&`э
,	 Qў €U
M@я
 :a&рFСЛћFЬQ@џ&уGё‚€'z†m†гKЯ=ѓќ xыl
ё<ІŠ€P
я@@	=юЋџМњА
ˆ Y ћ
 НМ4Щ-џЬљb€`^В€$ДŒЙЃўШѕcњ}dэ

ЋџЛ чџЫ“РŽRЙЫјяk!КщПм{ЇЁ’
xјћ(А
Ю8€&ћWЙ`GŸы?В%‚yпИ07Аџ
€&њ6rџл2‚№…ї№XЋP7ўX
@Gz[ѕA
Ÿљs†1С‡ЯјДя`7ЖџРGЎЭѕ>Л…А2‹џ§žћ(`М
z8РE/lо @?њl‡1fX4џўVћX`РDŸюіРA>
h9@8gџЦЋД`Р@eџx?њhОЯ§цюЊ`РEKоf
B+ ќЮ|’`	э ˜РNT8oH ї‚щ(ˆOџўъth`
НпטРA!ŸfШ&З‚єЕШБ?ŸџбІ`	=ѕ@—˜РJ_п€ŸТƒtиpS?Юœр`Cь`טРD˜Уя‚@ГТAbа?џ—#™№`gю@Ч2РN@3эСšБ @кP?№эЋ+Є`РJЃЕa/ё B$/џ‡Х
№`РDЋР+ј@M2‰ ‘€0пѓџёР(	`РD3ўпјB'ђŽ І0џс A`єƒjЮ8РBlюМb1ОJР(gџ№§Р`ќ{ЗРDwсј@ў%P`8џЮРPu;ўX
@B
Лъј0…џ$e№xџќѓР0ёƒ{Я
€$ъпєЩџ!?€„џФ€@(љjЮ8€% ЗџqsП‘?В
?ў@ $ўИпƒ`мxфЇљ 
B

!іпw‚n‡У§г
8ˆџ€F$!S8ыі/`v:я
ГэGџ№(@ˆWъ—џs<?Ю
.џ№’ 2aUяр9ирF8xЎџИ
D*H^|1 Ÿр?љ?џx €U Jе1џ|Fќx(п€ј
 Ф @pЫhТџбУ
љџј€˜ƒЉџзщяњ˜cAЄ?љјD€dS;Ѓ#œђЮ61,Œџ№ %@?ыuїgџјƒ
ПљИ@Jа@
џaпeП@
ЬEџ№Gа 
Р:ћчџ­?ў˜~@#Ј(
 (€ќlw+ћё3>А@рФ @џоыћу! 
„2?џА
@"P	 
ŸЫ›мїЄŒУџ0€"8€?1ППа
	
џ 	
 ˆ(_еџa€%#пP*ŒPˆyгYрЦ2 @аH5X(ˆ€ŸR P|џ `^Ь 8˜`(аqЁљ 
 |


цЮ'<Р`)X!њ@€ЛжSŒ
š\ Ф	€­€€ŒР0{ЎŠЁ(Ф	
пA
@˜ш€jiZЁK
ъэ‚ ШЧC`
р„&R Шке„`аT3
€Ј’ #Д|(žЄPp=0l‚ZЁš:PПЌ(
pYŒР0#HZ ЯEf VњЬЬ5ƒ"ъZ[,зzъ
@
ŽЋИќ@V[ €О
€eяИ
€е†ˆ‹ 
Ъ6€evhЈ-@0ZX $Iѕ
}ќ˜јыр VS a_ЇrX€`
€œСˆИl
к€
Q]‡8
@`њИІZT њ€ЩД{hРxapfZT 
i/€ц?( `
fZR@nФ*Э@(Jѓ'(`lfVR@
ЪН@0О-hP\
 `ˆŠ@>
 PЬЗ<80vfZR@0 з``0Yљј(p	ІVR€
№	Нш l€ Јs ˆŠ€„/ё­’РŸ ј_˜ ` ZR€B<гs
@
E`th0ƒ ZR€RcЃg@
€
|П(0` ZR€Z+м`€hТ'7(
0 VRа(eƒ$нш0
эа03ˆŠ€ƒBr О<P0`Р`ZR€€–QЉ‘љћр0VR€
D*ђ@5ицЄЂ (3ШˆŠМ!l@/ЌOŸ@€0ˆZR€!@r
TqŒt{@
€ РˆZR†е@ЙРЗ€
€8
аˆZR€(€ј
ehg7*€
€ 
LHVR€@Д“ыэщ
@ 0ˆ’@`і-6\њР!€1ЖˆZR@	dпЩ4Р(ˆVR @Јzmt 
р
hˆЂ@(FŸнОј`0Рjb Р0
Ќz\zѕ8`0Ze@Р0>7Ÿ3}P`cjeA@0)ѓш–LЛ `1€–Ve€0fсЧЕУ‡€Pњ0ˆЅ€P
SbОв
€0ЊZe‚€`mЪsеY0І0
FVb`#rЃR‚zœ0
€$
@ˆЂ`Џžt„0 Р€
Jjd`х4|Љ80`„
h`œ@QP00
Œ№
*X`aЊ4
cр07ЈЫ€y&X`ЁaРЃ 0,P№X˜`‡@0402ц2pX`
џМџќ
0404,^@	` џ§_зџў 08#h@hџў‘еџРА8028l ‡џ№ш€џ 8@џ№#)\
	с˜9џт9€Рš€€џј+I@x€џц0иmт˜€ƒџў~ХГјџ N
 €
ˆџ№ћ@A\m.
џ(3
lр!
 џРоё§џќB6Ьж- 
џgџќјAl`ѕ9€@@fŒ|‚
€jР
€LЁ
@ћж{1юнЖз˜oќoЖпoїx^œ
ќ`е0Рџ‡œ=ь>р}ьМ§n?ўѓ‡џїp?џџџџл€џџ`Иџ_,џоЏџ[ћчр~ќџѓппЯПzoї7§яѓІmћжоьйыџМ|џџюіџџН€
~?§рџџџь§7џўўяяќпџў7§џў?џџїџџЙџЯ—џчёџџOWџ|яџпѓўЧџўяџџЩўћЉЏпуЏЏqџџГ_ЎЛчяџяўвџПџџ›џ§ЗџчП§УџўџŸџџџџџћэЗџпзуњўџџџФ§џwпу6џыОчПркн|љпC+йПШП?ћїЦџиgXчі(|їр^]љрEџ_Я€МѕЇ№!пОљП€oэsХўEзПћўўђ+џ§њ3џŸ
ќ€yџђџћі§ЛўРџ`
ŸŸМM•ПїџБПЛђ}“zosѓ}№}€=§ќзАНwГЊЛћ§|.@ЏёёъЯљЌЧпŸќћзЯлFА?=vCлїіЗкŸ7џЭЈ?ѓoяп§шднўЙђ‰˜t5џŸ+?Ÿћф˜‡љпѕQџЗ№_љїЎЃCлuњ(ПљьећYт?ЬЋ/џ#_ќјќzA?И`Ч>%‡Мы.9ЃпAурЉџёЉ
џа€~мюрpvќ"?ПРD?џС@ОћМ"§мˆ№ˆƒпё@чЏ"Яйј ?оЂ@яо_Гє‡ЏВ~(бOОл‘їУ)?їјPџђ'ѕлџћАOџџ	ћяE§@—ПTНэїо‰}џЄЏћy/џмEџYџЂџПТ7џтўўїў?џ~w€	Лј§
tР€P;€р<
€ћ8ўpР8ўРŸиoј
€?˜
Рёƒ€>№xxxœx˜x˜x˜x
иxояјояјпџјпџјпџјпџјџџј?љŸј?љПј?јј>јќ?ј|?џŒќ?џŒќ?џќќ=ќќ?џќќ?џќќ?џ§ќј
ќј
ќј
ќј
ќј
ќќќќќџџќџџќџџј?џџј?џџј?јЯ8?јЯјјјќќќјшрРРРРР<Р<Р8Р8Р8?Рx=Рx=Рp?Рp?Рp?Р№?Р№Р№РрoррррсрсрџсРџёРџёРџѓР
џѓР
џѓ€
џћ€
џћ€
џџ€
џџ€
џџ€
ћџ€
џџ€
џџ€џџџ€џџя€џџџ€їџџ€џџџ€џџ€џџ€џџ€?џџџ€?џџџ€?џџџ€?џџ§€?џџћ€>џџ€~џџ€~џ§€џџџ€џџ§€џџџ€џџ§РџџџР~
џџР~
џџР>
џџР>
ўўР?
џќР_
ћџРw
џяРчџџРуџџРУџџРУџпСУўўС‡џџСџџСџџУџџУСџўУСџџУСџџУСџџУСџџЧСџџЧСџџЦсў†сўџ†aџџ†aпџ†aпп†aпп†`пџŽ>`нџŽ>`пџŽ>`ЯџŒ>`ЯџŒ>pџЬ>pЧџЬ>0пџЬ~0пџЬ~0УџЬ~0УџЬ~0РџЬv0СџЬ~0СџЬ~0Яџмў0Яџќў0эџќў0Сџјў0сџјі0§џјў0Сџјў0чџјі8Сџјў8Ьџјў8юџљў8яќyќ8їМyќўќќЦќќўєќїќќЦќќЬќќЯќќЧќќЦќјпјјџјјџјјџјјџјјџјјџјћпјЛипјxјЯјј8пј˜пј?џ˜џј>џ˜пј?ўЧј?ў8ЯИ>ојпИŸ№пМƒ№яМƒРџМ
ƒ?====+
><#WЎ0wЎ_БѕfІџyќ8їМyќўќќЦќќўєќїќќЦќќЬќќЯќќЧќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџREST":‡"<E> END":€XГ1Ѕ5:Щ"V30;T175;L4;A+;A;A-":‹X:‡@455," ACTIVITY?"/X
6R$Гџ’:…R$Г""Ї310/j
@…R$Г"A"ЇІ390/|
J…R$Г"D"ЇІ850/Œ
T…R$Г"E"Ї380/Ч
^ž: 50,4:‡@199,"ANOTHER ACTIVITY":‡Є11)"";:‡"<Y><N>";A$/м
hR$Гџ’:…R$Г""Ї360/ё
r…R$Г"Y"Ї270:„380/ї
|Š0

†‚ LOAN PAYMENT0&
ž:‡:‡Є10)"LOAN PAYMENT"0I
š‡: 200,1:‰"LOAN VALUE $";P:RГP0p
Є 200,1:‰"ANNUAL INTEREST RATE %";Z0–
Ў 200,1:‰"TIME PERIODS (MONTHS)";I0Ё
ИYГZЎ120Ч
ТLPГPЎ(((1Ќ(1ЋYЎ100)ЏЌI))Ў(YЎ100))0б
ЬІ7401
ж‡:‡"WOULD YOU LIKE A MONTHLY":‡"BREAKDOWN <Y><N>?"1
рR$Гџ’:…R$Г""Ї48014
ъ…R$Г"Y"ЇІ640:„7101?
є€XГ1ЅI1M
ўAГP­YЎ1001XZГLPЌA1bPГPЌZ1r…PЌZДГ0Ї6001‚&€TГ1Ѕ250:‹T1Œ0І6601Ѕ:CГCЋ1:…CГ12Ї580:„5901ЛD€TГ1Ѕ250:‹T:І6401ТN‹X1аXPГ0:І6601рbІ830:Ѕ7101цl1ьvž2€ž:‡" MTH   PRNCPL     INT     BAL":КCГ02Š2-”‡Э"###";X;2Bž‡Э"$$####.##";Z;2WЈ‡Э"$$####.##";A;2sВ‡" ";:‡Э"$$#####.##";P;2yМ2›Ц 50,1:‡@455,"ANOTHER <Y><N>";2АаR$Гџ’:…R$Г""Ї7202Хк…R$Г"Y"Ї390:„2702Ыфž2ью‡:‡:‡"ON A LOAN VALUE OF $"P3ј‡"AT"Z"% ANNUAL INTEREST RATE OR"3B‡"AT";:‡Э"##.####";Y;:‡"% MONTHLY INTEREST"3\‡"FOR"I"TIME PERIODS"3{‡"YOUR PAYMENT PER PERIOD"3Œ ‡"WILL BE:";3Ђ*‡Э"$$#####.##";LP3н4‡:AГLP­IЌP:‡"TOTAL INTEREST IS:";:‡Э"$$#######.##";A:4>AГLP­IЌR:‡"TOTAL INTEREST IS:";:‡Э"$$#####.##";A4H40R‚ COMPOUND INTEREST4O\ž:‡@40,"COMPOUND INTEREST"4Uf‡4op 200,1:‰"DEPOSIT $";D4‘z 200,1:‰"ANNUAL INTEREST %";I4ъ„ 200,1:‡"COMPOUNDS <A>DAILY; <B>MONTHLY; <C>QUARTERLY;<D>SEMI-ANNUALLY; <E>ANNUALLY"4џŽR$Гџ’:…R$Г""Ї91051˜ 200,1:‡"NUMBER OF COMPOUNDING":‰" PERIODS";P5AЂ…R$Г"A"Ї9805RЌ…R$Г"B"Ї10005cЖ…R$Г"C"Ї10205tР…R$Г"D"Ї10405…Ъ…R$Г"E"Ї10605šдAГIЎ365:T$Г"DAY"5ЅоЅ10805ЛшAГIЎ12:T$Г"MONTH"5ЦђЅ10805нќAГIЎ4:T$Г"QUARTER"5шЅ10806AГIЎ2:T$Г"SIX MONTHS"6
Ѕ10806$AГI:T$Г"YEAR"6*.Ѕ10806?8FVГD­(1ЋAЎ100)ЏP6kBž:‡@96,"A DEPOSIT OF";:‡Э"$$#####.##";D6‹L‡"AT"I"% INTEREST ANNUALLY"6МV‡"OR";:‡Э"###.####";A;:‡"% INTEREST EACH "T$6ы`‡"WILL HAVE A VALUE OF";:‡Э"$$#####.##";FV7j‡"AT THE END OF"P;T$"S"7#t‡@455,"ANOTHER <Y><N>?"79~R$Гџ’:…R$Г""Ї11507Nˆ…R$Г"Y"Ї850:„270OSIT OF";:‡Э"$$#####.##";D6‹L‡"AT"I"% INTEREST ANNUALLY"6МV‡"OR";:‡Э"###.####";A;:‡"% INTEREST EACH "T$6ы`‡"WILL HAVE A VALUE OF";:‡Э"$$#####.##";FV7j‡"AT THE END OFњ№0xx000lllllўlўll0|Рxј0ЦЬ0fЦ8l8vмЬv00`0```0`00`f<џ<f00ќ0000`џ000`Р€|ЦЮоіц|0p0000xxЬ8`ФќxЬЬx<lЬўќРјЬx8`РјЬЬxќЬ000xЬЬxЬЬxxЬЬ|p00000000`0`Р`0ўў00xЬ00|ЦЮкЮР~0xЬЬќЬЬќff|ffќ<fРРРf<јlffflјўbhxhbўўbhxh`№<fРРЮf>ЬЬЬќЬЬЬx00000xЬЬxцflxlfц№```bfўЦюўўжЦЦЦціоЮЦЦ8lЦЦЦl8ќff|``№xЬЬЬЬмxќff|lfцxЬрxЬxќД0000xЬЬЬЬЬЬxЬЬЬЬЬx0ЦЦЦжўюЦЦЦl88lЦЬЬЬx00xўЦŒ2fўx`````xР`0xx8lЦџ00x|Ьvр``|ffмxЬРЬx|ЬЬvxЬќРx8l`№``№vЬЬ|јр`lvffц0p000xЬЬxр`flxlцp00000xЬўўжЦјЬЬЬЬxЬЬЬxќff|`№vЬЬ|мvf`№|Рxј0|004ЬЬЬЬvЬЬЬx0ЦжўўlЦl8lЦЬЬЬ|јќ0`ќ0f3™Ьf3™Ь00&fўў` џџ00x|Ьvр``|ffмxЬРЬx|ЬЬvxЬќРx8l`№``№vЬЬ|јр`lvffц0p000xЬЬxр`flxlцp00000xЬўўжЦјЬЬЬЬxЬЬЬxќff|`№vЬЬ|мvf`№|Рxј0|004ЬЬЬЬvЬЬЬx0ЦжўўlЦl8lЦЬЬЬ|јќ0`ќ0f3™Ьf3™Ь00&fўў` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ&?
:ƒ PRINTME/BAS ' This file courtesy of Arthur S. Hallock.&•2000:’65496,.:’140,180:’150,18:’&HF80F,0:’&HF84F,0:’&HF89C,0&Џї:TГ1:Ђ43350:І20:у1,1:у10,27:т80:ž2:ј3,1'3ё31,0:ј2,1:‡"LABEL PROCESSOR":ё31,1:‡џЁ(15,42):ё5,4:‡"THIS PROGRAM WILL PRINT THE ENTIRE TUTORIAL FOR THIS MONTH'S COLUMN":ё5,6'‹‡"TO YOUR PRINTER.":ё23,6:ј7,1:‡"BE SURE YOU HAVE ENOUGH PAPER, THERE ARE 07 PAGES"(ё20,9:ј3,1:‡"YOU MUST  NOW SET THE BAUDRATE CONSTANT";:ё20,10:‡"TO CORRESPOND WITH THE ONE YOUR PRINTER";:ё30,11:‡"IS CURRENTLY SET TO"(Ђё1,14:ј2,1:‡"600 BAUD=87  /  1200 BAUD=41  /  2400 BAUD=18  /  4800 BAUD=7  /  9600 BAUD=1":ё18,16:‡"PLEASE INPUT PROPER BAUD RATE > "(Оё50,16:Л‰BD$:BDГџ‰(BD$))	… BDГ87 Б BDГ41 Б BDГ18 Б BDГ7 Б BDГ1 Ї’150,BD:Ѕ10 :„ё49,16:‡"    ": 50,1:Ѕ8)и
ё10,19:ј1,1:‡"YOU MUST NOW INSERT YOUR PAPER IN THE PRINTER IN SUCH A WAY":ё8,21:‡"THAT THE FIRST LINE PRINTED WILL BE ON THE VERY TOP OF THE PAPER":ё25,23:ј2,1:‡"PLEASE PRESS <ENTER> TO START";)єP$Гџ’:…P$Гџ‹(13)Ї12:„11*<ž:ј3,1:ё19,23:‡"PRINTING HAS STARTED, PRESS BREAK TO ABORT";:ˆ№Ѕ21*K
™"I",#1,F$*[… џŒ(1) Ї18*qЛ‰#1,L$:FГ1:AГAЋ1*Š‡L$:‡#Ќ2,џЁ(8,32);L$*”Ѕ 14*Ѓš#1: 100,1*Чž:‡:‡"All Done. Thank you !!":Š*пF$Г"LABELDOC.009":+š#1:ž:‡"PRINTING ABORTED":‡:‡"ALL FILES CLOSED":ŠARTED, PRESS BREAK TO ABORT";:ˆ№Ѕ21*K
™"I",#1,F$*[… џŒ(1) Ї18*qЛ‰#1,L$:FГ1:AГAЋ1*Š‡L$:‡#Ќ2,џЁ(8,32);L$*”Ѕ 14*Ѓš#1: 100,1*Чž:‡:‡"All Done. Thank you !!":Š*пF$Г"LABELDOC.009":+š#1:ž:‡"PRINTING ABORTED":‡џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8Я&U
:ƒ LABELPRC/BAS-RDOS Version 2.0 By: George Quellhorst. 06/24/1992 - 08/16/1992'ї:т80:•2300:б2,1000:ŒER$(41):’&HF80F,0:’&HF84F,0:’&HF89C,0:у0,1:ž1:ё18,12:‡"PLEASE WAIT, CHECKING DISK & DRAWING SCREEN":’59078,51:’282,255:SPГ65496:FPГ65497:’SP,.:ˆяЅ220'iу1,63:у2,27:у3,54:у8,63:у9,1:у10,27:у11,54:у12,18:…џ†(155)Г132 ЇгM"FONT/BIN":’&HFF40,0:’155,134(A† 1. INPUT NEW OR ADDITIONAL LABELS,5. ALPHABETIZE  LABELS BY LAST NAME,2. INSTALL RETURN ADDRESS ON DISK,6. PRINT LABELS;  NO RETURN ADDRESS,3. SEARCH;  SPECIFIC LABEL NUMBER,7. PRINT LABELS; AND RETURN ADDRESS(Ь† 4. SEARCH;  SPECIFIC LAST NAME,8. PRINT RETURN ADDRESS LABELS ONLY,1. 10 CPI ................ <32>,,2. 10 CPI ITALIC ......... <32>,)˜† 3. 10 CPI ELONGATED ...... <16>,,4. 10 CPI ELONGATED/ITALIC <16>,,,5. 12 CPI ................ <38>,,6. 12 CPI ITALIC ..........<38>,,7. 12 CPI ELONGATED ...... <19>,,8. 12 CPI ELONGATED/ITALIC <19>*E’140,185:Ђ43350:ZГџ†(235):™"D",#1,"LABEL/DAT",252:пZ,17,2,A$,B$:…џ(A$,68,1)Гџ‹(252)Бџ(A$,68,1)Гџ‹(242)Ї11:„…џ(A$,68,1)Гџ‹(255)Їџ(A$,68,1)Гџ‹(252):рZ,17,2,A$,B$:Ѕ11*Й‡"GRANULE 67 ON THIS DISK IS PART OF AN EXISTING FILE":‡:‡"SINCE YOUR RETURN ADDRESS IS STORED ON THIS GRANULE"+3	‡:‡"THIS DISK CANNOT BE USED TO RUN THE LABEL PROCESSOR":‡:‡"PREPARE A NEWLY FORMATTED DISK AND RUN THIS PROGRAM":‡:Š+J
:ƒ Draw Main Menu.+љ’&HFF40,0:І205:І176:‡#Ќ2,DP$;:’FP,.:’59065,57:ф4:’59065,32:ц0:ч3:ю(18,1),"D E L U X E   L A B E L   P R O C E S S O R":ю(18,2),џЁ(43,42):ч2:ю(30,5),"M A I N    M E N U",fZ$Гџ‹(252):ч1:€TГ8Ѕ17:ю(0,T),Z$:ю(39,T),Z$:ю(79,T),Z$:‹::YГ5:€TГ1Ѕ4:A$,B$:YГYЋ3:ю(3,Y),A$:ю(42,Y),B$:‹,ц
ч3:ю(3,21),"P R E S S   N U M B E R   D E S I R E D   /   S P A C E B A R   T O   E N D":ю(3,22),џЁ(75,42):’41591,96:ˆ№Ѕ15-:ƒ Display Main Menu.-6’FP,.:’59108,230:ф4:’59108,231:’65434,1:’41594,13-IN$Гџ’:…IN$Г""Ї16:„SГџž(1,"12345678 ",IN$):ˆ S Ѕ 18,18,18,18,90,99,99,99,217:Ѕ16-Г:ƒ Draw main input & edit screen..aт80:ž1:ё6,0:ј3,0:‡"L A B E L   P R O C E S S O R   /   P R I N T E R   -   E D I T O R";:ё6,1:‡џЁ(67,42)::€TГ1Ѕ8:A$:‹:YГ4:€TГ1Ѕ16:YГYЋ1:…DMГ1АYГ16БDMГ1АYГ20Їј2,0:„ј0,0.кA$:ё1,Y:‡A$:‹:ј0,0:€YГ5Ѕ20:ё33,Y:‡Z$;:‹Y:ё5,22:ј3,0:‡"PRESS NUMBER DESIRED":І141:ё35,5:ј2,0:‡"CRS":AГ1:І180:І181.ѕˆџ‰(IN$)Ѕ 21,23,64,67/&ј2,0:LNГ1:ё39,3:І142:ј2,0,B:І144:DFГ1:Ѕ27/C:ƒ Input return address./’SP,.:пZ,17,2,A$,B$:’&HFF40,0:’FP,.:…џ(A$,68,1)Гџ‹(242)Їј2,0:І150:’282,255:Ѕ24:„25/ТP$Гџ’:…P$Г"Y"Ї25:„…P$Г"N"Ї15:„24/ёRAГ1:DFГ1:ј2,0:І151:ј1,0:І150:І144:Ѕ270:ƒ The Editor05’41594,95:EPГ0:XГ39:’282,0:YГ6:LNГ1:ёX,Y:‡"";0žP$Гџ’:…P$Гџ‹(214)ЇІ183:Ѕ28:„…џ†(342)Г191Бџ†(343)Г191Бџ†(344)Г191 Ї28:„…P$Г""Ї28:„…P$Г"_"ЇEPГ1:Ђ:„Ђ0ж…P$Г"_"АLNГ6Їџ(L$(LN),XЌ38)Г"_":ё39,Y:‡L$(LN):Ѕ441…џ†(341)Г191 ЇDFГ0:ј1,0:І142:ё4,3:ј2,0,B:І143:Ѕ601V…(XЌ37)Гџ‡(L$(LN))АP$ДВ"_"АP$ДВџ‹(8)АP$ДВ"^"АP$ДВџ‹(10)ЇІ218:Ѕ281 …P$Гџ‹(9)ЇXГXЋ1 :„…P$Гџ‹(8)ЇXГXЌ1:…XД39ЇXГ39:І2181Б!…P$Гџ‹(10)ЇUDГ1:YГYЋ1:…YВ11ЇYГ61е"…P$Гџ‹(94)ЇUDГ1:YГYЌ1:…YД6ЇYГ112#…UDГ1 ЇUDГ0:XГ39:LNГ(YЌ5):ё39,3:ј2,0:І14222$…P$Гџ‹(8)БP$Гџ‹(9)БP$Гџ‹(10)БP$Гџ‹(94)Ї422_%…P$Гџ‹(12)ЇDFГ1:AГCS(1):І180:І181:Ѕ272—&џ(L$(LN),(XЌ38),1)ГP$:‡P$;:‡џ(L$(LN),XЌ37);:XГXЋ13+'…P$Г"_"АXГ40 Ї€TГLN Ѕ5:џ(L$(LN),XЌ39)ГP$:ё39,Y:‡L$(LN):YГYЋ1:LNГLNЋ1:‹T:І183:YГ11:LNГ6:XГ39:Ѕ42 :„…P$Г"_"ЇYГYЋ1:LNГLNЋ1:XГ39:…YВ11ЇYГ11:LNГ63^(…EPГ1 АDFГ0 Їј1,0:І142:ё4,3:ј2,0,B:І143:Ѕ603x)…YГ7 АP$Гџ‹(95)ЇІ1823‹*ёX,Y:‡"";:Ѕ283Щ+:ƒ Clean input window, print to screen. Create disk file.4,’41594,13:€TГ1Ѕ6:SГџž(1,L$(T),"_"):…SГ1 ЇLLГTЌ1:Ѕ45:„‹T4U-LL$Гџ(џˆ(LL),1):’282,255:YГ5:ј1,0:І142:€TГ1Ѕ6:CS$(T)Гџ(M$(T),2,1):YГYЋ15.R$(T)ГџЁ(џ‡(L$(T))Ќ2,127)Ћ" "Ћџ‹(221):NГџž(1,L$(T),"_"):N$ГџŽ(L$(T),N):L$(T)ГN$Ћџ(R$(T),џ‡(R$(T))Ќџ‡(N$)):R$(T)ГџŽ(N$,џ‡(N$)Ќ1):ё39,Y:‡L$(T):CS(T)Гџ‰(CS$(T)):L$(T)ГLL$ЋCS$(T)ЋL$(T):‹5U/…RAГ1 ЇRAГ0:Ѕ49 :„І153:ј0,0:І154:…EDГ0 ЇІ155:І156:Ѕ51:„515y0:ƒ Save return address to disk.631’SP,0:пZ,17,2,A$,B$:џ(A$,68,1)Гџ‹(242):рZ,17,2,A$,B$:€TГ10Ѕ12:FГFЋ1:рZ,34,T,L$(F),L$(FЋ1):FГFЋ1:‹T:’FP,0:’&HFF40,0:ј1,0:І153:ё39,15:ј2,0,B:‡"DONE: PRESS BREAK FOR MAIN MENU":Ѕ2196r2:ƒ Resave edited label, Save new label or Print new label.63…EDГ0 ЇIГџЅ(1)Ћ1:Ѕ52:„566Е4P$Гџ’:…P$Г"1"Ї55:„…P$Г"2"Ї53:„526ъ5ј2,0:І155:ј2,0:І156:І218:ё61,19:Л‰M$:MГџ‰(M$)76€LNГ1ЅLL:L$(LN)ГR$(LN):І178:І191:‹LN:€BГ1ЅM:ё42,22:ј3,0:‡"NOW PRINTING LABEL NUMBER";B:І121:‹:ј0,0:І153:AГ1:І180:І181:І144:ј3,0:І141:ј2,0:LNГ1:І142:Ѕ277Ÿ7ј2,0:І1547№8а#1,42џЇD$(1),42џЇD$(2),42џЇD$(3),42џЇD$(4),42џЇD$(5),42џЇD$(6):…RTГ1ЇRTГ0:8'9€TГ1Ѕ6:дD$(T)ГL$(T):‹T:’SP,.:Х#1,I:’FP,.:’&HFF40,08Б:І153:…EDГ0 Їј2,0:LNГ1:І142:AГCS(1):І180:І181:І144:Ѕ27 :„…EDГ1 Їј2,0:І152:І148:€TГ1Ѕ6:L$(T)Гџ(L$(T),џ‡(L$(T))Ќ2):‹T:EDГ0:Ѕ738ш;:ƒ Get printer code for single line, editor gosub.9<IN$Гџ’:…IN$Г""Ї60:„…IN$Г"6"БIN$Г"8"ЇІ1589H=…џ†(341)Г191 Їј1,0:І143:ј2,0:І142:EPГ0:Ѕ429я>AГџ‰(IN$):…AД1БAВ8 Ї60:„І180:M$(LN)Г"["Ћџ(џˆ(CS(LN)),1)Ћ"] ":ј0,0:L$(LN)ГџЁ(AM,127)Ћ" "Ћџ‹(221):ё35,Y:‡M$(LN):ё39,Y:‡L$(LN):ј1,0:І143:ј2,0:І142:EPГ0:XГ39:Ѕ42:?:ƒ Find specific label number.:~@І218:ё39,13:ј2,0:‡"PLEASE INPUT LABEL NUMBER":ј0,0:ё65,13:Л‰"";RN$:RNГџ‰(RN$):…RNГ0 Їё65,13:‡"  ":Ѕ64;AІ153:IГRN:…IВџЅ(1)ЇІ218:ј2,0:ё39,13:‡"INPUT PAST END OF FILE":ё39,15:‡"THIS FILE CONTAINS";џЅ(1);"LABELS":І218:І170:Ѕ64:„IГRN:І148:Ѕ70;=B:ƒ Find specific name. Search thru file.;wCRTГ1:І56:І160:’282,255:ё41,15:Л‰"> ";NA$:LEГџ‡(NA$);ПD€RNГ1ЅџЅ(1):’SP,.:Ф#1,RN:…NA$ДГџ(D$(1),3,LE)ЇIГRN:І153:І148:Ѕ70;кE‹RN:IГџЅ(1):І153:Ѕ70;єFФ#1,I:’FP,0:RTГ1:І56<•GYГ5:€TГ1Ѕ6:CS$(T)Гџ(D$(T),2,1):SГџž(1,D$(T),џ‹(221)):L$(T)ГџŽ(D$(T),S):L$(T)Гџ(L$(T),џ‡(L$(T))Ќ2):M$(T)Г"["ЋCS$(T)Ћ"]":YГYЋ1:ё35,Y:‡M$(T);:ё39,Y:‡L$(T):‹T<ъH…IГџЅ(1) Їё39,3:ј2,0:‡"L A S T   L A B E L":ё62,3:‡"[ #";I;"]":ј0,0 :„ј2,0:І152=IP$Гџ’:…P$Г""Ї73:„’282,255=)J…P$Гџ‹(8) Ї80:„…P$Гџ‹(9) Ї81=^K…P$Г"E" ЇEDГ1:DFГ1:І153:І144:І159:’282,0:Ѕ27=oL…P$Г"D" Ї 83>M…P$Г"P"ЇLLГџ‰(џŽ(D$(1),1)):ј2,0:І157:І218:ё62,20:Л‰"";M$:MГџ‰(M$):І177:ё42,22:ј3,0:‡"NOW PRINTING LABEL NUMBER";:€FГ1ЅM:ё67,22:‡F;:І121:І218:‹F:І148:ј3,0:І141:Ѕ73>'NЅ73>LP…IГД1 ЇIГџЅ(1):Ѕ70 :„IГIЌ1:Ѕ70>oQ…IГџЅ(1)ЇIГ1:Ѕ70::„IГIЋ1:Ѕ70>‡R:ƒ Delete a record.>РSFDГџЅ(1):…џ(FDЎ9)Г(FDЎ9)ЇFDГџ(FDЎ9):„FDГџ(FDЎ9)Ћ1?&TFRГџЃ(Z):…FDВFR ЇІ218:ё39,14:ј2,0,B:‡"DISK TOO FULL TO DELETE LABEL":ј0,0:І170:І153:І148:Ѕ73?СU’41598,255:ё39,3:І218:ј2,0,B:‡"NOW DELETING LABEL NUMBER";I:ј0,0:а#1,252 џЇ OF$:JГ1:’SP,.:™"D",#2,"TEMP/DAT",252:а#2,252 џЇ NF$:€IIГ1ЅџЅ(1):…IIГI Ї87?сVФ#1,II:дNF$ГOF$:Х#2,J:JГJЋ1@W‹II:л:в"LABEL/DAT":ж"TEMP/DAT"Ѕ"LABEL/DAT"@<X™"D",#1,"LABEL/DAT",252:…IВџЅ(1) ЇIГIЌ1@ZYІ153:І148:’41598,3:Ѕ70@nZ:ƒ Alphabetize.A[т80:ё24,7:ј3,0:‡"S O R T I N G    T H E   F I L E";:ё24,8:‡џЁ(32,42):ј0,0:ё26,11:‡"1. SORT FILE BY LAST NAME":ё26,14:‡"2. ABORT. BACK TO MAIN MENU"A.\AP$Гџ’:…AP$Г"1"Ї93:„…AP$Г"2"Ї15:„92Aо]ž:’SP,.:’41598,255:а#1,252џЇLF$:ё24,8:ј3,0:‡"N O W   A L P H A B E T I Z I N G";:LГџЅ(1):ё26,11:‡"THIS FILE CONTAINS";L;"LABELS":ё29,14:ј2,0:‡"P L E A S E   W A I T";:ј0,0BG^€IГ2ЅџЅ(1):€JГ1Ѕ(IЌ1):ё36,17:‡I;" ";J;:Ф#1,I:R1$ГLF$:S1$Гџ(R1$,3,40):Ф#1,J:R2$ГLF$:S2$Гџ(R2$,3,40)Br_…S2$ВS1$ЇдLF$ГR2$:Х#1,I:дLF$ГR1$:Х#1,JB‚`‹ J,I:’FP,.BЦaІ216:ё35,20:ј2,0,B:‡" D O N E";:І170:ј0,0:І216:’41598,3:Ѕ15Cb:ƒ Input numerical printing specifications. Get SL & ELC;cт80:RAГ0:RTГ0:ž1:І168:…SГ7 ЇRAГ2 :„…SГ8 ЇRAГ1:Ѕ112CXdј2,0,B:І166:І161:І218CЬeP$Гџ’:…P$Г""Ї101:„ј1,0:І166:RTГ1:…P$Г"1"Їј2,0:І161:Ѕ102 :„…P$Г"2"Їј2,0:І162:Ѕ106:„ј2,0,B:І166:І218:Ѕ101DFfІ218:ё33,18:Л‰S$:RTГ1:І164:€TГ1Ѕџ‡(S$):R$Гџ(S$,T,1):І172:…SГ0 Бџ‰(S$)Г0 ЇІ218:ё33,18:‡"   ";:Ѕ102:„‹T:SLГџ‰(S$)DКgІ218:ё33,20:Л‰S$:І165:€TГ1Ѕџ‡(S$):R$Гџ(S$,T,1):І172:…SГ0 Бџ‰(S$)Г0 ЇІ218:ё33,20:‡"   ";:Ѕ103:„‹:ELГџ‰(S$)E2h…ELВџЅ(1)БELДSL ЇRTГ1:І161:І218:ј4,0:І167:І170:ј1,0:І167:ј2,0,B:І166:ё31,18:‡"   ";:ё31,20:‡"   ";:Ѕ101:„118Eqi:ƒ Input alphabetical printing specifications. Get SL & ELEЙjІ218:ё63,18:Л‰S$:І171:…SГ0 Бџ‡(S$)В1 Їё63,18:‡"  ":Ѕ106 :„SL$ГS$F
kІ218:ё63,20:Л‰S$:І171:…SГ0 Бџ‡(S$)В1 Їё63,20:‡"  ":Ѕ107 :„FL$ГS$FLl…FL$ДSL$ Їј2,0:І169:І170:ј1,0:І169:ё63,18:‡"  ":ё63,20:‡"  ";:Ѕ106FШmSLГ0:ELГ0:RTГ1:І56:€IГ1ЅџЅ(1):Ф#1,I:…SLГ0 Аџ(D$(1),3,1)ГВSL$ЇSLГI :„…FL$Г"Z"ЇELГџЅ(1):„…FLГ0Аџ(D$(1),3,1)ВFL$ЇELГIЌ1Fеn‹I:Ѕ118Go :ƒ Retrieve return address from disk.GspRГ1:ј2,0:І174:FГ0:€TГ10Ѕ12:FГFЋ1:’SP,.:пZ,34,T,D$(F),D$(FЋ1):FГFЋ1:‹T:’FP,.:’&HFF40,0:LLГџ‰(џŽ(D$(1),1)):RRГ1GёqІ177:YГ5:€LNГ1ЅLL:YГYЋ1:ё24,Y:‡L$(LN):‹LN:…RAГ1 Ї115 :„€LNГ1ЅLL:L1$(LN)ГL$(LN):A1$(LN)ГA$(LN):P1(LN)ГP(LN):‹:L1ГLL:Ѕ115HVrYГ5:LLГL1:€LNГ1ЅLL:YГYЋ1:L$(LN)ГL1$(LN):A$(LN)ГA1$(LN):P(LN)ГP1(LN):ё24,Y:‡L$(LN):‹LN:…RTГ1 Ї116HЫs…RAГ2 Ї116 :„ё13,16:ј2,0:‡"HOW MANY RETURN ADDRESS LABELS DO YOU WANT TO PRINT":ј0,0:ё38,18:Л‰M$:MГџ‰(M$):€RГ1ЅMHћtј2,0:І174:І121:…RTГ1ЇRTГ0::„‹R:RAГ0:Ѕ15Iu:ƒ Print labels:Iiv€IГSL Ѕ EL:RTГ1:І56:’SP,.:Ф#1,I:’FP,.:’&HFF40,0:LLГџ‰(џŽ(D$(1),1)):ј2,0:І173:І177IлwYГ5:€LNГ1ЅLL:YГYЋ1:ё24,Y:‡L$(LN):І191:‹LN:І121:І133:…RAГ2 ЇRTГ1:ј2,0:І174:…RRГ1 ЇІ114:RГRЋ1:„І112:RГRЋ1Iьx‹I:RAГ0:Ѕ15Jy’SP,.:ˆ LL І 123,125,127,129,131:’FP,.:J0z:ƒ One line labelJY{‡#Ќ2:‡#Ќ2:‡#Ќ2:TГ1:І132:‡#Ќ2:‡#Ќ2:Jo|:ƒ Two line labelJА}‡#Ќ2:‡#Ќ2,HL$:‡#Ќ2,FL$:€TГ1Ѕ LL:І132:‹T:‡#Ќ2,HL$:‡#Ќ2,FL$:JШ~:ƒ Three line labelJю‡#Ќ2:‡#Ќ2:€TГ1ЅLL:І132:‹T:‡#Ќ2:K€:ƒ Four line labelKG‡#Ќ2:‡#Ќ2,HL$:‡#Ќ2,FL$;:€TГ1ЅLL:І132:‹T:‡#Ќ2,HL$:‡#Ќ2,FL$;:K^‚:ƒ Five line labelKzƒ‡#Ќ2:€TГ1ЅLL:І132:‹T:KВ„‡#Ќ2,DE$;A$(T);џ‹(27);џ‹(16);џ‹(0);џ‹(P(T));L$(T):Kн…YГ3:€TГ1Ѕ7:YГYЋ1:ё24,Y:‡џЁ(48,32):‹T:LŒ:ƒ Screen print and other gosubs.L2ё42,22:‡"PRESS BREAK FOR MAIN MENU":ј0,0:L`Žё39,3:‡"INPUT LINE NUMBER";LN:ј0,0:ёX,Y:L™ё4,3:‡"SELECT CHARACTER STYLE LINE";LN;:ј0,0:І218:MAё51,13:ј2,0:‡"P R E S S":ё39,14:ј0,0:‡"[ ARROWS ]  MANIPULATE THE  CURSOR":ё39,15:‡"[ CLEAR: ]  CLEAR WINDOW,  AND PUT":ё51,16:‡"EDITOR IN DEFAULT MODE":YГ17:І147Mш‘ё51,Y:‡"AFTER EACH SINGLE LINE":YГ18:І147:ё51,Y:‡"1st EMPTY LINE: LENGTH":YГ19:І147:ё51,Y:‡"LINE 6: SAVE AND PRINT":ё39,20:‡"[  ALT:  ]  ALTERNATE  EDITOR MODE"N%’…EDГ1 Їё39,21:‡"[ SH.F2: ]  SWITCH  THE FIRST LINE"::„NI“ё39,Y:ј0,0:‡"[ ENTER: ]":ј0,0:Nф”ё49,14:ј2,0:‡" P R E S S";:ё35,16:ј0,0:‡"RIGHT/LEFT ARROW FOR NEXT/PREVIOUS LABEL";:ё45,18:‡"[D] TO DELETE ";џ‹(253);:ё45,19:‡"[E] TO EDIT...";џ‹(253)O%•ё45,20:‡"[P] TO PRINT..";џ‹(253):ё62,19:‡"THIS LABEL":ј0,0:OС–ё37,15:‡"RETURN ADDRESS PREVIOUSLY INPUTTED":І218:ё44,16:‡"DO YOU WISH TO CHANGE":ё41,17:‡"YOUR PRESENT RETURN ADDRESS":ё48,18:‡"<Y>ES OR <N>O":ј0,0:Oя—ё40,3:ј2,0:‡"INPUT RETURN ADDRESS":ј0,0:P˜ё39,3:‡"LABEL NUMBER";I:ј0,0:P?™ј1,0:€TГ13Ѕ21:ё35,T:‡џЁ(39,32):‹T:ј0,0:PБš…EDГ0 Їё42,15:‡"1. SAVE  LABEL / INPUT NEXT":ј0,0::„…EDГ1 Їё42,15:ј2,0:‡"SAVING EDITED LABEL TO DISK":ј0,0:Pт›ё42,17:‡"2. PRINT LABEL / INPUT NEXT":ј0,0:Qœё42,19:‡"3. HOW MANY .. / ";џ‹(125):ј0,0:Q=ё45,20:‡"HOW MANY .. / ";џ‹(125):ј0,0:Qrž…DMГ1АIN$Г"6" ЇIN$Г"2":„…DMГ1АIN$Г"8"Ї IN$Г"4":QЂŸё39,3:ј2,0:‡"EDITING LABEL NUMBER";I:ј0,0:R? ё43,13:ј2,0:‡"LOCATE LABEL BY LAST NAME":ё43,17:ј0,0:‡"ENTER  SMALLEST NUMBER OF":ё44,18:‡"SIGNIFICANT  CHARACTERS":ё46,19:‡"[ LAST NAME FIRST ]":ј0,0:RtЁё15,16:‡"1. LABEL# TO LABEL#";:ј0,0:…RTГ1ЇRTГ0:RЉЂё47,16:‡"2. LETTER TO LETTER";:ј0,0:…RTГ1ЇRTГ0:SЃё18,18:‡"FIRST LABEL:";:ё18,20:‡"LAST  LABEL:";:ё27,23:ј3,0:‡"PRESS BREAK FOR MAIN MENU";:ј0,0S4Єё50,18:‡"FROM LETTER:":…RTГ1ЇRTГ0:SVЅё50,20:‡"TO   LETTER:":ј0,0:SzІё33,14:‡"PLEASE SELECT:":ј0,0:T
Їё14,12:‡"INPUT PAST END OF FILE. THIS FILE CONTAINS";џЅ(1);"LABELS":ё12,14:‡"OR NUMBER ENTERED FOR LAST LABEL < NUMBER FOR FIRST LABEL":ј0,0:TБЈH$(6)Г"PRINT LABELS:  NO RETURN ADDRESS":H$(7)Г"PRINT LABELS: AND RETURN ADDRESS":H$(8)Г"PRINT RETURN ADDRESS LABELS ONLY":ј3,0:ё24,0:‡H$(S):ё24,1:‡џЁ(32,42):TјЉІ218:ё20,14:‡"SECOND INPUT MUST BE GREATER THEN THE FIRST":ј0,0:UЊ€TГ1Ѕ3000:‹T:U9ЋSГџž(1,"ABCDEFGHIJKLMNOPQRSTUVWXYZ",S$):UWЌSГџž(1,"0123456789",R$):U„­ё24,4:‡"ADDRESS LABEL NUMBER: ";I:ј0,0:UБЎё24,4:‡"RETURN ADDRESS LABEL:";R::ј0,0:UШЏ:ƒ Printer ready ?V[А…(џ†(&HFF22)А1)Г0 Ї :„ž1:ё23,12:‡"P R I N T E R   N O T    R E A D Y":ё13,14:‡"TURN ON PRINTER - PROGRAM WILL CONTINUE AUTOMATICALLY":І218:VдБ€LNГ1ЅLL:CS(LN)Гџ‰(џ(D$(LN),2,1)):SГџž(1,D$(LN),"_"):L$(LN)ГџŽ(D$(LN),SЌ1):L$(LN)Гџ(L$(LN),џ‡(L$(LN))Ќ2):І191:‹LNW)ВSГ0:SГџž(1,L$(1),"`"):…SГ0 Ї :„ L$(1)Гџ(L$(1),џ‡(L$(1))ЌS)Ћ" "ЋџŽ(L$(1),SЌ1):WLГ:ƒ Set up editor default mode.WšДCS(LN)ГA:…AГ1БAГ2 ЇAMГ32::„…AГ3БAГ4 ЇAMГ16::„…AГ5БAГ6 ЇAMГ38::„AMГ19:X#Еј0,0:€TГ1Ѕ6:DW(T)ГDW(LN):CS(T)ГCS(LN):M$(T)Г"["Ћџ(џˆ(CS(T)),1)Ћ"] ":L$(T)ГџЁ(AM,127)Ћ" "Ћџ‹(221):ё35,TЋ5:‡M$(T):ё39,TЋ5:‡L$(T):‹T:XMЖ:ƒ Switch first line around at comma.YЗAГџž(1,L$(1),"`"):…AГ0Ї:„BГџž(1,L$(1),"_"):…BГ0Ї:„CГџž(1,L$(1),џ‹(221)):…CГ0Ї:„L1$Гџ(L$(1),AЋ1,BЌ(AЋ1))Ћ"`"ЋџŽ(L$(1),AЌ1)Ћџ(L$(1),B,C):L$(1)ГL1$:ё39,6:‡L$(1):ёX,Y:‡"";:Y%О:ƒ Put printer codes into A$(LN)YWПˆ CS(LN) І 192,193,194,195,196,197,198,199:Y~РA$(LN)ГDE$:DW(LN)Г12:І200:І202:YЅСA$(LN)ГIT$:DW(LN)Г12:І200:І202:YЬТA$(LN)ГEL$:DW(LN)Г24:І200:І202:YїУA$(LN)ГIT$ЋEL$:DW(LN)Г24:І200:І202:ZФA$(LN)ГCP$:DW(LN)Г12:І200:І203:ZIХA$(LN)ГCP$ЋIT$:DW(LN)Г12:І200:І203:ZtЦA$(LN)ГCP$ЋEL$:DW(LN)Г24:І200:І203:ZЃЧA$(LN)ГCP$ЋIT$ЋEL$:DW(LN)Г24:І200:І203:ZХШL(LN)Гџ(џ‡(L$(LN))­DW(LN)):ZъЩ:ƒ Calculate printhead position.[ЪP(LN)Гџ((390ЌL(LN))Ў2): :ƒ 10cpi[8ЫP(LN)Гџ((468ЌL(LN))Ў2): :ƒ 12cpi[gЬ:ƒ DMP130,131,132,133 Printer code module.[}ЭNP$Гџ‹(27)Ћџ‹(18)[“ЮCP$Гџ‹(27)Ћџ‹(29)[ЏЯIT$Гџ‹(27)Ћџ‹(66)Ћџ‹(1)[ЫаCI$Гџ‹(27)Ћџ‹(66)Ћџ‹(0)[сбEL$Гџ‹(27)Ћџ‹(14)[ївCE$Гџ‹(27)Ћџ‹(15)\
гPP$Гџ‹(27)Ћџ‹(16)\дDP$Гџ‹(19)\2еHL$Гџ‹(27)Ћџ‹(28)\HжFL$Гџ‹(27)Ћџ‹(54)\^зBO$Гџ‹(27)Ћџ‹(31)\ иDMГ0:DE$ГNP$ЋCI$ЋCE$ЋBO$:’150,18:’41601,0:’41587,0:’41583,0:]йл:’SP,.:’41594,13:’41601,19:’41587,21:’41583,95:’41591,32:т80:ž1:І218:ё32,12:‡"ALL FILES CLOSED":‡:‡:Š]к€TГ1Ѕ10:Ђ:‹T:]*лЅ 219]Wмл::€TГ1Ѕ24:A$:‹T:€TГ0Ѕ џЌ:ER$(џЌ):‹:]кнž:’41594,13:т40:ј3,0,U:‡:‡"       ";ER$(џЌ);" ERROR ";"IN LINE NUMBER";џ­:ј2,0:‡:‡:‡"ALL FILES HAVE BEEN CLOSED":ј0,0:‡:‡:Š:„Š^о† NF,SN,RG,OD,FC,OV,OM,UL,BS,DD,/0,ID,TM,OS,LS,ST,CN,FD,AO,DN^aп† IO,FM,NO,IE,DS,UF,NE,BR,DF,OB,WP,FN,FS,AE,FO,SE,VF,ER,DS,HR,HP^Юрф0:ž1:І209:ј0,0:‡"This program part is not finished":‡:‡"Returning to Main Menu":ј1,0:€TГ1Ѕ2000:‹T:Ѕ15:‡:‡:Š:„Š^о† NF,SN,RG,OD,FC,OV,OM,UL,BS,DD,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ