5 Written by Peter Lewis. Please copy freely!! k Because of speed problem Hours and mins may be out if swiched on - pressing a key redraws the screen. *NAME CLOCK  BIGNUMS  (GETTIME !2 0,3);DATE$;" ";80,6);APM$ <_PRNc(42):_PRNc(60) 3F_PRINT(MIN$,48): (HOUR$) < 2 HOUR$="0"+HOUR$ P_PRINT(HOUR$,30) USSEC$=SEC$ Z _ dGETTIME VgK=0: K > 0 _PRINT(MIN$,48):_HOUR: K=81 ("*CLI #I"):_PRINT(MIN$,48):_HOUR h SSEC$<>SEC$ jSSEC$=SEC$ n_PRINT(SEC$,66) s 82,4);T$,COMPOS%+2,8); 4x SEC$="00" _PRINT(MIN$,48) MIN$="00" _HOUR    ** GET THE TIME **  GETTIME T$=$ COMPOS%=T$,",") DATE$=T$,1,COMPOS%-1) $HOUR=(T$,COMPOS%+2,2)) .APM$="am" 8 HOUR >11 APM$="pm" = HOUR=0 HOUR=12 B HOUR >12 HOUR=HOUR-12 GHOUR$=(HOUR) LMIN$=T$,COMPOS%+5,2) VSEC$=T$,COMPOS%+8,2) ` : *******  *** PRINT ***  _PRINT(A$,X)  A$,1,1)="1" _PRN1(X)  A$,1,1)="2" _PRN2(X)  A$,1,1)="3" _PRN3(X)  A$,1,1)="4" _PRN4(X)   A$,1,1)="5" _PRN5(X)  A$,1,1)="0" _PRN0(X)   A$,2,1)="1" _PRN1(X+6) * A$,2,1)="2" _PRN2(X+6) 4 A$,2,1)="3" _PRN3(X+6) > A$,2,1)="4" _PRN4(X+6) H A$,2,1)="5" _PRN5(X+6) R A$,2,1)="6" _PRN6(X+6) \ A$,2,1)="7" _PRN7(X+6) f A$,2,1)="8" _PRN8(X+6) p A$,2,1)="9" _PRN9(X+6) z A$,2,1)="0" _PRN0(X+6)  : ******  *** HOUR *** _HOUR ! (HOUR$) <2 HOUR$="0"+HOUR$  _PRINT(HOUR$,30)  0,3);DATE$;80,6);APM$  ' *** PRN1 *** ' _PRN1(X) $' I=1 7 .' X,I-1)A1$(I) 8' I B' : ****** t' *** PRN2 *** ~' _PRN2(X) ' I=1 7 ' X,I-1)A2$(I) ' I ' : ****** ' *** PRN2 *** ' _PRN2(X) ' I=1 7 ' X,I-1)A2$(I) ( I  ( : ****** <( *** PRN3 *** F( _PRN3(X) P( I=1 7 Z( X,I-1)A3$(I) d( I n( : ****** ( *** PRN4 *** ( _PRN4(X) ( I=1 7 ( X,I-1)A4$(I) ( I ( : ****** ) *** PRN5 *** ) _PRN5(X) ) I=1 7 ") X,I-1)A5$(I) ,) I 6) : ****** h) *** PRN6 *** r) _PRN6(X) |) I=1 7 ) X,I-1)A6$(I) ) I ) : ****** ) *** PRN7 *** ) _PRN7(X) ) I=1 7 ) X,I-1)A7$(I) ) I ) : ****** 0* *** PRN8 *** :* _PRN8(X) D* I=1 7 N* X,I-1)A8$(I) X* I b* : ****** * *** PRN9 *** * _PRN9(X) * I=1 7 * X,I-1)A9$(I) * I * : ****** * *** PRN0 *** + _PRN0(X) + I=1 7 + X,I-1)A0$(I)  + I *+ : ****** \+ *** PRNc *** f+ _PRNc(X) p+ I=1 7 z+ X,I-1)Ac$(I) + I + : ******  N ** BIG NUMS ** *N BIGNUMS 1>N 1,138,61,65,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF HNA$=1+130+"?"+(65) :\N A1$(7): A2$(7): A3$(7): A4$(7): A5$(7): A6$(7) 1fN A7$(7): A8$(7): A9$(7): A0$(7): Ac$(7) zNA1$(1)=" "+A$+" " NA1$(2)=" "+A$+A$+" " NA1$(3)=" "+A$+" " NA1$(4)=" "+A$+" " NA1$(5)=" "+A$+" " NA1$(6)=" "+A$+" " NA1$(7)=" "+A$+" " NA2$(1)=" "+A$+A$+A$+" " NA2$(2)=A$+" "+A$ NA2$(3)=" "+A$ NA2$(4)=" "+A$+" " NA2$(5)=" "+A$+" " NA2$(6)=" "+A$+" " NA2$(7)=A$+A$+A$+A$+A$ OA3$(1)=A$+A$+A$+A$+A$ OA3$(2)=" "+A$+" " OA3$(3)=" "+A$+" " $OA3$(4)=" "+A$+" " .OA3$(5)=" "+A$ 8OA3$(6)=A$+" "+A$ BOA3$(7)=" "+A$+A$+A$+" " LOA4$(1)=" "+A$+" " VOA4$(2)=" "+A$+A$+" " `OA4$(3)=" "+A$+" "+A$+" " jOA4$(4)=A$+" "+A$+" " tOA4$(5)=A$+A$+A$+A$+A$ ~OA4$(6)=" "+A$+" " OA4$(7)=" "+A$+" " OA5$(1)=A$+A$+A$+A$+A$ OA5$(2)=A$+" " OA5$(3)=A$+A$+A$+A$+" " OA5$(4)=" "+A$ OA5$(5)=" "+A$ OA5$(6)=A$+" "+A$ OA5$(7)=" "+A$+A$+A$+" " OA6$(1)=" "+A$+A$+" " OA6$(2)=" "+A$+" " OA6$(3)=A$+" " OA6$(4)=A$+A$+A$+A$+" " PA6$(5)=A$+" "+A$  PA6$(6)=A$+" "+A$ PA6$(7)=" "+A$+A$+A$+" " PA7$(1)=A$+A$+A$+A$+A$ (PA7$(2)=" "+A$ 2PA7$(3)=" "+A$+" " t Cambridge Computer Ltd. EG PROCE(1020) TO EDIT LINE 1020 ~ B=0 A=":RAM.0/EE.CLI" B$=":RAM.0/E.CLI" #A,".>"+B$ #A,".J","LIST"+(B),"PROCF" #A *CLI .*:RAM.0/EE.CLI   F A=(0) A= B$ #A,A$,A$ #A A= B$  #A,".J",A$ #A=#A-1 #A,0 (#A 2*ERASE :RAM.0/EE.CLI <8 F"*CLI .<"+B$ P