title	'Text for CHGDISK.PLI'
	name	'CHGTXT'

	common	/chgtxt/

CR	equ	0DH
LF	equ	0AH

	db	num$ptrs
start:	dw	?title
	dw	usage$msg
	dw	bad$rom$msg
	dw	no$rdisk$msg
	dw	nempty$msg
	dw	bad$parm$msg
	dw	bad$bsh$msg
	dw	bad$drm$msg
	dw	bad$off$msg
	dw	bad$dir$msg
	dw	space$wrn$msg

num$ptrs	equ	($-start)/2

?title:
	db	CR,LF,'        CHGDISK  v1.1,'
	db	' Copyright 1986 Plu*Perfect Systems$'

usage$msg:
	db	CR,LF
	db	'This program allows the parameters of'
	db	' an Advent Ramdisk which is',CR,LF
	db	'running under the TurboROM to modified.  '
	db	'The Ramdisk must be empty and',CR,LF
	db	'the system size must allow for any change '
	db	'in table space requirements.',CR,LF
	db	'USAGE:-',CR,LF
	db	'     CHGDISK  [bsh=n] [drm=m] [off=k]',CR,LF,LF
	db	'where BSH, DRM and OFF are standard '
	db	'as defined by Digital Research in',CR,LF
	db	'the CP/M manual.  All parameters '
	db	'are optional though no changes are',CR,LF
	db	'made if there are no parameters.',CR,LF,LF
	db	'BSH=3,4,5,6,7   give block sizes of '
	db	'1,2,4,8,16 K respectively though the',CR,LF
	db	'                1 K blocks are only '
	db	'available on the 256K drive.',CR,LF,LF
	db	'DRM=63,95,127   etc will give directory '
	db	'entries of 64,96,128 respectively.',CR,LF
	db	'                The minimum directory '
	db	'entries is 32*blocksize(in K)',CR,LF,LF
	db	'OFF= k          will reserve "k-1" extra '
	db	'reserved tracks for special',CR,LF
	db	'                applications such as '
	db	'implementing a print spooler or',CR,LF
	db	'                hard disk caching '
	db	'scheme. Minimum k=1.',CR,LF
	db	'Y               will continue even if '
	db	'directory not empty$'

bad$rom$msg:
	db	CR,LF,'Turbo ROM required.$'

no$rdisk$msg:
	db	CR,LF,'Advent Ramdisk not installed.$'

nempty$msg:
	db	CR,LF,LF,'Ramdisk directory is not empty.'
	db	CR,LF,'Do you wish to proceed '
	db	'[directory will not be erased] (y/n) $'

bad$parm$msg:
	db	CR,LF,'Bad command line parameters.$'

bad$bsh$msg:
	db	CR,LF,'Invalid BSH specified.$'

bad$drm$msg:
	db	CR,LF,'Invalid DRM specified.$'

bad$off$msg:
	db	CR,LF,'Invalid OFF specified.$'

bad$dir$msg:
	db	CR,LF,'Unable to erase new directory.$'

space$wrn$msg:
	db	CR,LF,LF,'Reconfiguration of '
	db	'RamDisk Parameters Complete.',CR,LF,LF
	db	'We strongly suggest that you double '
	db	'check your high memory',CR,LF
	db	'allocation with PEEK.  If the changes '
	db	'in table space have caused',CR,LF
	db	'memory conflicts your computer will '
	db	'produce erratic results and data',CR,LF
	db	'may be corrupted.$'


msg$space	equ	$ - ?title

	end