'Draws telephone dialer. Doesnt dial...!!!
'Murat AYDIN m-aydin@usa.net>



DECLARE SUB CommandButton (satir!, sutun!, en!, boy!, ilk)

CLS
SCREEN 12
CONST True = -1
CONST False = 0

LINE (0, 0)-(630, 480), 11, BF
LINE (140, 60)-(320, 300), 7, BF
FOR t = 60 TO 260 STEP 60: FOR y = 140 TO 260 STEP 60

    CommandButton t, y, 60, 60, True '����> E�er 'True' ise tu� ilk kez olu�uyor
'                 �  �  �   �          �
NEXT: NEXT '      �  �  �   �          ���> E�er 'False' ise tu� bas�m� olu�uyor
'                 �  �  �   ��������������> Tu�un boyu (a�a��ya do�ru)
'                 �  �  ������������������> Tu�un eni (sa�a do�ru)
'                 �  ���������������������> Tu�un soldan sa�a ekrandaki konumu
'                 ������������������������> Tu�un sa�dan sola ekrandaki konumu
'

LOCATE 6, 22: PRINT "1": LOCATE 6, 30: PRINT "2": LOCATE 6, 37: PRINT "3": LOCATE 10, 22: PRINT "4"
LOCATE 10, 30: PRINT "5": LOCATE 10, 37: PRINT "6": LOCATE 14, 22: PRINT "7": LOCATE 14, 30: PRINT "8"
LOCATE 14, 37: PRINT "9": LOCATE 17, 22: PRINT "*": LOCATE 17, 30: PRINT "0": LOCATE 17, 37: PRINT "#"

A:

key$ = INKEY$
IF key$ = CHR$(27) THEN END
IF key$ = "1" THEN CommandButton 60, 140, 60, 60, False
IF key$ = "2" THEN CommandButton 60, 200, 60, 60, False
IF key$ = "3" THEN CommandButton 60, 260, 60, 60, False
IF key$ = "4" THEN CommandButton 120, 140, 60, 60, False
IF key$ = "5" THEN CommandButton 120, 200, 60, 60, False
IF key$ = "6" THEN CommandButton 120, 260, 60, 60, False
IF key$ = "7" THEN CommandButton 180, 140, 60, 60, False
IF key$ = "8" THEN CommandButton 180, 200, 60, 60, False
IF key$ = "9" THEN CommandButton 180, 260, 60, 60, False
IF key$ = "*" THEN CommandButton 240, 140, 60, 60, False
IF key$ = "0" THEN CommandButton 240, 200, 60, 60, False
IF key$ = "#" THEN CommandButton 240, 260, 60, 60, False

GOTO A

SUB CommandButton (satir, sutun, en, boy, ilk) STATIC

LINE (sutun, satir)-(sutun + en, satir + boy), 0, B
    LINE (sutun + 1, satir + 1)-(sutun + en - 2, satir + 1), 8
    LINE (sutun + 1, satir + 1)-(sutun + 1, satir + boy - 2), 8
    LINE (sutun + 2, satir + boy - 1)-(sutun + en - 2, satir + boy - 1), 7
    LINE (sutun + en - 1, satir + 2)-(sutun + en - 1, satir + boy - 1), 7

IF ilk = False THEN
    FOR t = 1 TO 15000: NEXT
END IF
   
    LINE (sutun, satir)-(sutun + en, satir + boy), 0, B
    LINE (sutun + 1, satir + 1)-(sutun + en - 2, satir + 1), 15
    LINE (sutun + 1, satir + 1)-(sutun + 1, satir + boy - 2), 15
    LINE (sutun + 1, satir + boy - 1)-(sutun + en - 2, satir + boy - 1), 8
    LINE (sutun + en - 1, satir + 1)-(sutun + en - 1, satir + boy - 1), 8

END SUB