All Caps, Please

There have been many good programs published for the 2068 that I would have copied except for the fact that lower case was used. This combined with reduced reproduction, illegibility, and only fair eyesight presents too much of a problem, and I do not think that I am alone in this. The 2068 has a Caps-Lock key, and I use it when programming.

There is an added benefit to using all caps in that you can save memory by avoiding double IF statements such as:

IF a$="Y" OR a$="y" THEN GOTO 10

To do this you must insert a line into the program to poke the system variable FLAGS2 as follows:

POKE 23658,8

This prevents the use of lower case, which can be restored by:

POKE 23658,0

If you will copy the following program, save it on tape, merge it with a program to be listed for publication, run it using GOTO 9910, it will change all lower case characters to upper case, except for double IF statements. You must of course delete these added lines before LLISTing your program.

9910 LET A=PEEK 23635+256*PEEK 23636
9920 LET E=PEEK 23627+256*PEEK 23628
9930 FOR N=A+5 TO E
9940 IF PEEK N=36 OR PEEK N=166 AND PEEK (N+5)=197 THEN  LET N=N+13
9950 IF PEEK N=14 THEN  LET N=N+6
9960 IF PEEK N=13 THEN  LET N=N+5
9970 IF PEEK N>=97 AND PEEK N<=122 THEN  POKE N,PEEK N-32
9980 NEXT N
9985 STOP
9990 SAVE "ALL CAPS" LINE 9910