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
