Mode Strings; Strata - Epson FX-80 User Manual

Mode Strings
For some applications, you may wish to use all 256 RAM locations
for your own special symbols. In that case, there is no need to
download the ROM into RAM. But you will need a quick and easy
way to switch back and forth between the two character sets. One
easy way to do this is to define two character strings:
B13 RAM$=CHR$(27)+"%"+CHR$(1)+CHR$(13)
913 ROM$=CHR$(27)+"%"+CHR$(13)+CHR$(13)
Add these lines to the current program. To demonstrate their effect,
try:
1313 LPRINT CHR$(27)"&"CHR$(13)"lB";
1413 FOR Y=l TO 8: LPRINT CHR$(139);
1813 LPRINT ROM$;"1234567B";RAM$;"12345678"
11213 DATA 13,63,64,8,64,8,64,2B,64,32,13: ' My F
11313 DATA 13,32,64,13,64,63,64,13,64,32,13: ' My T
:l234!!567BSClPTWARB
If you find yourself defining characters in small groups, the same tech-
nique can be used to store part of the (ESC)"
&"
command:
Z$=CHR$(27)+"&"+CHR$(13)
Z$ can be used to define each new string of characters with a simple
command like:
LPRINT Z$; "AZ";
or
LPRINT Z$;CHR$(12B)CHR$(159);
Strata
Our current program uses eight user-defined characters as well as
the LOGO graphics design that you loaded at the beginning of the
chapter. We are grooming this program to be used again in later chap-
ters. Make these few final changes for this chapter:
209