Star Micronics Radix User Manual page 179

Putting Radix to WorkFor You
165
820 '
830 'Subroutine to select PICA pitch.
840 S$ = ES@ + "B" + CRR$(l) : GOSUB 2460 : RETURN
850 '
860 'Subroutine to select ELITE pitch.
870 S$ = ESC$ + "B" + CRR$(2) : GOSUB 2460 : RETURN
880 '
890 'Subroutine to select CONDENSED pitch.
;Tj; s$ = ESC$ + "B" + CRR$(3) : GOSUB 2460 : RETURN
920 'Subroutine to set LEFT MARGIN.
930 GOSUB 2500
940 INPUT "Enter new left margin (l-255)" ; X
950 IF X ( 1 OR X > 255 THEN BEEP : GOT0 930
960 S$ = ESC$ + "M" + CBR$(X) : GOSUB 2460 : RETURN
970 '
980
'Subroutine to set right MARGIN
990 GOSUB 2500
1000 INPUT "Enter new right margin (l-255)" ; X
1010 IF X ( 1 OR X > 255 THEN BEEP : GOT0 990
1020 S$ = ESC$ + "Q" + CRR$(X) : GOSUB 2460 : RETURN
1030 '
1040 'Subroutine to set TOP MARGIN.
1050 GOSUB 2500
1060 INPUT "Enter new top margin (l-16)" ; X
1070 IF X ( 1 OR X > 16 THEN BEEP : GOT0 1050
1080
S$ = ESC$ + "R" + CRR$(X) : GOSUB 2460 : RETURN
1090 '
1100 'Subroutine to set BOTTOM MARGIN.
1110 GOSUB 2500
1120 INPUT "Enter new bottom margin (l-127)" ; X
1130 IF X ( 1 OR X ) 127 THEN BEEP : GOT0 1110
1140 S$ = ESC$ + "N" + CRR$(X) : GOSUB 2460 : RETURN
1150 '
1160 'Subroutine to CANCEL TOP & BOTTOM MARGINS.
1170 S$ = ESC$ + "0" : GOSUB 2460 : RETURN
1180 '
1190 'Subroutine to select NLQ character set.
1200 S$ = ESC$ + "B" + CRR$(4) : GOSUB 2460 : RETURN
1210 '
1220 'Subroutine to cancel NLQ character set.
1230 S$ = ESC$ + "B" + CRR$(S) : GOSUB 2460 : RETURN
1240 '