2.6. РЕЛЕ ЧАСУ для фотодруку.

Програма 2.12.

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