100 PROGRAM "Triangle.bas"
110 TEXT 40
120 CALL TRIANGLE(1,1,8)
130 DEF TRIANGLE(X,Y,L)
140   IF L=0 THEN
150     PRINT AT Y,X:"*"
160   ELSE
170     CALL TRIANGLE(X,Y+L,INT(L/2))
180     CALL TRIANGLE(X+L,Y,INT(L/2))
190     CALL TRIANGLE(X+2*L,Y+L,INT(L/2))
200   END IF
210 END DEF