Table of Contents
Advertisement
TRS-80 Computers
225
290 PRINT TAB(TB) "3. Select ITALIC character set."
300 PRINT TAB(TB) "4. Cancel ITALIC character set."
310 GOSUB 2650
320 IF S(p! OR S)4 THEN 310
330 IF S = 0 THEN RETURN
340 ON S GOSUB 131~,1360,lSp1~,184~
350 GOT0 220
360 '
370 'Subroutine to display PITCHES menu.
380 TITLE$ = "PITCHES MENU"
390 GOSUB 2560
400 PRINT TAB(TB) "0. Return to main menu."
410 PRINT TAB(TB) "1. Select PICA pitch."
420 PRINT TAB(TB) "2. Select ELITE pitch."
430 PRINT TAB(TB) "3. Select CONDENSED pitch."
440 GOSUB 2650
450 IF S(p! OR S)3 THEN 440
460 IF S = 0 THEN RETURN
470 ON S GOSUB 830,880,930
480 GOT0 360
490 '
500 'Subroutine to display PRINTING MODES menu.
510 TITLE$ = "PRINTING MODES MENU"
520 GOSUB 2560
530 PRINT TAB(TB) "0. Return to main menu."
540 PRINT TAB(TB) "1. Select EXPANDED mode."
550 PRINT TAB(TB) "2. Cancel EXPANDED mode."
560 PRINT TAB(TB) "3. Select EMPHASIZED mode."
570 PRINT TAB(TB) "4. Cancel EMPAHASIZED mode."
580 PRINT TAB(TB) "5. Select DOUBLE-STRIKE mode."
590 PRINT TAB(TB) "6. Cancel DOUBLE-STRIKE mode."
600 GOSUB 2650
610 IF S(0 OR S)6 THEN 600
620 IF S = pl THEN RETURN
630 ON S GOSUB 1700,1750,2400,2440,2480,2520
640 GOT0 490
650 '
660 'Subroutine to display MARGINS, TABS & FORMS menu.
670 TITLE$ = "MARGINS, TABS & FORMS MENU"
680 GOSUB 2560
690 PRINT TAB(TB) "0. Return to main menu."
700 PRINT TAB(TB) "1. Set HORIZONTAL TABS."
710 PRINT TAB(TB) "2. Set VERTICAL TABS."
720 PRINT TAB(TB) "3. Set LEFT MARGIN."
Advertisement
Table of Contents
