BCXLogo   BCX Console Demonstration Program S24.bas

 '
 ' Calculate PI --
 '
 
 PRINT "PI =" & STR$(4 * ATN(1))