jsr	bvg
	jsr	pause
	jsr	bvg
beg:	jmp 	start

;------------------------------- Definitionen,Lables -----------------

		even
key:		equ	$bfec01		;Tastatur-Adresse
lmb:		equ	$bfe001		;Linke Maus Taste
bild:		equ	$5ff46		;Grafikbild
intalt:		dc.l	$00		;Alte Interrupt Adresse
copperaddr1:	dc.l	$00		;Copperadresse
copperaddr2:	dc.l	$00		;Copperliste
		even
filename:	dc.b	"filename",0
		even
bif:		dc.l	0 
printflag:	dc.b	0,0
		even
seite:		dc.l	$5fe97
		even
scrollflag:	dc.b	$0
		even
scrollflag1:	dc.b	$0
		even
textzeig:	dc.l	$0
		even
textzeig1:	dc.l	$0
		even
		dc.l	$ffffffff
		even
textzwi:	dc.b	$00,$00,$00,$00,$00,$00,$00,$00
textzwiend:
		dc.b	$00,$00,$00,$00,$00,$00,$00,$00
textzwiend1:
		even
cond:		dc.b	$0
		even
bitzaehler:	dc.b	$0
		even
reg:		dc.b	$0,$0
		even
scrollzeile:	dc.l	$0
		even
symbol:		dc.b	$0
		even
staerke:	dc.b	$3f
		even
lautflag:	dc.b	$00
		even
pbyte:		dc.l	$00
		even
durchlauf:	dc.b	$06
		even
d0z:		dc.w	$0002
d1z:		dc.w	$0000
d2z:		dc.w	$0000
d3z:		dc.w	$0000
scrollspeed:	dc.w	$0002
		even
;------------------------------- Daten der Librarys ------------------

	even
intbase:blk.l	00,00		;Basisadresse der Intuition
dosbase:blk.l	00,00		;Basisadresse des DOS
grabase:blk.l	00,00		;Basisadresse der Graphic

	even
intname:dc.b	"intuition.library",0
dosname:dc.b	"dos.library",0
graname:dc.b	"graphics.library",0

;--------------------------------------- Daten fÜr New Window -------
;--------------------------------------- Librarys eröffnen -----------
even
openint:
	move.l	4,a6			;Intuition Library
	lea	intname,a1		;eröffnen
	jsr	-408(a6)
	move.l	d0,intbase
	rts

opendos:
	move.l	4,a6			;Dos Library
	lea	dosname,a1		;eröffnen
	jsr	-408(a6)
	move.l	d0,dosbase
	rts

opengra:
	move.l	4,a6			;Graphics Library
	lea	graname,a1		;eröffnen
	jsr	-408(a6)
	move.l	d0,grabase
	rts


;--------------------------------------- Unterprogramme ------ ------

home:	move.l	#$60000,a1
	move	#48000,d0		;Bildschirm löschen
h1:	move.b	#0,(a1)+		;2 Bitebenen
	dbf	d0,h1
	rts

intoff:	move.l 	$6c,intalt
	move.l 	$04,a6			;interrupt ausschalten
	jsr 	-132(a6)
	rts

inton:	move.l	$04,a6			;interrupt einschalten
	move.l	intalt,$6c
	jsr	-138(a6)
	rts
;---------------------------------------------- Copper Programing ---
savecopperl:
	jsr opengra
	add.l	#$32,d0
	move.l	d0,a5
	move.l 	a5,copperaddr1		;Copperaddress 1
	move.l 	(a5),copperaddr2	;Copperaddress 2
	rts

oldcopperl:
	move.l	copperaddr1,a5		;Alter copp.zeiger
	move.l	copperaddr2,(a5)	;Alte copp.adresse
	rts

usecopperl:
	jsr	savecopperl
	move.l	#copperl,(a5)
	rts
;---------------Print --------

printn:
	move.b	#1,printflag
	bra	j
printb:
	move.b	#0,printflag
printc:
j:	move.l	seite,a2
m:	move.l	#textlb,a4
	cmp.b	#0,printflag
	beq	q
	move.l	#textln,a4
q:	clr.l	d3
	clr.l	d4
	move.b	(a3)+,d3
	beq	o

	cmp.b	#$30,d3
	blt	wr
	cmp.b	#$39,d3
	bgt	wr
	move.l	#zahl,a4
	cmp.b	#0,printflag
	beq	bd
	move.l	#zahl1,a4
bd:	sub.l	#$30,d3
	bra	hg

wr:	cmp.b	#$21,d3
	blt	wt
	cmp.b	#$2f,d3
	bgt	wt
	move.l	#texts1,a4
	cmp.b	#0,printflag
	beq	ba
	move.l	#textt1,a4
ba:	sub.l	#$21,d3
	bra	hg

wt:	cmp.b	#$3a,d3
	blt	wy
	cmp.b	#$3f,d3
	bgt	wy
	move.l	#texts2,a4
	cmp.b	#0,printflag
	beq	bb
	move.l	#textt2,a4
bb:	sub.l	#$3a,d3
	bra	hg

wy:	cmp.b	#$5b,d3
	blt	we
	cmp.b	#$5f,d3
	bgt	we
	move.l	#texts3,a4
	cmp.b	#0,printflag
	beq	bc
	move.l	#textt3,a4
bc:	sub.l	#$5b,d3
	bra	hg

we:	cmp.b	#$20,d3
	beq	u
	cmp.b	#$61,d3
	blt	k

i:	sub.l	#$60,d3
hg:	cmp.b	#0,printflag
	beq	r
	mulu	#8,d3
	bra	s
r:	mulu	#16,d3
s:	add.l	d3,a4
	cmp.b	#1,scrollflag	;scrollmode?
	bne	p
	rts	

p:	move.l	#8-1,d1
l:	move.b	(a4)+,(a2)
	cmp.b	#0,printflag
	beq	er
	bra	et
er:	move.b	(a4)+,1(a2)
et:	add.l	#40,a2
	dbf	d1,l

	cmp.b	#0,printflag
	beq	s1
	sub.l	#319,a2
	bra	s2
s1:	sub.l	#318,a2
s2:	bra	m

k:	sub.l	#1,d3			;Position errechnen
	move.l	d3,d6
	move.l	seite,a2
n:	add.l	#360,a2
	dbf	d6,n
	move.b	(a3)+,d3
	add.l	d3,a2
	bra	m

o:	rts
u:	move.l	#textlb,a4
	cmp.b	#0,printflag
	beq	se
	move.l	#textln,a4
se:	cmp.b	#1,scrollflag
	bne	s3
	rts
s3:	bra	p
	even
;---------------------------------------------- Initialisieren ------

;------------------------------------------------
pause:	move.l	#$180,pbyte
p1:	sub.l	#1,pbyte
	bne	p1
	rts

bvg:	move	#2,$dff0a4
	move.l	#wave,$dff0a0
	move	#$440,$dff0a6
	move	#$3f,$dff0a8
	move	#$8201,$dff096
	move.l	#ton,a0
tonp:	move	#$8000,d1
pau:	nop
	dbf	d1,pau
	move	(a0)+,$dff0a6
	beq	endt
	bra	tonp
endt:	move	#$01,$dff096
	rts
ton:	dc.w	440,1200,850,1088,0
	even
wave:	dc.b	127,-127
	even
;--------------------------------------- Error Meldung --------------

;--------------------------------------- Programm Anfang ------------

start:	jsr	home		;clr screen
	jsr	usecopperl	;copperliste an



	move.l	#texta,a3		;text printen
	jsr	printn

w:	move	$dff006,d0		;bild scrollen
	lsr	#8,d0
	cmp.b	#$bc,lmb		;mouse
	beq	ende

	cmp.b	#$da,d0
	bge	w
	
dew1:	sub.b	#1,durchlauf
	bne	dew
	move.b	#3,durchlauf
	bra	qsd

dew:	jsr	pause
	bra	dew1

qsd:	sub	#1,d0z
	cmp	#0,d0z
	bne	hhh
	move	scrollspeed,d0z	

	sub.b	#1,kkk+6		 
hhh:	cmp.b	#$28,kkk+6
	bne	qw
	move.b	#$29,kkk+6

qw:	cmp.b	#$5f,$bfec01
	beq	qw

	move.w	str+6,d2		;routine zum scrollen
	move.w	str+14,str+6		;der Farben im Text
	move.w	str+22,str+14
	move.w	str+30,str+22
	move.w	str+38,str+30
	move.w	str+46,str+38
	move.w	str+54,str+46
	move.w	str+62,str+54
	move.w	d2,str+62
	
	move.w	str+94,d3		;Routine zum Scrollen des
	move.w	str+102,str+94		;blauen Balkens
	move.w	str+110,str+102
	move.w	str+118,str+110
	move.w	str+126,str+118
	move.w	str+134,str+126
	move.w	str+142,str+134
	move.w	str+150,str+142
	move.w	str+158,str+150
	move.w	str+166,str+158
	move.w	str+174,str+166
	move.w	str+182,str+174
	move.w	str+190,str+182
	move.w	str+198,str+190
	move.w	str+206,str+198
	move.w	str+214,str+206
	move.w	d3,str+214
	

	move.l	#200,d7
asd:				;Zeitschleife
	subq.l	#1,d7
	cmp.l	#0,d7
	bne	asd
	cmp.b	#$bc,lmb
	bne	w

ende:	jsr 	oldcopperl
	jsr	bvg
        clr.l   d0
	rts

;--------------------------------------- Anfang Copper Liste --------

copperl:dc.w	$00e0,$0006,$00e2,$0000	;1.bitebene
	dc.w	$00e4,$0006,$00e6,$0028 ;2.bitebene
	dc.w	$00e8,$0006,$00ea,$0050	;3.bitebene
	dc.w	$00ec,$0006,$00ee,$0078	;4.bitebene
	dc.w	$00f0,$0006,$00f2,$00a0	;5.bitebene

	dc.w 	$0100,$1200,$0102,$0066	;Hires/Bitpl/interlace
        dc.w 	$0108,$0000,$0104,$0000	;Modulo / BPLCON2-Prior 
kkk:	dc.w 	$010a,$0000,$008e,$ff71	;Modulo / oben-links
	dc.w	$0092,$0030,$0090,$40c1	;DFstrt / unten-rechts
	dc.w 	$0094,$00c8		;DFstop /
	

mouse:	dc.w	$0120,$0000,$0122,$0000	;Mouse dunkel

	dc.w	$0101,$ff00,$0180,$0055	;1. zeile grau

str:	dc.w	$2801,$ff00,$0182,$00f0
	dc.w	$2901,$ff00,$0182,$0737	;Scrollcycling $0737=Farbe
	dc.w	$2a01,$ff00,$0182,$0a67
	dc.w	$2b01,$ff00,$0182,$0a67
	dc.w	$2c01,$ff00,$0182,$0737
	dc.w	$2d01,$ff00,$0182,$0737
	dc.w	$2e01,$ff00,$0182,$0a67
	dc.w	$2f01,$ff00,$0182,$0a67
	dc.w	$3001,$ff00,$0182,$0d02
	dc.w	$3201,$ff00,$0180,$0f00
	dc.w	$3301,$ff00,$0180,$0000

	dc.w	$4001,$ff00,$0180,$043f	;blauer balken
	dc.w	$4101,$ff00,$0180,$044f
	dc.w	$4201,$ff00,$0180,$045f
	dc.w	$4301,$ff00,$0180,$046f
	dc.w	$4401,$ff00,$0180,$047f
	dc.w	$4501,$ff00,$0180,$048f
	dc.w	$4601,$ff00,$0180,$049f
	dc.w	$4701,$ff00,$0180,$04af
	dc.w	$4801,$ff00,$0180,$04bf
	dc.w	$4901,$ff00,$0180,$04af
	dc.w	$4a01,$ff00,$0180,$049f
	dc.w	$4b01,$ff00,$0180,$048f
	dc.w	$4c01,$ff00,$0180,$047f
	dc.w	$4d01,$ff00,$0180,$046f
	dc.w	$4e01,$ff00,$0180,$045f
	dc.w	$4f01,$ff00,$0180,$044f
	
	dc.w	$5001,$ff00,$0180,$0000
	dc.w	$01a0,$0f08,$01a2,$0635
	dc.w	$01a4,$0c85,$01a6,$0ff3
	dc.w	$de01,$ff00,$0182,$0ff0
	dc.w	$f401,$ff00,$0180,$0f00	
	dc.w	$f501,$ff00,$0180,$0055
	dc.w	$fc01,$ff00,$0182,$00f0
	dc.w	$ffff,$fffe		;Ende Copperliste
	even

textlb:
	dc.w 	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;space
	dc.w 	$03c0,$0ff0,$3c3c,$3ffc,$3c3c,$3c3c,$3c3c,$0000	;a
	dc.w 	$3ff0,$3c3c,$3c3c,$3ff0,$3c3c,$3c3c,$3ff0,$0000	;b
	dc.w 	$0ff0,$3c3c,$3c00,$3c00,$3c00,$3c3c,$0ff0,$0000	;c
	dc.w 	$3fc0,$3cf0,$3c3c,$3c3c,$3c3c,$3cf0,$3fc0,$0000	;d
	dc.w 	$3ffc,$3c00,$3c00,$3fc0,$3c00,$3c00,$3ffc,$0000	;e
	dc.w 	$3ffc,$3c00,$3c00,$3fc0,$3c00,$3c00,$3c00,$0000	;f
	dc.w 	$0ff0,$3c3c,$3c00,$3cfc,$3c3c,$3c3c,$0ff0,$0000	;g
	dc.w 	$3c3c,$3c3c,$3c3c,$3ffc,$3c3c,$3c3c,$3c3c,$0000	;h
	dc.w 	$0ff0,$03c0,$03c0,$03c0,$03c0,$03c0,$0ff0,$0000	;i
	dc.w 	$03fc,$00f0,$00f0,$00f0,$00f0,$3cf0,$0fc0,$0000	;j
	dc.w 	$3c3c,$3cf0,$3fc0,$3f00,$3fc0,$3cf0,$3c3c,$0000	;k
	dc.w 	$3c00,$3c00,$3c00,$3c00,$3c00,$3c00,$3ffc,$0000	;l
	dc.w 	$3c0f,$3f3f,$3fff,$3ccf,$3c0f,$3c0f,$3c0f,$0000	;m
	dc.w 	$3c3c,$3f3c,$3ffc,$3ffc,$3cfc,$3c3c,$3c3c,$0000	;n
	dc.w 	$0ff0,$3c3c,$3c3c,$3c3c,$3c3c,$3c3c,$0ff0,$0000	;o
	dc.w 	$3ff0,$3c3c,$3c3c,$3ff0,$3c00,$3c00,$3c00,$0000	;p
	dc.w 	$0ff0,$3c3c,$3c3c,$3c3c,$3c3c,$0ff0,$00fc,$0000	;q
	dc.w 	$3ff0,$3c3c,$3c3c,$3ff0,$3fc0,$3cf0,$3c3c,$0000	;r
	dc.w 	$0ff0,$3c3c,$3c00,$0ff0,$003c,$3c3c,$0ff0,$0000	;s
	dc.w 	$3ffc,$03c0,$03c0,$03c0,$03c0,$03c0,$03c0,$0000	;t
	dc.w 	$3c3c,$3c3c,$3c3c,$3c3c,$3c3c,$3c3c,$0ff0,$0000	;u
	dc.w 	$3c3c,$3c3c,$3c3c,$3c3c,$3c3c,$0ff0,$03c0,$0000	;v
	dc.w 	$3c0f,$3c0f,$3c0f,$3ccf,$3fff,$3fbf,$3c0f,$0000	;w
	dc.w 	$3c3c,$3c3c,$0ff0,$03c0,$0ff0,$3c3c,$3c3c,$0000	;x
	dc.w 	$3c3c,$3c3c,$3c3c,$0ff0,$03c0,$03c0,$03c0,$0000	;y
	dc.w 	$3ffc,$003c,$00f0,$03c0,$0f00,$3c00,$3ffc,$0000	;z

texts3:	dc.w 	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;[
	dc.w	$f000,$3c00,$0f00,$03c0,$00f0,$003c,$000f,$0000	;\
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;]
	dc.w	$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$0000	;^blw
;	dc.w	$ee67,$aa94,$ee96,$8c94,$8964,$0000,$ffff,$0000	;^PROF
	dc.w	$aaaa,$aaaa,$aaaa,$aaaa,$aaaa,$aaaa,$aaaa,$0000	;_blg
;	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$ffff	;_
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;space

texts1:	dc.w	$03c0,$03c0,$03c0,$03c0,$0000,$0000,$03c0,$0000	;!
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;"
	dc.w	$7e7e,$1806,$1806,$1806,$1986,$0006,$1ffe,$0000	;# tj
;	dc.w	$1234,$0000,$0000,$0000,$0000,$0000,$0000,$5678	;$
	dc.w	$000f,$00ff,$0fff,$ffff,$0fff,$00ff,$000f,$0000	;$ >
	dc.w	$f000,$ff00,$fff0,$ffff,$fff0,$ff00,$f000,$0000 ;% <
;	dc.w	$000f,$f03c,$90f0,$f3cf,$0f09,$3c0f,$f000,$0000	;%
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;&
	dc.w	$003c,$00f0,$03c0,$0000,$0000,$0000,$0000,$0000	;'
	dc.w	$00f0,$03c0,$0f00,$0f00,$0f00,$03c0,$00f0,$0000	;(
	dc.w 	$0f00,$03c0,$00f0,$00f0,$00f0,$03c0,$0f00,$0000	;)
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;*
	dc.w	$8a40,$d800,$abc9,$8a46,$8be9,$0000,$ffff,$0000	;+ Mäx
	dc.w 	$0000,$0000,$0000,$0000,$0000,$03c0,$03c0,$0f00	;,
	dc.w	$0000,$0000,$0000,$3ffc,$0000,$0000,$0000,$0000	;-
	dc.w	$0000,$0000,$0000,$0000,$0000,$03c0,$03c0,$0000	;.
	dc.w	$000f,$003c,$00f0,$03c0,$0f00,$3c00,$f000,$0000	;/
zahl:	dc.w	$0ff0,$3c3c,$3cfc,$3f3c,$3c3c,$3c3c,$0ff0,$0000	;0
	dc.w 	$03c0,$03c0,$0fc0,$03c0,$03c0,$03c0,$3ffc,$0000	;1
	dc.w 	$0ff0,$3c3c,$003c,$03c0,$0f00,$3c00,$3ffc,$0000	;2
	dc.w 	$0ff0,$3c3c,$003c,$03f0,$003c,$3c3c,$0ff0,$0000	;3
	dc.w 	$003c,$00fc,$03fc,$3c3c,$3fff,$003c,$003c,$0000	;4
	dc.w 	$3ffc,$3c00,$3c00,$3ff0,$003c,$3c3c,$0ff0,$0000	;5
	dc.w 	$0ff0,$3c3c,$3c00,$3ff0,$3c3c,$3c3c,$0ff0,$0000	;6
	dc.w 	$3ffc,$3c3c,$00f0,$03c0,$03c0,$03c0,$03c0,$0000	;7
	dc.w 	$0ff0,$3c3c,$3c3c,$0ff0,$3c3c,$3c3c,$0ff0,$0000	;8
	dc.w 	$0ff0,$3c3c,$3c3c,$0ffc,$003c,$3c3c,$0ff0,$0000	;9
texts2:	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;:
	dc.w	$0180,$01c0,$0360,$6330,$37f8,$1e0c,$0c06,$0000	;; A
	dc.w	$00f0,$03c0,$0f00,$3c00,$0f00,$03c0,$00f0,$0000 ;<
	dc.w	$0000,$0000,$03c0,$0000,$0000,$03c0,$0000,$0000	;=
	dc.w	$3c00,$0f00,$03c0,$00f0,$03c0,$0f00,$3c00,$0000	;>
	dc.w	$0ff0,$3c3c,$003c,$00f0,$03c0,$0000,$03c0,$0000	;?

textln:	dc.b	$00,$00,$00,$00,$00,$00,$00,$00
	dc.b	$18,$24,$42,$7e,$42,$42,$42,$00	;a
	dc.b	$7c,$42,$42,$7c,$42,$42,$7c,$00	;b
	dc.b	$3c,$42,$40,$40,$40,$42,$3c,$00	;c
	dc.b	$7c,$42,$42,$42,$42,$42,$7c,$00	;d
	dc.b	$7c,$40,$40,$78,$40,$40,$7c,$00	;e
	dc.b	$7e,$40,$40,$78,$40,$40,$40,$00	;f
	dc.b	$3c,$42,$40,$4e,$42,$42,$3c,$00	;g
	dc.b	$42,$42,$42,$7e,$42,$42,$42,$00	;h
	dc.b	$7c,$10,$10,$10,$10,$10,$7c,$00	;i
	dc.b	$04,$04,$04,$04,$04,$44,$38,$00	;j
	dc.b	$44,$48,$50,$60,$50,$48,$44,$00	;k
	dc.b	$40,$40,$40,$40,$40,$40,$7e,$00	;l
	dc.b	$82,$c6,$aa,$92,$82,$82,$82,$00	;m
	dc.b	$82,$c2,$a2,$92,$8a,$86,$82,$00	;n
	dc.b	$38,$44,$44,$44,$44,$44,$38,$00	;o
	dc.b	$7c,$42,$42,$7c,$40,$40,$40,$00	;p
	dc.b	$3c,$42,$42,$42,$4a,$46,$3e,$00	;q
	dc.b	$7c,$42,$42,$7c,$48,$44,$42,$00	;r
	dc.b	$3c,$42,$40,$3c,$02,$42,$3c,$00	;s
	dc.b	$fe,$10,$10,$10,$10,$10,$10,$00	;t
	dc.b	$42,$42,$42,$42,$42,$42,$3c,$00	;u
	dc.b	$44,$44,$44,$44,$44,$28,$10,$00	;v
	dc.b	$42,$42,$42,$52,$66,$66,$42,$00	;w
	dc.b	$44,$44,$28,$10,$28,$44,$44,$00	;x
	dc.b	$82,$44,$28,$10,$10,$10,$10,$00	;y
	dc.b	$7e,$04,$08,$10,$20,$40,$fc,$00	;z	

textt3:	dc.b	$1e,$10,$10,$10,$10,$10,$1e,$00	;[
	dc.b	$80,$40,$20,$10,$08,$04,$02,$00	;\
	dc.b	$1e,$02,$02,$02,$02,$02,$1e,$00	;]
	dc.b	$ff,$ff,$ff,$ff,$ff,$ff,$ff,$00	;^ block weiss
;	dc.b	$08,$14,$22,$00,$00,$00,$00,$00	;^
	dc.b	$aa,$aa,$aa,$aa,$aa,$aa,$aa,$00 ;_ block grau
;	dc.b	$00,$00,$00,$00,$00,$00,$00,$ff	;_
	dc.b	$00,$00,$00,$00,$00,$00,$00,$00	;space

textt1:	dc.b	$08,$08,$08,$08,$08,$00,$08,$00	;!
	dc.b	$14,$14,$00,$00,$00,$00,$00,$00	;"
	dc.b	$24,$24,$7e,$24,$7e,$24,$24,$00	;#
	dc.b	$03,$0f,$3f,$ff,$3f,$0f,$03,$00	;$ pfeil links
;	dc.b	$08,$1e,$20,$1c,$02,$3c,$08,$00	;$
	dc.b	$c0,$f0,$fc,$ff,$fc,$f0,$c0,$00	;% pfeil rechts
;	dc.b	$61,$62,$04,$08,$10,$26,$46,$00	;%
	dc.b	$7e,$42,$42,$42,$42,$42,$7e,$00	;& quad
	dc.b	$18,$18,$30,$00,$00,$00,$00,$00	;'
	dc.b	$08,$10,$20,$20,$20,$10,$08,$00	;(
	dc.b	$20,$10,$08,$08,$08,$10,$20,$00	;)
	dc.b	$10,$54,$38,$fe,$38,$54,$10,$00	;*
	dc.b	$00,$08,$08,$3e,$08,$08,$00,$00	;+
	dc.b	$00,$00,$00,$00,$00,$18,$18,$30	;,
	dc.b	$00,$00,$00,$3e,$00,$00,$00,$00	;-
	dc.b	$00,$00,$00,$00,$00,$18,$18,$00	;.
	dc.b	$02,$04,$08,$10,$20,$40,$80,$00	;/

zahl1:	dc.b	$3c,$46,$4a,$5a,$52,$62,$3c,$00	;0
	dc.b	$18,$28,$08,$08,$08,$08,$08,$00	;1
	dc.b	$3c,$42,$02,$0c,$30,$60,$7e,$00	;2
	dc.b	$3c,$42,$02,$0c,$02,$42,$3c,$00	;3
	dc.b	$42,$42,$42,$7e,$02,$02,$02,$00	;4
	dc.b	$7e,$40,$7c,$02,$02,$42,$3c,$00	;5
	dc.b	$08,$10,$20,$7c,$42,$42,$3c,$00	;6
	dc.b	$7e,$02,$04,$08,$10,$20,$40,$00	;7
	dc.b	$3c,$42,$42,$3c,$42,$42,$3c,$00	;8
	dc.b	$3c,$42,$42,$3e,$04,$08,$10,$00	;9

textt2:	dc.b	$00,$18,$18,$00,$00,$18,$18,$00	;:
	dc.b	$00,$18,$18,$00,$00,$18,$18,$30	;;
	dc.b	$04,$08,$10,$20,$10,$08,$04,$00	;<
	dc.b	$00,$00,$3e,$00,$3e,$00,$00,$00	;=
	dc.b	$20,$10,$08,$04,$08,$10,$20,$00	;>
	dc.b	$3c,$42,$02,$0c,$10,$00,$10,$00	;?
	even

mousedat:
	dc.b	$94,$84,$9a,00
	dc.b	$ff,$ff,$ff,$ff,$80,$01,$80,$01,$80,$01,$80,$01
	dc.b	$80,$01,$80,$01,$80,$01,$80,$01,$ff,$ff,$ff,$ff

	even
	
texta:	dc.b	14,09,"******starfighter******"
        dc.b    18,08,"   << greets you all>>",0  
	even

saveint:
dc.l 0

intvec         = $6c
savecop2:
dc.l	0
graphics:
dc.b	"graphics.library",0