50 DIM A$(10),B(2,3)›70 ? A$›80 FOR I=0 TO 2›90 FOR J=0 TO 3›100 PRINT B(I,J),›110 NEXT J›120 PRINT ›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 ›