Star Micronics Radix User Manual page 222

208
Radix User's Manual
-.
780 GOSUB 2650
790 IF S ( 0 OR S ) 8 THEN PRINT BEEP$;: GOT0 780
800 IF S = 0 THEN RETURN
810 ON S GOSUB 2~5~,236~,98~,l$I6~,113!J,l21~,128~,188~
820 GOT0 650
830 REM SELECT PICA
850 S$ = ESC$ + "B" + CHR$ (1)
860 GOSUB 2730
870 RETURN
880 REM SELECT ELITE
890 S$ = ESC$ + "B" + CHR$ (2)
900
GOSUB 2730
910 RETURN
930 REM SELECT CONDENSED
940 S$ = ESC$ + "B" + CHR$ (3)
960 GOSUB 2730
970 RETURN
980 REM SET LEFT MARGIN
1000 GOSUB 2770
1010 INPUT "ENTER NEW LEFT MARGIN (l-255) ";X
-
la2$ IF X ( 1 OR X ) 255 THEN PRINT BEEP!$;:
1030 s$ = ~sc$ + "M" + cHR$ (x)
1040 GOSUB 2730
1050 RETURN
1060 REM SET RIGHT MARGIN
1080 GOSUB 2770
1090 INPUT "ENTER NEW RIGHT MARGIN (l-255) "
1100 IF X ( 1 OR X ) 255 THEN PRINT BEEP$;:
1110 S$ = ESC$ + "Q" + CHR$ (X)
1120 GOSUB 2730: RETURN
1130 REM SET TOP MARGIN
1150 GOSUB 2770
1160 INPUT "ENTER NEW TOP MARGIN (1-16) ";X
GOT0 .1000
X
GOT0 1080
1170 IF X ( 1 OR X ) 16 THEN PRINT BEEP$;: GOT0 1150
1180 S$ = ESC$ + "R" + CHR$ (X)
1190 GOSUB 2730
1200 RETURN
1210 REM SET BOTTOM MARGIN
1230 GOSUB 2770
1240 INPUT "ENTER NEW BOTTOM MARGIN (1-127) ";X
1250 IF x ( 1 OR x ) 127 THEN PRINT BEEPS;: GOTO 1230
1260 S$ = ESC$ + "N" + CHR$ (X)
1270 GOSUB 2730: RETURN
1280 REM CANCEL TOP & BOTTOM MARGIN