home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26a.dsk / NOVEMBER.1985 / DO.XREF.txt < prev    next >
Text File  |  2023-02-26  |  192b  |  11 lines
  1. CLEAR
  2. L = 256*PEEK(106) + PEEK(105) - 4
  3. IF PEEK(L) <> 0 THEN L = L + 1
  4. IF PEEK(L) = 0 THEN L = L + 1
  5. POKE 104,INT(L/256)
  6. POKE 103,L - 256*INT(L/256)
  7. LOAD XREF
  8. POKE 103,1
  9. POKE 104,8
  10. GOTO 63956
  11.