Stichwort altes RPG
F in Stelle 53 der Headerkarte = Filetranslation
dann , am Pgm ende
** INPUT
XXYYxxyyXxYy... xx = der alte, yy der neue hex wert also z.b. 004001400240 ...
Code:
H .D F EGHEXR
F* ---------------------------------------------------------------------- *
F* HEXWERTE AUS Datei RAUS
F* ---------------------------------------------------------------------- *
FINPUT IP F 999 DISK
FOUTPUT O F 999 DISK A
IINPUT KF 01
I 1 250 S1
I 251 500 S2
I 501 750 S3
I 751 987 S4
OOUTPUT DADD 01
O S1 262
O S2 512
O S3 762
O S4 999
**
INPUT 00400140024003400440054006400740084009400A400B400C400D400E400F40
INPUT 10401140124013401440154016401740184019401A401B401C401D401E401F40
INPUT 20402140224023402440254026402740284029402A402B402C402D402E402F40
INPUT 30403140324033403440354036403740384039403A403B403C403D403E403F40
INPUT 4140424043404440454046404740484049404C40
INPUT 5140524053405440554056405740584059405E40
INPUT 624063406440654066406740684069406E40
INPUT 704071407240734074407540764077407840
INPUT 80408A408B408C408D408E408F40
INPUT 90409A409B409C409D409E409F40
INPUT A040AA40AB40AC40AD40AE40AF40
INPUT B040B140B240B340B440B540B640B740B840B940BA40BB40BC40BD40BE40BF40
INPUT CA40CB40CC40CD40CE40CF40
INPUT DA40DB40DC40DD40DE40DF40
INPUT E140EA40EB40EC40ED40EE40EF40
INPUT FA40FB40FC40FD40FE40FF40
das ist RPG
Viel spass beim ILE / /Free umbau
Robi
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
Bookmarks