Посмотрел крутую и красивую игрушку,
находиться здесь:
http://laughton.com/basic/programs/games/SpaceInvaders/

При написании очередной программы возникла необходимость просмотра библиотек функций не выходя из листинга, принял решение исправить положение. Дело в том, что моя графическая библиотека (не считая других) насчитывает уже более шестидесяти функций и само собой начинаешь в них путаться, ладно если вспомнишь название, но с количеством аргументов начинается беда, не говорю уже о содержимом. Вобщем решил поделиться. Сама программа fn_viewer.bas это консольное приложение, считывает функции из любого листинга указанного в пути. Подключается при написании новой программы в начале простой командой include fn_viewer.bas и для отключения попросту коментируется восклицательным знаком. fn_viewer считывает заголовки всех функций в листинге и выводит их на экран, тап по заголовку открывает саму функцию и одновременно копирует ее в буфер для последующей вставки в код, если потребуется. Открывание другой функции перезаписывает буфер. Для тех кто потом захочет задать вотрос почему я вместо print не использовал select - отвечаю сразу так как редко захожу на форум, внешний вид работы select больше похож на баг из-за мерцания при открывани-закрывании, мне не нравится, потому пошел более сложным путем.
Вобщем встречайте может кому пригодится.

А и еще перед fn.def не должно быть пробелов

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. console.title "Запуск программы..."
2. gosub functions
3.  
4. list.create s,lst_files
5.  
6. ! Тут располагаются пути библиотек или программ с функциями
7. ! Для удобства чтения расположил так
8. list.add lst_files,"../source/strings"
9. list.add lst_files,"../source/graphics"
10. list.add lst_files,"../functions/rustime"
11. list.add lst_files,"../functions/rustime2"
12. list.add lst_files,"../sourse/math"
13.  
14.  
15.  
16.  
17. start:
18. Dialog.select tchd, lst_files, "Выбери файл или "+chr$(8634)+" - выйди"
19.  
20. if !tchd then console.title "Выход...": end "Программа завершена"
21.  
22. list.get lst_files,tchd,path$
23.  
24. !path$="../source/strings"
25. c=ReadFile(path$)
26. caps=SeparateCaption(c)
27.  
28. list.size caps,count
29.  
30. cls
31. Do
32.  
33.   cls
34.   out(caps)
35.  
36.   console.title "Список функций"
37.   console.line.touched tchd
38.   acd=tchd
39.  
40.   listener:
41.   Do
42.     console.line.touched tchd
43.     if tchd then Console.line.text tchd,linetext$
44.   Until  acd<>tchd
45.  
46.   if tchd=count-2 then goto listener
47.  
48.   cls
49.   console.title "Думаю..."
50.   if tchd=count-1 then Console.title "Переход...":goto start
51.  
52.   fout(c,tchd)
53.   Console.title linetext$
54.   bk=0
55.   Do
56.  
57.   Until bk
58.  
59. Until 0
60.  
61.  
62. OnBackKey:
63.   if !bk then  bk=1
64. Back.resume
65.  
66.  
67. functions:
68.  
69. ! Чтение и помещение строк файла в лист
70.  
71. fn.def ReadFile(path$)
72.   File.exists fe, path$
73.   if !fe then
74.      console.title "Ошибка в пути файла"
75.      end "Программа завершена."
76.   endif
77.     list.create  s, lst
78.     text.open r, channel, path$
79.     DO
80.       text.readln channel, h$
81.       if h$<>"" then list.add lst,h$
82.     UNTIL h$ = "EOF"
83.     text.close channel
84.     fn.rtn lst
85.  
86. fn.end
87.  
88. ! Без коментариев
89. fn.def out(lst)
90.   list.size lst,le
91.   for i=1 to le
92.     list.get lst,i,h$
93.     print h$
94.   next
95. fn.end
96.  
97.  
98.  
99. !  Отделение заголовков функций в листинге
100.  
101. fn.def SeparateCaption(lst)
102.   list.create s,ds
103.   list.size lst,le
104.   for i=1 to le
105.     list.get lst,i,h$
106.     if  lower$(left$(h$,6))="fn.def" then
107.       e++
108.       s$=int$(e)+")    "+fuz$(right$(h$,len(h$)-6))
109.     !  print s$
110.       list.add ds,s$
111.     endif
112.   next
113.   list.add ds, chr$(11014)+" Клик по функции для её просмотра и копирования"+chr$(8598),"ЩЁЛК  СЮДА,  чтобы перейти к выбору другого файла",""
114.   fn.rtn ds
115. fn.end
116.  
117.  
118.  
119. !Вывод содержимого выбранной функции
120.  
121. fn.def fout(lst,n)
122.   list.size lst,a
123.   for i=1 to a
124.     list.get lst,i,s$
125.     if lower$(left$(s$,6))="fn.def" then e++
126.     if e=n then print s$+chr$(10); : cl$+=s$+chr$(10)
127.     if e=n & lower$(s$)="fn.end" then  Clipboard.put cl$ : f_n.break
128.   next
129.     if e<n then end "Программа завершена."
130.     print ""
131.     print chr$(10004)+"- Функция скопирована в буфер обмена"
132. !    print ""
133.     print chr$(8634)+" - для возврата жми "+chr$(34)+"назад"+chr$(34)
134.     print ""
135. fn.end
136.  
137.  
138.  
139. !Первый символ заглавный
140.  
141. fn.def fuz$(s$)
142.    if s$<>"" then z$=mid$(s$,2,1)
143.    s$=right$(s$,len(s$)-2)
144.    s$=upper$(z$)+s$
145.    fn.rtn s$
146. fn.end
147. return

Прикольно использование символов unicode!
Без твоей предыдущей программы , вообще
никто их бы и не использовал!
А с помощью их можно делать чудесную псевдографики!
Как твой
  пример -
  программа класс!
Если бы ещё и свою библиотеку выложил?
Вообще было бы супер!

1961uvg, Почти 2017, а вы не хотите юникод?

На официальном форуме вышла 6-я версия OliBasicVI - разновидность RFO-Basic.
Имеет дополнительные функции и изменения в bundles.
Совместима с версией 1.901
  Для установки этой тестовой версии - нужно удалить RFO-Basic.
http://rfobasic.freeforums.org/hot-summer-of-code-t4408-10.html

Там же добавили вариант тестовой версии не требующий удаления RFO-Basic!
http://rfobasic.freeforums.org/hot-summer-of-code-t4408-20.html

Может кто знает? Можно ли сделать на бейсике интернет радио? Вставил ссылку на поток и слушай. А то все интернет радио какие-то не такие... У каждого разработчика свой взгляд на это дело - Audio.load нехочет понимать ссылку на поток. И еще: вставляешь смайлик, а их оказывается два.
Похоже бейсик пошел по рукам. Один забросил разработку, второй продолжил, теперь и он потерялся. Появился следующий

levapbar
Смотри здесь:
http://rfobasic.freeforums.org...e-streams-t4676.html
И оно же в переводе!

levapbar, Стандартный плеер такое не умеет разве?

Джет аудио нет. Для меня у него лучший звук. И хочется интернет плеер с возможностью записи и возможностью выдергивать ссылки на поток со страницы вещания.