TO DRUCK :STRING LEFT_BLANK PRINT :STRING END TO LEFT_BLANK REPEAT 15 [TYPE "] END TO LINE_FEED REPEAT 6 [PR "] END TO ~εςεπαϋεώλα SETBG 5 SETMODE [5 5] HOME CLEARTEXT LINE_FEED LEFT_BLANK SETMODE [0 7] TYPE [> > > > > gςαζιώεσλικ rεδαλτος ~εςεπαϋεώλα < < < < <] SETMODE [0 5] LINE_FEED SHOWTURTLE DRUCK [R nαπςαχο] DRUCK [L nαμεχο] DRUCK [F bωστςεε] DRUCK [B mεδμεξξεε] DRUCK [E zαλοξώιτψ] PRINT [] PRINT [nαφνιτε lΰβυΰ kμαχιϋυ] MAKE "C KEYP MAKE "C READCHAR FULLSCREEN SETBG 0 SETPENCOLOR 7 SETMODE [7 0] MAKE "D 1 SETTURTLECOLOR 8 LOOP [FORWARD :D IF KEYP [MAKE "C READCHAR IF :C = "R [RIGHT 15] [] IF :C = "L [LEFT 15] [] IF :C = "F [MAKE "D :D + 0.1] [] IF :C = "B [MAKE "D :D - 0.1] [] IF :C = "E [TEXTSCREEN SETMODE [7 0] PRINT [rαβοτα oλοξώεξα] STOP] []] []] END TO START_UP ~εςεπαϋεώλα END