1 '***** Read data from A/D converter(VOL.)
2 '
10 'EQU list
11 PPI0=$220007
12 PPI1=$240007
13 APORT0=$220001
14 APORA1=$240001
15 BPORT0=$220003
16 BPORT1=$240003
17 CPORT0=$220005
18 CPORT1=$240005
20 'Port Initialize
21 POKE PPI0,$9B,B :'all port in #0 set input mode
100 'Main start
110 DAT=PEEK(APORT0,B) :'read from A/D convertor (PPI#0/portA)
120 DAT=((DAT*100)/255*79)/100
130 IF DAT=0 THEN 170
140 FOR I=0 TO DAT-1
150  PRINT ">";
160 NEXT I
170 FOR I=DAT TO 79
180  PRINT " ";
190 NEXT I
200 PUTCH CHR$(13)
210 GOTO 110