home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / util / misc / 023 / dt.bas next >
Encoding:
BASIC Source File  |  1987-08-26  |  6.1 KB  |  110 lines
  1. 1 'Revision - Improved instruction line 5-6-87.
  2. 2 'Revision - Changed cursor and added color 7-21-87.
  3. 3 'Revision - Lowered price from $5.00 to $3.50 on 9-1-87.
  4. 10 'Copyright 1987 Robert L. Brown, 322 Davis Drive, Kingston, TN 37763
  5. 20 COLOR 0,6:CLS:COLOR 15,6:LOCATE 2,30,0:PRINT"SET DATE AND TIME"
  6. 30 COLOR 14,1:LOCATE 14,19:PRINT SPC(43)
  7. 40 LOCATE 15,19:PRINT spc(12)"BROWN ENTERPRISES"SPC(14)
  8. 50 LOCATE 16,19:PRINT SPC(13)"322 Davis Drive"SPC(15)
  9. 60 LOCATE 17,19:PRINT SPC(12)"Kingston, TN 37763"SPC(13)
  10. 70 locate 18,19:print spc(43)
  11. 72 LOCATE 19,19:PRINT SPC(4)"(C) Copyright 1987 Robert L. Brown"SPC(5)
  12. 74 LOCATE 20,19:PRINT SPC(15)"Price $3.50"spc(17)
  13. 76 LOCATE 21,19:PRINT SPC(43):COLOR 7,6
  14. 80 LOCATE 6,14:PRINT"(To change default date enter six digits as MMDDYY)"
  15. 90 LOCATE 7,20:PRINT"(Example:  Enter June 4, 1987 as 060487)"
  16. 100 color 7,6:LOCATE 4,26:PRINT"Default date:  "
  17. 110 LOCATE 23,25:PRINT"Continue with <R> or cursors.  Exit with <Esc>."
  18. 120 H=2:D=1:LK=4:XK=41:ZK=6:ZZK=10
  19. 125 color 15,6:locate 23,9:print" Set new Date."
  20. 130 GOSUB 370:COLOR 15,6
  21. 140 IF D$="" THEN D$=DATE$
  22. 150 IF VAL(RIGHT$(D$,2))<80 THEN D$=LEFT$(D$,6)+"20"+RIGHT$(D$,2)
  23. 152 ON ERROR GOTO 970
  24. 160 D=0:DATE$=D$:LOCATE 4,41:PRINT D$
  25. 170 color 7,6:LOCATE 11,15:PRINT"(To change default time enter four digits as HHMM)"
  26. 180 LOCATE 12,25:PRINT"(Example:  Enter 8:07 as 0807)"
  27. 190 LOCATE 9,27:PRINT"Default time:"
  28. 200 H=10:T=1:TM$="on":F=1:LK=9:XK=42:ZK=4:ZZK=10
  29. 205 color 15,6:locate 23,9:print" Set new Time."
  30. 210 LOCATE ,,1,5,7:GOSUB 370:COLOR 15,6
  31. 220 IF TI<12 THEN LOCATE 9,43:PRINT LEFT$(TIME$,5)" am":GOTO 250
  32. 222 LOCATE ,,0:TI=VAL(LEFT$(TIME$,2))
  33. 250 LOCATE 9,43:PRINT USING "##";TI:LOCATE 9,45:PRINT MID$(TIME$,3,3)
  34. 260 T=0:T$=TIME$
  35. 270 H=11:XK=48:ZK=1:ZZK=1
  36. 275 locate 23,9:print"Set <a>m/<p>m."
  37. 280 GOSUB 370:COLOR 15,6
  38. 290 IF LTR$=CHR$(13) THEN color 7,0:CLS:COLOR 14,1:LOCATE 1,1:PRINT DATE$:LOCATE 1,70:PRINT TIME$:COLOR 7,0:locate ,,1,5,7:SYSTEM
  39. 300 IF LTR$="A" OR LTR$="a" THEN 330
  40. 310 IF LTR$="P" OR LTR$="p" THEN 350
  41. 320 BEEP:GOTO 280
  42. 330 TI=VAL(LEFT$(TIME$,2)):IF TI>11 THEN TI=TI-12:COLOR 15,6:LOCATE 9,48:PRINT"am":GOTO 360
  43. 340 color 7,0:CLS:COLOR 14,1:LOCATE 1,1:PRINT DATE$:LOCATE 1,70:PRINT TIME$:COLOR 7,0:locate ,,1,5,7:SYSTEM
  44. 350 TI=VAL(LEFT$(TIME$,2)):IF TI<12 THEN TI=TI+12:COLOR 15,6:LOCATE 9,48:PRINT"pm"
  45. 360 TI$=MID$(STR$(TI),2,2):TIME$=TI$+":"+MID$(T$,4,2):COLOR 7,0:CLS:COLOR 14,1:LOCATE 1,1:PRINT DATE$:LOCATE 1,72:PRINT TIME$:COLOR 7,0:locate ,,1,5,7:SYSTEM
  46. 370 XP$="":COLOR 14,1:LOCATE 1,1,0:PRINT SPC(1) DATE$ SPC(1)
  47. 372 COLOR 15,6:LOCATE 4,41:PRINT DATE$
  48. 384 IF TIME$<T$ THEN T$=TIME$:GOTO 370
  49. 386 IF TIME$>T$ THEN T$=TIME$ ELSE 490
  50. 400 LOCATE ,,0:TI=VAL(TIME$):IF TI>11 THEN M$="pm" ELSE M$="am"
  51. 402 IF TI>12 THEN TI=TI-12
  52. 410 IF TI=0 THEN TI=12
  53. 420 COLOR 14,1:LOCATE 1,69,0:PRINT USING "##";TI:LOCATE 1,71,0:PRINT RIGHT$(TIME$,6)
  54. 430 IF M$="am" THEN LOCATE 1,77,0:PRINT" am ":GOTO 442
  55. 440 IF M$="pm" THEN LOCATE 1,77,0:PRINT" pm "
  56. 442 IF XP$>"" AND T=1 THEN 480
  57. 450 IF TM$="on" THEN COLOR 15,6:LOCATE 9,42,0:PRINT USING "##";TI:LOCATE 9,44:PRINT MID$(TIME$,3,3)
  58. 460 IF TM$="on" THEN LOCATE 9,47,0:PRINT" "M$" "
  59. 480 LOCATE LK,XK+LEN(XP$),1,5,7
  60. 490 LTR$=INKEY$:IF LTR$="" GOTO 384
  61. 500 COLOR 0,6:LOCATE 5,31:PRINT SPC(15):IF LTR$=CHR$(13) THEN RETURN
  62. 510 IF LEN(LTR$)>1 THEN LOCATE ,,0:GOTO 870
  63. 520 IF LTR$=CHR$(27) THEN COLOR 7,0:CLS:COLOR 14,1:LOCATE 1,1:PRINT DATE$:LOCATE 1,70:PRINT TIME$:COLOR 7,0:locate ,,1,5,7:SYSTEM
  64. 530 IF H=11 THEN 290
  65. 540 IF LEN(XP$)=0 AND LTR$=CHR$(8) GOTO 490
  66. 550 IF LTR$=CHR$(8) GOTO 860
  67. 560 IF D=1 GOTO 610
  68. 570 IF T=1 THEN 750
  69. 580 XP$=XP$+LTR$
  70. 590 IF LEN(XP$)>ZK THEN BEEP:XP$=LEFT$(XP$,LEN(XP$)-1)
  71. 600 COLOR 14,1:LOCATE LK,XK+LEN(XP$)-1:PRINT LTR$:LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
  72. 610 IF LTR$=CHR$(13) AND LEN(XP$)<6 THEN D$="":RETURN
  73. 620 IF LTR$<CHR$(48) OR LTR$>CHR$(57) THEN BEEP:LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
  74. 630 XP$=XP$+LTR$:COLOR 14,1:LOCATE LK,XK+LEN(XP$):PRINT SPC(6-LEN(XP$)):COLOR 0,6:PRINT SPC(4)
  75. 640 IF LEN(XP$)=1 AND VAL(LEFT$(XP$,1))<0 OR VAL(LEFT$(XP$,1))>1 GOTO 850
  76. 650 IF LEN(XP$)=2 AND VAL(LEFT$(XP$,2))<1 OR VAL(LEFT$(XP$,2))>12 GOTO 850
  77. 660 IF LEN(XP$)=3 AND VAL(MID$(XP$,3,1))<0 OR VAL(MID$(XP$,3,1))>3 GOTO 850
  78. 670 IF LEN(XP$)=4 AND VAL(MID$(XP$,3,2))<1 OR VAL(MID$(XP$,3,2))>31 GOTO 850
  79. 680 IF LEN(XP$)=5 AND VAL(RIGHT$(XP$,1))<0 OR VAL(RIGHT$(XP$,1))>9 GOTO 850
  80. 690 IF LEN(XP$)=6 AND VAL(RIGHT$(XP$,1))<0 OR VAL(RIGHT$(XP$,1))>9 GOTO 850
  81. 700 IF LEN(XP$)=6 GOTO 720
  82. 710 GOTO 600
  83. 720 IF VAL(RIGHT$(XP$,2))>50 AND VAL(RIGHT$(XP$,2))<100 THEN DYR$="19"
  84. 730 IF VAL(RIGHT$(XP$,2))>=0 AND VAL(RIGHT$(XP$,2))<51 THEN DYR$="20"
  85. 740 D$=LEFT$(XP$,2)+"-"+MID$(XP$,3,2)+"-"+DYR$+RIGHT$(XP$,2):RETURN
  86. 750 IF LTR$=CHR$(13) AND LEN(XP$)<4 THEN T$="":RETURN
  87. 760 IF LTR$<CHR$(48) OR LTR$>CHR$(57) THEN BEEP:LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
  88. 770 XP$=XP$+LTR$:COLOR 14,1:LOCATE LK,XK+LEN(XP$):PRINT SPC(4-LEN(XP$)):COLOR 0,6:PRINT SPC(1)
  89. 780 IF LEN(XP$)=1 AND VAL(LEFT$(XP$,1))<0 OR VAL(LEFT$(XP$,1))>2 GOTO 850
  90. 790 IF LEN(XP$)=2 AND VAL(LEFT$(XP$,2))<0 OR VAL(LEFT$(XP$,2))>23 GOTO 850
  91. 800 IF LEN(XP$)=3 AND VAL(MID$(XP$,3,1))<0 OR VAL(MID$(XP$,3,1))>5 GOTO 850
  92. 810 IF LEN(XP$)=4 AND VAL(MID$(XP$,3,2))<0 OR VAL(MID$(XP$,3,2))>59 GOTO 850
  93. 820 IF LEN(XP$)=4 GOTO 840
  94. 830 GOTO 600
  95. 840 TIME$=LEFT$(XP$,2)+":"+RIGHT$(XP$,2):XP$="":RETURN
  96. 850 BEEP
  97. 860 XP$=LEFT$(XP$,LEN(XP$)-1):COLOR 14,1:LOCATE LK,XK:PRINT XP$ SPC(ZK-LEN(XP$)):LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
  98. 870 IF H=10 AND LTR$=CHR$(0)+CHR$(77) THEN 960
  99. 880 IF H=10 AND LTR$=CHR$(0)+CHR$(75) THEN 960
  100. 890 IF H=10 AND LTR$=CHR$(0)+CHR$(72) THEN COLOR 15,6:LOCATE 9,42,0:PRINT USING "##";TI:LOCATE 9,44:PRINT MID$(TIME$,3,3):GOTO 100
  101. 900 IF H=10 AND LTR$=CHR$(0)+CHR$(80) THEN COLOR 15,6:LOCATE 9,42,0:PRINT USING "##";TI:LOCATE 9,44:PRINT MID$(TIME$,3,3):GOTO 100
  102. 910 IF H=11 AND LTR$=CHR$(0)+CHR$(75) THEN 200
  103. 920 IF H=11 AND LTR$=CHR$(0)+CHR$(77) THEN 200
  104. 930 IF H=11 AND LTR$=CHR$(0)+CHR$(72) THEN 100
  105. 940 IF H=11 AND LTR$=CHR$(0)+CHR$(80) THEN 100
  106. 950 RETURN
  107. 960 COLOR 15,6:LOCATE 9,42,0:PRINT USING "##";TI:LOCATE 9,44:PRINT MID$(TIME$,3,3):GOTO 260
  108. 970 BEEP:D$=DATE$:T$=TIME$:COLOR 14,1:LOCATE 5,31,0:PRINT" INVALID DATE ":COLOR 15,6:RESUME 120
  109.  
  110.