s:	dc.b	'DOS',0
	dc.l	0
	dc.l	880
	movem.l	d0-d7/a0-a6,-(a7)
	bsr.s	load
	movem.l	(a7)+,d0-d7/a0-a6
	lea	dosname(pc),a1
	move.l	$4,a6
	jsr	-96(a6)
	tst.l	d0
	beq.s	err
	move.l	d0,a0
	move.l	$16(a0),a0
	moveq.l	#0,d0
out:	rts
err:	moveq	#-1,d0
	bra.s	out
dosname:	dc.b	'dos.library',0
load:	lea	menutext(pc),a0
	move.l	#textlenght-1,d0
	lea	$2f000,a2
	move.l	$4,a6
textloop:
	move.b	(a0)+,(a2)+
	dbf	d0,textloop
	move.w	#$2,$1c(a1)
	move.l	#$40000,$28(a1)
	move.l	#$00400,$2c(a1)
	move.l	#$02c00,$24(a1)
	jsr	-456(a6)
	jmp	$40000
topline=2	;0-13	yli rivi jolla on demo
bottomline=8	;0-13	alin rivi jolla on demo
xadd=2		;nama arvot ovat tahtien pyoritys arvoja
yadd=-1
;abcdefghijklmnopqrstuvwxyz.,:!/&"()=-0123456789  fontisto noihin nimiin
menutext:
	dc.b	'                                   '	;linenumber
	dc.b    '           party pack 1            ' 
        dc.b	'                                   '	;0
	dc.b	'eastern egg demo...dictators sweden'	;1
	dc.b	'bbs-intro.....................sonic'	;2
	dc.b	'(lame)intro................euphoria'	;3
	dc.b	'super cars 2 preview.............mf'	;4
	dc.b	'intro.........................storm'	;5
	dc.b	'intro......................prologic'	;6
	dc.b	'bbs-intro...................wizzcat'	;7
	dc.b	'                                   '	;8
	dc.b	'                                   '	;9
	dc.b	'                                   '	;10
	dc.b	'                                   '	;11
	dc.b	'                                   '	;12
	dc.b	'                                   ',0	;13
	dc.w	topline,bottomline+2
	dc.b	xadd*2
	dc.b	yadd*2
stext:	dc.b	'HI HERE IS ANOTHER PACK FROM THE ANARCHY EASTERN'
	DC.B	' CONFERENCE IN NYKOPING !!! ENJOY THE WAREZ ! CU'
	dc.b	' IN OUR NEXT PACKIE...                         ',0
even
textend:
textlenght=textend-menutext