Begin		DC.W	$A00A
		clr.l	-(sp)		SUPERVISOR
		move.w	#$20,-(sp)
		trap	#1
		addq.l	#6,sp
		move.l	d0,userstack
		eori.b	#2,$ff820a
		move.b	$484.w,old_click
		clr.b	$484.w
		pea	text
		move.w	#9,-(sp)
		trap	#1
		addq.l	#6,sp
		moveq.b	#1,d0
		bsr	musix
		bsr	musix+8
		move.l	#musix+4,$4D2.w	VBL

waitkey		btst	#0,$fffffc00
		beq.s	waitkey
		move.b	$fffffc02,d0
		cmp.b	#$39,d0
		bne.s	waitkey		

	MOVE.W	#$2700,SR
	MOVE.B	#8,$FFFF8800.W
	CLR.B	$FFFF8802.W
	MOVE.B	#9,$FFFF8800.W
	CLR.B	$FFFF8802.W
	MOVE.B	#$A,$FFFF8800.W
	CLR.B	$FFFF8802.W
		bsr	musix+12
		clr.l	$4D2.w		STOP VBL
		move.b	old_click,$484.w
		move.w	#$2300,sr

		move.l	userstack,-(sp)
		move.w	#$20,-(sp)
		trap	#1
		addq.l	#6,sp
		DC.W	$A009

		clr.l	-(sp)
		trap	#1

musix		INCBIN	fashion.mad

text		DC.B	27,'E'
		DC.B	'***************************************',$D,$A
		DC.B	'*  Hello guy !                        *',$D,$A
		DC.B	'*  Just some few notes to help you... *',$D,$A
		DC.B	'*                ~~~                  *',$D,$A
		DC.B	'* The LTK''s Musics like MADMAX''s ones *',$D,$A
		DC.B	'* are position independent.           *',$D,$A
		DC.B	'* It uses the registers d0-d4/a0-a3.  *',$D,$A
		DC.B	'* The first word is essential as it   *',$D,$A
		DC.B	'* enables to control musix or to read *',$D,$A
		DC.B	'* some information ...  Look at the   *',$D,$A
		DC.B	'* routine in ASCII for their meaning. *',$D,$A
		DC.B	'* Our demo will be finished in        *',$D,$A
		DC.B	'* FEBRUARY/MARCH so wait for more help*',$D,$A
		DC.B	'* or write to us !!                   *',$D,$A
		DC.B	'***************************************',$D,$A
		DC.B	'* Gold greetings for all our friends  *',$D,$A
		DC.B	'* or good contact: ATARI CLUB-VANTAGE *',$D,$A
		DC.B	'* BEETLEJUICE-DBUG II-NTM-MAXI-AYOROS *',$D,$A
		DC.B	'* CENTAURUS-SNAKE-LITTLE SWAP-RBOY-   *',$D,$A
		DC.B	'* NAR-PIXEL-PHIL-T.ORO-SYL-FLYTOX ... *',$D,$A
		DC.B	'***************************************',$D,$A
		DC.B	'* ',189,'  MYSTIC 1st of DECEMBER 1990      *',$D,$A 
		DC.B	'***************************************',$D,$A
		DC.B	0
**************************************************
* If you want to contact us or send donations    *
* then write to:				 *
*                  MYSTIC                        *
*              Franck MARCHIS                    *
*              32, Rue des rosiers               *
*              31140 FONBEAUZARD                 *
*                  FRANCE                        *
**************************************************
	SECTION	BSS

userstack	DS.L	1
old_click	DS.W	1

	END