editslice	equ		$
		GOSUB		scrolloff			; Start with a fresh clean screen.
		PUMP		DEVICE.console,slicemenu	; Pump out message to a fresh clear screen.
		GOSUB		getchar				; Pause until key hit.
		GOTO		main_ipl_menu			; Back to main menu.

sliceitem1	equ		sl1+11
sliceitem2	equ		sl2+11
sliceitem3	equ		sl3+11
sliceitem4	equ		sl4+11
sliceitem5	equ		sl5+11
sliceitem6	equ		sl6+11
sliceitem7	equ		sl7+11
sliceitem8	equ		sl8+11
sliceitem9	equ		sl9+11


slicemenu	db		CR.asc
		db		CR.asc
		DB		"+-------------------------------------------------+",CR.asc
		DB 		"|                     S L I C E                   |",CR.asc
		DB		"|                    T A B L E S                  |",CR.asc
		db		"|                   - - - - - - -                 |",CR.asc
		db		"|                                                 |",CR.asc
		db		"| Slice     Name       Start     Length           |",CR.asc
		db		"| _______________________________________________ |",CR.asc
		db		"|                                                 |",CR.asc
sl0		db		"| 0: Slice 0 system  0001:0000h 0000:0100h        |",CR.asc
sl1		db		"| 1: Slice 1 user    0001:0100h 0000:0100h        |",CR.asc
sl2		db		"| 2:                 0000:0000h 0000:0000h        |",CR.asc
sl3		DB		"| 3:                 0000:0000h 0000:0000h        |",CR.asc
sl4		DB		"| 4:                 0000:0000h 0000:0000h        |",CR.asc
sl5		DB		"| 5:                 0000:0000h 0000:0000h        |",CR.asc
sl6		DB		"| 6:                 0000:0000h 0000:0000h        |",CR.asc
sl7		DB		"| 7:                 0000:0000h 0000:0000h        |",CR.asc
sl8		DB		"| 8:                 0000:0000h 0000:0000h        |",CR.asc
sl9		DB		"| 9:                 0000:0000h 0000:0000h        |",CR.asc
		DB		"+-------------------------------------------------+",CR.asc
		db		ETX.asc
			
slicestart	equ		slicebuffer+0
slicelength	equ		slicebuffer+4
slicename	equ		slicebuffer+8
slicebuffer	ds		24
