19999 END ⌡20000 REM ═стринг═суброутине║═⌡20010 REM SET PNUM = 1 TO 4⌡20020 REM SET PLYR = 0 TO 9⌡20030 REM SET HPOS = 0 TO 255⌡20050 REM SET VPOS = 0 TO 127⌡20060 REM SET CLEAR = 1 FOR CLEAR                           0 FOR MOVE⌡20070 REM ═рефер═то═тедит╡ад╝доц═⌡20080 REM ═филе═фор═фуртхур═хелп═⌡20090 REM ═══ажаилабле═он═лаце═══⌡20100 REM ══════╦╟╤╜╥╤Ё╜╢╥╠╤═════⌡20101 IF PNUM<1 OR PNUM>4 OR PLYR<0 OR PLYR>9 OR HPOS<0 OR HPOS>255 OR VPOS<0 OR VPOS>127 THEN ? "SUB ERROR!":END ⌡20109 REM ═цлеар═плаыер═⌡20110 IF CLEAR=1 AND PNUM=1 THEN P1$=CLEAR$:CLEAR=0:RETURN ⌡20120 IF CLEAR=1 AND PNUM=2 THEN P2$=CLEAR$:CLEAR=0:RETURN ⌡20130 IF CLEAR=1 AND PNUM=3 THEN P3$=CLEAR$:CLEAR=0:RETURN ⌡20140 IF CLEAR=1 AND PNUM=4 THEN P4$=CLEAR$:CLEAR=0:RETURN ⌡20145 REM ═сет═хоризонтал═поситион═⌡20150 POKE 53247+PNUM,HPOS⌡20160 REM ═сет═жертицал═поситион═⌡20170 IF PNUM=1 THEN P1$(VPOS+1)=PDATA$(PLYR*15+1,(PLYR+1)*15)⌡20180 IF PNUM=2 THEN P2$(VPOS+1)=PDATA$(PLYR*15+1,(PLYR+1)*15)⌡20190 IF PNUM=3 THEN P3$(VPOS+1)=PDATA$(PLYR*15+1,(PLYR+1)*15)⌡20200 IF PNUM=4 THEN P4$(VPOS+1)=PDATA$(PLYR*15+1,(PLYR+1)*15)⌡20210 RETURN ⌡