1 IFPEEK(828)<>123THENPOKE828,123:LOAD"STIX.OBJ",8,1
2 XA=49590:XC=49604
3 POKEXA-1,190*RND(0)+10:X=280*RND(0)+20:Y=160*RND(0)+20:POKEXA,XAND255:POKEXA+1,X/256:POKEXA+2,Y:POKEXC,XAND255:POKEXC+1,X/256:POKEXC+2,Y:X=280*RND(0)+20:Y=160*RND(0)+20:POKEXA+3,XAND255:POKEXA+4,X/256:POKEXA+5,Y:POKEXC+3,XAND255:POKEXC+4,X/256:POKEXC+5,Y
4 FORT=6TO9:W=RND(0)+.5:POKEXA+T,W:POKEXC+T,W:NEXT:FORT=10TO13:W=8*RND(0)+1:POKEXA+T,W:POKEXC+T,W:NEXT:SYS49152:GOTO3