Modifications for IBM mode

This program can also be run in IBM mode (DIP switch l-6 OFF) if you change a few of the lines as shown below to allow for difference in some of the commands. You will get a cylinder instead of a barrel effect, becuase the IBM mode does not have any command to micro-adjust the character spacing.

1010

E$=CHR$(27)

:F$=CHR$(BS)

 

 

'Escape

&

FS

codes

 

1090

PI$=CHR$(lS)

 

 

 

'Pica

pitch

 

 

1190

LPRINT

l?$;"4";

 

 

'Select

italics

 

1220

LPRINT

F$;"5"

 

 

 

'Cancel

italics

 

1260

' LPRINT H$;E$;"g";" Semi-condensed

pitch (15 CPI),":

 

1300

' LPRINT

H$;E$;"M":"Condensed

elite

pitch

(20

CPI),";

 

1400

' LPRINT H$;CHR$(2S);"E";CHR$(2);"Triple

 

width,";

 

 

1410

' LPRINT CHR$(2S);"E";CHR$(O)

 

 

 

 

 

 

 

 

1460

LPRINT F$;"Q";CHR$(47)

 

 

'Set

right

margin

 

1500

LPRINT E$;"A":CHR$(I);E$;"2";

 

 

'Line

spacing

set

 

1510

' LPRINT ES;" ";CHR$(I):

 

 

'Increase

character

space

1550

LPRINT E$:"A";CHR$(I):E$:"2":

 

 

'Line

spacing

set

 

1560

' LPRINT ES:" ";CHR$(I);

 

 

'Increase

character

space

1610

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

 

 

'Normal

character

space

1640

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

 

";

1650

' LPRINT E$;"q";CHR$(2):"SHADOWED";E$;"q";CHR$(O);",

";

 

1660

' LPRINT

E$;"q";CHR$(3);"OUTLINED

WITH SHADOWED";

 

 

1670

' LPRINT

E$;"q":CHR$(O);",

"

 

 

 

 

 

 

 

1990

LPRINT E$;"A";CHR$(S);E$;"2";

 

 

'Set

a/60"

line spacing

2150

LPRINT E$:"=":CHR$(O);CHR$(60);CHR$(60);

 

 

 

 

 

 

2280

LPRINT

ES;"=" ;CHR$(O);CHR$(60);CHR$(60):

 

 

 

 

 

-

-

---

-

-

__.

-

-

%

Page 104
Image 104
Star Micronics NX-2415 user manual Modifications for IBM mode, Lprint CHR$2SECHR$O