26) HEX MANDELBROT (285 B)
To use: LOAD 11, RUN 700

710 REM
720 REM HEX MANDELBROT
730 REM
740 LET S=1024
750 LET U=100
760 LET V=85
770 LET H=4*S
780 FOR Y=-11 TO 12
790 LET D=Y*V
800 FOR X=-20 TO 11
810 LET C=X*U
820 LET A=C
830 LET B=D
840 FOR I=0 TO 15
850 LET E=A*A/S
860 LET F=B*B/S
870 LET T=E-F+C
880 LET G=A*B/S
890 LET B=G+G+D
900 LET A=T
910 IF (A*A/S+B*B/S)>H THEN GOTO 950
920 NEXT I
930 PRINT " ";
940 GOTO 960
950 PRINT CHR$(28+I);
960 NEXT X
970 PRINT
980 NEXT Y
990 IF INKEY$="" THEN GOTO 990
1000 STOP