|
9200
|
|
REM ZX81
| - RENUMBER LINES FROM 10 -
|
|---|
|
9205 |
|
LET N = 16509
| Adress of 1st number in memory
|
|---|
|
1910 |
|
LET G = 256
| HEX BYTE factor
|
|---|
|
1915 |
|
LET Y = 0
| Start count at 0
|
|---|
|
|
|---|
|
1920 |
|
LET X = G*PEEK (N) + PEEK (N + 1)
| This is the old line WORD number at N
|
|---|
|
1925 |
|
LET X = 9200 THEN STOP
| DONE !
|
|---|
|
1930 |
|
LET Y = Y + 10
| Start new line at No. 10
|
|---|
|
1935 |
|
POKE (N), INT (Y/G)
| New HIGH HEX No. for old HIGH HEX No.
|
|---|
|
1940 |
|
POKE (N + 1), Y - G*INT (Y/G)
| New LOW HEX No. for old LOW HEX No.
|
|---|
|
1945 |
|
LET N = N + 4 +PEEK (N +2) +G*PEEK(N + 3)
| Address plus length of this line at (N + 2)
|
|---|
|
1950 |
|
GOTO 9200
| Loop til done
|
|---|