home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
pbmnus
/
altsamp.bas
next >
Wrap
BASIC Source File
|
1993-02-27
|
2KB
|
68 lines
DECLARE SUB AltKeyMenu (row, bfc, bbc, sfc, sbc)
'**************************************************
CLS
AltKeyMenu 2, 15, 4, 15, 9
'**************************************************
SUB AltKeyMenu (row, bfc, bbc, sfc, sbc)
LOCATE row - 1, 1: PRINT STRING$(400, 219)
col1 = 2
col2 = 12
col3 = 22
col4 = 32
col5 = 42
col6 = 52
col7 = 62
col8 = 72
LOCATE row, col8: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col8: PRINT "│Q│"
LOCATE row + 2, col8: PRINT "╘═╛"
LOCATE row + 1, col8 + 3: COLOR sfc, sbc: PRINT "uit"
LOCATE row, col1: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col1: PRINT "│F│"
LOCATE row + 2, col1: PRINT "╘═╛"
LOCATE row + 1, col1 + 3: COLOR sfc, sbc: PRINT "iles"
LOCATE row, col2: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col2: PRINT "│P│"
LOCATE row + 2, col2: PRINT "╘═╛"
LOCATE row + 1, col2 + 3: COLOR sfc, sbc: PRINT "eek"
LOCATE row, col3: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col3: PRINT "│S│"
LOCATE row + 2, col3: PRINT "╘═╛"
LOCATE row + 1, col3 + 3: COLOR sfc, sbc: PRINT "can"
LOCATE row, col4: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col4: PRINT "│D│"
LOCATE row + 2, col4: PRINT "╘═╛"
LOCATE row + 1, col4 + 3: COLOR sfc, sbc: PRINT "ial"
LOCATE row, col5: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col5: PRINT "│T│"
LOCATE row + 2, col5: PRINT "╘═╛"
LOCATE row + 1, col5 + 3: COLOR sfc, sbc: PRINT "est"
LOCATE row, col6: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col6: PRINT "│W│"
LOCATE row + 2, col6: PRINT "╘═╛"
LOCATE row + 1, col6 + 3: COLOR sfc, sbc: PRINT "rite"
LOCATE row, col7: COLOR bfc, bbc: PRINT "╒═╕"
LOCATE row + 1, col7: PRINT "│C│"
LOCATE row + 2, col7: PRINT "╘═╛"
LOCATE row + 1, col7 + 3: COLOR sfc, sbc: PRINT "heck"
DO
DO
keys$ = INKEY$
LOOP WHILE keys$ = ""
keymove = ASC(RIGHT$(keys$, 1))
SELECT CASE keymove
CASE 33: END 'ALT F
CASE 25: END 'ALT P
CASE 31: END 'ALT S
CASE 32: END 'ALT D
CASE 20: END 'ALT T
CASE 17: END 'ALT W
CASE 46: END 'ALT C
CASE 16: end 'ALT Q
END SELECT
LOOP
END
END SUB