start bastext 1025
start tok64 d64-TXhvyf
10 REM    *** sprite demo grid ***
15 SWITCH12,0
20 SPROG 250:REM ** set pointer **
30 SPROG "{.*24}"
31 SPROG "{.*24}"
32 SPROG "{.*24}"
33 SPROG "{.*24}"
34 SPROG "{.*24}"
35 SPROG "{.*24}"
36 SPROG "{.*24}"
37 SPROG "{.*24}"
38 SPROG "{.*24}"
39 SPROG "{.*24}"
40 SPROG "{.*24}"
41 SPROG "{.*24}"
42 SPROG "{.*24}"
43 SPROG "{.*24}"
44 SPROG "{.*24}"
45 SPROG "{.*24}"
46 SPROG "{.*24}"
47 SPROG "{.*24}"
48 SPROG "{.*24}"
49 SPROG "{.*24}"
50 SPROG "{.*24}"
70 SPRITE1,250:REM turn on sprite
80 SPRCL1,1 :REM set number 1 sprites      color to white
90 EXPANDx1:EXPANDy1:REM expand in both directions
100 SMOVE1TO 150,150:REM move sprite 1 on the screen
110 END
stop tok64
(bastext 1.0)