X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Frescue%2Fmuenchen2013%2Ffiles%2Fkrause_soft%2Fparabl.ba;fp=sw%2Frescue%2Fmuenchen2013%2Ffiles%2Fkrause_soft%2Fparabl.ba;h=665f85e0ec5e938140299b77fe56c41fc8aaa603;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/rescue/muenchen2013/files/krause_soft/parabl.ba b/sw/rescue/muenchen2013/files/krause_soft/parabl.ba
new file mode 100644
index 0000000..665f85e
--- /dev/null
+++ b/sw/rescue/muenchen2013/files/krause_soft/parabl.ba
@@ -0,0 +1,25 @@
+REM	DISPLAY DEMO
+REM
+REM	DEFINE LAB8/E FUNCTIONS
+	UDEF INI(N), PLY(N), DLY(N), DIS(S,E,N,X)
+	UDEF SAM(C,N,P,T), CLK(R,O,S), CLW(N), ADC(N)
+	UDEF GET(M,L), PUT(M,L), DRI(N), DRO(M,N)
+	DIM A(342)
+	USE A
+	Z = INI(0)
+REM
+	FOR N=-200 TO 200
+	Y = (N*N)/40001
+	X = PLY(Y)
+	W = DLY(401)
+	NEXT N
+REM
+	FOR N=-200 TO 200
+	Y = (N*N*N+8000000)/16000010
+	X = PLY(Y)
+	W = DLY(802)
+	NEXT N
+REM
+	V = DIS(1,802,1,1)
+	V = DIS(1,802,10,1)
+	END