12 lines
285 B
Text
12 lines
285 B
Text
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
|