I'll make this into something later...

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    SET DISPLAY MODE 320,200,32
SET TEXT FONT "terminal",1
SET TEXT SIZE 12
RANDOMIZE TIMER()

topXA = 0
topXB = 310
topYA = 0

leftXA = 0
leftYA = 0
leftYB = 190

bottomXA = 0
bottomXB = 310
bottomYA = 190

rightXA = 310
rightYA = 0
rightYB = 190

DO
    CLS
    FOR i=1 to 500
        INK RGB(RND(255),RND(255),RND(255)),0
        TEXT topXA+RND(topXB),topYA+RND(1),"*" `top
        TEXT leftXA+RND(1),leftYA+RND(leftYB),"*" `left
        TEXT bottomXA+RND(bottomXB),bottomYA+RND(1),"*" `bottom
        TEXT rightXA+RND(1),rightYA+RND(rightYB),"*" `right
    NEXT i

    topXA=topXA+1
    topXB=topXB-2
    topYA=topYA+1

    leftXA=leftXA+1
    leftYA=leftYA+1
    leftYB=leftYB-2

    bottomXA=bottomXA+1
    bottomXB=bottomXB-2
    bottomYA=bottomYA-1

    rightXA=rightXA-1
    rightYA=rightYA+1
    rightYB=rightYB-2

LOOP