18 lines
391 B
Text
18 lines
391 B
Text
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
|