aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

63
Task/Table-creation-Postal-addresses/REXX/table-creation-postal-addresses-1.rexx
View file

@ -1,37 +1,34 @@
/*REXX program creates, builds, and displays a table of given U.S.A. postal addresses.*/
@usa.=; @usa.0=0 /*initialize stemmed array & 1st value.*/
@usa.0=@usa.0+1 /*bump the unique number for usage. */
call USA '_city' , 'Boston'
call USA '_state' , 'MA'
call USA '_addr' , "51 Franklin Street"
call USA '_name' , "FSF Inc."
call USA '_zip' , '02110-1301'
@usa.0=@usa.0+1 /*bump the unique number for usage. */
call USA '_city' , 'Washington'
call USA '_state' , 'DC'
call USA '_addr' , "The Oval Office"
call USA '_addr2' , "1600 Pennsylvania Avenue NW"
call USA '_name' , "The White House"
call USA '_zip' , 20500
call USA 'list'
exit /*stick a fork in it, we're all done. */
@usa.=; @usa.0=0; $='@USA.' /*initialize array and first value.*/
@usa.0=@usa.0 + 1 /*bump the unique number for usage.*/
call USA '_city' , 'Boston'
call USA '_state' , 'MA'
call USA '_addr1' , "51 Franklin Street"
call USA '_name' , "FSF Inc."
call USA '_zip' , '02110-1301'
@usa.0=@usa.0 + 1 /*bump the unique number for usage.*/
call USA '_city' , 'Washington'
call USA '_state' , 'DC'
call USA '_addr1' , "The Oval Office"
call USA '_addr2' , "1600 Pennsylvania Avenue NW"
call USA '_name' , "The White House"
call USA '_zip' , 20500 /*no need for quotes for a number. */
call USA 'list'
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
list: call tell '_name'
call tell '_addr'
do j=2 until $==''; call tell "_addr"j; end /*j*/
call tell '_city'
call tell '_state'
call tell '_zip'
say copies('─', 40)
tell: parse arg a; z=value($||#"."a); if z\='' then say right(translate(a,,'_'),9) "──►" z
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
tell: $=value('@USA.'#"."arg(1));if $\='' then say right(translate(arg(1),,'_'),6) "──►" $
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
USA: procedure expose @USA.; parse arg what,txt; arg ?; @='@USA.'
if ?=='LIST' then do #=1 for @usa.0; call list; end /*#*/
else do
call value @ || @usa.0 || . || what , txt
call value @ || @usa.0 || . || 'upHist', userid() date() time()
end
return
USA: procedure expose @usa. $; parse arg what; arg ?
if ?=='LIST' then do #=1 for @usa.0
call tell '_name'
do j=1 until z=''; call tell "_addr"j; end
call tell '_city'
call tell '_state'
call tell '_zip'
say copies('─', 45)
end /*#*/
else do; call value $ || @usa.0'.'what , arg(2)
call value $ || @usa.0'.upHist' , userid() date() time()
end
return