10 A=PEEK(140)+PEEK(141)*256-82›20 POKE 141,INT(A/256):POKE 140,A-PEEK(141)*256›30 POKE 143,INT(A/256):POKE 142,A-PEEK(143)*256›40 POKE 145,INT(A/256):POKE 144,A-PEEK(145)*256›50 DIM A$(10),B(2,3)›70 ? A$›80 FOR I=0 TO 2›90 FOR J=0 TO 3›100 ? B(I,J),›110 NEXT J›120 ? ›130 NEXT I›140 ? "STRING=";:INPUT A$›150 ? "I=";:INPUT I›160 IF I=9 THEN 200›170 ? "J=";:INPUT A:B(I,J)=A›190 GOTO 150›200 A=PEEK(140)+PEEK(141)*256›210 A=A+82›220 POKE 141,INT(A/256):POKE 140,A-PEEK(141)*256›230 CSAVE ›