home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / cases.ba < prev    next >
Text File  |  2006-10-19  |  756b  |  12 lines
  1. 0 'CASES.BA -- Text File Case Converter    by Phil Wheeler 9/16/86
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 GOTO6
  4. 3 H=INPUT$(1,1):D=ASC(H):IFD>BANDD<CTHENH=CHR$(D+A)
  5. 4 PRINT#2,H;:IFEOF(1)THENCLOSE:GOTO5ELSE3
  6. 5 BEEP:MAXFILES=1:MENU
  7. 6 CLS:CLEAR256:MAXFILES=2:DEFINTA-D,I-N:DEFSTRE-H:E=CHR$(27):PRINT@45,E"pASCII Case Converter"E"q":PRINT@125,"[L] Change to Lower Case; or":PRINT@165,"[U] Change to Upper Case; or ";:PRINT@205,"[M] Return to Main Menu ? ";
  8. 7 ONINSTR("LlUuMm",INPUT$(1))GOTO8,8,9,9,5,5:GOTO7
  9. 8 A=32:B=64:C=91:GOTO10
  10. 9 A=-32:B=96:C=123
  11. 10 CLS:FILES:PRINTE"pFile to Convert "E"q";:INPUTF:PRINTE"pOutput File     "E"q";:INPUTG:OPENFFORINPUTAS1:OPENGFOROUTPUTAS2:CLS:PRINT@130,"Working...":GOTO3
  12.