incdir	demo:
	include	includes/exec_lib.i
	include	includes/dos_lib.i
	include	includes/graphics_lib.i

	section	runPAL,code

	cmp.b		#10,(a0)
	beq.w		exit
	subq.w		#2,d0

	lea		name,a1
loop	move.b		(a0)+,(a1)+
	dbf		d0,loop

	openlibrary	graphics,0
	beq.s		exit
	openlibrary	dos,0
	beq.s		exit
	move.l		graphicsbase,a6
	move.l		$22(a6),prev_view
	sub.l		a1,a1
	call		loadview
	call		waittof
	call		waittof

	move.l		#name,d1
	moveq		#0,d2
	moveq		#0,d3
	calldos		execute

	move.l 		graphicsbase,a6
	move.l		prev_view,a1
	jsr		_lvoloadview(a6)
	closelibrary	dos
	closelibrary	graphics
exit	moveq		#0,d0
	rts


	section	runik,data
graphicsname	dc.b	'graphics.library',0
dosname		dc.b	'dos.library',0
verstring	dc.b	'$VER:runPAL v1.0 by Noster of Venture. 27.06.96',0

	section	runniczek,bss
graphicsbase	ds.l	1
dosbase		ds.l	1
prev_view	ds.l	1
name		ds.b	256