?@BUFGRMODPPBPSTSTEESCRTLMEDDMEDOWACROSCOUNAD Program Listing 4: BASIC Un-sprite equivalentBy Jason Leigh ;A,* +&(GRAPHICS MODE (0-8)*-" (# #B0-"# 2+@<FGenerate random shapePZG-@%@26-H:@,$$@GH:@,$@d;-%@%+$@,%,3/%@7 ; Copy window(START VECTOR->( END VECTOR->%%6-F:@,%F:@,$AV#6-%$%P:',#6-P:+&,', 6-& 6-"-,D-6-%@067,.>:F:%,,@+%,AUD 6 6-% Paste Window(PUT BLOCK AT->6-%$%P:',6-&-05-6-%@1+%,@:7<,,5 : 6-% DN'Pixels Per Byte'1,1,1,4,8,4,8,4,8$'Bytes Per Line.' 40,20,20,10,10,20,20,40,40 D:PROG4.BAS