MODULE SET 712=5››PROC TX(BYTE X,Y CHAR ARRAY T)BYTE Q1,Q2,Q3 Q3=T(0)FOR Q1=1 TO Q3 DO Q2=T(Q1)POKE(39840+X+Y*40+Q1-1,Q2)OD RETURN›PROC FILL(BYTE X,Y,X1,Y1,CO)BYTE Q1,Q2 FOR Q1=X TO X+X1 DO FOR Q2=Y TO Y+Y1 DO POKE(39840+Q1+Q2*40,CO)OD OD RETURN›››PROC KPLA()›FOR Q1=0 TO 10 DO KOZ(Q1)=0 OD››IF PLA=4 THEN GR()››WEK1=PEEKC(@ OK1)›WEK2=PEEKC(@ PPLG4)››MOVEBLOCK(WEK1,WEK2,48)›FILL(0,14,39,4,46)›FILL(0,0,6,14,45)›FILL(34,0,5,14,113)›FILL(7,0,0,10,120)›TX(0,0,"tuuutuuv")›TX(7,3,"w")TX(7,7,"w")›TX(7,11,"w")›TX(7,12,"y")›TX(7,13,"z")›FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,15)OD FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,16)OD›FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,17)OD FOR Q1=0 TO 38 STEP 3 DO HOD(Q1,18)OD TX(39,15,"H")TX(39,16,"H")TX(39,17,"H")TX(39,18,"H")›SKR(8,12,5)SKR(12,12,113)SKR(16,12,5)SKR(20,12,5)SKR(24,12,5)›SKR(11,8,5)SKR(15,8,5)SKR(19,8,5)›SKR(14,4,113)›SKR(29,12,5)››››