A large commit.

[pdp8.git] / sw / rescue / muenchen2013 / files / krause_soft / scope.ba

diff --git a/sw/rescue/muenchen2013/files/krause_soft/scope.ba b/sw/rescue/muenchen2013/files/krause_soft/scope.ba
new file mode 100644 (file)
index 0000000..4e3eddf
--- /dev/null
+++ b/sw/rescue/muenchen2013/files/krause_soft/scope.ba
@@ -0,0 +1,50 @@
+REM    DIGITAL SCOPE PROGRAM - BY R.KRAUSE APR 1983\r
+REM\r
+REM    DEFINE LAB8/E FUNCTIONS\r
+       UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)\r
+       UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)\r
+       UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)\r
+       DIM A(342)\r
+       USE A\r
+REM\r
+       PRINT PNT(29);PNT(31); \ FOR I=1 TO 100 \ NEXT I\r
+       PRINT\r
+       PRINT TAB(10);"D I G I T A L  S C O P E"\r
+       PRINT TAB(10);"------------------------"\r
+       PRINT\r
+       PRINT TAB(10);"( INPUT VIA DR8EA / OUTPUT VIA VC8E )"\r
+       PRINT \ PRINT \ PRINT\r
+       PRINT "MIN. SAMPLING INTERVAL 0.1MS"\r
+       PRINT "MAX. # OF SAMPLES      1023"\r
+       PRINT \ PRINT\r
+       PRINT TAB(10);"INPUT   =  IN  3"\r
+       PRINT TAB(10);"TRIGGER =  IN  0"\r
+       PRINT \ PRINT \ PRINT\r
+REM\r
+20     PRINT PNT(15);PNT(28); \ FOR I=1 TO 100 \ NEXT I\r
+       FOR I=1 TO 5 \ PRINT PNT(26); \ NEXT I\r
+       PRINT\r
+       PRINT TAB(10);"SAMPLING INTERVAL (X,M/X,U) ";PNT(30);\r
+       FOR I=1 TO 100 \ NEXT I\r
+       INPUT S,R$\r
+       IF R$="M" GOTO 100\r
+       IF R$="U" GOTO 200\r
+       GOTO 20\r
+100    R = 3\r
+       GOTO 300\r
+200    R = 6\r
+300    PRINT TAB(10);"# OF POINTS ........... ";PNT(30);\r
+       FOR I=1 TO 100 \ NEXT I\r
+       INPUT N\r
+       PRINT\r
+       PRINT TAB(10);"$ READY";\r
+REM\r
+10     T = DRI(0)\r
+       IF T<2047 GOTO 10\r
+       Z = INI(0)\r
+       Z = SAM(0,1,N,1)\r
+       Z = CLK(R,S,0)\r
+       Z = DIS(1,N,1,1)\r
+REM\r
+       GOTO 20\r
+       END\r