100 PROGRAM "Triangle.bas"
110 SET VIDEO MODE 1:SET VIDEO COLOR 0:SET VIDEO X 40:SET VIDEO Y 27
120 OPEN #101:"video:"
130 DISPLAY #101:AT 1 FROM 1 TO 27
140 CALL SIERP(896,180,50)
150 DEF SIERP(W,X,Y)
160   IF W>28 THEN
170     CALL SIERP(W/2,X,Y)
180     CALL SIERP(W/2,X+W/4,Y+W/2)
190     CALL SIERP(W/2,X+W/2,Y)
200   ELSE
210     PLOT X,Y;X+W/2,Y+W;X+W,Y;X,Y
220   END IF
230 END DEF