Star Micronics Radix User Manual page 151

Creating Your Own Characters
137
1900 LOCATE 3,10 : PRINT STRING$(33, " ") ;
1910 LOCATE 3,2 : PRINT "WIDTH : " s~rRmC$(P~owI13*3,
tl*ll
> ;
1920 RETURN
1930 '
1940 'Subroutine to clear current character.
1950 PROWID = 11 : DESC = 0
1960 FOR H = 1 TO 11 : MM(H) = p, : NEXT H
1970 GOSUB 410 : RETURN
1980 '
1990 'Subroutine to perform a ROM copy.
2~~pI LPRINT CHR$(27) "*" CHR$(@ ; : RETURN
2010 '
2020 'Subroutine to erase query message.
2030 LOCATE 23,5 :PRINT sTRING$(70," '1) j
2040 RETURN
2050 '
2060 'Subroutine to build command string.
2070 REC$ = CHR$(27) + "*" + CHR$(l)
2080 REC$ = REC$ + CHR$(AS) + CHR$(DESC*l6 + PROWID)
2090 FOR I = 1 TO 11 : REC$ = REC$ + CHR$(MM(I)) : NEXT
I
2100 RETURN
Summary
Control code
Function
(ESC)
"*" CHR$(l) nl n2 ml . . . ml1
Defines download character into RAM
(ESC) "*" CHR$(O)
Copies fonts in ROM into download
RAM
(ESC) "X" CHR$(l)
Selects the download character set and
uses proportional spacing
(ESC) "X" CHR$(O)
Cancels proportional download charac-
ter set
(ESC) I'$" CHR$(l) Selects the download character set and
uses normal spacing
(ESC) "$" CHR$(O)
Cancels normal download character set