home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / ASCII.BAS next >
Encoding:
BASIC Source File  |  1992-03-02  |  332 b   |  16 lines
  1.  
  2.  
  3.     ' This program ask for a string and then
  4.     ' displays a list of ASCII codes for each
  5.     ' character in the entered string
  6.  
  7.     input "Please enter a string >"; entry$
  8.  
  9.     for index = 1 to len(entry$)
  10.  
  11.         result$ = result$ + str$(asc(mid$(entry$,index,1))) + chr$(13)
  12.  
  13.     next index
  14.  
  15.     print result$
  16.