Каталог радиолюбительских схем

2.6. РЕЛЕ ВРЕМЕНИ ДЛЯ ФОТОПЕЧАТИ.

10 INPUT "INPUT Min..";m

20 INPUT "INPUT Sec:";s

30 LET D=60*m+s

35 PRINT "PRESS ANY KEY FOR BEGINNING"

38 PAUSE 0

39 CLS

40 POKE 23674,0

50 POKE 23673,0

60 POKE 23672,0

70 LET T= INT ((65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50),

75 PRINT AT 10,6;D; AT 10,16;T;" Sec*

80 IF T<D THEN GO TO 70

90 BEEP 1,1

95 CLS

100 PRINT "AGAIN? 1-YES, 0-NO (NEW PERIOD)"

110 IF INKEY$="1" THEN GO TO 40

112 IF INKEY$="0" THEN GO TO 115

114 GO TO 110

115 CLS

120 GO TO 10