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
