// pi roll.bas SmallBASIC 0.12.6 [B+=MGA] 2016-05-21
// Adapted to Yabasic 2.78.0 by Galileo 02/2017
pie$=" 3.141592653589793238462643383279502884197169399375105820974944592307816406286"
xmax = 640 : ymax = 640
open window xmax,ymax
backcolor 0,0,0
clear window
cx = xmax / 2 : cy = ymax / 2 : pIndex = 1 : n = 50
while((r * 6) < cy - 30) //the screen scolls when print near bottom
n = n + 10
pIndex = pIndex + 1
r = n ^ .6
a = a + .33
x = cx - r * 6 * cos(a)
y = cy - r * 6 * sin(a)
size$=str$(80 - 1.45 * r)
col=(val(size$))*4
color col,col,col
text x, y, mid$(pie$, pIndex, 1),"swiss"+size$
wend
