1 IFPEEK(56)<>110THENPOKE56,110:POKE55,0:RUN
5 DV=PEEK(186):IFDV<8THENDV=8
10 SYS57812"BASSEM.2",DV,0:POKE780,0:POKE781,222:POKE782,135:SYS65493
30 Q=08:POKE44,Q:POKE43,1:POKEQ*256,0
40 SYS34782
59999 END
60000 DV=PEEK(186):N$="B.BASSEM":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END