Вопрос к Фанту, программка про словарные слова - с чего начать?

[Фант]

Привет!
Поиск можно осуществить, к примеру,вот этими командами:
INSTR (STR$, SUBSTR$)
возвращает номер символа в строке [str$], с которого начинается строка [substr$]. Если строка [substr$] не встречается в строке [str$], то возвращает -1. Поиск ведется с учетом регистра. Команда OPTION BASE влияет на эту функцию.
INSTR (STR$, SUBSTR$, N)
возвращает номер символа в строке [str$], с которого начинается строка [substr$]. Поиск ведется с [n]-го по счету символа строки [str$]. Если строка [substr$] не встречается в строке [str$], то возвращает -1. Поиск ведется с учетом регистра. Команда OPTION BASE влияет на эту функцию.

Пример:
If INSTR (a2$,"и")=1 then....

[Flower]

Привет! Ну во-первых у Вас данный кусок работать никогда не будет
if a2$="и" then goto 111
if a2$="е" then goto 222
if a2$="о" then goto 333

.

Хм.. Данный кусок работает, так как

File "Slova-slova.txt" Readline a1$, a2$

И a2$ у меня имеет значение только одной буквы.
В файле slova.txt такое содержание
.....
Библ__отека
И
.....
У меня не работает нормально переход в нужный цикл.
Почему-то пролетает в следующий.
В чем ошибка?

[Фант]

Действительно. Вы правы. Забираю свои слова обратно!

[Фант]

В данном куске кода я вижу следующее:
У Вас постоянно работает Ваш главный цикл loop1. Какое либо условие у Вас выполняется при нажатии нужной кнопки. А это может произойти в любом месте Вашего цикла (в любой метке). Тоесть я не вижу зацикливания именно на метке 111.

[Flower]

SET OUTPUT FONT NAME "Baskerville-SemiBoldItalic"

Правильно команда написана или надо убрать кавычки в названии шрифта?
Пробовала и с кавычками и без, печатает каким- то своим шрифтом, установленным по умолчанию.

[Flower]

В данном куске кода я вижу следующее:
У Вас постоянно работает Ваш главный цикл loop1. Какое либо условие у Вас выполняется при нажатии нужной кнопки. А это может произойти в любом месте Вашего цикла (в любой метке). Тоесть я не вижу зацикливания именно на метке 111.

То есть надо зациклевать каждый маленький кусочек?
Попробовала.
но тогда не переходит на следующее слово.

[Flower]

SET OUTPUT FONT NAME "Baskerville-SemiBoldItalic"

Правильно команда написана или надо убрать кавычки в названии шрифта?
Пробовала и с кавычками и без, печатает каким- то своим шрифтом, установленным по умолчанию.

Разобралась. А как сделать, чтобы программа ниже правильно работала? То есть каждый шрифт своим шрифтом печатала?

Option base 1
LIST FONTS TO A$,N
for i=1 to n

SET OUTPUT FONT NAME A$(i)
draw font name a$(i)
print A$(i)
print "hello-привет"
pause 1
next i

[Фант]

В данном куске кода я вижу следующее:
У Вас постоянно работает Ваш главный цикл loop1. Какое либо условие у Вас выполняется при нажатии нужной кнопки. А это может произойти в любом месте Вашего цикла (в любой метке). Тоесть я не вижу зацикливания именно на метке 111.

То есть надо зациклевать каждый маленький кусочек?
Попробовала.
но тогда не переходит на следующее слово.

В начале цикла loop1 вы выполняете нужное условие и перебрасываете на нужную метку.
В данной метке у Вас должен работать определенный цикл из которого Вы должны выйти после нажатия определенной кнопки и получить определенное действо-музыка, текст или чтото еще.
А у Вас получается программа гоняется в большом цикле loop1 сплошняком по всем меткам. В главном цикле у Вас все в большой куче. Где Вы успели нажать кнопку-там условие и срабатывает. Вот поэтому у Вас то работает условие то не работает..
Тоесть разбейте Ваш основной цикл на подпрограммы, или функции, или зацикленные метки и с помощью определенных условий "заходите".

[Фант]

SET OUTPUT FONT NAME "Baskerville-SemiBoldItalic"

Правильно команда написана или надо убрать кавычки в названии шрифта?
Пробовала и с кавычками и без, печатает каким- то своим шрифтом, установленным по умолчанию.

Разобралась. А как сделать, чтобы программа ниже правильно работала? То есть каждый шрифт своим шрифтом печатала?

Option base 1
LIST FONTS TO A$,N
for i=1 to n

SET OUTPUT FONT NAME A$(i)
draw font name a$(i)
print A$(i)
print "hello-привет"
pause 1
next i

Мне не знакома команда set output font name...
Это из какойто другой "оперы"... Возможно шрифт для скинов-общего оформления sB.
Шрифт задается следующей командой (раздел ГРАФИКА) DRAW FONT NAME N$

[Flower]

SET OUTPUT FONT NAME "Baskerville-SemiBoldItalic"

Мне не знакома команда set output font name...
Это из какойто другой "оперы"... Возможно шрифт для скинов-общего оформления sB.
Шрифт задается следующей командой (раздел ГРАФИКА) DRAW FONT NAME N$

Точно, из другой "оперы" команда оказалась.

Можно вас попросить поправить предыдущий кусочек программы, чтобы выводился список названия шрифтов, и каждое название шрифт написано своим шрифтом.
А то обновляется весь список названий шрифтов. ... Не пойму, где ошибка.

option base 1
LIST FONTS TO A$,N
for i=1 to n
SET OUTPUT FONT NAME A$(i)
draw font name a$(i)
print A$(i)
next i