
    nomainwin

    open "pie" for graphics as #1

        print #1, "home ; down"
        print #1, "backcolor red"
        print #1, "piefilled 100 100 315 -315"
        print #1, "north ; turn 67 ; up ; go 20 ; down"
        print #1, "backcolor yellow"
        print #1, "pieFilled 100 100 315 45"
        print #1, "flush"
        input r$

    close #1


