GENOS È …ÍâÃw˜Íâ*¬é:¥Ôg Ý~ö„Óܯ2¤Í^ !+|µ(ÛØ/8õÝN!¦ ËFÀ͘ ËÆÉ>2Ã/ >€ÓÜÍ^ û>2¥É>Í¥ æ™É$ :' ***************************$ :' * *$ :' * P A T T E R N *$( :' * *$2 :' * (C) 6.8.1987 ML ¤·ª– *$< :' * *$F :' * M¡–¦° L¥©¡¤’© *$P :' * B·¢¦©·«¡ 16 *$Z :' * B°· 638 00 *#d:' * –’¸. 621232 *#n:' * *#x:' ***************************‚:'3ŒÜ"CRT:M1":þ– ,:þ– ,:þ¦ –¸ ƒ`,…: Á € "ERR": þ †8,„ ,"PATTERN EDITOR",‚,‚@,[ªþš …,†<:þ› „,ÿ (†p,‡,ˆ,ˆ!,ˆ!,ˆ,‡,†p);´þ¤ ƒ,ƒ :"ML ¤·ª– 1987 M¡–¦° L¥©¡¤’©"ö¾"T’°–· ž·—¡³ ¥³·¢°¥¯’ °¡œ’ª¦°·«¡– ¤¦ « BASIC¥ «¸¡¤–°¦ —¡ª¦Ÿ©’ ·š¡¢Ÿ’ «½¥¢¦–’¸°’ ž· –«·š¥ ž·—¡³¥.P· ¢¡œ¡°¦š·œ·«½Ÿ˜ ·¢³’¥ ·š¡¢Ÿ’,V<8,24> S<8,40> V ¡ S ³¥¤¦ š½– °¡¤·š©½ 8,¤’ V¡³°¡©’¤¸¦ ž·¸’ ¢¡œ¡°½Ÿ˜ ·¢³’¥.V –·³–·"™È"ž·¸¦ ¤’ ³¥¢’–’ ž·˜½š·«¡– ž·³·Ÿ¦ ©¥¢··-«½Ÿ˜ ¤¦ž’©.B·œ ¢¡š¡«¥¯’–’/·œš¡«¥¯’–’ ³’¢’·«·¥ ©¸¡«’¤·¥.P· ¤©·°Ÿ’°¦ ’œ¦–¡Ÿ’ ¤–¦¤©°’–’ ©¸¡«’¤¥ .":[Òþš ˆP,‡,:þ› „,ÿ (,†p,‡,‡p,‡,†p,,)[Üþš „,‡<:þ› „,ÿ (,†p,‡,‡p,‡,†p,,)æ‘"R·¢³’ °¡ «½¤©¥:";V=ð“ ÿ€(Vû„)ïVû„ ë Võ…@ ë Vö„ â þ:€ æú‘"R·¢³’ °¡ ¤¦©¥:";S=“ ÿ€(Sû„)ïSû„ ë Sõ† ë Sö„ â þ:€ ú&SôSø:VôVø:– A$(S,V):¸‚ Xô à Sü„ á „: Yô à Vü„ á „:þ˜[‚]X,Y,X÷ƒ`,Y÷ƒ`:A$(Xû„,Yû„)ô"0":Ž Y,X&"Xô:Yô:Bô‚@:þš X,Y|,“ A$(ÿ¸û„,ÿ¹û„)ô"1"â þ˜[‚@]ÿ¸,ÿ¹,ÿ¸÷ƒ`,ÿ¹÷ƒ`,‚@ : þ˜[‚]ÿ¸,ÿ¹,ÿ¸÷ƒ`,ÿ¹÷ƒ`,&6þ [B]X,Y,"+",,,!@­ A$:“ ÿ«(A$)ô„P "FIN"J“ ÿ«(A$)ô† "ZMENA"3T ÿœ() h, r, |, †, , š, ¤, ® ^€ ¸hYôYø„:„rXôX÷„:YôYø„:„|XôX÷„:„†XôX÷„:YôY÷„:„YôY÷„:„šXôXø„:YôY÷„:„¤XôXø„:„®XôXø„:YôYø„:„¸“ Xö â Xô“ XõSü„ â XôSü„Ì“ Yö â YôÖ“ YõVü„ â YôVü„&à“ Bô‚@ â Bô : Bô‚@ê“ Xïÿ¸ ë Yïÿ¹ â ¾ ‡H ô€ ,°þÊ"ZMENA":“ A$(Xû„,Yû„)ô"0" â A$(Xû„,Yû„)ô"1":þ˜[‚@]X,Y,X÷ƒ`,Y÷ƒ`,‚@ : A$(Xû„,Yû„)ô"0":þ˜[‚]X,Y,X÷ƒ`,Y÷ƒ`,„ Ê"FIN"@IIô(S÷)ü(V÷)û„ø:– A(II):Xô:YôV & Iô à II:A(I)ô 0“ A$(X,Y)ô"1" â A(I)ôˆ,:“ A$(X÷,Y)ô"1" â A(I)ôA(I)÷‡,D“ A$(X÷‚,Y)ô"1" â A(I)ôA(I)÷†,N“ A$(X÷‚@,Y)ô"1" â A(I)ôA(I)÷…,X“ A$(X÷ƒ,Y)ô"1" â A(I)ôA(I)÷„,b“ A$(X÷ƒ ,Y)ô"1" â A(I)ôA(I)÷ƒ,l“ A$(X÷ƒ@,Y)ô"1" â A(I)ôA(I)÷‚,v“ A$(X÷ƒ`,Y)ô"1" â A(I)ôA(I)÷+€YôYø:“ Yö â YôV:XôX÷„ŠŽ I-”A$ô"": Iô à II:A$ôA$÷ÿ (A(I)):Ž IžÊ "VYBER":›ª¨"Z«·¸–’ ª¥°©Ÿ¦: 1...·ž¡«¡ 2...–¦¤© «’ –«¡¥ PATTERN V,CHR$(...) 3...–¦¤© «’ –«¡¥ ’–’¢Ÿ’ + PATTERN V,P$"$²þš ˆ ,‡P:þ› V÷,A$S¼­ F:“ Fô â "OPRAVA" : “ Fô‚ â "END1" : “ Fô‚@ â "END2" : ¼¯ÆÊ"END2":›:"P· ¤–¦¤©°¥–¦ ¸¦š·«·¸°’ ©¸¡«’¤½ ¤–¦¤©°’–’©¸¡«’¤¥ ¡ ž·¤–¥ž°’ ·œ’¤¸’–’ «¤’Ÿ˜°½¡œ©½ ž·—¡³¥.P·©¥œ š½ «½–«·’°½ ž·—¡³ š½¸ ž¦¸¦¤ œ¸·¥˜½ ·œ’¤¸’–’"ùÐ"«¤’Ÿ˜°½ ¢·š¡¢’°’ ¡œ©½,ž·–·³ ¢¡œ’¯–’: GOTO "÷ÿ (†)÷"END2"÷ÿ (†)÷" ¡ «Ÿ¡¤ ¤–¦¤©°’–’ ©¸¡«’¤½ SHIFT+BREAK.T¦³ œ·Ÿ¦¸¦–’ ¢·š¡¢’°¦ ž·—¡³·«½Ÿ˜ ¡œ©¥,©–’’ V¡³ ž’œ–¦³ '¥–’©¸½'.T½–· ¡œ©½ ·œ’¤¸’–’ ¡ ³¡–’ ž·—¡³ ˜·–·«½."(Ú"Sž¥¤–’°¦: POSITION X,Y:GOTO 1000"ä­ F$:“ F$ô"" â äqî›:þ¤ ,:"1000 DIM P$(";ÿ¡((II÷)û„ø);")": IPô à (II÷)û„øøÿ¡(Šz@÷IP);" P$(";ÿ¡(IP);")=CHR$(";: Iô à ƒ@:ÿ¡(A(I÷IPü„));",";:Ž I:ÿ¡(A(IPü„÷ƒ`));")":Ž IP—"1016 P$=";:“ IIôƒ` â "P$(0)":€  : Iô à (II÷)û„ø‚:"P$(";ÿ¡(I);")+";:Ž I:"P$(";ÿ¡((II÷)û„ø);")"# "1017 PATTERN";V÷;",P$" "";:˜¸ Ê"END1":›:"S–¦¤©°’–’ ©¸¡«’¤¥ ¡ ¡œ’© ·œ’¤¸’–’.P·©¥œ ¤’ ·š¯’«¦ ¢ž¡«¡ L¦°’¸’°—–˜ ’· ¢¡œ’¯–’: GOTO "÷ÿ (†)÷"VYBER"÷ÿ (†)÷" ¡ ž· –¦¤© ž·¥¢¦¯–’ ª¥°©Ÿ’ 3."(*"Sž¥¤–’°¦: POSITION X,Y:GOTO 1000"J4"1000 DATA";: Iô à IIø:ÿ¡(A(I));",";:Ž I:ÿ¡(A(II))>"":˜½HÊ"OPRAVA":›: Xô à Sü„ á „: Yô à Vü„ á „:“ A$(Xû„,Yû„)ô"1" â þ˜[‚@]X,Y,X÷ƒ`,Y÷ƒ`,‚@ : þ˜[‚]X,Y,X÷ƒ`,Y÷ƒ`,)RŽ Y,X:Xô:Yô:þš X,Y:€ ,1\Ê"ERR":"C˜½š¡";ÿ³;" °¡ ¡œ©¥";ÿ´:þ:þ:þ:†f˜ê” A,0,68,166,28,52,84,12,4%ë”B,0,220,194,194,220,194,196,248#ì” C,0,28,96,192,192,194,100,56%í”D,0,216,196,194,194,198,200,240%î”E,0,242,204,192,248,192,216,230#ï” F,0,224,96,96,116,104,96,222$ð” G,0,56,100,206,192,192,100,24%ñ”H,0,194,196,196,252,196,196,194%ò”I,0,254,120,120,120,120,120,254ó”J,0,60,70,134,6,6,118,158%ô”K,0,198,200,200,240,200,200,198%õ”L,0,244,202,192,192,192,192,192%ö”M,0,194,194,194,218,230,194,194%÷”N,0,194,206,210,210,226,194,194#ø”O,0,56,100,194,194,194,100,56%ù”P,0,192,192,244,206,194,214,236$ú” Q,0,58,100,202,194,194,100,56%û”R,0,196,200,244,202,194,202,244"ü”S,0,120,196,2,124,224,114,60 ý”T,0,56,56,56,56,56,186,254%þ”U,0,124,194,194,194,194,194,194%ÿ” V,0,48,104,196,194,194,194,194%”W,0,194,230,250,210,194,194,194"” Y,0,48,48,48,48,120,228,194"”Z,0,250,228,112,56,28,78,190¸ … ê:›:¸:Jô‚¹ þ¤ ƒ ,ƒ ! – X(ƒ`):þš „,‡NÇ • A$:A$;J:JôJ÷È þ¤ ƒ ,ƒ Ì Iô à ƒ` Ö • X(I)à ŽIbê þ› „,ÿ (X(),X(),X(‚),X(‚@),X(ƒ),X(ƒ ),X(ƒ@),X(ƒ`))ô ­ A$:“A$ô""â ô þ € Ç