home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
basic
/
baswiz18.zip
/
BW$BAS.ZIP
/
BCDPI.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-29
|
1KB
|
21 lines
' +----------------------------------------------------------------------+
' | |
' | BASWIZ Copyright (c) 1990-1992 Thomas G. Hanlin III |
' | |
' | The BASIC Wizard's Library |
' | |
' +----------------------------------------------------------------------+
DECLARE FUNCTION BCDSet$ (NumSt$)
FUNCTION BCDpi$
St$ = "3.1415926535897932384626433832795028841971"
St$ = St$ + "6939937510582097494459230781640628620899"
St$ = St$ + "8628034825342117067982148086513282306647"
St$ = St$ + "0938446095505822317253594081284811174502"
St$ = St$ + "8410270193852110555964462294895493038196"
St$ = St$ + "4428810975665933446128475648233786783165"
St$ = St$ + "2712019091456"
BCDpi$ = BCDSet$(St$)
END FUNCTION