1  REM **** HP TIME-SHARED BASIC PROGRAM LIBRARY ************************
2  REM
3  REM      36197:  JULIAN    REV A    3/72
4  REM
5  REM      JULIAN CALENDAR FOR THE CURRENT YEAR
6  REM  
7  REM **** CONTRIBUTED PROGRAM *****************************************
10  PRINT "PROGRAM TO GENERATE JULIAN CALENDAR FOR CURRENT YEAR"
20  PRINT 
30  PRINT 
40  DIM N$[9]
50  J=0
60  PRINT 
70  PRINT "ENTER ALL FOUR DIGITS OF CURRENT YEAR";
80  INPUT G
90  X=G-1900
100  D=1
110  IF X=78 OR X=84 OR X=89 OR X=95 THEN 270
120  D=2
130  IF X=73 OR X=79 OR X=90 THEN 270
140  D=3
150  IF X=74 OR X=80 OR X=85 OR X=91 THEN 270
160  D=4
170  IF X=75 OR X=86 OR X=92 THEN 270
180  D=5
190  IF X=76 OR X=81 OR X=87 THEN 270
200  D=6
210  IF X=71 OR X=82 OR X=88 OR X=93 THEN 270
220  D=7
230  IF X=72 OR X=77 OR X=83 OR X=94 THEN 270
240  PRINT 
250  PRINT "ILLEGAL ENTRY -- ENTER 1971 THRU 1995 -- TRY AGAIN"
260  GOTO 60
270  FOR I=1 TO 3
280  PRINT " "
290  PRINT 
300  PRINT 
310  PRINT "JULIAN CALENDAR";TAB(62);G
320  PRINT 
330  FOR Z=1 TO 4
340  READ I2,N$
350  IF I#1 OR Z#2 THEN 380
360  IF X#72 AND X#76 AND X#80 AND X#84 AND X#88 AND X#92 THEN 380
370  I2=29
380  PRINT N$
390  PRINT 
400  L=-1
410  FOR K=1 TO I2
420  L=L+1
430  IF L#4 THEN 460
440  L=0
450  PRINT 
460  J=J+1
470  IF D#8 THEN 490
480  D=1
490  GOTO D OF 500,520,540,560,580,600,620
500  PRINT "SUN-";K"-";J;
510  GOTO 630
520  PRINT "MON-";K;"-";J;
530  GOTO 630
540  PRINT "TUE-";K;"-";J;
550  GOTO 630
560  PRINT "WED-";K;"-";J;
570  GOTO 630
580  PRINT "THU-";K;"-";J;
590  GOTO 630
600  PRINT "FRI-";K;"-";J;
610  GOTO 630
620  PRINT "SAT-";K;"-";J;
630  D=D+1
640  NEXT K
650  PRINT 
660  PRINT 
670  PRINT 
680  PRINT 
690  NEXT Z
700  NEXT I
710  DATA 31,"JANUARY",28,"FEBRUARY",31,"MARCH",30,"APRIL",31,"MAY"
720  DATA 30,"JUNE",31,"JULY",31,"AUGUST",30,"SEPTEMBER",31,"OCTOBER"
730  DATA 30,"NOVEMBER",31,"DECEMBER"
740  END 
