home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26a.dsk / NOVEMBER.1985 / MAKE.DO.XREF.bas < prev    next >
BASIC Source File  |  2023-02-26  |  645b  |  21 lines
  1. 10  REM **********************
  2. 20  REM *    MAKE.DO.XREF    *
  3. 30  REM *  BY CECIL FRETWELL *
  4. 40  REM * COPYRIGHT (C) 1985 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  PRINT  CHR$(4);"OPEN DO.XREF"
  9. 90  PRINT  CHR$(4);"WRITE DO.XREF"
  10. 100  PRINT "CLEAR"
  11. 110  PRINT "L = 256*PEEK(106) + PEEK(105) - 4"
  12. 120  PRINT "IF PEEK(L) <> 0 THEN L = L + 1"
  13. 130  PRINT "IF PEEK(L) = 0 THEN L = L + 1"
  14. 140  PRINT "POKE 104,INT(L/256)"
  15. 150  PRINT "POKE 103,L - 256*INT(L/256)"
  16. 160  PRINT "LOAD XREF"
  17. 170  PRINT "POKE 103,1"
  18. 180  PRINT "POKE 104,8"
  19. 190  PRINT "GOTO 63956"
  20. 200  PRINT  CHR$(4);"CLOSE"
  21. 210  END