2.5. ДАТЧИК КОДА МОРЗЕ.
Программа 2.11.
2 INPUT "SPEED" (50 - 200);q
3 IF q>200 OR q<50 THEN GO TO 2
5 PRINT AT 10,2;"PRESS NUMBER OR LETTER KEY"
10 LET p=64057: LET b=64001
11 DIM (120)
12 FOR I=1 TO 112
13 READ A(l): POKE (64000+I),A(I)
14 NEXT I
15 DATA 245,197,14,35,6,100,62,24,211,254,5,32,253,62,0,211,254,6,100,5,32,253,13,32,235,193,241,0
16 DATA 245,197,14,35,6,100,62,24,211,254,5,32,253,62,0,211,254,6,100,5,32,253,13,32,235,193,241,201
17 DATA 245,197,14,35,6,100,62,24,211,254,5,32,253,62,0,211,254,6,100,5,32,253,13,32,235,193,241,0
18 DATA 245,197,14,35,6,100,62,24,211,254,5,32,253,62,0,211,254,6,100,5,32,253,13,32,235,193,241,201
20 POKE 64004,12500/q;POKE 64032,4200/q;POKE 64060,4200/q;POKE 64088,4200/q;
21 IF INKEY$-T THEN RANDOMIZE USR p;RANDOMIZE USR b;RANDOMIZE USR b;RANDOMIZE USR b;RANDOMIZE USR b;
22 IF INKEY$="2" THEN RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR b; RANDOMIZE USR b;RANDOMIZE USR b;
23 IF INKEY$="З" THEN RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p.RANDOMiZE USR b;RANDOMIZE USR b;
24 IF INKEY$="4" THEN RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR b;
25 IF INKEY$="5" THEN RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p;
26 IF INKEY$="6" THEN RANDOMIZE USR b;RANDOMIZE USR p;RANDOMIZE USR p;RANDOM!ZE USR p;RANDOMIZE USR p;
27 IF INKEY$-V" THEN RANDOMIZE USR b.RANDOMIZE USR b;RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR p;
28 IF INKEY$="8* THEN RANDOMIZE USR b;RANDOMIZE USR b;RANDOMIZE USR b;RANDOMIZE USR p;RANDOMIZE USR p;
29 IF INKEY$="9" THEN RANDOMIZE USR b;RANDOMIZE USR b;
RANDOMIZE USR b:RANDOMIZE USR b;RANDOMIZE USR p
30 IF INKEY$="0" THEN RANDOMIZE USR b:RANDOMIZE USR b:RANDOMIZE USR b:RANDOMIZE USR b:RANDOMIZE USR Ь
31 IF INKEY$="q" THEN RANDOMIZE USR biRANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR b
32 IF INKEY$="w" THEN RANDOMIZE USR p:RANDOMIZE USR b:RANDOMIZE USR b
33 IF INKEY$="e" THEN RANDOMIZE USR p
34 IF INKEY$="r" THEN RANDOMIZE USR p:RANDOMIZE USR b:RANDOMIZE USR p
35 IF INKEY$="f" THEN RANDOMIZE USR b
36 IF INKEY$="y" THEN RANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR b:RANDOMIZE USR b
37 IF INKEY$="u" THEN RANDOMIZE USR p:RANDOMIZE USR p:RANDOMIZE USR b
38 IF INKEY$="i" THEN RANDOMIZE USR p;RANDOMIZE USR p
39 IF INKEY$="o" THEN RANDOMIZE USR biRANDOMIZE USR b:RANDOMIZE USR b
40 IF INKEY$="p" THEN RANDOMIZE USR p:RANDOMIZE USR b:RANDOMIZE USR b.RANDOMIZE USR p
41 IF INKEY$="a* THEN RANDOMIZE USR p:RANDOMIZE USR b
42 IF INKEY$="s" THEN RANDOMIZE USR p:RANDOMIZE USR p:RANDOMIZE USR p
43 IF INKEY$="d" THEN RANDOMIZE USR b.RANDOMIZE USR p:RANDOMIZE USR p
44 IF INKEY$="f" THEN RANDOMIZE USR p:RANDOMIZE USR p:RANDOMIZE USR b:RANDOMIZE USR p
45 IF INKEY$="g" THEN RANDOMIZE USR biRANDOMIZE USR b:RANDOMIZE USR p
46 IF INKEY$="h" THEN RANDOMIZE USR pjRANDOMIZE USR p:RANDOMIZE USR piRANDOMIZE USR p
47 IF INKEY$="t" THEN RANDOMIZE USR piRANDOMIZE USR b:RANDOMIZE USR biRANDOMIZE USR b
48 IF INKEY$="k" THEN RANDOMIZE USR biRANDOMIZE USR p:RANDOMIZE USR b
49 IF INKEY$="l" THEN RANDOMIZE USR piRANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR p
52 IF INKEY$="z" THEN RANDOMIZE USR b:RANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR p
53 IF INKEY$="x" THEN RANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR p:RANDOMIZE USR b
54 IF INKEY$="c" THEN RANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR b:RANDOMIZE USR p
55 IF INKEY$="v" THEN RANDOMIZE USR p:RANDOMIZE USR p:RANDOMIZE USR piRANDOMIZE USR b
56 IF INKEY$="b" THEN RANDOMIZE USR b:RANDOMIZE USR p:RANDOMIZE USR piRANDOMIZE USR p
57 IF INKEY$="n* THEN RANDOMIZE USR b.RANDOMIZE USR p
58 IF INKEY$="m" THEN RANDOMIZE USR b.RANDOMIZE USR b
59 IF INKEY$="?" THEN RANDOMIZE USR piRANDOMIZE USR p:
RANDOMIZE USR b;RANDOMIZE USR b;RANDOMIZE USR p;RANDOMIZE USR p
60 IF INKEY$="j" THEN RANDOMIZE USR b;RANDOMIZE USR b;RANDOMIZE USR p;RANDOMIZE USR p;RANDOMIZE USR b;RANDOMIZE USR Ь
200 GO TO 21
Содержание | © Каталог радиолюбительских схем
Все права защищены. Радиолюбительская страница.
Пишите нам. E-mail: irls@yandex.ru или irlks@mail.ru.
|
Я радиолюбитель |