Sharp MZ-80P6 Instruction Manual page 38

Hide thumbs Also See for MZ-80P6:
Table of Contents

Advertisement

Examples of Printing with
Program 1. Bit Image Pattern with COPY /P Command
[Program List]
100 GRAPH Il:GRAPH C:GRAPH 01
110
PRINT CHR$(6)
1::2
I)
D I 1' 1 D (
1 ,
255
)
130 FOR L=O TO 255
140
D(O~L)=-1:D(1~L)=-1:NEXT
150 FOR Y=-180 TO ISO STEP4
160 FOR X=-180 TO 180 STEP4
170
R~ff/180*SQR(X*X+Y*Y)
lI30
Z=
1.
OO*CDS
(R) -
:30*CClS
(3*R)
1 90 D X :::: I N T ( 1 1 6 + X
/2+
(
1 6 - Y
.1:2)
.I
2 )
:?
I)
0
D Y:::: I N T ( (
: 1
.
:30 - Y /
~.~
- Z ) /
=::
)
210
IF (DX<0)+(DX>255) THEN
250
~,?:;:~O
IF 0
(I) ~
DX
)
=-1
THEN
:300
:'
, 2~jO
NE
XT:
NF.~
X T
230
IF
DY<=D(O~DX)
THEN
370
240
IF
DY>=D(l,DX) THEN
390
~,~
6
I)
F' Fi:
J
I'~
T / F'
CH
Fi:
$ (
1.
B)
r.
TAB
(
6) ; ":3 D - F' L
Cl T
11
270
COP
'
' Y ' /F' 2
280
PRINT/P
CHR$(5);CHR$(20)~COPY/P
2
290
END
330
D(O~DX)=INT«D(0~DX-l)+D(0,DX+l»!2)
:::A
0
0 ( 1
~
D X ) ::::: I N T ( (D ( 1 , D X
._-
1 )
+
D (
1. ,
D X + 1
)
;.
.
/ 2)
:370
GCJSUB
410:D(O,DX)=DY~
IF D(l.DX)==
-···l
THEN
D(l,DX)=D
'
y '
300 IF DX::::O THEN 360
310 IF D(O,DX-l)=-l THEN
360
320 IF
D(O,DX+l)=-l THEN
360
350
GOSUB 410:GOTO
250
360
O(O,DX)=DY=O(l,DX)=DY:GOSUB 410=GOTO 250
:~:;LlO
c/ClTU 250
390
GOSUB
41.0:D(1~DX)=DY:IF
D(O,DX)=-l THEN
D(l,DX)=DY
400 130TO
250
410
SET
DX~DY
420 RETURN
[Execution Resu It]
.::.:.-; r) --
IF" H .....
1[~Jl
(Normal mode printing)
(Reduced mode printing)
35

Advertisement

Table of Contents
loading

Table of Contents