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

   1 REM     DISPLAY A TRIANGLE
   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=1 TO 30
  12         Y = N/30.1
  13         W = PLY(Y)
  14         Z = 1/30.1
  15         U = PLY(Z)
  16         P = DLY(118)
  17         NEXT N
  18 REM
  19         FOR N=1 TO 29
  20         M = 30-N
  21         Y = N/30.1
  22         W = PLY(Y)
  23         Z = 1/30.1
  24         U = PLY(Z)
  25         P = DLY(118)
  26         NEXT N
  27 REM
  28         V = DIS(1,118,1,1)
  29         END