home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / upper.bas < prev   
Encoding:
BASIC Source File  |  1980-01-01  |  256 b   |  10 lines
  1. 8000 REM
  2. 8005 SS$=""
  3. 8010 FOR II= 1 TO LEN(S$)
  4. 8020 AA$=MID$(S$,II,1)
  5. 8030 IF AA$<>"" THEN IF ASC(AA$)>96 THEN SS$=SS$+CHR$(ASC(AA$)-32)
  6. 8050 NEXT II
  7. 8060 S$=SS$
  8. EN(S$)
  9. 8020 AA$=MID$(S$,II,1)
  10. 8030 IF AA$<>"" THEN IF ASC(AA$)>96 THEN SS$=SS$+CHR$(