Star Micronics Radix User Manual page 233

TIE-80 Computers
219
1460 LPRINT CHR$(27) r'B" CHR$(3) "Condensed"
1470 LPRINT NN$ STRING$(21,AS)
1480 LPRINT NF$
1490 LPRINT CHR$(27) "B" CHR$(2) "Elite"
1500 LPRINT NN$ sTRING$(15,AS)
1510 LPRINT NF$
1520 LPRINT CHR$(27) "B" CHR$(l) "Pica"
1530 LPRINT NN$ STRING$(12,AS)
1540 LPRINT NF$
1550 LPRINT CHR$(27) "W" CHR$(l) "Expanded"
1560 LPRINT NN$ STRING$(6,AS)
1570 LPRING NF$ CHR$(27) "W" CHR$(@
1573 LPRINT~LPRINT "CHARACTER SET (NORMAL SPACING) "
1574 LPRINT NN$
1575 FOR I=33 TO 126:LPRINT CHR$(I);:NEXT 1:LPRINT
1576 FOR I=160 TO 254:LPRINT CHR$(I);:NEXT
1:LPRINT:LPRINT
1577 LPRINT NF$
1580 LPRINT "Proportional"
1590 LPRINT PN$ STRING$(lS,AS)
1592 LPRINT PF$
1595 LPRINT:LPRINT "CHARACTER SET (PROPORTIONAL
SPACING)":LPRINT PN$;
1596 FOR I=33 TO 126:LPRINT CI-IR$(I);:NEXT 1:LPRINT
1597 FOR I=160 TO 254:LPRINT CHR$(I);:NEXT 1:LPRINT
1600 LPRINT PF$
1610 LPRINT : LPRINT : LPRINT
1620 LPRINT "Use this data statement to download th is
character."
1630 GOSUB 2080 : LPRINT "DATA 27" ;
1640 FOR I = 2 TO LEN(REC$)
1650 LPRINT "," STR$(ASC(MID$(REC$,I,l))) ;
1660 NEXT I : LPRINT : LPRINT : LPRINT : LPRINT : RETURN
1670 '
1680 'Subroutine to input desired character code.
1690 PRINT Bl4~64,"";
1700 INPUT "Enter ASCII code (33-126 OR 160-254) --) " ;
AS
1710 GOSUB 2040
1720 IF AS ) 32 AND AS ( 127 THEN GOT0 1760
1730 IF AS ) 159 AND AS ( 255 THEN GOT0 1760
1740 GOT0 1690
1760 GOSUB 1770 : RETURN
1770 '