I found the following program in HPX V1N3.

Michael KRABACH <38> wrote an article named "Programming Eproms for the HP-41".

Is there someone who used it or had experience?

Thanks!

10 CLS:REM Remove line for non-IBM version MBASIC

...

180 DEFINT B,I,J,K

190 DIM B(16)

200 DIM U$(16),L$(16),SUM(4)

210 INPUT "File name to be converted into Intel Hex format";FILE$:PRINT

220 PRINT "The output files will have the .HEX extension appended to them":PRINT

230 INPUT "Name the output file for the lower 8 bits (L8)";FILEL8$

240 INPUT "Name the output file for the upper 2 bits (U2)";FILEU2$

250 OPEN "I",#1,FILE$

260 OPEN "O",#2,FILEL8$+".HEX"

270 OPEN "O",#2,FILEU2$+".HEX"

280 WHILE NOT EOF(1)

290 FOR J=1 TO 4

300 FOR I=1 to 16

310 INPUT #1,A$

320 IF LEFT$(A$,1)="" THEN 310

330 IF I=1 THEN ADRL8$=LEFT$(A$,4)

340 IF I=1 AND J=1 THEN ADRU2$=HEX$(VAL("&H"+ADRL8$)/4-VAL("&HC00"))

350 IF MID$(A$,5,1)=" " THEN 390

360 L$(I)=MID$(A$,6,2)

370 U$(I)=MID$(A$,5,1)

380 GOTO 410

390 L$(I)=MID$(A$,7,2)

400 U$(I)=MID$(A$,6,1)

410 B(I)=VAL(U$(I))

420 NEXT I

430 L8$=":10"+ADRL8$+"00"

440 FOR K=1 TO 16

450 L8$=L8$+L$(K)

460 NEXT K

470 MID$(L8$,4)="0"

480 C$=HEX$(B(1)+4*B(2))

490 D$=HEX$(B(3)+4*B(4))

500 E$=HEX$(B(5)+4*B(6))

510 F$=HEX$(B(7)+4*B(8))

520 G$=HEX$(B(9)+4*B(10))

530 H$=HEX$(B(11)+4*B(12))

540 I$=HEX$(B(13)+4*B(14))

550 J$=HEX$(B(15)+4*B(16))

560 SUM$(J)=D$+E$+F$+G$+H$+I$+J$

570 PRINT #2,L8$:PRINT "L8$=";L8$

580 NEXT J

590 U2$=":10"+ADRU2$+"00"+SUM$(1)+SUM$(2)+SUM$(3)+SUM$(4)

600 MID$(U2$,4)="0"

610 PRINT #3,U2$:PRINT "U2$=";U2$

620 PRINT

630 WEND

640 ENDFILE$=":0000000000"

650 PRINT #2,ENDFILE$:PRINT "L8$=";ENDFILE$

660 PRINT #3,ENDFILE$:PRINT "U2$=";ENDFILE$

670 CLOSE #1

680 CLOSE #2

690 CLOSE #3

700 END