home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / UPCASE.BAS < prev   
Encoding:
BASIC Source File  |  1985-04-19  |  768 b   |  19 lines
  1. 1 '  UPCASE = Routine to change all lowercase letters in CS$ to uppercase                 11/4/82         John Sigle
  2. 5 '
  3. 10 ' Demonstration of UPCASE
  4. 20 CLS : LOCATE 10,3
  5. 22 PRINT "This is a routine to change all lowercase letters to uppercase"
  6. 24 PRINT:PRINT
  7. 30 LINE INPUT "Enter uppercase and lowercase letters, or press ENTER to quit.";CS$
  8. 35 IF CS$="" THEN GOTO 65000   ' END
  9. 38 GOSUB 401
  10. 40 PRINT "Uppercased string is --- ";CS$
  11. 50 GOTO 30
  12. 100 '
  13. 400 ' UPCASE = Routine to change all lowercase letters in CS$ to uppercase
  14. 401 L%=LEN(CS$)
  15. 403 FOR K%=1 TO L%
  16. 405  O%=ASC(MID$(CS$,K%,1))
  17. 407  IF O%>96 AND O%<123 THEN MID$(CS$,K%,1)=CHR$(O%-32)
  18. 409 NEXT K%       :RETURN
  19.