10 ! PI.BAC
20 ! Programet ber{knar PI med en massa decimaler.
30 ! PI blir mer exakt destu l{ngre man k|r programet
40 ! Program av Magnus <8042> 1992
50 INTEGER : NO EXTEND 
60 S=160 : DIM T$=S+1,D$=S+1,A$=S+1
70 ; CHR$(12)
80 T$="4" : D$="3" : A$="4"
90 T$=SUB$(T$,DIV$(A$,D$,S),S) : D$=ADD$(D$,"2",S)
100 T$=ADD$(T$,DIV$(A$,D$,S),S) : D$=ADD$(D$,"2",S)
110 ; CUR(0,0);T$ : GOTO 90