A random text program

10 FOR B=1 TO 30
20 FOR A=33 TO 127
30 X=RND(39):Y=RND(16)
40 LOCATE X,Y:PRINT CHR$(A);
70 NEXT A
80 NEXT B


Some colourful circles

5 X=0
10 CLS
15 FOR A=1 TO 255
20 CIRCLE(120,100),A,X
25 X=X+1:X=X MOD 16
30 NEXT A

Some random circles

5 X=0
10 CLS
11 FOR B=1 TO 10
15 FOR A=1 TO 255
16 C=RND(239):D=RND(203)
20 CIRCLE(C,D),A,X
25 X=X+1:X=X MOD 16
30 NEXT A
40 NEXT B


Random dots

10'CLS
20 A=RND(239):B=RND(203):C=RND(15)
25 PSET(A,B),C
30 X=INKEY(0):IF X<>0 THEN 100 ELSE 20
100 CLS


Boxes

10 CLS
20 FOR A=0 TO 15
30 W=RND(239):X=RND(239):Y=RND(203):Z=RND(203)
40 BOX(W,Y)-(X,Z),A,1
50 NEXT A
60 S=INKEY(0):IF S<>0 THEN 200 ELSE 20
200 CLS

Try removing the ',1' at the end of line 40 for unfilled boxes.


Lines

Change line 40 in the program above to:
40 LINE(W,Y)-(X,Z),A


An Example to display a Screen & Sprites.  Draw something on a Screen in the BG Editor, and make one Sprite Animation, then type the following program.

10 CLS 2
15 BGDSP 0
20 ANIMSET (85,130),0,0,0,16,16,0
100 A=INKEY(1)