14 lines
390 B
Text
14 lines
390 B
Text
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
|