10 REM > ImgBlank

   20 REM Create a blank image containing sector numbers

   30 DIM ctrl% 31,mem% 255:X%=ctrl%:Y%=X%DIV256

   40 INPUT"Filename: "out$

   50 INPUT"Size (K): "size%:size%=size%*4

   60 out%=OPENOUT(out$)

   70 FOR S%=0 TO size%-1

   80   PRINTCHR$13;~S%;

   90   FOR B%=0 TO 255 STEP 4:mem%!B%=S%:NEXT

  100   PROCgbpb(2,out%,mem%,256,PTR#out%)

  110 NEXT S%

  120 PRINT

  130 CLOSE#out%:out%=0

  140 END

  150 DEFPROCgbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:CALL&FFD1:ENDPROC