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

Программа 2.10.

2 PRINT AT 12,8;"Р- PAUSE"

3 PRINT AT 8,8; "SOLON 268-55-58"

4 PRINT AT 14,8;"N - NEW TELEFON"

5 PRINT AT 10,6;"PRESS NUMBER KEY 0-9"

6 PRINT AT 13,8;*R - REPEAT"

7 PRINT AT 19,4;"TLF: ";

11 DIM A (64)

12 FOR 1-1 TO 28

13 READ A (I): POKE (64000+1), A(l)

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,201

18 IF INKEY$ = "1" THEN LET C=1; GO SUB 1100

20 IF INKEY$ = "2" THEN LET C=2; GO SUB 1100

30 IF INKEY$ = "3" THEN LET C=3; GO SUB 1100

40 IF INKEY$ = "4" THEN LET C=4; GO SUB 1100

50 IF INKEY$ = "5" THEN LET C=5; GO SUB 1100

60 IF INKEY$ = "6" THEN LET C=6; GO SUB 1100

70 IF INKEY$ = "7" THEN LET C=7; GO SUB 1100

80 IF INKEY$ = "8" THEN LET C=8; GO SUB 1100

90 IF INKEY$ = "9" THEN LET C=9; GO SUB 1100

100 IF INKEY$ = "0" THEN LET C=10; GO SUE 1100

110 IF INKEY$ = "P" THEN PRINT "P";PAUSE 100

120 IF INKEY$ = "R* THEN GO SUB 2000

130 IF INKEY$ = "N" THEN RUN

200 GO TO 18

1100 FOR N=1 TO С

1110 RANDOMIZE USR 64001

1140 PAUSE 4

1150 NEXT N

1155 IF C=10 THEN LET C=0

1156 PRINT С

1157 PAUSE 100

1160 RETURN

2000 LET S=9

2005 PAUSE 200

2010 IF SCREENS (19,S)=" " THEN RETURN

2020 IF SCREENS (19,S)="P" THEN PAUSE 100

2030 IF SCREENS (19,S)="1" THEN LET C=1; GO SUB 3100

2040 IF SCREENS (19Д="2" THEN LET C=1; GO SUB=3100

2050 IF SCREENS (19,S)="3" THEN LET C=1; GO SUB 3100

2060 IF SCREENS (19,S)="4" THEN LET C=1; GO SUB 3100

2070 IF SCREENS (19,S)="5" THEN LET C=1; GO SUB 3100

2080 IF SCREENS (19,S)="6" THEN LET C=1; GO SUB 3100

2090 IF SCREENS (19,S)="7" THEN LET C=1; GO SUB 3100

2100 IF SCREENS (19,S)="8" THEN LET C=1; GO SUB 3100

2110 IF SCREENS (19,S)="9" THEN LET C=1; GO SUB 3100

2120 IF SCREENS (19,S)="0" THEN LET C=10; GO SUB 3100

2150 LET S=S+1

2160 GO TO 2010

3100 FOR N=1 TO С

3110 RANDOMIZE USR 64001

3140 PAUSE 4

3150 NEXT N

3157 PAUSE 100

3160 RETURN