BCX Console Demonstration Program S24.bas 

 '
 ' Calculate PI --
 '
 
 PRINT "PI =" & STR$(4.0 * ATN(1.0))