home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 1 / run1.zip / HORLOGE.BAS < prev    next >
BASIC Source File  |  2014-09-03  |  2KB  |  38 lines
  1. 100 REM POLSHORLOGE - CGA   DOOR W. VERSLOOT   HEERJANSDAM
  2. 110 CLS:KEY OFF:SCREEN 1:A=159:B=99:CIRCLE (A,B),75,1:CIRCLE (A,B),3
  3. 120 PSET(A,B):XSO=A:YSO=B:X1SO=A:Y1SO=B:XMO=A:YMO=B:CIRCLE(A,B),105
  4. 130 X1MO=A:Y1MO=B:LINE (85,37)-(100,0):LINE(233,37)-(218,0)
  5. 140 LINE(85,161)-(100,200):LINE(233,161)-(218,200)
  6. 150 PAINT (160,0),2,3:PAINT (160,199),2,3:FOR T=0 TO 6.28 STEP .524
  7. 160 X1=66*SIN(T)+A:Y1=66*COS(T)*.833+B:X2=70*SIN(T)+A:Y2=70*COS(T)*.833+B
  8. 170 LINE(X1,Y1)-(X2,Y2):NEXT:FOR T=0 TO 6.28 STEP .10466:X=70*SIN(T)+A
  9. 180 Y=70*.833*COS(T)+B:PSET(X,Y):NEXT:FOR I=1 TO 12:READ Y,X,GETAL$:LOCATE Y,X
  10. 190 PRINT GETAL$:NEXT:LINE(273,91)-(273,107):FOR T=0 TO 17 STEP 2
  11. 200 LINE(265,91+T)-(273,91+T):NEXT:CIRCLE(A,B),100:PAINT (160,15),1,3
  12. 210 U=VAL(LEFT$(TIME$,2)):M=VAL(MID$(TIME$,4,2)):S=VAL(RIGHT$(TIME$,2))
  13. 220 F$=RIGHT$(TIME$,2):PSET(A,B):P=.833*COS(.1046*S):Q=SIN(.1046*S)
  14. 230 XS=58*Q+A:YS=-58*P+B:X1S=6*Q+A:Y1S=-6*P+B:XA=-13*Q+A:YA=13*P+B
  15. 240 X1A=-6*Q+A:Y1A=6*P+B:LINE(XAO,YAO)-(X1AO,Y1AO),0
  16. 250 LINE(X1SO,Y1SO)-(XSO,YSO),0:LINE(XA,YA)-(X1A,Y1A),2
  17. 260 LINE (X1S,Y1S)-(XS,YS),2:XSO=XS:YSO=YS:XAO=XA:YAO=YA:X1AO=X1A
  18. 270 Y1AO=Y1A:X1SO=X1S:Y1SO=Y1S:P=.833*COS(.1046*M):Q=SIN(.1046*M)
  19. 280 XM=61*Q+A:YM=-61*P+B:X1M=6*Q+A:Y1M=-6*P+B:XB=-10*Q+A:YB=10*P+B
  20. 290 X1B=-6*Q+A:Y1B=6*P+B:IF S<>0 THEN 310
  21. 300 LINE(X1MO,Y1MO)-(XMO,YMO),0:LINE(XBO,YBO)-(X1BO,Y1BO),0
  22. 310 LINE(X1M,Y1M)-(XM,YM):LINE(XB,YB)-(X1B,Y1B):XMO=XM:YMO=YM:XBO=XB
  23. 320 YBO=YB:X1BO=X1B:Y1BO=Y1B:X1MO=X1M:Y1MO=Y1M
  24. 330 Q=.833*COS((.5233*U)+(.1046*M/12)):P=SIN((.5233*U)+(.1046*M/12))
  25. 340 XU=40*P+A:YU=-40*Q+B:X1U=6*P+A:Y1U=-6*Q+B:XC=-10*P+A:YC=10*Q+B
  26. 350 X1C=-6*P+A:Y1C=6*Q+B:IF S<>0 THEN 370
  27. 360 LINE(X1UO,Y1UO)-(XUO,YUO),0:LINE(XCO,YCO)-(X1CO,Y1CO),0
  28. 370 LINE(X1U,Y1U)-(XU,YU):LINE(XC,YC)-(X1C,Y1C):XUO=XU:YUO=YU:XCO=XC
  29. 380 YCO=YC:X1CO=X1C:Y1CO=Y1C:X1UO=X1U:Y1UO=Y1U
  30. 390 IF RIGHT$(TIME$,2)=F$ THEN 390 ELSE GOTO 210
  31. 400 DATA 4,20,"12",5,26," 1",9,30," 2",13,31," 3",17,30," 4",21,26," 5"
  32. 410 DATA 22,20," 6",21,14," 7",17,10," 8",13,9," 9",9,10,"10",5,14,"11"
  33. 420 REM /* 31/.3769,4210,3065,2397,3327,4072,3849,4558,3509,3688
  34. 430 REM /*/....4113,3747,3794,2969,3238,4163,3830,3754,2107,3532
  35. 440 REM /*/....4280,2914,3406,3782,2115,3568,4350,2952,2458,2861
  36. 450 REM /*/....2919
  37. 460 REM Checksum...............:  107296
  38.