[Coco] This has me stumped.

Walter Zambotti zambotti at iinet.net.au
Thu Apr 16 10:12:46 EDT 2020


The only thing I can suggest is I noticed test is loading
ClrPrt from /dd/cmds.  Have you packed this by any chance?

Because you state the source filename is ClrPrt.b09.

So if you are packing did you remember to pack it
with the final version of the code?

Walter

But no b09 in

On 2020-04-15 23:23, coco at jechar.ca wrote:
>
> I am testing a routine "ClrPrt" with test program Test.
>
> The results should be.
>
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXX                    XXXXXXXXXXXXX
> XXXXXXX                    XXXXXXXXXXXXX
> XXXXXXX                    XXXXXXXXXXXXX
> XXXXXXX                    XXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
>
> But the results are
>
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXX                    XXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
>
>
> I am at a complete loss?
>
> The source for ClrPrt.b09 is:
>
> PROCEDURE ClrPrt
>
> (* Clear Part of Screen *)
> (* v - Vertical Height  *)
> (* w - Blank Width.     *)
> (* x - Start Column.    *)
> (* y - Start Line.      *)
>
> DIM L$:STRING
> DIM i,j,yc:INTEGER
> PARAM v,w,x,y:INTEGER
>
> L$=" "
>
> FOR i=1 TO w
>   L$=L$+" "
> NEXT i
>
> FOR j=1 TO v
>     yc=y+j-1
>     RUN GFX2("CURXY",x,yc)
>     PRINT L$
> NEXT j
>
> END
>
> And the source for Test.b09 is
>
> PROCEDURE Test
>
> (* Clear Part of Screen *)
> (* v - Vertical Height  *)
> (* w - Blank Width.     *)
> (* x - Start Column.    *)
> (* y - Start Line.      *)
>
> DIM   i:INTEGER
>
> SHELL "load /dd/cmds/Clrprt"
>
> FOR i=1 TO 22
>     PRINT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
> NEXT i
>
> RUN Clrprt(4,20,5,7)
>
> RUN GFX2("curxy",20,20)
>
> END
>
>


More information about the Coco mailing list