$%.AMAYXALFM@@B@@@A` B!T Au AU @ Demoprogramm zu "FILL"***************ROLF KILIAN(Oeschwende 1127900 Ulm-Lehr<Tel. 0731/60591F***************POktober 1984Zd<;A3,<Das Hauptprogramm wird in MA$ gespeichertnx: 6-C:,0F:,"A*F:%A2,"Af: A}(>:A%, BITTE WARTENFF*** Zeile 140 kann nach dem 1.fehlerfreien Lauf geloescht werdenY #B!-A%"-6-%1 =BV(FEHLER IN DATAZEILENY #BG-A2"&C:,%* G*** Hauptprogramm einlesen #BFK-@")A6%- K*** Unterprogramme einlesen((*** Pyramiede aus Kreisen zeichnen!6-!+@%@6-@ 6-@0-@0AP@033-Au&'@AE%'@@0, @ A,*** Kreis zeichnen4 ,4*** Ausgangsposition fuer FillL"6-?:C:, Flaeche ganz ausfuellenJ),AuAe)6-?:C:,<AU,T),AEAe)6-?:C:,<AU,^6-@h @ Ar3 ,@PA36-?:C:,<Ap,|),AA)6-?:C:,<Ap, A*** KREIS ZEICHNEN-A`6-%E:,$6-%G:,$", / &$0u<<104,133,105,104,104,133,110,72,162,3,102,92,102,91,1022u==105,202,208,247,162,4,38,105,202,208,251,165,105,133,924u>>133,98,133,103,133,101,165,91,133,97,133,102,133,100,1656u8890,133,96,169,1,133,107,208,71,176,18,169,0,24,1028u==110,106,5,110,133,110,230,96,165,96,201,192,208,234,104:u==133,110,165,92,133,98,133,103,133,101,165,91,133,97,133u66240,17,198,96,169,0,6,110,42,5,110,133,110,208,5@u44176,2,144,233,96,32,0,6,166,98,32,54,6,133,104Bu88164,97,49,108,162,0,42,176,28,232,224,8,208,248,32Du8839,6,192,39,240,30,200,177,108,208,234,32,39,6,208Fu<<242,165,107,208,140,240,204,196,97,208,4,228,98,240,65Hu4432,70,6,32,41,6,134,101,132,100,166,98,32,70,6Ju;;133,104,164,97,49,108,162,8,106,202,176,19,208,250,32Lu7739,6,192,0,240,16,136,177,108,208,236,32,39,6,208Nu88242,32,54,6,32,41,6,134,103,132,102,24,232,208,182Pu::56,176,250,144,141,224,7,240,6,42,232,144,17,176,246Ru>>196,100,176,26,192,39,240,22,200,177,108,162,255,208,231Tu::196,100,208,4,228,101,176,7,132,97,134,98,24,144,214Vu77166,98,32,54,6,164,97,17,108,162,8,106,202,144,16Xu>>208,250,192,0,240,190,136,196,102,144,185,177,108,56,176Zu==234,196,102,208,6,228,103,240,172,144,170,132,97,134,98\u24,144,166^u88165,96,133,105,169,0,133,108,162,8,70,105,144,3,24`u>>105,40,106,102,108,202,208,243,133,109,24,165,108,101,88bu==133,108,165,109,101,89,133,109,96,169,255,37,104,37,110du;;17,108,145,108,169,255,133,104,96,169,255,224,0,240,9fu;;134,105,24,106,202,208,251,166,105,96,169,0,224,0,240hu//249,134,105,56,106,202,208,251,166,105,96 D2:FILL.BAShihhnHf\f[fi