Star Micronics LC-IOII user manual Output to Diskette

2400

GOSUB

3730

:GOTO 2180

2410 ~---__ Wrap-up -----------------------------------------------------------

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

2430

S--l :PX=2 :PY=I :SOS="Yes" :S15="No" :GOSUB 3020

2440 IF S THEN 2530

2450 LOCATE 5.10 :PRINT "Output file nnme [":FI5:"1 ":

2460

INPUT

F05

2470 IF FOS-"" AND Fib-"" THEN 2450

2480 IF FOS-"" THEN FO$=FIO

2490

OPEN

"R".#l.FO3.4s

2500

FIELD

W1.48

AS

A5

2510

JSET AS=HD$+STRING5(48-LEN(HDOJ.0)

:PUT t1.1.

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=s :PY=I :SO$="Yes" :S15="No" :GOSUB 3020

2560 IF S THEN END

2570

~&ATE

11.1

:PRINT

~~PRINI CHARACTER

sEr?a'

2580

S-O :PX=12 :PY=l :SOS="Yes" :Slt="No" :GOSUB 3020

2590

IF

S THEN

END

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

2610

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

:GOSUB

3020

:PB=S

2620 GOSUB 3500 :LPRINI' E5;"3":CHR$(SOJ;

2630 FOR CC-33 TO 126 :LPRINT CHRS(CCJ :" "::NEXT CC

2640

LPRINT

STRING$(lO.lOJ

:PRINT STRING5(5.10)

:END

3000

c

3010

a===-- S,,BRO~INES

==----------===----I=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

3020 a-----

selector

ro"tl"e---------------------------------------------------

3030

LOCATE

PX,PY

:PRINT

u

";SOO

3040

LOCATE

PX+l,PY

:PRINT

u

'I:SlS

3050 IF NOT

S THEN 3060 ELSE 3070

3060 LOCATE

PX,PY

:PRINT

"==>"

:LOCATE PX+l,PY

:PRINT

m

u

:LOCATE

PX,PY

3070

IF

S THEN 3080 ELSE 3090

3080 LOCATE PX.PY

:PRINT

"

u

:LOCATE

PX+l.PY

:PRIN'I "==>"

:LOCATE

PX,PY

3090 I$=INPUT5~1)

:IF II<>CHRS(13) THEN

S-NOT

S

:GOTO 3050

3100 RBTURN

Input

,eheck __----_---------------------------------~----~~-~~-~~~~

3110

I----_

3120

I$=INPUTS(lJ :SK=ASC(I5) :FK=VAL(IOJ

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 al1 dots ~__----___----__---~____________________--~-~~--~~~~

3230

FOR

N-l

TO

16

:LOCATE N+2.3

:PRINT SPC(24J

:NEXT N

3240

FOR

X-l

TO

HI

:FOR Y-l TO

WI

:DT(X.YJ=O

:NEXT Y,X

3250

ST-2 :X-l :Y=l

:REl-URN

3260

a---Fe

Store

chnra,-ter data

____-_____-_____________________________------

3270

FL-O

3280

IF DES THEN A(CCJ=0 ELSE A(CCJ=128

3290

IF NLQ

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

3300

FOR Y-l TO WI :WI=128 :P(CC.YJ=O :Q(CC,YJ=O

3310

FOR X-l TO ZA STEP ZB

3320

IF NLQ

THEN

Q(CC,YJ=QlCC,YJ+WT'(DT(X+1,YJ

AND

1)

3330

P(CC,YJ=P(CC.YJ+h'T'(DT(X.YJ

AND

1)

3340

WT=.5*WT

3350

NEXT

X

3360

FL=FL+P(CC,YJ+QICC,YJ

3370

NEXT

Y

3380 IF FL-O THEN A(CCJ=-1

3390

BEEP

3400

CC-CC+1

:IF CC-127 THEN CC-33

3410 GOSUB 3220 :GOTO 1510

________________________________________--------

3420 *-----

Output to

Diskette

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

3440

IF A(CCJ=-1

THEN B$=STRING$(4s.OJ

:GOTO 3480

ELSE

BS=CHRS(lJ+CHRb(A(CCJJ

97