3305 ' get a single letter -- change to selection # fo menus etc. 3306 ' returns a value in range of 0 - 27 3310 ' 3315 MAX%=0:GOSUB 500 3320 IF ANSWER$="" THEN SELECTION%=0: RETURN 3322 IF ANSWER$ < "A" OR ANSWER$ > "Z" THEN SELECTION%=27: RETURN 3325 SELECTION%=ASC(ANSWER$)-64 3330 RETURN