100 PROGRAM "Dragon.bas"
110 OPTION ANGLE DEGREES
120 LET SQ2=SQR(2)
130 GRAPHICS HIRES 2
140 SET PALETTE 0,33
150 PLOT 250,360,ANGLE 0;
160 CALL DC(580,0,11)
170 DEF DC(D,A,LEV)
180   IF LEV=0 THEN
190     PLOT FORWARD D;
200   ELSE
210     PLOT RIGHT A;
220     CALL DC(D/SQ2,45,LEV-1)
230     PLOT LEFT 2*A;
240     CALL DC(D/SQ2,-45,LEV-1)
250     PLOT RIGHT A;
260   END IF
270 END DEF