5 D=PEEK(186)
10 IFA=0THENA=1:LOAD"SIMONSBASIC",D,1
20 Q=8:POKE44,Q:POKEQ*256,0
30 FORX=1TO11:READA:POKE630+X,A:NEXT:POKE198,11
40 POKE637,D+48
50 SYS2096
60 DATA76,207,34,80,34,44,56,13,82,213,13
9999 END
10000 N$="PP2":OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END