*NAME BasicInstaller У=12288 Ю fname 100 #(т_load(":*//installer.c",12288) 2Ы E<с Ѕ(1);"2+BBASIC Installer (c) Garry Lancaster, 2000";Ѕ(1);"2-B" Fс "1) Install" Pс "2) Uninstall" Zс "3) Reserve banks" dс "4) Free banks" nс "5) Purge applications" xс ‚и "Which option";O% 3Њо O% т_inst,т_uninst,т_reserve,т_free,т_purge ‹ –е ЌTr@ а ЄЭ т_load($fname,E%) ґк H%,L%,D%,B%,C% ѕL%=fname *ИH%=L% Ѓ 256: D%=E% Ѓ 256:B%=255:C%=255 ТЦ(&FEA3) Ьб жЭ т_docmd рЦ 12288 ъг N%=1 ё 2500 н N% б Э т_inst "и "Card to install";N$ ,N$=N$+".app" 6$12291=N$ @?(12291+©(N$))=0 JA%=0 Tт_docmd ^б hЭ т_uninst rи "Card to uninstall";N$ |N$=N$+".apu" †$12291=N$ ђ?(12291+©(N$))=0 љA%=0 ¤т_docmd ®б ёЭ т_reserve !Ви "Banks to reserve (1-8)";B% Мз B%<1 „ B%>8 Њ е ЌdBA ЦA%=1 ат_docmd кб фЭ т_free юA%=2 т_docmd б Э т_purge &A%=3 0т_docmd :б яя