db '********************************************************',cr,lf
   db '*  ____     ____     ____     .     .   .      ___     *',cr,lf
   db '*     /    (___     /        /_\    |\  |       __)    *',cr,lf
   db '*    /     ____)    \____   /   \   |  \|      ___)    *',cr,lf
   db '*   /___  ..........................................   *',cr,lf
   db '*                                                      *',cr,lf
   db '*                ZSCAN3.COM                            *',cr,lf
   db '*      v.0100pm,sun,01.jun.86,  by  Glen Ellis         *',cr,lf
   db '*           released as Public Domain                  *',cr,lf
   db '*                                                      *',cr,lf
   db '********************************************************',cr,lf
   db 00


;-----------------------------------------------   
;;;     LIBRARY

; ASSEMBLY METHODS.

; Author used MicroSoft A.L.D.S. 
; (Assembly Language Development System)
; from Micro-Soft, which is a Macro/Linker system,
; which is similar to D.R.I. MAC.COM.
; This source contains very little code
; which is not compatible with with Public Domain ZASM.COM. 

; user may use Word Star to bring in the library.
;           cut out un-used portions of library.
;           cut out any conditional notation.
;           make minor modifications.
;           use ZASM.COM.
; Apple CP/M will handle the large source file.

******************************************************************************


   db '--------------------------------------------------------',cr,lf
   db '|       <C>onvert old -> new   <E>cho <H>elp <Q>uit    |',cr,lf
   db '|       <D>base Alph/Num         <P>ass character      |',cr,lf
   db '|                                                      |',cr,lf
   db '|    Logical Hex Conversion:     <F>Fh EOR             |',cr,lf
   db '|    <A>and   <O>or   <X>eor     <W>ordStar strip      |',cr,lf
   db '--------------------------------------------------------',cr,lf
   db 00


   db '--------------------------------------------------------',cr,lf
   db '|       <C>onvert old -> new   <E>cho <H>elp <Q>uit    |',cr,lf
   db '|       <D>base Alph/Num         <P>ass character      |',cr,lf
   db '|                                                      |',cr,lf
   db '|    Logical Hex Conversion:     <F>Fh EOR             |',cr,lf
   db '|    <A>and   <O>or   <X>eor     <W>ordStar strip      |',cr,lf
   db '--------------------------------------------------------',cr,lf


::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 		will prompt for user input:       

		C  P  A  O  X

		blind run routines:

		D  F  W

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


	db '+=+=+=++=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=',cr,lf
	db ' SCAN.COM written by Glen Ellis                ',cr,lf
	db ' Rehab.Engineering, University of Tennessee    ',cr,lf
	db ' 682 Court, Memphis, Tn, 38163                 ',cr,lf
	db '+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+',cr,lf
	db '       Reads / Alters / Writes                 ',cr,lf  
	db ' Each  File  Sector  Directly  on  Disk  ! ! ! ',cr,lf
	db '+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+',cr,lf
	db ' <E>cho  : useful for debugging user mod.      ',cr,lf
	db ' <C>Convert old/New  : Alpha or Hex.           ',cr,lf
        db '    for converting specific characters.        ',cr,lf
	db '    WordStar to MacIntosh, for example.        ',cr,lf
	db ' <D>base Alpn/Num    clears   bad characters   ',cr,lf
	db '    from dBASE command files. Life Saver !     ',cr,lf
        db '    leaves <0Dh> <0Ah> as required.            ',cr,lf
	db '                                               ',cr,lf
 	db ' <W>ordStar 7Fh AND to clear hi bit ascii.     ',cr,lf
	db '    leaves <CR> hi/lo bit form as is.          ',cr,lf
	db '...............................................',cr,lf
	db ' <CR> for next screen                          '       
	db 00

	db '+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+',cr,lf
	db '       Reads / Alters / Writes                 ',cr,lf  
	db ' Each  File  Sector  Directly  on  Disk  ! ! ! ',cr,lf
	db '+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+',cr,lf
	db '                                               ',cr,lf
	db '  <P>ass character Exclusive OR  function:     ',cr,lf
	db '                                               ',cr,lf
	db '  Prompts for ascii/hex characer to be used    ',cr,lf
	db '  in the user selected logical function.       ',cr,lf
        db '                                               ',cr,lf
	db '  <AND> <OR> <XOR>  Logical Mask Functions :   ',cr,lf
        db '  Prompts for HEX byte to become logical mask. ',cr,lf
	db '                                               ',cr,lf
	db '  <AND> 7F will make Word Star <return>        ',cr,lf
	db '  into a hard <return>, locking ^reform.       ',cr,lf
        db '                                               ',cr,lf
	db '  <F>Fh EOR  simple scramble.                  ',cr,lf
	db '...............................................',cr,lf
	db ' <CR> to menu,      previous entries are 00H   '       
	db 00



******************************************************************************