'===========================================================================
' Subject: GET CURRENT DRIVE & DIRECTORY      Date: 07-10-99 (17:13)       
'  Author: Mesut Akcan                        Code: QB, PDS                
'  Origin: makcan@softhome.net              Packet: DOS.ABC
'===========================================================================
DECLARE FUNCTION cd$ ()
'$INCLUDE: 'qb.bi'
'LOAD: QB /L
'  ��������������������������������������������������ķ
'  �  Program : Mesut AKCAN               19.06.1997  ��Ŀ
'  �                                                  ����
'  �  End. Mes. Lisesi ��retmeni Anamur-��EL/TURKEY   ����
'  �  http://makcan.cjb.net makcan@softhome.net       ����
'  ��������������������������������������������������Ķ���
'  �  it can get current drive and directory.         ����
'  �  Same as CD COMMAND (DOS)                        ����
'  ��������������������������������������������������ͼ���
'      ���������������������������������������������������
'      ���������������������������������������������������
DIM SHARED inreg AS RegTypeX, outreg AS RegTypeX

'DIM SHARED surucu$, dizin$
CLS
PRINT "Aktif dizin: "; cd$

FUNCTION cd$
t$ = SPACE$(64)
inreg.ax = &H1900             ' INT 21 in 19 no'lu alt fonksiyonu
INTERRUPTX &H21, inreg, outreg
s$ = CHR$((outreg.ax AND &HFF) + 65)
inreg.ax = &H4700             ' INT 21 in 47 no'lu alt fonksiyonu
inreg.dx = 0                  's�r�c� 0:aktif olan 1:A , 2:B , 3:C
inreg.ds = VARSEG(t$)      '-okunan s�r�c�n�n aktif dizinin
inreg.si = SADD(t$)        '-saklanaca�� bellek alan�
INTERRUPTX &H21, inreg, outreg
cd$ = s$ + ":\" + LTRIM$(RTRIM$(t$))
END FUNCTION