'===========================================================================
' Subject: SELECT MENU                        Date: 04-18-00 (00:22)       
'  Author: Mesut Akcan                        Code: QB, QBasic, PDS        
'  Origin: makcan@SoftHome.net              Packet: MENU.ABC
'===========================================================================
' Coded by Mesut AKCAN
' 15/4/2000
' http://kaynak.cjb.net
' http://makcan.virtualave.net
' makcan@softhome.net

DIM menu(5) AS STRING

menu(0) = "EDIT"
menu(1) = "PW"
menu(2) = "QBASIC"
menu(3) = "MARIO"
menu(4) = "PRINCE"
menu(5) = "KAPAT"

zeminrengi = 0
yazirengi = 7
sutun = 30
baslangic = 5
alt = LBOUND(menu)
ust = UBOUND(menu)
COLOR yazirengi, zeminrengi
CLS
sat = alt
GOSUB menuyaz
GOSUB tersyazi
DO
a$ = INKEY$
    IF a$ = CHR$(0) + "H" THEN ' H = 72 - Yukar� y�n tu�u
        sat = sat - 1
        d = -1  'sat�r de�i�ti
    END IF
    IF a$ = CHR$(0) + "P" THEN ' P = 80 - A�a��
        sat = sat + 1
        d = -1  'sat�r de�i�ti
    END IF
    IF a$ = CHR$(27) THEN END ' Esc tu�u
    IF d THEN  'sat�r no de�i�mi�se
        IF sat > ust THEN sat = alt
        IF sat < alt THEN sat = ust
        GOSUB menuyaz
        GOSUB tersyazi
        d = 0 'sat�r de�i�medi
    END IF
    IF a$ = CHR$(13) THEN ' Enter tu�u
        SELECT CASE sat
            CASE 0: SHELL "edit.com"
            CASE 1: CHDIR "\komut\pw": SHELL "pw.com"
            CASE 2: SHELL "qbasic.exe"
            CASE 3: CHDIR "\oyun\mario": SHELL "mario.exe"
            CASE 4: CHDIR "\oyun\prince": SHELL "prince.exe"
            CASE 5: END 'Kapat
        END SELECT
        x$ = INPUT$(1)
        RUN
    END IF
LOOP

menuyaz:
    FOR n = alt TO ust
        LOCATE n + baslangic, sutun
        PRINT menu(n)
    NEXT
RETURN

tersyazi:
    LOCATE sat + baslangic, sutun
    COLOR zeminrengi, yazirengi: PRINT menu(sat)
    COLOR yazirengi, zeminrengi
RETURN