NEW
10 REM CLOCK.BAS, FOR THE
20 REM INDUSTROLOGIC, INC.
30 REM SBC-1. THIS PROGRAM
40 REM SHOWS VARIOUS WAYS TO
50 REM FORMAT AND DISPLAY THE
60 REM REAL-TIME CLOCK.
90 REM ----------
1000 C=CEN0
1010 Y=YR0
1020 M=MON0
1030 D=DAY0
1040 H=HR0
1050 N=MIN0
1060 S=SEC0
1070 W=DOW0
1100 PRINT CHR(12);
1110 PRINT "Example date and ";
1120 PRINT "time displays, ";
1130 PRINT "ESCape to exit"
1140 PRINT
1200 REM ---------------------
1210 REM USE EXISTING COMMANDS
1220 PRINT "Using CLOCK 0: ";
1230 CLOCK 0
1240 PRINT
1250 PRINT "Using CLOCK 1: ";
1260 CLOCK 1
1270 PRINT:PRINT
1280 REM ---------------------
1300 REM DISPLAY MM/DD/YY
1310 IF M<10 THEN PRINT "0";
1320 PRINT M;"/";
1330 IF D<10 THEN PRINT "0";
1340 PRINT D;"/";
1350 IF Y<10 THEN PRINT "0";
1360 PRINT Y;
1370 PRINT " - ";
1380 REM ---------------------
1400 REM DISPLAY HH:MM:SS
1410 IF H<10 THEN PRINT "0";
1420 PRINT H;":";
1430 IF N<10 THEN PRINT "0";
1440 PRINT N;":";
1450 IF S<10 THEN PRINT "0";
1460 PRINT S
1470 REM ---------------------
1500 REM DISPLAY DAY OF WEEK
1510 GOTO (1600+(W*10))
1600 GOTO 1800
1605 PRINT "Sunday ";
1610 GOTO 1800
1615 PRINT "Monday ";
1620 GOTO 1800
1625 PRINT "Tuesday ";
1630 GOTO 1800
1635 PRINT "Wednesday ";
1640 GOTO 1800
1645 PRINT "Thursday ";
1650 GOTO 1800
1655 PRINT "Friday ";
1660 GOTO 1800
1665 PRINT "Saturday ";
1670 REM ---------------------
1800 REM DISPLAY MONTH
1810 GOTO (1900+(M*10))
1900 GOTO 2200
1910 PRINT "January ";
1915 GOTO 2200
1920 PRINT "February ";
1925 GOTO 2200
1930 PRINT "March ";
1935 GOTO 2200
1940 PRINT "April ";
1945 GOTO 2200
1950 PRINT "May ";
1955 GOTO 2200
1960 PRINT "June ";
1965 GOTO 2200
1970 PRINT "July ";
1975 GOTO 2200
1980 PRINT "August ";
1985 GOTO 2200
1990 PRINT "September ";
1995 GOTO 2200
2000 PRINT "October ";
2005 GOTO 2200
2010 PRINT "November ";
2015 GOTO 2200
2020 PRINT "December ";
2025 REM -----
2200 REM DAY, CENTURY, YEAR
2210 PRINT D;", ";C;
2220 IF Y<10 THEN PRINT "0";
2230 PRINT Y;
2240 PRINT " at ";
2250 REM ---------------------
2400 REM DISPLAY TIME IN AM/PM
2410 P=0
2420 IF H>11 THEN P=1
2430 IF H>12 THEN H=H-12
2440 IF H=0 THEN H=12
2450 PRINT H;":";
2460 IF N<10 THEN PRINT "0";
2470 PRINT N;" ";
2480 IF P=0 THEN PRINT "AM"
2490 IF P=1 THEN PRINT "PM"
2500 REM ---------------------
3000 S=SEC0
3010 K=INKEY
3020 IF K=27 THEN END
3030 IF SEC0=S THEN GOTO 3010
3040 GOTO 1000
RUN