1 'CLOCK.BA 2 'Analog Clock from Portable 100, 12/85, p. 28 3 ' 4 'Compacted and converted to run on 5 'both M100 and NEC 8201 by Gary Weber 7 ' 9 CLEAR 100 10 IFPEEK(1)=148ANDPEEK(64082!)+PEEK(64083!)*256<>62139!THENCLS:BEEP:PRINT"LINE.CO must first be installed before you can run this program on an NEC.":END 11 SCREEN,0:CLS:XX=33:YY=1:GOSUB22:PRINT"keys":XX=31:YY=3:GOSUB22:PRINT"m - menu" 12 XX=31:YY=5:GOSUB22:PRINT"z - zero":XX=32:YY=6:GOSUB22:PRINT"seconds" 13 OM=99:AP$=" AM" 14 HC=120:PHC=120.5:VC=31:PVC=31.5:ML=27:PML=29:HL=19:RD=3.14159265358979#/180:LINE(0,0)-(239,63),1,B:LINE(58,0)-(182,63),1,B:FOROH=0TO11:MX=PHC+PML*SIN(OH*30*RD):MY=PVC-PML*COS(OH*30*RD):LINE(MX-1,MY-1)-(MX+1,MY+1),1,B:NEXT 15 MX=0:MY=0 16 IN$=INKEY$:IFIN$=""THEN17ELSEIFIN$="m"ORIN$="M"THENMENUELSEIF(IN$="z"ORIN$="Z")ANDVAL(RIGHT$(TIME$,2))<30THENTIME$=MID$(TIME$,1,5)+":00" 17 T$=MID$(TIME$,1,5):OH=VAL(MID$(T$,1,2)):AP$=LEFT$(AP$,1)+CHR$(65-15*(OH>11))+RIGHT$(AP$,LEN(AP$)-2):OH=OH+12*(OH>12)-12*(OH=0) 18 XX=1:YY=2:GOSUB22:PRINTDATE$:XX=1:YY=4:GOSUB22:PRINTMID$(STR$(OH),2)+MID$(TIME$,3,6):XX=3:YY=5:GOSUB22:PRINTAP$ 19 IFVAL(MID$(T$,4,2))=OMTHEN16ELSELINE(HC,VC)-(PHC+MX*ML,PVC-MY*ML),0:LINE(HC,VC)-(PHC+HX*HL,PVC-HY*HL),0 20 OM=VAL(MID$(T$,4,2)):MX=SIN(OM*6*RD):MY=COS(OM*6*RD):HX=SIN((OM/60+OH)*30*RD):HY=COS((OM/60+OH)*30*RD) 21 LINE(HC,VC)-(PHC+MX*ML,PVC-MY*ML):LINE(HC,VC)-(PHC+HX*HL,PVC-HY*HL):GOTO16 22 PRINTCHR$(27)"Y"CHR$(32+YY)CHR$(32+XX);:RETURN