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