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