A large commit.

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

diff --git a/sw/rescue/muenchen2013/files/krause_soft/parabl.ba b/sw/rescue/muenchen2013/files/krause_soft/parabl.ba
new file mode 100644 (file)
index 0000000..665f85e
--- /dev/null
+++ b/sw/rescue/muenchen2013/files/krause_soft/parabl.ba
@@ -0,0 +1,25 @@
+REM    DISPLAY DEMO\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
+       Z = INI(0)\r
+REM\r
+       FOR N=-200 TO 200\r
+       Y = (N*N)/40001\r
+       X = PLY(Y)\r
+       W = DLY(401)\r
+       NEXT N\r
+REM\r
+       FOR N=-200 TO 200\r
+       Y = (N*N*N+8000000)/16000010\r
+       X = PLY(Y)\r
+       W = DLY(802)\r
+       NEXT N\r
+REM\r
+       V = DIS(1,802,1,1)\r
+       V = DIS(1,802,10,1)\r
+       END\r