10 REM******
20 REM* CLOCK
30 REM* WM V R SMITH
40 REM* ARTSCI INC
50 REM*****
60 CLS
70 DIM M$(12)
80 GOSUB 840
90 X=VAL(TIME$)
100 FL=DAY
110 M$="AM"
120 IF X>11 THEN M$="PM"
130 LOCATE18,0:PRINTM$
140 D$=DATE$
150 M=VAL(D$)
160 X=LEN(STR$(M))
170 D$=RIGHT$(D$,LEN(D$)-X)
180 D=VAL(D$)
190 LOCATE17,2
200 PRINT M$(M);
210 LOCATE17,3
220 PRINT D;
230 LOCATE17,1
240 PRINT D$(DAY);
250 FOR Y=6 TO 16 STEP 10
260 FOR X=45TO 49
270 LINE(X,Y)-(X,Y+2),PSET
280 NEXT:NEXT
290 LOCATE0,0
300 A$=TIME$
310 H=VAL(A$)
320 IF H=0 THEN H=12
330 IF FL<>DAY THEN90
340 A$=RIGHT$(A$,5)
350 M=VAL(A$)+100:IF H>12 THEN H=H-12
360 S=VAL(RIGHT$(A$,2))
370 T1$=RIGHT$("  "+STR$(H),2)
380 I$="00"+STR$(M)
390 T1$=T1$+RIGHT$(I$,2)
400 LINE(S,28)-(S,31),PSET
410 IF INKEY$<>"" THEN COPY
420 IF INKEY$<>""  THEN 420
430 IF T1$=O$ THEN300
440 FOR W=1 TO 4
450 LINE(0,27+W)-(60,27+W),PRESET
460 NEXT
470 FOR W=4 TO 1 STEP-1
480 IF MID$(T1$,W,1)=MID$(O$,W,1) THEN 560
490 T$=MID$(T1$,W,1)
500 IFT$<>" " THEN530
510 A$="0000000"
520 N=0 :XB=0:GOTO550
530 A$=A$(VAL(T$))
540 N=XC(W):XB=XO(W)
550 GOSUB 680
560 NEXT
570 O$=T1$
580 GOTO300
590 STOP
600 FOR Q=0 TO 2
610 LINE(X1,Y1+Q)-(X1+16,Y1+Q),PRESET,C
620 NEXT
630 RETURN
640 FOR Q=0 TO 2
650 LINE(X1+Q,Y1)-(X1+Q,Y1+13),PRESET,C
660 NEXT
670 RETURN
680 FORZ=0 TO 3
690 LOCATEN,Z
700 PRINT"   ";
710 NEXT
720 FOR Z=1 TO 7
730 C=VAL(MID$(A$,Z,1))
740 IF C=0 THEN 790
750  X1=XB+O(Z,1)
760 Y1=YB+O(Z,2)
770 IF L(Z)=1 THEN 810
780 GOSUB 600
790 NEXT Z
800 RETURN
810 GOSUB 640
820 GOTO 790
830 RETURN
840 DATA0,0,0,0
850 DATA14,0,0,11
860 DATA0,11,14,11
870 DATA0,22
880 FOR X=1 TO 7
890 READ O(X,1),O(X,2)
900 NEXT
910 DATA0,1,1,0,1,1,0
920 FORX=1 TO 7:READ L(X):NEXT
930 DATA 1110111
940 DATA 0010010
950 DATA 1011101
960 DATA 1011011
970 DATA 0111010
980 DATA 1101011
990 DATA 1101111
1000 DATA 1010010
1010 DATA 1111111
1020 DATA 1111011
1030 FOR X=0 TO 9
1040 READ A$(X)
1050 NEXT
1060 DATA0,0
1070 DATA4,24
1080 DATA 9,54
1090 DATA 13,78
1100 FOR X=1 TO 4
1110 READXC(X),XO(X)
1120 NEXT
1130 DATA JAN,FEB,MAR
1140 DATAAPR,MAY,JUN
1150 DATAJUL,AUG,SEP
1160 DATA OCT,NOV,DEC
1170 FOR X=1 TO 12
1180 READ M$(X)
1190 NEXT
1200 DATA SUN
1210 DATAMON,TUE,WED
1220 DATATHU,FRI,SAT
1230 FOR X=1 TO7
1240 READ D$(X)
1250 NEXT
1260 RETURN