PROGRAM SNDMSG,1.0
!
!			   ==========================
!			  //  SEND MESSAGE UTILITY  \\
!		         //==========================\\
!		        <<  BY THE GREAT & MIGHTY OZ  >>
!	//===============\\==========================//=================\\
!       ||       * * * * *   E D I T   H I S T O R Y   * * * * *        ||
!	||							        ||
!	||  8/07/85 edit history started. /dmm				||
!	||  	    set up to work with TVI925, TVI950 & WYSE50		||
!	||          if set up in imulation mode. /dmm                   ||
!	||	   							||
!	\\==============<<============================>>================//
!		         \\==========================//
MAP1 JOBTBL
	MAP2 JOBNO,B,1
	MAP2 JOBNAM,S,6
	MAP2 JOBTRM,S,6
	MAP2 JOBPRG,S,6
	MAP2 JOBDEV,S,3
	MAP2 JOBDVR,B,2
	MAP2 JOBPPN
		MAP3 JOB'PROG,B,1
		MAP3 JOB'PROJ,B,1
		MAP3 JOBUSR,B,2,@JOBPPN
	MAP2 JOBCPU,B,4
	MAP2 JOBDSR,B,4
	MAP2 JOBDSW,B,4
	MAP2 JOBCON,S,10
	XCALL JOBGET,JOBTBL	!<------<<< ***(OPTIONAL)***
02000 !
02010 MAP1 USERS
02020	MAP2 JOBNAMS(30),S,6
02030	MAP2 TRMDEFS(30),S,6
02040 MAP1 FILENAME,S,10,"USERS.DAT"
02050 MAP1 RECSIZ99,F,6,LEN(USERS)
02060 MAP1 ENTRY,S,70
02070 MAP1 RTNCDE,F,6
02080 MAP1 INXCTL,F,6
02090 MAP1 NUMFIL,F,6,30
02100	FILEBASE 1
02110	XCALL NOECHO
02120	NFILE = INT((NUMFIL/2)+.5)
02130	? TAB(-1,0);"MESSAGE SENDING UTILITY"
02140 OPEN:
02150	OPEN #99, FILENAME, RANDOM, RECSIZ99, FILE99
02160	FILE99 = 1
02170	READ #99, USERS
02180	CALL DISPLAY
02190	FOR WHATNO = 1 TO NUMFIL
02200		CALL DISPLAY'JOBNAM
02210	NEXT WHATNO
02220 IN:
02230	? TAB(24,1);TAB(-1,9);"SELECT JOB ";
02240 !	XCALL INFLD,24,15,02,00,"#EW",ENTRY,INXCTL,1,DEFLT,EXTCODE,TIMER
02245	XCALL INPUT,24,15,02,00,"#EW",ENTRY,INXCTL,1
02250 	IF INXCTL GOTO CLOSE
02260	WHATNO=ENTRY
02270	IF WHATNO=99 GOTO SEND'IT
02280	IF WHATNO < 1 OR WHATNO > 30 XCALL MESAG,"",3 : GOTO IN
02290 SEND'IT:
02300	? TAB(24,1);TAB(-1,9);"MESSAGE";
02310	XCALL INPUT,24,9,70,00,"AW",ENTRY,INXCTL,1,DEFLT,EXTCODE,TIMER
02320	IF INXCTL GOTO IN
02330	IF WHATNO=99 GOTO SEND'ALL
02340	OPEN #1,"TRM:"+TRMDEFS(WHATNO),OUTPUT
02350	IF ENTRY="" GOTO CLEAR'MSG
02360	? #1;CHR(7);"";
02370	? #1;"f"+ENTRY+":"+JOBNAM
02380	? #1;"g";
02390	CLOSE #1
02400	GOTO IN
02410 SEND'ALL:
02420	FOR I = 1 TO 30
02430	IF TRMDEFS(I)="" GOTO NEXT'I
02440	OPEN #1,"TRM:"+TRMDEFS(I),OUTPUT
02450	IF ENTRY="" GOTO CLEAR'ALL
02460	? #1;CHR(7);"";
02470	? #1;"f"+ENTRY+":"+JOBNAM
02480	? #1;"g";
02490	CLOSE #1
02500 NEXT'I:
02510	NEXT I
02520	GOTO IN
02530 CLEAR'ALL:
02540	? #1;"";
02550	? #1;"f"+SPACE(78)
02560	? #1;"g";
02570	? #1;"h";
02580	CLOSE #1
02590	GOTO NEXT'I
02600 CLEAR'MSG:
02610	? #1;"";
02620	? #1;"f"+SPACE(78)
02630	? #1;"g";
02640	? #1;"h";
02650	CLOSE #1
02660	GOTO IN
02670 CLOSE:
02680	CHAIN "UTLMNU"
02690 DISPLAY:
02700	PRINT TAB(3,21); "SEND MESSAGE, TO SELECTED JOB"
02710	FOR I = 1 TO NUMFIL
02720	ROW = I-(NFILE*INT(I/(NFILE+1)))+4
02730	COL = 12+(INT(I/(NFILE+1))*35)
02740	? TAB(ROW,COL); I USING "##"; ". "
02750	NEXT I
02760	RETURN
02770 
02780 DISPLAY'JOBNAM:
02790	ROW = WHATNO-(NFILE*INT(WHATNO/(NFILE+1)))+4
02800	COL = 20+(INT(WHATNO/(NFILE+1))*35)
02810	? TAB(ROW,COL); JOBNAMS(WHATNO);
02820	COL = COL+10
02830	? TAB(ROW,COL); TRMDEFS(WHATNO);
02840	RETURN
02850 
02860 !