Rutin:	move.l	$4.W,a6
	lea	graf(pc),a1
	clr.l	d0
	jsr	-552(a6)
	move.l	d0,a6
	move.l	d0,gfxbase

	lea	data(pc),a1
	lea	$52000,a2
myra:	move.l	(a1),(a2)+
	cmp.l	#$fffffffe,(a1)+
	bne.s	myra
*-------------------------------------------
	bsr.s	init

	move.w  #$00a0,$dff096
	move.l  $32(a6),$51000
	move.l  #$52000,$32(a6)
	move.w  #$8380,$dff096
loop:
	bra loop

*-------------------------------------------

init:	lea	$70000,a1
clear:	clr.l	(a1)+
	cmp.l	#$7e000,a1
	bne.s	clear

	lea     $41000,a0
	move.l  #1,d0
	move.l  #768,d1
	move.l  #192,d2
	jsr     -$0186(a6)
	move.l  #$70000,$41008
	lea     $41100,a1
	jsr     -$00c6(a6)
	move.l  #$41000,$41104
	
	rts

data:	dc.w	$0100,$2200,$0102,$0001
	dc.w	$0108,$0000,$010a,$0000
	dc.w	$0092,$0020,$0094,$00d8
	dc.w	$008e,$3000,$0090,$30ff
	dc.w	$00e0,$0007,$00e2,$0870
	dc.w	$00e4,$0007,$00e6,$08a0

	dc.w	$0180,$0000,$0182,$0000
	dc.w	$0184,$0fff,$0186,$0fff

	dc.w	$3401,$fffe,$0180,$0ccc
	dc.w	$3501,$fffe,$0180,$0888
	dc.w	$4601,$fffe,$0180,$0444
	dc.w	$4701,$fffe,$0180,$0000

	dc.w	$4c01,$fffe,$0180,$0ccc
	dc.w	$4d01,$fffe,$0180,$0888
	dc.w	$5e01,$fffe,$0180,$0444
	dc.w	$5f01,$fffe,$0180,$0000

	dc.w	$7601,$fffe,$0180,$0ccf
	dc.w	$7701,$fffe,$0180,$088f
	dc.w	$8801,$fffe,$0180,$044f
	dc.w	$8901,$fffe,$0180,$0000

	dc.w	$8e01,$fffe,$0180,$0ccf
	dc.w	$8f01,$fffe,$0180,$088f
	dc.w	$a001,$fffe,$0180,$044f
	dc.w	$a101,$fffe,$0180,$0000

	dc.w	$a601,$fffe,$0180,$0ccf
	dc.w	$a701,$fffe,$0180,$088f
	dc.w	$b801,$fffe,$0180,$044f
	dc.w	$b901,$fffe,$0180,$0000

	dc.w	$be01,$fffe,$0180,$0ccf
	dc.w	$bf01,$fffe,$0180,$088f
	dc.w	$d001,$fffe,$0180,$044f
	dc.w	$d101,$fffe,$0180,$0000

	dc.w	$d601,$fffe,$0180,$0ccf
	dc.w	$d701,$fffe,$0180,$088f
	dc.w	$e801,$fffe,$0180,$044f
	dc.w	$e901,$fffe,$0180,$0000

	dc.w	$ee01,$fffe,$0180,$0ccf
	dc.w	$ef01,$fffe,$0180,$088f
	dc.w	$ffe1,$fffe
	dc.w	$0001,$fffe,$0180,$044f
	dc.w	$0101,$fffe,$0180,$0000

	dc.w	$ffff,$fffe
*-------------------------------------------
*---------------------------------------------------
doss:	dc.b	"dos.library",0
*---------------------------------------------------
graf:	dc.b	"graphics.library",0
*-------------------------------------------
	even
gfxbase:	dc.l 0