home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / chghex.ba < prev    next >
Text File  |  2006-10-19  |  983b  |  17 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
  2. 1 'CHGHEX.BA Based on CHANGE.BA by Rick Perry
  3. 10 MAXFILES=1:ONERRORGOTO23
  4. 11 CLS:PRINT@80,"Hex file to translate";:INPUTI$:IFNOTINSTR(I$,".")THENI$=I$+".DO"
  5. 12 H$="0123456789ABCDEF":OPENI$FORINPUTAS1:INPUT#1,T,E,S:IFE>=MAXRAMTHENERRORELSEIFT>=HIMEMTHEN14
  6. 13 CLOSE:I$=I$+CHR$(0):FORJ=1TOLEN(I$):POKEJ-185,ASC(MID$(I$,J)):NEXT:CLEAR256,T:I$="":FORJ=1TO9:A=PEEK(J-185):IFA=0THENJ=9:NEXTELSEI$=I$+CHR$(A):NEXT:GOTO12
  7. 14 LINEINPUT".CO output file ";O$:N=0:ZC=T+E+S:CLS:PRINT@80,"Working...";
  8. 15 FORZ=TTOE
  9. 16 A$=INPUT$(1,1):I=INSTR(H$,A$)-1:IFI<0THEN16
  10. 17 N=NOTN:IFNTHENA=I:GOTO16ELSEA=16*A+I:ZC=ZC+A:POKEZ,A:PRINT".";:NEXT
  11. 18 LINEINPUT#1,A$:INPUT#1,Z:CLOSE
  12. 19 IFZ<>ZCTHENSOUND9394,8:PRINT"Checksum error!":END
  13. 20 BEEP:PRINT"Kill hex input file? ";:A$=INPUT$(1):PRINTA$:IFA$="Y"ORA$="y"THENKILLI$
  14. 21 IFO$=""THEN22ELSESAVEMO$,T,E,S
  15. 22 MAXFILES=0:MENU
  16. 23 CLS:PRINT"Error #";ERR;"in Line";ERL:END
  17.