COMMODORE PLUS/4 WORLD
  Home  Search  Games  Tapes  Covers  Cheats  Maps  Software  New Stuff 
 Hall Of Fame  HVTC  Game Endings  Features  Solutions  Remakes  Publications  Magazines  Effects  Top List 
 Members  Groups  Plus/4 Encyclopedia  Hardware  Tools  Options  Forum 
Login
Back to forumReply To This TopicGo to last reply

Posted By

SVS
on 2017-03-05
05:43:19
 PRINT USING / PUDEF

It seems that the filling character of a PRINT USING mask, does work only with numeric data (for example "****123"). Does anybody know a way to make it working in text data too? (For example "****ABCD").

Posted By

JamesC
on 2017-03-06
13:15:59
 Re: PRINT USING / PUDEF

10 A$="ABCDEFGHIJ"
20 PRINT USING "############";A$ : REM 12 # LEFT JUSTIFIED
30 PRINT USING "=###########";A$ : REM 11 # = CENTERED
40 PRINT USING ">###########";A$ : REM 11 # > RIGHT JUSTIFIED

You need one # for every desired output character. If your A$ is 10 characters long, but your PRINT USING only allows for 6 characters, it will only output the first 6 characters.

If your A$ is shorter than the PRINT USING statement, and you desire a different lead character instead of Space (ie, *s), build A$ with *'s instead of Spaces. ;)

Posted By

SVS
on 2017-03-08
12:02:01
 Re: PRINT USING / PUDEF

Yes James, but I was looking for an automatic way

Posted By

JamesC
on 2017-03-08
15:44:04
 Re: PRINT USING / PUDEF

Not strictly by PRINT USING. Though string splicing might qualify as "automatic".

10 PAD$="----------":REM 10 -
20 SKU$(1)="ZYXWVUT" : SKP(1)=1000.00
30 SKU$(2)="SRQP" : SKP(2)=99.99
40 SKU$(3)="NMLKJ" : SKP(3)=500.00
50 PUDEF "*.,E"
60 FOR ITEM=1 TO 3
70 : L = LEN(SKU$(ITEM))
80 : PD$ = RIGHT$(PAD$,9-L)
90 : LINE$ = PD$+SKU$(ITEM)
100 PRINT USING"#########"; LINE$; : PRINT , , : PRINT USING "#$###,###.##"; SKP(ITEM)
110 NEXT ITEM





Back to topReply To This Topic


Copyright © Plus/4 World Team, 2001-2017