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       ¸°¶­·¶³­´·±¶     ›20109 REM  ÃÌÅÁÒ ÐÌÁÙÅÒ ›20110 IF CLEAR=1 THEN Q=USR(ADR("hh…Ìh…Ëhhªhh¨ˆŠ‘˘Ðù`"),PMBASE+512+(PNUM-1)*128,0,128):CLEAR=0:RETURN ›20145 REM  ÓÅÔ ÈÏÒÉÚÏÎÔÁÌ ÐÏÓÉÔÉÏΠ›20150 POKE 53247+PNUM,HPOS›20160 REM  ÓÅÔ ÖÅÒÔÉÃÁÌ ÐÏÓÉÔÉÏΠ›20170 Q=USR(ADR(MOVE$),PMBASE+PLYR*15,PMBASE+512+VPOS+(PNUM-1)*128,15)›20210 RETURN ›