10 DIM N$(16):N$="0123456789ABCDEF"
20 ADDR=24576
30 LENGHT=3594
40 DIM NAME$(10):NAME$="D:CARGADOR"
50 GOSUB 500
60 OFFSET=ADDR
70 READ SZ, IGR
71 PRINT IGR;" ";SZ
80 IF SZ=-1 THEN GOTO 120
90 GOSUB 600
100 OFFSET=OFFSET+SZ
110 GOTO 70
120 PRINT "OK"
121 STOP
130 DATA 132,20205,132,344,132,384,571,349,1019,787,134,4214,134,114,134,97
131 DATA 134,112,134,123,134,114,134,98,134,110,134,113,134,104,134,122,134,163,-1,-1

500 REM CARGA ARCHIVO NAME$,
501 REM DE LARGO LENGHT EN ADDR 
510 OPEN #1,4,0,NAME$
520 H=INT(ADDR/256):L=ADDR-(H*256)
530 POKE 852+1,H:POKE 852,L
540 H=INT(LENGHT/256):L=LENGHT-(H*256)
550 POKE 856+1,H:POKE 856,L
560 POKE 850,7:A=USR(ADR("hhh*LVd"),16)
570 CLOSE #1
580 RETURN

600 REM IMPRIME EN PANTALLA LOS 
601 REM PRIMEROS 16 BYTES DE OFFSET
610 FOR I=0 TO 15
620 A=PEEK(OFFSET+I)
630 B=INT(A/16)
640 C=A-(B*16)
650 PRINT N$(B+1,B+1);N$(C+1,C+1);
660 NEXT I
670 PRINT ""
680 RETURN


