Star Micronics lC-10 user manual For I-33 to

1000

1010

1020

1030

1040

1050

1060

1070

1080

1090

1100

1110

1120

1130

1140

1150

1160

1170

1180

1190

1200

1210

1220

1230

1240

1250

1260

1270

1280

1290

1300

1310

1320

1330

1340

1350

1360

1370

1380

1390

1400

1410

1420

1430

1440

1450

1460

1470

1480

1490

1500

1510

1520

1530

1540

1550

1560

1570

1580

1590

1600

1610

1620

1630

1640

1650

1660

1670

1680

1690

~**tt**.*t.******tt*frt

DOWNLOAD CHARACTER GENERATOR *.'t*****w*********t*

WIDTH "LPT1:",255 :KEY OFF :CLS

DIM

A(126).

P(126.23). Q(126.23). DT(16.24) :EO=CHRS(271 :RS=CHRS(ZE)

KEY 1, CHR$(7)

:KEY 2, CHR$(8)

:KEY 3, CHR$(9)

KEY 4. CHR$(lO)

:KEY 5,

CHRO(11)

:KEY 6. CHR$(12)

FOR I-33 TO

126

:A(I)--

1

:NEXT I

LOCATE 1.1 :PRINT STRING$(25,621;

PRINT o DOWNLOAD CHARACTER GENERATOR ":STRING$(25.60)

LOCATE 3.1 :PRINT "READ CHARACTERS FROM EXISTING FILE?"

SO$="Yes" :Sl$="No"

:S=-1 :PX=4 :PY=l

:GOSUB

3020

:IF S THEN 1320

I_____ oDen

ex.stino file

________---

_____________________________--------

LOCATE

4120

INPUT

"File

name";FI$

OPEN "R" #l FIB 48

FIELD

#1:48'AS

A$

I-____ Read 2 initial coma"&

-------------------------------------------

GET

#l,l

IF MID$(A$,4,1)=E$ THEN IBM-O ELSE IBM--l

IF MID$(A$,3,1)-"0"

THEN NLQ-0 ELSE NLQ=-1

IF NLQ THEN WI-23 :HI=16 ELSE WI-11 :HI=8

‘L-.LRea*

data

for

1

character

_---------------

___----------------------

FOR CC-33 TO 126 :M=CC-31

GET

X1.M

:IF LEFT$(A$,lI=CHR$(O)

THEN

A(CC)=-1

:GOTO

1310

A(CC)=ASC(MID$(A$.2.1))

FOR Y-l TO WI

P(CC,Y)=ASC(MID$(A$,Y+2.1))

:NEXT Y

IF NLQ-0 THEN 1310

FOR Y-l TO WI

Q(CC,Y)=ASC(MID$(A$.Y+25.1))

:NEXT Y

NEXT

CC

:CLOSE

1

------

__________________________

I_____ Select Std./IBM ____-_-_

LOCATE 6.1 :PRINT "SELECT MODE"

SO$="Standard

mode

(DIP SW. l-6 ON )"

Sl$="IBM

mode

(DIP SW. l-6 OFF)"

S-IBM :PX=7 :PY=l :GOSUB 3020 :IBM=S

IF IBM THEN HD$=R$+":"+STRING5(3.0) ELSE HDS=ES+":"+STRINGS(3.0)

I____- Select Draft,NLQ

--------------

_-----------------------------------

LOCATE 9.1 :PRINT "SELECT QUALITY"

SO$="Draft quality" :Sl$="Near letter quality"

S-NLQ :PX=lO :PY=l :GOSlJB 3020 :NLQ=S

IF NLQ

THEN

HD$=CHR$(27)+"xl"+HD$

:WI=23

:HI=16 :GOTO

1440

HDB=CHR$(27~+"xO"+HD$ :WI=ll

:HI=8

PL$=STRING$(24."+") :HY5=STRING$(24."-")

CC-33 :CH$="!"

continue/start

O"er

-_---

_____________-_-----------------

*--

I-----

Select

LOCATE

12.1

:PRINT

"CONTINUE?"

SO$="Continue"

:Sl$="Start over"

S-O

:PX=13

:PY=l

:GOSUB 3020

:IF S THEN CLS

:GOTO

1070

I=====

DRAW

BOX

=================-========================================

CLS :IF NLQ THEN 1540

LOCATE

1.3

:PRINT "1 2 3 4 5 6 7

8

9

0 1

"

:GOTO

1550

LOCATE

1.3

:PRINT

"123456789012345678901234"

LOCATE

2.3

:PRINT

"++++++++++++++++++++++++"

FOR N-l TO 16

IF NLQ THEN LOCATE N+2,1 :PRINT RIGHTS(STREfN).1)::GOTO 1590

IF N MOD

2

-1 THEN

LOCATE

N+2,1

:PRINT RIGKTS(~S((N+1,/2,.1,:

LOCATE N+2,2 :PRINT "I";SPC(24):":" :NEXT N

LOCATE

19.3

:PRINT

"++++++++++++++++++++++++"

I____- Select =haracter _--------

~~-------

~--------

~~~~~-------------

~--~-

CH$=CHRS(CC)

LOCATE

1.40 :PRINT

"SELECT CHARACTER

l":CHS:"l";

I$=INPUT$(l) :IF

u

"<I$ AND I$<CHR$l1271

THEN

CHS-IS

ELSE GOT0

1660

CC-ASCfCHO)

LOCATE 1.40 :PRINT "SELECTED CHARACTER : ";CH$;" "

I_____ Ascender

or

descender?

____-_-------------

_____________________-~~-

SO$="Ascender" :Sl$="Descender"

S=(A(CC)=O)

:PX=3 :PY=40 :GOSUB 3020 :DES=S

93