home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / join.bas < prev    next >
BASIC Source File  |  1988-05-22  |  133b  |  8 lines
  1. 100   input a: ? a
  2. 110   a$ = mks$(a)
  3. 120   for i = 1 to 4
  4. 130   b$ = mid$(a$,i,1)
  5. 131   ? hex$(asc(b$))
  6. 140   next i
  7. 200   goto 100
  8.