2f8

; Utility for TELIX, lets you go directly into the dialling directory


	mov ax,0c00             ; First of all flush keyboard buffer
	int 021

	mov ah,05H		; Place a CR in buffer...
	mov cx,0dH
	int 016

        cmp B[80H],0            ; Any parameters?
        jne >l1
        int 020                 ; No...quit program
         
l1:
        sub cx,cx
	mov cl,b[80H]  
        mov si,1

lp:
        cmp b[80H+si],'d'       ; Search for a d or D in command line
        je >l2 
        cmp b[80H+si],'D'
	je >l2
	inc si
	loop lp

        int 020

l2:
	mov ah,05H              ; ...and an Alt-D to go directly to the
	mov ch,32		; dialling directory.
	mov cl,0
	int 016

	int 020                 ; Wasn't that simple?
.

0