Що може ZX Spectrum. 2.4. ТЕЛЕФОННИЙ номеронабирачі.
2.4. ТЕЛЕФОННИЙ номеронабирач.
Програма 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
Ваш відгук