Flop Magazin 36/Flop_Magazin_36_1995_04_Raster_cs_Side_B.atr/hlav35.lt

Text File | 2023-02-26 | 2KB | 1 lines

1 ? "}"¢2 ? "*******************************"¢3 ? "* _ _  ,             _,       *"¢4 ? "* Reseni hlavolamu z cisla 35 *"¢5 ? "*                             *"¢6 ? "*    (c) 1995.9 Jan Walla     *"¢7 ? "*                             *"¢8 ? "*******************************"¢10 ? :? "Inicializace:"¢20 DIM S(60),C(60),T$(6):DEG :POKE 752,1¢30 FOR I=0 TO 60:S(I)=SIN(I*6):C(I)=COS(I*6):? "";60-I;" ":NEXT I¢40 POKE 752,0:? :INPUT "Zadejte cas (hhmmss):",T$:TIME$= T$¢50 O=92:S=88:M=76:SR=74:VR=68:MR=55¢60 GRAPHICS 24:SETCOLOR 1,0,10:SETCOLOR 2,0,0:COLOR 1¢70 FOR I=1 TO 60¢80   PLOT 160+S(I)*O,96-C(I)*O¢90   IF I/5<>INT(I/5)¢100     DRAWTO 160+S(I)*S,96-C(I)*S¢110   ELSE ¢120     DRAWTO 160+S(I)*M,96-C(I)*M¢130   ENDIF ¢140 NEXT I¢150 ------------------------------¢160 DO ¢170   T$=TIME$¢180   SS=VAL(T$(5,6))¢190   IF SS<>SSO¢200     MM=VAL(T$(3,4))¢210     HH=VAL(T$(1,2))¢220     IF HH>=12 THEN HH=HH-12¢230     HH=HH*5+INT((MM+6)/12)¢240     IF MM<>MMO¢250       IF HH<>HHO¢260         COLOR 0:PLOT 160,96¢270         DRAWTO 160+S(HHO)*MR,96-C(HHO)*MR¢280         HHO=HH¢290       ENDIF ¢295       COLOR 0:PLOT 160,96¢300       COLOR 0:PLOT 160,96¢310       DRAWTO 160+S(MMO)*VR,96-C(MMO)*VR¢320       MMO=MM¢330     ENDIF ¢340     COLOR 0:PLOT 160,96¢350     DRAWTO 160+S(SSO)*SR,96-C(SSO)*SR¢360     COLOR 1:PLOT 160,96¢370     DRAWTO 160+S(SS)*SR,96-C(SS)*SR¢380     PLOT 160,96¢390     DRAWTO 160+S(HH)*MR,96-C(HH)*MR¢400     PLOT 160,96¢410     DRAWTO 160+S(MM)*VR,96-C(MM)*VR¢420     SSO=SS¢430   ENDIF ¢440 LOOP ¢450 ------------------------------¢