clg
ns=int(rand*500)
For n = 1 to ns
color int(rand*2)*255,int(rand*2)*255,int(rand*2)*255
circle rand*290+5,rand*290+5,5
next n
input "How many smarties?",wait
print ns
This is a set of small programs in Basic-256, related to various topics. Just copy,paste and run. Note : Sometimes programs do not run in recent BASIC 256 versions.
No comments:
Post a Comment