;PrgmIO to GraphScreen
;Kaercher Sacha

        @program                prog_code,prog_name
prog_code:
	move.w		#$0013,d0
	handle_ptr	d0,a0
	add.l		#4,a0
	move.w		#$000F,d0
	handle_ptr	d0,a1
	add.l		#4,a1
	move.l		#3076,d0
loop:	move.b		(a1)+,(a0)+
	dbra		d0,loop
	rts
****************************************************
prog_name       dc.b    "PrgmIO>Graph  Kaercher Sacha",0
****************************************************        
        reloc_open
        reloc_close
        end