eldorado@en.ecn.purdue.edu (David D Jansen) (01/22/91)
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