*************************************************
*						*
*		 (C)opyright 1991		*
*						*
*		by  Tomi Blinnikka		*
*						*
*	Donīt try to understand the code	*
*						*
* Version 0.01	28/07/1991			*
*						*
* BUGS:	What are they?				*
*						*
*************************************************
	

	INCLUDE	"INCLUDES:JMPLibs.i"
	INCLUDE	"INCLUDES:exec/types.i"
	INCLUDE	"INCLUDES:intuition/intuition.i"
	INCLUDE	"INCLUDES:libraries/dos.i"

	INCLUDE	"XREF:intuition.xref"
	INCLUDE	"XREF:exec.xref"
	INCLUDE	"XREF:dos.xref"

		section	OpenWB,CODE

		move.l	a0,a4
		openlib	Dos,ShutDown_Out

		cmp.b	#"?",(a4)
		beq	CmdLineHelp
	
		openlib	Intuition,NoIntuition
		lib	Intuition,OpenWorkBench

ShutDown:	closlib	Intuition
		closlib	Dos
ShutDown_Out:	move.l	#RETURN_OK,d0
		rts

NoIntuition:	print	<"Can't open intuition.library!",10>
		jmp	ShutDown

CmdLineHelp:	print	<"OpenWB, v0.01a by Tomi Blinnikka",10,10,"This program tries to open the Workbench screen.",10>
		jmp	ShutDown


		dc.b	"$VER: OpenWB 0.01a",0
;library stuff

		libnames

		END