Star Micronics Radix User Manual page 257

Kaypro, Osborne & Other CPlM Computers
243
640 'Subroutine to display MARGINS, TABS & FORMS menu.
650 TITLE$ = "MARGINS, TABS & FORMS MENU"
660 GOSUB 2280
670 PRINT TAB(TB) "0. Return to main menu."
680 PRINT TAB(TB) "1. Set HORIZONTAL TABS."
690 PRINT TAB(TB) "2. Set VERTICAL TABS."
700 PRINT TAB(TB) "3. Set LEFT MARGIN."
710 PRINT TAB(TB) "4. Set RIGHT MARGIN."
720 PRINT TAB(TB) "5. Set TOP MARGIN."
730 PRINT TAB(TB) "6. Set BOTTOM MARGIN."
740 PRINT TAB(TB) "7. Cancel TOP & BOTTOM MARGINS."
750 PRINT TAB(TB) "8. Set PAGE LENGTH."
760 GOSUB 2370
770 IF S(0 OR S)8 THEN PRINT CHR$(7) : GOT0 760
780 IFS = 0 THEN RETURN
790 ON S GOSUB 1810,2120,900,960,1020,1080,1140,1640
800 GOT0 630
810 '
820 'Subroutine to select PICA pitch.
830 S$ = ESC$ + "B" + CHR$(l) : GOSUB 2460 : RETURN
840 '
850 'Subroutine to select ELITE pitch.
860 S$ = ESC$ + "B" + CHR$(2) : GOSUB 2460 : RETURN
870 '
880 'Subroutine to select CONDENSED pitch.
890 S$ = ESC$ + "B" + CHR$(3) : GOSUB 2460 : RETURN
900
'
910 'Subroutine to set LEFT MARGIN.
920 GOSUB 2500
930 INPUT "Enter new left margin (l-255)" ; X
;J; ;; X ( 1 OR X ) 255 THEN PRINT CHR$(7) : GOT0 920
= ESC$ + "M" + CHR$(X) : GOSUB 2460 : RETURN
960 '
970 'Subroutine to set right MARGIN
980 GOSUB 2500
990 INPUT "Enter new right margin (l-255)" ; X
1000 IF X ( 1 OR X ) 255 THEN PRINT CHR$(7) : GOT0 980
1010 S$ = ESC$ + "Q" + CHR$(X) : GOSUB 2460 : RETURN
1020 '
1030 'Subroutine to set TOP MARGIN.
1040 GOSUB 2500
1050 INPUT "Enter new top margin (l-16)" ; X
1060 IF X ( 1 OR X ) 16 THEN PRINT CHR$(7) : GOT0 1040
1070 S$ = ESC$ + "R" + CHR$(X) : GOSUB 2460 : RETURN