1LPRINT :LPRINT

1360

LPRINT

E$; ’’Q’’;CHR$(47)

‘Set right margin

 

1370

LPRINT TM$: ‘Various line and character spacings:”

 

 

1380

LPRINT

E$; ’’al”

‘Center text

 

 

1390

FOR 1=1 TO 7

‘Line spacing

set

 

1400

LPRINT

E$; ’’A’’:CHR$(I);

 

1410

LPRINT

E$;” ‘;CHR$(I);

‘Increase character

space

1420

LPRINT “THE SPACINGS ARE CHANGEDM

 

 

1430

NEXT I

 

 

 

 

1440

FOR 1=7 TO 1 STEP -1

‘Line spacing

set

 

1450

LPRINT

E$; ’’A’’;CHR$(I) ;

 

1460

LPRINT

E$;” ‘;CHR$(I);

‘Increase character

space

1470

LPRINT “THE SPACINGS ARE CHANGED”

 

 

1480

NEXT I

 

‘Left justify

 

 

1490

LPRINT

E$; ’’aO”

 

 

1500

LPRINT

E$; ”3’’;CHR$(30);

‘Set l/6m line

spacing

1510

LPRINT

E$;” ‘;CHR$(0);

‘Normal character space

1520

LPRINT

:LPRINT

 

 

 

1530

LPRINT

TM$;’’Other features:”

 

 

1540

LPRINT H$;E$; VX’’;CHR$(0);

 

 

 

1550

LPRINT

“Economy printing,

‘;

 

 

1560

LPRINT E$; ’’x’’;CHR$(1);

 

 

 

1570

LPRINT

“and High Quality. “

 

 

 

1580

LPRINT

H$;E$; ”q’’;CHR$(l);’’OUTLINED”;E$;’’q’’;CHR$(0) ;”, ‘:

1LPRINT E$; ”q’’;CHR$(2);”SHADOWEDu ;E$;’’q’’;CHR$(0) ;”, “;

1600 LPRINT E$; ”q’’;CHR$(3);“OUTLINED WITH SHADOWED”:

1610 LPRINT E$; ”q’’;CHR$(0);”, M

1620 LPRINT H$;E$; ”E’’;’’Emphasized”:E$;”F’’;”, “; 1630 LPRINT E$; ’’G’’Doublebstrike”ke”;E$;’’H’’;”,“;

1640 LPRINT E$; ’’4’’Italicsi;E$’;E:“5’’:”,$ “

1650 LPRINT H$;E$; N-l” ;’’UnderliningM;E$;’’-:”,:”,‘;

1660 LPRINT E$;”- “;CHR$(3);CHR$(0); CHR$( 1):CHR$(2);CHR$(2) :

1670 LPRINT “Strike–through” ;

1680 LPRINT E$;ti(-’’:CHR$(3):CHR$(O) :CHR$(l) ;CHR$(2);CHR$ (0):”, “; 1690 LPRINT E$;N (-”;CHR$(3);CHR$(0) ;CHR$(1):CHR$(3) ;CHR$(l); 1700 LPRINT “Overlining”;

1710 LPRINT E$;N (-’’;CHR$(3) ;CHR$(O);CHR$ (1);CHR$(3) :CHR$(0) ;”, “

1LPRINT H$;E$; ”SO’’;’’SUPERSCRIPT”;E$;’’T”;”and “;

1730 LPRINT E$; ’’S1” “SUBSCRIPT”;E$;”T” ;“, “ 1740 LPRINT H$;TM$; ’Download characters: “; 1750 GOSUB 2520

1760

LPRINT

E$;”%l”

‘Select download

character

1770

FOR

1=1 TO 5

‘Print download

 

character

1780

LPRINT

CHR$(60

 

1790

NEXT

I

 

‘Select normal

character

1800

LPRINT

E$; ’’%O”

1810

GOSUB 2640

‘Select download

character

1820

LPRINT

E$; ’’%l”;

1830

FOR

1=1 TO 5

‘Print download

 

character

1840

LPRINT

CHR$(60);

 

1850

NEXT

I

 

‘Select normal

character

1860

LPRINT

E$; ’’%O”

1870

LPRINT H$;TM$; ’’Dotgraphics:”

 

 

 

 

1Q80

RESTORE

3290

‘Set 8/60”

line

 

spacing

1890

LPRINT

E$; ’’A’’:CHR$(8);

 

1900

FOR

1=1 TO 3

 

 

 

 

1910

LPRINT E$; ’’fO’’;CHR$(8)

 

 

 

 

1920

LPRINT

E$; ’’*”;CHR$(33); CHR$(240) ;CHR$(0);

 

 

 

1930

FOR

J=l

TO 240’3

 

 

 

 

1940

READ

DAT

 

 

 

 

1950

LPRINT

CHR$(DAT);

 

 

 

 

1960

NEXT

J

 

 

 

 

 

1970

LPRINT

 

 

 

 

 

1980

NEXT

I

 

‘Initialize

printer

1990

LPRINT

E$;”@”

80

Page 86
Image 86
Star Micronics SJ-48 manual Lprint Lprint