[Date Prev][Date Next][Subject Prev][Subject Next][Date Index][Subject Index]

*Subject*: Hardnumber program*From*: Harry Binswanger hb@xxxxxxxxxxxx*Date*: Thu, 23 Apr 2009 23:39:58 -0400

Recently, someone asked about a program to substitute hard numbers for thesoft-number counters, C0 through C9. I don't believe there was a fullysatisfactory program in existence. I've written one (below, in XYENC form).It's not up to the standards of Carl's and Robert's programs, but it workshere, though it's not been through extensive testing.It handles re-sets of the counters, viawhere n is a number 0 through 9, and m is any number.Give it a whirl. '%--_XYENCode_start-- ~~ ~>~ ~ 'BXes_1'Q2~ ~ ~ ~ ~ ~< SX06,1~>~ ~ ~ ~ ~ ~ ~~~~~'TF'XP',*','^~ ',*',_LOOP_'^~ ~>~ ~>~ ~>~ ~>'BXse/f _/~ C;N~ ;O~ DC;W~ /'Q2',*','^~ ~>~ ~ ',*','^'CR'DF'BXse/f_/~ /'Q2'DF~< SV18~>',*','^~ ==~ ~>'BCthis.c$_is_null--can'` t_parse_it~ ~ ',*','^~ ',*','^~ ==~ ~>~ ~ ',*','^'RD'BD'RC~ ',*','^~ ==0~>~ ~>~ ',*','^', *','^~ ==1~>~ ~>~ ',*','^',*','^~ ==2~>~~>~ ',*','^',*','^~ ==3~>~ ~>~ ',*','^',*','^~ ==4~>~ ~~~>~~~',*','^',*','^~ ==5~>~ ~>~ ',*','^',*','^~ ==6~>~ ~>~< EI~>',*','^',*','^~ ==7~>~ ~>~ ',*', '^',*','^~ ==8~>~ ~>~ ',*','^',*','^ ~ ==9~>~ ~>~ ',*','^'CL'CL~ ', *','^~ ',*',_SKIP_'^'RD'BD'RC~ +",1"~>'JM2.H IDE'.01-49,51-89'Q2'JM2.RIGHT'Q2'JM2.UNHIDE'Q2~ ~> ~ ~>',*','^~ ==0~>~ ~ +1~>~ ',*','^',*','^~ ==1~>~ ~ +1~>~ ',*','^',*','^~ ==2~>~ ~ +1~>~ ',*','^',*','^~ ==3~>~ ~ +1~>~ ',*','^',*','^~ ==4~>~ ~ +1~>~ ',*','^',*','^~ ==5~>~ ~ ~~+1~>~~~',*','^',*','^~ ==6~>~ ~< SX07,~ +1~>~ ',*','^',*','^~ ==7~>~ ~ +1~>~ ',*','^',*','^~ ==8~>~ ~ +1~>~ ',*','^',*','^~ ==9~>~ ~ +1~>~ ',*','^'CL'CL~ ',*','^~ ~

'JM2.clearsgts'Q2~ '^ '%--_XYENCode___end-- Harry Binswanger hb@xxxxxxxxxxxx

- Prev by Date:
**Re: Saving Prompt message** - Next by Date:
**XySearch** - Previous by thread:
**Re: hardisk integrity** - Next by thread:
**Hard number program, as written in XyBasic** - Index(es):