By Bob Huelsdonk and Val Golding
A subroutine to find the Basic POKE statements for a machine language program or subroutine. Find the starting address of the routine you wish to Poke and convert that to Decimal. Now, in Basic, enter the following program. (n=starting address)
1000 A=n : B=A+19 1010 FOR 1= A TO B: PRINT I, PEEK(l): NEXT I 1020 X =PEEK (-16384) : POKE -16368, 0 : IF X=127 THEN 1030: GOTO 1020 1030 A=A+20: B=A+19: GOTO 1010
Be sure to change the n in line 1000 to the decimal value of the routine. This program will give you 20 Poke statements at a time, and the Apple will wait for you to “Hit any key” for a new page. Simple? To find the starting.address for a program in Integer Basic, enter the command:
PRINT PEEK(202) + PEEK(203) *256
