Юный техник 1992-04-05, страница 77

Имя файла данных?

Нужно придумать название блоку данных. Оно должно быть коротким (ие более 6 знаков, обязательно о буквенным символом на первом месте) и набран

ным в регистре латинского алфавита. Мы уже дали название программе — «ROBOT. ASC», подобное имя можно присвоить н файлу данных — «ROBOT 1».

После ввода имени файла данных нажатием клавиши «ч-l» на экране появится список режимов: Чтение н запуск файла данных — 1.

Создание нового файла данных — 2. Запись нового файла — 3. Начнем со второго режима, нажав клавишу 2. На экране — второй запрос: Длительность импульса, сек.?

Введенное здесь число будет определять время экспозиции курсора, необходимое для срабатывания исполнительного устройства. Если нужно держать реле включенным в течение нсего интервала времени между переходами с капала на канал, придется вписать в программу строки: 605? CHR Г? (155) 655 GOTO 670 675 GOTO 720 Следует заметить, что- сразу после вывода на экран списка режимов запускается цикл ожидания в интервале строк 130— 200. и в строке 150 идет отсчет времени. Эта пауза между моментом ввода имени файла данных и началом манипулирования клавишами «стрелки» запишется в блок данных и будет воспроизведена при запуске программы на чтение файла.

ю dim flndoi

20 CLEAR 4000 30 CIS

чо ? CHKQI155): 50 ?'

60 INPUT "№m файла данных" ;Frtr 70 ?

80 ? "Чтение и напуск файла дан...> - I■■

90 ? "Создание нлпого файла данным — 2"

100 ? "Запись нопого файла - 3"

110 N=1

120 Т=1000

130 aplNKE^

140 P=SIN( 1)

ISO Т=Т»1

160 LOCATE 1.23

170 ? CHto<15S)|

180 PRINT TABID; Таймер - "[T|

140 ? CHFta!155>;

200 IF Efa-" TH 130

210 IF V 1H UJO

220 IF S»t= Г- TH 520

230 IF ar="2" TH 240 EL 260

240 1OCATE 0.9

250 INPUT Длите/*.ностъ импугиса, сек ";DL

260 IF !kf=0HRa<8> TH

270 IF »j=CHFH<26) TH ЦР 'Л -

280 IF ЙГ=ПНКЦ<25) TH tfcp'29"

240 IF »r=r.HRtt<27> TH >tr="31"

300 IF LENIfn(N) 1)200 TH 310 EL 330

310 fld<N)=—V& -»flnCN)

320 N=M»1

330 IF A6C(ftl»27 TH 130

.wo «HiN>-- -Wta<N>*4a<- -x"'STito<m &■■

350 ? CHRu<155);

360 LOCATE V«.(rta>.23.l

370 FCK 1-1 ТО a «650

380 fCXT I

390 LOCATE P0S.23.O

400 T-1000

410 ? CHffciUS5>;

420 60T0 130

430 (nim«"vi-« <WN>

440 OPEN FFn FOR OUTPUT

450 PRINT • DL

460 FOR K-l TO N -

470 PRINT * (ia<IC>

480 t€XT k,

490 CLOSE

500 ? C«ta<1551l

510 60T0 20

520 OPEN FFn FOR INPUT

530 INPUT It DL

540 K-l

550 IF EOF TH 590 560 INPUT * fltjlf > 570 K=*H1 580 бОТО 550 590 CLOSE «Ю N=I

fclO FOR K=1 TO LEN((»JIN))-9

620 IF Hltt(<As<N>.»;.l),■■»■■ IH 63» EL 720

1630 FOR 1*1 TO VeL(MltW*tlN!,K«e.41>-lCOO

6ЧО J=31N<l)«SlNll)«SINm 6Б0 NEXT I

660 ? CWW155);

670 LOCATE VfiL<Hlte|(CttlN>,r*l.211,23,1

680 FOR 1=1 TO OL»6SO

690 NEXT I

700 LOCATE KK.23,0

710 ? CKWW5);

720 NEXT К

730 N=N*1

740 IF f*HN>=."" TH 760 750 OOTO 610 760 ? CKtal 155) : 770 GOTO 30

74