prog8/examples/test.p8

%import c64textio
%zeropage basicsafe

main {
    sub start() {

;asmsub  clear_screen (ubyte char @ A, ubyte color @ Y) clobbers(A)  { ...}
; TODO dont cause name conflict if we define sub or sub with param 'color' or even a var 'color' later.

;   sub color(...) {}
;   sub other(ubyte color) {}    ; TODO don't cause name conflict

        c64.CHROUT('\n')
    }
}