smallbasic.github.io/samples/node/1056.bas at master · smallbasic/smallbasic.github.io · GitHub

History

56 lines (47 loc) · 909 Bytes

Raw

CLS

at 10,10

print "Angelle (please do not go)"

Randomize 7343543 + 4340429 * (RND - 0.5)

for fls = 1 to 21

col = floor(rnd * 15) + 1

k = floor (25 * rnd) + 2

flx = rnd * 1.4 - 0.7

fly = rnd * 1.4 - 0.7

size = 60 * rnd + 20

for theta = 0 to 2*3.414159 step 0.001

r = cos(k*theta)

for fil = 0 to size

x = r * cos(theta) * fil + 300 + 200*flx

y = r * sin(theta) * fil + 300 + 200*fly

pset x, y, col

next fil

next theta

next fls

at 10,30

print "Honey"

pause 1

at 10,50

print "You were busy"

pause 1

at 10, 70

print "And I disrupted you"

pause 1

at 10, 90

print "I just wanted to say I am sorry"

pause 1

at 10, 110

print "You did not talk to me the whole time after that"

pause 1

at 10,130

print "You must be very upset"

pause 1

at 10, 150

print "Please forgive me"

pause 1

at 10, 170

print "You mean my everything"

pause 1

at 10, 190

print "I love you"

end

smallbasic.github.io/samples/node/1056.bas at master · smallbasic/smallbasic.github.io · GitHub

Uh oh!

Expand file tree

Breadcrumbs

1056.bas

Latest commit

History

Breadcrumbs

1056.bas

File metadata and controls