10 REM *** נעיםוע הלס הצןךףפיכב ***
20 SCREEN 5:CLS
30 C=15
40 XX=127:YY=96
50 PSET (XX,YY),C
60 ON STICK (1) GOSUB 100,110,120,130,140,150,160,170
70 IF STRIG (1) THEN PSET (X,Y),C ELSE PRESET STEP (0,0)
80 IF STRIG (3) THEN CLS:GOTO 40
90 GOTO 50
100 Y=Y-2:RETURN
110 X=X+2:Y=Y-2:RETURN
120 X=X+2:RETURN
130 X=X+2:Y=Y+2:RETURN
140 Y=Y+2:RETURN
150 X=X-2:Y=Y+2:RETURN
160 X=X-2:RETURN
170 X=X-2:Y=Y-2:RETURN
180 END