Star Micronics Radix User Manual page 244

230
Radix User's Manual
2460 S$ = ESC$ + "F" : GOSUB 2730
2470 RETURN
2480 '
2490 'Subroutine to select DOUBLE-STRIKE printing.
2500 S$ = ESC$ + "G" : GOSUB 2730
2510 RETURN
2520 '
2530 'Subroutine to cancel DOUBLE-STRIKE printing.
2540 S$ = ESC$ + "H" : GOSUB 2730
2550 RETURN
2560 '
2570 'Subroutine to print a menu title.
2580 CLS
2600 PRINT TAB(18) "--- RADIX PRINTER SETUP ---"
2610 PRINT
2620 PRINT TAB((64-LEN(TITLE$))/2) TITLE$
2630 PRINT
2640 RETURN
2650 '
2660 'Subroutine to input menu selection.
2670 PRINT @960+TB,"Enter selection. or hit P for a
print out";
2680 C$ = INKEY$ : IF C$ = "" THEN 2680
2685 IF C$="P" OR C$="p" THEN GOSUB 3000:GOTO 2660
2690 IF C$ ( "0" OR C$ ) "9" THEN GOT0 2680
2700 S = VAL(C$)
2710 PRINT @960,STRING$(63,' ");
2720 RETURN
2730 '
2740 'Subroutine to output command string.
2750 LPRINT S$ ;
2760 RETURN
2770 '
2780 'Subroutine to clear screen & position cursor.
2790 CLS : PRINT @320+TB, "" ; : RETURN
3000 FOR 1=1 TO 41~0~ 5=32 To ~~~:LPRINT CHR$(J);:NEXT J
3010 FOR J=l60 TO 254:LPRINT CHR$(J);: NEXT J
3015 LPRINT
3020 NEXT I:RETURN