Star Micronics Radix User Manual page 221

Apple II Computers
207
328
IF s ( g 0~ s )
4
THEN PRINT BEEPS;: G0~0
318
339 IF S = g THEN RETURN
349
ON S GOSUB 131@,1368,18@@,184@
358 GOT0 22a
369 REM
DISPLAY PITCHES MENU
38pl
TI$ = "PITCHES MENU"
39p! GOSUB 256@
4pjJ
PRINT TAB( TB);"$l. RETURN TO MAIN MENU"
41@
PRINT TAB( TB);"l. SELECT PICA PITCH"
42g
PRINT TAB( TB);"2. SELECT ELITE PITCH"
43pI PRINT TAB( TB);"j. SELECT CONDENSED PITCH"
44@
GOSUB 2658
45@
IF S ( pl OR S > 3 THEN PRINT BEEP$;: GOT0
44@
46g
IF S = 0 THEN RETURN
470
ON S GOSUB 830,880,930
480 GOT0 360
499
REM DISPLAY PRINTING MODE
508 TI$ = "PRINTING MODES MENU"
510 GOSUB 2568
530 PRINT TAB( TB);"@. RETURN TO MAIN MENU"
540 PRINT TAB( TB);"l. SELECT EXPANDED MODE"
550 PRINT TAB( TB);"2. CANCEL EXPANDED MODE"
560 PRINT TAB( TB);"J. SELECT EMPHASIZED MODE"
570 PRINT TAB( TB);"4. CANCEL EMPHASIZED 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 PRINT BEEP$;: GOT0 600
620
IF S = 0 THEN RETURN
630
ON S GOSUB 17~~,175~,24!iI~,244P,248!J,252~
640 GOT0 490
650 REM
660
REM DISPLAY MARGIN, TABS AND FORMS
670
TI$ = 'MARGINS, TABS & FORMS MENU"
680 GOSUB 2560
690
PRINT TAB( TB);"@. RETURN TO MAIN MENU"
700 PRINT TAB( TB);"l. SET HORIZONTAL TABS"
710 PRINT TAB( TB);"2. SET VERTICAL TABS"
720 PRINT TAB( TB);"j. SET LEFT MARGIN"
730 PRINT TAB( TB);"4. SET RIGHT MARGIN"
740
PRINT TAB( TB);"5. SET TOP MARGIN"
750 PRINT TAB( TB);"6. SET BOTTOM MARGIN"
760 PRINT TAB( TB);"7. CANCEL TOP & BOTTOM MARGINS"
770 PRINT TAB( TB);"8. SET PAGE LENGTH"