rem Rotary enkóder olvasó, 
rem bemenetek: Select,13-as,láb, 5.bit--- Paper out,12.-láb, 6.bit

cls:p=888:screen 12              	   'a párhuzamos port báziscíme, grafika beállítása
eleje:
p$=inkey$                      		     'Ha lenyomtunk egy bill.-t, akkor az a p$
enc=inp (p+1)                  	     'portot beolvas
If enc and 16 then Au=1 else au=0   '5. bit 1? (megmozdult az enkóder?)
if enc and 32 then Bu=1 else bu=0   '6. bit 1?
IF p$ = CHR$(27) THEN END           ' ha ESC, akkor kilép
if p$="0" then c=0            	      ' Ha 0, akkor számlálót lenulláz

kiir:locate 10,10: Print au,bu   		   'A bemenetek változóinak értékének kiírása
if ar=1 and au=0 and bu=1 then c=c+1 	   'A számlálási irányt meghatároz
if br=1 and bu=0 and au=1 then c=c-1
locate 15,4: print "      ";c;"      "  		'számlálót kiír
line (0,100)-(600,100),0           		 'letöröljük a vonalat
pset (c+100,100)                  		  'kirajzolunk egy pontot
Ar=au: Br=Bu                        		'A-régi=A-uj, B-régi=B-uj
goto eleje