1 '***** Read data from A/D converter(VOL.)
2 '
10 'EQU list
11 PIA0=$F4000B
12 PIA9=$F40009
13 APORT0=$F40009
20 'Port Initialize
21 POKE PIA0,0,B :'clear CRB register
22 POKE PIA9,_00000000,B :'all port set input mode
23 POKE PIA0,_00000100,B :'port stand by
100 'Main start
110 DAT=PEEK(APORT0,B) :'read from A/D convertor
120 DAT=((DAT*100)/255*79)/100
130 IF DAT=0 THEN 170
140 FOR I=1 TO DAT-1
150  PRINT ">";
160 NEXT I
170 FOR I=DAT+1 TO 79
180  PRINT " ";
190 NEXT I
200 PUTCH CHR$(13)
210 GOTO 110