Listing of file='TAM.005B' on disk='vmedia/701-2216A.wvd.zip'
# Sector 29, program filename = 'TAM.005B' 0010 REM 'TAM.005B' (POLL TERMINAL) 0040 DIM Q(7),Q6$64,Q$1,Q3$(2)40,Q1$(2)40,Q7$1 1000 % THIS STATEMENT FOR OVERLAYING TAM.005B 5500 DEFFN'243 : $GIO/002(C620,Q6$)Q3$() : IF STR(Q3$(1),1,8)="00000000"THEN 5580 : Q$=" " : STR(Q3$(1),9,8)=Q3$(1) : S7=S7+POS(STR(Q3$(1),S7+1,8)=31) : S7=S7-8*INT(S7/9) : BIN(STR(Q6$,2))=S7 : $GIO/006(40F44220,Q6$) : RETURN 5580 Q$=HEX(24) : RETURN