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

   1 REM     DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983
   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 REM
  10         PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I
  11         PRINT
  12         PRINT TAB(10);"D I G I T A L  S C O P E"
  13         PRINT TAB(10);"------------------------"
  14         PRINT
  15         PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"
  16         PRINT \ PRINT \ PRINT
  17         PRINT "MIN. SAMPLING INTERVAL 0.1MS"
  18         PRINT "MAX. # OF SAMPLES      1023"
  19         PRINT \ PRINT
  20         PRINT TAB(10);"INPUT   =  IN  3"
  21         PRINT TAB(10);"TRIGGER =  IN  0"
  22         PRINT \ PRINT \ PRINT
  23 REM
  24 20      PRINT PNT(15);PNT(28); \ FOR I=1 TO 100 \ NEXT I
  25         FOR I=1 TO 5 \ PRINT PNT(26); \ NEXT I
  26         PRINT
  27         PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);
  28         FOR I=1 TO 100 \ NEXT I
  29         INPUT S,R$
  30         IF R$="M" GOTO 100
  31         IF R$="U" GOTO 200
  32         GOTO 20
  33 100     R = 3
  34         GOTO 300
  35 200     R = 6
  36 300     PRINT TAB(10);"# OF POINTS ........... ";PNT(30);
  37         FOR I=1 TO 100 \ NEXT I
  38         INPUT N
  39         PRINT
  40         PRINT TAB(10);"$ READY";
  41 REM
  42 10      T = DRI(0)
  43         IF T<2047 GOTO 10
  44         Z = INI(0)
  45         Z = SAM(0,1,N,1)
  46         Z = CLK(R,S,0)
  47         Z = DIS(1,N,1,1)
  48 REM
  49         GOTO 20
  50         END