Name0: 'drive . Начало сканирования при новом сканировании ashot=0 read 1,sh0 read 2,sh1 read 3,sp0 read 4,sp1 read 5,tm0 read 6,tm1 Drive: ' продолжения сканирования после прерывания step1=%00000101 if opt=0 then p=0 if opt=1 and p=0 then p=1 gosub shoting endif pauseus speed step1=%00000110 if opt=0 then p=0 if opt=1 and p=0 then p=1 gosub shoting endif pauseus speed step1=%00001010 if opt=0 then p=0 if opt=1 and p=0 then p=1 gosub shoting endif pauseus speed step1=%00001001 if opt=0 then p=0 if opt=1 and p=0 then p=1 gosub shoting endif pauseus speed if sw1=0 then key=2 k=6 step1=%00000000 pause 500 return endif goto Drive '--------------------------------------