 REM >"ADCTest"

 ON ERROR REPORT : PRINT " at line ";ERL : END

 REM Set up the screen
 MODE 0
 @% = &50A : REM was 506  2 (fixed decimals) 04 (places) 08 (field width)

 PRINT "ADC status using BASIC ADVAL (OSByte 128) keyword"

 loops% =0
 fire% = ADVAL(0)
 ch0% = ADVAL(1)
 ch1% = ADVAL(2)
 ch2% = ADVAL(3)
 ch3% = ADVAL(4)
 prev_fire% = fire%
 prev_ch0% = ch0%
 prev_ch1% = ch1%
 prev_ch2% = ch2%
 prev_ch3% = ch3%

 REPEAT
   IF loops%=0 OR loops%>20 THEN
     loops%=0
     PRINT
     PRINT "     Fires","      Ch 0","      Ch 1","      Ch 2","       Ch3"
   ENDIF

   WAIT

   IF loops% = 0 OR prev_fire% <> fire% OR prev_ch0% <> ch0% OR prev_ch1% <> ch1% OR prev_ch2% <> ch2% OR prev_ch3% <> ch3% THEN
     PRINT fire%, ch0%, ch1%, ch2%, ch3%
     loops% = loops% + 1
   ENDIF

   prev_fire% = fire%
   prev_ch0% = ch0%
   prev_ch1% = ch1%
   prev_ch2% = ch2%
   prev_ch3% = ch3%

   fire% = ADVAL(0)
   ch0% = ADVAL(1)
   ch1% = ADVAL(2)
   ch2% = ADVAL(3)
   ch3% = ADVAL(4)

 UNTIL FALSE

 END
