**********************************************************
* CODED BY: BLITTER SPLITTER	*		 *
* MUZAK BY: LORD PERFORMER 	* SPLITTER INTRO *
* GRAPHIX BY: MING AND CAT	*		 *
* THANX FOR HELP TO: GARFIELD OF BFBS AND LORD PERFORMER
* THANK TO HAEGAR FOR DEBUGGING THE LITTLE FAULTS
* EDIT TEXT ... A ... RI 'SPLIDAT' 'DAT'
* WI NAME  'DAT' 'DATEND' 
**********************************************************
org $6d000
load $6d000
prog = $6d000
font = prog - 36870
bild = font - 40992
data = bild - 40990
dat = data
beg:	move.l	#st,$80
	trap	#0
	clr.l	d0
	clr.l	d1
	rts

POS=	148*50+16
BPOS=	147*50+16

st:	lea	$70000,a0
	lea	$7f000,a1
clear:
	clr.l	(a0)+
	cmp.l	a1,a0
	bne	clear
	lea 	$70780,a0
	move.l	#bild,a1
	move.l	#$27ff,d0
bloop:	move.b	(a1)+,(a0)+
	dbra	d0,bloop	

	lea 	$73780,a0
	move.l	#bild+$2800,a1
	move.l	#$27ff,d0
bloop1:	move.b	(a1)+,(a0)+
	dbra	d0,bloop1	

	lea 	$76780,a0
	move.l	#bild+$5000,a1
	move.l	#$27ff,d0
bloop2:	move.b	(a1)+,(a0)+
	dbra	d0,bloop2	

	lea 	$79780,a0
	move.l	#bild+$7800,a1
	move.l	#$27ff,d0
bloop3:	move.b	(a1)+,(a0)+
	dbra	d0,bloop3	
	
	bsr.L	mt_init
	move.w	#$0020,$dff096	
	move.l	#newclist,$dff080

main:	cmp.b	#$8f,$dff006
	bne.S	main	
	bsr.L	mt_newirq
	bsr.L	schcycle
	bsr.L	makeschwab
	bsr.L	cycle
	bsr.L	makecop
	bsr.l	setwert
	bsr.L	scr
	addq.b	#1,rows
	cmp.b	#16,rows
	bne.S	nixgibts
	clr.b	rows
	bsr.s	newchar
	move.w	#2,d0
	bsr.L	blitt
nixgibts:
	btst	#6,$bfe001
	bne	main
	bsr.L	stop_muzak

end:
copperinit:
	move.l	4,a6
	move.l	#gfxname,a1
	jsr	-408(a6)
	move.l	d0,a1
	move.w #$80,$dff096
	move.l	38(a1),$dff080
	clr.w $dff088
	move.w #$8080,$dff096
	
	jsr	-414(a6)

	move.w #$8020,$dff096	;mouse an
	rte

gfxname:	dc.b	"graphics.library",0
even

newchar:addq.l	#1,msgZ
	cmp.l	#msgend,msgZ
	bne.S	notres
	move.l	#msgtext,msgZ
notres:	move.l  MsgZ,a0
	bsr.L	Search 
	divu    #10,d0
	move.l  d0,d1
	swap    d1
	and.l   #$0000ffff,d0
	and.l   #$0000ffff,d1
	mulu    #25*40,d0		; Zeilen * Bytes
	mulu	#4,d1
	lea	font,a0
	add.l   d0,a0
	add.l   d1,a0
	move.l	a0,d7
	move.l	#$70000+POS,d6
Search:	move.b  (a0),d0
	lea     TexTab,a1
	moveq	#0,d1 
Sps:	cmp.b	(a1)+,d0 
	beq.S	Found 
	addq	#1,d1 
	move.b  (a1),d2 
	bne.S	Sps
	moveq	#0,d1
Found:	move.l  d1,d0
	rts

blitt:	bsr.L	bbusy
	move.l #$09f00000,$dff040 
	move.l #$ffffffff,$dff044
	move.l	d7,$dff050
	move.l	d6,$dff054
	move.w	#40-4,$dff064
	move.w	#50-4,$dff066
	move.w #%0000011001000010,$dff058;blitterfenster+start
;		 hhhhhhhhhhwwwwww
	add.w	#$3000,d6
	add.w	#$3000,d7
	dbra	d0,blitt
	rts

scr:	bsr.S	bbusy
	move.l #$e9f00000,$dff040 
	move.l	a2,$dff050
	move.l	a3,$dff054
	clr.l	$dff064
	move.l	#-1,$dff044
	move.w	#%0000100000011001,$dff058
;		  hhhhhhhhhhwwwwww
	add.l	#$3000,a2
	add.l	#$3000,a3
	dbra	d0,scr
	rts

setwert:moveq	#2,d0
	lea	$70000+bpos+2,a2
	lea	$70000+bpos,a3
	rts

bbusy:	btst	#14,$dff002
	bne.S	bbusy
	rts

makecop:move.l	#$e40ffffe,d0
	lea	waitab,a1
	lea	coltab,a0
	move.w	#$18e,d1
	move.l	#1100,d2
	move.l	d0,(a1)+

floop:	move.w	d1,(a1)+
	move.w	(a0)+,(a1)+
	cmp.l	#colend,a0
	bne.S	ok
	lea	coltab(pc),a0
ok:	dbra	d2,floop
	move.w	d1,(a1)+
	clr.w	(a1)+
	move.l	#-2,(a1)+
	rts

cycle:	lea	coltab(pc),a0
	lea	coltab+2(pc),a1
	move.w	(a0),d0
cylo:	move.w	(a1)+,(a0)+
	cmp.l	#colend,a0
	bne.S	cylo
	move.w	d0,colend-2
	rts

coltab:	dc.w	$000,$002,$004,$006,$008,$00a,$00c,$00d,$00e,$00f
	dc.w	$00e,$00d,$00c,$00a,$008,$006,$004,$002,$000
colend:

makeschwab:
	move.l	#$5107fffe,d0
	lea	swaitab,a1
	lea	schwabtab,a0
	move.w	#$102,d1
	move.w	#100,d2
schwabloop:
	move.l	d0,(a1)+
	move.w	d1,(a1)+
	move.w	(a0)+,(a1)+
	cmp.l	#schwabend,a0
	bne.S	schwabok
	lea	schwabtab,a0
schwabok:add.l	#$01000000,d0
	cmp.l	#$0007fffe,d0
	bne.S	schnopal
	move.l	#$ffe1fffe,(a1)+
schnopal:dbra	d2,schwabloop
	move.l	#$01020000,(a1)+
ready:	rts

schcycle:
	lea	schwabtab(pc),a0
	lea	schwabtab+2(pc),a1
	move.w	(a0),d0
schcylo:move.w	(a1)+,(a0)+
	cmp.l	#schwabend,a0
	bne.S	schcylo
	move.w	d0,schwabend-2
	rts

stop_muzak:
	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	move.w	#$f,$dff096
	rts

;*********************
;	soundplay
;*********************

mt_speed=$0f4

mt_init:

move.l	#data,a0
move.l	#mt_sample1,a1
move.w	#14,d0
move.l	a0,d1
add.l	#64,d1
mt_loop:
move.l	d1,(a1)+
add.l	(a0)+,d1
dbra	d0,mt_loop
move.l	d1,mt_sampleinfo	

move.l		#mt_sample1,a0
clr.l		d0
mt_clear:
move.l		(a0,d0),a1
clr.l		(a1)
addq		#4,d0
cmp.l		#$3c,d0
bne.s		mt_clear

move.w		#0,$dff0a8
move.w		#0,$dff0b8
move.w		#0,$dff0c8
move.w		#0,$dff0d8
eor.w		#$c000,mt_voice0+12
clr.l		mt_partnrplay
clr.l		mt_partnote
clr.l		mt_partpoint

move.l		mt_sampleinfo,a0
move.b		$1d6(a0),mt_maxpart+1
move.b		$1d7(a0),mt_kn1+1
rts


mt_newirq:
movem.l		d0-d7/a0-a6,-(a7)
bsr		mt_music
movem.l		(a7)+,d0-d7/a0-a6

rts

mt_music:
addq.l		#1,mt_counter
cmp.l		#6,mt_counter
bne.s		mt_notsix
clr.l		mt_counter
bra.L		mt_rout2

mt_notsix:
lea		mt_aud1temp,a6
tst.b		3(a6)
beq.s		mt_arp1
move.l		#$dff0a0,a5		
bsr.s		mt_arprout

mt_arp1:
lea		mt_aud2temp,a6
tst.b		3(a6)
beq.s		mt_arp2
move.l		#$dff0b0,a5
bsr.s		mt_arprout

mt_arp2:
lea		mt_aud3temp,a6
tst.b		3(a6)
beq.s		mt_arp3
move.l		#$dff0c0,a5
bsr.s		mt_arprout

mt_arp3:
lea		mt_aud4temp,a6
tst.b		3(a6)
beq.s		mt_arp4
move.l		#$dff0d0,a5
bsr.s		mt_arprout
mt_arp4:
bra.L		mt_stop


mt_arprout:
tst.w	24(a6)
beq.s	mt_noslide

clr.w	d0
move.b	25(a6),d0
lsr.b	#4,d0
tst.b	d0
beq.s	mt_voldwn2
bsr.L	mt_pushvol1
bra.s	mt_noslide

mt_voldwn2:
clr.w	d0
move.b	25(a6),d0
bsr.L	mt_pushvol2

mt_noslide:
move.b	2(a6),d0
and.b	#$0f,d0
tst.b	d0
beq.L	mt_arpegrt
cmp.b	#3,d0
beq.L	mt_arpegrt
cmp.b	#4,d0
beq.L	mt_arpegrt
cmp.b	#5,d0
beq.L	mt_arpegrt
cmp.b	#1,d0
beq.s	mt_portup
cmp.b	#6,d0
beq.s	mt_portup
cmp.b	#7,d0
beq.s	mt_portup
cmp.b	#8,d0
beq.s	mt_portup
cmp.b	#2,d0
beq.s	mt_portdwn
cmp.b	#9,d0
beq.s	mt_portdwn
cmp.b	#10,d0
beq.s	mt_portdwn
cmp.b	#11,d0
beq.s	mt_portdwn
cmp.b	#13,d0
beq.s	mt_volup
rts

mt_portup:
clr.w	d0
move.b	3(a6),d0
sub.w	d0,22(a6)
cmp.w	#$71,22(a6)
bpl.s	mt_ok1
move.w	#$71,22(a6)
mt_ok1:
move.w	22(a6),6(a5)
rts

mt_portdwn:
clr.w	d0
move.b	3(a6),d0
add.w	d0,22(a6)
cmp.w	#$358,22(a6)
bmi.s	mt_ok2
move.w	#$358,22(a6)
mt_ok2:
move.w	22(a6),6(a5)
rts

mt_volup:
clr.w	d0
move.b	3(a6),d0
lsr.b	#4,d0
tst.b	d0
beq.s	mt_voldwn
mt_pushvol1:
add.w	d0,$12(a6)
cmp.w	#$40,$12(a6)
bmi.s	mt_ok3
move.w	#$40,$12(a6)
mt_ok3:
move.w	$12(a6),8(a5)
rts

mt_voldwn:
clr.w	d0
move.b	3(a6),d0
mt_pushvol2:
and.b	#$0f,d0
sub.w	d0,$12(a6)
bpl.s	mt_ok4
clr.w	$12(a6)
mt_ok4:
move.w	$12(a6),8(a5)
rts

mt_arpegrt:
cmp.l		#1,mt_counter
beq.s		mt_loop2
cmp.l		#2,mt_counter
beq.s		mt_loop3
cmp.l		#3,mt_counter
beq.s		mt_loop4
cmp.l		#4,mt_counter
beq.s		mt_loop2
cmp.l		#5,mt_counter
beq.s		mt_loop3
rts

mt_loop2:
clr.l		d0
move.b		3(a6),d0
lsr.b		#4,d0
bra.s		mt_cont

mt_loop3:
clr.l		d0
move.b		3(a6),d0
and.b		#$0f,d0
bra.s		mt_cont

mt_loop4:
move.w		16(a6),d2
bra.s		mt_endpart

mt_cont:
lsl.w		#1,d0
clr.l		d1
move.w		16(a6),d1
lea		mt_arpeggio,a0
mt_loop5:
move.w		(a0,d0),d2
cmp.w		(a0),d1
beq.s		mt_endpart
addq.l		#2,a0
bra.s		mt_loop5

mt_endpart:
move.w		d2,6(a5)
rts

mt_rout2:
move.l		mt_sampleinfo,a0
move.l		a0,a3
add.l		#$0c,a3
move.l		a0,a2
add.l		#$1d8,a2
add.l		#$258,a0
move.l		mt_partnrplay,d0
clr.l		d1
move.b		(a2,d0),d1
mulu		#$0400,d1
add.l		mt_partnote,d1
move.l		d1,mt_partpoint
clr.w		mt_dmacon

move.l		#$dff0a0,a5
lea		mt_aud1temp,a6
bsr.L		mt_playit

move.l		#$dff0b0,a5
lea		mt_aud2temp,a6
bsr.L		mt_playit

move.l		#$dff0c0,a5
lea		mt_aud3temp,a6
bsr.L		mt_playit

move.l		#$dff0d0,a5
lea		mt_aud4temp,a6
bsr.L		mt_playit

move.l		#mt_speed,d0
mt_rls:
dbf		d0,mt_rls

move.l		#$8000,d0
add.w		mt_dmacon,d0
move.w		d0,$dff096

move.l		#mt_aud4temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice3
move.l		10(a6),$dff0d0
move.w		#1,$dff0d4
mt_voice3:
move.l		#mt_aud3temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice2
move.l		10(a6),$dff0c0
move.w		#1,$dff0c4
mt_voice2:
move.l		#mt_aud2temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice1
move.l		10(a6),$dff0b0
move.w		#1,$dff0b4
mt_voice1:
move.l		#mt_aud1temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice0
move.l		10(a6),$dff0a0
move.w		#1,$dff0a4

mt_voice0:
lea		mt_modulate,a0
move.l		mt_partnote,d0
lsl.b		#7,d0
add.l		#$10,d0
move.l		d0,mt_partnote
cmp.l		#$400,d0
bne.s		mt_stop
clr.l		mt_partnote
addq.l		#1,mt_partnrplay
clr.l		d0
move.w		mt_maxpart,d0
move.l		mt_partnrplay,d1
cmp.l		d0,d1
bne.s		mt_stop
clr.l		mt_partnrplay
mt_stop:
rts

mt_playit:
move.l		(a0,d1),(a6)
addq.l		#4,d1
clr.l		d2
move.b		2(a6),d2
and.b		#$f0,d2
lsr.b		#4,d2
tst.b		d2
beq.s		mt_nosamplechange

clr.l		d3
lea		mt_samples,a1
move.l		d2,d4
asl		#2,d2
mulu		#$1e,d4
move.l		(a1,d2),4(a6)
move.w		(a3,d4),8(a6)
move.w		2(a3,d4),18(a6)
move.w		4(a3,d4),d3
tst.w		d3
beq.s		mt_displace
move.l		4(a6),d2
add.l		d3,d2
move.l		d2,4(a6)
move.l		d2,10(a6)
move.w		6(a3,d4),8(a6)
move.w		6(a3,d4),14(a6)
move.w		18(a6),8(a5)
bra.s		mt_nosamplechange
mt_displace:
move.l		4(a6),d2
add.l		d3,d2
move.l		d2,10(a6)
move.w		6(a3,d4),14(a6)
move.w		18(a6),8(a5)
mt_nosamplechange:
tst.w		(a6)
beq.s		mt_retrout
move.w		(a6),16(a6)
move.w		20(a6),$dff096
move.l		4(a6),(a5)
move.w		8(a6),4(a5)
move.w		(a6),6(a5)
move.w		20(a6),d0
or.w		d0,mt_dmacon

mt_retrout:
move.w	20(a6),d0
lsl.w	#4,d0
add.w	20(a6),d0
move.w	d0,$dff09e

tst.w	(a6)
beq.s	mt_nonewper
move.w	(a6),22(a6)
mt_nonewper:

move.b	2(a6),d0
and.b	#$0f,d0
cmp.b	#14,d0
bne.s	mt_noset
move.w	2(a6),24(a6)
rts
mt_noset:
tst.b	3(a6)
bne.s	mt_noclr
clr.w	24(a6)
mt_noclr:
cmp.b	#3,d0
beq.s	mt_modvol
cmp.b	#6,d0
beq.s	mt_modvol
cmp.b	#9,d0
beq.s	mt_modvol
cmp.b	#4,d0
beq.s	mt_modper
cmp.b	#7,d0
beq.s	mt_modper
cmp.b	#10,d0
beq.s	mt_modper
cmp.b	#5,d0
beq.s	mt_modvolper
cmp.b	#8,d0
beq.s	mt_modvolper
cmp.b	#11,d0
beq.s	mt_modvolper
cmp.b	#12,d0
bne.s	mt_nochnge
move.b	3(a6),8(a5)
mt_nochnge:
rts

mt_modvol:
move.w	20(a6),d0
bra.s	mt_push

mt_modper:
move.w	20(a6),d0
lsl.w	#4,d0
bra.s	mt_push

mt_modvolper:
move.w	20(a6),d0
lsl.w	#4,d0
add.w	20(a6),d0

mt_push:
add.w	#$8000,d0
move.w	d0,$dff09e
rts

mt_aud1temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0001,$0000,$0000
mt_aud2temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0002,$0000,$0000
mt_aud3temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0004,$0000,$0000
mt_aud4temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0008,$0000,$0000
mt_partnote:
dc.l 0
mt_partnrplay:
dc.l 0
mt_counter:
dc.l 0
mt_partpoint:
dc.l 0
mt_samples:
dc.w $0000,$0000
mt_sample1:
dc.l 0
mt_sample2:
dc.l 0
mt_sample3:
dc.l 0
mt_sample4:
dc.l 0
mt_sample5:
dc.l 0
mt_sample6:
dc.l 0
mt_sample7:
dc.l 0
mt_sample8:
dc.l 0
mt_sample9:
dc.l 0
mt_sample10:
dc.l 0
mt_sample11:
dc.l 0
mt_sample12:
dc.l 0
mt_sample13:
dc.l 0
mt_sample14:
dc.l 0
mt_sample15:
dc.l 0
mt_maxpart:
dc.w $0000
mt_kn1:
dc.w $0000
mt_dmacon:
dc.w $0000

mt_modulate:
dc.w $0c39,$0039,$00bf,$ec01,$6630,$0839,$0007,$00bf
dc.w $e001,$6626,$2c79,$0000,$0004,$43fa,$0020,$4eae
dc.w $fe68,$2c40,$4280,$41fa,$0026,$223c,$0000,$0032
dc.w $4eae,$ffa6,$60ee,$0000,$0000,$4e75,$696e,$7475
dc.w $6974,$696f,$6e2e,$6c69,$6272,$6172,$7900,$0104
dc.w $1753,$6f75,$6e64,$5472,$6163,$6b65,$7220,$5632
dc.w $0063,$00f0,$20a9,$2054,$6865,$204a,$756e,$676c
dc.w $6520,$436f,$6d6d,$616e,$6400,$0000

mt_arpeggio:
dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000

mt_sampleinfo:
dc.l	0
mt_music_pointer:
dc.l	0

schwabtab:
	blk.b	600,$88
	dc.w	$88,$11,$88,$22,$88,$33,$88,$44,$88,$55
	dc.w	$88,$66,$88,$77,$88,$88,$88,$99,$88,$aa
	dc.w	$88,$bb,$88,$cc,$88,$dd,$88,$ee,$88,$ee,$88,$ff
	dc.w	$88,$ff,$88,$ff
	dc.w	$88,$ee,$88,$ee,$88,$dd,$88,$cc,$88,$bb
	dc.w	$88,$aa,$88,$99,$88,$88,$88,$77,$88,$66
	dc.w	$88,$55,$88,$44,$88,$33,$88,$22,$88,$11
	dc.w	$88,$11,$88,$22,$88,$33,$88,$44,$88,$55
	dc.w	$88,$66,$88,$77,$88,$88,$88,$99,$88,$aa
	dc.w	$88,$bb,$88,$cc,$88,$dd,$88,$ee,$88,$ee,$88,$ff
	dc.w	$88,$ff,$88,$ff
	dc.w	$88,$ee,$88,$ee,$88,$dd,$88,$cc,$88,$bb
	dc.w	$88,$aa,$88,$99,$88,$88,$88,$77,$88,$66
	dc.w	$88,$55,$88,$44,$88,$33,$88,$22,$88,$11
	blk.b	150,$88
	dc.w	$88,$88,$88,$99,$77,$aa,$66,$bb,$55,$cc
	dc.w	$44,$dd,$33,$dd,$33,$ee,$22,$ee,$22,$ee
	dc.w	$22,$ff,$11,$ff,$11,$ff,$11,$ff,$11,$ff
	dc.w	$22,$ee,$22,$ee,$22,$ee,$33,$ee,$33,$dd
	dc.w	$44,$dd,$55,$cc,$66,$bb,$77,$aa,$77,$99
	dc.w	$88,$88,$88
	dc.w	$88,$88,$88,$99,$77,$aa,$66,$bb,$55,$cc
	dc.w	$44,$dd,$33,$dd,$33,$ee,$22,$ee,$22,$ee
	dc.w	$22,$ff,$11,$ff,$11,$ff,$11,$ff,$11,$ff
	dc.w	$22,$ee,$22,$ee,$22,$ee,$33,$ee,$33,$dd
	dc.w	$44,$dd,$55,$cc,$66,$bb,$77,$aa,$77,$99
	dc.w	$88,$88,$88
	dc.w	$88,$88,$77,$77,$66,$66,$55,$55,$44,$44
	dc.w	$33,$33,$22,$22,$11,$11,$00,$00
	dc.w	$11,$11,$11,$11,$11,$22,$22,$22,$33,$33
	dc.w	$44,$44,$55,$55,$66,$66,$77,$77,$88,$88
	dc.w	$99,$99,$aa,$aa,$bb,$bb,$cc,$dd,$dd,$dd
	dc.w	$ee,$ee,$ee,$ee,$ee,$ff,$ff,$ff,$ff,$ff
	dc.w	$ff,$ff,$ff,$ff,$ff
	dc.w	$ee,$ee,$ee,$ee,$ee,$dd,$dd,$dd,$cc,$cc
	dc.w	$bb,$bb,$aa,$aa,$99,$99,$88,$88,$77,$77
	dc.w	$66,$66,$55,$55,$44,$44,$33,$33,$22,$22
	dc.w	$22,$22,$11,$11,$11,$11,$11
	dc.w	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.w	$11,$11,$11,$11,$11,$22,$22,$22,$33,$33
	dc.w	$44,$44,$55,$55,$66,$66,$77,$77,$88,$88
	dc.w	$99,$99,$aa,$aa,$bb,$bb,$cc,$dd,$dd,$dd
	dc.w	$ee,$ee,$ee,$ee,$ee,$ff,$ff,$ff,$ff,$ff
	dc.w	$ff,$ff,$ff,$ff,$ff
	dc.w	$ee,$ee,$ee,$ee,$ee,$dd,$dd,$dd,$cc,$cc
	dc.w	$bb,$bb,$aa,$aa,$99,$99,$88,$88,$77,$77
	dc.w	$66,$66,$55,$55,$44,$44,$33,$33,$22,$22
	dc.w	$22,$22,$11,$11,$11,$11,$11
	dc.w	$00,$00,$00,$11,$11,$22,$33,$44,$55,$66,$77,$88
	dc.w	$99,$aa,$bb,$cc,$dd,$ee,$ee,$ff,$ff,$ff,$ee,$ee
	dc.w	$dd,$cc,$bb,$aa,$99,$88,$77,$66,$55,$44,$33,$22
	dc.w	$11,$11,$00,$00,$00
	dc.w	$00,$00,$11,$11,$22,$22,$33,$33,$44,$44
	dc.w	$55,$55,$66,$66,$77,$77,$88,$88
schwabend:
bildend=$39fda

msgZ:	dc.l	msgtext
msgtext:
DC.B "   thrust is proud to present   new stuff     "
;GREETINGS-UPDATE :	20.11.1988	1:45 P.M.

DC.B "the really leading three are   "
DC.B "thrust --  "
DC.B "red sector and defjam  --  "
DC.B "trilogy  --  "

DC.B "the greetings are going to (z to a order) :                  "

DC.B "vision factory  --  "
DC.B "tsk-crew  --  "
DC.B "tristar  --  "
DC.B "tnm-crew  --  "
DC.B "the wizards  --  "
DC.B "the prophets  --  "
DC.B "the powerslaves  --  "
DC.B "the lightforce  --  "
DC.B "the commodore guys  --  "
DC.B "the band  --  "
DC.B "sunriders  --  "
DC.B "solfronic and the demo killers  --  "
DC.B "sphinx  --  "
DC.B "quest  --  "
DC.B "oks import division  --  "
DC.B "magnificent force and joy   --  "
DC.B "mad monks  --  "
DC.B "m.u.s.i.c.  --  "
DC.B "jungle command  --  "
DC.B "janx and the a-team  --  "
DC.B "invisible crime  --  "
DC.B "hqc  --  "
DC.B "fairlight  --  "
DC.B "doc  --  "
DC.B "dns and rage (wow)  --  "
DC.B "crm-crew  --  "
DC.B "amiga industries  --  "
DC.B "alpha flight  --  "
DC.B "ackerlight  --  "
DC.B "accession  --  "
DC.B "abakus  --  "
DC.B "         end of greetings !!                                 "
DC.B "         end of scrolltext !                                 "
DC.B "                                                             "
msgend:
even
textab:	dc.b	"abcdefghijklmnopqrstuvwxyz!?:;0123456789'(),-.` "
rows:	dc.b	1
even
CL:
newclist:
	dc.w $200f,$fffe
	dc.w $0100,$4200
	dc.l	$00968400
	dc.w $00e0,$0007
	dc.w $00e2,$0000
	dc.w $00e4,$0007
	dc.w $00e6,$3000
	dc.w $00e8,$0007
	dc.w $00ea,$6000
	dc.w $00ec,$0007
	dc.w $00ee,$9000
	dc.w $008e,$2971
	dc.w $0090,$29d1
	dc.w $0092,$0038
	dc.w $0094,$00d0
	dc.w $0108,0
	dc.w $010a,0
	dc.w $0180,$0000
	dc.w $0182,$0abd
	dc.w $0184,$079e
	dc.w $0186,$037d
	dc.w $0188,$004d
	dc.w $018a,$0e72
	dc.w $018c,$0ea2
	dc.w $018e,$0ec8
	dc.w $0190,$0777
	dc.w $0192,$0888
	dc.w $0194,$0999
	dc.w $0196,$0aaa
	dc.w $0198,$0ccc
	dc.w $019a,$0ddd
	dc.w $019c,$0eee
	dc.w $019e,$0fff
swaitab: blk.l 203,0
	dc.w $e00f,$fffe
	dc.w $008e,$2971
	dc.w $0090,$29d1
	dc.w $0092,$0028
	dc.w $0094,$00d8
	dc.w $0108,4
	dc.w $010a,4
	dc.w $0100,$3200
	dc.w $0180,$0000
	dc.w $0182,$0ddd
	dc.w $0184,$0bbb
	dc.w $0186,$0888
	dc.w $0188,$0666
	dc.w $018a,$0444
	dc.w $018c,$0222
	dc.w $018e,$0000
waitab:	blk.l	1000,0
	dc.l	-2

size2=	%0000100001000011
datend: