10 IF A=0THENA=1:LOAD"BASCAN",8,1
20 SYS49152