A large commit.
[pdp8.git] / sw / rescue / muenchen2013 / files / krause_soft / scope.ba
CommitLineData
81e70d48
PH
1REM DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983\r
2REM\r
3REM DEFINE LAB8/E FUNCTIONS\r
4 UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)\r
5 UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)\r
6 UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)\r
7 DIM A(342)\r
8 USE A\r
9REM\r
10 PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I\r
11 PRINT\r
12 PRINT TAB(10);"D I G I T A L S C O P E"\r
13 PRINT TAB(10);"------------------------"\r
14 PRINT\r
15 PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"\r
16 PRINT \ PRINT \ PRINT\r
17 PRINT "MIN. SAMPLING INTERVAL 0.1MS"\r
18 PRINT "MAX. # OF SAMPLES 1023"\r
19 PRINT \ PRINT\r
20 PRINT TAB(10);"INPUT = IN 3"\r
21 PRINT TAB(10);"TRIGGER = IN 0"\r
22 PRINT \ PRINT \ PRINT\r
23REM\r
2420 PRINT PNT(15);PNT(28); \ FOR I=1 TO 100 \ NEXT I\r
25 FOR I=1 TO 5 \ PRINT PNT(26); \ NEXT I\r
26 PRINT\r
27 PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);\r
28 FOR I=1 TO 100 \ NEXT I\r
29 INPUT S,R$\r
30 IF R$="M" GOTO 100\r
31 IF R$="U" GOTO 200\r
32 GOTO 20\r
33100 R = 3\r
34 GOTO 300\r
35200 R = 6\r
36300 PRINT TAB(10);"# OF POINTS ........... ";PNT(30);\r
37 FOR I=1 TO 100 \ NEXT I\r
38 INPUT N\r
39 PRINT\r
40 PRINT TAB(10);"$ READY";\r
41REM\r
4210 T = DRI(0)\r
43 IF T<2047 GOTO 10\r
44 Z = INI(0)\r
45 Z = SAM(0,1,N,1)\r
46 Z = CLK(R,S,0)\r
47 Z = DIS(1,N,1,1)\r
48REM\r
49 GOTO 20\r
50 END\r