Star Micronics lC-10 user manual If S then END Locate 11.1 Print Print Character SET?

2400 GOSUB 3730 :GOTO 2180

2410 I----_ wrapmup ___________------------------------------------------------

2420 CLS :LOCATE 1.1 :PRINT "SAVE TO FILE?"

2430 S--l :PX=2 :PY=l :SO$-flYes" :Sl$-"No- :GOSUB 3020

2440 IF S THEN 2530

2450 LOCATE 5.10 :PRINT "Output file name [";FI$;"l II:

2460 INPUT FO$

2470 IF FO$-"" AND FI$--" THEN 2450 2480 IF FOS-O" THEN FOB-F15

2490 OPEN "R".#l.F05.48

2500 FIELD X1.48 AS A5

2510 LSET A$-HD$+STRING5(48-LEN(HD51.0) :PUT #l.l 2520 GOSUB 3420 :CLOSE 1

2530

2540 LOCATE 7.1 :PRINT "DOWNLOAD TO PRINTER? (DIP SWITCH 2-l MUST BE OFF)"

2550 S-O :PX-8 :PY=l :SO$-"Yes" :S1$-"No" :GOSUB 3020

2560 IF S THEN END

2570 LOCATE 11.1 :PRINT "PRINT CHARACTER SET?"

2580

S-O :PX-12 :PY-1 :SO$-"Yes" :Sl$-"No" :GOSUB 3020

2590 IF S THEN END

2600 LOCATE 15.1 :PRINT "WHICH MONITOR ARE YOU USING?"

2610

S-O :Sl$="COLOR" :SO5="MONOCRO" :PX=16 :PY=l

:GOSUB

3020 :PB=S

2620 GOSUB 3500 :LPRINT E5;"3":CHR5(50):

2630 FOR CC-33 TO 126 :LPRINT CHR$(CC);" ";:NEXT CC

2640

LPRINT

STRING$(lO.lO)

:PRINT

STRINGI(5.10)

:END

3000

*--=--

SUBROUTINES

======-=

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

3010

3020

I-----

selector

routine---------------------------------------------------

3030

LOCATE

PX.PY

:PRINT s

";SOS

3040

LOCATE

PX+l.PY :PRINT

v

";SlS

3050

IF NOT

S THEN 3060 ELSE 3070

3060

LOCATE

PX,PY

:PRINT "-=>" :LOCATE PX+l,PY

:PRINT

u

m

:LOCATE

PX.PY

3070

IF

S THEN 3080 ELSE 3090

3080

LOCATE

PX,PY

:PRINT u

v

:LOCATE PX+l,PY

:PRINT

"--

>"

:LOCATE

PX.PY

3090

15=INPUT$(l)

:IF I$<>CHR$(13)

THEN S-NOT S

:GOTO 3050

3100

RETURN

3110

I_____

Input Check ------

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

3120

I$=INPUT5(1) :SK-ASC(I5) :FK-VAL(I5)

3130

IF SK>6

AND SK<14 THEN

ST-SK-6

:GOTO 3210

3140

IF FK-0 OR FK-5 THEN 3120

3150

IF FK MOD 3 - 0 THEN Y-Y+1

3160

IF FK MOD 3 - 1 THEN Y-Y-1

3170

IF FK >6 THEN X-X-1

3180

IF FK (4 THEN X-X+1

3190

IF Y>WI THEN Y-WI ELSE IF Y<l THEN Y-l

3200

IF X>HI THEN X-HI ELSE IF X<l THEN X-l

3210

RETURN

3220

I--

___

clear *ll dots ---________-----------------------------------------

3230

FOR

N-l

TO 16

:LOCATE Nt2.3

:PRINT SPC(24)

:NEXT N

3240 FOR X-l TO HI :FOR Y-1 TO WI :DT(X.Y)=O :NEXT Y.X

3250

ST-2 :X-l :Y-1 :RETURN

3260

I__---

store

character

data

_____-----------------------------------------

3270

FL-O

3280 IF DES THEN A(CC)=0 ELSE A(CC)=128

3290

IF

NLQ

THEN ZA-15 :ZB=2 ELSE ZA-8 :ZB-1

3300

FOR Y-l TO WI

:WT=128 :P(CC.Y)-0 :R(CC.Y)=O

3310

FOR X-l TO ZA STEP ZB

3320

IF NLQ THEN

Q(CC,Y,=R~CC,Y,+WI*(DT(X+l.Y)

AND

1)

3330

P(CC,Y)-P(CC,Y)+WT'(DT(X,Y)

AND 1)

3340

wr=.5*wI

3350

NEXT

X

3360

FL-FL+P(CC.Y)+R(CC.Y)

3370

NEXT Y

3380 IF FL-O THEN A(CC)=-1

3390

BEEP

3400

CC-CC+1

:IF CC-127 THEN CC-33

3410 GOSUB 3220 :GOTO 1510

3420 I-----

Output

to

Diskette

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

3440

IF A(CC)=-1 THEN

B$=STRING5(48,0) :GOTO 3480

ELSE

BB-CHRS(l)+CHRS(A(CC))

95