home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
utils
/
d&t.zip
/
DT.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-08-26
|
6KB
|
110 lines
1 'Revision - Improved instruction line 5-6-87.
2 'Revision - Changed cursor and added color 7-21-87.
3 'Revision - Lowered price from $5.00 to $3.50 on 9-1-87.
10 'Copyright 1987 Robert L. Brown, 322 Davis Drive, Kingston, TN 37763
20 COLOR 0,6:CLS:COLOR 15,6:LOCATE 2,30,0:PRINT"SET DATE AND TIME"
30 COLOR 14,1:LOCATE 14,19:PRINT SPC(43)
40 LOCATE 15,19:PRINT spc(12)"BROWN ENTERPRISES"SPC(14)
50 LOCATE 16,19:PRINT SPC(13)"322 Davis Drive"SPC(15)
60 LOCATE 17,19:PRINT SPC(12)"Kingston, TN 37763"SPC(13)
70 locate 18,19:print spc(43)
72 LOCATE 19,19:PRINT SPC(4)"(C) Copyright 1987 Robert L. Brown"SPC(5)
74 LOCATE 20,19:PRINT SPC(15)"Price $3.50"spc(17)
76 LOCATE 21,19:PRINT SPC(43):COLOR 7,6
80 LOCATE 6,14:PRINT"(To change default date enter six digits as MMDDYY)"
90 LOCATE 7,20:PRINT"(Example: Enter June 4, 1987 as 060487)"
100 color 7,6:LOCATE 4,26:PRINT"Default date: "
110 LOCATE 23,25:PRINT"Continue with <R> or cursors. Exit with <Esc>."
120 H=2:D=1:LK=4:XK=41:ZK=6:ZZK=10
125 color 15,6:locate 23,9:print" Set new Date."
130 GOSUB 370:COLOR 15,6
140 IF D$="" THEN D$=DATE$
150 IF VAL(RIGHT$(D$,2))<80 THEN D$=LEFT$(D$,6)+"20"+RIGHT$(D$,2)
152 ON ERROR GOTO 970
160 D=0:DATE$=D$:LOCATE 4,41:PRINT D$
170 color 7,6:LOCATE 11,15:PRINT"(To change default time enter four digits as HHMM)"
180 LOCATE 12,25:PRINT"(Example: Enter 8:07 as 0807)"
190 LOCATE 9,27:PRINT"Default time:"
200 H=10:T=1:TM$="on":F=1:LK=9:XK=42:ZK=4:ZZK=10
205 color 15,6:locate 23,9:print" Set new Time."
210 LOCATE ,,1,5,7:GOSUB 370:COLOR 15,6
220 IF TI<12 THEN LOCATE 9,43:PRINT LEFT$(TIME$,5)" am":GOTO 250
222 LOCATE ,,0:TI=VAL(LEFT$(TIME$,2))
250 LOCATE 9,43:PRINT USING "##";TI:LOCATE 9,45:PRINT MID$(TIME$,3,3)
260 T=0:T$=TIME$
270 H=11:XK=48:ZK=1:ZZK=1
275 locate 23,9:print"Set <a>m/<p>m."
280 GOSUB 370:COLOR 15,6
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
300 IF LTR$="A" OR LTR$="a" THEN 330
310 IF LTR$="P" OR LTR$="p" THEN 350
320 BEEP:GOTO 280
330 TI=VAL(LEFT$(TIME$,2)):IF TI>11 THEN TI=TI-12:COLOR 15,6:LOCATE 9,48:PRINT"am":GOTO 360
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
350 TI=VAL(LEFT$(TIME$,2)):IF TI<12 THEN TI=TI+12:COLOR 15,6:LOCATE 9,48:PRINT"pm"
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
370 XP$="":COLOR 14,1:LOCATE 1,1,0:PRINT SPC(1) DATE$ SPC(1)
372 COLOR 15,6:LOCATE 4,41:PRINT DATE$
384 IF TIME$<T$ THEN T$=TIME$:GOTO 370
386 IF TIME$>T$ THEN T$=TIME$ ELSE 490
400 LOCATE ,,0:TI=VAL(TIME$):IF TI>11 THEN M$="pm" ELSE M$="am"
402 IF TI>12 THEN TI=TI-12
410 IF TI=0 THEN TI=12
420 COLOR 14,1:LOCATE 1,69,0:PRINT USING "##";TI:LOCATE 1,71,0:PRINT RIGHT$(TIME$,6)
430 IF M$="am" THEN LOCATE 1,77,0:PRINT" am ":GOTO 442
440 IF M$="pm" THEN LOCATE 1,77,0:PRINT" pm "
442 IF XP$>"" AND T=1 THEN 480
450 IF TM$="on" THEN COLOR 15,6:LOCATE 9,42,0:PRINT USING "##";TI:LOCATE 9,44:PRINT MID$(TIME$,3,3)
460 IF TM$="on" THEN LOCATE 9,47,0:PRINT" "M$" "
480 LOCATE LK,XK+LEN(XP$),1,5,7
490 LTR$=INKEY$:IF LTR$="" GOTO 384
500 COLOR 0,6:LOCATE 5,31:PRINT SPC(15):IF LTR$=CHR$(13) THEN RETURN
510 IF LEN(LTR$)>1 THEN LOCATE ,,0:GOTO 870
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
530 IF H=11 THEN 290
540 IF LEN(XP$)=0 AND LTR$=CHR$(8) GOTO 490
550 IF LTR$=CHR$(8) GOTO 860
560 IF D=1 GOTO 610
570 IF T=1 THEN 750
580 XP$=XP$+LTR$
590 IF LEN(XP$)>ZK THEN BEEP:XP$=LEFT$(XP$,LEN(XP$)-1)
600 COLOR 14,1:LOCATE LK,XK+LEN(XP$)-1:PRINT LTR$:LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
610 IF LTR$=CHR$(13) AND LEN(XP$)<6 THEN D$="":RETURN
620 IF LTR$<CHR$(48) OR LTR$>CHR$(57) THEN BEEP:LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
630 XP$=XP$+LTR$:COLOR 14,1:LOCATE LK,XK+LEN(XP$):PRINT SPC(6-LEN(XP$)):COLOR 0,6:PRINT SPC(4)
640 IF LEN(XP$)=1 AND VAL(LEFT$(XP$,1))<0 OR VAL(LEFT$(XP$,1))>1 GOTO 850
650 IF LEN(XP$)=2 AND VAL(LEFT$(XP$,2))<1 OR VAL(LEFT$(XP$,2))>12 GOTO 850
660 IF LEN(XP$)=3 AND VAL(MID$(XP$,3,1))<0 OR VAL(MID$(XP$,3,1))>3 GOTO 850
670 IF LEN(XP$)=4 AND VAL(MID$(XP$,3,2))<1 OR VAL(MID$(XP$,3,2))>31 GOTO 850
680 IF LEN(XP$)=5 AND VAL(RIGHT$(XP$,1))<0 OR VAL(RIGHT$(XP$,1))>9 GOTO 850
690 IF LEN(XP$)=6 AND VAL(RIGHT$(XP$,1))<0 OR VAL(RIGHT$(XP$,1))>9 GOTO 850
700 IF LEN(XP$)=6 GOTO 720
710 GOTO 600
720 IF VAL(RIGHT$(XP$,2))>50 AND VAL(RIGHT$(XP$,2))<100 THEN DYR$="19"
730 IF VAL(RIGHT$(XP$,2))>=0 AND VAL(RIGHT$(XP$,2))<51 THEN DYR$="20"
740 D$=LEFT$(XP$,2)+"-"+MID$(XP$,3,2)+"-"+DYR$+RIGHT$(XP$,2):RETURN
750 IF LTR$=CHR$(13) AND LEN(XP$)<4 THEN T$="":RETURN
760 IF LTR$<CHR$(48) OR LTR$>CHR$(57) THEN BEEP:LOCATE LK,XK+LEN(XP$),1,5,7:GOTO 490
770 XP$=XP$+LTR$:COLOR 14,1:LOCATE LK,XK+LEN(XP$):PRINT SPC(4-LEN(XP$)):COLOR 0,6:PRINT SPC(1)
780 IF LEN(XP$)=1 AND VAL(LEFT$(XP$,1))<0 OR VAL(LEFT$(XP$,1))>2 GOTO 850
790 IF LEN(XP$)=2 AND VAL(LEFT$(XP$,2))<0 OR VAL(LEFT$(XP$,2))>23 GOTO 850
800 IF LEN(XP$)=3 AND VAL(MID$(XP$,3,1))<0 OR VAL(MID$(XP$,3,1))>5 GOTO 850
810 IF LEN(XP$)=4 AND VAL(MID$(XP$,3,2))<0 OR VAL(MID$(XP$,3,2))>59 GOTO 850
820 IF LEN(XP$)=4 GOTO 840
830 GOTO 600
840 TIME$=LEFT$(XP$,2)+":"+RIGHT$(XP$,2):XP$="":RETURN
850 BEEP
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
870 IF H=10 AND LTR$=CHR$(0)+CHR$(77) THEN 960
880 IF H=10 AND LTR$=CHR$(0)+CHR$(75) THEN 960
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
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
910 IF H=11 AND LTR$=CHR$(0)+CHR$(75) THEN 200
920 IF H=11 AND LTR$=CHR$(0)+CHR$(77) THEN 200
930 IF H=11 AND LTR$=CHR$(0)+CHR$(72) THEN 100
940 IF H=11 AND LTR$=CHR$(0)+CHR$(80) THEN 100
950 RETURN
960 COLOR 15,6:LOCATE 9,42,0:PRINT USING "##";TI:LOCATE 9,44:PRINT MID$(TIME$,3,3):GOTO 260
970 BEEP:D$=DATE$:T$=TIME$:COLOR 14,1:LOCATE 5,31,0:PRINT" INVALID DATE ":COLOR 15,6:RESUME 120