1560

LPRINT ES;" ";CHR$(I); 'Increase character space

1570

LPRINT "THE SPACINGS ARE CHANGED"

 

 

1580

NEXT I

'Left justify

 

 

1590

LPRINT E$;"aO"

 

 

1600

LPRINT E$;"3";CHR$(30); 'Set l/6" line spacing

1610

LPRINT ES:" ";CHR$(O);

'Normal character space

1620

LPRINT :LPRINT

 

 

 

 

1630

LPRINT C$;"Other features:"

 

 

1640

LPRINT H$;E$;"q":CHR$(l);'OUTLINED";", ";E$;"q";CHR$(O);

1650

LPRINT E$;"q";CHR$(z);"SHADOWED";", ";E$;"q";CHR$(O);

1660

LPRINT E$;"q";CHR$(3);'0UTLINED WITH SHADOWED";", ";

1670

LPRINT E$;"q";CHR$(O)

 

 

 

1680

LPRINT H$;ES;"E";"Emphasized";E$;"F";", 'I;

1690

LPRINT ES'"G",.,"Double-strike";E$:~'H":", 'I

1700

LPRINT H~:E$;;'-l";"Underl~nin~ll~~$;"-O;l;",'1;

1710

LPRINT ES;" l";"Overlin~ng";E$;" O";", "

1720

LPRINT H$:E~;"SO"~"SUPERSCRIPT";E$;"T";", ";

1730

LPRINT E$;“Sl”;“S;BSCRIPT”;E$;“T”;“:, M

1740

LPRINT HS:CS:"Download characters:

;

 

1750

GOSUB 25i0 .-

 

 

 

 

1760

LPRINT E$;"SO";

 

'Select superscript

1770

LPRINT E$;"%l";

 

'Select download character

1780

FOR I=1 TO 5

 

'Print download character

1790

LPRINT CHR$(BO);

 

1800

NEXT I

 

 

 

 

1810

LPRINT E$."%O";

 

'Select normal character

1820

LPRINT E&T";

 

'Cancel superscript

1630

GOSUB 2650

 

'Select download

character

1840

LPRINT E$;"%l";

 

1850

FOR I=1 TO 5

 

'Print download

character

1860

LPRINT CHR$(60);

 

1870

NEXT I

 

'Select normal character

18901680

LPRINTGOSUB2520E$*"%O"'

 

 

 

 

 

1900

LPRINT E$;"Sl";

 

'Select subscript

1910

LPRINT E$*"%l";

 

'Select download character

1920

FOR I=1 T;)5

 

 

 

 

1930

LPRINT CHR$(60) ;

 

'Print download

character

1940

NEXT I

 

'Select normal character

1950

LPRINT E$;"%O"*,

 

1960

LPRINT E$*"T",

 

'Cancel subscript

1970

LPRINT H$;C$;"Dot graphics:";CHR$(13);

 

1980

DIH LOGO$(4)

 

 

 

 

1990

RESTORE 3230

 

 

 

 

2000 FOR ROW=1 TO 4

 

 

 

 

2010

FOR COL=l TO 100

 

 

 

 

2020

READ GD

 

 

 

 

2030

LOGO$(ROW)=LOGO$(ROW)+CHR$(GD)

 

 

2040

NEXT COL

 

 

 

 

2050

NEXT ROW

 

 

 

 

2060

LPRINT E$;"A";CHR$(B);

'Set e/60"

line spacing

2070

FOR ROW=1 TO 4

 

 

 

 

2080

LPRINT E$;"fO";CHR$(17);

 

 

2090

LPRINT E$;"*";CHR$(O);

'Select normal density

2100

LPRINT CHR$(lOO);CHR$(O);

 

 

2110

LPRINT LOGO$(ROW)

 

 

 

 

40

Page 48
Image 48
Star Micronics NX-2400 user manual Lprint the Spacings are Changed