'Demonstration of listbox of names
'when selected, sends name and PPN
'useful if you can't remember a PPN
'Hope I got all the PPN's right!!!
FAST ON
DIM p$(100),ppn$(100)
flag = 1
x = 1
WHILE flag
    READ p$(x),ppn$(x)
IF p$(x) = "" THEN
        flag = 0
ELSE
        x = x + 1
ENDIF
WEND
x = x - 1
t$ = "Pick Name"
'To see auto-search, press the first letter of a name'
result = LISTBOX(t$,p$(1),x)
IF result = 0 THEN END
name$ = p$(result)
comma = INSTR(name$,",")
    IF comma = 0 THEN
        SEND name$;
    ELSE
        SEND MID$(name$,comma + 1);
        SEND LEFT$(name$,comma - 1);
FAST OFF
FAST OFF
    ENDIF
SEND " ";ppn$(result)
END
FAST OFF
FAST OFF
DATA " Amsler,John J.","70275,676"
DATA " Atari Explorer","70007,3615"
DATA " Augustine,Pat","73670,2200"
DATA " Aycock,Bill","76703,4061"
DATA " Davis,John","76711,127"
DATA " Dougherty,Hal","70007,4510"
DATA " Fulton,Mike","75300,1141"
DATA " Joins,Keith","76702,375"
DATA " Lebow,Don","76704,41"
DATA " Luks,Ron","76703,254"
DATA " Molodyi,Boris","70322,624"
DATA " Ness,Jim","75300,3155"
DATA " Page,Alan","72227,3507"
DATA " Puff,Bob","76702,1076"
DATA " Ramsden,David","76703,4224"
DATA " Retelle,Bob","76702,1466"
DATA " Rhea,Dan","76703,4364"
DATA " Schoenbach,Mike","76703,4363"
DATA " STReport","70007,4454"
DATA " Wageman,Greg","74016,352"
DATA "",""