DATA and READ Statements

Store information within your program using DATA statements, then retrieve it with READ.

Basic Syntax

10 DATA 10, 20, 30, 40, 50
20 FOR I = 1 TO 5
30 READ X
40 PRINT X
50 NEXT I

Strings and Numbers Together

10 DATA "APPLE", 5, "BANANA", 3, "CHERRY", 7
20 FOR I = 1 TO 3
30 READ F$, Q
40 PRINT F$; " - QUANTITY:"; Q
50 NEXT I

Using RESTORE

RESTORE resets the DATA pointer to read from the beginning again:

10 DATA 1, 2, 3
20 READ A, B, C
30 PRINT A; B; C
40 RESTORE
50 READ X, Y, Z
60 PRINT X; Y; Z : REM PRINTS SAME VALUES!

Practical Example: High Score Table

10 PRINT CHR$(147); "HIGH SCORES"
20 PRINT "============="
30 DATA "ACE", 50000
40 DATA "BOB", 42000
50 DATA "CAT", 38500
60 DATA "DAN", 25000
70 DATA "EVE", 12000
80 FOR I = 1 TO 5
90 READ N$, S
100 PRINT I; ". "; N$; TAB(10); S
110 NEXT I

Music Note Data

10 REM MUSICAL SCALE FREQUENCIES
20 DATA 17,37, 19,63, 21,154, 22,227
30 DATA 25,30, 28,49, 31,165, 33,135
40 REM HI-BYTE, LO-BYTE FOR EACH NOTE