: SENSOR ADC1 ANALOGIN 8 / ; EEWORD
: SENSOR-TEST BEGIN SENSOR . CR 10000 0 DO LOOP ?TERMINAL UNTIL ; EEWORD
( type SAVE-RAM after loading )