Star Micronics Delta User Manual page 110

98 Delta User's Manual
790 FOR I=20 TO 23:LOCATE 1,S:PRINT
STRING$(55,32);:NEXT I
800 IF SH=l THEN SH=16 ELSE SH=0
810 Nl=AS:N2=PR+SH
820 FOR I=1 TO ll:MM$=MM$+CHR$(MM(I)):NEXT I
830
LPRINT
CHR$(27);"*";CHR$(l);CHR$(Nl);CHR$(N2);MM$
840 IF AN$="N" THEN LPRINT CHR$(27);"$";CHR$(l)
:GOTO 860
850 LPRINT CHR$(27);"X";CHR$(l)
860 FOR I=1 TO 20:LPRINT CHR$(Nl);" ";:NEXT 1:LPRINT
870 LPRINT CHR$(14);:FOR I=1 TO l@:LPRINT CHR$(Nl);"
_
";:NEXT 1:LPRINT CHR$(20)
880 LPRINT CHR$(lS);:FOR I-l TO 20:LPRINT CHR$(Nl);"
";:NEXT 1:LPRINT CHR$(18)
890 IF AN$="N" THEN LPRINT CHR$(27);"$";CHR$(@):GOTO
910
900 LPRINT CHR$(27);"X";CHR$(g)
910 LPRINT CHR$(~~);"@":MM$="":RETURN :REM **** END
OF PRINT MODE ****
92j2i IF z(G,H)=~ THEN LOCATE x+4,Y+l@:pRINT " '1;
930 IF Z(G,H)=l THEN LOCATE X+L,Y+l@:COLOR 7,g:PRINT
SC$;
940 RETURN
950 IF Z(G,H)=l THEN COLOR 31,l: LOCATE
X+4,Y+la:PRINT CS$;: COLOR 7,0
e, THEN COLOR 7,0: LOCATE
INT CS$;: COLOR 7,0
960 IF Z(G,H)=
X+4,Y+lg:PR
970 RETURN
Summary
Control code
Function
(ESC)
"*" CHR$(l) nl n2 ml . . . ml1
Defines download character into RAM
(ESC)
I'*" 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) "$" CHR$(l)
Selects the download character set and
uses normal spacing
(ESC) "$" CHR$(O)
Cancels normal download character set
-
-.