0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 1 CLS:BEEP:' Prog 'DAY-NO' 7/2/86 2 '************************************************************************ 3 '* * 4 '* by S.KENDALL of DUPLI-COLOR PRODUCTS ELK GROVE VILLAGE, IL * 5 '* Calculates the number of the day of the year from - 1000 to 2500 +. * 6 '* * 7 '************************************************************************ 8 ' 20 CLEAR:GOSUB500 40 PRINT@134,"SELECT ONE:" 50 PRINT@168,"Today's Date (Press T)" 60 PRINT@208,"Other Date (Press X)" 65 PRINT@248,"Quit Program (Press Q) 70 KY$=INKEY$:IF KY$=""THEN 70 80 IF KY$="T" OR KY$="t" THEN 200 100 IF KY$="X" OR KY$="x" THEN 400 105 IF KY$="Q" OR KY$="q" THEN BEEP:MENU 110 PRINT@246," Wrong Input !! ":BEEP:FOR T=1 TO 80:NEXT:GOTO 40 200 D$=DATE$ 210 J=VAL(LEFT$(D$,2)) 220 K=VAL(MID$(D$,4,2)) 230 IF KY$="T" OR KY$="t" THEN I=VAL("19"+(RIGHT$(D$,2))) 235 IF KY$="X" OR KY$="x" THEN I=VAL(RIGHT$(D$,4)) 240 N=INT(3055*(J+2)/100)-91 250 L=0 260 IF I=4*INT(I/4) THEN L=1 270 IF I=100*INT(I/100) THEN L=0 280 IF I=400*INT(I/400) THEN L=1 290 IF J>2 THEN N=N-2+L 300 N=N+K 310 GOTO 600 400 GOSUB 500 410 PRINT@166,"TYPE IN DATE AS MM/DD/YYYY" 420 PRINT@219," "; 430 INPUT D$ 440 GOSUB 210 500 CLS 505 LINE(10,10)-(229,53),1,B 510 PRINT@52,CHR$(27)+"p";"DAY of the YEAR";CHR$(27)+"q" 511 ' can also use CALL 17001 & CALL 17006 in above in lieu of CHR$(27),etc 520 LINE(72,7)-(162,15),1,B 525 PRINT@83,"Prog->":PRINT@109,"'DAY-NO'" 530 RETURN 600 GOSUB 500 610 PRINT@131,"DAY";K;"of MONTH";J 620 PRINT@163,"IS DAY NUMBER";N;"in the YEAR";I 630 PRINT@246,"PRESS any KEY to do ANOTHER" 640 IF INKEY$=""THEN 640 650 GOTO 20