10 D=PEEK(186)
20 A$="PARTY PICTURE"
30 PRINT"[147]LOADA$,D":PRINT"RUN"
40 POKE631,13:POKE632,13:POKE198,2:END
9999 END
10000 N$="P":OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END