4 X  `>1000VI.7:A$(I)""::n"";:YI1Y::t(56,24::Z.7:A%(Z)2Z::9000:M$"""1.CHANGE CHAR":"2.SEE VALUES":"3.END":QZ8A$:A$"1"A$"5"1050 $(A$)1070,6000:H."DISPLAY MATRIX OF ? (RETURN FOR NOTHING)":X.:Y.:2019100:9200:A32I.7:A$(I)"........"::C$"":10804I.7:J7.1:A$".":(PI)A%(J)A$"*5A$(I)A$(I)A$:A$;::::C$""8C$;:I.7:A$(I)::Q$"":QZ93="'_' FOR NEW MATRIX":"'RETURN' TO ENTER"i>"'*' TO WRITE PIXEL":"'SPACE' TO ERASE PIXEL"G30:A$A$(Y):(A$,1,X)Q$(A$,X1,1)""(A$,X2)L5010:A$:A$""Q$"":QZ5:1110Q1095VA$""OYY:Y(Y1)7`A$""1000jA$""X(X1)7(tA$""X(X1)7C~A$""OYY:Y(Y1)7WA$""X.:Y.hA$"_"1070A$""198,1:631,32:1073A$"*"A$(Y)(A$(Y),X)"*"(A$(Y),X2):X(X1)7A$" "A$(Y)(A$(Y),X)"."(A$(Y),X2):X(X1)7&xVY:YOY:30:YV:A$(OY):A$(13)1095@"OK?";TA$:A$""1510q" ";:A$"Y"1090"REPLACE ? ";A$:A$""1540A$(7910)32A$" "1530B$:B$""1560"B$(20)"";:1530 ,B$(13)1560,69200:I.7:A$(I)::"";bJI.7:T.:J.7:(A$(I),7J1,1)"*"TTA%(J)wT:PI,T:8)T:^A$:A$""1630h1010QZQZ1:QZ.QZ8:M(M1)1:Q$(M$,M1,1)p"WHICH CHARACTER ?zA$:A$""6010 ""A$:A(7680)P6144A81I.7:(IP):EA$:A$""6050P 1010d(#(36869)254{-#36869,254:4103:#A$:A$""9100##""A$:A(7680):P6144A8:"";: