home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
pbmnus
/
fkeysamp.bas
< prev
next >
Wrap
BASIC Source File
|
1993-03-01
|
2KB
|
64 lines
DECLARE SUB FkeyMenu(boxstyle%, fc%, bc%, tr%, lc%)
CLS
'**************************************************
FkeyMenu 2, 0, 15, 7, 37
'**************************************************
SUB FkeyMenu(boxstyle%, fc%, bc%, tr%, lc%)
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$ + " F 1 = WASHINGTON "+ side$
menu$( 2 ) = side$ + " F 2 = JEFFERSON "+ side$
menu$( 3 ) = side$ + " F 3 = LINCOLN "+ side$
menu$( 4 ) = side$ + " F 4 = ADAMS "+ side$
menu$( 5 ) = side$ + " F 5 = KENNEDY "+ side$
menu$( 6 ) = side$ + " F 6 = TRUMAN "+ side$
menu$( 7 ) = side$ + " F 7 = EISENHOWER "+ side$
menu$( 8 ) = side$ + " F 8 = MADISON "+ side$
menu$( 9 ) = side$ + " F 9 = MONROE "+ side$
menu$( 10 ) = side$ +" F 10 = EXIT PROGRAM "+ side$
FOR set = 0 to 11
LOCATE set + tr%, lc%: COLOR fc%, bc%: PRINT menu$(set)
NEXT
DO
DO
keys$ = INKEY$
LOOP WHILE keys$ = ""
keymove = ASC(RIGHT$(keys$, 1))
SELECT CASE keymove
CASE 59 :END
CASE 60 :END
CASE 61 :END
CASE 62 :END
CASE 63 :END
CASE 64 :END
CASE 65 :END
CASE 66 :END
CASE 67 :END
CASE 68: END
END SELECT
LOOP
END
END SUB