10 PRINT X(1): DIM A(5),A$(X(Y)),NAME$(10),Y(5),Z(5),C(5)
20 INPUT "ENTER SUBSTRING", SUB$(5): INPUT "ENTER NAME", NAME$
30 FOR I = 1 TO 10 STEP 2: Y1(I) = X(I): NEXT I
40 INPUT A(2): PRINT A
50 C(3) = 0: Y(4) = 4: A$ = "YES"