Vertical Menu 2 Of 2

 BBS: Inland Empire Archive
Date: 06-16-92 (13:20)             Number: 544
From: BRUCE GROEN                  Refer#: NONE
  To: MARK BUTLER                   Recvd: NO  
Subj: Vertical Menu 2 Of 2           Conf: (2) Quik_Bas

Continued from last message.

Normal:
IF INSTR(Return$, UCASE$(Key$)) THEN
   RC = INSTR(Return$, UCASE$(Key$))
   GOSUB EraseBar
   CursorEntry = RC
   GOSUB PrintBar
   EXIT SUB
END IF
SELECT CASE ASC(Key$)
   CASE 13
          RC = CursorEntry
          EXIT SUB
   CASE 27
          RC = -1
          EXIT SUB
END SELECT
GOTO WaitForInput


PrintBar:
   BarRow = TopRow + (CursorEntry - 1) * NextRow
   Cursor$ = Menu$(CursorEntry) + SPACE$(Length - LEN(Menu$(CursorEntry)))
   FastPrint BarRow, LeftCol, Cursor$, IAttr
   RETURN
EraseBar:
   FastPrint BarRow, LeftCol, Cursor$, Attr
   RETURN
END SUB
* MegaMail 2.1* #0:Dont you have anything better to do than read th
---
 * Origin: PCConsultingAgency USR DS - Tuc AZ - (602)790-6230 (1:300/21)