;WinComm Dialing Directory

hs = FOPEN(2,"dial.que")		; dialing que must already be setup
if(hs==-1){
	PUTSESSINT(71,0)
	HALT
}
else {
	a$ = FREADLN(hs)
        hd=FOPEN(4096,"t1.txt")
        b$=FREADLN(hs)
        WHILE(NULL(b$) == 0)
		FWRITE(hd,LEN(b$),b$)
        	b$=FREADLN(hs)
        WEND
        FCLOSE(hs) FCLOSE(hd)
        DELETEFILE("dial.que") 
        RENAME("t1.txt","dial.que")
        b$=EXTRACT(CHAR(9),a$,1)
	IF(NULL(b$)) PUTSESSINT(71,0)
	ELSE  OPEN(b$+".wsf","",5)
	HALT
}
END