1410 LPRINT

 

 

 

 

 

 

 

 

 

 

1420 LPRINT H$;E$;"wl";E$;"r";CHR$(l);"RED,

'I;

 

 

1430 LPRINT E$;"r";CHR$(2);"BLUE.

 

I';

 

 

 

 

1440 LPRINT E$;"r";CHR$(3);"VIOLET.

";

 

 

 

 

1450 LPRINT E$;"r";CHR$(4);"YELLOW,"

 

 

 

 

1460

LPRINT

 

 

 

 

 

 

 

 

 

 

1470

LPRINT H$;E$;"r";CHR$(5);"ORANGE,

";

 

 

1480

LPRINT E$;"r";CHR$(6);"GREEN,

 

";

 

 

 

 

1490

LPRINT E$;"r";CHR$(O);"and

BLACK."

 

 

 

 

1500

LPRINT E$;"wO"

 

 

 

 

 

 

 

 

 

1510

LPRINT

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

'Set right margin

 

 

1520

LPRINT

C$;"Various line and character spacings:"

 

 

1530

LPRINT

E$;"al"

'Center text

 

 

 

 

1540

FOR I=1 TO 7

 

 

 

 

 

 

 

 

 

1550

LPRINT

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

'Set line spacing

 

 

1560

LPRINT

E$;" ";CHR$(I);

'Increase character space

-

_

1570

LPRINT

E$;"r";CHR$(I-1);

'Select colour

 

 

1580

LPRINT "THE SPACING HAS CHANGED"

 

 

 

 

1590 NEXT I

 

 

 

 

 

 

 

 

 

1600 FOR I-7 TO 1 STEP -1

 

 

 

 

 

 

 

 

1610

LPRINT

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

 

 

 

 

 

 

 

 

1620

LPRINT

E$;" ";CHR$(I);

 

 

 

 

 

 

 

 

1630

LPRINT

E$;"r";CHR$(I-1);

 

 

 

 

 

 

 

1640

LPRINT "THE SPACING HAS CHANGED"

 

 

 

 

1650

NEXT I

'Left justify

 

 

 

 

1660 LPRINT

E$;"aO"

 

 

 

 

1670

LPRINT

E$;"3";CHR$(36);

'Set l/6" line spacing

 

 

1680 LPRINT

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

 

'Normal character space

 

 

1690 LPRINT

:LPRINT

 

 

 

 

 

 

 

 

 

1700

LPRINT

C$;"Other

features:"

 

 

 

 

 

 

1710

LPRINT

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

 

 

1720

LPRINT

E$;"G";"Double-strike";E$;"H";","

 

 

1730

LPRINT

H$;E$;"-l";"Underlining";E$;"-O";", 'I;

 

 

1740 LPRINT

E$;"~1";"Overlining";E$;"~O";","

 

 

1750

LPRINT

H$;E$;"SO";"SUPERSCRIPT";E$;"T";". 'I;

 

 

1760

LPRINT

E$;"S1";"SUBSCRIPT";E$;"T";","

 

 

 

1770

GOSUB

2130

 

 

 

 

 

 

 

 

 

1780

LPRINT

H$;C$;"Download characters: 'I;

 

 

1790

LPRINT

D$;E$;"%l";

Select download

character

-

 

1800

FOR I=1 TO 7

 

 

'Change colour

 

 

1810

LPRINT

E$;"r";CHR$(I-1 1;

 

 

1820

LPRINT

CHR$(60);

 

Print download

character

 

 

1830

NEXT I

 

Select

 

normal

character

 

 

1840

LPRINT

E$;"%O";

 

 

 

 

1850

GOSUB

2230

 

'Select download

character

 

 

1860

LPRINT C$;E$;"%l";

 

 

1870

FOR I-1 TO 7

 

 

'Change colour

 

 

1880

LPRINT

E$;"r";CHR$(I-1);

 

 

1890

LPRINT

CHR$(60);

 

'Print download

character

 

 

1900

NEXT I

 

 

 

 

 

 

 

 

 

42

Page 49
Image 49
Star Micronics lC-10 user manual Lprint the Spacing has Changed