The relocatable version using a string variable.
RUN it. It will stop after POKEing the code into the string.
Then delete lines 1, 2, 3, and 5.
Save the program and then every time you load it, the patch will already be in the string.
You won't have to wait for it to be READ from the DATA and POKED into memory, it will just find the address of the string and EXECute the code.
0 Z$="01234567890123456789012345678901234567890123456"
1 DATA 60,54,55,150,246,129,126,38,26,220,247,195,1,5
2 DATA 131,1,1,221,252,141,1,1,56,236,18,221,246,236,20,221
3 DATA 248,236,22,221,250,51,50,56,57,129,58,37,1,57,126
4 Z=PEEK(VARPTR(Z$)+2)*256+PEEK(VARPTR(Z$)+3)
5 FORI=0TO44:READ A:POKE Z+I,A:NEXT:STOP
6 EXEC Z
RUN it. It will stop after POKEing the code into the string.
Then delete lines 1, 2, 3, and 5.
Save the program and then every time you load it, the patch will already be in the string.
You won't have to wait for it to be READ from the DATA and POKED into memory, it will just find the address of the string and EXECute the code.
0 Z$="01234567890123456789012345678901234567890123456"
1 DATA 60,54,55,150,246,129,126,38,26,220,247,195,1,5
2 DATA 131,1,1,221,252,141,1,1,56,236,18,221,246,236,20,221
3 DATA 248,236,22,221,250,51,50,56,57,129,58,37,1,57,126
4 Z=PEEK(VARPTR(Z$)+2)*256+PEEK(VARPTR(Z$)+3)
5 FORI=0TO44:READ A:POKE Z+I,A:NEXT:STOP
6 EXEC Z
No comments:
Post a Comment