Inhaltsverzeichnis
Werbung
24
N a c h E ingabe von RUN e r h a l t e n Sie:
ALL BIT P AT TERN
1
ALL BIT PA TT E R N
1
ALL BIT P A TTER N
1
ALL BIT P ATT E R N
2
ALL BIT P A TTE RN
2
ALL BIT PA TT E R N
2
Das naech s t e P r o g r a m m druckt eine B i t - I m a g e - G r a f i k .
100
RE M C H R $ <
8
> ■ . .BIT IMAGE GR A F I C P R I N T I N G
110 0
P E N
4 , 4
:P R I N T IN GRAF I C MODE
120
B S $ = C H R
$ <8
> = DE*=CHR:$
<15
>
130
140
FOR R O N
— 1
TO
3
150
FOR C O L U M N
* 1
TO
16
160
R E AD A :A * <RO N >= A $ <R ON >+ C H R S <A >
170
NEXT COLUMN
180
NEXT RON
190
2 00
P R I N T #
4
,BS*;
21 0
FOR R O N
= 1
TO
3
22 0
P R I N T #
4
,A * <R O N >
2 3 0
NEX T RON
24 0
PR I N T #
4
, DE-i
25 0
2 6 0
FOR L
= 1
TO
8
:P R I N T #
4
:N E X T L
2 7 0
C L
0
S E
4
2
S
0
END
29 0
3 00
DATA
1 2 9
,
1 2 9
,
2 5 0
,
2 5 0
,
1 5 3
,
1 5 8
,
2 5 5 , 2 5 5
3 1 0
DATA
1 5 3
,
1 5 8
,
2 5 0
,
2 5 0
,
1 2 9
,
1 2 9
,
1 2 3 , 1 2 3
3 20
DATA
1 2 3
,
1 2 3
,
1 5 9
,
1 5 9
,
2 4 3
,
2 4 3
,
1 7 9 , 1 7 9
3 3 0
DATA
2 4 3
,
2 4 3
,
1 5 9
,
1 5 9
,
1 2 3
,
1 2 3
,
1 2 8 , 1 2 3
3 40
DATA
1 2 8
,
1 2 8
,
1 3 0
,
1 3 0
,
1 3 1
,
1 3 1 1 2 3
,
123
3 5 0
DATA
1 3 1
,
1 3 1
,
1 3 0
,
1 3 0
,
1 2 3
,
1 2 8
,
1 2 3 , 1 2 3
READY.
RUN
¥
(k o n t i n u i e r l i c h e Druckzeilen)
Das naech s t e B e i s p i e l druc k t die S t e r n z e i c h e n mit B i t - I m a g e - D r u c k . Die Zeichen
sind nicht b e s o n d e r s deutlich,
da sie nur aus 7 (vertikal)
x 5 (horizontal)
P u n k t e n bestehen.
Werbung
Inhaltsverzeichnis
