opt c+,d+
	
; this program should open a screen and enable you to move it 
; around using the joystick

movescreen	= -162
openscreen	= -198
closescreen	= -66
closelib	= -414
openlib	= -408
execbase	= 4
joy2	= $dff00c
fire	= $bfe001

run:
	bsr openint
	bsr scropen
	move joy2,d6
loop:
	tst.b fire
	bpl ende
	move joy2,d0
	sub d6,d0
	cmp #$0100,d0
	bne noup
	move.l #-1,d1
	bsr scrmove
	bra loop
noup:
	cmp #$0001,d0
	bne loop
	move.l #1,d1
	bsr scrmove
	bra loop
ende:	
	bsr scrclose
	bsr closeint
	rts
openint:
	move.l execbase,a6
	lea intname,a1
	jsr openlib(a6)
	move.l d0,intbase
	rts
closeint:
	move.l execbase,a6
	move.l intbase,a1
	jsr closelib(a6)
	rts
scropen:
	move.l intbase,a6
	lea screen_defs,a0
	jsr openscreen(a6)
	move.l d0,screenhd
	rts
scrclose:
	move.l intbase,a6
	move.l screenhd,a0
	jsr closescreen(a6)
	rts
scrmove:
	move.l intbase,a6
	move.l screenhd,a0
	clr.l d0
	jsr movescreen(a6)
	rts
	
	even
	
screen_defs:

x_pos:	dc.w 0
y_pos:	dc.w 0
width:	dc.w 320
height:	dc.w 200
depth:	dc.w 2
detail_pen:	dc.b 1
block_pen:	dc.b 3
view_modes:	dc.w 2
screen_type:	dc.w 15
font:	dc.l 0
title:	dc.l sname
gadgets:	dc.l 0
bitmap:	dc.l 0
intbase:	dc.l 0
screenhd:	dc.l 0
intname:	dc.b 'intuition.library',0
	even
sname:	dc.b '**** A SCREEN BY BAZ ****',0
	even