beg:

; ----- graphics.library -----
scrollraster=	-396
setapen=	-342
text= 		-60
setfont= 	-66
closefont=	-78
move= 		-240
draw=		-246
initbitmap= 	-390
initrastport= 	-198
clearscreen=	-48
; ----- exec.library     -----
allocabs=	-204
openlibrary= 	-408
closelibrary= 	-414
forbid= 	-132
permit= 	-138
; ----- diskfont.library -----
openfont= 	-30

execbase= 	$04

movem.l 	d0-d7/a0-a6,-(a7)
; ---- open graphics.library ----
move.l		execbase,a6
lea		gfxname,a1
jsr		openlibrary(a6)
move.l		d0,gfxbase

move.l		gfxbase,a0		; copperliste einschalten
add.l		#$32,a0
move.w		#$0080,$dff096
move.l		(a0),oldcopper
move.l		#newcopper,(a0)
move.w		#$8080,$dff096

move.l		gfxbase,a6		; bitmapstruktur
lea		bitmap,a0		; initialisieren
move.l		#$01,d0
move.l		#320,d1
move.l		#200,d2
jsr		initbitmap(a6)
move.l		#$50000,plane1
lea		rastport,a1
jsr		initrastport(a6)
move.l		#bitmap,r_bitmap

lea		rastport,a1		; Bildschirm loeschen
jsr		clearscreen(a6)

lea		rastport,a1		; Zeichenfarbe setzen
move.l		#$01,d0
jsr		setapen(a6)

; ---- textausgaben ----
move.l		gfxbase,a6
lea		rastport,a1
move.l		#28,d0
move.l		#96,d1
jsr		move(a6)		
lea		rastport,a1		
move.l		#text1,a0		; anfangsadr.
move.l		#33,d0			; laenge
jsr		text(a6)		; ausgeben
 
; ---- das wars ----

wait:
btst		#6,$bfe001		; linke maustaste ???
bne.s		wait
move.l		execbase,a6
move.l		gfxbase,a1		; graphic.lib schliessen
jsr		closelibrary(a6)
move.l		gfxbase,a0		; alte copperliste einschalten
add.l		#$32,a0
move.w		#$0080,$dff096
move.l		oldcopper,(a0)
move.w		#$8080,$dff096
move.l		execbase,a6		; multitasking erlauben
movem.l		(a7)+,d0-d7/a0-a6
error:
rts


newcopper:
dc.w $0180,$0000,$0182,$0fff
dc.w $008e,$2c81,$0090,$f4c1
dc.w $0092,$0038,$0094,$00d0
dc.w $0108,$0000,$010a,$0000
dc.w $0102,$0000,$0104,$0000
dc.w $0100,$1200,$00e0,$0005
dc.w $00e2,$0000
dc.w $ffff,$fffe

text1:
DC.B	"HIGH QUALITY CRACKINGS Inc., 1987"
even
gfxbase:
dc.l 	0
bitmap:
blk.w 	4,0
plane1:
blk.l 	10,0
rastport:
blk.l 	1,0
r_bitmap:
blk.l 	26,0
oldcopper:
dc.l 	0
gfxname:
dc.b 	"graphics.library",0