TO EL4 FD 40 PU BK 40 RT 90 FD 40 LT 90 PD FD 40 LT 90 FD 60 ELb END TO uóô4 PU SETPOSITION [- 200 20] PD END TO uóô3 PU SETPOSITION [- 200 120] PD END TO uóô2 CS PU SETPOSITION [- 200 120] RT 90 PD END TO kïîåã PR [] PR [ráâïôá záëïîþåîá] (PR [oâýéê sþåô] :oãåîëá2 [:] :oãåîëá1) MAKE "oã :oãåîëá1 - :oãåîëá2 IF :oã = 0 [(PR [wùäáàýéêóñ uóðåè,] :iíñ [! pñôø s pìàóïí!]) STOP] [] IF :oã < 3 [(PR [pïúäòá÷ìñà s hïòïûéí råúõìøôáôïí,] :iíñ [. oãåîëá "5 "]) STOP] [] IF :oã < 5 [(PR [nåðìïèï,] :iíñ [. sôá÷ìà wáí "4 ".]) STOP] [] IF :oã < 7 [(PR [bõäøôå wîéíáôåìøîåå,] :iíñ [. wáûá oãåîëá "4 - "]) STOP] [] IF :oã < 9 [(PR [sìáâï÷áôï,] :iíñ [. tòïåþëá.]) STOP] [] (PR [pìïèé wáûé dåìá,] :iíñ [... oãåîëá "3 - "]) END TO A :X1 :Y1 IF :X1 = 0 [MAKE "X FALSE] [MAKE "X TRUE] IF :Y1 = 0 [MAKE "Y FALSE] [MAKE "Y TRUE] wùþ.Z PR [] (PR [~ôï bõäåô ná wùèïäå, eóìé ná wåòèîåí wèïäå -] :X1 [, i ná néöîåí -] :Y1 [?]) TYPE [wáû oô÷åô -] MAKE "M RC TYPE :M WAIT 1000 PRINT [] MAKE "sþ1 :sþ1 + 1 IF :M = "0 [IF :Z [PR [nåðòá÷éìøîï] MAKE "{ 1] [PR [mïìïäåã!] MAKE "sþ2 :sþ2 + 1]] [] IF :M = "1 [IF :Z [PR [pòá÷éìøîï] MAKE "sþ2 :sþ2 + 1] [MAKE "{ 1 (PR [nåô,] :iíñ [, |ôï nå÷åòîï])]] [] (PR [sþåô] :sþ2 [:] :sþ1) WAIT 2000 END TO céëì MAKE "{ 0 A 0 0 A 0 1 A 1 0 A 1 1 IF :{ = 1 [IF :sþ1 > 15 [(PR :iíñ [, wù båúäõíîï náöéíáåôå kìá÷éûé. oâòáôéôåóø zá pïíïýøà k uþéôåìà.])] [céëì]] [MAKE "oãåîëá1 :oãåîëá1 + :sþ1 MAKE "oãåîëá2 :oãåîëá2 + :sþ2 IF EMPTYP :sðéóïë [kïîåã] [MAKE "N :N + 1 WAIT 800 PR [] PR [] (PR [dïóôáôïþîï,] :iíñ [, påòåêäåí K sèåíå N] :N) IF :N > 4 [PR [påòåþåòôéôå sèåíõ w tåôòáäø i záðïìîéôå dìñ nåå táâìéãõ] PR [(zîáþåîéê ná wùèïäå dìñ wóåè wïúíïöîùè kïíâéîáãéê wèïäîùè zîáþåîéê.)] WAIT 3000] [] (PR [oâýéê sþåô] :oãåîëá2 [:] :oãåîëá1) WAIT 3000 PR [] PR [] B]] END TO EL REPEAT 5 [RT 90 FD 40] RT 90 FD 20 LT 90 FD 40 END TO EL3 FD 20 PU BK 40 RT 90 FD 20 LT 90 PD FD 40 LT 90 FD 30 EL END TO sè6.Z MAKE "Z OR (NOT OR :X :Y) AND :X :Y END TO iìé1 EL3 PU BK 75 PD LT 90 bé l bé RT 90 PU FD 42 PD END TO e FD 6 RT 90 FD 6 RT 90 PU FD 3 RT 90 FD 2 PD FD 4 LT 90 FD 3 LT 90 FD 6 END TO n FD 6 BK 3 RT 90 FD 6 LT 90 FD 3 BK 6 RT 90 PU FD 3 PD LT 90 END TO EL1 FD 40 LT 90 FD 20 EL END TO l RT 45 FD SQRT 72 RT 90 FD SQRT 72 LT 45 PU FD 3 PD LT 90 END TO bé FD 6 BK 6 RT 45 FD SQRT 72 LT 45 BK 6 RT 90 PU FD 3 PD LT 90 END TO EL2 FD 40 PU BK 40 RT 90 FD 20 LT 90 PD FD 40 LT 90 FD 30 EL END TO sè5.Z MAKE "Z AND (NOT AND :X :Y) OR :X :Y END TO i1 EL3 PU BK 63 LT 90 PD bé RT 90 PU FD 54 PD END TO sè4.Z MAKE "Z NOT OR :Y NOT :X END TO sè3.Z MAKE "Z AND :Y NOT :X END TO uóô1 PU SETPOSITION [- 200 80] PD END TO sè2.Z MAKE "Z AND :X :Y END TO i EL2 PU BK 63 LT 90 PD bé RT 90 PU FD 54 PD END TO wùþ.Z MAKE "Z OR :X :Y END TO sè1.Z MAKE "Z OR :X :Y END TO uóô CS PU SETPOSITION [- 200 80] RT 90 PD END TO B MAKE "sþ1 0 MAKE "sþ2 0 RUN FIRST :sðéóïë MAKE "sðéóïë BF :sðéóïë céëì END TO sè6 uóô FD 20 SETY 10 FD 60 uóô1 FD 60 PU SETY 60 PD SETY 30 iìé1 nå LT 90 FD 30 uóô1 RT 90 FD 40 i FD 120 iìé COPYDEF "sè6.Z "wùþ.Z END TO sè5 uóô FD 20 SETY 10 FD 60 uóô1 FD 60 PU SETY 60 PD SETY 30 i1 nå LT 90 FD 30 uóô1 RT 90 FD 40 iìé FD 120 i COPYDEF "sè5.Z "wùþ.Z END TO sè4 uóô PU SETY 40 PD SETX - 80 SETY 60 uóô1 nå iìé nå COPYDEF "sè4.Z "wùþ.Z END TO sè3 uóô PU SETY 40 PD SETX - 80 SETY 60 uóô1 nå i COPYDEF "sè3.Z "wùþ.Z END TO sè2 uóô i COPYDEF "sè2.Z "wùþ.Z END TO sè1 uóô iìé COPYDEF "sè1.Z "wùþ.Z END TO nå EL1 PU BK 68 LT 90 PD n e PU FD 53 PD END TO iìé EL2 PU BK 75 PD LT 90 bé l bé RT 90 PU FD 42 PD END TO tåóô TS CLEARTEXT SETC [10 13] PR [náúï÷éôå, pïöáìõêóôá, s÷ïå iíñ (iìé iíåîá)] SETC [11 13] PR [nå záâõäøôå w kïîãå náöáôø kìá÷éûõ < w÷ïä >] PR [] PR [] MAKE "iíñ RL SETC [16 13] PRINT [sðáóéâï. náþîåí?] WAIT 1000 MAKE "oãåîëá1 0 MAKE "oãåîëá2 0 MAKE "sðéóïë [[sè1] [sè2] [sè3] [sè4] [sè5] [sè6]] MAKE "N 1 SS SETSCRUNCH 1 B END TO QQ TS SETC [8 36] PR [lïçéþåóëéå] SETC [9 38] PR [sèåíù] SETC [11 38] PR [tåóô 1] SETC [20 56] WAIT 1000 PR [náöíéôå làâõà kìá÷éûõ...] MAKE "QQQ RC tåóô END TO Q :X FS CS HT SOUND [1000 118] WAIT 1000 SOUND [500 135] SOUND [1000 118] REPEAT 150 [FD :X RT 122 MAKE "X :X + 2] REPEAT 50 [SOUND [30 + :X / 5 :X - 260] MAKE "X :X + 2] SOUND [1000 118] WAIT 2000 CS REPEAT 2 [LT 90 REPEAT 3 [FD 100 RT 90]] RT 180 PU FD 20 PD DYE 4 QQ END TO START_UP SS LT 30 SETSCRUNCH 0.65 Q 1 END