HP3000-L Archives

November 2006, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Ray Shahan <[log in to unmask]>
Reply To:
Ray Shahan <[log in to unmask]>
Date:
Thu, 16 Nov 2006 15:13:07 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (127 lines)
Hi all,

 

            Had a report that the users wanted to review to their
screens prior to printing, so I just set the print file's ASSIGN clause
to $STDLIST, and all appeared to be working fine except when the program
reads a record of spaces in a file.  When that happens, BB does not
print the spaces.

 

Check out this snippet of code (and the code run) I wrote to test/prove
the bug/feature, and if anyone has suggestions, please chime in:

 

10 ASSIGN "$STDLIST" TO #1

 20 ASSIGN "HOSED" TO #2

 30 DIM A$[80]

 40 DIM X

 50 PRINT #2;"EAT MY SHORTS"

 60 PRINT #2;"                   "

 70 PRINT #2;"EAT MY SHORTS AGAIN"

 80 ASSIGN * TO #2

 90 ASSIGN "HOSED" TO #2

100 READ #2;A$                       

110 PRINT #1;A$

120 READ #2;A$                       

130 PRINT #1;A$

140 READ #2;A$

150 PRINT #1;A$

 

>RUN

EAT MY SHORTS

EAT MY SHORTS

EAT MY SHORTS AGAIN

 

>:PRINT HOSED 

EAT MY SHORTS

 

EAT MY SHORTS AGAIN

> 

 

As you can see, the file, HOSED, looks as it should, but A$ is not
cleared and replaced with spaces on the second read.  I tried this with
both temp and perm files, and I get the same results.  If I PRINT to a
file or LP, then the spaces are printed...it just seems to be incorrect
when I PRINT to $STDLIST.

 

I know many may reply to use the DISP verb rather than PRINT, but I did
not want to rework the code (it still has to print to LP, also), so
again, any help would be great.

 

 

 

TIA,

 

 

 

  <http://www.republictitle.com/> 

Raymond Shahan

Computer Programmer
 REPUBLIC TITLE OF TEXAS, INC. <http://www.republictitle.com/> 
  2701 W Plano Parkway
<http://maps.yahoo.com/maps_result?addr=2701+w+plano+parkway&csz=75075&c
ountry=us&new=1&name=&qty=>  
Plano, TX 75075

 


direct 214.556.0202
main 972.578.8611
fax 972.424.5621

 www.republictitle.com <http://www.republictitle.com/> 

[log in to unmask]

 

 


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2