Restore to a line number
Posted: Tue Nov 23, 2010 10:55 pm
This routine will allow you to restore to a line number. The machine code routine is position independent, and DOS compatible.
Here's the same routine for Tandy Color Computer models 1, 2, and 3.
Code: Select all
10 'RESTORE-LINE-NUMBER V1.0
20 'FOR THE DRAGON 32/64
30 'BY STEPHEN J WOOLHAM
40 '***************************
50 'BASIC EXAMPLE PROGRAM
60 '***************************
70 MC$="DCD1DD2B9E19BD840325037E85167E8605"
80 X=1:FOR I=1004 TO 1020:POKE I,VAL("&H"+MID$(MC$,X,2)):X=X+2:NEXT
90 '
100 'LN = LINE TO RESTORE TO
110 '
120 LN = 200
130 POKE209,VAL("&H"+LEFT$(HEX$(LN),LEN(HEX$(LN))-2))
140 POKE210,VAL("&H"+RIGHT$(HEX$(LN),2)):EXEC1004
200 DATA A,B,C
Code: Select all
10 'RESTORE-LINE-NUMBER V1.0
20 'FOR TANDY COLOR COMPUTER
30 'MODELS 1, 2, AND 3
40 'BY STEPHEN J WOOLHAM
50 '***************************
60 'BASIC EXAMPLE PROGRAM
70 '***************************
80 MC$="DCD1DD2B9E19BDAD0525037EADE67EAED2"
90 X=1:FOR I=1004 TO 1020:POKE I,VAL("&H"+MID$(MC$,X,2)):X=X+2:NEXT
100 '
110 'LN = LINE TO RESTORE TO
120 '
130 LN = 200
140 POKE209,VAL("&H"+LEFT$(HEX$(LN),LEN(HEX$(LN))-2))
150 POKE210,VAL("&H"+RIGHT$(HEX$(LN),2)):EXEC1004
200 DATA A,B,C