rem TLC 548cp beolvasó LPTre, CLK:2.láb, CS:3. láb, Data:13.láb (Sel., 4.bit)
cls: po=888: out po,2
                      
kezd:
port=bitreset(port, 1)   'Chip engedélyezve, 1-es bit L-re
out po, port             'Chip engedélyezve

beolvas:
For i=7 to 0 step -1     '8 bites az AD
in=inp (po+1)            'Adatot beolvas   
D= bit(in,4)             'a 4. bitet megnéz, 1nél ez -1, 0-nál 0
if d=-1 then dd=dd+2^i   'Ha D=1 akkor az adott súlyozást adja hozzá 
port=bitset(port, 0)     'orajel 1
out po, port             'orajel 1
port=bitreset(port, 0)   'orajel 0  
out po, port 'orajel     'orajel 0
next i
    REM port=bitset(port, 1)      'chipet tilt, de itt nem kell tiltani
    REM out po, port              'Chip tiltva
locate 3,3,0: print dd;"   ":dd=0 'Eredményt kiír
if inkey$<>"" then end            'Ha billentyű lenyomva, kilép.
goto beolvas