1文字1スプライトでの例(フォントは16):
DEF SPUTCHR(X,Y,S,C)
VAR P=SPPAGE(),F=16,L=LEN(S)
DIM D%[L]
VAR U,V,I,N
SPPAGE #GRPF
FOR I=0TO L-1
FONTINFO S[I],F OUT U,V
N=SPSET(U,V,F,F,0,0)
SPOFS N,X,Y
SPCOLOR N,C
SPSHOW N
D%[I]=N
X=X+F
NEXT
SPPAGE P
RETURN D%
END
#GRPFを直接SPPAGEにしているので、別途このDEF用にGRP領域を確保する必要はない。そのかわりスプライト枚数はたくさん使う。