'STRT_LST.BAS  for use when online with GEnie
'run this with an alt-key to display a list of favorite places on GEnie
'when the list is displayed, press a key to jump to 1st 'GRMEYER v1.1 10/30/93
READ n
DIM p$(n),pg$(n)
FOR x = 1 TO n:READ p$(x),pg$(x):NEXT x
t$ = "pick one "
x = LISTBOX(t$,p$(1),n)
IF x > 0 AND x < n THEN SEND pg$(x)
END
DATA 5
DATA " Bulletin Board ST RT","M475;1"
DATA " RTC ST RT","M475;2"
DATA " Library ST RT","M475;3"
DATA " Mail","M200"
DATA " <cancel>"alzation ==
REA,""