Е.В.Воронин

ПРОГРАММА "DIR"

В последние годы для КУВТа-86 появилось "море" программных средств. Тем не менее каждый может найти интересное для себя в предложенной программе.

Эта небольшая программа создана для работы в сети КУВТа-86. Она позволяет упростить процесс загрузки программы при работе с диском.

Программа выдает на экран БК ученика каталог рабочего диска, в том же виде, что и при выполнении команды DIR операционной системы ДВК. Но кроме этого на экране будет курсор, которым можно управлять клавишами со стрелками, подводя его к любому имени файла. Выбранный файл с программой можно загрузить и запустить на выполнение. Для этого достаточно нажать на ВВОД.

Чтобы все сказанное происходило, необходимо перед организацией связи выполнить команду операционной системы для данного рабочего диска (с которого будут рассылаться по сети программы):

DIR/OU:CTLG DK:.

При выполнении этой команды на рабочем диске будет создан файл CTLG.DIR размером в 2-4 блока, в зависимости от количества файлов. Поэтому перед выполнением этой команды неплохо удостовериться, что на рабочем диске есть немного свободного места. При активном использовании программы "DIR" в своей работе лучше всего эту команду поставить "под ключ". Эту процедуру необходимо выполнять один раз при первом использовании рабочего диска и каждый раз при изменении каталога рабочего диска, т. е. при удалении, переименовании, записи новых файлов.

Для организации связи можно использовать программы NET.SAV, NET3.SAV, RIGA3.SAV и др.

Саму программу "DIR" (файл DIR.ASC) лучше держать на системной дискете, а при одноприводной работе на каждом рабочем диске.

Программа запускается стандартно:

LOAD"TT:SY:DIR",R (с системного диска)

LOAD"TT:DIR",R (с рабочего диска)

ЛИСТИНГ:

1 CLEAR 1500%

2 DIM A$(23%)

3 DEF USR=&O600

4 DATA 5569%,408%,5443%,4930%,4319%,82%,-27503%,32450%,5599%,408%,84%,135%

5 FOR X%=384% TO 406% ST 2%

6 READ V%

7 POKE X%,V%

8 NEXT X%

9 W$=CHR$(155%)

10 F PEEK(32%)=0% TH ?W$

11 ?CHR$(148%);CHR$(158%);CHR${145%);W$;CHR$(12%)

12 OPEN "TT:CTLG.DIR" FORINPUT

13 IF NOT EOF TH IN#A$

14 IF NOT EOF TH IN#A$(I%) EL 18

15 IF CSRLIN=22% TH 14 EL ?A$(I%)

16 I%=I%+1%

17 GOTO 14

18 CLOSE

19 ?А$(I%)АТ(6%,0%)"ПОДВЕДИТЕ КУРСОР К НУЖНОЙ ПРОГРАММЕ И НАЖМИТЕ 'ВВОД'"

20 LOCATE 11%,1%,1%

21 A$=INKEY$

22 IF A$="" TH 21 EL V%=ASC(A$)

23 IF (V%<25% OR V%>27%)AND V%<>10%AND V%<>8% TH 21

24 IF V%<>10% TH 36 EL X%=(POS\31%)*33%+1%

25 Y%=CSRLIN-1%

26 V%=LEN(A$(Y%))

27 IF (V%>9% AND V%<35% AND POS<20%)OR V%>35% TH 30

28 ?STRING$(55%,7%)

29 GOTO 21

30 B$="LOAD"+CHR$(34%)+"TT:"+MID$(A$(Y%),X%,6%)+CHR$(34%)+",R "+CHR$(10%)

31 T$=""+MID$(A$(Y%),X%+7%,3%)

32 IF T$="BIN" OR T$="COD" TH B$=""+MID$(T$,1%,1%)+B$ EL IF T$<>"ASC" TH 28 EL B$=""+"PO&O2006,200"+CHR$(10%)+B$

33 A$=""+W$+"NEW"+CHR$(10%)+B$

34 A$=USR(A$)

35 END

36 IF V%<26% TH ?AT((V%\25%)*33%+11%,CSRLIN); EL IF CSRLIN=1% AND V%=26% TH 21 EL IF NOT(LEN(A$(CSRLIN))<15% AND V%=27%) TH ?A$;

37 GOTO 21

Распознавание и преобразование в гипертекст: Владислав М. Антонов

2004 г.