10 !STNDTE.BAS		        SAMPLE PROGRAM
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.............	How to use the 'julian' subroutines
80 !
90 MAP1 SNDDTE,S,6
100 MAP1 RCVDTE,F,6
110 MAP1 FLGDTE,B,1,2
120 
130	? TAB(-1,0);TAB(1,33);"SAMPLE PROGRAM";
140	? TAB(10,1);"STNDTE:";TAB(14,1);"JULIAN:";
150 !
160 ! Get System Date
170 !
180	CALL STNDTE: ? TAB(10,20);: CALL DSPSTN
190	CALL JULIAN: ? TAB(14,20);RCVDTE
200	ON ERROR GOTO ENDOFF
210 !	
220 ! Get Input Date (by the Operator)
230 !
240 REDO1:	? TAB(16,1);TAB(-1,9);
250	INPUT "Enter a date in MMDDYY format: ",SNDDTE
260 !
270 ! SNDDTE in this case can be any prompt for date in your program.
280 !
290 	CALL JULIAN
300 	ON FLGDTE GOTO REDO1
310 	? TAB(14,20);RCVDTE
320 REDO2:	? TAB(18,1);TAB(-1,9);
330 	INPUT "Enter a date in days since 01/01/00: ",RCVDTE
340 !
350 ! RCVDTE is the 'julian' value of the date stored in records in the files.
360 !
370 	CALL STNDTE
380 	ON FLGDTE GOTO REDO2
390 	? TAB(10,20);: CALL DSPSTN
400 	GOTO REDO1
410 ENDOFF: ? TAB(24,1);: END
420 JULIAN:	XCALL JULIAN,SNDDTE,RCVDTE,FLGDTE: RETURN
430 STNDTE:	XCALL STNDTE,SNDDTE,RCVDTE,FLGDTE: RETURN
440 DSPSTN: ? SNDDTE[1,2]+"/"+SNDDTE[3,4]+"/"+SNDDTE[5,6];: RETURN