4 X  `G56,24::9000\"1.CHANGE CHARq"2.LOAD CHARSET"3.SAVE CHARSET"4.SEE VALUES"5.ENDA$:A$"1"A$"5"1050$(A$)1070,3000,4000,6000,5000 ."DISPLAY MATRIX OF ? (RETURN FOR NOTHING)":X0:Y0V19100:9200:A32I07:A$(I)"........"::10804I07:A$(I)"":J07:A$".":(PI)2(7J)A$"*"5A$(I)A$(I)A$:J,I8"";:I07:A$(I):="'_' FOR NEW MATRIX":"'RETURN' TO ENTER"+>"'*' TO WRITE PIXEL":"'SPACE' TO ERASE PIXEL"CB"";:YI1Y::xL(A$(Y),X)""(A$(Y),X1,1)""(A$(Y),X2):OYYV9100:A$""Y(Y1)7jA$""X(X1)7tA$""X(X1)7~A$""Y(Y1)7A$""X0:Y0A$"_"1070A$""X0:Y0:1073MA$"*"A$(Y)(A$(Y),X)"*"(A$(Y),X2):X(X1)7A$" "A$(Y)(A$(Y),X)"."(A$(Y),X2):X(X1)7x""A$(OY):A$(13)1090"OK?";A$:A$""1510" ";:A$"Y"1090"REPLACE ? ";#A$:A$""1540+A$H(7910)32A$" "1530\B$:B$""1560v"B$(20)"";:1530,B$(13)156069200JI07:T0:J07:(A$(I),7J1,1)"*"TT2JTJ:PI,T:T:I^A$:A$""1630h1010p"WHICH CHARACTER ?-zA$:A$""6010B""A$:A(7680)QP6144A8fI07:(IP):zA$:A$""6050 1010(#(36869)254-#36869,254:4103:#A$:A$""9100##""A$:A(7680):P6144A8:"WORKING !!":