TO tεστ2 TS CLEARTEXT SETC [4 20] PR [nαϊοχεν sμοφξυΰ lοηιώεσλυΰ sθενυ,] PR [kοτοςαρ dαετ nα wωθοδε eδιξιγυ pςι oδιξαλοχωθ zξαώεξιρθ nα wθοδαθ,] PR [sθενοκ sοχπαδεξιρ] SETC [13 13] PR [gοτοχω rαβοτατψ sο sθενοκ sοχπαδεξιρ?] SETC [14 13] PR [nαϊοχιτε, pοφαμυκστα, sχοε iνρ (iμι iνεξα)] SETC [15 13] PR [nε zαβυδψτε w kοξγε nαφατψ kμαχιϋυ < wχοδ >] PR [] PR [] MAKE "iνρ RL SETC [20 13] PRINT [sπασιβο. nαώξεν?] WAIT 1000 MAKE "oγεξλα1 0 MAKE "oγεξλα2 0 MAKE "sπισολ [[sθ7] [sθ8]] SS SETSCRUNCH 1 B END TO QQ TS SETC [8 36] PR [lοηιώεσλιε] SETC [9 38] PR [sθενω] SETC [11 38] PR [tεστ 2] SETC [20 56] WAIT 1000 PR [nαφνιτε lΰβυΰ kμαχιϋυ...] MAKE "QQQ RC tεστ2 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 TO uστ2 CS PU SETPOS [- 200 120] RT 90 PD END TO uστ3 PU SETPOS [- 200 120] PD END TO i1 EL3 PU BK 63 LT 90 PD bι RT 90 PU FD 54 PD END TO iμι EL2 PU BK 75 PD LT 90 bι l bι RT 90 PU FD 42 PD END TO uστ4 PU SETPOS [- 200 20] PD END TO iμι1 EL3 PU BK 75 PD LT 90 bι l bι RT 90 PU FD 42 PD END TO sθ7 uστ EL4 PU BK 90 LT 90 FD 5 RT 90 PD rαχ COPYDEF "sθ7.Z "wωώ.Z END TO sθ8 uστ EL4 PU BK 90 LT 90 FD 5 RT 90 PD nεςαχ PRINT [a |το sθενα nεσοχπαδεξιρ. oξα dεμαετ wσε nαοβοςοτ.] COPYDEF "sθ8.Z "wωώ.Z END TO uστ CS PU SETPOS [- 200 80] RT 90 PD END TO EL4 FD 40 PU BK 40 RT 90 FD 40 LT 90 PD FD 40 LT 90 FD 60 ELb END TO rαχ FD 20 PU RT 90 FD 10 RT 90 PD FD 20 PU BK 90 RT 90 FD 5 RT 90 PD END TO sθ7.Z MAKE "Z OR AND :X :Y NOT OR :X :Y END TO nεςαχ FD 20 PU RT 90 FD 10 RT 90 PD FD 20 LT 90 PU FD 10 PD LT (90 + ARCTAN 3 / 2) FD SQRT 1300 RT (90 + ARCTAN 3 / 2) PU FD 15 LT 90 FD 70 PD END TO sθ8.Z MAKE "Z AND OR :X :Y NOT AND :X :Y END TO ELb REPEAT 5 [RT 90 FD 80] RT 90 FD 40 LT 90 FD 40 END TO kοξεγ (PR :oτχ [sθενα]) WAIT 1000 MAKE "N 40 REPEAT 30 [TYPE [#] SOUND [50 :N] MAKE "N :N + 1] PR [] PR [wεςθξρρ - sθενα nεσοχπαδεξιρ, nιφξρρ - sθενα sοχπαδεξιρ] WAIT 6000 REPEAT 30 [TYPE [#] SOUND [50 :N] MAKE "N :N + 1] PR [] TS 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 sθ16 uστ4 FD 20 SETY - 50 FD 60 uστ4 FD 60 PU SETY 0 PD SETY - 30 iμι1 nε LT 90 FD 30 uστ4 RT 90 FD 40 i FD 120 iμι END TO sθ15 uστ2 FD 20 SETY 50 FD 60 uστ3 FD 60 PU SETY 100 PD SETY 70 i1 nε LT 90 FD 30 uστ3 RT 90 FD 40 iμι FD 120 i END TO nε EL1 PU BK 68 LT 90 PD n e PU FD 53 PD END TO oτχετ MAKE "M RC IF :M = "1 [MAKE "oτχ "wεςθξρρ] [IF :M = "0 [MAKE "oτχ "nιφξρρ MAKE "oγεξλα2 :oγεξλα2 + 5] [SOUND [800 160] oτχετ]] END TO i EL2 PU BK 63 LT 90 PD bι RT 90 PU FD 54 PD END TO wωώ.Z MAKE "Z OR AND :X :Y NOT OR :X :Y END TO B MAKE "sώ1 0 MAKE "sώ2 0 RUN FIRST :sπισολ MAKE "sπισολ BF :sπισολ cιλμ END TO pςοδ REPEAT 5 [PRINT []] sθ15 sθ16 MAKE "oγεξλα1 :oγεξλα1 + 5 PR [a tεπεςψ pοσνοτςιτε w tετςαδψ, gδε u wασ sθενω N5 i N6 i tαβμιγω k nιν.] PR [kαλαρ iϊ nιθ qχμρετσρ sθενοκ sοχπαδεξιρ?] PR [eσμι dυναετε, ~το wεςθξρρ, nαφνιτε "1 ". w pςοτιχξον sμυώαε - "0 ".] TYPE [wαϋ oτχετ -] oτχετ kοξεγ 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εχεςξο])]] [SOUND [800 160] PR [|τοηο wοοβύε bωτψ nε mοφετ!] MAKE "{ 1]] (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πισολ [pςοδ] [WAIT 800 PR [] PR [] (PR [dοστατοώξο,] :iνρ [, pεςεκδεν K sμεδυΰύεκ sθενε]) (PR [oβύικ sώετ] :oγεξλα2 [:] :oγεξλα1) WAIT 3000 PR [] PR [] B]] END TO EL3 FD 20 PU BK 40 RT 90 FD 20 LT 90 PD FD 40 LT 90 FD 30 EL 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 l RT 45 FD SQRT 72 RT 90 FD SQRT 72 LT 45 PU FD 3 PD LT 90 END TO EL1 FD 40 LT 90 FD 20 EL 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 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 EL REPEAT 5 [RT 90 FD 40] RT 90 FD 20 LT 90 FD 40 END