idcmp1	equ	MOUSEBUTTONS+MOUSEMOVE
idcmp2	equ	GADGETDOWN+GADGETUP+MENUPICK
idcmp3	equ	DISKINSERTED+DISKREMOVED
idcmp4	equ	RAWKEY

wf1	equ	BORDERLESS+BACKDROP+REPORTMOUSE+ACTIVATE
wf2	equ	SMART_REFRESH+NOCAREREFRESH
wf3	equ	RMBTRAP


* All the screen, window, menu & gadget stuff (edited by me where
* I deemed necessary) goes from here on...


my_new_screen:

	dc.w	0,0
	dc.w	320,256
	dc.w	4
	dc.b	5,4
	dc.w	NULL
	dc.w	CUSTOMSCREEN+CUSTOMBITMAP
	dc.l	NULL
	dc.l	NewScreenName
	dc.l	NULL
	dc.l	NULL

NewScreenName:
	dc.b	'CrossWord V1.2 : Press HELP',0
	cnop 0,2

Palette:
	dc.w	$0000,$0FFF,$004B,$008C
	dc.w	$0070,$0FF0,$0B00,$0630
	dc.w	$0741,$0951,$0A72,$0B84
	dc.w	$0DA5,$0AAA,$0777,$0555

	dc.w	$0000,$0FF0,$0A72,$0DA5	;sprite colours
	dc.w	$0070,$0FF0,$0B00,$0630
	dc.w	$0741,$0951,$0A72,$0B84
	dc.w	$0DA5,$0AAA,$0777,$0555



my_new_window:

	dc.w	0,0
	dc.w	320,256
	dc.b	5,4
	dc.l	idcmp1+idcmp2+idcmp3+idcmp4
	dc.l	wf1+wf2+wf3
	dc.l	ScrLeft
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	5,5
	dc.w	-1,-1
	dc.w	CUSTOMSCREEN

my_main_menu:

Menu1:
	dc.l	Menu2
	dc.w	4,0
	dc.w	64,0
	dc.w	MENUENABLED
	dc.l	Menu1Name
	dc.l	MenuItem1
	dc.w	0,0,0,0

Menu1Name:
	dc.b	'Project',0
	cnop 0,2

MenuItem1:
	dc.l	MenuItem2
	dc.w	0,0
	dc.w	110,40
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image1
	dc.l	Image2
	dc.b	'A'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem2:
	dc.l	MenuItem3
	dc.w	0,50
	dc.w	110,40
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image3
	dc.l	Image4
	dc.b	'N'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem3:
	dc.l	NULL
	dc.w	0,100
	dc.w	110,40
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image5
	dc.l	Image6
	dc.b	'Q'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

Menu2:
	dc.l	Menu3
	dc.w	68,0
	dc.w	36,0
	dc.w	MENUENABLED
	dc.l	Menu2Name
	dc.l	MenuItem4
	dc.w	0,0,0,0

Menu2Name:
	dc.b	'Grid',0
	cnop 0,2

MenuItem4:
	dc.l	MenuItem5
	dc.w	0,0
	dc.w	110,40
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image7
	dc.l	Image8
	dc.b	'B'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem5:
	dc.l	MenuItem6
	dc.w	0,50
	dc.w	110,40
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image9
	dc.l	Image10
	dc.b	'W'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem6:
	dc.l	NULL
	dc.w	0,100
	dc.w	110,40
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image11
	dc.l	Image12
	dc.b	'C'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

Menu3:
	dc.l	Menu4
	dc.w	106,0
	dc.w	42,0
	dc.w	MENUENABLED
	dc.l	Menu3Name
	dc.l	MenuItem7
	dc.w	0,0,0,0

Menu3Name:
	dc.b	'Clues',0
	cnop 0,2

MenuItem7:
	dc.l	MenuItem8
	dc.w	0,0
	dc.w	70,40
	dc.w	ITEMENABLED
	dc.l	0
	dc.l	Image13
	dc.l	Image14
	dc.b	NULL
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem8:
	dc.l	MenuItem9
	dc.w	0,50
	dc.w	70,40
	dc.w	ITEMENABLED
	dc.l	0
	dc.l	Image15
	dc.l	Image16
	dc.b	NULL
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem9:
	dc.l	NULL
	dc.w	0,100
	dc.w	70,40
	dc.w	ITEMENABLED
	dc.l	0
	dc.l	Image17
	dc.l	Image18
	dc.b	NULL
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

Menu4:
	dc.l	NULL
	dc.w	154,0
	dc.w	74,0
	dc.w	MENUENABLED
	dc.l	Menu4Name
	dc.l	MenuItem10
	dc.w	0,0,0,0

Menu4Name:
	dc.b	'Solutions',0
	cnop 0,2

MenuItem10:
	dc.l	MenuItem11
	dc.w	0,0
	dc.w	64,70
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image19
	dc.l	Image20
	dc.b	'E'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL

MenuItem11:
	dc.l	NULL
	dc.w	0,90
	dc.w	64,70
	dc.w	COMMSEQ+ITEMENABLED
	dc.l	0
	dc.l	Image21
	dc.l	Image22
	dc.b	'R'
	dc.b	NULL
	dc.l	NULL
	dc.w	MENUNULL


* These are the gadgets attached to the backdrop window
* and used for scrolling the crossword grid.

* Equates are used to correctly position gadgets relative to
* the crossword grid.


PG_LPOS		equ	GRID_LEFT
PG_UPOS		equ	GRID_UP

PG_DPOS		equ	PG_UPOS+MAX_DISPY*SQ_Y+8
PG_RPOS		equ	PG_LPOS+MAX_DISPX*SQ_X+8


* Crossword program gadgets

* Scroll gadgets linked to the main Backdrop screen


ScrLeft:
	dc.l	ScrRight
	dc.w	PG_LPOS,PG_DPOS
	dc.w	20,20
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	GADGIMMEDIATE		;RELVERIFY
	dc.w	BOOLGADGET
	dc.l	LEFTG_R
	dc.l	LEFTG_S
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	1
	dc.l	DecHScr
	dc.l	DoneRG		;extra entry!
	
ScrRight:
	dc.l	ScrHPG
	dc.w	PG_RPOS-24,PG_DPOS
	dc.w	20,20
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	GADGIMMEDIATE		;RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RIGHTG_R
	dc.l	RIGHTG_S
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	2
	dc.l	IncHScr
	dc.l	DoneRG		;extra entry!

ScrHPG:
	dc.l	ScrHBox
	dc.w	PG_LPOS+27,PG_DPOS+5
	dc.w	100,10
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	GADGIMMEDIATE
	dc.w	PROPGADGET
	dc.l	CPOT_R
	dc.l	CPOT_S
	dc.l	NULL
	dc.l	NULL
	dc.l	ScrHPGSInfo
	dc.w	4
	dc.l	ScrollHoriz
	dc.l	DoneRG		;extra entry!

ScrHPGSInfo:
	dc.w	FREEHORIZ+PROPBORDERLESS
	dc.w	0,0
	dc.w	4369,-1
	dc.w	0,0,0,0,0,0

ScrHBox:
	dc.l	ScrUp
	dc.w	PG_LPOS+22,PG_DPOS
	dc.w	110,20
	dc.w	GADGHBOX+GADGHIMAGE+GADGIMAGE
	dc.w	NULL
	dc.w	BOOLGADGET
	dc.l	HBox2
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	NULL	;gadget no 3
	dc.l	NULL
	dc.l	NULL		;extra entry!


ScrUp:
	dc.l	ScrDown
	dc.w	PG_RPOS,PG_UPOS
	dc.w	20,20
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	GADGIMMEDIATE		;RELVERIFY
	dc.w	BOOLGADGET
	dc.l	UPG_R
	dc.l	UPG_S
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	5
	dc.l	DecVScr
	dc.l	NULL		;extra entry!

ScrDown:
	dc.l	ScrVPG
	dc.w	PG_RPOS,PG_DPOS-24
	dc.w	20,20
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	GADGIMMEDIATE		;RELVERIFY
	dc.w	BOOLGADGET
	dc.l	DOWNG_R
	dc.l	DOWNG_S
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	6
	dc.l	IncVScr
	dc.l	DoneRG		;extra entry!

ScrVPG:
	dc.l	ScrVBox
	dc.w	PG_RPOS+5,PG_UPOS+27
	dc.w	10,100
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	GADGIMMEDIATE
	dc.w	PROPGADGET
	dc.l	DPOT_R
	dc.l	DPOT_S
	dc.l	NULL
	dc.l	NULL
	dc.l	ScrVPGSInfo
	dc.w	8
	dc.l	ScrollVert
	dc.l	DoneRG		;extra entry!

ScrVPGSInfo:
	dc.w	FREEVERT+PROPBORDERLESS
	dc.w	0,0
	dc.w	-1,4369
	dc.w	0,0,0,0,0,0

ScrVBox:
	dc.l	ScrACBox
	dc.w	PG_RPOS,PG_UPOS+22
	dc.w	20,110
	dc.w	GADGHBOX+GADGHIMAGE+GADGIMAGE
	dc.w	NULL
	dc.w	BOOLGADGET
	dc.l	VBox2
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	NULL	;gadget no 7
	dc.l	NULL
	dc.l	NULL

ScrACBox:
	dc.l	ScrDNBox
	dc.w	PG_RPOS+78,PG_UPOS
	dc.w	51,20
	dc.w	GADGHBOX+GADGHIMAGE+GADGIMAGE
	dc.w	NULL
	dc.w	BOOLGADGET
	dc.l	HBox1
	dc.l	NULL
	dc.l	ACT_1
	dc.l	NULL
	dc.l	NULL
	dc.w	NULL	;new gadget
	dc.l	NULL
	dc.l	NULL

ScrDNBox:
	dc.l	EditSwitch
	dc.w	PG_RPOS+78,PG_UPOS+30
	dc.w	51,20
	dc.w	GADGHBOX+GADGHIMAGE+GADGIMAGE
	dc.w	NULL
	dc.w	BOOLGADGET
	dc.l	HBox1
	dc.l	NULL
	dc.l	DNT_1
	dc.l	NULL
	dc.l	NULL
	dc.w	NULL	;new gadget
	dc.l	NULL
	dc.l	NULL

VZIP	equ	64+50

EditSwitch:

	dc.l	EditSWBox
	dc.w	PG_RPOS+82,PG_UPOS+VZIP+4
	dc.w	32,12
	dc.w	GADGHIMAGE+GADGIMAGE
	dc.w	RELVERIFY+GADGIMMEDIATE+TOGGLESELECT
	dc.w	BOOLGADGET
	dc.l	ESImg1
	dc.l	ESImg2
	dc.l	NULL
	dc.l	NULL
	dc.l	NULL
	dc.w	NULL
	dc.l	SetEditing	;2 userdatas!
	dc.l	EdSwHelp

EditSWBox:
	dc.l	NULL
	dc.w	PG_RPOS+78,PG_UPOS+VZIP
	dc.w	1,1
	dc.w	GADGHBOX+GADGHIMAGE+GADGIMAGE
	dc.w	NULL
	dc.w	BOOLGADGET
	dc.l	ESHBox
	dc.l	NULL
	dc.l	EST_1
	dc.l	NULL
	dc.l	NULL
	dc.w	NULL
	dc.l	NULL		;2 userdatas!
	dc.l	NULL


ACT_1:
	dc.b	9,0,RP_JAM1,0
	dc.w	-51,6
	dc.l	NULL
	dc.l	ACT_T1
	dc.l	ACT_2

ACT_T1:
	dc.b	'Across',0
	cnop	0,2

ACT_2:
	dc.b	1,0,RP_JAM1,0
	dc.w	-52,5
	dc.l	NULL
	dc.l	ACT_T1
	dc.l	NULL

DNT_1:
	dc.b	9,0,RP_JAM1,0
	dc.w	-51,6
	dc.l	NULL
	dc.l	DNT_T1
	dc.l	DNT_2

DNT_T1:
	dc.b	'Down',0
	cnop	0,2

DNT_2:
	dc.b	1,0,RP_JAM1,0
	dc.w	-52,5
	dc.l	NULL
	dc.l	DNT_T1
	dc.l	NULL


EST_1:
	dc.b	8,0,RP_JAM1,0
	dc.w	4,-10
	dc.l	NULL
	dc.l	ESTT_1
	dc.l	EST_2

EST_2:
	dc.b	1,0,RP_JAM1,0
	dc.w	3,-11
	dc.l	NULL
	dc.l	ESTT_1
	dc.l	EST_3

ESTT_1:
	dc.b	'Grid',0
	cnop 0,2

EST_3:
	dc.b	8,0,RP_JAM1,0
	dc.w	-7,24
	dc.l	NULL
	dc.l	ESTT_2
	dc.l	EST_4

EST_4:
	dc.b	1,0,RP_JAM1,0
	dc.w	-8,23
	dc.l	NULL
	dc.l	ESTT_2
	dc.l	EST_5

ESTT_2:
	dc.b	'Editing',0
	cnop 0,2

EST_5:
	dc.b	8,0,RP_JAM1,0
	dc.w	-18,7
	dc.l	NULL
	dc.l	ESTT_3
	dc.l	EST_6

EST_6:
	dc.b	1,0,RP_JAM1,0
	dc.w	-19,6
	dc.l	NULL
	dc.l	ESTT_3
	dc.l	EST_7

ESTT_3:
	dc.b	'ON',0
	cnop 0,2

EST_7:
	dc.b	8,0,RP_JAM1,0
	dc.w	44,7
	dc.l	NULL
	dc.l	ESTT_4
	dc.l	EST_8

EST_8:
	dc.b	1,0,RP_JAM1,0
	dc.w	43,6
	dc.l	NULL
	dc.l	ESTT_4
	dc.l	NULL

ESTT_4:
	dc.b	'OFF',0
	cnop 0,2