%OP%BON
%OP%JUY
%CO:A,9,72%

%JR%THIS PROGRAM WAS WRITTEN at the request of Mr U. Imre, who wanted some 
%JL%means of "mixed" converting text to all capitals.  It works by taking 
%JR%input from the file chosen by the user, examining it one character at a 
%JL%time and if the ASCII value falls within the range 97 to 122 it 
%JR%subtracts 32 thus converting it to the equivalent capital letter.  The 
%JL%output from this process is written to a new file %H2%output.cap%H2% so that 
%JR%your original is not lost - un-capitalising a long file is horrible to
even think about.

%JR%A 1k file takes about 30 seconds to process.  To go a litle faster
remove "PRINT char$;:" from line 240.

%JL%The program can be made work backwards (i.e. capitals to lower case) 
by making the following alterations:-
 
300 IF c%PC% <65 THEN ENDPROC
310 IF c%PC% >90  THEN ENDPROC
320 c%PC% = c%PC% + 32

%JR%This is not really recomended because it removes all the capitals from 
%JL%names, ignores the start of new sentences, and leaves Pipedream 
%JR%formatting codes horribly mangled.  (These can be restored by 
translating the entire mess back into capitals.) 

%JL%Any queries may be sent to me at 18, Woodside Road, Sandiacre, 
Nottingham.  NG10 5GP

%CO:B,12,60%%H2%LOWER  CASE  LETTER  TO  CAPITAL  LETTER  TRANSLATOR

%CO:C,12,48%%CO:D,12,36%%CO:E,12,24%%CO:F,12,12%%CO:G,12,0%




























%CO:H,12,0%%CO:I,12,0%%CO:J,12,0%%CO:K,12,0%%CO:L,12,0%%CO:M,12,0%%CO:N,12,0%%CO:O,12,0%%CO:P,12,0%




























