10 FOR X=&HFF TO &H7F7
20    A=VPEEK(X):VPOKE X,A OR A/2
30 NEXT X