' Program to output digits of PI
    input "Enter number of digits required (multiple of 4): "; ndigits
    m = int(ndigits / 4) * 14 or 0
    !DIM P% 100, B%(m) : B%() = 20 : [OPT 2
    !.pidig mov ebx,^B%(0) : mov ecx,[^c] : xor edx,edx : lea ebp,[ecx*2-1]
    !.pi1   imul edx,ecx : mov eax,[ebx+ecx*4] : imul eax,100 : add eax,edx
    !cdq : div ebp : mov [ebx+ecx*4],edx : mov edx,eax : sub ebp,2 : loop pi1
    !mov eax,edx : ret :]
    e = 0
    l = 2
    for c = m to 14 step -7
      !d = USR(pidig)
      select case
        case d = 99: e = e * 100 + d : l += 2
        case c = m: print int(d / 100) / 10; : e = d mod 100
        case else:
          print right$("00000000000";(e + int(d / 100)), l);
          e = d MOD 100 : l = 2
      end select
    next
    end