Table of Contents
Advertisement
164
Radix User's Manual
390 PRINT TAB(TB) "a. Return to main menu."
400 PRINT TAB(TB) "1. Select PICA pitch."
410 PRINT TAB(TB) "2. Select ELITE pitch."
420 PRINT TAB(TB) "3. Select CONDENSED pitch."
430
GOSUB 2380
440 IF S(0 OR S)3 THEN BEEP : GOT0 430
450 IF S = 0 THEN RETURN
460 ON S GOSUB 820,850,880
470 GOT0 350
480 '
490 'Subroutine to display PRINTING MODES menu.
500 TITLE$ = "PRINTING MODES MENU"
510
GOSUB 2290
520 PRINT TAB(TB) "0. Return to main menu."
530 PRINT TAB(TB) "1. Select EXPANDED mode."
540 PRINT TAB(TB) "2. Cancel EXPANDED mode."
550 PRINT TAB(TB) "3. Select EMPHASIZED mode."
560 PRINT TAB(TB) "4. Cancel EMPHASIZED mode."
570 PRINT TAB(TB) "5. Select DOUBLE-STRIKE mode."
580 PRINT TAB(TB) "6. Cancel DOUBLE-STRIKE mode."
590 GOSUB 2380
600 IF S(0 OR S)6 THEN BEEP : GOT0 590
61/a IF S = p! THEN RETURN
620 ON S GOSUB 1530,1560,2170,2200,2230,2260
630 GOT0 480
640 '
650 'Subroutine to display MARGINS, TABS & FORMS menu.
660 TITLE$ = "MARGINS, TABS & FORMS MENU"
670 GOSUB 2290
680 PRINT TAB(TB) "$3. Return to main menu."
690 PRINT TAB(TB) "1. Set HORIZONTAL TABS."
700 PRINT TAB(TB) "2. Set VERTICAL TABS."
710 PRINT TAB(TB) "3. Set LEFT MARGIN."
720 PRINT TAB(TB) "4. Set RIGHT MARGIN."
730 PRINT TAB(TB) "5. Set TOP MARGIN."
740 PRINT TAB(TB) "6. Set BOTTOM MARGIN."
750 PRINT TAB(TB) "7. Cancel TOP & BOTTOM MARGINS."
760 PRINT TAB(TB) "8. Set PAGE LENGTH."
770 GOSUB 2380
780 IF S(0 OR S)8 THEN BEEP : GOT0 770
790 IF S = 0 THEN RETURN
800 ON S GOSUB 1820,2130,910,970,1030,1090,1150,1650
810 GOT0 640
-
-
-
-
-
-
-
Advertisement
Table of Contents
