22 lines
799 B
Plaintext
22 lines
799 B
Plaintext
100 PROGRAM "Clock.bas"
|
|
110 OPTION ANGLE DEGREES
|
|
120 LET CH=1:LET CH2=2
|
|
130 SET VIDEO MODE 1:SET VIDEO COLOR 1:SET VIDEO X 26:SET VIDEO Y 25
|
|
140 OPEN #1:"video:"
|
|
150 OPEN #2:"video:"
|
|
160 DO
|
|
170 LET H=VAL(TIME$(1:2)):LET M=VAL(TIME$(4:5)):LET S=VAL(TIME$(7:))
|
|
180 SET #CH:INK 3:PLOT #CH:420,420,ANGLE 90-30*H-M/2;FORWARD 200
|
|
190 PLOT #CH:420,420,ANGLE 90-6*M;FORWARD 350
|
|
200 SET #CH:INK 2:PLOT #CH:420,420,ANGLE 90-6*S;FORWARD 300
|
|
210 SET #CH:INK 1:PLOT #CH:420,420,ELLIPSE 12,12,ELLIPSE 400,400
|
|
230 PLOT #CH:394,812,:PRINT #CH:"12":PLOT #CH:784,434,:PRINT #CH:"3"
|
|
240 PLOT #CH:406,58,:PRINT #CH:"6":PLOT #CH:28,434,:PRINT #CH:"9"
|
|
250 DISPLAY #CH:AT 1 FROM 1 TO 25
|
|
260 CLEAR #CH2
|
|
270 LET T=CH:LET CH=CH2:LET CH2=T
|
|
280 LOOP UNTIL INKEY$=CHR$(27)
|
|
290 CLOSE #2
|
|
300 CLOSE #1
|
|
310 TEXT
|