Looking for a BASIC trick for RESTORE N

[Dom]

Hi,
I'd like to make a tap version of ENCHANTED, a disc game , restored and saved from oblivion by Steve.
It appears that the SEDORIC order RESTORE N is used in the original code.
I am pretty sure I read somwhere, in the times, a BASIC trick to simulate such a RESTORE N.
The problem is that I don't remember this trick nor where I read it.

Help appréciated

[Dbug]

There's a BASIC and assembler way of doing that, page 52 of "Au coeur de l'Oric Atmos".
https://library.defence-force.org/index ... formatique

Using DEEK(176) you can read the current DATA pointer, and a DOKE can change it.

[Dom]

Using DEEK(176) you can read the current DATA pointer, and a DOKE can change it.

Yes, I knew that
But I had in mind a trick do do that "automaticaly" Because if you change #B0-#B1 (176-177) value "in hard" in the listing, you can't modify your listing anymore...

What I remerber is something like that:

Instead of
100 RESTORE 1000 : READ A
..
..
900 DATA 900,901
1000DATA 1000,1001

Something like
100 GOSUB 1000: READ A
....
900 DATA 900,901
1000 DOKE#B0,(DEEK #????) :RETURN
1001DATA 1000,1001

What I can"t remember is Which BASIC pointer or expression to write intead of ????

[christian]

You can try:

Code: Select all

100 GOSUB 1000: READ A
....
900 DATA 900,901
1000 DOKE #B0,DEEK(#AC) :RETURN
1001DATA 1000,1001

[Dom]

I tried
DOKE #B0,DEEK(#AC) :RETURN,
as you proposed and.... It perfectly works !
Thanks a lot Christian !

I find this trick very clever.
Now, I have to find where I read it for the first time

[Dom]

I finally found where I had read this trick in the days.
It was in the André Chénière's book "ATMOS ORIC-1 manuel de référence".
On the top of the page 41 one can find the BASIC line :
7010 DOKE#B0,DEEK(DEEK(#AC)+1)-1
and on top of page 43 the Author admits he might have been more simple and clear writting:
7010 DOKE#B0,DEEK(#AC)
Exactly what Christian proposed
Meanwhile, I finished a .tap version of ENCHANTED.
This adventure game was missing in all archives.
But, thanks to Steve, a disc version has recently been rescued.
Doing that, in order to replace disc instructions
OPEN /CLOSE / PUT /TAKE,
I had to re learn how to use BASIC keywords : STORE and RECALL .

[JamesD]

So what's this doing? POKEing the address of the line into BASIC's variable that remembers where to continue reading?
*edit*
Never mind, figured it out. Didn't notice it was a subroutine right before the data.