5 INPUT"νΑΣΫΤΑΒ";I:J=INT(I)*4 '0³I³5
10 SCREEN 2:PSET(3,10):DRAW"s=j;"
20 DRAW"e1d4l1r2be4":DRAW"r1f1d1g2r2be4"
40 DRAW"r1f1g1f1g1l1be4":DRAW"br2d2r2nr1nu2d2be4"
60 DRAW"nr2d2r2d2l2be4":DRAW"br2nr2d4r2u2l2be4"
80 DRAW"bf2r2d1g1d2be4":DRAW"bf1e1r1f1g1l1h1f1g1f1r1e1h1be4":DRAW"bd2nr2d2r2nu2d2l2":B$=INPUT$(1)