Star Micronics lC-10 user manual ~-~~~~~~~~~~~~~

1700

a----- Key

expla"atlons

--------------------______________----------------

1710

LOCATE

10.40

:PRINT

"Fl:

Clear

dot"

1720 LOCATE 11.40 :PRINT "F2: Pass over"

1730

LOCATE

12.40

:PRINT

"F3:

Set

dot"

1740

LOCATE

13.40

:PRINT

"F4:

Clear

all

dots"

1750

LOCATE

14.40

:PRINT

"F5:

Skip

character"

1760

LOCATE

15.40

:PRINT

"F6:

End"

1770

LOCATE

16.40

:PRINT

"RET

Record

character"

1780

I----- Get

=haracter ----------------------------------.-------------------

1790

IF A(K)<0

THEN

GOSUB

3220

:GOTO

1950

1800

IF NLQ

THEN

1870

1810

I----- Draft

character

1820

FOR Y-l TO 11 :WT=128 :FOR X-l TO 8

1830 IF fP(CC,Y) AND ml-0 THEN IS50

1840

DT(X,Yl=1

:DT(X,Y+l)=Z

:BX=X

:BY-Y

:CS$="#X#"

:GOSUB

3700

1850 WT=.5*WT :NEXT X.Y :GOTO 1940

1860

I----- NLQ

character

1870 FOR Y-l TO 23 :WT=128 :FOR X-l TO 15 STEP 2

1880 IF fP(CC.Yl AND WI)=0 THEN GOT0 1900

1890

DT(X,Y)=i

:DT(X.Y+1)=2

:BX=X

:BY=Y

:CS$="##"

:GOSUB 3730

1900

IF (Q(CC.Y)

AND

WI)=0

THEN

GOT0

1920

-

1910

DT(X+l.Yl=l

:DT(X+l,Y+11=2

:BX=X+l

:BY=Y :CS$="##" :GOSUB 3730

1920

W-.5%-I :NEXT

X,Y

character

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

1930

I-----

Modify & plot

1940 X-l :Y=l

1950

FOR Z-10 TO

12

:LOCATE

2.38

:PRINT

u o

:NEXT Z

1960 ST-2 :LOCATE 11.38 :PRINT II" :IF NLQ THEN 2180

1970 I----- Draft character

1980

IF DT(X,Y)=2

THEN

CS5=CHR$(2)+"

fl :GOTO

2050

1990

IF DT(X.Y)=0

THEN

2020

2000

IF ST-1 THEN

DT(X.Y)=0

:DT(X,Y+l)-0

:CS5=STRING$(3,11+" u :GOTO 2050

2010

CS$=STRING5(3,2)+"

"

:GOTO 2050

2020

IF ST<3 THEN

CS$=STRING$(Z.l)

:GOTO 2050

2030

IF DT(X,Ytll=1

THEN

CS$=STRING5(2,1)

:GOTO

2050

2040

DT(X.Y)=1

:DT(X.Y+1)=2

:CSB=STRINGBf3.2)+"

M

2050

GOSUB

3680

2060 SS-ST :BX=X :BY=Y :GOSUB 3110 :IF SS-ST THEN 2140

2070

IF ST>3 THEN

2100

2080

FOR Z-10 TO

12

:LOCATE

2.38

:PRINT

" "

:NEXT Z

2090

LOCATE

9tST.38

:PRINT

u" :GOTO

1980

2100

IF ST-4 THEN

GOSUB

3220

:GOTO

1950

2110

IF ST-5 THEN

GOSUB

3220

:GOTO

1520

2120

IF ST-6 THEN

2410

2130

IF ST-7 THEN 3260

2140

IF DT(BX.BY)=2

THEN

CSS="#

u

:GOTO 2170

2150

IF DT(BX.BY)-1

THEN

CSS="###

u

:GOTO 2170

2160

IF DT(BX,BY)=0

AND

DT[BX.BY+l)=O

THEN CS5="

" ELSE

CS$="

"

2170

GOSUB

3700

:GOTO

1980

2180

I----- NLQ

character

2190

IF DT(X,Yl=2

THEN CS$=CHR$(Z)

:GOTO 2260

2200

IF DT(X,Y)=0

THEN

2230

2210

IF ST-1 THEN

DT(X.Y)=0

:DT(X.Y+l)=O

:CS$=STRING5(2,1)

:GOTO

2260

2220

CS$=STRING5(2.21

:GOTO

2260

2230 IF ST<3 THEN CSS-CHR$(l) :GOTO 2260

2240

IF DTIX.Y+ll=1

THEN

CS$=CHRB[ll

:GOTO 2260

2250

DT(X,Yl=1

:DT(X.Y+11=2

:CSB=STRING5(2.21

2260

GOSUB

3720

2270

SS-ST

:BX=X

:BY=Y

:GOSUB 3110

:IF SS-ST

THEN

2360

2280

'

2290

IF ST>3 THEN

2320

2300

FOR Z-10 TO

12

:LOCATE

2.38

:PRINT

u v

:NEXT Z

2310

LOCATE

9+ST,38

:PRINT

IIn :GOTO

2180

2320

IF ST-4 THEN

GOSUB

3220

:GOTO

1950

2330

IF ST-5 THEN

GOSUB

3220

:GOTO

1520

2340 IF ST-6 THEN 2410

2350 IF ST-7 THEN 3260

2360

'

2370

IF DT(BX,BYl=2

THEN

CS$="#"

:GOTO 2400

!2380 IF DT(BX.BYl=1 THEN CS$="##" :GOTO 2400

2390 IF DT(BX,BY+l)-0 THEN CS$=" " ELSE CSS-" "

94