Commodore Plus 4 - Page 91

BASIC Version 3.8 Commands, Functions, and System Variables 79
1 REM POLYGON PROGRAM
10 INPUT "HOW MANY SHARES";T
15 COLOR 1,9,5
SO GRAPHIC 1,1
30 CIRCLE, 160,100,60,50,,,,360/T
45 PAINT, 160,100
RENUMBER 25, SO, 10
LIST
1 REM POLYGON PROGRAM
S5 INPUT "HOW MANY SHARES";T
45 COLOR 1,9,5
65 GRAPHIC 1,1
85 CIRCLE, 160,100,60,50,,,,360/T
105 PAINT, 160,100
RESTORE
RESTORE line number
Begins at line 10 to renumber in
increments of 20. The first new
line number is 25.
Abbr. reS
Resets the data pointer that keeps track of the last item READ in a DATA
command. Once the DATA command is reset, the values in the DATA command
can be assigned again to READ variables. RESTORE does not affect READ
commands or any other commands. You can reset to the beginning of the first
DATA command in the program or to any DATA command in the program.
Parameter: line number
Example:
The line number parameter is optional. If you omit it, the pointer returns to the
first DATA item in the first DATA command. If you specify a line number, the
pointer is reset to the first DATA value in the first DATA command after that
line. Data in previous DATA commands would not be reused.
10 DATA 1,2, 3
SO DATA 7, 8, 9
30 READ A, B, C, D, E, F
40 PRINT A; B; C; D; E; F
50 RESTORE SO
60 READA,B,C
70 PRINTA;B;C
RUN
1 S 3 7 8 9
7 8 9
The RESTORE command in line 50 resets
the DATA pointer to the beginning of line
20. The READ command in line 60
reREADs the DATA values in line 20.