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

   1 REM     TEST DIGITAL I/O (0)
   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 REM
   8 10      PRINT "ENTER STEP RATE [MS] (0=END) ";
   9         INPUT R
  10         IF R=0 GOTO 30
  11         PRINT "ENTER # OF CYCLES    ";
  12         INPUT N
  13         W = CLK(3,R,0)
  14 REM
  15         FOR I=1 TO N
  16         C = 1
  17 20      W = DRO(0,0)
  18         W = DRO(C,0)
  19         C = C*2
  20         W = CLW(0)
  21         IF C<4096 GOTO 20
  22         NEXT I
  23 REM
  24         GOTO 10
  25 30      END