1 REM Ins{nd av Peter Th{rning <3707>    1987-03-15 15.46.39 (DUMP)
10 REM +++++++++++++++++++++++++++++++++
20 REM ! Program ....   MANDEL
30 REM ! Utg}va  1.0    870314
40 REM ! av (c) Peter Th{rning <3707>
50 REM ! Minne 16 Kbytes, 80 tecken
60 REM ! Ins{nt av Peter Th{rning
70 REM +++++++++++++++++++++++++++++++++
80 REM 
90 GOTO 230 : REM Hoppa |ver programmet
100 REM 
110 ; CHR$(12%); : FOR I%=0% TO 23% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
120 FOR R0=-1.575 TO .625 STEP .030556 : FOR I0=-1 TO 1 STEP .012739
130 R=R0 : I=I0
140 X%=INT(32.2727*(R0+1.575)+.5) : Y%=INT(78.5*(I0+1%)+.5)+2%
150 FOR F%=1% TO 20%
160 IF SQR(R*R+I*I)>=2% SETDOT X%,Y% : GOTO 190 : REM Utanf|r Mandelbrot
170 R1=R : R=R*R-I*I+R0 : I=2*R1*I+I0 : NEXT F%
180 REM Clrdot x%,y% - Innanf|r Mandelbrot
190 NEXT I0 : NEXT R0
200 GOTO 200
210 REM 
220 REM 
230 ONERRORGOTO 230 : RESTORE 
240 ; : FOR R%=0% TO 23% : READ A$,B$ : ; CHR$(151%)A$B$; : NEXT R%
250 IF INP(56%)>128% 240 ELSE 250
260 DATA ""
270 DATA "|5"
280 DATA ""
290 DATA ",5"
300 DATA "7#!"
310 DATA " ""#k5"
320 DATA ";o?/%  "
330 DATA "   */o?g5"
340 DATA "og+#""'!      "
350 DATA "       ""+!#';?5"
360 DATA "|$         "
370 DATA "          (|5"
380 DATA "~sp          "
390 DATA "           ps}5"
400 DATA "}w          "
410 DATA "           {~5"
420 DATA "}|p0     "
430 DATA "      `p|~5"
440 DATA "/?'/'#####      "
450 DATA "       #####+/+o/5"
460 DATA "w?o}0 ""!              "
470 DATA "               ""! `~?o5"
480 DATA "}qt## ##                   "
490 DATA "                    ## ##xr5"
500 DATA "//'#                      "
510 DATA "                       #+//5"
520 DATA "-$                        "
530 DATA "                         (.5"
540 DATA "{r##!##+%                         "
550 DATA "                          *'##""##qw5"
560 DATA "?/'#!                                "
570 DATA "                                 ""#+/o5"
580 DATA "w}|t0   `p0                         "
590 DATA "                          `p0   `x|~1"
600 DATA "~~}u                         "
610 DATA "                          z~}}5"
620 DATA "ws0p                       "
630 DATA "                        p`s{5"
640 DATA "o?,                     "
650 DATA "                      ,o?5"
660 DATA "o}10p xt `             p|"
670 DATA "|p             0 xt p`b~?5"
680 DATA "?d`z|<px|t~"
690 DATA "}x|tpl|u08o5"
700 DATA ""
710 DATA "5"
720 DATA "///////////////////////////////////////"
730 DATA "///////////////////////////////////////"
740 REM 
750 REM 
760 REM 
770 DATA "                                x/h$ "
780 DATA "   4/t                                "
790 DATA "                      (<,$,||||??/j00"
800 DATA " ``5/oo||||,(,l$                      "
810 DATA "                       ""+j+/+'*""!    "
820 DATA "     ""!!+//'5'!                       "
830 DATA "                         k~-0         "
840 DATA "          `&|7                         "
850 DATA "                        xo??%0         "
860 DATA "          `*o?t                        "
870 DATA "                        #o}t5$         "
880 DATA "           jx~?#                        "
890 DATA "                         j}t0         "
900 DATA "          `x~5                         "
910 DATA "                         x}w8       "
920 DATA "        d{~t                         "
930 DATA "                     ppx~?//w "")$(  "
940 DATA "   $(&! {///}tpp                     "
950 DATA "                  p|ks?'0("" !         "
960 DATA "          "" ! h+ow'|p                  "
970 DATA "            x?/k??o9$ !              "
980 DATA "               ""  f?/o7/o|            "
990 DATA "           hwq;%!""""(!                  "
1000 DATA "                   ""$ !""*gr{4           "
1010 DATA "           `o71%                     "
1020 DATA "                      *bk?0           "
1030 DATA "          p~x'#                       "
1040 DATA "                        !+t}p          "
1050 DATA "    p|g?/v(                        "
1060 DATA "                         $y/o;|p    "
1070 DATA "ppp|=n""!!"" )(                         "
1080 DATA "                          $"" !""""!-n|pp0"
1090 DATA "wo-( !                                "
1100 DATA "                                 "" $.?5"
1110 DATA "7||}z`   00l                         "
1120 DATA "                          4``    t~||!"
1130 DATA "#   ""/iz}t|~u0                        "
1140 DATA "                         `z}~|~t6/!   !"
1150 DATA "          ""k=%$                       "
1160 DATA "                        (*n7!          "
1170 DATA "            +o}|!0                     "
1180 DATA "                       ""|~?'            "
1190 DATA "              ?'!                     "
1200 DATA "                      ""oo              "
1210 DATA "            pxo}`` 8xt8              h|"
1220 DATA "|4              dxtd 08~?tp            "
1230 DATA "            #""+u-/'###/ut0m|x0 |t=-## "
1240 DATA "  ##.ox|$`t|?`xz/###+/.z'!#           "