10 REM ***************
   20 REM  Digital Clock
   30 REM   By Mark Ray
   40 REM ***************
   50 REM NC200 Version
   60 REM Downloaded from Tim's Amstrad NC User's Site
   70 REM http://www.ncus.org.uk
   80 REM Originally from the Amstrad Notepad Users' Web
   90 O$=" ":CLS:VDU29,0;64;:REPEAT:T$=RIGHT$(TIME$,8)
  100   IF LEFT$(T$,5)=O$ THEN PROCbig(RIGHT$(T$,2)) ELSE PROCbig(T$)
  110   O$=LEFT$(T$,5):REPEAT:UNTIL T$<>RIGHT$(TIME$,8):UNTIL INKEY(0)=13
  120 END
  130 DEF PROCbig(S$)
  140 S=LEN(S$):PRINT TAB(8-S,0);S$:S=S*6
  150 FOR Y=0TO7:VDU31,64-S,Y:FOR X=(48-S)TO48
  160     Z=-POINT(X,64-Y):VDU219AND Z,32AND NOT Z
  170   NEXT:NEXT:ENDPROC