—
 èA´100:ˆ20:Ž *** MANDALA.BAC *** Ç òPP´3.141592:P1´100¯PP:P2´1:P3´30:P4´0 å üž"     *** MANDALA ***":ž !ž:ž"Hinweise ab Zeile 30000" )!ž:ž:SR$´"Taste":Œ150:Œ210:Œ100 K!Œ600:HO´0:VE´0:CN´1:Œ620:CN´0 c!$HO´0.9999:VE´0:Œ630 €!.HO´0.9999:VE´0.9999:Œ630 ˜!8HO´0:VE´0.9999:Œ630 «!BHO´0:VE´0:Œ630 ¸!LY´0 ¦98 Å!VX´0 ¦98 ë!`AR´P2®((X¬0.01)¯P1)¬P4:FK´1¯Ã(AR) "jHH´·(¸(P3®FK)):CN´HH­2®·(HH¯2) ,"tXZ´X¯200¬0.5:YZ´Y¯200¬0.5 A"~HO´XZ:VE´YZ:Œ620 X"ˆHO´XZ:VE´1­YZ:Œ620 q"’HO´1­XZ:VE´1­YZ:Œ620 ˆ"œHO´1­XZ:VE´YZ:Œ620 "¦‚X ±"°P2´P2­0.01:P3´P3­1:P4´P4¬0.04 ¸"º‚Y Ì"ÄSD´20:Œ450:Œ250 Þ"ÎŠIN$´"" ©1220 ñ"ØŒ210:Œ100:ˆ950 ø"0uŽ  +#:uŽ Das Programm zeichnet ein magisches Auge auf A#DuŽ den Bildschirm. s#NuŽ Variationsmoeglichkeiten ergeben sich durch ª#XuŽ Abaenderung der Zuweisung FK= ... in Zeile 1120. à#buŽ Man experimentiere bevorzugt mit transzendenten ò#luŽ Funktionen. ù#vuŽ  &$€uŽ Laufzeit auf KC compact ca. 27 Minuten -$ŠuŽ  c$”uŽ Das Ende der Berechnung wird durch einen Inter- ”$žuŽ valltan akustisch signalisiert. Durch ein- Æ$¨uŽ maliges Betaetigen einer Taste wird der Ton ö$²uŽ abgeschaltet, die Grafik kann in Ruhe be- )%¼uŽ trachtet werden. Bei nochmaliger Betaetigung Y%ÆuŽ einer Taste wird der Bildschirm geloescht y%ÐuŽ und das Programm beendet. €%äuŽ  ´% }Ž ********************************************* è%
}Ž *                                           * &}Ž *              MANDALA.BAC                  * P&}Ž * Erzeugung von Moireemustern aus           * „&(}Ž * Funktionsscharen                          * ¸&2}Ž *                                           * ì&<}Ž * Heimo Ponnath, Hamburg 1989               *  'F}Ž *                                           * T'P}Ž ********************************************* ˆ'Z}Ž *                                           * ¼'d}Ž * entnommen aus:                            * ð'n}Ž * Ponnath,H.: Grafik - Leckerbissen fuer    * $(x}Ž *             Feinschmecker                 * X(‚}Ž * in: DOS extra 12/90, Seite 135 ff.        * Œ(Œ}Ž *                                           * À(–}Ž ********************************************* ô( }Ž *                                           * ()ª}Ž * Anpassung an Basicode auf KC compact:     * \)´}Ž *                                           * )¾}Ž * Frank Berndt                              * Ä)È}Ž * Rudolf-Hable Str. 5                       * ø)Ò}Ž * O-8106 Radeburg                           * ,*Ü}Ž *                                           * `*æ}Ž * 31.12.1990                                * ”*ð}Ž *                                           * È*ú}Ž ********************************************* ù*~Ž Erstausstrahlung: Deutschlandsender Kultur +~Ž-spezial 910123    * È*ú}Ž ********************************************* ù*~Ž Erstausstrahlung: Deutschlandsender Kultu