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