17 IFJ>0THENPOKE1866,32:GOSUB481:GOTO103 19 A1=0:A2=0:A3=0:A4=0:A5=0:A6=0:A7=0:A8=0:AC=56320:A=0:O=12288:B=5:C=0 21 D=0:E=50:F=24:G=0:H=0:K=0:L=0:R=0:S=0:T=0:U=0:W=0:X=0:Y=0:Z=0:V=53248 23 M=1024:N=53272:AD=53270:P=53280:Q=53281:AA=53282:I=53283:AB=56334:BA=0 27 J=J+1:POKEP,12:POKEQ,0:POKEAA,4:POKEI,4 31 DATA64,58,90,83,45,68,65,84,65,83,32,49 33 DATA169,1,162,8,168,32,186,255,169,12,162,52,160,3,32,189,255,169 35 DATA0,162,48,133,251,134,252,169,251,162,0,160,56,32,216,255,96 37 FORX=0TO11:READZ:POKE820+X,Z:NEXT:FORX=0TO34:READZ:POKE16384+X,Z:NEXT 41 PRINT"[147]"TAB(8)"[158][218] [218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]" 43 PRINTTAB(8)"[145][218] [218] @@ [158][218]"SPC(19)"[218]" 45 PRINTTAB(8)"[145][218] [218] @@ [158][218] [156]ZEICHENEDITOR [158][218]" 47 PRINTTAB(8)"[145][218] [218] [218]"SPC(19)"[218]" 49 PRINTTAB(8)"[145][218] [218] @@ [158][218] [156](C) 1989 [158][218]" 51 PRINTTAB(8)"[145][218] [218] [218]"SPC(19)"[218]" 53 PRINTTAB(8)"[145][218] [218] @ [158][218] [156]VON PETER GROTH [158][218]" 55 PRINTTAB(8)"[145][218] [218] [218]"SPC(19)"[218]" 57 PRINT"[145][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]" 61 PRINT"[145][159] A ZEICHEN [000] B HG-FARBE AENDERN":PRINT 63 PRINT" C ZEICHNEN D_[146]LOESCHEN":PRINT 65 PRINT"[158] E CLEAR F REVERS":PRINT 67 PRINT"[159] G ZEICHENFARBE  [146] [159][160] H MULTI AN / AUS [129] [146]":PRINT 69 PRINT" I MULTICOLOR 1 [156] [146]  J MULTICOLOR 2 [156] [146]":PRINT 71 PRINT"[158] K ZS UMSCHALTEN L RAHMENFARBE":PRINT 73 PRINT"[159] M ZS LADEN N ZS SPEICHERN":PRINT 75 PRINT" O SPIEGELN K/S 000 P ENDE" 83 POKEAB,PEEK(AB)AND254:POKE1,PEEK(1)AND251 85 FORX=0TO2047:POKEO+X,PEEK(V+X):NEXT:POKE1,PEEK(1)OR4:POKEAB,PEEK(AB)OR1 87 POKEN,(PEEK(N)AND240)+12:POKE56325,80:FORX=0TO62:POKE832+X,0:NEXT 93 POKE841,60:POKE844,60:POKE2040,13:POKEV+39,1:POKEV,F:POKEV+1,E:POKEV+21,1 95 GOSUB481 103 GOSUB713 107 Y=PEEK(AC):IFY=126GOTO139 109 IFY=125GOTO149 111 IFY=119GOTO159 113 IFY=123GOTO169 115 IFY=111GOTO179 117 IFY=110GOTO199 119 IFY=109GOTO745 123 GETA$:IFA$=""GOTO107 125 FORX=1TO23:IFA$=MID$("[145][157] [160][133]ABCDEFGHIJKLMNOP",X,1)GOTO129 126 NEXT 127 GOTO123 129 ONXGOTO139,149,159,169,179,179,199,207 131 ONXGOTO,,,,,,,,243,277,285,293,303,313,347,363,397,431,447,515,523,531,705 139 IFD=0GOTO123 141 D=D-1:E=E-8:POKEV+1,E:GOTO123 149 IFD=7GOTO123 151 D=D+1:E=E+8:POKEV+1,E:GOTO123 159 IFC=7GOTO123 161 C=C+1:F=F+8:POKEV,F:GOTO123 169 IFC=0GOTO123 171 C=C-1:F=F-8:POKEV,F:GOTO123 179 IFG=0GOTO189 181 POKEM+D*40+C,42:POKE55296+D*40+C,B:Y=O+8*A+D:W=256 183 FORX=0TOC:W=W/2:NEXTX:POKEY,PEEK(Y)ORW:GOTO103 189 POKEM+D*40+C,32:Y=O+8*A+D:W=256 191 FORX=0TOC:W=W/2:NEXTX:POKEY,PEEK(Y)AND255-W:GOTO103 199 C=0:D=0:E=50:F=24:POKEV,F:POKEV+1,E:GOTO123 207 POKE1386,159 209 Y=PEEK(AC):IFY=119GOTO227 211 IFY=123GOTO233 213 IFY=125GOTO221 215 GETA$:IFA$=""GOTO209 217 IFA$=""GOTO227 219 IFA$="[157]"GOTO233 221 POKE1386,32:L=0 223 FORX=0TO280STEP40:FORY=0TO7:POKEM+X+Y,32:NEXTY:NEXTX:GOSUB481:GOTO123 227 A=A+1:IFA=256THENA=0 229 L=1:GOSUB481:GOTO209 233 A=A-1:IFA=-1THENA=255 235 GOTO229 243 POKE1406,159 245 Y=PEEK(AC):IFY=119GOTO261 247 IFY=123GOTO267 249 IFY=125GOTO257 251 GETA$:IFA$=""GOTO245 253 IFA$=""GOTO261 255 IFA$="[157]"GOTO267 257 POKE1406,32:GOTO123 261 Z=PEEK(Q)AND15:Z=Z+1:IFZ=16THENZ=0 263 POKEQ,Z:GOTO243 267 Z=PEEK(Q)AND15:Z=Z-1:IFZ=-1THENZ=15 269 POKEQ,Z:GOTO243 277 POKE1466,159:G=1:POKE1486,32:GOTO123 285 POKE1486,159:G=0:POKE1466,32:GOTO123 293 POKE1546,159:Z=O+8*A:FORX=0TO7:POKEZ+X,0:NEXT 295 FORX=0TO280STEP40:FORY=0TO7:POKEM+X+Y,32:NEXTY:NEXTX:POKE1546,32:GOTO103 303 POKE1566,159:FORX=0TO280STEP40:FORY=0TO7:POKEM+X+Y,32:NEXTY:NEXTX:W=O+8*A 305 Y=255:FORX=0TO7:Z=PEEK(W+X):POKEW+X,Y-Z:NEXT:GOSUB481:POKE1566,32:GOTO103 313 POKE1626,159 315 Y=PEEK(AC):IFY=119GOTO331 317 IFY=123GOTO337 319 IFY=125GOTO327 321 GETA$:IFA$=""GOTO315 323 IFA$=""GOTO331 325 IFA$="[157]"GOTO337 327 POKE1626,32:GOTO123 331 B=PEEK(646):B=B+1:IFB=16THENB=0 333 POKE55912,B:POKE646,B:GOTO313 337 B=PEEK(646):B=B-1:IFB=-1THENB=15 339 POKE55912,B:POKE646,B:GOTO313 347 POKE1646,159:IFH=1GOTO355 351 H=1:POKEAD,PEEK(AD)OR16:POKE1646,32:GOTO123 355 H=0:POKEAD,PEEK(AD)AND239:POKE1646,32:GOTO123 363 POKE1706,159 365 Y=PEEK(AC):IFY=119GOTO381 367 IFY=123GOTO387 369 IFY=125GOTO377 371 GETA$:IFA$=""GOTO365 373 IFA$=""GOTO381 375 IFA$="[157]"GOTO387 377 POKE1706,32:GOTO123 381 Z=PEEK(AA)AND15:Z=Z+1:IFZ=16THENZ=0 383 POKEAA,Z:POKE55992,Z:GOTO363 387 Z=PEEK(AA)AND15:Z=Z-1:IFZ=-1THENZ=15 389 POKEAA,Z:POKE55992,Z:GOTO363 397 POKE1726,159 399 Y=PEEK(AC):IFY=119GOTO415 401 IFY=123GOTO421 403 IFY=125GOTO411 405 GETA$:IFA$=""GOTO399 407 IFA$=""GOTO415 409 IFA$="[157]"GOTO421 411 POKE1726,32:GOTO123 415 Z=PEEK(I)AND15:Z=Z+1:IFZ=16THENZ=0 417 POKEI,Z:POKE56012,Z:GOTO397 421 Z=PEEK(I)AND15:Z=Z-1:IFZ=-1THENZ=15 423 POKEI,Z:POKE56012,Z:GOTO397 431 POKE1786,159:IFBA=1GOTO439 435 BA=1:POKEN,21:POKE1786,32:GOTO103 439 BA=0:POKEN,(PEEK(N)AND240)OR12:POKE1786,32:GOTO103 447 POKE1806,159 449 Y=PEEK(AC):IFY=119GOTO465 451 IFY=123GOTO471 453 IFY=125GOTO461 455 GETA$:IFA$=""GOTO449 457 IFA$=""GOTO465 459 IFA$="[157]"GOTO471 461 POKE1806,32:GOTO123 465 Z=PEEK(P)AND15:Z=Z+1:IFZ=16THENZ=0 467 POKEP,Z:GOTO447 471 Z=PEEK(P)AND15:Z=Z-1:IFZ=-1THENZ=15 473 POKEP,Z:GOTO447 481 POKE1080,A:POKE1081,A:POKE1120,A:POKE1121,A:POKE1200,A:POKE1201,A 483 POKE1280,A:POKE55352,B:POKE55353,B:POKE55392,B:POKE55393,B:POKE55472,B 485 POKE55473,B:POKE55552,B:POKE646,3:POKE214,9 487 IFA<10THENPOKE211,13:SYS58640:PRINTA"[157][157][157][157]00" 489 IFA>9ANDA<100THENPOKE211,12:SYS58640:PRINTA"[157][157][157][157]0" 491 IFA>99THENPOKE211,11:SYS58640:PRINTA"[157][157][157][157][157][" 493 IFL=1THENRETURN 497 U=-40:T=O+8*A:FORX=TTOT+7:Z=256:U=U+40:FORW=0TO7:Z=Z/2:Y=PEEK(X)ANDZ 505 IFY=ZTHENPOKEM+U+W,42:POKE55296+U+W,B 507 NEXTW:NEXTX:GOSUB713:RETURN 515 POKE1866,159:LOAD"ZS-DATAS 1",8,1 523 POKE1886,159:SYS16384:GOSUB481:POKE1886,32:GOTO123 531 POKE1946,159:POKE1959,159:POKE646,5 533 Y=PEEK(AC):IFY=119GOTO605 535 IFY=123GOTO549 537 IFY=125GOTO545 539 GETA$:IFA$=""GOTO533 541 IFA$="K"GOTO549 543 IFA$="S"GOTO605 545 POKE1946,32:POKE1959,32:GOTO103 549 POKE1959,32:POKE1963,159:POKE214,23 551 Y=PEEK(AC):IFY=119GOTO565 553 IFY=123GOTO597 555 IFY=111GOTO577 557 GETA$:IFA$=""GOTO551 559 IFA$=""GOTO565 561 IFA$="[157]"GOTO597 563 GOTO577 565 K=K+1:IFK>255THENK=0 567 GOSUB569:GOTO549 569 IFK<10THENPOKE211,17:SYS58640:PRINTK"[157][157][157][157]00":RETURN 571 IFK>9ANDK<100THENPOKE211,16:SYS58640:PRINTK"[157][157][157][157]0":RETURN 573 IFK>99THENPOKE211,15:SYS58640:PRINTK:RETURN 577 Y=908:Z=O+8*A:FORX=ZTOZ+7:Y=Y-1:W=PEEK(X):POKEY,W:NEXT:Y=O+8*K-1 587 FORX=900TO907:Y=Y+1:W=PEEK(X):POKEY,W:NEXT 593 POKE646,B:POKE1946,32:POKE1963,32:GOTO103 597 K=K-1:IFK<0THENK=255 599 GOSUB569:GOTO549 605 POKE1959,32:POKE1963,159:POKE214,23 607 Y=PEEK(AC):IFY=119GOTO625 609 IFY=123GOTO631 611 IFY=111GOTO619 613 GETA$:IFA$=""GOTO607 615 IFA$=""GOTO625 617 IFA$="[157]"GOTO631 619 IFH=0GOTO637 621 IFH=1GOTO665 625 K=K+1:IFK>255THENK=0 627 GOSUB569:GOTO605 631 K=K-1:IFK<0THENK=255 633 GOSUB569:GOTO605 637 W=899:R=O+8*A 641 FORX=RTOR+7:W=W+1:Z=256:U=0:S=.5:FORY=0TO7:Z=Z/2:S=S+S:T=PEEK(X)ANDZ 653 IFT>0THENU=U+S 655 NEXTY:POKEW,U:NEXTX:POKE1946,32:POKE1963,32 656 W=O+8*K-1:FORX=900TO907:W=W+1:T=PEEK(X):POKEW,T:NEXTX:GOTO103 665 W=899:R=O+8*A 669 FORX=RTOR+7:W=W+1:Z=256:U=0:FORY=0TO7:Z=Z/2:T=PEEK(X)ANDZ 675 IFY=0THENS=2 677 IFY=1THENS=1 679 IFY=2THENS=8 681 IFY=3THENS=4 683 IFY=4THENS=32 685 IFY=5THENS=16 687 IFY=6THENS=128 689 IFY=7THENS=64 693 IFT>0THENU=U+S 695 NEXTY:POKEW,U:NEXTX:POKE1946,32:POKE1963,32 696 W=O+8*K-1:FORX=900TO907:W=W+1:T=PEEK(X):POKEW,T:NEXTX:GOTO103 705 POKE56325,58:POKEV+21,0:PRINT"[147]":END 713 POKE211,0:POKE214,0:SYS58640:POKE646,3:X=O+8*A:A1=PEEK(X):PRINTTAB(10)" " 717 X=X+1:A2=PEEK(X):PRINTTAB(10)"[145] ":X=X+1:A3=PEEK(X):PRINTTAB(10)" " 721 X=X+1:A4=PEEK(X):PRINTTAB(10)"[145] ":X=X+1:A5=PEEK(X):PRINTTAB(10)" " 725 X=X+1:A6=PEEK(X):PRINTTAB(10)"[145] ":X=X+1:A7=PEEK(X):PRINTTAB(10)" " 729 X=X+1:A8=PEEK(X):PRINTTAB(10)"[145] ":POKE211,0:POKE214,0:SYS58640 733 PRINTTAB(9)A1:PRINTTAB(9)"[145]"A2:PRINTTAB(9)A3:PRINTTAB(9)"[145]"A4 735 PRINTTAB(9)A5:PRINTTAB(9)"[145]"A6:PRINTTAB(9)A7:PRINTTAB(9)"[145]"A8:POKE646,B:RETURN 745 A$="A":Z=1:Y=1386:GOSUB779:POKEY,159 747 W=PEEK(AC):IFW=125GOTO757 749 IFW=126GOTO767 751 IFW=111GOTO787 753 GOTO747 757 IFY=1946THENY=1406:Z=9:GOTO763 759 IFY=1966THENY=1386:Z=1:GOTO763 761 Z=Z+1:Y=Y+80 763 GOSUB779:POKEY,159:GOTO747 767 IFY=1386THENY=1966:Z=16:GOTO763 769 IFY=1406THENY=1946:Z=8:GOTO763 771 Z=Z-1:Y=Y-80:GOTO763 779 W=1326:FORX=1386TO1946STEP80:W=W+80:POKEX,32:POKEW,32:NEXT:RETURN 787 IFG=0THENPOKE1486,159 789 IFG=1THENPOKE1466,159 793 ONZGOTO207,277,293,313,363,431,515,531,243,285,303,347,397,447,523,705 0