Ремонт принтеров, сканнеров, факсов и остальной офисной техники


назад Оглавление вперед




[94]

1030 RETURN

2000 PRINT " ЭТА ПРОГРАММ А ИЗМЕРЯЕТ СКОРОСТЬ"I

2005 PRINT

2010 PRINT "ВРАЩЕНИЯ ДИСК

ОВОДА. СКОРОСТЬ" 2015 PRINT

2020 PRINT "ИНДИЦИРУЕТСЯ

В МИЛЛИСЕКУНДАХ И" 2025 PRINT

2030 PRINT "ДОЛЖНА НАХОДИ

ТЬСЯ В ПРЕДЕЛАХ ОТ" 2035 PRINT

2040 PRINT "197.00 ДО 203 .00 МСЕК."

2045 PRINT

2050 PRINT " ДОПУСТИМЫ К

ОЛЕБАНИЯ СКОРОСТИ" 2055 PRINT

2060 PRINT "ВЕЛИЧИНОЙ ДО

1 МСЕК." 2065 PRINT

2070 INVERSE : PRINT " ВН ИМАНИЕ!! ": NORMAL :

2200 RETURN

3000 PRINT : HOME : PRINT

3010 PRINT TAB( 10)I"ПРО

ГРАММА СКОРОСТЬ" 3020 PRINT : RETURN

Программа "Личный секретарь"

10 ТЕХТ= 62: НОМЕ

100 G0SU8 1520

110 CLEAR : GOSUB 1210

120PRINT : PRINT D*I"OPE N I*"

121PRINT : PRINT D*I"REA D I*"

122FOR X « I TO Ql INPUT I*(X): NEXT X

123PRINT : PRINT D*"CLO SE"

130PRINT : PRINT D*"OPE N A*"

131PRINT : PRINT D* i "REA D A*"

132FOR X I TO 0: INPUT A*<X): NEXT X

133PRINT : PRINT D*"CL0 SE"

14 0 PRINT : PRINT D*J"OPE N T»"

141PRINT : PRINT D*"REA D T»"

142FOR X - .1 TO Q: INPUT T«<X): NEXT X

143PRINT : PRINT D*i"CL0 SE"

150PRINT : PRINT D*I•OPE N P«"

151PRINT : PRINT D*i"REA D P«"

152FOR X « 1 TO Q: INPUT P*<X>: NEXT X

153PRINT : PRINT DSfCLO SE"

160PRINT : PRINT D«I"OPE N 6*"

161PRINT : PRINT D* i"REA D 6*"

162FOR X « 1 TO Q: INPUT 6*<X>: NEXT X

163PRINT : PRINT D*;"CLO SE"

170 PRINT : PRINT D*l"OPE N K"

17 1 PRINT : PRINT D«"REA D K*

172FOR X « I TO Ql INPUT K<X>: NEXT X

173PRINT : PRINT DSICLO SE"

180PRINT : PRINT D*i"0PE N R"

181PRINT : PRINT DS>"REA D R"

182FOR X = 1 TO Q: FOR Y

= 1 TO 3: INPUT R(X, Y) : NEXT : NEXT

183PRINT : PRINT D*i"CLO SE"

190PRINT : PRINT D*i"OPE N C"

191PRINT : PRINT DSI"REA D C"

192FOR X « I TO Q t 1: INPUT C<X): NEXT X

193PRINT : PRINT D«*CL0 SE"

260 TEXT- 62: HOME

270 HTAB 12: VTAB 2: PRINT

"КАРТОТЕКА" 280 PRINT : PRINT TA8< 9

>"ПРОГРАММА СОЗДАНИЯ

И ВЕДЕНИЯ ЛИЧНОГО АРХ

ИВА"

290 PRINT : PRINT 300 PRINT "1> ПОЛНЫЙ ПР\-1С МОТР.................

.. 1"

310 PRINT : PRINT "2) ТЕЛ ЕФОННЫй УКАЗАТЕЛЬ ...


320

3,30

340

350

360

PRINT I PRINT "3) ПОИ •CK ПО Ф.И.0.........

PRINT • I PRINT "4) ПОИ CK ПО МЕСЯЦУ РОЖДЕНИЯ

..........4"

PRINT.: PRINT "5) ПОИ CK ПО НОМЕРУ ЛИСТА ..

PRINT I PRINT "6) ВBO Д ДАННЫХ В АРХИВ ....

..........6"

PRINT : PRINT "7) зап ИСЬ АРХИВА на ДИСКЕТУ

370 PRINT : PRINT "8) ВЫХ ОД из ПРОГРАММЫ .....

.8"

380

390

400

4 I 0 420 430 440 450 460

470

htab 8i vtab 29i print •выберите режим работ ы (1 - 8) " j

get V»: if len (V*) > 1 or val (v*) < 1 or val (v*) > 8 then 3B

0

v « val (v*): on V goto 410,600,700, "780, 860,9 20, 1270, 1530 home

gosub 1470 home :a = 0 for x = 0 to q gosub 490

if int (x / 10) = x / (10) then input "про должить? да(0) het(l)

" ;a

if a = 1 then goto 2 60: if x = q then 260

480 next X

490 print =««-=.

500 510

520

530

54 0

PRINT "ЛИСТ N "IX

PRINT "ПОЧТ.ИНДЕКС. "К<Х>

PRINT "ГОРОД.......

"IG*<X)

PRINT "АДРЕС.......

"A*<X)

PRINT "Ф.И.О.......

" I I*(x)

560

570

575

580

590 600 610 620 630 640

650

660 670 680

690 700 710

720

730 740 750

760 770 760 790

800

810

820 830

84 0 850

860 870

880

890

900 9 1 0 920 930

PRINT "ТЕЛЕФОН..... .

" IT*(X)

PRINT "ДЕНЬ РОЖДЕНИЯ. "R(X, 1)v"/- R(X,2)i" /"R<X,3)

PRINT "ДОП.ДАННЫЕ ... " IP* < X)

RETURN HOME

GOSUB 147 0 HOME :At « "0" FOR X « О TO Q IF INT (X / 12) = X / 12 THEN PRINT "ПРОДО Ji/КИТЬ? ДА(О) HET(l)"i : INPUT A*

IF A* « "1" THEN GOTO 260

PRINT XI")"II*(X)I PRINT ""T*(X>

IF X « Q THEN GOTO 2 60

NEXT X HOME

X* « "КАКОЕ ИМЯ": G0SU8 1510

INPUT J*: ONERR GOTO 260

L = LEN (J*) FOR X « 1 TO Q IF J* = LEFT* (I*(X) ,L> THEN GOSUB 490 NEXT

GET A*: GOTO 260 HOME

X* «."КАКОЙ МЕСЯЦ": GOSUB 1516

ONERR

GOTO

INPUT P: 790

IF P < 1 OR P > 12 THEN 780

FOR X = 1 TO Q

IF P « R<Xi2> THEN GOSUB

490

NEXT

GET S*: HOME : GOTO 2

60

HOME

X* « "КАКОЙ НОМЕР": 60SU8 1510

INPUT X: ONERR GOTO

870.

IF X < 1 OR X > О THEN

870

GOSUB 490 GET S*: GOTO 260 HOME : GOTO 109 0 M « C(0 + 1)


940 VTAB 131 PRINT "ЛИСТ N "M" ВВОД НОВЫХ ДА ИНЫХ"I VTAB 14: PRINT "XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXX XXXXXXXXXX"

950 VTAB 15: PRINT "ПОЧТ. - ИНДЕКС..."i: INPUT K< M)

960 VTAB 16: PRINT "ГОРОД

........."I: INPUT 6*

<M>

970 VTAB 17: PRINT "АДРЕС

........."I: INPUT A*

<M>

980 VTAB 18: PRINT "Ф.И.0

......INPUT I*

<M>

990 VTAB 19: PRINT "ТЕЛЕФ

OH......." i : INPUT T*

<M>

1000 VTAB 20: PRINT "ДЕНЬ РОЖДЕНИЯ."I: INPUT R <M, 1)

1010 VTAB 21i PRINT "MEC.

РОЖДЕНИЯ."l INPUT R <M,2>

1020 VTAB 221 PRINT "ГОД РОЖДЕНИЯ ."i: INPUT R <M,3>

1030 VTAB 23: PRINT "ДОП.

ДАННЫЕ .."II INPUT P «<M>

1040 VTAB 251 PRINT "BEPH

Ы-ЛИ ЭТИ ДАННЫЕ ? 0

- НЕТ 1 -- ДА"I 1050 Z - 0: INPUT Z 1060 IF Z « 1 AND О - 1 THEN

C<Q+ 1) « C<C + 1) +

ll GOTO 260 1070 IF 2 0 THEN FOR U

« 15 TO 25: VTAB U: PRINT

": NEXT

U: GOTO 940 1080 GOTO 260 1085 END 1090 HOME

1100 VTA# 5l PRINT "ВВОД

НОВЫХ ДАННЫХ* 1110 VTAB 111 PRINT "ИЗМЕ

НЕНИЯ В СТАРОМ ЛИСТЕ

........О"

1120 PRINT : PRINT "ОТКРЫ

ТИЕ НОВОГО ЛИСТА

.....1"

ИЗО GET h*t IF LEN <H*> > 1 OR VAL <H*> > 1 THEN 1130 1 140 О - VAL <H*> 1 150 IF 0 « 1 THEN HOME

: GOTO 930 1160 HOME

1170 VTA8 13: PRINT " С К акого номера листа ИС

Кать <i-"ic<q + i> -

1 i •) " i : INPUT N 1180 N = INT <N> 1 190 IF N < C(Q + 1) AND

N > 0 THEN X = N: HOME

: GOSUB 490:M = N: GOTO

940

1200 GOTO 260 12l0 Q = 450

1220 DIM I*(Q): DIM A»(Q) : DIM T*<Q): DIM K(Q) : DIM R(0, 3) :* DIM P*( Q)

123 0 DIM 6*(Q) 1240 DIM C<Q + 1):C<Q + 1 ) - 1

1250 D* - CHR* <4> 1260 RETURN

1270 HOME : VTAB 12: PRINT

СТИРАНИЕ АРХИВА.....

........О"

1280 VTAB 131 PRINT "ЗАПИ

Cb АРХИВА..........

... 1"

1290 INPUT Al IF A - 1 THEN 1340

1300 GOSUB 1520

1310PRINT I PRINT D*DE LETEI**

1311PRINT I PRINT D«"DE LETEA*"

1312PRINT I PRINT D*"DE LETET**

1313PRINT I PRINT D»"DE LETEB*"

1314PRINT I PRINT D*tDE LETEP**

1315PRINT I PRINT D**DE LETEK "

1316PRINT I PRINT D*"DE LETER "

1317PRINT I PRINT D*"DE LETEC "

1340 GOSUB 1520

1350PRINT I PRINT D«"OP EN I«"

1351PRINT I PRINT D«I"WR ITE I*"

1352FOR X « 1 TO Q: PRINT I*<X): NEXT X

1353PRINT : PRINT D*I"CL OSE*

1360PRINT : PRINT D*"0P EN A*"

1361PRINT I PRINT D*"WR ITE A**

1362FOR X = I TO Ql PRINT A*<X): NEXT X

1363PRINT I PRINT D«I"CL OSE*



[стр.Начало] [стр.1] [стр.2] [стр.3] [стр.4] [стр.5] [стр.6] [стр.7] [стр.8] [стр.9] [стр.10] [стр.11] [стр.12] [стр.13] [стр.14] [стр.15] [стр.16] [стр.17] [стр.18] [стр.19] [стр.20] [стр.21] [стр.22] [стр.23] [стр.24] [стр.25] [стр.26] [стр.27] [стр.28] [стр.29] [стр.30] [стр.31] [стр.32] [стр.33] [стр.34] [стр.35] [стр.36] [стр.37] [стр.38] [стр.39] [стр.40] [стр.41] [стр.42] [стр.43] [стр.44] [стр.45] [стр.46] [стр.47] [стр.48] [стр.49] [стр.50] [стр.51] [стр.52] [стр.53] [стр.54] [стр.55] [стр.56] [стр.57] [стр.58] [стр.59] [стр.60] [стр.61] [стр.62] [стр.63] [стр.64] [стр.65] [стр.66] [стр.67] [стр.68] [стр.69] [стр.70] [стр.71] [стр.72] [стр.73] [стр.74] [стр.75] [стр.76] [стр.77] [стр.78] [стр.79] [стр.80] [стр.81] [стр.82] [стр.83] [стр.84] [стр.85] [стр.86] [стр.87] [стр.88] [стр.89] [стр.90] [стр.91] [стр.92] [стр.93] [стр.94] [стр.95] [стр.96] [стр.97] [стр.98]