yzj9 L MODÅTWOPIRAÄXBASÅYBASÅSHAPEÒDIAMETEÒPYXARRAY¨HEADING¤BLANKS¤TRIANGLES¤PISTRING¤XREÓCØSCALEØYREÓSCALEÙCÙÎÓÒÉÊANÇÁÂØÙÃPÉKEÙ@€€€ €  ""****************************›""* *›""* CALCPI.BAS *›(""* *›2""* by Bruce D. Noonan, M.D. *›<""* *›F""* (c)1985 ANALOG COMPUTING *›P""* *›Z""****************************›d +-@@G("TYPE GRAPHICS MODE 4,5,6,7, OR 8 :g@@K:t)@€@n/6€-€&@H/€ @)€!@Ax6-@(150‚6‚-@€Œ6ƒ-@@–*6„-@*varies from 1.07 to 1.19› 6…-@ª<<†9@,‡;@0,ˆ;@0,‰;@,Š;@,´((6‡.# of triangles Approx. of pi¾((6ˆ. È+€Ò20@2BACKGROUND = BLACK›Ü/0@/POLYGON = WHITE›æAR@ðWW6‹-A $+€"@,%A`$+€"@)€"@,%@€$+€"@)€"@,ú6Œ-‹'@ 6-‹'‚WW6Ž-A`$+€"@,%@€$+€"@)€"@,%@@$+€"@)€"@, 6-Ž'ƒ"6-Ž'@,6‘-@66’-@@(( ‡J6“-@PT”-@@^ @h6†8,-Œr6†8@,-|6†8@,-Œ%„$“$†6†8@,-•-‘š 6–-•$'‘¤6—-Œ%“$E:–,$$„®6˜-%“$G:–,$¸6†8@,-—Â6†8@,-˜ÌK,†8,†8@,3/†8@,†8@,K/†8@,†8@,Ö6†8@,-—à6†8@,-˜ê •ô6™-’'@þ6š-@&M:@&™$™, 6›-‘$’ 6œ-›'… 6‰.=:‘, 6‰7B:‰,%@,.ˆ& 6Š.=:œ,0  ‰Š>:@(,:6’-M:™$™%š$š,D6‘-@$‘N6-F:B2y,X"@' A0b"@Al ”v +€€ D:CALPI.BAS