CLS
SCREEN 12: X0 = 320: Y0 = 200: R = 70: PI = 4 * ATN(1)
CIRCLE (X0, Y0), 80: CIRCLE (X0, Y0), 110
LOCATE 7, 40: PRINT "12": LOCATE 19, 40: PRINT "6"
LOCATE 8, 34: PRINT "11": LOCATE 8, 47: PRINT "1"
LOCATE 10, 30: PRINT "10": LOCATE 10, 51: PRINT "2"
LOCATE 13, 28: PRINT "9": LOCATE 13, 53: PRINT "3"
LOCATE 16, 30: PRINT "8": LOCATE 16, 51: PRINT "4"
LOCATE 18, 34: PRINT "7": LOCATE 18, 47: PRINT "5"
FOR I = 0 TO 11
A = I * PI / 6
X = R * COS(A): Y = R * SIN(A)
PSET (X0, Y0)
NEXT I
LOCATE 3, 36: PRINT DATE$
PSET (X0, Y0)
DO
LOCATE 5, 37: PRINT TIME$
S = VAL(TIME$): F = VAL(MID$(TIME$, 4, 2)): M = VAL(MID$(TIME$, 7, 2))
SD = -(30 * S + F / 2) MOD 360: FD = -6 * F: MD = -6 * M
DRAW "C15TA=" + VARPTR$(SD) + "NU35"
DRAW "C9TA=" + VARPTR$(FD) + "NU45"
DRAW "C12TA=" + VARPTR$(MD) + "NU55"
DO
IF INKEY$ <> "THEN END" THEN
QM = VAL(MID$(TIME$, 7, 2))
END IF
LOOP WHILE M = QM
DRAW "C0"
DRAW "TA=" + VARPTR$(SD) + "NU35"
DRAW "TA=" + VARPTR$(FD) + "NU45"
DRAW "TA=" + VARPTR$(MD) + "NU55"
LOOP: END

screen 12:x0=320:y0=200:r=70:pi=4*atn(1)
circle(x0,y0),80:circle(x0,y0),110
locate 7,40:print "12";locate 19,40:print "6"
locate 8,34:print "11":locate 8,47:print "1"
locate 10,30:print "10":locate 10,51:print "2"
locate 13,28:print "9":locate 13,53:print "3"
locate 16,30:print "8":locate 16,51:print "4"
locate 18,34:print "7":locate 18,47:print "5"
for i=1 to 11
a=i*pi/6
x=r*c0s(a):y=r*sin(a)
pset(x+x0,y+y0)
next i
locate 3,36:print date$
pest(x0,y0)
do
locate 5,37:print time$
s=val(time$):f=val(mid$(time$,4,2)):m=val(mid$(time$,7,2))
sd=-(30*s+f/2) mod 360:fd=-6*f:md=-6*m
draw"c15ta="+varptr$(sd)+"nu35"
draw"c9ta="+varptr$(fd)+"nu45"
draw"c12ta="+varptr$(md)+"nu55"
do
if inkey$<>"then end" then
qm=val(mid$(time$,7,2))
loop while m=qm
draw"c0"
draw"ta="+varptr$(sd)+"nu35"
draw"ta="+varptr$(fd)+"nu45"
draw"ta="+varptr$(md)+"nu55"
loop:end
申明:我和一楼的不一样!!