sw/rescue/muenchen2013/files/krause_soft/parabl.ba

   1 REM     DISPLAY DEMO
   2 REM
   3 REM     DEFINE LAB8/E FUNCTIONS
   4         UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)
   5         UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)
   6         UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)
   7         DIM A(342)
   8         USE A
   9         Z = INI(0)
  10 REM
  11         FOR N=-200 TO 200
  12         Y = (N*N)/40001
  13         X = PLY(Y)
  14         W = DLY(401)
  15         NEXT N
  16 REM
  17         FOR N=-200 TO 200
  18         Y = (N*N*N+8000000)/16000010
  19         X = PLY(Y)
  20         W = DLY(802)
  21         NEXT N
  22 REM
  23         V = DIS(1,802,1,1)
  24         V = DIS(1,802,10,1)
  25         END