home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / dos / keycode.lzh / KEYCODE1.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-08-22  |  308 b   |  12 lines
  1. 100  ' HEXASCII.BAS -- Converts ASCII strings to hex
  2. 110  LINE INPUT "Enter ASCII string to convert: ",T$
  3. 120  PRINT:IF LEN(T$)<27 THEN S$=T$:GOTO 140
  4. 130  S$=LEFT$(T$,26):T$=RIGHT$(T$,LEN(T$)-26)
  5. 140  FOR A=1 TO LEN(S$)
  6. 150  PRINT MID$(S$,A,1);STRING$(2,32);
  7. 160  NEXT:PRINT
  8. 170  FOR A=1 TO LEN(S$)
  9. 180  PRINT HEX$(ASC(MID$(S$,A,1)));CHR$(32);
  10. 190  NEXT:PRINT
  11. 200  IF T$=S$ THEN END ELSE 120
  12.