home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
pbmnus
/
vertsamp.bas
< prev
next >
Wrap
BASIC Source File
|
1993-03-01
|
3KB
|
85 lines
DECLARE SUB VerticalMenu(boxstyle%, fc%, bc%, tr%, lc%, row%)
'**************************************************
CLS
VerticalMenu 2, 15, 4, 5, 33, 6
'**************************************************
SUB VerticalMenu(boxstyle%, fc%, bc%, tr%, lc%, row%)
DIM menu$(0 to 11 )
COLOR fc%, bc%
SELECT CASE boxstyle%
CASE 1
side$ ="│
menu$(0) ="┌─────────────────────────┐
menu$( 11 ) ="└─────────────────────────┘
CASE 2
side$ ="║
menu$(0)="╔═════════════════════════╗
menu$( 11 ) ="╚═════════════════════════╝
CASE 3
side$ ="║
menu$(0) ="╓─────────────────────────╖
menu$( 11 ) ="╙─────────────────────────╜
CASE 4
side$ ="│
menu$(0) = "╒═════════════════════════╕
menu$( 11 ) ="╘═════════════════════════╛
CASE 5
side$ ="█
menu$(0) = string$(27, 219)
menu$( 11 ) = STRING$(27, 219)
END SELECT
menu$( 1 ) = side$ + " MATTHEW "+ side$
menu$( 2 ) = side$ + " MARK "+ side$
menu$( 3 ) = side$ + " LUKE "+ side$
menu$( 4 ) = side$ + " JOHN "+ side$
menu$( 5 ) = side$ + " ACTS "+ side$
menu$( 6 ) = side$ + " FIRST JOHN "+ side$
menu$( 7 ) = side$ + " SECOND JOHN "+ side$
menu$( 8 ) = side$ + " THIRD JOHN "+ side$
menu$( 9 ) = side$ + " JAMES "+ side$
menu$( 10 ) = side$ +" EXIT PROGRAM "+ side$
FOR set = 0 to 11
LOCATE set + tr%, lc%: COLOR fc%, bc%: PRINT menu$(set)
NEXT
row = row%
DO
DO
SELECT CASE row
CASE row% : opt$ = " MATTHEW "
CASE row% + 1 : opt$ = " MARK "
CASE row% + 2 : opt$ = " LUKE "
CASE row% + 3 : opt$ = " JOHN "
CASE row% + 4 : opt$ = " ACTS "
CASE row% + 5 : opt$ = " FIRST JOHN "
CASE row% + 6 : opt$ = " SECOND JOHN "
CASE row% + 7 : opt$ = " THIRD JOHN "
CASE row% + 8 : opt$ = " JAMES "
case row% + 9 : opt$ = " EXIT PROGRAM "
END SELECT
LOCATE row, lc% + 1, 0: COLOR bc%, fc%: PRINT opt$
keys$ = INKEY$
LOOP WHILE keys$ = ""
keymove = ASC(RIGHT$(keys$, 1))
LOCATE row, lc% + 1, 0: COLOR fc%, bc%: PRINT opt$
Select case keymove
case 13
IF row = row% THEN END
IF row = row% + 1 THEN END
IF row = row% + 2 THEN END
IF row = row% + 3 THEN END
IF row = row% + 4 THEN END
IF row = row% + 5 THEN END
IF row = row% + 6 THEN END
IF row = row% + 7 THEN END
IF row = row% + 8 THEN END
IF row = row% + 9 THEN END
case 72: row = row - 1
case 80: row = row + 1
case 79: row = row% + 9
case 71: row = row% + 9
END select
IF row < row% THEN row = row% + 9 ELSE IF row > row% + 9 THEN row = row%
LOOP
END
END SUB