Commodore MPS-803 User's Guide download pdf (Page 29)

-Ft*

■Ft+

■rt*

This

program

shows

all

bit

pattern

printing.

EXAMPLE

2:

100

rem

cHR$<ay

bit

imrge

grrfhic

printing

110

OPEN

4,4

^REM

PRINT

IN

GRRPHIC:

MODE

:l

20

BS*=CHP£

<

S

-■

-■

BE#=CHR*

<

15

>

130

=

140

R£=""

159

FOR

1-8

TO

127

1

60

R£=R£+CHR3K

1+127

■

7.7O

NEXT

I

.tea

b$=iim

!?0

FDR

J=127

TO

O

STEP-1

200

B*=B$+CHR*<J+1275

216

NEXT

J

230 FOR

K-l

TQ

3

24$

PRIHTtt4..

fcS^'RJT.:

DE*

:

"

HLL

E17"

PATTERN

A"

250

NEXT

K

260

PRINT#4

270

FOR

K=i

TO

3

28©

PS:lNTtt4,

BS*J

B*J

DE*.:

"

PILL

BIT

PRTTERH

2"

290

NEXT

K

30O

■

310

FOP

N=I TO

S^PRrHT#4^NEXT

M

320

CL0SE4

After

typing

RUN,

you

get

the

result

below.

HL..L

BIT

PATTERN

1.

flU.

BIT

PRTTERN

J

■^M^-ja

-^■-^■-^^■-^ir^g.^fiti

HLL

BIT

PPTTERM

t

Ri

J.

BIT

Pf^

'

F

L:

^'kl

~

EXAMPLE

2:

100

REM

Sfl=0...PRINTING

IN

GftRPHTC

MODE

110

OPEN

4,4

=REM

OPEN

4,4,O

I

30

R*-"l?1234567S9RBCDEF11

i

40

PRIHT#4,SP*;SP$;

15G

FOR

X-0

TO i?

160

PR

I

HT#4,

I1!

I

Of

<

R$,

I

+1

.

1

>

.;

SP*.;

170

NEXT

I

180

PR1I-JT#4

200 FOR

J=©

TO

15

218

PRINT#4JMID#<:fl*J

J+l

,

1

:■

:

SP*.:

220

PR

I

NT#4

,

SF*;

SP*.:

SF*

;

SP*.:

230

PR

I

NTtt4

*

OHR*

■'

J+32

>

.:

SP*

i

CHR*<

J+4S

>

.:

SI

240

PRINT4*4,

CHR*CJ+64>;

SP*i

OHR*CJT+Se>;SI

250

PR

I

NT#

4,

CHR*

■:!

J+^g

>

.:

SP*.:

CHR*

■■

J+

3

12

>

;

r

2fc"9

PR

I

MT#4,

SP*.:

SPS

j

SP*;

SP*

:

270

PR

I

NT#

4,

CHR*'-.

J+160.-';

SP*

:

CKR$

<

J+1

76

)

280

PRINT#4,CHR*

<J+i

92

>:SP*,CHR*<J+20S>

290

PRINTS

■CHR*CJF+224>;SP*;CHR*<J+248>

318

FOR

K~i

TO

3

■

PRINT*t1

■

ilE^T

K

329

CL0SE4

RUN

i;

1

:

- ■

■

■

4

6

7

:■:

;"■

M

e

■

r"

1

#

s

•■■

*

+

1

0

■1

-i.

3

€

-•

■--

9

■

.,■■

=

-,

■-.■

4

@

■--:

B

C

D

E

F

hi

T

J

K

i

M

N

5

P

1.1

P

g

T

IJ

i

w

■:.:;

1

1

T

c

r

3

1

,_

—

#

1

—

—

—

—

1

!

-.,

j..

-■

L

r

n

•

_

V

\

,■

:-■

.

1

Lr

f

♦

1

-

S 9

R

E:

C D

E

F

1

M

—

_

1

:'

1

.■-'

1

J.

T

H

1

—

—

1

—

—

—

—

■

1

._

—

■,'■

!

/■

x

1

m

—

!

£$

J

r

-X

~r

H

I

I

I

—

...

L

§

F

I.

I

'^

r

:\;

1 2 ... 24 25 26 27 28 29 30 31 32

Comments to this Manuals

No comments