home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / ASCII.BAS < prev    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.