;Program: Open a window showing address
;Author : Zebedee/Carnage
;Date   : 18-Sep-95

	opt	o+
	section	main,code_c

ProgStart
	move.l	4.w,a6
	sub.l	a1,a1
	jsr	-$126(a6)		;FindTask(a1)exec
	move.l	d0,a4
	tst.l	$ac(a4)
	bne.b	FromDOS
	lea	$5c(a4),a0
	jsr	-$180(a6)		;WaitPort(a0)exec
	lea	$5c(a4),a0
	jsr	-$174(a6)		;GetMsg(a0)exec
	move.l	d0,WbMsg
FromDOS	move.l	4.w,a6
	lea	IntName(pc),a1
	moveq.l	#0,d0
	jsr	-$228(a6)		;OpenLibrary(a1,d0)exec
	move.l	d0,IntBAdr
	beq	Exit
	lea	DFName(pc),a1
	moveq.l	#0,d0
	jsr	-$228(a6)		;OpenLibrary(a1,d0)exec
	move.l	d0,DFBAdr
	move.l	DFBAdr,a6
	lea	NewFont,a0
	jsr	-$1e(a6)		;OpenFont(a1)dfont
	move.l	d0,FontPtr
	move.l	IntBAdr(pc),a6
	lea	WinDefs(pc),a0
	jsr	-$cc(a6)		;OpenWindow(a0)int
	move.l	d0,WinPtr
	beq.b	BadWin
	move.l	WinPtr(pc),a0
	lea	WinTitl(pc),a1
	lea	ScrTitl(pc),a2
	jsr	-$114(a6)		;SetWindowTitles(a0,a1,a2)int
	jsr	-$1c8(a6)		;RefreshWindowFrame(a0)int
	jsr	-$156(a6)		;WBenchToFront()int
	move.w	#0,a0
	jsr	-$60(a6)		;DisplayBeep(a0)int
	move.l	WinPtr(pc),a0
	move.l	$32(a0),a0
	lea	TheText(pc),a1
	moveq.l	#0,d0
	moveq.l	#0,d1
	jsr	-$d8(a6)		;PrintIText(a0/a1,d0/d1)int
.loop	move.l	WinPtr(pc),a0
	move.l	$56(a0),a0
	move.l	4.w,a6
	jsr	-$174(a6)		;GetMsg(a0)exec
	tst.l	d0
	beq.b	.loop
	move.l	IntBAdr(pc),a6
	move.l	WinPtr(pc),a0
	jsr	-$48(a6)		;CloseWindow(a0)int
BadWin	move.l	4.w,a6
	move.l	IntBAdr(pc),a1
	jsr	-$19e(a6)		;CloseLibrary(a1)exec
Exit	tst.l	WbMsg
	beq.b	ExitDOS
	move.l	4.w,a6
	move.l	WbMsg(pc),a1
	jsr	-$17a(a6)		;ReplyMsg(a1)exec
ExitDOS	moveq.l	#0,d0
	rts

Version	dc.b	'$VER: Show Address v1.00 (18-Sep-95)',0
IntName	dc.b	'intuition.library',0
DFName	dc.b	'diskfont.library',0
IntBAdr	dc.l	0
DFBAdr	dc.l	0
WbMsg	dc.l	0
WinPtr	dc.l	0
WinDefs	dc.w	170,78			;x,y
	dc.w	300,95			;w,h
	dc.b	0,1			;detailPen,blockPen
	dc.l	$200			;IDCMP
	dc.l	$31008			;flags (+2 for size_gad)
	dc.l	0			;first gadget
	dc.l	0			;checkmark image
	dc.l	WinTitl			;Window title
	dc.l	0			;screen
	dc.l	0			;bitmap
	dc.w	50,20			;min w,min h
	dc.w	640,256			;max w,max h
	dc.w	1			;in workbench
WinTitl	dc.b	'You''ll never guess what...',0
ScrTitl	dc.b	'CARNAGE - Always where you never expect us to be!',0
TheText	dc.l	$01000002		;dp,bp,md,??
	dc.l	$0023000e		;xxxx,yyyy
	dc.l	NewFont
	dc.l	TextL1
	dc.l	StruL2s
TextL1	dc.b	'...this thang passed thru...',0
StruL2s	dc.l	$01000002
	dc.l	$003c0019
	dc.l	NewFont
	dc.l	TextL2
	dc.l	StruL2b
StruL2b	dc.l	$03000002
	dc.l	$003c0019
	dc.l	NewFont
	dc.l	TextL2b
	dc.l	StruL2
TextL2b	dc.b	'Z b d      C rn',0
StruL2	dc.l	$02000002
	dc.l	$003a0018
	dc.l	NewFont
	dc.l	TextL2
	dc.l	StruL3
TextL2	dc.b	'Zebedee of Carnage',0
StruL3	dc.l	$01000002
	dc.l	$002b0027
	dc.l	NewFont
	dc.l	TextL3
	dc.l	StruL4s
TextL3	dc.b	'If ya wanna rite, do it to',0
StruL4s	dc.l	$01000002
	dc.l	$00460032
	dc.l	NewFont
	dc.l	TextL4
	dc.l	StruL4
StruL4	dc.l	$02000002
	dc.l	$00440031
	dc.l	NewFont
	dc.l	TextL4
	dc.l	StruL5s
TextL4	dc.b	'72 Hessary Drive',0
StruL5s	dc.l	$01000002
	dc.l	$006a003d
	dc.l	NewFont
	dc.l	TextL5
	dc.l	StruL5
StruL5	dc.l	$02000002
	dc.l	$0068003c
	dc.l	NewFont
	dc.l	TextL5
	dc.l	StruL6s
TextL5	dc.b	'Belliver',0
StruL6s	dc.l	$01000002
	dc.l	$006a0048
	dc.l	NewFont
	dc.l	TextL6
	dc.l	StruL6
StruL6	dc.l	$02000002
	dc.l	$00680047
	dc.l	NewFont
	dc.l	TextL6
	dc.l	StruL7s
TextL6	dc.b	'Plymouth',0
StruL7s	dc.l	$01000002
	dc.l	$00420053
	dc.l	NewFont
	dc.l	TextL7
	dc.l	StruL7
StruL7	dc.l	$02000002
	dc.l	$00400052
	dc.l	NewFont
	dc.l	TextL7
	dc.l	0
TextL7	dc.b	'PL6 7DQ, ENGLAND',0
SmlFont	dc.l	TopazF
	dc.l	$00080000
BigFont	dc.l	TopazF
	dc.l	$00090000
TopazF	dc.b	'topaz.font',0
FontPtr	dcb.l	5,0
NewFont	dc.l	Fatty,$b0000
Fatty	dc.b	'fatty.font',0
	end