Received: by KSUVM (Mailer R2.07) id 7928; Sat, 23 Feb 91 03:14:25 CST Date: Fri, 22 Feb 91 00:11:37 EST Reply-To: Apple II List Sender: Apple II List From: eldorado@en.ecn.purdue.edu Subject: fractal 2.1 file format to Dazzle Draw file format converter To: "Steven E. Nelson" This program will convert the fractal 2.1 files (once transfered to prodos) to the Professional File format system used by Dazzle Draw. So now you can view, edit and print your fractals from Dazzle Draw. Dave 10 input "Enter name of fractal to convert ";nm$ 20 print chr$(4);"OPEN ";NM$ 30 PRINT CHR$(4);"READ ";NM$ 40 FOR I=1 TO 9:INPUT LN$:NEXT I 70 X=0:Y=0 80 J=0:T=0:I=0 90 ONERR GOTO 400 100 INPUT LN$ 110 TL=VAL (LN$):CL=1 120 IF (TL<0) THEN CL=0:TL =-TL 220 IF (TL<=0) THEN 100 222 IF (TL >=7) AND (I=0) THEN T=CL*127:TL=TL-7:X=X+7:I=7:GOTO 235 225 T=CL*2^I + T 230 TL=TL - 1:I=I+1:X=X+1 235 IF (X>560) THEN Y=Y+1:X=X-560 237 IF (I<=6) THEN 220 250 GOSUB 300 260 T=0:I=0 280 GOTO 220 300 C=INT (Y/64) 310 D=Y - (C * 64) 320 B=INT (D/8) 330 A=D - (B * 8) 335 Z=INT (X/7) - 1 340 JJ=(1024 * A) + (128 * B) + (40 * C) + 8192 + INT (Z / 2) 350 IF (INT (Z/2) <> Z/2) THEN POKE JJ + 8192,T:GOTO 370 360 POKE JJ,T 370 RETURN 400 PRINT CHR$(4);"BSAVE ";NM$;".PICT,A$2000,L$4000" 410 PRINT CHR$(4);"CLOSE ";NM$