.lib "kernel32.dll"
Beep%(dwFreq%,dwDuration%):"Beep"

timer = CreateTimer(10)
Global NextPiNumber%
pistream = ReadFile("pi.txt")

While Not Eof(pistream)
   NextPiNumber% = Int(Chr(ReadByte(pistream)))
   SeekFile pistream, FilePos(pistream) + 1
   Beep(100 * NextPiNumber%, 100)
   Print NextPiNumber
   WaitTimer timer
Wend
CloseFile pistream
FreeTimer timer
End

timer = CreateTimer(10)
Global NextPiNumber%
pistream = ReadFile("pi.txt")
x=50
high=20
SetBuffer BackBuffer()

While Not Eof(pistream)
   Cls
      numberold=NextPiNumber%
      NextPiNumber% = Int(Chr(ReadByte(pistream)))
    SeekFile pistream, FilePos(pistream) + 1
   
      Beep(100 * NextPiNumber%, 100)
   Color 74+NextPiNumber%*20,20,20

   high=NextPiNumber%*20
   Rect 0,0,high,20



   Color 28*NextPiNumber%,28*NextPiNumber%,28*NextPiNumber%


Zeilenumbruch p_pi$,30,30,350,270
p_pi$=p_pi$+NextPiNumber%

If point=0
   point=1
   p_pi$="3."
EndIf

   WaitTimer timer
   Flip
Wend
End






Function Zeilenumbruch (t$, pX, pY, w, h)

   Rect pX, pY, w, h, 0   
   nx = pX
   ny = pY
   nt$ = ""
   i = 0
   lt = Len(t$)
   While Len(t$) > 0
      i = i + 1
     
      If StringWidth(Left$(t$, i)) < w And i <= Len(t$) Then
         nt$ = Left$(t$, i)
      Else
         Text nx, ny, nt$
         t$ = Mid$(t$, i, -1)
         i = 0
         nt$ = ""                                       
         ny = ny + 1.2 * StringHeight(t$)
      End If
   Wend

End Function