TO START_UP FS HT SETSCRUNCH 0.6 SETBG 5 CS HT SETPC 3 MAKE "I 600 MAKE "T 240 PU RT 90 FD 295 LT 90 FD 115 RT 90 PD FD 5 LT 90 FD 5 REPEAT 34 [SOUND [50 :I / 6] LT 90 FD :I LT 90 FD :T MAKE "I :I - 5 MAKE "T :T - 5] LT 90 FD 5 LT 90 FD 5 BK 5 RT 90 BK 5 RT 90 REPEAT 14 [SOUND [50 :I / 6] LT 90 FD :I LT 90 FD :T MAKE "I :I - 5 MAKE "T :T - 5] LT 90 PU FD 50 PD DYE 1 SOUND [1000 :I / 6] TS SETC [12 17] PR [mïäåìø sõííáôïòá ~åôùòåèòáúòñäîùè d÷ïéþîùè ~éóåì] SETC [20 56] PR [náöíéôå làâõà kìá÷éûõ...] MAKE "Q RC mïä END TO téë SOUND [80 48] WAIT 800 SOUND [100 50] SOUND [400 60] WAIT 3500 END TO f.pó :c1 :c2 MAKE "P "0 MAKE "S "0 IF AND OR :c1 = "1 :c2 = "1 NOT AND :c1 = "1 :c2 = "1 [MAKE "S "1] [MAKE "S "0] IF AND :c1 = "1 :c2 = "1 [MAKE "P "1] [MAKE "P "0] END TO f.iìé :A :B MAKE "C "0 IF OR :A = "1 :B = "1 [MAKE "C "1] [MAKE "C "0] END TO ráâïôá téë f.pó :sì1.0 :sì2.0 påþ 8 64 :P påþ 8 65 :S MAKE "zò0.wùè1 :P påþ 20 66 :S f.pó :sì1.1 :sì2.1 påþ 8 49 :P påþ 8 50 :S MAKE "zò1.wùè1 :P MAKE "zò1.wùè2 :S f.pó :sì1.2 :sì2.2 påþ 8 34 :P påþ 8 35 :S MAKE "zò2.wùè1 :P MAKE "zò2.wùè2 :S f.pó :sì1.3 :sì2.3 påþ 8 19 :P påþ 8 20 :S MAKE "zò3.wùè1 :P MAKE "zò3.wùè2 :S WAIT 500 téë f.pó :zò0.wùè1 :zò1.wùè2 påþ 13 52 :P påþ 13 53 :S påþ 20 54 :S WAIT 500 téë f.iìé :P :zò1.wùè1 påþ 18 47 :C WAIT 500 téë f.pó :C :zò2.wùè2 påþ 13 37 :P påþ 13 38 :S påþ 20 39 :S WAIT 500 téë f.iìé :P :zò2.wùè1 påþ 18 32 :C WAIT 500 téë f.pó :C :zò3.wùè2 påþ 13 22 :P påþ 13 23 :S påþ 20 24 :S WAIT 500 téë f.iìé :P :zò3.wùè1 påþ 18 18 :C påþ 20 20 :C REPEAT 20 [WAIT 500 téë] END TO záðõóë WAIT 300 MAKE "z RC IF :z = "5 [ráâïôá STOP] [záðõóë] END TO påþ :sôò :pïú :zî SETC [:sôò :pïú] WAIT 100 PRINT [X] SETC [:sôò :pïú] WAIT 200 PRINT :zî END TO mïä sèåíá SETC [22 1] WAIT 2000 PRINT [záäáêôå sìáçáåíïå 1 (d÷ïéþîïå, ~åôùòåèúîáþîïå)] MAKE "sì1.3 { påþ 2 18 :sì1.3 MAKE "sì1.2 { påþ 2 33 :sì1.2 MAKE "sì1.1 { påþ 2 48 :sì1.1 MAKE "sì1.0 { påþ 2 63 :sì1.0 SETC [22 1] WAIT 800 PRINT [* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *] WAIT 500 PRINT [záäáêôå sìáçáåíïå 2 (tïöå d÷ïéþîïå i ~åôùòåèúîáþîïå)] MAKE "sì2.3 { påþ 4 21 :sì2.3 MAKE "sì2.2 { påþ 4 36 :sì2.2 MAKE "sì2.1 { påþ 4 51 :sì2.1 MAKE "sì2.0 { påþ 4 66 :sì2.0 WAIT 500 SETC [23 1] TYPE [* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *] SETC [22 1] PRINT [* * * * * * * záðõóôéôå sõííáôïò - náöíéôå " 5 "] záðõóë END TO sèåíá SETBG 1 SS CS SETPC 7 SETSCRUNCH 0.85 RT 180 uóô0 FD 20 EL FD 125 BK 125 RT 90 FD 20 LT 90 FD 15 RT 90 FD 75 LT 90 uóô1 ráúò RT 90 FD 50 RT 90 FD 100 LT 90 FD 40 LT 90 uóô2 ráúò RT 90 FD 50 RT 90 FD 100 LT 90 FD 40 LT 90 uóô3 ráúò FD 10 HT TS MAKE "pïú 19 REPEAT 4 [SETC [6 :pïú] PR [pó] MAKE "pïú :pïú + 15] MAKE "pïú 22 REPEAT 3 [SETC [11 :pïú] PR [pó] MAKE "pïú :pïú + 15] MAKE "pïú 19 REPEAT 3 [SETC [16 :pïú] PR [iìé] MAKE "pïú :pïú + 15] SETC [2 1] PR [sìáçáåíïå 1] SETC [4 1] PR [sìáçáåíïå 2] SETC [20 1] PR [sõííá] END TO uóô0 PU SETY 120 SETX 182 PD END TO uóô1 PU SETY 120 SETX 62 PD END TO EL FD 10 LT 90 FD 30 REPEAT 4 [RT 90 FD 40] BK 10 RT 90 BK 10 PU FD 50 PD END TO ráúò FD 20 EL FD 10 LT 90 FD 5 RT 90 FD 5 EL FD 60 BK 60 RT 90 FD 20 LT 90 FD 20 LT 90 FD 10 REPEAT 2 [RT 90 FD 20 RT 90 FD 40] BK 30 RT 90 BK 85 PU FD 105 LT 90 FD 10 RT 90 PD FD 10 END TO uóô2 PU SETY 120 SETX - 58 PD END TO uóô3 PU SETY 120 SETX - 178 PD END TO { MAKE "A RC IF :A = "1 [OP "1] [IF :A = "0 [OP "0] [SOUND [600 150] {]] END