BBS: Inland Empire Archive Date: 01-27-93 (20:41) Number: 399 From: MARK BUTLER Refer#: NONE To: ALL Recvd: NO Subj: MenuBox 2/3 Conf: (2) Quik_Bas
>>> continued from the previous message PRINT CHR$(192); FOR i = 1 TO ItemLength PRINT CHR$(196); NEXT i PRINT CHR$(217); Shade row - 1, Ltcol, row + MaxItems, Rtcol '**>**>**>**>**>**>**>**>**>**>**>**>**>**>* '**>**>** print selections and **>**>**>**>* '**>**>** pointer **>**>**>**>**>**>**>**>** '**>**>**>**>**>**>**>**>**>**>**>**>**>**>* LOCATE row FOR i = 1 TO MaxItems LOCATE row + i - 1, col PRINT Item$(i) NEXT i DO COLOR 7, 0 LOCATE row + ItemNum - 1, col Item$(ItemNum) = Item$(ItemNum) + SPACE$(ItemLength - LE_ N(Item$(ItemNum))) PRINT Item$(ItemNum) COLOR 0, 7 '**>**>**>**>**>**>**>**>**>**>**>**>**>**>* '**>** Start picking up the keystrokes **>** '**>**>**>**>**>**>**>**>**>**>**>**>**>**>* DO WHILE ch$ = "" ch$ = UCASE$(INKEY$) LOOP kee = ASC(ch$) IF ASC(ch$) = 0 THEN kee = ASC(RIGHT$(ch$, 1)) END IF LOCATE row + ItemNum - 1, col PRINT Item$(ItemNum) SELECT CASE kee CASE Home ItemNum = 1 CASE EndKey ItemNum = MaxItems CASE UpArrow IF ItemNum > 1 THEN ItemNum = ItemNum - 1 ELSE ItemNum = MaxItems END IF CASE DownArrow IF ItemNum < MaxItems THEN ItemNum = ItemNum + 1 ELSE ItemNum = 1 END IF CASE Enter fore = 0 back = 7 FOR i = 1 TO 6 COLOR fore, back IF fore = 7 THEN fore = 0: back = 7 ELSE fore = 7: back = 0 END IF LOCATE row + ItemNum - 1, col Item$(ItemNum) = Item$(ItemNum) + SPACE$(Ite_ mLength - LEN(Item$(ItemNum))) PRINT Item$(ItemNum) NEXT EXIT DO CASE Escape ItemNum = 0 EXIT DO CASE ELSE SOUND 70, .5 SOUND 37, .5 END SELECT ch$ = "" LOOP END SUB >>> continued in the next message --- timEd/B7 * Some taglines displayed are shown « actual size. * Origin: MotherShip Portholes, Portland OR (1:105/319.32)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET