bogodukhov_s_i_sinyukhin_a_v_kozik_e_s_kurs_materialovedeniy

K d

Для расчета коэффициентов K F и K F , учитывающих влияние об работки поверхности, используем формулы:

Коэффициент, учитывающий влияние анизотропии свойств:

K A 1 в ; 6000

K A 1 1030 0,828. 6000

Для вала с диаметром 60 мм, подвергнутого закалке и высокому отпуску, Kv 1,2.

Тогда

312 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

Коэффициенты запаса прочности по нормальным па и касатель ным пт напряжениям равны:

При одновременном действии нормальных и касательных напря жений коэффициент запаса прочности равен:

2,64 4,48

n 2,27. 2,64 2 4,482

Запас прочности больше 2 удовлетворяет условиям.

СПИСОК ЛИТЕРАТУРЫ

1.Гуляев A.П. Металловедение: учебник для вузов. М.: Металлургия, 1986.

542 с.

2.Материаловедение: учебник для вузов / Под общ. ред. Б.Н. Арзамасова. М.: Машиностроение, 2008. 648 с.

3.Лахтин Ю.М., Леонтьева В.П. Материаловедение: учебник для вузов. М.: Машиностроение, 1993. 448 с.

4.Строение и свойства авиационных материалов: учебник для вузов / Под ред. А.Ф. Белова и В.В. Николенко. М.: Металлургия, 1989. 368 с.

5.Геллер Ю.А., Рахштадт А.Г. Материаловедение: учебн. пособие для ву зов / Под ред. А.Г. Рахштадта. М.: Металлургия, 1989. 454 с.

6.Новиков В.И. Теория термической обработки металлов. M.: Металлур гия, 1980. 280 с.

7.Золоторевский В.С. Механические свойства металлов: учебник для ву зов. М.: Металлургия, 1983. 350 с.

8.Материаловедение и технология металлов: учебник для вузов / Т.П. Фети сов, М.Г. Карпман, В.М. Матюнин и др. М.: Высш. шк., 2008. 877 с.

9.Международный транслятор современных сталей и сплавов. Т. I. Под ред. B.C. Кершенбаума. М.: Центр «Наука и техника», 1992. 1193 с.

10.Марочник сталей и сплавов / В.Г. Сорокин, А.В. Волосникова, С.А. Вят кин и др. Под ред. В.Г. Сорокина. М.: Машиностроение, 1989. 640 с.

11.Технология металлов и материаловедение / Б.В. Кнорозов, Л.Ф. Усова, А.В. Третьякова и др. М.: Металлургия, 1987. 800 с.

12.Мозберг Р.К. Материаловедение: учебн. пособ. М.: Высш. шк., 1991. 448 с.

13.Журавлев B.H., Николаев В.И. Машиностроительные стали: справоч ник. М.: Машиностроение, 1992. 480 с.

14.Машиностроительные материалы: Краткий справочник / Под ред. В.М. Раскатова. М.: Машиностроение, 1980. 512 с.

15.Масленков С.Б., Масленкова Е.А. Стали и сплавы для высоких темпера тур: Справочник. В 2 х кн. М.: Металлургия, 1991. Кн. 1. 381 с. Кн. 2. 832 с.

16.Конструкционные материалы: справочник / Под общ. ред. Б.Н. Арзама сова. М.: Изд во МГТУ им. Н.Э. Баумана, 2005. 637 c.

17.Материалы в приборостроении и автоматике: справочник / Под ред. Ю.М. Пятина. М.: Машиностроение, 1982. 528 с.

18.Анциферов В.Н., Буланов В.Я., Богодухов С.И., Гревнов Л.М. Термохи мическая обработка порошковых сталей. Екатеринбург: УрО РАН, 1997. 481 с.

19.Бондаренко В.А., Богодухов С.И. Обеспечение качества и улучшение характеристик режущих инструментов. М.: Машиностроение, 2000. 144 с.

20.Энциклопедия неорганических материалов. Т. 1 и 2. Киев: Украинская Сов. энциклопедия, 1977.

21.Физический энциклопедический словарь. Т. 1. М.: Сов. энциклопедия, 1983. 928 с.

314КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

22.Мотовилин Г.В., Масино М.А., Суворов О.М. Автомобильные материа лы: Справочник. М.: Транспорт, 1989. 464 с.

23.Промышленные алюминиевые сплавы: Справочник / Под ред. Ф.И. Квасова и И.Н. Фридляндера. М.: Металлургия, 1984. 527 с.

24.Золотаревский В.С., Белов Н.А. Металловедение аллюминиевых спла вов. М.: МИСИС, 2005. 376 с.

25.Смирягин А.П., Смирягина Н.А., Белова А.В. Промышленные цветные металлы и сплавы: Справочник. М.: Металлургия, 1974. 488 с.

26.Каменев Е.И., Мясников Г.Д., Платонов М.П. Применение пластиче ских масс. Справочник. Л.: Химия, 1985. 448 с.

27.Кацнельсон М.Ю., Балаев Г.А. Полимерные материалы: Справочник. Л.: Химия, 1982. 317 с.

28.Назаров Г.И., Сушкин В.В., Дмитриевская Л.В. Конструкционные пласт массы: Справочник. М.: Машиностроение, 1973. 192 с.

29.Мирзоев Р.Г. Пластмассовые детали машин и приборов. Л.: Машино строение, 1971. 368 с.

30.Синюхин А.В. Сборник программированных вопросов: программа ЭВМ. Оренбург: ФАП ОГУ N 276, 1996. 130 с.

31.Синюхин А.В. Контролирующая программа «Упражнения по диаграмме железо углерод», свидетельство о регистрации № 2003611889. Роспатент, 2003 г.

32.Богодухов С.И., Абрамов А.К. Поиск конструкционных материалов с ис пользованием ЭВМ: Информац. листок № 214 94. Оренбург: ЦНТИ, 1994. 3 с.

33.Богодухов С.И., Абрамов А.К., Кудинский О.С. и др. Программный ком плекс «Выбор требуемых материалов». Информац. листок № 41 94. Оренбург: ЦНТИ, 1994. 3 с.

34.Курс материаловедения в вопросах и ответах: учебн. пособие / С.И. Бого духов, В.Ф. Гребенюк, А.В. Синюхин. 2 е изд. М.: Машиностроение, 2005. 288 с.

35.Богодухов С.И. Обработка упрочненных поверхностей в машинострое нии и ремонтном производстве: учеб. пособие для вузов / С.И. Богодухов, В.Ф. Гребенюк, А.Д. Проскурин. М.: Машиностроение, 2005. 256 с.

36.Основы проектирования заготовок в автоматизированном машино строении: учебн. пособие / С.И. Богодухов, А.Г. Схиртладзе, Р.М. Сулейма нов, Е.С. Козок, Е.В. Бондаренко. Оренбург: ГОУ ОГУ, 2006. 441 с.

37.Технологические процессы в машиностроении: учебник для вузов / С.И. Богодухов, А.Г. Схиртладзе, Р.М. Сулейманов, А.Д. Проскурин // Под ред. С.И. Богодухова. Оренбург: ГОУ ОГУ, 2008. 482 с.

38.Когаев В.П. Прочность и износостойкость деталей машин: учебн. посо бие. М.: Высш. школа. 1991. 319 с.

ПРИЛОЖЕНИЯ

ПРИЛОЖЕНИЕ I

Управляющая и задающая режимы работы программа «Материаловедение»

5 'Программа aqus

10 DIM R7(600),M(20),S(20)

20 CLS:KEY OFF:KEY (8) ON:SCREEN 2:LOCATE 10,29:PRINT "Q U E S T I O N S" :LINE(216"68) (428,84)"B: LINE(212,66) (432,86)"B:LOCATE 23,55: GOSUB 910:ON KEY (8) GOSUB 320

30 OPEN "z7" AS#1 LEN=2:FIELD#1,2 AS Z$:GET#1,1:Z7= VAL(Z$): CLOSE

40 CLS:LOCATE 5,34:PRINT"ЗДРАВСТВУЙТЕ!"

50 LOCATE 23,5:PRINT"Иванов П.С.":LOCATE 24,5:PRINT" 89МАПП2": LOCATE 7,5:PRINT" Запишите, пожалуйста, ваши фамилию, инициалы и номер группы, в которой вы учитесь ":PRINT" Образец записи вы видите в нижней части экрана.": PRINT:PRINT

60 INPUT"Ф.И.О.: ",S5$

70 INPUT "Группа: ",S6$

80 IF S5$="" THEN CLS:GOTO 50

90 OPEN "stud" AS#1 LEN=44

100 FIELD#1,4 AS NUM$,20 AS A$,8 AS B$,2 AS C$,10 AS D$ 110 N=20 LEN(S5$):N1=8 LEN(S6$):S5$=S5$+SPACE$(N): S6$=

S6$+SPACE$ (N1)

120 FOR A=1 TO 60:GET#1,A:IF A$=S5$ THEN 150' Если по полу чении оценки допуск к программе должен быть прекращен, то после последнего THEN вводится конструкция IF Z7=0 THEN 110 ELSE GOTO 105

130 NEXT:GOSUB 200:PRINT:PRINT" Простите, но такой фами лии в моих списках студентов не значится. ":GOTO 180

140 IF D$>" " THEN PRINT:PRINT" Ваша оценка "D$:GOTO 180 150 IF B$=S6$ THEN NM=VAL(NUM$):GOTO 190

160 IF S1=2 THEN 180 ELSE GOSUB 200:PRINT:PRINT" Прости те, но по моим данным вы учитесь в другой группе. Вы не ошиблись при записи ее номера ?":PRINT:PRINT"да/нет":PRINT

316 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

170 INPUT "",S1$: IF S1$="да" THEN PRINT: PRINT" Повторите, пожалуйста, ввод наименования группы":PRINT:S1=2:CLOSE:GOTO 70 180 PRINT: PRINT" Обратитесь, пожалуйста, к преподавателю": CLOSE:END

190 CLOSE:GOTO 210

200 LOCATE 22,5:PRINT TAB(79)"":LOCATE 23,5:PRINT TAB(79)"": RETURN

210 CLS:PRINT:PRINT TAB(7)"Государственный комитет Россий ской Федерации по высшему образованию": PRINT TAB(21)"Орен бургский государственный университет":PRINT TAB(17)"Кафедра материаловедения и технологии материалов":PRINT:PRINT:PRINT

220 PRINT TAB(50)"А.В.Синюхин":PRINT:PRINT TAB(24) "М А Т Е Р И А Л О В Е Д Е Н И Е": PRINT: PRINT TAB(22)"сборник про граммированных вопросов":PRINT:PRINT TAB(23)"обучающе кон тролирующая программа":PRINT TAB(33)"для студентов"

230 PRINT TAB(26)"механических специальностей":FOR B=1 TO 4: PRINT:NEXT B:PRINT TAB(33)"Оренбург 1996":PRINT:PRINT:GOSUB 910: CLS:IF Z7=1 THEN 900 ELSE PRINT TAB(30)"И Н С Т Р У К Ц И Я": PRINT:PRINT

240 PRINT""Обучающе контролирующая программа СБОРНИК ПРОГРАММИРОВАННЫХ ВОПРОСОВ предназначена для студентов, изучающих курс МАТЕРИАЛОВЕДЕНИЕ.":PRINT" Известно, что наи больший эффект обучения по любой дисциплине достигается в";

250 PRINT"результате практической деятельности, в том числе при решении задач.":PRINT" При работе студент выбирает из пред ставляемого программой тематического списка раздел, по которому он намерен проверить свои знания. Включенные в СБОР ";

260 PRINT"НИК программированные задачи вопросы снабжены альтернативными ответами. Выбрав ответ, наиболее полно и правиль но отвечающий на поставленный вопрос, студент вводит номер ответа в ЭВМ. После этого в нижней части экрана появляется сообще ;

270 PRINT"ние о правильности (или ошибочности) решения, а также суммарное количество заданных вопросов и количество вопро сов, на которые даны правильные ответы. Если ответ неверен, то по сле нажатия клавиши ПУСК на экран выводятся сведения о ха ;

280 PRINT"рактере допущенной ошибки, а также сведения об ис точниках, где может быть найден материал по заданному вопросу. Оценка машиной не выставляется."

290 PRINT" Указания о необходимых действиях появляются на эк ране по мере продвижения в работе.":PRINT" Выход из программы осуществляется одновременным нажатием клавиш CTR и S/B." 300 PRINT:PRINT TAB(35)"Желаю удачи":LOCATE 23,55

310 GOSUB 910:GOTO 500

320 CLS:LOCATE 5,5:PRINT"Вид работы: Самоконтроль 0": LOCATE 6,19:PRINT"Контроль знаний 1":LOCATE 7,19:PRINT"Ра бота с текстом 2"

330 LOCATE 8,19:PRINT"Вывод вопросов в файл 3":LOCATE 9,19: PRINT"Перечень вопросов 4":LOCATE 11,19:INPUT Z7 340 IF Z7<2 THEN OPEN "z7" AS#1 LEN=2:FIELD#1,2 AS Z$: LSET Z$=STR$(Z7):PUT#1,1:CLOSE

350 IF Z7=0 THEN END

360 IF Z7=1 OR Z7=4 THEN 500

370 H=1:IF Z7=2 THEN LOCATE 14,5:INPUT"Печать (да 1/нет 0)"; Z: CHAIN"aqus1a""ALL

380 IF Z7=3 THEN H7=1:CHAIN"aqus1a""ALL

390 CLS:LOCATE 23,20:PRINT"Работа закончена. Ваша оценка:": LOCATE 23,55

400 A5=R5/(H7 1):IF A5>.95 THEN PRINT"10 БАЛЛОВ";:S7$="10 бал.": GOTO 460

410 IF A5>.9 AND A5<=.95 THEN PRINT"9 БАЛЛОВ";:S7$="9 бал.": GOTO 460

420 IF A5>.85 AND A5<=.9 THEN PRINT"8 БАЛЛОВ";:S7$="8 бал.": GOTO 460

430 IF A5>.8 AND A5<=.85 THEN PRINT"7 БАЛЛОВ";:S7$="7 бал.": GOTO 460

440 IF A5>.75 AND A5<=.8 THEN PRINT"6 БАЛЛОВ";:S7$="6 бал.": GOTO 460

450 IF A5>.7 AND A5<=.75 THEN PRINT"5 БАЛЛОВ";:S7$="5 бал.": GOTO

460 ELSE PRINT"0 БАЛЛОВ.";:S7$="0 бал.":GOTO 460

460 OPEN "stud" AS#1 LEN=44

470 FIELD#1,4 AS NUM$,20 AS A$,8 AS B$,2 AS C$,10 AS D$ 480 FOR A=1 TO 60:GET#1,A:IF A$=S5$ THEN LSET D$=

S7$:PUT#1,A

490 NEXT:CLOSE:END

500 CLS: PRINT TAB(20) "т е м ы вопросов, включенных в задач ник":PRINT:FOR A=1 TO 79:PRINT CHR$(196);:NEXT: PRINT TAB(19)"н а и м е н о в а н и е т е м ы";TAB(67)"кодовый номер"

510 FOR A=1 TO 79:PRINT CHR$(196);:NEXT

520 N=1:B$(1)="Классификация и общие свойства металлов": GOSUB 1530

530 B$(1)="Кристаллическое строение металлов и дефекты кри сталлических":B$(2)="структур":GOSUB 1530

540 B$(1)="Теория сплавов":GOSUB 1530

318 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

550 B$(1)="Железоуглеродистые сплавы (структурный и фазовый составы)":GOSUB 1530

560 B$(1)="Теория термообработки. Термическая и химико тер мическая об ":B$(2)="работка сталей":GOSUB 1530

570 B$(1)="Классификация и маркировка сталей и сплавов": GOSUB 1530

580 B$(1)="Цветные металлы и сплавы":GOSUB 1530

590 B$(1)="Пластическая деформация и механические свойства металлов":GOSUB 1530

600 B$(1)="Металлы и сплавы с особыми свойствами и электро технические":B$(2)="материалы":GOSUB 1530

610 B$(1)="Инструментальные материалы":GOSUB 1530

620 B$(1)="Неметаллические и композиционные материалы": GOSUB 1530

630 PRINT:IF Z7=4 THEN INPUT"По какой теме (номер темы) представить список вопросов ";G: INPUT"Нужна ли распечатка (да 1/нет 0) ";Z:GOTO 920

640 OPEN "sch" AS#1 LEN=35:FIELD #1,5 AS CH$(1),5 AS CH$(2), 5 AS CH$(3),5 AS CH$(4),5 AS CH$(5),5 AS CH$(6),5 AS CH$(7): S=0:GET#1,1:FOR A=1 TO 7:S=S+VAL(CH$(A)): NEXT:CLOSE 650 IF Z7=1 THEN ZZ=1 ELSE GOTO 890

660 PRINT"Введите наименьший в опрашиваемой группе кодовый номер студента ";:INPUT"",M1:IF M1=0 THEN END

670 PRINT "Введите наибольший в опрашиваемой группе кодовый номер студента ";:INPUT"",M2:GOSUB 1520:LSET M1$= STR$(M1): LSET M2$=STR$(M2):PUT#1,ZZ:CLOSE:ZZ=ZZ+1

680 INPUT"По скольким темам проводится опрос ";T

690 IF T FIX(T) = 0 AND T>0 THEN 700 ELSE PRINT "Ошибка в вводе количества тем. Повторите.":GOTO 680

700 IF T < 12 THEN 710 ELSE PRINT "Ошибка. Программа содер жит только 11 тем. Уточните.":GOTO 680

710 FOR A1=1 TO T

720 INPUT"Введите номер темы ",G

730 IF G FIX(G)=0 AND G>0 THEN 740 ELSE INPUT"Ошибка. Повторите ввод номера темы ";G:GOTO 730

740 IF G<12 THEN GOSUB 1390:GOTO 750 ELSE PRINT "Ошибка. Номера тем, включенных в программу, не превышают 11.":GOTO 720 750 FOR A=1 TO 200:GET#1,A:IF VAL(T1$)=0 THEN S(G)=A 1:CLOSE: GOTO 770

760 NEXT

770 PRINT"Сколько вопросов по теме "G" должно быть задано "; :INPUT M(G):IF M(G) FIX (M(G))=0 AND M(G)>0 THEN 780 ELSE

PRINT" Ошибка в вводе количества вопросов. Повторите.":GOTO 770 780 IF M(G) > S(G) THEN PRINT "Ошибка. Тема "G" содержит толь ко "S(G)"вопросов. Уточните.":GOTO 770

790GOSUB 1520:LSET M3$=STR$(G):LSET M4$=STR$(M(G)): LSET M5$=STR$(S(G)):PUT#1,ZZ:CLOSE:ZZ=ZZ+1

800PRINT"Содержит ли тема "G" задачи, которые должны быть исключены из опроса, ";:INPUT"(Y/N) ";I$

810IF I$= "Y" OR I$= "y" THEN INPUT "Сколько задач темы должно быть исключено из опроса ";A2 ELSE GOTO 880

820IF A2 FIX(A2)=0 AND A2>0 THEN 830 ELSE PRINT"Ошибка в вводе количества исключаемых задач. Повторите.":GOTO 810 830 IF M(G)+A2>S(G) THEN PRINT "Ошибка. Сумма планируемых к опросу

иисключаемых из него задач превосходит количество вопросов, содер жащихся в программе. Уточните.":GOTO 810 840 FOR B=1 TO A2

850INPUT "Введите код задачи, подлежащей исключению из оп роса ",G1:GOSUB 1390: FOR A=1 TO S(G): GET#1,A: IF FIX (VAL(T2$)) =FIX(G1) THEN CLOSE:GOSUB 1520:LSET M6$= STR$(G1):PUT#1,ZZ:CLOSE: ZZ=ZZ+1:GOTO 870

860NEXT A: CLOSE: PRINT "Ошибка. Задача с кодом"G1"не вхо дит в тему "G". Сохраняется ли общее": PRINT"количество исключае мых из опроса по теме "G" задач ";:INPUT"(Y/N) ";I$: IF I$="Y" OR I$="y" THEN 850

870NEXT B

880NEXT A1:GOTO 660

890PRINT: INPUT" Наберите число, соответствующее кодовому номеру темы, по которой вы намерены проконтролировать свои зна ния, затем нажмите клавишу ПУСК. ",G:CLS

900H=1:H7=1:R5=0:CHAIN"aqus1a""ALL

910INPUT" Нажмите клавишу ПУСК",T:RETURN

920ON G GOTO 930,940,950,960,970,980,990,1000,1010,1020,1030

930CLS: B$(1)=" Список вопросов по теме КЛАССИФИКАЦИЯ И ОБЩИЕ СВОЙСТВА МЕТАЛЛОВ":AB(1)=10:AB(2)=24:GOTO 1040

940CLS:B$(1)=" Список вопросов по теме КРИСТАЛЛИЧЕСКОЕ СТРОЕНИЕ МЕТАЛЛОВ И": B$(2)=" ДЕФЕКТЫ КРИСТАЛЛИЧЕС КИХ СТРУКТУР":AB(1)=8:AB(2)=18:AB(3)=29: AB(4)=40: GOTO 1040

950CLS: B$(1)="Список вопросов по теме ТЕОРИЯ СПЛАВОВ": AB(1)=10:AB(2)=21:AB(3)=31:AB(4)=42:GOTO 1040 960 CLS: B$(1)=" Список вопросов по теме ЖЕЛЕЗОУГЛЕРОДИСТЫЕ СПЛАВЫ": B$(2)=" (структурный и фазовый составы)":AB(1)=9:AB(2)=19:AB(3)=31: AB(4)=40: GOTO 1040

970CLS:B$(1)=" Список вопросов по теме ТЕОРИЯ ТЕРМО ОБРАБОТКИ. ТЕРМИЧЕСКАЯ И":B$(2)=" ХИМИКО ТЕРМИЧЕС

320 КУРС МАТЕРИАЛОВЕДЕНИЯ В ВОПРОСАХ И ОТВЕТАХ

КАЯ ОБРАБОТКА СТАЛЕЙ": AB(1)=8:AB(2)=16:AB(3)=27:AB(4)= 37:AB(5)=46:AB(6)=59:AB(7)=72: AB(8)=83: AB(9)=94:GOTO 1040 980 CLS: B$(1)=" Список вопросов по теме КЛАССИФИКАЦИЯ И МАР КИРОВКА СТАЛЕЙ И СПЛАВОВ":AB(1)=9: AB(2)=23:AB(3)=37: GOTO 1040

990 CLS:B$(1)=" Список вопросов по теме ЦВЕТНЫЕ МЕТАЛЛЫ И СПЛАВЫ":AB(1)=11:AB(2)=22:AB(3)=31:AB(4)=44:AB(5)=57: AB(6)=69:AB(7)=82: GOTO 1040

1000 CLS:B$(1)=" Список вопросов по теме ПЛАСТИЧЕСКАЯ ДЕФОРМАЦИЯ И":B$(2)=" МЕХАНИЧЕСКИЕ СВОЙСТВА МЕТАЛЛОВ": AB(1)=8:AB(2)=22:AB(3)=34:GOTO 1040

1010 CLS: B$(1)=" Список вопросов по теме МЕТАЛЛЫ И СПЛАВЫ С ОСОБЫМИ СВОЙСТВАМИ": B$(2)=" И ЭЛЕКТРО ТЕХНИЧЕСКИЕ МАТЕРИАЛЫ": AB(1)=12:AB(2)=29: GOTO 1040

1020 CLS:B$(1)=" Список вопросов по теме ИНСТРУМЕНТАЛЬ НЫЕ МАТЕРИАЛЫ":AB(1)=9:AB(2)=19:GOTO 1040

1030 CLS:B$(1)=" Список вопросов по теме НЕМЕТАЛЛИЧЕС КИЕ И КОМПОЗИЦИОННЫЕ МАТЕРИАЛЫ":AB(1)=8:AB(2)= 20:GOTO 1040

1040 PRINT B$(1):PRINT B$(2):IF Z=1 THEN LPRINT B$(1): LPRINT B$(2)

1050 FOR B=1 TO 2:FOR A=1 TO 79:PRINT TAB(A)CHR$(196);: IF Z=1 THEN LPRINT TAB(A)CHR$(196);

1060 NEXT A:IF B=2 THEN B$(1)="":B$(2)="":B$(3)="":GOTO 1090 1070 B$(1)=" NN":B$(2)="С о д е р ж а н и е в о п р о с а":

B$(3)="кодовый номер":PRINT B$(1)TAB(14)B$(2)TAB(67)B$(3):IF Z=1 THEN LPRINT B$(1)TAB(14)B$(2)TAB(67)B$(3)

1080 NEXT B

1090 X$="@":Y$="#":Z$="&":N1=1

1100 GOSUB 1390:GET#1,N1:IF VAL(KK$)>0 THEN KK=VAL(KK$): NR=VAL(NR$):CLOSE:GOTO 1110 ELSE CLOSE:GOTO 1220 1110 ON KK GOTO 1120,1130,1140,1150,1160,1170,1180 1120 IF NR>174 THEN NR=NR 174:OPEN "q1a" AS#1 LEN=128:GOTO 1190 ELSE OPEN "q1" AS#1 LEN=128:GOTO 1190

1130 IF NR>116 THEN NR=NR 116:OPEN "q2a" AS#1 LEN= 192:GOTO 1190 ELSE OPEN "q2" AS#1 LEN=192:GOTO 1190

1140 IF NR>87 THEN NR=NR 87:OPEN "q3a" AS#1 LEN=256: GOTO 1190 ELSE OPEN "q3" AS#1 LEN=256:GOTO 1190

1150 IF NR>70 THEN NR=NR 70:OPEN "q4a" AS#1 LEN=320: GOTO 1200 ELSE OPEN "q4" AS#1 LEN=320:GOTO 1200

1160 IF NR>58 THEN NR=NR 58:OPEN "q5a" AS#1 LEN=384: GOTO 1200 ELSE OPEN "q5" AS#1 LEN=384:GOTO 1200