EasyManua.ls Logo

Commodore MPS 1200 - Page 130

Commodore MPS 1200
250 pages
Print Icon
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
()ot
Value
-+-+-+-+-I--+-f-.+-
f-+-
-+-.+-1--+
___
-+-+_I--+-+~+.~-+--+_
64
32
16
8
4
--~.~~-+-+-4-+-~-+~+-~~~~+-~-+~~-+-~-
2
42
42
42
42
42
85
85
85
85
85
85
85
85 85
85
85
85
85 85
85
-+--i-
-r-
.~4-+-~~~+-~-+~~+-~-+~4-+-~
64
--4-+-~-+~+-~~~~+-~-+~4-+-~-+~+-~~-
32
__
~_+-~-+_+-+-~~~~+-~-+~-+-+-~-+~+-~~_
16
--4-+-~-+~+-~~~~+-~-+~4-+-~-+~+-~~-
8
--4-+-~-+~+-~~~~+-~-+~4-+-~-+~+-~~-
4
--4-+-~-+~+-~~-t-~+-~-+~4-+-~-+-r~~~-
2
--4-+-~-+~+-~~~~+-~-+~4-+-I--+-+~~+-~-
42 42 42 42
42
42 42 42
42
42
42
42 42 42 42
42
42
42 42
42
Figure
6-4.
Designing
a
graphic
figure.
You
then
print
your
defined shape using a
program
with
the pin
number
codes placed in data statements.
The
program
reads the
codes, usually accumulating
them
in a string variable, and prints
the shape exactly
as
you
defined it.
The
following
program
prints
the design
shown
in Figure 6-3 and demonstrates the technique.
10
open
1,4,7
20
print#l,
cht~$
(27)
"1"
30
for
n=l
to
20
40
t~ead
>:
50
flag$=flag$+chr$(x)
60
ne>:t
n
70
pt~in
t#l,
cht~$
(27)
"K
"cht~$
(20)
cht~$
(0)
f 1
ag$
80
flag$=""
90
fot~
n=
1
to
20
6-12

Related product manuals