TO wσταχιτψ_w_kοξεγ :X :Y LPUT :X :Y END TO wσταχιτψ_w_nαώαμο :X :Y FPUT :X :Y END TO uξιώτοφιτψ_wσε ERALL END TO uξιώτοφιτψ_iνρ :I ERN :I END TO uξιώτοφιτψ_pςογεδυςυ :I ERASE :I END TO tοώλα :C DOT :C END TO rαϊνες :O OP COUNT :O END TO iστιξα OF TRUE END TO lοφψ OP FALSE END TO @@@ :L LOCAL "U IF EMPTYP :L [STOP] [] MAKE "U FIRST :L IF PRIMITIVEP :U [] [TYPE :U] @@@ BF :L END TO sοδεςφινοE @@@ .CONTENTS END TO oώιστι CLEAN END TO sινχομ :N OP CHAR :N END TO pοσμεδξικ :L OP LAST :L END TO pεςχωκ :L OP FIRST :L END TO kςονεποσμ :L OP BL :L END TO kςονεπεςχ :L OP BF :L END TO fοξ :N OP BG END TO sινλοδ :C OUTPUT ASCII :C END TO iμι :X :Y OUTPUT OR :X :Y END TO i :X :Y OUTPUT AND :X :Y END TO sδεμακ :X :Y MAKE :X :Y END TO wπεςεδ :N FORWARD :N END TO nαϊαδ :N BACK :N END TO wμεχο :N LEFT :N END TO wπςαχο :N RIGHT :N END TO pοχτοςι :N :L REPEAT :N :L END TO rεδαλτιςυκ :I EDIT :I END TO pεώατακ :X PRINT :X END TO gςαζιλα FULLSCREEN END TO tελστ TEXTSCREEN END TO ON_ERROR TEXTSCREEN PRINT " (PRINT "oϋιβλα "nονες ERROR) END TO zαλςασψ :C DYE :C END