From: eldorado@en.ecn.purdue.edu (David D Jansen)
Newsgroups: comp.binaries.apple2
Subject: fractal 2.1 file format to Dazzle Draw file format converter
Message-ID: <1991Jan21.202413.5451@en.ecn.purdue.edu>
Date: 21 Jan 91 20:24:13 GMT

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

cut here 8<-----------------------------------------

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$
-- 

Just Institutionalized!
_______________________________________________________________________________
Dave Jansen             |  INTERNET:  eldorado@en.ecn.purdue.edu