10 IFA=0THENA=1:LOAD"PS",8,1
20 IFA=1THENSYS16469
30 END