Sharp CE-140P User Manual download pdf (Page 28)

32,65,66,67,08,69,70,71,72,73,74,75,76,77,78,79,80

EXTERNER

DRUCKER

CDOPPELANSCHLAG)

x

320

GRAPHI K

Unt.erprogr

...

}

n-H

LIST

10000

REM******************************

10010

REM*** > H A R

DCa

P Y <

***

10020

REM*** >

SHARP

MZ

731

<

***

10030

REM*** ) QUIK

DISK,CASS.

<

***

'

10040

REM*** >

u.

.xt.

Druck.r

<

***

10050

REM***

W.

Zitt.rich

***

10060

REM*** An

d.r

BAk.

22

***

10070

REM***

2907

a~.nkn.t.n

3

...

10080

REM***""******iI:***"****""'***

10090

01,.. V

(25S)

10100

FOR

1-0

TO

2~~

10110

READ

·V

<I)

10120

NEXT

I

10130

RESTORE

10140

REM

***

HARD

COPY

DATA

ZElLEN

***

10150

DATA

10160

DATA

81,82,83,B4,es,86,87,88,89,90,2S1,2OS,221,203

10170

DATA

209,48,49,50,51,S2,53,S4,55,56,S7,4~

10180

DATA

61,59,47,46,44,229,244,236,218,227,226,21~,2i2

~0190

DATA

230,232,194,193,196,199,207,202,128,22S,2S4

"10200

DATA

200,250,95,248,241,247,63,204

10210

DATA

219,220,233,245,SS,94,60,91,243,93,64,201,62,2S2

10220

DATA

92,198,223,208,206,211,210,2S5,33,34,35,36,37

10230

DATA

38,39,40,41,43,42,222,246,23S,234

10240

DATA

195,197,239,240,228,231,238,237,224,253,216,213

10250

DATA

242,249,217,214,192,161,154,IS9,156,146,170

10260

DATA

151,152,166,175,169,184,179,176,183

10270

DATA

158,160,157,164,150,165,171,163,155,189,162,187

10280

DATA

153,130,135,140,188,167,172,145,147,148,149

10290

DATA

180,181,182,174,173,186,178

10300

DATA

185,168,177,131,

136,

~41"

134, 132,

-

137,142,191,133

10310

DATA

138,143,190,129,139,144,127,2S2,94,198,95,72

10320

DATA

67,96,97,98,99,100,101,102,103,104,112

10330

DATA

113,114,115,116,117,118,119,120,121,122,123,124

10340

DATA

125,126,105,230,232,218,227,35,35,35,106,107

10350

DATA

108,109,62,110,111,2S3,112,128,221,2OS,216,206

10360

DATA

213,222,201,208,223,193,254,194,233,245,200

10370

I

10380

BA-$DOOO

10390

I

10400

Z-24IREM

ZElLENANZAHL

AUSDRUCK

10410

I

10420

ZZ-OIREM ZEICHENANZAHL

PRO

ZEILE

10430

I

10440

PRINT

IP

CHR$

(27)

•

liS"

I

REM

10450

FOR

1-0

TO

404Z-1

10460

J-PEEK

(BA+

1>

10470

PRINT/P

TAB(5),CHR$(V(J»

••

ZZ-ZZ+IIIF

10480

NEXrI

10490

END

10500

PRINT/PIZZ-o.RETURN

Rlf&d\l

1

REM

HARDCOPYPROGRAr1l1

FUER

MZ

-80111

200

2

REM

Druckt.

eine

Bil'dschir.seit.e

auf

EPSON

RX-88

3

REM

Das

Program.

kann

ent.weder

815

4 REI1

in

ein

Sraphikprogr

...

aufgenom.en

werden

5 REI1

oder

mit.

CHAIN

nachg.laden

werden.

6

REtt

7 REI1

..

UN.

KlelMl

8 REt1

• KoWtig5NeC)

19

9

REM

@

4400

Muenst.er

II!JtiM!18

0=320

1011!J10

INIT-LPT:Me,S2-

lli!J020

PRINT/P

CHR$(27

,

);

IOl-;CHR$(20)

;CHR$(27)

J

103-;CHR$(4),

11i!J030

NI-D-INT(D/256).256

lli!J840

N2-INT

(D/~)

laesa

DIM

B(S)

10060

FOR

Z=Ii!J

TO

199

STEP

5

10070

PRINT/P

CHR$(27);".-;CHR$(4);

100BIi!J

PRINT/P

CHR$(Nl);CHR$(N2);

l1i!J090

FOR

S=Ii!J

'

TO

D

-1

10100

FOR

1=0

TO

4

10110

BU)-SGN(POINT

(5,Z+1»

10120

NEXT

I

10130

BV=B(0)*32+B(1).16+B(2)*8+B(3)*4+B(4>*2+8(5)

10140

PRINT/P

CHR$(BV);

10150

tEXT

S

10160

PRINT/P

1017111

NEXT

Z

Mit

freundlicher

Genehmigung

vom:

1111188

PRINT/P

10190

END

MZ-700/S00

ANWENDERCLUB,

clo

Germar

Nikol,

Sandkaulbach

1,

5100

Aachen

PM"

.'

SHARP

;-

Computer

H€f

t

16

'

Sei

te

28

1 2 ... 23 24 25 26 27 28 29 30 31 32 33 ... 59 60

Comments to this Manuals

No comments