; ** OPEN A SHITTY WINDOW **

OPENLIB 	=-408
CLOSELIB	=-414
EXECBASE	=4
OPEN		=-30
CLOSE		=-36
READ		=-42
WRITE		=-48
EXIT		=-144
MODE_OLD	=1005

START:
	MOVE.L	EXECBASE,A6
	LEA		DOSNAME,A1
	MOVEQ	#0,D0
	JSR		OPENLIB(A6)			; OPEN DOS LIBRARY
	MOVE.L	D0,DOSBASE
	BEQ		ERROR
	MOVE.L	DOSBASE,A6
	MOVE.L	#NAME,D1
	MOVE.L	#MODE_OLD,D2
	JSR		OPEN(A6)
	MOVE.L	D0,CONHANDLE
	BEQ		ERROR
	MOVE.L	CONHANDLE,D1
	MOVE.L	#TTEXT,D2
	MOVE.L	#TENDE-TTEXT,D3
	JSR		WRITE(A6)
	MOVE.L	CONHANDLE,D1
	MOVE.L	#BUFFER,D2
	MOVE.L	#80,D3
	JSR		READ(A6)
	MOVE.L	CONHANDLE,D1
	JSR		CLOSE(A6)
	BRA		ENDE
ERROR:
	MOVE.L	#-1,D0
ENDE:
	MOVE.L	D0,D1
	MOVE.L	DOSBASE,A6
	JSR		EXIT(A6)
	RTS
	
DOSNAME:	dc.b	"dos.library",0
NAME:		dc.b	"RAW:0/0/640/256/** KNOB HEADS **",0
TTEXT:		dc.b	"C R Y P T I C   9 0",0
TENDE:
BUFFER:		DCB.B	80,0
	EVEN
DOSBASE:	DC.L	0
CONHANDLE:	DC.L	0