LIST

;Name:
;TA:
;Session:

	include "IOPackDefs.txt"
	list

;DC's

MyWindowTitle	dc.b	'This is an IOPack Window.',0

;DS's

*Main Program

main	lea	MyWindowTitle,a0
	jsr	MakeWindow
	tst.l	d0
	beq.s	end_main
	jsr	WrtIOInfo
	jsr	WaitForEvent
end_main	jsr	Exit