Star Micronics Radix User Manual page 150

_i.
136 Radix User's Manual
1470 LPRINT CHR$(27) "B" CHR$(l) "Pica"
1480 LPRINT RAMNML$ STRING$(12,AS)
1490 LPRINT RAMNMLOFF$
1500 LPRINT CHR$(27) '*W" CHR$(l) "Expanded"
1510 LPRINT RAMNML$ STRING$(6,AS)
1520 LPRINT RAMNMLOFF$ CHR$(27) "W" CHR$(@)
1530 LPRINT "Character set (normal width)"
1540 LPRINT RAMNML$;
1550 FOR I=33 TO 126 : LPRINT CHR$(I); : NEXT : LPRINT
1560 FOR I=160 TO 254 : LPRINT CHR$(I); : NEXT : LPRINT
1570 LPRINT RAMNMLOFF$
1580 LPRINT "Proportional"
1590 LPRINT RAMPRO$ STRING$(lS,AS)
-
1600 LPRINT RAMPROOFF$
1610 LPRINT "Character set (proportional)"
1620 LPRINT RAMPRO$;
1630 FOR I=33 TO 126 : LPRINT CHR$(I); : NEXT : LPRINT
1640 FOR I=160 TO 254 : LPRINT CHR$(I); : NEXT : LPRINT
1650 LPRINT RAMPROOFF$
1660 LPRINT : LPRINT : LPRINT
1670 LPRINT "Use this data statement to download this
character."
1680 GOSUB 2050 : LPRINT "DATA 27" ;
1690 FOR I = 2 TO LEN(REC$)
1700 LPRINT "," STR$(ASC(MID$(REC$,I,l))) ;
1710 NEXT I : LPRINT : LPRINT : LPRINT : LPRINT : RETURN
1720 '
1730 'Subroutine to input desired character code.
1740 LOCATE 23,5
1750 INPUT "Enter ASCII code (33-126 OR 160-254) --) *' ;
-
AS
1760 GOSUB 2010
-
-
1770 IF AS ( 33 OR AS > 254 THEN BEEP : GOT0 1740
1780 IF AS ( 160 AND AS > 126 THEN BEEP : GOT0 1740
1810 GOSUB 1820 : RETURN
1820 '
1830 'Subroutine to display header.
1840 LOCATE 1,l : PRINT "ASCII CODE =" AS ;
1850 PRINT "(" CHR$(AS AND &H7F) ;
1860 IF AS ) 127 THEN PRINT " + 128" ;
1870 PRINT ">
II
.
1880 LOCATE 1,3fJ : PRIN; "DESCENDER =" DESC ;