home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol074 / ucase.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  227 b   |  7 lines
  1. 100 INPUT "Input any lower case character : ",Z$
  2. 105 DEF FNUCASE$(Z$,N)=CHR$(ASC(MID$(Z$,N,1)) AND &H5F)
  3. 110 PRINT "The character you typed was : ";Z$
  4. 120 Y$=FNUCASE$(Z$,1)
  5. 130 PRINT "and is ";Y$;" in upper case"
  6. 140 END
  7.