5 CLEAR ,5000
7 KEY OFF
15 CLS
20 SCREEN 1,0
25 B=INT(RND*16):P=INT(RND*2):C=INT(RND*3)+1:C1=INT(RND*3)+1
30 COLOR B,P:FOR L=0 TO 5
35 LINE -(INT(RND*320),INT(RND*200)),C1
40 CIRCLE (INT(RND*320),INT(RND*200)),INT(RND*120),C1
50 NEXT: FOR P=0 TO 10
55 PAINT (INT(RND*320),INT(RND*200)),INT(RND*3)+1,C1
60 NEXT
65 FOR T=0 TO 600:NEXT T:GOTO 15