opt	c-,d+
	incdir	"df0:include/"
	include graphics/gfx.i
	include	graphics/rastport.i
	include graphics/graphics_lib.i
	include exec/memory.i
	include	exec/exec_lib.i
	include	hardware/custom.i

custom	equ	$dff000

memory	equ	MEMF_CHIP+MEMF_CLEAR
	
	lea	GFXLIB,a1
	MOVEQ	#0,D0
	CALLEXEC OPENLIBRARY
	TST	D0
	BEQ	ERROR
	MOVE.L	D0,_GFXBASE
	
	MOVE.L	#MYPICCY,MEMORY_POINTER
	LEA MYBITMAP,A0
	MOVE.L	#$05,D0
	MOVE.L	#368,D1
	MOVE.L	#256,D2
	CALLGRAF INITBITMAP
	LEA	MYRASTPORT,A1
	CALLGRAF INITRASTPORT
	LEA	MYRASTPORT,A1
	MOVE.L	#MYBITMAP,RP_BITMAP(A1)
	MOVE.L	MEMORY_POINTER,D0
	MOVE.L	D0,D1
	ADD.L	#11776,D1
	MOVE.L	D1,D2
	ADD.L	#11776,D2
	MOVE.L	D2,D3
	add.l	#11776,D3
	move.l	d3,d4
	add.l	#11776,d4


	

	LEA 	MYBITMAP,A0
	MOVE.L	D0,BM_PLANES(a0)
	MOVE.L	D1,BM_PLANES+4(a0)
	MOVE.L 	D2,BM_PLANES+8(a0)
	MOVE.L	D3,BM_PLANES+12(A0)
	move.l	d4,BM_PLANES+16(a0)
	MOVE.W	D0,PL0L
	MOVE.W	D1,PL1L
	MOVE.W	D2,PL2L
	MOVE.W	D3,PL3L
	move.w	d4,pl4l
	SWAP	D0
	SWAP	D1
	SWAP	D2
	SWAP	D3
	swap	d4
	MOVE.W	D0,PL0H
	MOVE.W	D1,PL1H
	MOVE.W	D2,PL2H
	MOVE.W	D3,PL3H
	move.w	d4,pl4h
	

	move.l #mytext,read
	move.l #wavedata,wavepos


	MOVE.L	_GFXBASE,A6
	ADD.L	#$32,A6
	MOVE.W	#$80,DMACON
	MOVE.L	(A6),OLDCOPPER
	MOVE.L	#NEWCOPPER,(A6)
	MOVE.W	#$8080,DMACON

	callexec forbid

	jsr	copsetup
	
	
	
	
	
	
	move.w 	#$8010,$dff09a
	move.l	$6c,old
	move.l  #new,$6c
	
	
	
	


WAIT	ANDI.B	#$40,$BFE001
	BNE	WAIT
	move.l	old,$6c

	callexec permit

	MOVE.L	_GFXBASE,A6
	ADD.L	#$32,A6
	MOVE.W	#$80,DMACON
	MOVE.L	OLDCOPPER,(A6)
	MOVE.W	#$8080,DMACON
	move.w	#$8020,$dff096
ERROR	clr.l	d0
	move.w	#$f,$dff096
	move.w	#$0,$dff0a8
	move.w	#$0,$dff0b8
	move.w	#$0,$dff0c8
	move.w	#$0,$dff0d8
	RTS

 


new:	movem.l d0-d7/a0-a6,-(sp)
	and #$10,$dff01e        
	beq out
	move.w	#$10,$dff09c

	
	
	bsr	colcop1

	bsr 	textit
	

	
	BSR 	WAVEIT
	
	
	
	

out movem.l (sp)+,d0-d7/a0-a6
	dc.w $4ef9
old dc.l 0


copsetup	move.l #mypiccy,d1
		move.l #cblock2,a1
		move.l #15,d0
		add.l  #14,a1
		add.l  #8556,d1
		move.l	d1,d2
		add.l 	#952,d2
russloop	swap	d1
		move.w	d1,(a1)
		add.l 	#4,a1
		swap 	d1
		move.w	d1,(a1)
		add.l   #20,a1
		swap	d2
		move.w	d2,(a1)
		add.l	#4,a1
		swap 	d2
		move.w	d2,(a1)
		add.l	#20,a1
		add.l	#46,d1
		subi.w	#1,d0
		cmp.w 	#0,d0
		bne	russloop
		rts
	
waveit		move.l	#cblock2,a0
		add.l	#23,a0
		moveq	#23,d0
		move.l	wavepos,a1
waveloop	move.b	24(a0),(a0)
		add.l	#24,a0
		subi.w	#1,d0
		cmp.w	#0,d0
		bne	waveloop
		move.b	(a1),(a0)
		add.l #1,WAvepos
		
		move.l wavepos,a5
		cmp.b	#$fe,(a5)
		
		
		
		bne waveok
		move.l	#wavedata,wavepos
waveok		rts



colcop1:	move.l	#90,d0
		lea	cblock1,a0
		add.l 	#6,a0
		
		
scrollc		move.w 	24(a0),(a0)
		add.l	#24,a0
		
		subi.l	#1,d0
		cmp #0,d0
		bne scrollc
cjin1		clr.l	d0
		move.l	coppos,a2
		
		move.w	(a2),d0
		add.l	#2,coppos
		cmp.w #$ffff,d0
		bne cok
		move.l	#copdata,coppos
		bra cjin1
cok		
		move.w d0,(a0)
		rts

textit	lea	myrastport,a1
	MOVEQ	#1,d0
	callgraf setapen


	
	lea myrastport,a1
	move.l #0,d1
	move.l #2,d0
	move.l #0,d2
	move.l #186,d3
	move.l #368,d4
	move.l #199,d5
	callgraf scrollraster

;	store bit of screen to be zapped
;	lets say 16 rows starting at 185
;	= mypiccy+185*46
	move.l #mypiccy,a0
	add.l #185*46,a0
	moveq	#16,d0
	move.l	#buffy,a1
inbuff	move.w	(a0),(a1)+
	add.l	#46,a0
	subi.w	#1,d0
	cmp.w	#0,d0
	bne	inbuff

	move.b count,d0
	addi.b #1,d0
	move.b d0,count
	cmpi.b #4,d0
	bne EEE
	move.b #0,count
EEE	lea myrastport,a1
 	move.l #366,d0
	clr.l d3
	move.b count,d3
	sub.l d3,d0
	sub.l d3,d0
  	move.l #196,d1
	callgraf move

	move.l read,a0
	lea myrastport,a1
	move.l #1,d0
	callgraf text

	move.l #mypiccy,a0
	add.l #185*46,a0
	moveq	#16,d0
	move.l	#buffy,a1
oubuff	move.w	(a1)+,(a0)
	add.l	#46,a0
	subi.w	#1,d0
	cmp.w	#0,d0
	bne	oubuff

	cmp.b	#0,count
	bne	zzz
	move.l read,d0
	addi.l #1,d0
	move.l d0,read
	moveq #0,d4
	move.l read,a5
	
	
	cmp.b	#255,(a5)
	bne zzz
	move.l #mytext,read
on1	
zzz	rts
count	dc.b 0
read    dc.l 0
buffy	ds.w 30
falagz	dc.b 0
coppos	dc.l	copdata
copdata
 dc.w $000,$010,$020,$030,$040,$050,$060,$070,$080,$090,$0a0,$0b0,$0c0,$0d0,$0e0
 dc.w $0f0,$1f0,$2f0,$3f0,$4f0,$5f0,$6f0,$7f0,$8f0,$9f0,$af0,$bf0,$cf0,$df0,$ef0
 dc.w $ff0,$ee0,$dd0,$cc0,$bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
 dc.w $000,$110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0,$cc0,$dd0,$ee0
 dc.w $ff0,$fe0,$fd0,$fc0,$fb0,$fa0,$f90,$f80,$f70,$f60,$f50,$f40,$f30,$f20,$f10
 dc.w $f00,$e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100
 dc.w $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00
 dc.w $f00,$f01,$f02,$f03,$f04,$f05,$f06,$f07,$f08,$f09,$f0a,$f0b,$f0c,$f0d,$f0e
 dc.w $f0f,$e0e,$d0d,$c0c,$b0b,$a0a,$909,$808,$707,$606,$505,$404,$303,$202,$101
 dc.w 0,$101,$202,$303,$404,$505,$606,$707,$808,$909,$a0a,$b0b,$c0c,$d0d,$e0e
 dc.w $f0f,$e0f,$d0f,$c0f,$b0f,$a0f,$90f,$80f,$70f,$60f,$50f,$40f,$30f,$20f,$10f
 dc.w $f,$e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
 dc.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
 dc.w $00f,$01f,$02f,$03f,$04f,$05f,$06f,$07f,$08f,$09f,$0af,$0bf,$0cf,$0df,$0ef
 dc.w $ff,$ee,$dd,$cc,$bb,$aa,$99,$88,$77,$66,$55,$44,$33,$22,$11
 dc.w 0,$11,$22,$33,$44,$55,$66,$77,$88,$99,$aa,$bb,$cc,$dd,$ee
 dc.w $0ff,$0fe,$0fd,$0fc,$0fb,$0fa,$0f9,$0f8,$0f7,$0f6,$0f5,$0f4,$0f3,$0f2,$0f1
 dc.w $f0,$e0,$d0,$c0,$b0,$a0,$90,$80,$70,$60,$50,$40,$30,$20,$10
	dc.w     $ffff

OLDCOPPER	DC.L	0
NEWCOPPER	DC.W	$0100,$5200,$0102,$0000,$0104,$000A
		DC.W	$0108,$0000,$010A,$0000
		DC.W	$0092,$0028,$0094,$00e0
		DC.W	$008E,$2c69,$0090,$2cd9
		dc.w	$0096,$0020
		DC.W	$00E0
PL0H		DC.W	$0000,$00E2
PL0L		DC.W	$0000,$00E4
PL1H		DC.W	$0000,$00E6
PL1L		DC.W	$0000,$00E8
PL2H		DC.W	$0000,$00EA
PL2L		DC.W	$0000,$00EC
PL3H		DC.W	$0000,$00EE
PL3L		DC.W	$0000,$00F0
PL4H		DC.W	$0000,$00F2
PL4L		DC.W	$0000
		DC.W	$009c,$8010
		DC.W	$0180,$0000,$0182,$0eca
		DC.W	$0184,$0fff,$0186,$0eee
		DC.W	$0188,$0ddd,$018A,$0bbb
		DC.W	$018C,$0aaa,$018E,$0999
		DC.W	$0190,$0888,$0192,$0777
		DC.W	$0194,$0666,$0196,$0555
		DC.W	$0198,$0333,$019A,$0222
		DC.W	$019C,$0111,$019E,$0000
cblock1:
 dc.w 11273,$fffe,$180,0,$102,0
 dc.w 11529,$fffe,$180,0,$102,0
 dc.w 11785,$fffe,$180,0,$102,0
 dc.w 12041,$fffe,$180,0,$102,0
 dc.w 12297,$fffe,$180,0,$102,0
 dc.w 12553,$fffe,$180,0,$102,0
 dc.w 12809,$fffe,$180,0,$102,0
 dc.w 13065,$fffe,$180,0,$102,0
 dc.w 13321,$fffe,$180,0,$102,0
 dc.w 13577,$fffe,$180,0,$102,0
 dc.w 13833,$fffe,$180,0,$102,0
 dc.w 14089,$fffe,$180,0,$102,0
 dc.w 14345,$fffe,$180,0,$102,0
 dc.w 14601,$fffe,$180,0,$102,0
 dc.w 14857,$fffe,$180,0,$102,0
 dc.w 15113,$fffe,$180,0,$102,0
 dc.w 15369,$fffe,$180,0,$102,0
 dc.w 15625,$fffe,$180,0,$102,0
 dc.w 15881,$fffe,$180,0,$102,0
 dc.w 16137,$fffe,$180,0,$102,0
 dc.w 16393,$fffe,$180,0,$102,0
 dc.w 16649,$fffe,$180,0,$102,0
 dc.w 16905,$fffe,$180,0,$102,0
 dc.w 17161,$fffe,$180,0,$102,0
 dc.w 17417,$fffe,$180,0,$102,0
 dc.w 17673,$fffe,$180,0,$102,0
 dc.w 17929,$fffe,$180,0,$102,0
 dc.w 18185,$fffe,$180,0,$102,0
 dc.w 18441,$fffe,$180,0,$102,0
 dc.w 18697,$fffe,$180,0,$102,0
 dc.w 18953,$fffe,$180,0,$102,0
 dc.w 19209,$fffe,$180,0,$102,0
 dc.w 19465,$fffe,$180,0,$102,0
 dc.w 19721,$fffe,$180,0,$102,0
 dc.w 19977,$fffe,$180,0,$102,0
 dc.w 20233,$fffe,$180,0,$102,0
 dc.w 20489,$fffe,$180,0,$102,0
 dc.w 20745,$fffe,$180,0,$102,0
 dc.w 21001,$fffe,$180,0,$102,0
 dc.w 21257,$fffe,$180,0,$102,0
 dc.w 21513,$fffe,$180,0,$102,0
 dc.w 21769,$fffe,$180,0,$102,0
 dc.w 22025,$fffe,$180,0,$102,0
 dc.w 22281,$fffe,$180,0,$102,0
 dc.w 22537,$fffe,$180,0,$102,0
 dc.w 22793,$fffe,$180,0,$102,0
 dc.w 23049,$fffe,$180,0,$102,0
 dc.w 23305,$fffe,$180,0,$102,0
 dc.w 23561,$fffe,$180,0,$102,0
 dc.w 23817,$fffe,$180,0,$102,0
 dc.w 24073,$fffe,$180,0,$102,0
 dc.w 24329,$fffe,$180,0,$102,0
 dc.w 24585,$fffe,$180,0,$102,0
 dc.w 24841,$fffe,$180,0,$102,0
 dc.w 25097,$fffe,$180,0,$102,0
 dc.w 25353,$fffe,$180,0,$102,0
 dc.w 25609,$fffe,$180,0,$102,0
 dc.w 25865,$fffe,$180,0,$102,0
 dc.w 26121,$fffe,$180,0,$102,0
 dc.w 26377,$fffe,$180,0,$102,0
 dc.w 26633,$fffe,$180,0,$102,0
 dc.w 26889,$fffe,$180,0,$102,0
 dc.w 27145,$fffe,$180,0,$102,0
 dc.w 27401,$fffe,$180,0,$102,0
 dc.w 27657,$fffe,$180,0,$102,0
 dc.w 27913,$fffe,$180,0,$102,0
 dc.w 28169,$fffe,$180,0,$102,0
 dc.w 28425,$fffe,$180,0,$102,0
 dc.w 28681,$fffe,$180,0,$102,0
 dc.w 28937,$fffe,$180,0,$102,0
 dc.w 29193,$fffe,$180,0,$102,0
 dc.w 29449,$fffe,$180,0,$102,0
 dc.w 29705,$fffe,$180,0,$102,0
 dc.w 29961,$fffe,$180,0,$102,0
 dc.w 30217,$fffe,$180,0,$102,0
 dc.w 30473,$fffe,$180,0,$102,0
 dc.w 30729,$fffe,$180,0,$102,0
 dc.w 30985,$fffe,$180,0,$102,0
 dc.w 31241,$fffe,$180,0,$102,0
 dc.w 31497,$fffe,$180,0,$102,0
 dc.w 31753,$fffe,$180,0,$102,0
 dc.w 32009,$fffe,$180,0,$102,0
 dc.w 32265,$fffe,$180,0,$102,0
 dc.w 32521,$fffe,$180,0,$102,0
 dc.w 32777,$fffe,$180,0,$102,0
 dc.w 33033,$fffe,$180,0,$102,0
 dc.w 33289,$fffe,$180,0,$102,0
 dc.w 33545,$fffe,$180,0,$102,0
 dc.w 33801,$fffe,$180,0,$102,0
 dc.w 34057,$fffe,$180,0,$102,0
 dc.w 34313,$fffe,$180,0,$102,0
 dc.w 34569,$fffe,$180,0,$102,0
 dc.w 34825,$fffe,$180,0,$102,0
 dc.w 35081,$fffe,$180,0,$102,0
 dc.w 35337,$fffe,$180,0,$102,0
 dc.w 35593,$fffe,$180,0,$102,0
 dc.w 35849,$fffe,$180,0,$102,0
 dc.w 36105,$fffe,$180,0,$102,0
 dc.w 36361,$fffe,$180,0,$102,0
 dc.w 36617,$fffe,$180,0,$102,0
 dc.w 36873,$fffe,$180,0,$102,0
 dc.w 37129,$fffe,$180,0,$102,0
 dc.w 37385,$fffe,$180,0,$102,0
 dc.w 37641,$fffe,$180,0,$102,0
 dc.w 37897,$fffe,$180,0,$102,0
 dc.w 38153,$fffe,$180,0,$102,0
 dc.w 38409,$fffe,$180,0,$102,0
 dc.w 38665,$fffe,$180,0,$102,0
 dc.w 38921,$fffe,$180,0,$102,0
 dc.w 39177,$fffe,$180,0,$102,0
 dc.w 39433,$fffe,$180,0,$102,0
 dc.w 39689,$fffe,$180,0,$102,0
 dc.w 39945,$fffe,$180,0,$102,0
 dc.w 40201,$fffe,$180,0,$102,0
 dc.w 40457,$fffe,$180,0,$102,0
 dc.w 40713,$fffe,$180,0,$102,0
 dc.w 40969,$fffe,$180,0,$102,0
 dc.w 41225,$fffe,$180,0,$102,0
 dc.w 41481,$fffe,$180,0,$102,0
 dc.w 41737,$fffe,$180,0,$102,0
 dc.w 41993,$fffe,$180,0,$102,0
 dc.w 42249,$fffe,$180,0,$102,0
 dc.w 42505,$fffe,$180,0,$102,0
 dc.w 42761,$fffe,$180,0,$102,0
 dc.w 43017,$fffe,$180,0,$102,0
 dc.w 43273,$fffe,$180,0,$102,0
 dc.w 43529,$fffe,$180,0,$102,0
 dc.w 43785,$fffe,$180,0,$102,0
 dc.w 44041,$fffe,$180,0,$102,0
 dc.w 44297,$fffe,$180,0,$102,0
 dc.w 44553,$fffe,$180,0,$102,0
 dc.w 44809,$fffe,$180,0,$102,0
 dc.w 45065,$fffe,$180,0,$102,0
 dc.w 45321,$fffe,$180,0,$102,0
 dc.w 45577,$fffe,$180,0,$102,0
 dc.w 45833,$fffe,$180,0,$102,0
 dc.w 46089,$fffe,$180,0,$102,0
 dc.w 46345,$fffe,$180,0,$102,0
 dc.w 46601,$fffe,$180,0,$102,0
 dc.w 46857,$fffe,$180,0,$102,0
 dc.w 47113,$fffe,$180,0,$102,0
 dc.w 47369,$fffe,$180,0,$102,0
 dc.w 47625,$fffe,$180,0,$102,0
 dc.w 47881,$fffe,$180,0,$102,0
 dc.w 48137,$fffe,$180,0,$102,0
 dc.w 48393,$fffe,$180,0,$102,0
 dc.w 48649,$fffe,$180,0,$102,0
 dc.w 48905,$fffe,$180,0,$102,0
 dc.w 49161,$fffe,$180,0,$102,0
 dc.w 49417,$fffe,$180,0,$102,0
 dc.w 49673,$fffe,$180,0,$102,0
 dc.w 49929,$fffe,$180,0,$102,0
 dc.w 50185,$fffe,$180,0,$102,0
 dc.w 50441,$fffe,$180,0,$102,0
 dc.w 50697,$fffe,$180,0,$102,0
 dc.w 50953,$fffe,$180,0,$102,0
 dc.w 51209,$fffe,$180,0,$102,0
 dc.w 51465,$fffe,$180,0,$102,0
 dc.w 51721,$fffe,$180,0,$102,0
 dc.w 51977,$fffe,$180,0,$102,0
 dc.w 52233,$fffe,$180,0,$102,0
 dc.w 52489,$fffe,$180,0,$102,0
 dc.w 52745,$fffe,$180,0,$102,0
 dc.w 53001,$fffe,$180,0,$102,0
 dc.w 53257,$fffe,$180,0,$102,0
 dc.w 53513,$fffe,$180,0,$102,0
 dc.w 53769,$fffe,$180,0,$102,0
 dc.w 54025,$fffe,$180,0,$102,0
 dc.w 54281,$fffe,$180,0,$102,0
 dc.w 54537,$fffe,$180,0,$102,0
 dc.w 54793,$fffe,$180,0,$102,0
 dc.w 55049,$fffe,$180,0,$102,0
 dc.w 55305,$fffe,$180,0,$102,0
 dc.w 55561,$fffe,$180,0,$102,0
 dc.w 55817,$fffe,$180,0,$102,0
 dc.w 56073,$fffe,$180,0,$102,0
 dc.w 56329,$fffe,$180,0,$102,0
 dc.w 56585,$fffe,$180,0,$102,0
 dc.w 56841,$fffe,$180,0,$102,0
 dc.w 57097,$fffe,$180,0,$102,0
 dc.w 57353,$fffe,$180,0,$102,0,$182,$200
cblock2:
 dc.w $e109,$fffe,$180,$000,$102,$ff,$e0,0,$e2,0,386,$f00
 dc.w $e209,$fffe,$180,$111,$102,$ff,$e0,0,$e2,0,386,$e00
 dc.w $e309,$fffe,$180,$222,$102,$ee,$e0,0,$e2,0,386,$d00
 dc.w $e409,$fffe,$180,$333,$102,$ee,$e0,0,$e2,0,386,$c01
 dc.w $e509,$fffe,$180,$444,$102,$dd,$e0,0,$e2,0,386,$b02
 dc.w $e609,$fffe,$180,$555,$102,$dd,224,0,226,0,386,$a03
 dc.w $e709,$fffe,$180,$666,$102,$cc,224,0,226,0,386,$904
 dc.w $e809,$fffe,$180,$777,$102,$cc,224,0,226,0,386,$805
 dc.w $e909,$fffe,$180,$888,$102,$bb,224,0,226,0,386,$706
 dc.w $ea09,$fffe,$180,$999,$102,$bb,224,0,226,0,386,$607
 dc.w $eb09,$fffe,$180,$aaa,$102,$aa,224,0,226,0,386,$508
 dc.w $ec09,$fffe,$180,$bbb,$102,$aa,224,0,226,0,386,$409
 dc.w $ed09,$fffe,$180,$ccc,$102,$99,224,0,226,0,386,$30a
 dc.w $ee09,$fffe,$180,$ddd,$102,$99,224,0,226,0,386,$20b
 dc.w $ef09,$fffe,$180,$eee,$102,$88,224,0,226,0,386,$10c
 dc.w $f009,$fffe,$180,$fff,$102,$88,224,0,226,0,386,$00d
 dc.w $f109,$fffe,$180,$eee,$102,$77,224,0,226,0,386,$10e
 dc.w $f209,$fffe,$180,$ddd,$102,$77,224,0,226,0,386,$20f
 dc.w $f309,$fffe,$180,$ccc,$102,$66,224,0,226,0,386,$30e
 dc.w $f409,$fffe,$180,$bbb,$102,$66,224,0,226,0,386,$40d
 dc.w $f509,$fffe,$180,$aaa,$102,$55,224,0,226,0,386,$50c
 dc.w $f609,$fffe,$180,$999,$102,$55,224,0,226,0,386,$60b
 dc.w $f709,$fffe,$180,$888,$102,$44,224,0,226,0,386,$70a
 dc.w $f809,$fffe,$180,$777,$102,$44,224,0,226,0,386,$809
 dc.w $f909,$fffe,$180,$666,$102,$33,224,0,226,0,386,$908
 dc.w $fa09,$fffe,$180,$555,$102,$33,224,0,226,0,386,$a07
 dc.w $fb09,$fffe,$180,$444,$102,$22,224,0,226,0,386,$b06
 dc.w $fc09,$fffe,$180,$333,$102,$22,224,0,226,0,386,$c05
 dc.w $fd09,$fffe,$180,$222,$102,$11,224,0,226,0,386,$d04
 dc.w $fe09,$fffe,$180,$111,$102,$11,224,0,226,0,386,$e03
 dc.w $ff09,$fffe,$180,0

 
 
 
 
		DC.W	$FFFF,$FFFE
	ds.w	20

wavedata
 dc.b 0,0,0,0,1,1,1,1,2,2,2,3,3,3,4,4,5,5,6,7
 dc.b 8,9,$a,$a,$b,$b,$c,$c,$c,$d,$d,$d,$e,$e,$e,$e,$f,$f
 dc.b $f,$f
 dc.b $e,$e,$e,$e,$d,$d,$d,$c,$c,$c,$b,$b,$a,$a,9,8,7,6
 dc.b 5,5,4,4,3,3,3,2,2,2,1,1,1
 dc.b 1
 dc.b $fe
wavepos	dc.l	wavedata
gfxlib	dc.b	"graphics.library",0
	EVEN
_gfxbase	dc.l	0
MEMORY_POINTER	dc.l    0
MYRASTPORT	ds.b	RP_Sizeof
MYBITMAP	ds.b	BM_Sizeof
colour	dc.w	0
flagz	dc.b	0




mytext dc.b	"Hello  Leyla!!! Hi it's Comrade J here. We're listening to some"
 dc.b 	" really COOOOOOOL muzaxs at da momento. (well pretty old"
 dc.b    "stuff really, such as HISTORY by MAI TAI and AXEL F by old HAROLD F. "
 dc.b 	"Yep, it's really COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOL (Totaly frozen)."
 dc.b 	"All about 2000 million years old, the tapes are fossilised! "
 dc.b 	"TIW is sitting next to me at the moment. He is eating a pizza and"
	dc.b " watchi...."
 dc.b	"sorry boring scrolltexts strike again! Yeah, wat's next. it's a"
 dc.b " record called "
 dc.b  	"OBSESSION by someone we can't remember (lamers no doubt). Let's"
 dc.b " fast forward this one, TIW"
 dc.b  	" Yeah, now we have: Crazy for U by Mad Donna. It's shit so we"
 dc.b " swap the tapes. OK It's TIW"
 dc.b	" here. Now I want to listen to Public Enemy,but Comrade J"
 dc.b " doesn't want me to. Oh well.       "

 dc.b	255

 dc.l	0

mypiccy	dc.b	"fog "
	ds.b 	58876
endmess	dc.b   "Yupp, its over. Do not try and newzap"
 	dc.b   "this message, cause it does nothing anyway."
 	dc.b   "it's just the hidden message."
	dc.b  "You seem to be pretty cool at getting into demos."
	dc.b  "there's a prize to the first person who writes to us"
	dc.b "and says - Big Al is a total lamer mateys -"
	dc.b "See you soon!"