EasyManua.ls Logo

Commodore MPS 1200 - Page 78

Commodore MPS 1200
250 pages
Save Page as PDF
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...
60
pt'int#1,"
128
64
32
16
8 4 2
1"
70
for
n7=0
to
128
step
128
80
for
n6=0
to
64
step
64
90
for
n5=0
to
32
step
32
100
for
n4=0
to
16
step
16
110
for
n3=0
to
8
step
8
120
for
n2=0
to
4
step
4
130
for
n1=0
to
2
step
2
140
for
nO=O
to
1
step
1
145
P
t'
i n
t#
1 , " " ;
1~:.'50
if
n7
thE~n
F)t'int#l,
1,11-
";
:e;>!j5e
pt'int#l,
160
if
n6
then
pt'int#l,
~*
";:e15e
pl"int#l,
170
if
n5
then
pt':i.nt#l,
~*
":;:e15e
pt'int#1,
:l.E30
i·f
n4
then
pt'int#:l,
~*
";:E!lse
pt'int#1,
1.(70
if
n3
then
pt'int#l,
1*
";
:else
pt'int#l,
200
if
n2
then
pt'int#l,
~*
";:else
pt-'int#l,
210
if
nl
then
pt'int=lt-1.,
1*
";:else
pt'int#l,
220
if
nO
then
pt'int#l,
1*";
:
else
pt'int#l,
230
n=nO+nl+n2+n3+n4+n5+n6+n7
240
pt"int#l,"
";
:-2~30
pt'int#1.,cht·'$(27)"
~
"cht'$(n);
"F't'int
l'1ode";n;
260
pt-·
int#l,
cht'$
(27)
" I
"cht'$
(Cl)
270
next
nO,nl,n2,n3,n4,n5,n6,n7
2[W
close
1
3-28

Table of Contents

Related product manuals