10 !JULIAN.BAS			BACK TO BACK TEST IN THE 80'S
20 !
30 ! Author.............. 	Jalal E. Raissi
40 ! Installation........ 	Mini-Microcomputer Consultants
50 ! Last Date Modified.. 	April 16, 1984
60 ! Reason for Change... 	Write Up
70 ! Purpose.............	Testing both 'julian' subroutines!
80 !
90 MAP1 SNDDTE,S,6
100 MAP1 RCVDTE,F,6
110 MAP1 FLGDTE,B,1
120 
130	ON ERROR GOTO ENDOFF
140	? TAB(-1,0);TAB(1,31);"Julian Subroutines";
150	? TAB(2,1);"Link test in the 1980's";
160	? TAB(10,1);"STNDTE:";TAB(14,1);"JULIAN:";
170	FOR I=29220 TO 32872
180 	RCVDTE=I
190	XCALL STNDTE,SNDDTE,RCVDTE,FLGDTE
200  	? TAB(10,33);SNDDTE[1,2]+"/"+SNDDTE[3,4]+"/"+SNDDTE[5,6];" ";RCVDTE;
210  	XCALL JULIAN,SNDDTE,RCVDTE,FLGDTE
220  	? TAB(14,33);SNDDTE[1,2]+"/"+SNDDTE[3,4]+"/"+SNDDTE[5,6];" ";RCVDTE;
230	IF I<>RCVDTE ? TAB(16,42);I;: ? TAB(23,1);: XCALL ACCEPT,SEL
240  	NEXT I
250 ENDOFF:	? TAB(-1,0);
260 	END