TO COD
  MAKE "MIT READCHAR
  PR ASCII :MIT
END
TO S
  TS CLEARTEXT
  SETC [5 10] PR [m u z y k a l x n y j] SETC [5 35] PR [r e d a k t o r .]
  SETC [9 15] PR [aχτος fιξλεμψϋτεκξ dινα]
  SETC [11 17] PR [g. lεξιξηςαδ]
  SETC [13 18] PR [521 {λομα.]
  SETC [22 20] PR [nαφνιτε pςοβεμ]
  MAKE "Q READCHAR
  NAME [] "LG
  NAME [] "GR
  NAME [] "L
  NAME [] "R
  MAKE "F 0
  NAME [] "C
  M1 M
END
TO M
  LOOP [MAKE "Q READCHAR IF EQUALP :Q CHAR 81 [TOPLEVEL] [IF EQUALP :Q CHAR 80 [AY] [IF EQUALP :Q CHAR 86 [V] [IF EQUALP :Q CHAR 90 [Z1] [IF EQUALP :Q CHAR 83 [S1] [IF EQUALP :Q CHAR 73 [IM] [IF EQUALP :Q CHAR 67 [IC] [IF EQUALP :Q CHAR 72 [H] []]]]]]]] IF EQUALP :Q CHAR 71 [RG] [] IF EQUALP :Q CHAR 68 [IG] []]
END
TO AY
  SETCURSOR [13 1]
  PR [pοδβιςαξιε mεμοδιι]
  B
END
TO Z1
  CLEARTEXT
  PR [~το wω hοτιτε (z - zαπισψ / s - sώιτωχαξιε) ?]
  MAKE "Q READCHAR
  IF EQUALP :Q CHAR 90 [] [SCH STOP]
  TYPE [wχεδιτε iνρ fακμα. (tςι bυλχω)]
  MAKE "U READCHAR TYPE :U
  MAKE "UE READCHAR TYPE :UE
  MAKE "UC READCHAR PR :UC
  PR [eσμι gοτοχω nαφνιτε lΰβυΰ kμαχιϋυ ?]
  MAKE "Q READCHAR
  WRITE :C :U
  WRITE :GR :UE
  WRITE :LG :UC
  M1
END
TO S1
  SETCURSOR [9 1]
  PR [sτιςαξιε mεμοδιι]
  NAME [] "C
  NAME [] "L
  NAME [] "R
  M1
END
TO IM
  SETCURSOR [13 1]
  PR [iσπομξεξιε mεμοδιι]
  MAKE "U 1
  REPEAT COUNT :L [SOUND [ITEM :U :R ITEM :U :L] MAKE "U :U + 1]
  M1
END
TO IC
  SETCURSOR [13 1]
  NAME [] "L NAME [] "R
  MAKE "E 0 MAKE "O 3 MAKE "U 0 MAKE "F COUNT :C MAKE "I1 636 PR [kονπιμιςοχαξιε mεμοδιι] REPEAT :F [MAKE "U :U + 1 MAKE "Q ITEM :U :C IF EQUALP :Q CHAR 67 [MAKE "Y 1] [IF EQUALP :Q CHAR 68 [MAKE "Y 3] [IF EQUALP :Q CHAR 69 [MAKE "Y 5] [IF EQUALP :Q CHAR 70 [MAKE "Y 6] [IF EQUALP :Q CHAR 71 [MAKE "Y 8] [IF EQUALP :Q CHAR 65 [MAKE "Y 10] [IF EQUALP :Q CHAR 66 [MAKE "Y 12] [IF EQUALP :Q CHAR 73 [MAKE "Z ITEM :U + 1 :C MAKE "I1 1000 / LO MAKE "E 1] [IF EQUALP :Q CHAR 79 [MAKE "Z ITEM :U + 1 :C MAKE "O LO MAKE "E 1] [MAKE "E 1]]]]]]]]] IF EQUALP :E 1 [] [MAKE "G 32 * (6 - :O) - 2.5 * (:Y - 1) TYPE ITEM :U :C NAME LPUT :G :L "L NAME LPUT :I1 :R "R SOUND [:I1 :G]] MAKE "E 0] M1
END
TO H
  CLEARTEXT
  PR [] TYPE [] PR [dαξξαρ pςοηςαννα - |το sχοεοβςαϊξωκ qϊωλ, nα kοτοςον mοφξο wχοδιτψ i iσπομξρτψ rαϊμιώξωε mεμοδιι.]
  PR [] TYPE [] PR [mεμοδιι mοφξο wχοδιτψ lατιξσλινι sινχομανι C - dο, D - rε, E - mι, F - fα, G - sομψ, A - lρ, B - sι.w pυξλτε mεξΰ - "wχοδ mεμοδιι ".~τοβω iϊνεξιτψ dμιτεμψξοστψ mοφξο wχεστι I N , gδε N - nονες nυφξοκ dμιτεμψξοστι.pςεδωδυύικ nονες sτιςαετσρ.aξαμοηιώξο mεξρετσρ nονες oλταχω (dιςελτιχα o)]
  PR [] PR [mεμοδιι mοφξο wχοδιτψ tαλφε w w gςαζιώεσλον rεφινε. eσμι nε zξαετε kαλ, wωκδιτε w gςαζιώεσλικ rεφιν i nαφνιτε 'H'.]
  PR [] PR [eσμι wω wχοδιτε mεμοδιΰ gςαζιώεσλι,tο ~τοβω eε iσπομξιτψ,nεοβθοδινο wωκτι w mεξΰ kμαχιϋεκ '.' i wωβςατψ pυξλτ "iσπομξεξιε gςαζιώεσλιθ mεμοδικ. "]
  PR [] PR [mεμοδιι nαβςαξξωε lατιξσλινι bυλχανι nεοβθοδινο wξαώαμε oτλονπιμιςοχατψ] PR [dιςελτιχοκ 'C',]
  MAKE "J READCHAR
  CLEARTEXT PR [] PR [] PR [] PR [] PR [a pοτον iσπομξρτψ w pυξλτε "iσπομξεξιε mεμοδιι "] PR [] PR [w rεφινε pοδβος nοτω mοφξο pοδοβςατψ nεοβθοδινυΰ nοτυ]
  PR [] PR [wωθοδ iϊ wσεθ rεφινοχ w mεξΰ kμαχιϋα '.'.]
  SETC [20 20] PR [nαφνιτε pςοβεμ] MAKE "J READCHAR M1
END
TO RG
  MAKE "K 36
  MAKE "BD 0
  NAME [] "L NAME [] "R
  SETPC 6 SS CLEARTEXT GK RD MAKE "NN 1
  PU SETPOS [:NN * 10 - 300 0] MAKE "TW 0
  LOOP [UN :NN IF EQUALP :WS CHAR 46 [M1 STOP] [] IF EQUALP :WS CHAR 95 [UDS] [IF OR EQUALP :BD 1 EQUALP :BD (- 1) [BDU] [] RDN MM MAKE "NN :NN + 1 SETH 0 MAKE "BD 0] IF EQUALP :NN 21 [CLEAN GK RD MAKE "NN 1] []]
END
TO IG
  SETCURSOR [13 1]
  PR [iσπομξεξιε gςαζιώεσλοκ mεμοδιι]
  MAKE "U 1
  REPEAT COUNT :LG [SOUND [ITEM :U :GR ITEM :U :LG] MAKE "U :U + 1]
  M1
END
TO B
  LOCAL "Y1
  LOOP [MAKE "Y1 READCHAR IF EQUALP :Y1 CHAR 67 [X 96] [IF EQUALP :Y1 CHAR 85 [X 92] [IF EQUALP :Y1 CHAR 75 [X 87] [IF EQUALP :Y1 CHAR 69 [X 84] [IF EQUALP :Y1 CHAR 78 [X 79] [IF EQUALP :Y1 CHAR 71 [X 77] [IF EQUALP :Y1 CHAR 91 [X 72] [IF EQUALP :Y1 CHAR 93 [X 67] [IF EQUALP :Y1 CHAR 46 [M1 STOP] [X 60]]]]]]]]]]
END
TO M1
  TS
  CLEARTEXT
  PR [P - pοδβιςαξιε nοτω.]
  PR [V - wχοδ mεμοδιι.]
  PR [G - gςαζιώεσλικ wχοδ mεμοδιι.]
  PR [S - uξιώτοφεξιε mεμοδιι.]
  PR [C - kονπιμιςοχαξιε mεμοδιι.]
  PR [Z - ~τεξιε / zαπισψ mεμοδικ s dισλα.]
  PR [H - pονούψ.]
  PR [I - iσπομξεξιε mεμοδιι.]
  PR [D - iσπομξεξιε gςαζιώεσλιθ mεμοδικ.]
  PR [Q - kοξεγ.]
END
TO SCH
  LOCAL "U
  PR [sώιτωχαξιε fακμα]
  TYPE [wχεδιτε iνρ fακμα]
  MAKE "U READCHAR TYPE :U
  MAKE "UE READCHAR TYPE :UE
  MAKE "UC READCHAR PR :UC
  PR [eσμι wω gοτοχω nαφνιτε lΰβυΰ kμαχιϋυ]
  MAKE "Q READCHAR
  READ "C :U
  READ "GR :UE
  READ "LG :UC
  NAME ITEM 1 :LG "LG
  NAME ITEM 1 :GR "GR
  NAME ITEM 1 :C "C
  M1
END
TO GK
  WRAP HT SS HOME PU SETPOS [- 270 50] RT 90 REPEAT 2 [PD FD 650 RT 90 PU FD 10 RT 90 PD FD 650 LT 90 PU FD 10 LT 90 PD] FD 650
  PU SETPOS [- 315 50] RT 90 PD HT FD 40 RT 90 FENCE FD 26 RT 90 FD 40
END
TO RD
  WRAP
  SETC [3 6] TYPE [1] SETC [3 19] TYPE [2] SETC [3 32] TYPE [4] SETC [3 45] TYPE [8] SETC [3 58] TYPE [16] SETC [3 71] TYPE [32]
  MAKE "K 1 MAKE "TW - 12
  REPEAT 6 [RN1 :K MAKE "K :K + 7] MAKE "K 8
  REPEAT 5 [PU SETPOS [:K * 15 - 290 5 * (- 12)] SETH 0 PD FD 15 MAKE "K :K + 7] MAKE "K 22 MAKE "KD 1 REPEAT 3 [PU SETPOS [:K * 15 - 290 5 * (- 12) + 15] PD REPEAT :KD [SETH 135 FD 9 BK 9 SETH 180 FD 3] MAKE "K :K + 7 MAKE "KD :KD + 1] PU SETPOS [- 275 - 4 (- 60)] DYE 6 SETPOS [- 170 - 4 (- 60)] DYE 6
END
TO UN :N1
  LOOP [MAKE "WS READCHAR IF EQUALP :WS CHAR 72 [HG] [] SETPC 1 DOT [:N1 * 25 - 290 :TW * 5] IF EQUALP :WS CHAR 65 [MAKE "TW :TW + 1] [IF EQUALP :WS CHAR 66 [MAKE "TW :TW - 1] []] SETPC 6 DOT [:N1 * 25 - 290 :TW * 5] IF OR EQUALP :WS CHAR 46 EQUALP :WS CHAR 67 [STOP] [] IF EQUALP :WS CHAR 68 [UD] [] IF EQUALP :WS CHAR 95 [STOP] [] IF EQUALP :WS CHAR 43 [MAKE "BD 1] [IF EQUALP :WS CHAR 45 [MAKE "BD - 1] []]]
END
TO UDS
  MAKE "NN :NN - 1
  NAME BUTLAST :LG "LG
  NAME BUTLAST :GR "GR
END
TO BDU
  PU
  SETPOS [:NN * 25 - 290 :TW * 5]
  IF EQUALP :BD 1 [SETH 270 PU FD 11 SETH 0 BK 6 PD FD 12 LT 90 PU FD 4 LT 90 PD FD 12 RT 90 PU FD 1 SETH 0 FD 3 SETH 90 PD FD 5 LT 90 PU FD 6 SETH 270 PD FD 5] [SETH 270 PU FD 13 PD SETH 0 BK 5 FD 10 BK 10 SETH 0 RT 60 FD 4 LT 60 FD 4]
END
TO RDN
  PU RN :NN SETPOS [:NN * 25 - 290 :TW * 5] PD IF EQUALP :K 1 [PU SETH 270 FD 4 RT 90 FD 2 DYE 6 SETH 180 FD 5 DYE 6 STOP] [] IF EQUALP :K 8 [PU SETH 270 FD 4 RT 90 FD 2 DYE 6 SETH 180 FD 5 DYE 6 BK 3 SETH 90 FD 4 SETH 0 PD FD 15 STOP] [] IF EQUALP :K 15 [SETH 0 PD FD 15 STOP] [] IF EQUALP :K 22 [SETH 0 PD FD 15 SETH 135 FD 9 STOP] [] IF EQUALP :K 29 [SETH 0 PD FD 15 SETH 135 FD 9 BK 9 SETH 180 FD 3 SETH 135 FD 9 STOP] [] IF EQUALP :K 36 [SETH 0 PD FD 15 SETH 135 FD 9 BK 9 SETH 180 FD 3 SETH 135 FD 9 BK 9 SETH 180 FD 3 SETH 135 FD 9 STOP] []
END
TO LO
  IF EQUALP :Z CHAR 49 [MAKE "Z 1] []
  IF EQUALP :Z CHAR 50 [MAKE "Z 2] []
  IF EQUALP :Z CHAR 51 [MAKE "Z 3] []
  IF EQUALP :Z CHAR 52 [MAKE "Z 4] []
  IF EQUALP :Z CHAR 53 [MAKE "Z 5] []
  IF EQUALP :Z CHAR 55 [MAKE "Z 6] []
  IF EQUALP :Z CHAR 56 [MAKE "Z 7] []
  OP :Z
END
TO MM
  MAKE "Y :TW - (INT :TW / 7) * 7
  MAKE "O INT :TW / 7 + 3
  IF :Y > 3 [MAKE "Y :Y * 2 - 2] [MAKE "Y :Y * 2 - 1]
  MAKE "Y :Y + :BD
  MAKE "G 32 * (6 - :O) - 2.5 * (:Y - 1)
  NAME LPUT :G :LG "LG
  MAKE "Z (:K - 1) / 7
  MAKE "Z :Z + 1
  MAKE "I1 1000 / LO
  NAME LPUT :I1 :GR "GR
  SOUND [:I1 :G]
END
TO RN :N2
  HT PU SETH 0
  SETPOS [:N2 * 25 - 290 :TW * 5] PD REPEAT 12 [LT 30 FD 2]
END
TO UD
  PU ST SETH 180 SETPOS [- 275 (- 35)] MAKE "K 1
  LOOP [MAKE "WS READCHAR IF EQUALP :WS CHAR 67 [MAKE "K :K + 7] [] IF EQUALP :WS CHAR 68 [MAKE "K :K - 7] [] SETPOS [:K * 15 - 290 (- 35)] IF EQUALP :WS CHAR 66 [HT STOP] []]
END
TO V
  SETCURSOR [13 1]
  PR [wχοδ mεμοδιι]
  MAKE "F COUNT :C
  MAKE "P 0
  REPEAT :F [MAKE "P :P + 1 TYPE ITEM :P :C]
  LOOP [MAKE "A READCHAR IF EQUALP :A CHAR 46 [M1 STOP] [] IF EQUALP :A CHAR 95 [NAME BUTLAST :C "C TYPE CHAR 95] [] TYPE :A NAME LPUT :A :C "C]
END
TO HG
  CLEARTEXT
  PR []
  PR []
  PR [~τοβω nαβςατψ nοτυ, wξαώαμε s pονούψΰ kμαχιϋι < - wωκδιτε]
  PR [w rεφιν wωβιςαξιρ dμιτεμψξοστι. pοτον s pονούψΰ kμαχιϋ < - i - >]
  PR [wωβεςιτε nυφξυΰ dμιτεμψξοστψ.wωθοδ kμαχιϋα !]
  SETC [6 44] PR [V]
  PR [eσμι hοτιτε dιεϊ iμι bενομψ tο nαφνιτε pεςεδ wχοδον nοτω ' + ' iμι ' - ']
  MAKE "Q READCHAR
  CLEARTEXT
END
TO RN1 :N2
  HT PU SETH 0
  SETPOS [:N2 * 15 - 290 :TW * 5] PD REPEAT 12 [LT 30 FD 2]
END
TO X :Q
  SOUND [200 :Q]
END