[an error occurred while processing this directive]
( Пример оверлейной программы
( Выводится меню программ и предоставляется выбрать нужную
( Написано 10.94
0 Variable MyCatalogPat &20 allot
&82 Constant OvrId
: LoadTxtViewer
OvrId SetId Free OvrId SetId 1 Alloc
IfNot ." Нет памяти для программы" Get &ffff Error
Then ." Подождите" 1 SetMem Load" TxtViewer.frt"
Free
;
LoadTxtViewer
: ShowLdCatalog 0 Text32 Screen Drop
Home ." BForth грузило" cr ." -------------------"
GetWindow 2Swap 2+ 2Swap Window
MyCatalogPat ShowCatalog Bank5
;
: LoadIt
1 Text64 Screen Drop
Bank5 ReadFile ." Ждите" sp! Bank5 ExecFile
MyCatalogPat ShowLdCatalog
False
;
UpKey DownKey EnterKey EscapeKey 4 NCase LoadKeys
True LoadIt BcDown BcUp False
: Loader OvrId SetId 1 Alloc
If
1 SetMem cr ." Введите шаблон для программ>"
MyCatalogPat 1+ #10 Gets Span ` MyCatalogPat c! Span `
If
ShowLdCatalog
Begin NoFree OvrId SetId 1 SetMem
SetInverseLine Get >r SetNormalLine r> LoadKeys
Until
Then
Else ." Нет памяти для программы" get
Then Free
;
loader
[an error occurred while processing this directive]