10 CLS : PRINT
 20 C$=CHR$(130)+CHR$(141)
 30 T$="THE MODIFIED JULIAN DATE"
 40 PRINT C$;T$ : PRINT C$;T$ : PRINT
 50 INPUT "ENTER THE YEAR? 19" Y
 60 INPUT "ENTER THE MONTH (1 TO 12)?"M
 70 INPUT "ENTER THE DAY IN THE MONTH (1 TO 31)?" D : PRINT
 80 IF M=1 OR M=2 THEN L=1 ELSE L=0
 90 Date=14956+D+INT(365.25*(Y-L))+INT(30.6001*(M+1+(12*L)))
100 PRINT "THE MODIFIED JULIAN DATE IS ";Date