100 REM DRACHEN
110 IF FLAG=0 THEN FLAG=1:LOAD "GRAPHTOOL.OBJ",8,1
120 INPUT "WIE OFT ZERTEILEN : ";TM
130 SYS49152:SYS49158,1,0:REM GRAPHIK INITIALISIEREN
140 X1=0:Y1=100
150 L=300:GR=0
160 GOSUB 190
170 GETA$:IFA$=""THEN170
180 SYS49155:GOTO120
190 L(I)=L:GR(I)=GR:TM(I)=TM:I=I+1
200 TM=TM-1: IF TM < 1 THEN 290
210 L=L/4:GOSUB 190
220 GR=GR+90:GOSUB 190
230 GR=GR-90:GOSUB 190
240 L=L+L:GR=GR-90:GOSUB190
250 L=L/2:GR=GR+90:GOSUB190
260 GR=GR+90:GOSUB 190
270 GR=GR-90:GOSUB 190
280 GOTO320
290 X0=X1:Y0=Y1:BO=GR*2*(null)/360
300 X1=X0+COS(BO)*L:Y1=Y0+SIN(BO)*L
310 SYS49173,X0,Y0,X1,Y1
320 I=I-1:L=L(I):GR=GR(I):TM=TM(I)
330 RETURN