BASIC程序中变量名搜寻

Author: 蔡伟 Date: 1992-06-12

        SEEK.V程序地址是浮动的，可放在内存中任意地方，只要不与BASIC程序区冲突就可以。由于程序较短，现放在第三页。
        使用方法：
        当SEEK.V放在第三页即$300地址时，只需CALL 768↓，出现?号提示，这时键入你所要寻找的变量名，再回车。将显示此变量出现的全部行号，若行号重复，则表明此行中多次使用此变量；若机器未给出任何讯息，表明此变量没有使用。
        例：假定有一BASIC程序
        10 A=1:B=2:C$="A"
        20 D5=A+B:CD$(1)="C"
        30 PRINT A;C$
        CALL 768↓
        ?A
        显示10 20 30
        又CALL 768↓
        ?CD$(↓ 20
        注意，字符串变量应带上$，下标变量应带上左括号(。变量名的长度不受限制，当变量名与你所查找的名完全符合时才会显示所在行号。
        本程序在中华学习机、苹果机等兼容机上运行。注意：中华学习机在汉字状态下使用了较多的第三页地址，这时本程序应放在$9500为宜。
        0300-A9 BF 20 ED FD 20 6F FD
        0308_BD   00   02   29   7F   9D   00   02
        0310_CA   10   F5   A5   67   85   B8   A5
        0318_68   85   B9   A0   04   A2   00   86
        0320_5B   A2   00   B1   B8   F0   0F   10
        0328_25   C9   83   F0   04   C9   B2   D0
        0330_3C   C8   B1   B8   D0   FB   A0   00
        0338_B1   B8   AA   C8   B1   B8   85   B9
        0340_86   B8   B1   B8   D0   D5   88   B1
        0348_B8   D0   D0   4C   3C   D4   C9   22
        0350_D0   09   C8   B1   B8   F0   DF   C9
        0358_22   D0   F7   C9   41   90   0E   C9
        0360_5B   B0   0A   CD   00   02   F0   08
        0368_84   5B   C8   D0   B4   C8   D0   AD
        0370_A5   5B   D0   F6   E8   C8   B1   B8
        0378_DD   00   02   F0   F7   BD   00   02
        0380_C9   0D   D0   99   BD   FF   01   C9
        0388_28   F0   26   B1   B8   F0   22   30
        0390_20   C9   21   F0   D8   C9   24   F0
        0398_D4   C9   25   F0   D0   C9   28   F0
        03A0_CC   C9   30   90   0C   C9   3A   90
        03A8_C4   C9   41   90   04   C9   5B   90
        03B0_BC   98   48   A0   02   B1   B8   AA
        03B8_C8   B1   B8   20   24   ED   20   48
        03C0_F9   68   A8   D0   A8   00   00