30 VTAB 7: PRINT "THIS PROGRAM DEMONSTRATES THE TECHNIQUES": PRINT "DESCRIBED IN THIS ARTICLE."
40 GOSUB 260
50 INVERSE : PRINT "THE INPUT STATEMENT": NORMAL
60 VTAB 7: INPUT "ENTER YOUR FIRST NAME: ";A$
70 VTAB 8: INPUT "ENTER YOUR LAST NAME: ";B$
80 VTAB 11: PRINT "YOUR NAME IS: ";A$" ";B$
90 GOSUB 260
100 INVERSE : PRINT "LEFT$,RIGHT$,AND MID$": NORMAL
110 A$ = A$ +B$
120 VTAB 7: PRINT "THE FIRST 3 LETTERS OF YOUR NAME: "; LEFT$(A$,3)
130 VTAB 10: PRINT "THE LAST 3 LETTERS OF YOUR NAME: "; RIGHT$(A$,3)
140 VTAB 13: PRINT "THE MIDDLE 3 LETTERS OF YOUR NAME: "; MID$ (A$, LEN(A$)/2,3)
150 GOSUB 260
160 INVERSE : PRINT "READ & DATA": NORMAL
170 DIM N$(10): VTAB 5: PRINT "THE FOLLOWING WORDS HAVE BEEN READ INTO": PRINT "THE ARRAY N$() FROM DATA STATEMENTS": PRINT "CONTAINED IN THIS PROGRAM:": PRINT
180 FOR X = 1 TO 10: READ N$(X): PRINT N$(X): NEXT
190 GOSUB 260
200 INVERSE : PRINT "ARRAYS": NORMAL
210 VTAB 5: PRINT "HERE IS THE CONTENTS OF THE ARRAY N$()": PRINT "READ FROM DATA STATEMENTS IN THE LAST": PRINT "SECTION:": PRINT
220 FOR X = 1 TO 10: PRINT N$(X): NEXT
230 GOSUB 260
240 PRINT "THAT'S ALL"
250 END
260 VTAB 23: PRINT "PRESS RETURN TO CONTINUE";: GET R$: PRINT R$: HOME : RETURN
270 DATA ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN
