11 lines
307 B
Text
11 lines
307 B
Text
100 PROGRAM "Cantor.bas"
|
|
110 GRAPHICS HIRES 2
|
|
120 SET PALETTE BLACK,WHITE
|
|
130 CALL CANTOR(28,500,1216,32)
|
|
140 DEF CANTOR(X,Y,L,HEIGHT)
|
|
150 IF L>3 THEN
|
|
160 PLOT X,Y;X+L,Y,X,Y+4;X+L,Y+4
|
|
170 CALL CANTOR(X,Y-HEIGHT,L/3,HEIGHT)
|
|
180 CALL CANTOR(X+2*L/3,Y-HEIGHT,L/3,HEIGHT)
|
|
190 END IF
|
|
200 END DEF
|