0DATA" O clock",3,"" 10DATAONE MINIT PAST,2,One minute pas t 20DATATOO,1,Two 30DATAThree,1,"" 40DATAFour,1,"" 50DATAFive,1,"" 60DATASix,1,"" 70DATASeven,1,"" 80DATAEIHT,1,Eight 90DATANine,1,"" 100DATATen,1,"" 110DATAEleven,1,"" 120DATATwelve,1,"" 130DATAThirteen,1,"" 140DATAFourteen,1,"" 150DATACWORTER PAST,2,Quarter past 160DATASixteen,1,"" 170DATASeventeen,1,"" 180DATAEIHTEEN,1,Eighteen 190DATANIYNTEEN,1,Nineteen 200DATATwenty,1,"" 210DATATwenty one,1,"" 220DATATWENTY TOO,1,Twenty two 230DATATwenty three,1,"" 240DATATwenty four,1,"" 250DATATwenty five,1,"" 260DATATwenty six,1,"" 270DATATwenty seven,1,"" 280DATATWENTY EYT,1,Twenty eight 290DATATwenty nine,1,"" 300DATAHARF PAST,2,Half past 310DATATwenty nine,4,"" 320DATATWENTY EYT,4,Twenty eight 330DATATwenty seven,4,"" 340DATATwenty six,4,"" 350DATATwenty five,4,"" 360DATATwenty four,4,"" 370DATATwenty three,4,"" 380DATATWENTY TOO,4,Twenty two 390DATATwenty one,4,"" 400DATATwenty,4,"" 410DATANIYNTEEN,4,Nineteen 420DATAEIHTEEN,4,Eighteen 430DATASeventeen,4,"" 440DATASixteen,4,"" 450DATACWORTER TOO,5,Quarter to 460DATAFourteen,4,"" 470DATAThirteen,4,"" 480DATATwelve,4,"" 490DATAEleven,4,"" 500DATATen,4,"" 510DATANine,4,"" 520DATAEIHT,4,Eight 530DATASeven,4,"" 540DATASix,4,"" 550DATAFive,4,"" 560DATAFour,4,"" 570DATAThree,4,"" 580DATATOO,4,Two 590DATAONE MINIT TO,5,One minute to 600DATA"" 610MODE0+128:VDU19,0,4;0;19,1,3;0;23;8 202;0;0;0;:S%=1 620ONERROR S%=0 630IF S%=1:*/SPEECH 640ONERROR:CLG 650PRINTTAB(0,1)"TELL THE TIME BY C.J. RICHARDSON."''"Select 1 - 5"''"1. I say the time."'"2. I say the time in five mi nutes."'"3. You say the time." 660PRINT"4. Stop the clock at your tim e."'"5. Real clock."''"Press ESCAPE to r eturn here.":REPEAT:V%=VALGET$:UNTILV%>0 ANDV%<6 670OX%=650:OY%=500:HX%=OX%:HY%=OY%:MX% =OX%:MY%=OY%:R%=400:U%=-1 680IF V%<>3:REPEAT:INPUT''"What start hour is it? Enter 1 - 12 and press RETUR N. "H%:UNTILH%>0ANDH%<13:REPEAT:INPUT "W hat start minute is it? Enter 0 - 59 and press RETURN. "M%:UNTILM%>-1ANDM%<60:TI ME=(H%*360000)+(M%*6000) 690CLS:MOVE650,900 700FOR T%=0 TO 360 STEP 10 710X%=R%*SIN(RAD(T%))+OX% 720Y%=R%*COS(RAD(T%))+OY% 730DRAW X%,Y% 740NEXT 750VDU5 760R%=450:FOR T%=0 TO 360 STEP 30 770X%=R%*SIN(RAD(T%))+OX% 780Y%=R%*COS(RAD(T%))+OY% 790MOVE X%,Y% 800IF T%<>0 PRINTSTR$(T%DIV30) 810NEXT:MOVEOX%-6,OY%+12:PRINT"*" 820VDU4 830PROCh:PROCm 840REPEAT:IF V%<>4:*FX21 850IF U%=-1PROCP 860IFV%=1ORV%=4:M%=M%+1 870IFV%=2:M%=M%+5 880IFV%=3:M%=RND(60):H%=RND(11) 890IFV%=5:J%=TIME:U%=M%:M%=(J% DIV6000 )MOD60:D%=(J% DIV100)MOD60:PRINTTAB(7,1) STR$H%;":";STRING$(2-LEN(STR$M%),"0");ST R$M%;":";STR$D%;" ":IF U%<>M% U%=-1:IF M%=0H%=H%+1 900IFM%>59M%=M%-60:H%=H%+1 910IF H%=13H%=1ELSE IF H%=0 H%=12 920IF U%=-1PROCm:PROCh:VDU5:MOVEOX%-6, OY%+12:PRINT"*":VDU4 930UNTILFALSE 940DEFPROCP:H$=STR$(H%) 950RESTORE M%*10:READ M$,Z%,A$:IFA$="" A$=M$ 960IFZ%=1:M$=M$+" MINITS PAST ":A$=A$+ " minutes past" 970IFZ%=2:REM Q PAST H PAST 980IFZ%=3:REM ON HOUR 990IFZ%=4:M$=M$+" MINITS TO ":A$=A$+" minutes to" 1000IF Z%>3:H$=STR$(VAL(H$)+1):IFH$="13 "H$="1" 1010L$="" 1020IF H$="12"H$=" twelve" 1030IF H$="11"H$=" eleven" 1040IF H$="10"H$=" ten" 1050IFH$="9"H$=" nine" 1060IFH$="8"H$=" eight":L$=" EIHT" 1070IFH$="7"H$=" seven" 1080IFH$="6"H$=" six" 1090IFH$="5"H$=" five" 1100IFH$="4"H$=" four" 1110IFH$="3"H$=" three" 1120IFH$="2"H$=" two":L$=" TOO" 1130IFH$="1"H$=" one" 1140IFZ%<>3IF L$=""M$=M$+H$:A$=A$+H$ EL SE IF Z%<>3 M$=M$+L$:A$=A$+H$ 1150IFZ%=3IFL$=""M$=H$+M$ ELSE IF Z%=3 M$=L$+M$ 1160IFZ%=3A$=CHR$(ASC(MID$(H$,2,1))-32) +MID$(H$,3)+A$ 1170PRINTTAB(0,0)SPC99 1180IFV%=3:PRINTTAB(25,0)"Say the time, then press a key":REPEATUNTILGET:PRINTT AB(0,0)SPC80 1190IF V%=4 IF INKEY0<>-1F%=1 ELSE F%=0 1200IF F%=1 OR V%<>4 PRINTTAB(0,0)A$TAB (7)STR$H%;":";STRING$(2-LEN(STR$M%),"0") ;STR$M%;:IF S%=1:OSCLI"*SAY "+M$:TIME=TI ME+328 1210IFV%=5ENDPROC 1220IFV%=4IF F%=0PRINTTAB(25,0);"Press a key to stop the clock" 1230IF V%<>4 OR F%=1 PRINTTAB(35,0)"Pre ss a key":REPEATUNTILGET 1240ENDPROC 1250DEFPROCh 1260R%=200:MOVE OX%,OY%:PLOT7,HX%,HY% 1270HX%=R%*SIN(RAD(H%*(30)+M%DIV2))+OX% 1280HY%=R%*COS(RAD(H%*(30)+M%DIV2))+OY% 1290MOVEOX%,OY%:DRAWHX%,HY% 1300ENDPROC 1310DEFPROCm 1320R%=350:MOVE OX%,OY%:PLOT7,MX%,MY% 1330MX%=R%*SIN(RAD(M%*6))+OX% 1340MY%=R%*COS(RAD(M%*6))+OY% 1350MOVE OX%,OY%:DRAWMX%,MY% 1360ENDPROC