5030 L=PEEK(DLIST+4)+44:POKE DLIST+5,PEEK(DLIST+5)+(L>255):POKE DLIST+4,L-256*(L>255)›5040 FOR LINE=2 TO 12:POKE DLIST+4+LINE,22:NEXT LINE›5180 MEM1=PEEK(DLIST+4)+PEEK(DLIST+5)*256›