/* DMS / DOpus Interface v1.0        */
/* by Ronnie van 't Westeinde        */
/* Tel.Nr.: 040-525409 (Holland)     */
/* E-Mail : walterd@stack.urc.tue.nl */

address 'DOPUS.1'
screen='DOPUS.1'
con='<NIL: >"CON:0/11/704/189/'
options RESULTS
status 3
window=RESULT

Select
	when ARG(1)='read' then call read
	when ARG(1)='write' then call write
	otherwise nop
	end
exit

read:
	con=con'DMS Read Output/SCREEN' screen'"'    
	call open('dmsvar','ENV:DMSDRIVE','R')
	drive=readln('dmsvar')
	drop RESULT
	getstring "'Insert disk to DMS in '"||drive||"' and enter filename:'"
        filename=RESULT
	if filename='RESULT' then exit
	status 13 window
	curdir=RESULT
	address 'COMMAND' curdir
	dms='dms' con 'read "'||curdir||filename||'" from 'drive
	address 'COMMAND' dms
	rescan window
return

write:
	con=con'DMS Write Output/SCREEN' screen'"'
	call open('dmsvar','ENV:DMSDRIVE','R')
	drive=readln('dmsvar')
        status 13 window
	curdir=RESULT
	getselectedfiles '#'
	files=RESULT
	status 7 window
	num=RESULT
	if num>0 then
		do i=1 to num
			parse var files filename '#' files
			name=right(filename,4)
			if (name='.DMS' | name='.dms') then do
				string='Insert disk to write file "'||filename||'" to in 'drive
				request string
				if RESULT then do
					dms='dms' con 'write "'||curdir||filename||'" to' drive
					address 'COMMAND' dms
					end
				end
			end
return