!Управление приложениями
!Установка
fn.def app_install$(APK_file$, options$)
system.open
system.write "pm install "+options$+" "+APK_file$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end

!Удаление. Требуется указать 
!пакет удаляемого приложения
fn.def app_uninstall$(app_package$)
system.open
system.write "pm uninstall "+app_package$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end

!Отключение. Требуется указать 
!пакет отключаемого приложения

fn.def app_disable$(app_package$)
system.open
system.write "pm disable "+app_package$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end

!Список установленных пакетов.
fn.def packages_list$()
system.open 
system.write "pm list packages"
DO
system.read.line packages_list$
let packages_list++
if packages_list$ <> "" then ? packages_list$
if packages_list$ <> "" then b = 1
if packages_list$ = "" & b = 1 then let packages_list = 0
UNTIL 0
let b = 0
system.close
fn.rtn packages_list$
fn.end
!Запуск сервиса
fn.def service_start$(service_package$, options$)
system.open
system.write "am startservice +
" "+options$+" "+service_package$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end
!Остановка сервиса
fn.def service_stop$(service_package$)
system.open
system.write "am stopservice "+service_stop$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end

!Остановка приложения
fn.def app_stop$(app_package$)
system.open
system.write "am kill "+app_package$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end


!Остановить все приложения

fn.def all_apps_stop$()
system.open
system.write "am kill-all"
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end

!Список сервисов

fn.def service_list$()
system.open
system.write "service list"
DO
system.read.line service_list$
let service_list++
if service_list$<>"" then ? service_list$
if service_list$<>"" then b = 1
if service_list$ = "" & b = 1 then let service_list = 0
UNTIL 0
let b = 0
fn.rtn service_list$
fn.end

!Запуск скрипта

fn.def shell$(sh_file$)
system.open
system.write "sh "+sh_file$
DO
system.read.line result$
let result++
if result$<>"" then ? result$
if result$<>"" then b = 1
if result$ = "" & b = 1 then let result = 0
UNTIL result = 0
let b = 0
system.close
fn.rtn result$
fn.end