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

Re: hardcode.pgm anomaly--third try



Patricia,

Do you need to do anything more complicated than what I did in my tiny program. As I said in an earlier post, If all you want to do is change DC tags into their numbers, a simple-minded program to do that is:

XPLeNCODE v2.0
b-gin [UNTITLED]
{<}SV568,{<}LB{>}{>}{<}SV569,LB{>}{<}XS568,569,595,570,596{>}
[BC_]Pgm assumes there's no resetting of counters--ok? (-/n){
<}SX01,{<}RC{>}{>};*;[cr|lf]{<}IF{<}RC{>}=="n"{>}{<}GL_{>}{<}
EI{>};*;[cr|lf][BC_]enter number of counter, 1 - 9 (or x){<}S
X01,{<}RC{>}{>};*;[cr|lf]{<}IF{<}IS01{>}=="x"{>}{<}GL_{>}{<}E
I{>};*;[cr|lf]{<}SX02,{<}PV01{>}{>};*;[cr|lf]{<}IF{<}PV02{>}>
9!{<}PV02{>}<1{>}{<}GL_{>}{<}EI{>};*;[cr|lf]{<}SX03,{<}PV01{>
}{>}[TF_][XP_]{<}SX04,1{>};*;[cr|lf]{<}LBA{>};*; LOOP [cr|lf]
[BX_]se /{<}PV595{>}c{<}PV02{>}{<}PV596{>}/[Q2_];*;[cr|lf]{<}
IF{<}ER{>}{>}[TF_]{<}GL_{>}{<}EI{>};*;[cr|lf][BD_][BD_][BD_][
BD_]{<}PV04{>}{<}SX04,{<}PV04{>}+1{>}{<}GLA{>}{<}LB_{>}{<}SV5
0,555-598{>}[JM_]2.clearsgts[Q2_]{<}EX{>}[cr|lf]
-nd
XPLeNCODE

You could obviously change that to suit your needs. I think their hardcode.pgm is overkill.


In fact, Xy is the ONLY program I know of that doesn't make mice feet of autocounters. Perhaps it would be possible to create a hardcode.prn that did what it's supposed to but also recognized High-Order Speedos chars?


Harry Binswanger
hb@xxxxxxxxxxxx