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

diff --git a/sw/rescue/muenchen2013/files/krause_soft/triang.ba b/sw/rescue/muenchen2013/files/krause_soft/triang.ba
new file mode 100644
index 0000000..8a3b965
--- /dev/null
+++ b/sw/rescue/muenchen2013/files/krause_soft/triang.ba
@@ -0,0 +1,29 @@
+REM	DISPLAY A TRIANGLE
+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=1 TO 30
+	Y = N/30.1
+	W = PLY(Y)
+	Z = 1/30.1
+	U = PLY(Z)
+	P = DLY(118)
+	NEXT N
+REM
+	FOR N=1 TO 29
+	M = 30-N
+	Y = N/30.1
+	W = PLY(Y)
+	Z = 1/30.1
+	U = PLY(Z)
+	P = DLY(118)
+	NEXT N
+REM
+	V = DIS(1,118,1,1)
+	END