残像を作るには複雑な処理は必要ないことに、最近になって気がつきました。

*main
    redraw 0
    
    // 背景
    gmode 3, 32,32, 50
    color 0,0,0 : grect 320,240, 0, 640,480

    // ●発生
    if rnd(20)=0 : gosub *born

    color 0,255,255

    repeat max
        // ●
        if x(cnt)<0 | x(cnt)>610 : mx(cnt)*=-1
        if y(cnt)<0 | y(cnt)>450 : my(cnt)*=-1
        x.cnt += mx.cnt
        y.cnt += my.cnt
        font "ＭＳ ゴシック", 30
        pos x.cnt, y.cnt : mes "●"
        loop

    redraw
    await 50
    goto *main

*born
    x.max = rnd.610
    y.max = rnd.450
    mx.max = 10
    my.max = 10
    max ++
    return

説明するまでも無いですが、背景の代わりに半透明に塗りつぶします。