Di seguito Allego il codice per la riproduzione del TESTING AND ANALYSIS BATTERY ... buone Plantè a tutti

'-----------------------------------------------------'
' TESTING AND ANALYSIS BATTERY V1.1 '
'-----------------------------------------------------'
PRAGMA NO_NUM_LINE
'--DEFINIZIONE COSTANTI--'
CONSTANT STOP=0
CONSTANT CARICA=1
CONSTANT SCARICA=2
CONSTANT SCARICAEXT=3
'--FUNZIONE PRINCIPALE--'
:TESTING_AND_ANALYSIS_BATTERY
FOR X=1 TO 10
COMMAND=USBINP
IF COMMAND<>-1 THEN CALL COMANDO_PC
USBOUT="START/" & CADS1 & "/" & CADS2 & "/" & CADS3 & "/STOP"
WAITMS 100
NEXT X
OUTBIT(11)=!INPBIT(11) 'LED VERDE
OUTBIT(12)=!INPBIT(11) 'LED ARANCIO
GOTO :TESTING_AND_ANALYSIS_BATTERY
'-------------------------------------------------------------------------------
--'
' GESTISCE LA RICEZIONE DEI COMANDI PROVENIENTI DAL PC '
' '
' COMMAND=0->STOP, 1->CARICA, 2->SCARICA, 3->SCARICAEXT '
'-------------------------------------------------------------------------------
--'
SUB COMANDO_PC
BEEP
SWITCH COMMAND
CASE STOP
OUT=&H00
CASEEND
CASE CARICA
OUT=&H0100
CASEEND
CASE SCARICA
OUT=&H4000
CASEEND
CASE SCARICAEXT
OUT=&H2000
SWITCHEND
SUBEND