:ADDBi`@@@A(A@U +@#%%6-F:A`,%F:Aa,$AV))6-F:%@,%F:%@,$AV#6-P:H:,$@,$6-P:H:,$@,%6-P:H:,$@,& 0(@6-P:H:,$A8@,@- PICK A RANDOM BYTE IN DISPLAY2E6-P:H:,$AU,E- PICK RANDOM VALUE BETWEEN 0 AND 255<3 %3- POKE RANDOM VALUE INTO RANDOM BYTEF @5 D:P104P1.BAS