FILESELECT "*.DAT","POWER.DAT",lo$ OPEN "I",#1,lo$ size%=LOF(#1) CLOSE #1 DIM buffer%((size%/4)+100) !Dim buffer BLOAD lo$,VARPTR(buffer%(0)) !Load file ALERT 2," 1 = PRINTER| 2 = SCREEN",2,"1|2",d% !Printer or screen? FOR x%=0 TO size%-1 !Print whole buffer IF d%=1 LPRINT HEX$(PEEK(VARPTR(buffer%(0))+x%)); ELSE PRINT HEX$(PEEK(VARPTR(buffer%(0))+x%)); ENDIF NEXT x% PRINT " That's it, folks!"