1 REM DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983
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)
10 PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I
12 PRINT TAB(10);"D I G I T A L S C O P E"
13 PRINT TAB(10);"------------------------"
15 PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"
17 PRINT "MIN. SAMPLING INTERVAL 0.1MS"
18 PRINT "MAX. # OF SAMPLES 1023"
20 PRINT TAB(10);"INPUT = IN 3"
21 PRINT TAB(10);"TRIGGER = IN 0"
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
27 PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);
28 FOR I=1 TO 100 \ NEXT I
36 300 PRINT TAB(10);"# OF POINTS ........... ";PNT(30);
37 FOR I=1 TO 100 \ NEXT I
40 PRINT TAB(10);"$ READY";