;WinComm Dialing Directory

month$="Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"
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$,2)
	IF(NULL(b$)) PUTSESSINT(71,0)
	ELSE {
		d$= EXTRACT(CHAR(9),a$,4)
		f$=STRTIME(TIME?)
		m$ = LEFT(d$,3)
		m=0 DO  m=m+1 UNTIL(CMP(m$,EXTRACT(",",month$,m)))
		d=VALINT(MID(d$,5,2))
		h=VALINT(MID(d$,8,2))
		min=VALINT(MID(d$,11,2))
		y=VALINT(MID(f$,23,2))
		time = INTTIME(h,d,m,y)+(60*min)
		if(time>TIME?){
			var1$=STRTIME(TIME?)
			var2$=STRTIME(time)
			i = TIME?+1
			DIALOGBOX 69, 18, 142, 69, 29, "Waiting to Connect"
			   DEFCANCELBUTTON 48, 52, 50, 14, "&Cancel"
			   RTEXT 1, 9, 62, 8, "Current Time:"
			   RTEXT 1, 22, 62, 8, "Activation  Time:"
			   CTEXT 4, 40, 134, 8, "Press Cancel to terminate scheduler:"
			   VTEXT 66, 9, 74, 9, VAR1$
			   VTEXT 66, 22, 74, 9, VAR2$
			DEND
			loop:
			  if(DIALOG? !=255){
				PUTSESSINT(71,0)
				HALT
			  }
			  if(time?>=time) DESTROYDLG
			  else{
				if(TIME?>i){
					var1$=STRTIME(TIME?)
					i=TIME?+1
					UPDATEDLG(16)
				}
				GOTO loop
			  }
		}
		OPEN(b$+".wsf","",5)
	}
	HALT
}
END