home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
qb
/
qb-menus.lzh
/
MENUTEST.BAS
< prev
Wrap
BASIC Source File
|
1986-12-09
|
556b
|
25 lines
rem $include: 'menusub'
color 0,3
cls
locate 9,20
print "------------------------------------"
choice=1
start:
dim list$(5)
list$(0)=" MENU TITLE LINE "
list$(1)="1) First Choice"
list$(2)="2) Second (albeit very long ) Choice"
list$(3)="3) Third Choice"
list$(4)="4) Fourth Choice"
list$(5)="5) Fifth Choice (EXIT MENU)"
upper=10:margin=20:foreground=0:background=7
color 0,3
call menu(list$(),upper,margin,foreground,background,choice)
locate 20,20
print "The Choice Was #";choice
if choice<>5 then goto start
end