Star Micronics 10X User Manual page 207

I
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
•
Osborne
710 ASD, Y)=BS
720 PRINT FNL$(X,YI;" "
j
730 X=X+I:Y=I:
740 PRINT FNL$(X,Y);";:RETURN
800
FOR
J:l
TO I:DS=DS+S$IJI:NEXT
J:
810
STS=CHRS(27)+SS(0)+CHRSIVAL(DS»:D$:"
820
RETURN
850
ST'=CHR.(Z7)+SSI0)+CHR'IVAL(S'(1)))
860
RETURN
Figure E·2 is the word processing program (refer to Figure 5·4) amended
for the Osborne computer.
:0
LPRINT TAB(30);"HI6H RESOLUTION VERTICAL SPACING"
20 lPRINT TAB(30);'USIN6 THE ESC
3 N
CONTROL CODE"
30
FOR
1=1
TO 30
40
IF
1=13
THEN GOTO
130
50
"=INTI144/(btI»):IF
"(2
THEN "=2
bO LPRINT CHR'(27l;CHR$(SlJ;CHRSIIJ
70
FOR
J=O
TO ,.
90 IF J=IH n:EN
LPRINT
1;"/144
INCH SPACING ";:50TO
100
90
LPRINT TAB(301;
100
FOR
N=1
TO 40:LPRINT CHR'(241);:NEXT N:LPRINT
I .
110 NEXT J
130 NEXT
I
140 lPRINT CHR$(27I,"@"
150 END
Figure E-3 is the vertical spacing program (refer to Figure
6·5)
amended
for the Osborne computer.
199