home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / day-no.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  51 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:BEEP:'          Prog 'DAY-NO' 7/2/86 <F-12.0>
  3. 2 '************************************************************************
  4. 3 '*                                                                      *
  5. 4 '*       by S.KENDALL of DUPLI-COLOR PRODUCTS ELK GROVE VILLAGE, IL     *
  6. 5 '* Calculates the number of the day of the year from - 1000 to 2500 +.  *
  7. 6 '*                                                                      *
  8. 7 '************************************************************************
  9. 8 '
  10. 20 CLEAR:GOSUB500
  11. 40 PRINT@134,"SELECT ONE:"
  12. 50 PRINT@168,"Today's Date (Press T)"
  13. 60 PRINT@208,"Other Date   (Press X)"
  14. 65 PRINT@248,"Quit Program (Press Q)
  15. 70 KY$=INKEY$:IF KY$=""THEN 70
  16. 80 IF KY$="T" OR KY$="t" THEN 200
  17. 100 IF KY$="X" OR KY$="x" THEN 400
  18. 105 IF KY$="Q" OR KY$="q" THEN BEEP:MENU
  19. 110 PRINT@246,"     Wrong Input !!     ":BEEP:FOR T=1 TO 80:NEXT:GOTO 40
  20. 200 D$=DATE$
  21. 210 J=VAL(LEFT$(D$,2))
  22. 220 K=VAL(MID$(D$,4,2))
  23. 230 IF KY$="T" OR KY$="t" THEN I=VAL("19"+(RIGHT$(D$,2)))
  24. 235 IF KY$="X" OR KY$="x" THEN I=VAL(RIGHT$(D$,4))
  25. 240 N=INT(3055*(J+2)/100)-91
  26. 250 L=0
  27. 260 IF I=4*INT(I/4) THEN L=1
  28. 270 IF I=100*INT(I/100) THEN L=0
  29. 280 IF I=400*INT(I/400) THEN L=1
  30. 290 IF J>2 THEN N=N-2+L
  31. 300 N=N+K
  32. 310 GOTO 600
  33. 400 GOSUB 500
  34. 410 PRINT@166,"TYPE IN DATE AS MM/DD/YYYY"
  35. 420 PRINT@219," ";
  36. 430 INPUT D$
  37. 440 GOSUB 210
  38. 500 CLS
  39. 505 LINE(10,10)-(229,53),1,B
  40. 510 PRINT@52,CHR$(27)+"p";"DAY of the YEAR";CHR$(27)+"q"
  41. 511 ' can also use CALL 17001 & CALL 17006 in above in lieu of CHR$(27),etc
  42. 520 LINE(72,7)-(162,15),1,B
  43. 525 PRINT@83,"Prog->":PRINT@109,"'DAY-NO'"
  44. 530 RETURN
  45. 600 GOSUB 500
  46. 610 PRINT@131,"DAY";K;"of MONTH";J
  47. 620 PRINT@163,"IS DAY NUMBER";N;"in the YEAR";I
  48. 630 PRINT@246,"PRESS any KEY to do ANOTHER"
  49. 640 IF INKEY$=""THEN 640
  50. 650 GOTO 20
  51.