; An example how to use the CGM routine
; - Marq

WAITRECAL	equ	$f192

	org	0

        fcb     $67,$20
        fcc     "GCE MARQ"
        fcb     $80
        fdb     music,$f850,$30b8
        fcc     "CGMEXAMPLE"
        fcb     $80,$0

main	jsr	WAITRECAL
	clra
	clrb
	jsr	drawarsek
	bra	main

music   fdb     $fee8,$feb6
        fcb     $28,$08,$0,$80

	include "arsek.as9"

; The end
