@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }`488HIHFILPMPDLDGRGDVBIDVBDVBIEDLDLIECOL1COL3ROUTROUMALELINIKASTERECHTECCOMCPLMCPLDRO*}TFCOL2ICOLANANEENB2VAVB6AiADBhdA%B A( B'h A&+} B"V A9A!A8ADAEABr@A@@B,}A !B`("A0v#@$%@7&A'@P(AB7t@d-}'@@d9B7t@dK@]@@9oAR@F:@,"*F:@,".}@AY @0 y +B7t@d1@@dCB7t@dUAR@gA/}AdyA @ -@6(Das dauert so seine Zeit ...HA @e-@60}@2A!@ -@!  <-@6@`2AD@@1}%tAA`%A @%-@   vA2-@ 6@2}N2AD@ZA n-@r v AY/ #@ !-A6Ae%"3}+/ xAfF:@ ,-AgF:@,BAhF:@,T@ @f@x@@4}ff169,169,72,169,121,72,169,183,72,169,84,72,173,30,6,201,2,208,3,108,31,6,201,1,208,3,108,12,0,96k6-AV65}-$AV/A;6-AikF:A,"A$*F:A,"@@/ #@0!-AiA%"6}+/  ]]104,104,133,204,104,133,203,104,133,206,104,133,205,230,205,208,2,230,206,104,104,160,0!VV145,203,230,2037},208,2,230,204,166,203,228,205,208,242,166,204,228,206,208,236,96"%-AA"!% #0,160,0,160,0(;8}6-AD6-$AV)BBy;A#@)M(6-?:<%Ah<%A5<,M6-?:<%A6<%A G<9}AU,*oB2w@'A9AKB2X@]B2Y@oB2`AU++:}-%A%A'AU+ 2N6-A%6-$AV)6-A(76-$AVNF:%AR,@`3Q #@P;}-%@!"'+ Q32,66,64,156,2,2,2,2,240,0,78,0,1284((6-?:<%@<%A9<@,5N-%A@<}%AR"%) N112,0,66,16,159,2,2,2,2,2,65,0,125<L6-A&6-$AV)6-A95LF:%A=}D,@=O #@`-%AD!"'+ =A@XOA@c>qq120,238,192,2,160,0,140,24>},208,140,26,208,169,15,141,23,208,165,77,16,3,140,0,212,173,120,2,174,203,6,208,2?kk169,15,201,15,208,7,169,128,141,84,6,4?}8,25,132,77,174,84,6,16,7,162,10,142,84,6,208,11,206,84,6,240,3@hh76,195,126,238,84,6,170,165,203,72,165,204,72,173,77,6,1@}33,203,169,148,133,204,169,0,160,4,145,203ANN136,16,251,138,74,176,15,206,77,6,174,77,6,224,57,208,5,162,241,142,77,6B??A}74,176,15,238,77,6,174,77,6,224,242,208,5,162,58,142,77,6C??74,176,15,206,78,6,174,78,6,224,62,208,5,162,190,142,78,6D?B}?74,176,15,238,78,6,174,78,6,224,191,208,5,162,63,142,78,6E//173,78,6,141,0,208,173,77,6,133,203,160,4F99185,79,6,145,C}203,136,16,248,104,133,204,104,133,203Gnn56,173,78,6,233,63,141,215,6,173,77,6,233,58,141,216,6,174,216,6,16,12,162,3,169,D}0,157,18,208,202,16,250Hcc48,24,189,0,144,141,18,208,189,128,144,141,19,208,189,0,145,141,20,208,189,128,145,141,21,208IE}nn173,216,6,16,23,169,13,141,232,156,141,233,156,141,234,156,141,236,156,141,237,156,141,238,156,76,98,228JBB32,65,127,14F}2,236,156,32,77,127,142,237,156,9,16,141,238,156KLL173,215,6,32,65,127,142,232,156,32,77,127,142,233,156,9,16,141,234,156G}L76,98,228M11162,16,201,100,144,5,233,100,232,208,247,96N//162,16,201,10,144,5,233,10,232,208,247,96PV6-A!H}6-A8'@36-AD?6-AEVF:%A,@Q+ #@-%A!"'+ R006-?:I}<$AV<$AV%A'<@@,S886-?:<$AV%A(<$AV%AU<A,T006-?:<$AV<$AV%J}A'<AH,U886-?:<$AV%A(<$AV%AU<,Vff72,138,72,152,72,173,202,6,240,99,165,66,208,95K},173,192,2,141,18,208,169,0,141,20,208,141,21,208Wvv169,32,141,2,208,169,192,141,3,208,169,61,141,0,212,162,0,189,0,144,18L}8,128,144,141,10,212,141,22,208,140,23,208Xll189,0,145,141,24,208,189,128,145,141,26,208,232,16,226,169,0,141,10,212,141,2M}6,208,141,2,208,141,3,208Yee169,62,141,0,212,173,197,2,141,23,208,173,198,2,141,24,208,76,98,228,169,0,141,23,208,76,98,22N}8Z46-A6-$AV4F:%A,A [+ #@-%A!"'+ \XX169,192,141,207,6,169,0O},141,209,6,152,41,127,141,208,6,141,205,6,160,5,14,208,6,46]ZZ209,6,136,208,247,138,41,127,141,204,6,170,41,3,141,210,6,16P}8,138,74,74,24,109,208,6^YY141,208,6,173,209,6,105,128,141,209,6,136,48,8,78,207,6,78,207,6,144,245,96,173,217_ZZ6,208,Q}16,32,108,112,177,203,77,206,6,45,207,6,81,203,145,203,96,32,108,112,173,206,6`\\45,207,6,81,203,145,203,96,173,208,6,133,R}203,173,209,6,133,204,160,0,96,32,108,112,177aUU203,45,207,6,168,173,210,6,41,3,73,3,170,152,202,48,4,74,74,144,249,96,32,S}0,112bYY76,73,112,32,0,112,76,121,112,138,41,127,72,56,237,204,6,141,213,6,176,4,73,255,105cYY1,141,211,6,141,214,6,104T},141,204,6,152,41,127,72,24,237,205,6,144,4,73,255,105,254dXX141,212,6,110,213,6,56,237,211,6,170,104,141,205,6,169,0,141,U}222,6,240,5,10,32,120eXX113,56,173,214,6,109,212,6,141,214,6,173,222,6,240,3,32,73,112,169,1,141,222,6,232f[[208,1,96,1V}73,213,6,176,220,32,124,113,24,173,214,6,109,211,6,141,214,6,76,236,112,238gWW210,6,78,207,6,78,207,6,144,24,169,192,141,2W}07,6,169,0,141,210,6,24,173,208,6,105hUU1,141,208,6,144,3,238,209,6,96,206,210,6,14,207,6,14,207,6,144,24,169,3,141,207iX}TT6,169,3,141,210,6,56,173,208,6,233,1,141,208,6,176,3,206,209,6,96,56,173,208,6jWW233,32,141,208,6,176,3,206,209,6,96,24Y},173,208,6,105,32,141,208,6,144,3,238,209,6kXX96,16,152,48,186,16,220,48,233,32,18,113,238,204,6,96,32,54,113,206,204,6,96Z},32,90lYY113,206,205,6,96,32,105,113,238,205,6,96,104,169,0,141,217,6,174,215,6,172,216,6,16mYY1,96,173,132,2,208,242,1[}41,203,6,142,218,6,140,219,6,32,147,112,169,1,141,203,6,174n]]215,6,236,218,6,208,217,172,216,6,204,219,6,208,209,240,238,\}104,169,1,141,217,6,174,215oYY6,172,216,6,16,1,96,173,132,2,208,242,173,132,2,240,251,142,220,6,140,221,6,142,218pZZ6,1]}40,219,6,32,158,114,174,215,6,236,220,6,208,26,172,216,6,204,221,6,208,18,173,132q]]2,208,235,141,217,6,32,158,114,173,132^},2,240,251,208,183,32,158,114,174,215,6,172,216,6rZZ142,220,6,140,221,6,16,1,96,32,158,114,76,251,113,174,220,6,172,221,6,_}32,147,112,174sXX218,6,172,219,6,76,159,112,174,220,6,172,221,6,32,0,112,174,220,6,172,219,6,32,159t[[112,174,218,6,172`},219,6,32,159,112,174,218,6,172,221,6,32,159,112,174,220,6,172,221,6u^^76,159,112,172,221,6,152,72,174,220,6,32,147,112,10a}4,72,168,174,218,6,32,159,112,104,168vXX204,219,6,208,1,96,173,219,6,205,221,6,144,3,200,16,220,136,16,217,173,223,6,240,3b}wGG76,53,114,173,224,6,240,3,76,71,114,173,225,6,240,3,76,116,114,96x46-A6-$AV4F:%A,A0yc}+ #A -%A!"'+ zXX104,169,7,141,82,3,169,0,141,88,3,141,89,3,141,205,6,141,218,6,141,217,6,141,2d}19,6{169,4,141,204,6|ZZ162,16,32,86,228,141,220,6,174,219,6,240,12,238,204,6,238,204,6,238,204,6,76,167,111}mm41,1e}92,141,221,6,74,74,13,221,6,141,221,6,74,74,74,74,13,221,6,141,206,6,174,204,6,172,205,6,32,147,112~aa173,220,6,41,48,141,f}221,6,10,10,13,221,6,141,221,6,74,74,74,74,13,221,6,141,206,6,238,204,6VV174,204,6,172,205,6,32,147,112,173,220,6,41,3,14g}1,221,6,10,10,13,221,6,141,221,6WW10,10,10,10,13,221,6,141,206,6,238,204,6,174,204,6,172,205,6,32,147,112,238,204,6QQh}173,204,6,201,124,240,3,76,31,111,173,219,6,240,8,206,205,6,169,0,141,219,6QQ206,218,6,16,10,169,2,141,218,6,169,1,141,21i}9,6,238,205,6,48,3,76,26,111,96WBB'AH3AIEA@WA@Ej}A`!Aa3A@EA @T.(&} Dr. XL's genialer T(! (c) 1k}985 by Olaf PaelchenOO(G X - Y - F1- F2- F3- F4 B'd B'Yl} B'c ;@, 6-C:hLV,9AY'A`9AaoBBAm}'AY@b9B2RAKB2SA2]B2TAHoB2UAd@ 6-?:Bn}, ADAY@(6-?:B9,:AYD ADA`@(6-?:B9,:Ao}`D ADAa@(6-?:B9,:AaD A06-?:B,!6-?:B9,0p}6-?:B,EF:B2y,"@E6-?:<$AV<$AV%A@<, F:B2y,@A@q}A'B7tA9AR@KBB]AH@oAIA(BB@d4 +r}!-B2HB2U-1 4LAAM(T:,ANV%2s}:F:AR, A(LA@V AOT:,AVC6-F:AR,!6-F:AQ,C2@`t}@@`!ADA0a# @0 B'd# Ab# @b B'e# Ac# @u} B'f# Ad B'g Aj!ARA@k# @( B'c# Al# @V B'bv}# Am# @ B'a# An B'` At!A`A0u# @B B'P# Aw}v# @p B'# Aw B' A|%6-%(T:,B&o)++&@,$Ax}(%$AV%,;-@"D( R(T:,d-@"l( o$,6-R:,"@,6-y}%@"@6-&@"@6-&@"@6-%@!AU6-&AVz} 6-%AV B&(T:,B&'6-F:AR,'T:,B&$y-{}@ (2AA2D-@@W(Anfangszeile ?y2` B&6|}-%-@@8(Anfangsfarbe ?DN B&T6-`@u-@@(( Endzeile ? 2 B}}&86-J-@@Y( Endfarbe ?eo B&u6-hA @6-#-J+&@,$A(~}%$AV%P:,d6-%+&%@,'+&,h q@!-@,(>AAH B'dR }B'c\ B'YnA @q$-@ (2A@RD-@@W(Bild loeschen?}i-@ @!p(JA-@(@!(NEIN;%2;(T:,B''6-F:AQ},'T:,B'^%2@`@@1 @d^6-?:<$AV<$AV%A@<,}A @'-@2(DAAN B'cX B'db B'YtA @2}$p-@!4(Ausgabe-Geraet/Dateiname V2Zd B'"p}37@<@,0:*7@<@,0:= B'#W-B:,@6@w67%@<%@,.7}<,{ 67@<@,.D: B'#*@@<AP@NARZASl}AV~AW@6-?:,$p-@!4(Eingabe-Geraet/Dateiname V2}Zd B'2p37@<@,0:*7@<@,0:= B'9W-B:,@6@w}67%@<%@,.7<,{ 67@<@,.D:` B'9*@@W6-?:<$AV<$A}V%A@<,`6-?:,I B'7)@I6-?:<$AV%A(<$AV%AU<,7)@76-}?:<$AV<$AV%A'<,?)@?6-?:<$AV%A(<$AV%AU<,A)@76-?:<$}AV<$AV%A'<,A B'9e06-?:<$AV<$AV%A'<@@,e6-?:<$AV%A(<$AV%A}U<A,e06-?:<$AV<$AV%A'<AH,e6-?:<$AV%A(<$AV%AU<,$p}-@!4(Eingabe-Geraet/Dateiname V2Zd B'Bp37@<@},0:*7@<@,0:= B'CW-B:,@6@w67%@<%@,.7<,{ 67@<@},.D: B'C*@@<AP@NARZASlAV~AW}@6-?:,$-@ (2A@hD-@@f(laden--laden [MIC]--speichern}2(T:,B'Q'6-F:AQ,'T:,B'R7%2@`@}@7AR# @( B'@# B'W# @ B'0# B'W B' [@} AR@2-@=(G B'YQ B'c[ B'd$AA!@$$<-@}@ 9(Peripherie-Farben-Bild loeschen<$k6-6-'6-36-@E-@@h(Male}n--Linie--Kasten--k$k6-6-'6-@36-E-@@h(Malen--Linie----}Rechteckk$k6-6-@'6-36-E-@@h(Malen----Kasten--Rechteckk$k6}-@6-'6-36-E-@@h(--Linie--Kasten--Rechteckk$_6-@!AB}@3-@@W(報-Farbe 2-Farbe 3-Farbe 4Z$_C1_6-@!ABAp3-@@W(}Farbe 1-堲-Farbe 3-Farbe 4Z$_C2_6-@!ABAU3-@@W(Farbe 1-Farbe 2-堳-Farbe} 4Z$_C3_6-@!AB3-@@W(Farbe 1-Farbe 2-Farbe 3-場Z$_C4D:FAR*.*D:D}@++D:D@+B2U@場Z$_C4D:FAR*.*D:D]p  !"`3!3 03 0< }330? 00 0 }30 <??<><0  < }>< 00?<00 < }?0 @?<?<U??  }?Q0 ?<0:< :3 }< 0 }0:UUUP:(((88HHHXXhhhxx }6666666666666(((((((((((((((( }((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( } } l0 POKE 53774,64:POKE 16,64:POKE 53774,64:POKE 82,0:POKE 83,39:POKE 752,1:IF PEEK(2)=0 AND PEEK(3)=6 THEN POKE 559,0:GOTO 301}0 GRAPHICS 0:POKE 53774,64:POKE 16,64:POKE 53774,64:POKE 752,1:POKE 710,164:POKE 709,411 POSITION 0,11:? "Das dauert so sein}e Zeit ...":POKE 709,14:FOR Q=10 TO 0 STEP -1:SOUND 0,121,10,Q12 FOR W=0 TO 21:NEXT W:NEXT Q:FOR Q=4 TO 0 STEP -1:SOUND 0,14}4,10,10+Q:POKE 710,160+Q:POKE 709,10+Q:FOR W=0 TO 11:NEXT W:NEXT Q13 POKE 710,0:FOR Q=9 TO 0 STEP -1:SOUND 0,144,10,Q:POKE 7}09,Q:FOR W=0 TO 11:NEXT W:NEXT Q14 POKE 559,020 RESTORE 20:FOR Q=1536 TO 1565:READ W:POKE Q,W:NEXT Q21 POKE 1566,PEEK(9):P}OKE 1567,PEEK(2):POKE 1568,PEEK(3):POKE 9,2:POKE 2,0:POKE 3,622 DATA 169,169,72,169,121,72,169,183,72,169,84,72,173,30,6,201},2,208,3,108,31,6,201,1,208,3,108,12,0,9630 HIP=156:HI=HIP*256:POKE 708,0:FILL=1569:IF PEEK(1618)=224 AND PEEK(1619)=0 THEN }4031 RESTORE 30:FOR Q=1569 TO 1612:READ W:POKE Q,W:NEXT Q32 DATA 104,104,133,204,104,133,203,104,133,206,104,133,205,230,20}5,208,2,230,206,104,104,160,033 DATA 145,203,230,203,208,2,230,204,166,203,228,205,208,242,166,204,228,206,208,236,9634 FOR} Q=1615 TO 1619:READ W:POKE Q,W:NEXT Q35 DATA 0,160,0,160,040 PMP=144:PM=PMP*256:POKE 54279,PMP:POKE 623,141 Q=USR(FILL,PM}+768,PM+1535,0):Q=USR(FILL,PM+1536,PM+2047,255)42 POKE 53277,3:POKE 706,0:POKE 707,0:POKE 53258,3:POKE 53259,3:POKE 53260,25}543 FOR Q=PM+812 TO PM+819:POKE Q,255:NEXT Q50 DLP=125:DL=DLP*256:GRP=128:GR=GRP*256:IF PEEK(DL+152) THEN 6051 RESTORE 50:}FOR Q=DL TO DL+12:READ W:POKE Q,W:NEXT Q:DATA 32,66,64,156,2,2,2,2,240,0,78,0,12852 Q=USR(FILL,DL+13,DL+139,14)53 FOR Q=DL+}140 TO DL+152:READ W:POKE Q,W:NEXT Q:DATA 112,0,66,16,159,2,2,2,2,2,65,0,12560 DVBIP=126:DVBI=DVBIP*256:DVBIEN=1739:POKE DVB}IEN,0:IF PEEK(DVBI+344) THEN 8061 RESTORE 60:FOR Q=DVBI TO DVBI+344:READ W:POKE Q,W:NEXT Q:POKE 1613,58:POKE 1614,6362 DATA} 120,238,192,2,160,0,140,24,208,140,26,208,169,15,141,23,208,165,77,16,3,140,0,212,173,120,2,174,203,6,208,263 DATA 169,15,2}01,15,208,7,169,128,141,84,6,48,25,132,77,174,84,6,16,7,162,10,142,84,6,208,11,206,84,6,240,364 DATA 76,195,126,238,84,6,170},165,203,72,165,204,72,173,77,6,133,203,169,148,133,204,169,0,160,4,145,20365 DATA 136,16,251,138,74,176,15,206,77,6,174,77,}6,224,57,208,5,162,241,142,77,666 DATA 74,176,15,238,77,6,174,77,6,224,242,208,5,162,58,142,77,667 DATA 74,176,15,206,78,6,}174,78,6,224,62,208,5,162,190,142,78,668 DATA 74,176,15,238,78,6,174,78,6,224,191,208,5,162,63,142,78,669 DATA 173,78,6,141},0,208,173,77,6,133,203,160,470 DATA 185,79,6,145,203,136,16,248,104,133,204,104,133,20371 DATA 56,173,78,6,233,63,141,215,}6,173,77,6,233,58,141,216,6,174,216,6,16,12,162,3,169,0,157,18,208,202,16,25072 DATA 48,24,189,0,144,141,18,208,189,128,144,}141,19,208,189,0,145,141,20,208,189,128,145,141,21,20873 DATA 173,216,6,16,23,169,13,141,232,156,141,233,156,141,234,156,141},236,156,141,237,156,141,238,156,76,98,22874 DATA 32,65,127,142,236,156,32,77,127,142,237,156,9,16,141,238,15675 DATA 173,2}15,6,32,65,127,142,232,156,32,77,127,142,233,156,9,16,141,234,15676 DATA 76,98,22877 DATA 162,16,201,100,144,5,233,100,232,}208,247,9678 DATA 162,16,201,10,144,5,233,10,232,208,247,9680 DLI=1621:DLIEN=1738:POKE DLIEN,1:COL1P=144:COL3P=145:IF PEEK(}DLI+116) THEN 9081 RESTORE 80:FOR Q=DLI TO DLI+116:READ W:POKE Q,W:NEXT Q82 Q=USR(FILL,COL1P*256,COL1P*256+127,40)83 Q=USR}(FILL,COL1P*256+128,COL1P*256+255,202)84 Q=USR(FILL,COL3P*256,COL3P*256+127,148)85 Q=USR(FILL,COL3P*256+128,COL3P*256+255,0})86 DATA 72,138,72,152,72,173,202,6,240,99,165,66,208,95,173,192,2,141,18,208,169,0,141,20,208,141,21,20887 DATA 169,32,141},2,208,169,192,141,3,208,169,61,141,0,212,162,0,189,0,144,188,128,144,141,10,212,141,22,208,140,23,20888 DATA 189,0,145,141,}24,208,189,128,145,141,26,208,232,16,226,169,0,141,10,212,141,26,208,141,2,208,141,3,20889 DATA 169,62,141,0,212,173,197,2,1}41,23,208,173,198,2,141,24,208,76,98,228,169,0,141,23,208,76,98,22890 ROUTP=112:ROUT=ROUTP*256:IF PEEK(ROUT+694) THEN 12091} RESTORE 90:FOR Q=ROUT TO ROUT+694:READ W:POKE Q,W:NEXT Q92 DATA 169,192,141,207,6,169,0,141,209,6,152,41,127,141,208,6,141,}205,6,160,5,14,208,6,4693 DATA 209,6,136,208,247,138,41,127,141,204,6,170,41,3,141,210,6,168,138,74,74,24,109,208,694 DATA }141,208,6,173,209,6,105,128,141,209,6,136,48,8,78,207,6,78,207,6,144,245,96,173,21795 DATA 6,208,16,32,108,112,177,203,77,20}6,6,45,207,6,81,203,145,203,96,32,108,112,173,206,696 DATA 45,207,6,81,203,145,203,96,173,208,6,133,203,173,209,6,133,204,16}0,0,96,32,108,112,17797 DATA 203,45,207,6,168,173,210,6,41,3,73,3,170,152,202,48,4,74,74,144,249,96,32,0,11298 DATA 76,73,1}???|??<@ꪪ77=\u]]@Wu]}:Wu]U:W]]u]__:ww]}]:Uu]UUu}]_u:?]]Uu]_U:>:::>::}??::}WUw7:\_ꪪ:_p7*::}WUsw?:>3_}wUw:::30}\Uu\:?:3????} UW5U|5p?? UWUT p5UUspp}? 5UUspsp p 35UUsp_\  3UUsp_\  UUsp}5<UUsp5?UUsp??? UW sp5???< U\1}\5uW?? uWU\1\5uW?? UWU\ \5MW?? U_\U\\5MW?? W}\WCW? W\WCW?WWO??5WWUϫ:5|<0}5WW U:7]5WW U:75WU5W5:5]5WUW5:?5}=UUU\55] UUU\?7] UUUpz???Up U:5pU\ U};5pU\ U: pU\5U;7 pU\5U?3?7 pU\5U}5pU\5W??5UpU5W3; UU_W0; sW}:U ?@W>?0U8\L<?TUp3<}WU@?_T?_\ ?U @} ?5UD@ ʳ?5PUD+5U_,UET} ?UQW 2?UUW8UUW<UU}]>W?EUUQ\UW ;EUUP0U}0UUUW0UUU000UUP000}Uj20U*20UT000UT000}S*00(00*(00**(00} *(00*00000}:*0:<*"00<00<0}?0<0?0 } VdefgijklnnmlkjihgfW }ʸJ*:JZjzK>>>>>>>>>>>>>>>>>>>??????????????????? }   }    l}___}___U_}UU/U]UwUUUWUU}WWUWUUUW_UUUUUUuUUUU_UUUUUWu]UUU~}UUUUuuUUuUWUUp"UUUUUuUUUUUUUUUU_UU_UUUUUYUUUuUUUWUUUU}U0UUUUUUUUWUWU?UUUUUWUUWUUUp U]UUUUU_UWUUUWUU/UUUUUUUWUUUU]UU}U UUUUUUUUUUUUUUUUUUUA UUUUUUUUUUUUUUUUUUUB UUUUUUUUUUUUUUUUUUUB} UUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUPBWZUUUUUUUUUUUUUUUUT¥UUUUUUUUUj,UUUUUUUUUUUUUUUVYO2UUUUU}UUUUV#ŖUUUUUUUUUUUUUUT#RUUUUUUUUUUU'UUUUUUUUUUUUUUT,5RUUUUUUUUUUU%pUUUUUUUUUUUUUUT UTUUUUUUUUUT%UUUUUUUUUUUUUUUTUTUU}UUUUUUUTU@UUUUUUUUUUUUUUTUUTUUUUUUUUUTUTUUUUUUUUUUUUUUTUUTUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU }UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUYUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"UUUUUUUUUUUUUUWpU|T$ UUUUU!}pUpU_%P, UUUUUp|UW@pUUUUp|UW@p/UUUU||UU\UUU"}U|pUU\?UUUU|pW%Up\_UUUU|W%U|\WUUUU|WU|\W#}UUUU|UWU_\WUUUU|U_U\UUUUU|U_U\UUUUU| U_U\UW$} UUUU| U_U U\UW UUUU|U_UU\EW5UUUU|U\UU\WUUUU|U\U\W%}UUUU|\U\W/UUUUU|\U\WUUUUU|\U\WUUUUU|p\\&}WUUUUU|p_\W UUUUU| pWW0UUUUU|pWW0UUUUU| p'}W<UUUUU| | u[<UUUUU|_ U[<UUUU|%_ USUUUU|(}W USUUUU| U UCUUUU|?U UKUUUU|?U UCUUUU|U)}<UUUUU|U< UUUUp pUUUUp pUUUU@p*}P|UUU@< @|UUW_UUW=W_UUUUUUU+}UUUUUUUU_UUUUUUUUUUUUUUUUUUUUUUUUUUUUUU_UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU,}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU-}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU.} /}0}1} l3}4}5}6}<pU\=U_<UWp7}7p=|7p7p||T5p7p?5p7p8}?=7pp7p77 7\p7p p7p7p P7p7?p9}p@7?p7Up5UpUUWp @7p7p7P| ?7p7p7\77pp7p7:}?7p7p777p7p754<U| 7p7p7 4< 7p7p;}7@4<7 p7p7@775w @p7p7@4 wpp7p7 wp7<}p73wp7p7 wp7p7_4w5p7p7wp7=}UWzUUUUڪWwUUzz?Utڪ wzz7ڪ4w Uzz7ڪw >}z7jڪ3wꪷz7ڪwzz7ڪ wڪz7pڪ =w?}ުz77P:7z7?>ߪz7 >U~ z76z@} jz7z7zz7~7z7߯@ ꪪ7z77p A}7777=7P7 7p77B}7w7577577?p\777C}7\W\77 UU7UUUW5U UT=UW5U??D}E}F}G}H}UUUUUUUUUUUUUUUUUUUUUUUUUUI}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 0 T0T@ECUUUUUUUUUUUUJ}L0UUUUUUUUUUUUUUTP\PUUUUUUUUUUUUU AUUUUUUUUUUUU Q@0K}UUUUUUU@4 QPU@0UUUUUUTA@UUT UUUUUUUP 0UUUTEL}TPUUUUUUUT0EUUUT @UUUTUUTUUU@UP UT@TM}UUUUTPUT UUUT0UAUU@UUUPTUUAU@UUU@PE@QUUN}Q@UUPPTUUTUUUC@EAUUUPTUUUUUPCPUO}UUUUPPTTPUUDUPU@PU@UUTPUUUUU@0U0TP}0TUPUTUU@@QUUUPUPPPTU@UTUPAPUTUUPQ}@PTPUPEU@UTU0UU@@UT<T<U@UU@@AR}DTTATWP@AP U@@AQDDDDDDDDDDDDDDDDDD<;;::998866S}6666667777777D6666666666666666666666666DŰT} U} V}l 0 *wUhUUV UUUU!X}UUUU-UUUUV/uUUUUYUUUUUU!Y}@UUUUUUUUUUUUUUUUU` }UUU!Z}UUU` ުUUh/UUUYUUh0/VUUhW![}UUh[UZYUZYUj!\}UUjfUZ˯jUZ ej!]}ef eZ 类eeZ eef !^},feY ,ꪪfeV ,feV* ,fUY* !_} 0eY**0 eV (  Y * * V * !`} * * V ( ( *:ꪽY " * ( 0+ֿ^Y"" 0/՞UV !a} 0/eUV*" 0eyY "0Yf  0UgUZ!b} 0UYUZ"1YUiUf" (U_޶UY}f (  UUUfYj!c}*UiUUUY_U* UV_UUfUZ UUWUUVeUVU (UUUViU!d} " UU]UUUUUUVU)UUWUUUUUUiU UiUWUUUUYU UiUUYZUU!e}UUYU-UZYUVYZUUZVV "*%UZUVVUZ*%VZUZUUUiUZUZU!f}UUUZVeZUZUUUUUYYՕVUZUUUUVffjUh*  UjU^UUUUUVeh( IUU!g}^ՕUUUUUeVUX " VJVUfyUUUYUUZ " VJZUgUUZUUUU:UjjUezWUUeUUUUU`:-j!q}b%DOS SYSbs)DUP SYSbAUTORUN SYS%ADLER FBDkKAISER FBD%SPYVSSPYFBD% KAISER2 FBD%2TRON FBD%WASTRONAUFBD%KORONIS FBD%LAPISAGRFBDB%ART PICB%:XXX FBDUjUzWUUUUUUU`/:-jVjjVUUUUUUP?/ijYjUUUUUUUX*%ZUZuVzUUUUUUUZZ&!r}VU[}[zUUUUUUVX*_iUUmUgU[UUUUUY("WUVեUUWUUUUY"UU^jeUUUUUef(!s}oVUjVYmUUUUf**kYzVUi[UWiVU*jZ~VUViVU^U 猪VUYU}_UVZ!t} `WUUVjeUUU ZWUUVjUU^UUiZ؂UUUYUVfkUU Z"jYUUUUUffUUU !u} j ZYUUVjUViZUUZ j" UYUUViUZieUU/ UYUUUUYeeU" *UYUUUUYjj!v} ꥪUYUZeYj.jeYXZeiYj * YReiYj*" ( eUej!w} / * jeUij Ujj   %Ue *  Ue!x} j  ( () iAh !y}%T! $$Q`!z}Y * 0.!{}  *P+!|}ﯩXUラUU`  V[BUU`  !}}UUUX VUUUT oUUUV UUUUUV [!~}eUUUU _UUUUiUUb`" UX"*!}[ *ꢪ"( ( " "!}h6h ?~*9!}````aaaabvvvvvvvvvvvwwwwwwwwwww!}!}!}64444444444444444444444444444444444444444444555555555555555555555555555555555555555555 liijiiiijYeYfeYeYjijUYeUYeYeYeYfYjYeYj%}UfUUjeiiiijUUUUVUfZijUUUUZVjeeijUUUVUUjYYZfUUiii%}YUUViUYeUUUUVieYijfiUUUUUYUUUUUUZjYeVYUZjijUYUUUUUUUUUUUeViVUYjUUUUUUUUUUUUUYUUUUf%}iUYUUUUUUUUUUUUUYeUUUUUUUYeUUeUUUUUUUUUUUUUUUUYeUUUVYeUUYUUUUUUUUUYUUUUUVUVZUZffUUUUUUUUUUUUUUUUUUY%}UUUViVfYjUUUUUUUUUUUUUUUUUUUUUUUUUUZUUUUUUUUUUUUUUUUUUUUUUUUUUUZUUU@@PTU@UPZUUU@@@?T%}@?fUUU@@@T @0UUU@P@VUUU@P@@ UUYeUUU@%}P@@UZUUU@`@VUUU@UP@@VUUU@U@@0UUU@%}P@@OYeUUU@0P@@PVUUU@P@@UTVUUU@$P@@ UeUUU@%}P@@UUUUU@@P@@UUUU@@P@@UZUUU@@pV1@UUeUUUO%}OCTT?O??UUeUUU@@PTU@UVUUUUUUUUUUUUUUUUUUUUUUUUUUUUZUUUUUUUUUUUUUUUUUZUUUUUUUUUUYeU%}UUUUUUUUUUUUUUUUUUUUUUUUUUUUeUUUUUUUUU@UUUUUUUUUZUUUUUUUUU@?UUUUUUUUVUUUUUUUUU@0UUUUUUUUe%}UUUUUUUUU@@UPUUUUUUUUUUUUUUUUUUU@@UPUUUUUUUUUUUUUUUUUUU@UPUUUUUUUUUUUUUUUUUUU@PUUUUUUU%}UUUUUUUUUUUU@PUUUUUUUUUUUUUUUUUUU@U?PUUUUUUUUUUUUUUUUUUU@UUPUUUUUUUUUUUUUUUUUUU@0UPUUUU%}UUUUUUUUUUUUUUU@UPUUUUUUUUUUUUUUUUUUU@UPUUUUUUUUUUUUUUUUUUU@UPUUUUUUUUUUUUUUUUUUU@UPU%}UUUUUUUUUUUUUUUUUU@@UPUUUUUUUUUUUUUUUUUUU@@UPUUUUUUUUUUUUUUUUUUUOO?USUUUUUUUUUUUUUUUUUUU@@U%}PUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUjUUUUUUUUUUUUUUUUUUUUUUUUUUUUbUUUUUUUUUUUUU%}UUUUUUUUUUUUUUUZUUUUUUUUUUUUUUUUUUUUUUUUUUUXUUUiUUUUUUUUUUUUUUUUUUUUUUUUZUUZUUUUUUUUUUUUUUU %UUUUUUUZUUjUUUUUUU%}UUUUUUUUUUUUUUUZUUUUUUUUUUUUUUUX UUUUUUUUUUUUUUUUUUUUUUUb%UUUUUUUUUUUUUUUUUUUUUUU"UUUUUUUUU%UUUUUU%}UUUVzUUUV*UUUUUUUUU UUUUUUUUUڞՕT)UUUUUWUU UUUUZUUZvzjjUUUUUUU{U0UkUUUUUUUUUUUUUUUUU UUU%}UUUUUUUUUUUUUUUUUUW UUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW %} UUUUUUUUUUUVUUVUWWUUUUUUUUUUfuez UUUUUUUUo{UUUUUUUUUUUUUfe%}UUUUUUUUUUUUUUUU_UUUUUUUUUUUUUUU UUUUUUUUUUUUUUW#UUUUUUUUUUUUUUo%}#UUUUUUUUUUUUUU+ UUUUUUUUUUUUU? UUUUUUUUUUUUU뿺 UUUUUUUUUUUUU%}( UUUUUUUUUUU_(+ UU_ZUVUU*UU__W"UUUz%}(UUU("UUUWꪪꪪUU_^ꪻUUz%}몪,"UU("U_ꪪꪪ*ꪪꪪ%}("ꪪ(".** **%}(*(8* , *%}* , *" **  *(*(*%}("( "* *(" **** %} * * " **"* * *%} ** ( !AIPQAEDXU)AQ@ * AQ AQXD!JA**AAAQ!QEZD hA" %}IQIAQEPDHA* QPQETDRA@  **** ***%}%}%}%}$l0@`)} `@C|)}C< CC Ǎ)}x`0C0 )}0)} @08<H P+ @ @)} ,$ `Y 2 B*ppp*P)}Pr5, 0` $q$ilaP,$d L!YD 0@)}$O 4DjЖ@h` DDH@hBLdCsL)} (4d  ^yV]C@ @F h p(0 )}6T!Jp"IV4L!D 0PpL! 0@f4L"*X`<)}隘,h"-0`0a(`>^H@ @)}@@@`"0@)}1u8pujt0 g0)}T8 0<Ї`?)}˙_ӝ7)})})})} )} (l12,32,0,112,76,121,112,138,41,127,72,56,237,204,6,141,213,6,176,4,73,255,10599 DATA 1,141,211,6,141,214,6,104,141,204,6,152,}41,127,72,24,237,205,6,144,4,73,255,105,254100 DATA 141,212,6,110,213,6,56,237,211,6,170,104,141,205,6,169,0,141,222,6,240,5},10,32,120101 DATA 113,56,173,214,6,109,212,6,141,214,6,173,222,6,240,3,32,73,112,169,1,141,222,6,232102 DATA 208,1,96,173,}213,6,176,220,32,124,113,24,173,214,6,109,211,6,141,214,6,76,236,112,238103 DATA 210,6,78,207,6,78,207,6,144,24,169,192,141,}207,6,169,0,141,210,6,24,173,208,6,105104 DATA 1,141,208,6,144,3,238,209,6,96,206,210,6,14,207,6,14,207,6,144,24,169,3,141,2}07105 DATA 6,169,3,141,210,6,56,173,208,6,233,1,141,208,6,176,3,206,209,6,96,56,173,208,6106 DATA 233,32,141,208,6,176,3,20}6,209,6,96,24,173,208,6,105,32,141,208,6,144,3,238,209,6107 DATA 96,16,152,48,186,16,220,48,233,32,18,113,238,204,6,96,32,54},113,206,204,6,96,32,90108 DATA 113,206,205,6,96,32,105,113,238,205,6,96,104,169,0,141,217,6,174,215,6,172,216,6,16109 DATA} 1,96,173,132,2,208,242,141,203,6,142,218,6,140,219,6,32,147,112,169,1,141,203,6,174110 DATA 215,6,236,218,6,208,217,172,216},6,204,219,6,208,209,240,238,104,169,1,141,217,6,174,215111 DATA 6,172,216,6,16,1,96,173,132,2,208,242,173,132,2,240,251,142},220,6,140,221,6,142,218112 DATA 6,140,219,6,32,158,114,174,215,6,236,220,6,208,26,172,216,6,204,221,6,208,18,173,132113 DA}TA 2,208,235,141,217,6,32,158,114,173,132,2,240,251,208,183,32,158,114,174,215,6,172,216,6114 DATA 142,220,6,140,221,6,16,1,}96,32,158,114,76,251,113,174,220,6,172,221,6,32,147,112,174115 DATA 218,6,172,219,6,76,159,112,174,220,6,172,221,6,32,0,112,}174,220,6,172,219,6,32,159116 DATA 112,174,218,6,172,219,6,32,159,112,174,218,6,172,221,6,32,159,112,174,220,6,172,221,6117} DATA 76,159,112,172,221,6,152,72,174,220,6,32,147,112,104,72,168,174,218,6,32,159,112,104,168118 DATA 204,219,6,208,1,96,17}3,219,6,205,221,6,144,3,200,16,220,136,16,217,173,223,6,240,3119 DATA 76,53,114,173,224,6,240,3,76,71,114,173,225,6,240,3,76},116,114,96120 MCPLDP=111:MCPLD=MCPLDP*256:IF PEEK(MCPLD+213) THEN 130121 RESTORE 120:FOR Q=MCPLD TO MCPLD+213:READ W:POKE }Q,W:NEXT Q122 DATA 104,169,7,141,82,3,169,0,141,88,3,141,89,3,141,205,6,141,218,6,141,217,6,141,219,6123 DATA 169,4,141,204},6124 DATA 162,16,32,86,228,141,220,6,174,219,6,240,12,238,204,6,238,204,6,238,204,6,76,167,111125 DATA 41,192,141,221,6,74},74,13,221,6,141,221,6,74,74,74,74,13,221,6,141,206,6,174,204,6,172,205,6,32,147,112126 DATA 173,220,6,41,48,141,221,6,10,10},13,221,6,141,221,6,74,74,74,74,13,221,6,141,206,6,238,204,6127 DATA 174,204,6,172,205,6,32,147,112,173,220,6,41,3,141,221,6},10,10,13,221,6,141,221,6128 DATA 10,10,10,10,13,221,6,141,206,6,238,204,6,174,204,6,172,205,6,32,147,112,238,204,6129 DATA} 173,204,6,201,124,240,3,76,31,111,173,219,6,240,8,206,205,6,169,0,141,219,6130 DATA 206,218,6,16,10,169,2,141,218,6,169,1,1}41,219,6,238,205,6,48,3,76,26,111,96900 POKE 54286,0:POKE 548,0:POKE 549,DVBIP:POKE 512,85:POKE 513,6910 POKE 560,0:POKE 56}1,DLP:POKE 710,4:POKE 709,14920 ? "} Dr. XL's genialer ":? " (c) 1985 by Olaf Paelchen"921 ? "} X - Y - F1- F2- F3- F4"930 GOSUB 32764935 GOSUB 32759940 GOSUB 32763950 DIM }F$(15):IO=ADR("hLV")990 POKE 1759,0:POKE 1760,0:POKE 1761,0998 POKE 54286,192:POKE 559,62:POKE 53252,116:POKE 53253,132:}POKE 53254,148:POKE 53255,164999 POKE DVBIEN,11000 IF MALEN THEN Q=USR(29084):GOTO 11001001 IF LINIE THEN POKE 1759,1:Q=US}R(29139):POKE 1759,0:GOTO 11001002 IF KASTEN THEN POKE 1760,1:Q=USR(29139):POKE 1760,0:GOTO 11001003 IF RECHTECK THEN POKE }1761,1:Q=USR(29139):POKE 1761,0:GOTO 11001010 Q=USR(29084):Q=USR(29139):Q=USR(29084)1020 IF PEEK(53279)=6 THEN Q=USR(FILL,G}RP*256,GRP*256+4095,0)1025 IF PEEK(53279)<>3 THEN 10101030 POKE 16,192:POKE 53774,192:POKE 752,1:POKE 54286,0:POKE 548,98:P}OKE 549,228:POKE 54286,641031 GRAPHICS 0:FOR Q=53248 TO 53255:POKE Q,0:NEXT Q:END 1100 POKE 710,1961101 IF NOT STRIG(0) T}HEN 11011102 SOUND 0,0,0,0:IF PEEK(1752)<128 THEN POKE 710,4:GOTO 10001103 IF STRIG(0) THEN 11021110 V=PEEK(1752):H=PEEK(1}751):SOUND 0,60,10,51120 IF V>144 THEN 11301121 IF H<30 THEN GOSUB 32764:GOTO 11011122 IF H<62 THEN GOSUB 32765:GOTO 1101}1123 IF H<94 THEN GOSUB 32766:GOTO 11011124 GOSUB 32767:GOTO 11011130 IF V>152 THEN 11401131 IF H<28 THEN GOSUB 32763:GOTO} 11011132 IF H<56 THEN GOSUB 32762:GOTO 11011133 IF H<88 THEN GOSUB 32761:GOTO 11011134 GOSUB 32760:GOTO 11011140 IF V>16}0 THEN 10301141 IF H<42 THEN GOSUB 32750:GOTO 11011142 IF H<70 THEN GOSUB 32700:GOTO 11011143 GOSUB 32710:GOTO 110131999 }END 32680 C=0:IF NOT STRIG(0) THEN 3268032681 POKE ((COL-1)*128+COL1P*256+V),C:POSITION 0,22:? C;" ":IF NOT STRIG(0) THE}N POSITION 0,22:? " ":RETURN 32682 S=STICK(0):IF S=7 THEN C=C+1632683 IF S=11 THEN C=C-1632684 IF S=13 THEN C=C-232685 }IF S=14 THEN C=C+232686 IF C>255 THEN C=C-25632687 IF C<0 THEN C=C+25632688 GOTO 3268132690 IF NOT STRIG(0) THEN 326903}2691 V=PEEK(1752):IF STRIG(0) THEN 3269132692 RETURN 32700 POSITION 0,17:? "":POKE 710,132:POSITION 13,19:? "Anfangsz}eile ?":SOUND 0,0,0,032701 GOSUB 32690:ANF=V:POSITION 13,19:? "Anfangsfarbe ?":POKE DVBIEN,0:GOSUB 32680:ANC=C:POKE DVBIEN,1}32702 POSITION 13,19:? " Endzeile ? ":GOSUB 32690:EN=V:POSITION 15,19:? "Endfarbe ?":POKE DVBIEN,0:GOSUB 32680:ENC=C32703} POKE 709,4:C=ANC:FOR Q=ANF TO EN:POKE (COL-1)*128+COL1P*256+Q,INT(C):C=C+(ENC-ANC+2)/(EN-ANF):NEXT Q32704 POKE DVBIEN,1:POS}ITION 0,17:? "":POKE 710,196:GOSUB 32764:GOSUB 32763:GOSUB 32759:POKE 709,14:RETURN 32710 POSITION 0,17:? "":POK}E 710,52:POSITION 13,19:? "Bild loeschen?":POSITION 9,21:? "JA":POSITION 28,21:? "NEIN"32711 SOUND 0,0,0,0:IF NOT STRIG(0) }THEN 3271132712 H=PEEK(1751):IF STRIG(0) THEN 3271232713 SOUND 0,60,10,5:IF H<64 THEN Q=USR(FILL,GRP*256,GRP*256+4095,0)32}714 POKE 709,4:POSITION 0,17:? "":POKE 710,196:GOSUB 32763:GOSUB 32764:GOSUB 32759:POKE 709,14:SOUND 0,0,0,0:RETURN 32}720 POSITION 0,21:? "Ausgabe-Geraet/Dateiname ";:SOUND 0,0,0,0:INPUT F$:TRAP 32722:POKE DLIEN,032721 IF F$(2,2)<>":" AND F$(}3,3)<>":" THEN TRAP 32723:FOR Q=LEN(F$) TO 1 STEP -1:F$(Q+2,Q+2)=F$(Q,Q):NEXT Q:F$(1,2)="D:"32722 TRAP 32723:OPEN #1,8,0,F$:}POKE 850,11:POKE 852,0:POKE 853,GRP:POKE 856,0:POKE 857,18:Q=USR(IO)32723 RETURN 32730 POSITION 0,21:? "Eingabe-Geraet/Date}iname ";:SOUND 0,0,0,0:INPUT F$:TRAP 32732:POKE DLIEN,032731 IF F$(2,2)<>":" AND F$(3,3)<>":" THEN TRAP 32739:FOR Q=LEN(F$) }TO 1 STEP -1:F$(Q+2,Q+2)=F$(Q,Q):NEXT Q:F$(1,2)="D:"32732 TRAP 32739:OPEN #1,4,0,F$:Q=USR(FILL,GRP*256,GRP*256+4095,0):Q=USR}(MCPLD)32733 TRAP 32737:GET #1,W:Q=USR(FILL,COL3P*256+128,COL3P*256+255,W)32734 GET #1,W:Q=USR(FILL,COL1P*256,COL1P*256+127},W)32735 GET #1,W:Q=USR(FILL,COL1P*256+128,COL1P*256+255,W)32736 GET #1,W:Q=USR(FILL,COL3P*256,COL3P*256+127,W):GOTO 32739}32737 Q=USR(FILL,COL1P*256,COL1P*256+127,40):Q=USR(FILL,COL1P*256+128,COL1P*256+255,202)32738 Q=USR(FILL,COL3P*256,COL3P*256}+127,148):Q=USR(FILL,COL3P*256+128,COL3P*256+255,0)32739 RETURN 32740 POSITION 0,21:? "Eingabe-Geraet/Dateiname ";:SOUND 0,}0,0,0:INPUT F$:TRAP 32742:POKE DLIEN,032741 IF F$(2,2)<>":" AND F$(3,3)<>":" THEN TRAP 32743:FOR Q=LEN(F$) TO 1 STEP -1:F$(Q }+2,Q+2)=F$(Q,Q):NEXT Q:F$(1,2)="D:"32742 TRAP 32743:OPEN #1,4,0,F$:POKE 850,7:POKE 852,0:POKE 853,GRP:POKE 856,0:POKE 857,18 }:Q=USR(IO)32743 RETURN 32750 POSITION 0,17:? "":POKE 710,68:POSITION 5,19:? "laden--laden [MIC]--speichern":SOUND 0,0 },0,032751 IF NOT STRIG(0) THEN 3275132752 H=PEEK(1751):IF STRIG(0) THEN 3275232753 SOUND 0,60,10,5:POKE 752,032754 IF H< }28 THEN GOSUB 32740:GOTO 3275732755 IF H<80 THEN GOSUB 32730:GOTO 3275732756 GOSUB 3272032757 CLOSE #1:POKE 752,1:POSITION } 0,17:? "":GOSUB 32759:GOSUB 32763:GOSUB 3276432758 POKE 710,196:POKE DLIEN,1:RETURN 32759 POSITION 4,20:? "Peripheri}e-Farben-Bild loeschen":RETURN 32760 MALEN=0:LINIE=0:KASTEN=0:RECHTECK=1:POSITION 5,19:? "Malen--Linie--Kasten--":RE}TURN 32761 MALEN=0:LINIE=0:KASTEN=1:RECHTECK=0:POSITION 5,19:? "Malen--Linie----Rechteck":RETURN 32762 MALEN=0:LINIE=}1:KASTEN=0:RECHTECK=0:POSITION 5,19:? "Malen----Kasten--Rechteck":RETURN 32763 MALEN=1:LINIE=0:KASTEN=0:RECHTECK=0:POSI}TION 5,19:? "--Linie--Kasten--Rechteck":RETURN 32764 COL=1:POKE 1742,85:POSITION 4,18:? "報-Farbe 2-Farbe 3-Farbe }4":RETURN :REM C132765 COL=2:POKE 1742,170:POSITION 4,18:? "Farbe 1-堲-Farbe 3-Farbe 4":RETURN :REM C232766 COL=3:POKE} 1742,255:POSITION 4,18:? "Farbe 1-Farbe 2-堳-Farbe 4":RETURN :REM C332767 COL=4:POKE 1742,0:POSITION 4,18:? "Farbe 1-F}arbe 2-Farbe 3-場":RETURN :REM C4e 2-堳-Farbe 4":RETURN :REM C332767 COL=4:POKE 1742,0:POSITION 4,18:? "Farbe 1-F'.}.}.}.}.}   .}    .}   ??.}::::.}::::.}::::. }::::.!}::::."}::::.#}:::.$}::::.%}::::.&}::::.'}::::.(}::::.)}::::.*}::::.+}::::.,}    .-}    ..}   ./}    .0}    .1}    .2}*.3}.4}.5}(((88HHHXXhhhxx.6}6666666666666((((((((((((((((.7}(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((.8}.9},l2;}2<}2=}2>}2?}2@}2A}2B}2C}UU@@2D}@@2E}UUU@@@2F}@@2G}@@UUUUUT2H}@@@@@@@2I}@@@@@@@2J}@UUUT@@@@@@@@2K}@@@@@UUUUUUUUUUUUP@2L}@@D@@@2M}@@@@@@2N}@@@@@@2O}@@@@@@@@2P}@A@@@@@A2Q}@@@@@UUP@@@2R}@@@@@2S}UUT2T}2U}2V}2W}2X}2Y}2Z}(((((((((((((((((((((((((((((2[}(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((2\}037:>AEILPSW[^beimptw{ʔ2]}2^}0l