' A demo for the Fill library with patterns!
' (c)2002(?) by Alvin Albretch
' Ported to ZX Basic by Paul Fisher (Britlion)

#Include <SP/Fill.bas>

10 CLS 
20 CIRCLE 128, 87, 87
30 SPFill(128, 87, USR "a")
40 PAUSE 0

