home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 3300.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  292 b   |  9 lines
  1. 3305 '    get a single letter -- change to selection # fo menus etc.
  2. 3306 '    returns a value in range of 0 - 27
  3. 3310 '
  4. 3315 MAX%=0:GOSUB 500
  5. 3320 IF ANSWER$="" THEN SELECTION%=0: RETURN
  6. 3322 IF ANSWER$ < "A" OR ANSWER$ > "Z" THEN SELECTION%=27: RETURN
  7. 3325 SELECTION%=ASC(ANSWER$)-64
  8. 3330 RETURN
  9.