つってくるよ・・

*ALLSCAN
sf = 0 : marked = 0 : repeat 16, 1 : sx = cnt : repeat 10, 1
sy = cnt : gosub *SCAN : loop : loop : return