--- /dev/null
+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