home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / convert.bas < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  256 b   |  9 lines
  1. 10000 REM
  2. 10010 Z2$="":FOR VI=1 TO LEN(Z$)
  3. 10020 Z1$=MID$(Z$,VI,1)
  4. 10030 IF Z1$=>"a" OR Z1$=<"z" THEN Z2$=Z2$+CHR$(ASC(Z1$)-32):GOTO 10050
  5. 10040 Z2$=Z2$+Z1$
  6. 10050 NEXT VI
  7. 10060 Z$=Z2$
  8. 10070 RETURN
  9.  Z1$=>"a" OR Z1$=<"z" THEN Z2$=Z2$+CHR$(ASC(Z1$)-3