10 REM *** נעיםוע הלס MSX1 ***
20 SCREEN 2:CLS
30 CLEAR 256,&HDFFF
40 FOR N=0 TO 127
50 READ M$:M=VAL("&H"+M$)
60 POKE &HE000+N,M
70 NEXT N
80 C=15
90 XX=127:YY=96
100 DEFUSR0=&HE000
110 ON INTERVAL=4 GOSUB 150
120 INTERVAL ON
130 PSET (XX,YY),C
140 GOTO 140
150 A=USR0(0)
160 Y=PEEK(&HE200):IF Y>127 THEN Y=Y-256
170 X=PEEK(&HE201):IF X>127 THEN X=X-256
180 XL=XX:YL=YY
190 XX=XX+X:IF XX<0 THEN XX=0 ELSE IF XX>255 THEN XX=255
200 YY=YY+Y:IF YY<0 THEN YY=0 ELSE IF YY>191 THEN YY=191
210 IF STRIG (1) THEN LINE (XL,YL)-(XX,YY),C ELSE PRESET STEP (0,0)
220 IF STRIG (3) THEN CLS:GOTO 90
230 RETURN 130
240 DATA 3E,0F,CD,96,00,E6,8F,F6,30,5F,00,3E,0F,CD,93,00
250 DATA 06,1A,10,FE,00,3E,0E,CD,96,00,57,7B,E6,8F,06,02
260 DATA 5F,10,FE,00,3E,0F,CD,93,00,3E,0F,A2,07,07,07,07
270 DATA 4F,06,07,10,FE,00,3E,0E,CD,96,00,57,7B,F6,30,5F
280 DATA 00,3E,0F,CD,93,00,3E,0F,A2,B1,67,06,07,10,FE,00
290 DATA 3E,0E,CD,96,00,57,7B,E6,8F,5F,00,3E,0F,CD,93,00
300 DATA 3E,0F,A2,07,07,07,07,06,07,4F,10,FE,00,3E,0E,00
310 DATA CD,96,00,57,3E,0F,A2,B1,6F,22,00,E2,C9,00,00,00