100 REM Purpose: Verify CHANGE A$ TO X
110 REM  Author: Howard Wulf, AF5NE
120 REM    Date: 2015-03-07
130 REM
200 DIM X(6)
210 LET A$ = "SYSTEM"
220 CHANGE A$ TO X
230 LET N = X(0)
240 PRINT "N=";N
250 FOR I = 1 TO N
260 PRINT X(I);
270 NEXT I
280 PRINT
290 REM
300 DIM Y(6)
310 Y(0) = 6
320 Y(1) = ASC("H")
330 Y(2) = ASC("E")
340 Y(3) = ASC("L")
350 Y(4) = ASC("L")
360 Y(5) = ASC("O")
370 Y(6) = ASC("!")
375 B$ = "WORLD."
380 CHANGE Y TO B$
390 PRINT B$
400 END
