Sharp PC-1500 Applications Manual page 84
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more about Sharp
PC-1500
at http:/lwww.PC-1500.info
PROGRAM
T
ITLE
~
-
R
CONTROL
CHART
[ Program List
I
480:R=L-S:G=G/M:H=
H+G:
P=P+R
490:
NEXT A
500:U=P/N:T=H/N
5J0:LPRINT
'"
**
X
*
*"
520:0=2-Y<M-2, 1):0
i=O:
I
F
0<0LE
T
0
=0
530:xC=T:xL=T-
<Y<M
-2,
0l*U
)
:XU=T
+
(
Y( M-2,
0)*U>
550:LPRI
NT
"LCL=";
XL
552:LPRINT "CL
=
";
xc
554:
LPR I
NT
'"lJC:L=
..
;
XU
556:LF
l:LPRJNT
'"*
*
R
**' "
560:RC=U:RL=O
*
U:RU
=Y<M-2, I
>*
U
570
•LPRINT
"LCL="
;
RL
572:LPRIN
T
"
CL=
";
RC
5?4:LPRJNT
"UCL
='';
RU
580:ENO
590: "F
"
:LF
2•
COLOR
3:LPRINT
"X CO
NTROL
CHART"
60
0:COLOR
2
•
LPRINT
"R
CON
TROL CHA
RT''
6
Jt
0 : GRAPH
620
:COLOR
0:
ROTATE
0
630•GLCURSOR <10,-
50
):LPRINT
"LC
L
"
64.
0 :
GLCURSOR
<
90,
-
50
)
:
LPRJN
T
"CL
..
65'
0
:
GL
CURSOR
<J
50,
-50):LPR
JN
T "U
CL
••
660:
GLCURSOR
<I
00,
-
80):SORGN
670:LI NE
<-75,0>-<
75, 0>,
0,
I
Do not sale this PDF !!!
680:Ll NE
(75,0l
-<7
5,
-~00),
J,
I
690:LINE
<75,
-
480>
-<-75,
-
480>,
0,
I
700
:LJNE
<-75,
-480
)
-(
-75,
0)
,
1, l
7
10:LINE
<0,0l-
<0,
-
480>,
0,
I
720
:F=450/N:OX=Y
(M
-
2, 0
l*U/75:
COLOR 3
730:x1=x<n,0>
770:YJ
=-F
775:
COLOR
3:T
J=X
C
780:FQR
B=I
TO
N
790
:
IF
B=NGOTO
840
000•x2=x<M,B> :Y2=Y
1-
F
840: GQSUB
6000
a50:x1
~
x2:v1 =v2
060:NEXT B
870:
COLOR
2
9!0:Xl
=X<M+l,0
):Y
l
c-
F
920:
0A
=0:1F
Xl
>RC
LET
DA=
<RU-
RC)
/75
: GOTO
940
930:
IF
Xl<RCLET
DA
=<RC-
OJ)
/75
940:
TJ
=RC
950:
FOR
B=
I
TO
N
960:
IF B=NGOTO
101
0
970•X2=XCM+J,Bl:Y2
=Yl-F
980:08=0:
IF
X2
>R
C
LET OB=<RU-RCl
/?5
:
GOTO
1010
990:
IF
X2<RCLET
OB
=-<RC-
OJ
l/75
1010:
GOSUB
?000
1020:xJ
=X2: Yl
=Y2
:
DA=OB
1030:NEXT
B
1040: GLCURSOR
<0,
-500)
: CS
I
ZE
2:
COLOR
0
:
TEXT :
ENO
-
78
-
PROGRAM
NO.
PS-
B-
14
6000:X3=(
Xl-T
l
)/0
X:
LINE
<
x3-
2
,
Yl+2>
-
<X3 .. 2
,
YJ-2)
60J0:LJNE
<X
3-2,Y
l
- 2l-<X3+2,
Y
1+2)
6020:
CSI
ZE
I:
LPRI
NT
B
6030:
IF
B=NRETURN
6040:X4
=<x2-
TJl/
O
x:
LINE
<X3,
Y
I
l-(X4,
Y2l
6050:RETURN
7000:X3•
<Xl
-
Tll/Q
A:LINE
<X3-
2
, Y
J
+
2
l
-
<
X3+
2
, YI
•2>
7010•
L
I
NE
<X3-
2,
Y
l
-
2)
(X3•·2,
Y
l
.. 2)
7020:CSIZE
I
:
LPRJNT
B
7030:
I
F
B•
NRET
URN
70
4
0
:
~4~<x2
-
r1>
"
0
B: L
INE
<X3, Y
JJ
-
<X1,Y2)
7050:
RETURN
STATUS
l
3
010
7
Advertisement
