home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / grabcom.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  226 b   |  14 lines

  1. OPEN "A:X.COM" AS 1
  2. B9$="0123456789ABCDEF"
  3.  
  4. DEF FN.HEX$(X)=MID$(B9$,INT(X/16)+1,1)+MID$(B9$,(X AND 15)+1,1)
  5.  
  6. FOR X=1 TO 300
  7. R%=GET(1)
  8. PRINT X;R%;FN.HEX$(R%);
  9. IF R%>31 AND R%<128 THEN PRINT CHR$(R%) ELSE PRINT
  10. NEXT X
  11.  
  12. CLOSE 1
  13.  
  14.