! SYSTEM


  SYSTEM.OPEN 

  SYSTEM.WRITE "pm list packages"  % читаем список установленных пакетов
do
  SYSTEM.READ.LINE a$
let a++
if a$<>"" then ? a$
if a$<>"" then b= 1
if a$= "" & b= 1 then let a= 0
until a= 0
let b= 0



  SYSTEM.WRITE "service list" 

do
  SYSTEM.READ.LINE a$              % список сервисов
let a++
if a$<>"" then ? a$
if a$<>"" then b= 1
if a$= "" & b= 1 then let a= 0
until a= 0
let b= 0

  


% определяем, что есть в нужной нам папке

! SYSTEM.WRITE "ls /mnt/"  % смотрим память устройства от корня
  SYSTEM.WRITE "ls /mnt/sdcard2/Android/data/"  % список файлов на карте памяти
do
  SYSTEM.READ.LINE a$
let a++
if a$<>"" then ? a$
if a$<>"" then b= 1
if a$= "" & b= 1 then let a= 0
until a= 0
let b= 0




% проверяем неповрежденность файла- определяем md5

  SYSTEM.WRITE "md5 /mnt/sdcard/rfo-basic/data/cartman.png"
pause 200  % небольшая пауза обязательна
  SYSTEM.READ.LINE md5$
? md5$




% определяем свойства файла- дату создания и т.д.

  SYSTEM.WRITE "ls -l /mnt/sdcard/rfo-basic/data/cartman.png"
do
  SYSTEM.READ.LINE informacia$
let a++
if informacia$<>"" then ? informacia$
if informacia$<>"" then b= 1
if informacia$= "" & b= 1 then let a= 0
until a= 0
let b= 0




% копируем файл на карту памяти, ну или просто копируем. Бейсиком копировать- больше кода писать. У него нет команды- копировать

  SYSTEM.WRITE "cp /mnt/sdcard/rfo-basic/data/cartman.png /mnt/sdcard2/"
pause 200  % пауза обязательна, если следующая команда system.close


  SYSTEM.CLOSE