100 RESTORE 110 a$="!j¢£­°+±+;²)1²#;±30°&KK $ªr $B $‚³¤š P2´(šq6" 120 DATA a$&"µ3X´(c[¶¡2!g·kx¸db»H¼r½SA¾",",+,,+" 130 DATA "<,<,","4,4,","!i¥š 0©š ˜¥r !hŠ" 140 DATA "!n8+a+3+1Q+1@A*¤+9 A1´","!fy£+1 R¤1+ ¢9"&b$ 150 b$="+ ¢I+ S1;1+C1+Ÿ+1A+1+1y+139Y39S1“1;131+‰ šQ" 160 DATA " Œ›O¡qššPšak8","1+;£1+ I+01i¬+1 /¬+1 31@" 170 DATA "¦+1 ¤31 (š‡s§1+ ","3++59015+3+33°2°%E*" 180 DATA "£3 -9=","q/+1319=","i?Y+17","31I+17i+1/" 190 DATA "°‘S!f±!gKA²0³0´_µ!nb¶","3@9+7Y+11" 200 DATA "|£1+ A3šK3S;1+¡£+ 119+1+19+1","Q53131=+1+1A" 210 DATA "m+131I","]+9¤+1 &A+.","1++1+1+-•+A+/" 220 c$="1Q£31 Aq1A+C9+1A+11š909!s°j±9!d²&^²32!f³C´J!t" 230 DATA c$&"µ(\µ3+!s¶R¶'aQ!u·","S++1,39++," 240 DATA "\,1;++1+-","¤, ","+1M+K6","E+;,","¨+ " 250 DATA "0O1H",d$,"¢X@ ","HGe°°","EG" 260 d$="{¢iC š›SŽ‘B!k°8<°J°¢(<° D8°¢(<° XT±D±PY!d³" 270 DATA "31;;;£1+ 1Q+1YšBŸ¨13 1+9+;;1Q9+131" 280 DIM x$(99,99) 290 FOR i=0 TO 34 : READ z$ : x$(i)=z$&" " 300 MODE 8 : OPEN #1,scr_512x256a0x0 : CLS : t=0 : d 0,0 : PAUSE 310 DEFine PROCedure d(x,a) 320 LOCal i,b,e 325 REPeat Schleife 330 a=a+1 : c=CODE(x$(x,a))-34 : e=(t+c)MOD 2 340 SELect ON c 350 =-2 : RETurn 360 =128 TO 141 : b=a 370 FOR i=127 TO c : a=b : d x,a 380 =1 TO 127 : MOVE INT(c/8)*SQRT(1+t) : TURN c*45 : t=e 390 =-1 400 a=a+1 : INK CODE(x$(x,a))+92 410 =1 TO 156 : PENDOWN : FILL 1 420 d x+c-141,0 : PENUP 430 END SELect 440 END REPeat Schleife 450 END DEFine