( SIMPLE A/D INPUT EXAMPLE

COLD

HEX

400 DP !


: MAIN
  30 B030 C!    ( init for continuous, multichannel, 0-3
  BEGIN         (
    B032 C@ .   ( print a/d 0
    100 0 DO LOOP
    ?TERMINAL   ( until a key is hit
  UNTIL
;