Clock 2

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Clock 2

Source Code

   1 REM "CLOCK2"
   5 REM FRST WE DRAW THE CLOCK
  10 FOR N=1 TO 12
  20 PRINT AT 10-10*COS (N/6*PI),10+10*SIN (N/6*PI);N
  30 NEXT N
  35 REM NOW WE START THE CLOCK
  40 FOR T=0 TO 1000
  45 REM T IS THE TIME IN SECONDS
  50 LET A=T/30*PI
  60 LET SX=21+18*SIN A
  70 LET SY=22+18*COS A
 200 PLOT SX,SY
 210 PAUSE 42
 310 UNPLOT SX,SY
 400 NEXT T
 410 STOP 
 420 SAVE "1017%5"
 430 RUN 

People

No people associated with this content.

Scroll to Top