Star Micronics LC-IOII user manual Download Character

1000

1010

1020

1030

1040

1050

1060

1070

1000

1090

1100

1110

1120

1130

1140

1150

1160

1170

1100

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

~*t*tt*ttttt..********t		DOWNLOAD	CHARACTER	GENERATOR **~*~~~~t~"*~m**t**tt
WIDTH "LPT1:".255 :KEY OFF :CLS
DIM A(126), Pi126.23). Q(126.23). DT(16.24)				:E$-CHR5(27) :R$-CHR$(28)
KEY 1. CHR5(7)	:KEY 2,	CHR$(S)	:KEY 3,	CHR$(91
KEY 4. CHR$(lO)	:KEY 5.	CHRS(ll)	:KEY 6. CHR5(12)
FOR I-33 TO 126	:A(II--1	:NEXT I	------------------------	----------
I_______________________________________

LOCATE 1.1 :PRINT STRING$(25.62):

PRINT w DOWNLOAD CHARACTER GENERATOR ";STRING$(25,60)

I___________-__----_____________________----------------------------------

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

SO$-"Yes" :Sl$-"No"					:S--	1 :PX-4 :PY-1		:GOSUB 3020 :IF S THEN 1320
I_____		Open	existing		file	----------	__-___--------------------------------
LOCATE		4.20
INPUT		"File	nama":FI$
OPEN "R" #l FIJ 48
FIELD		#1:4S'AS		AS			__-_---------------------------------------
I_____ Read 2 initial co*ands
GET	#l,l
IF WIDS(AS,4,1I-ES THEN IBM-0 ELSE IBM--l
IF MIDI (AS.3.1)-"0" THEN NLQ-0 ELSE NLQ--p
IF NLO THEN WI-23 :HI-16 ELSE WI-11 :HI-8
‘------	Read		data	for	1	c-,arac,-er	----_____-----	_---_----------------------

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

GET C1.M :IF LEFTS(A$,ll-CHR$(O) THEN AICCI--1 :GOTO 1310 A(CC)-ASC(MIDS(A5.2.1))

FOR Y-l TO WI P(CC,Y)-ASC(MIDS(A$,Y+2.1)) :NEX-IY IF NLQ-0 THEN 1310

FOR Y-l TO WI QICC.Y)-ASC,MIDS(Af.Y+25.1)) :NEXT Y

NiiT CC.:CLOSE 1

I__--- Select Std./IBM ---------------------------------------------------

LOCATE 6.1 :PRINT "SELECT MODE"
SOS-"Standard	mode	(DIP SW. l-6	ON	I"
Sit-"IBM mode		(DIP SW. l-6	OFF)"
S-IBM :PX-7 :PY-1 :GOSUB 3020 :IBM-S
IF IBM THEN HD$-R$+":"+STRINGS(3,0)				ELSE HDS-ES+":"+~INGS(3.0)
I_____ Select	Draft,NLQ	_______-----		_-------------------------------------

LOCATE 9.1 :PRINT "SELECT QUALITY' SOS-"Draft quality" :Sl$-"Near letter quality" S-NLQ :PX-10 :PY-1 :GOSUB 3020 :NLQ-S

IF NLQ THEN HDS-CHR$(27)+"xl"+HDS :WI-23 :HI-16 :GOTO 1440 HDS-CHRJf271+"xO"+HD$ :WI-11 :HI-S

PLS-STRINGSi24."+") :HYJ-STRING$(24.".-")

CC-33 :CHS-"!"

I-____ Select Continue/Start over ---_____________-_-_--------------------

LOCATE 12.1 :PRINT "CONTINUE?"

SOS-"Continue" :Sl$-"Start ova-"

S-O :PX-13 :PY-1 :GOSUB 3020 :IF S THEN CLS :GOTO 1070

~emmm~ DRAW BOX ________________________________________------------------

CLS :IF NLQ THEN 1540

LOCATE 1.3 :PRINT "1 2 3 4 5 6 7 8 9 0 1 u :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~STR$~N,.1,::GOTO 1590 IF N MOD 2 -1 THEN LOCATE N+2,1 :PRINT RIGHTE(~$((N+1)/2).1): LOCATE N+2,2 :PRINT ":";SPC(24):"I" :NEXT N

LOCATE 19.3 :PRINT "++++++++++++++++++++++++"

I_____ Select ,.haracter -________--___------------------------------------

CHS-CHRS(CCI

LOCATE 1.40 :PRINT "SELECT CHARACTER I":CHS:"l";

IS-INPUTS(l) :IF u "<I$ AND I$<CHR$(127) THEN CHS-IS ELSE GOT0 1660 CC-ASCfCHSl

LOCATE 1.40 :PRINT "SELECTED CHARACTER : ";CHE:" "

I_____ Ascender or desce,,der? ___----------------		_____________________----
SOS-"Ascender" :Sl$-"Descender"
S-(A(W)-01	:PX-3 :PY-40 :GOSUB 3020	:DES-5