Sharp PC-1500 Applications Manual page 163
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://www.PC-1500.info
PROGRAM
T
ITLE
POCKET COMPUTER
SCHEDULE
PLANNER
PROGRAM
NO.
PS-D-
25
[
Program List
I
2:"$
''
: INPUT
"TAP
E
OUT OK<Y/N)?
"
jY$:
I
F
Y$="
Y
"GOTO 5
4:GOTO 2
5:PRINT
ff"SCHE OU
LE"
;P<
*»
N$(f)
:CLS
:RETURN
8: "L" :
INPUT
" TAP
E
IN QK(Y/N)?
11
;
Y.s: IF
Y$=
11
Y
11
GO TO
I
I
J0:
GO
TO 8
J
J:INPUT
#"SCHEOU
LE"
;
P<*
),
N$<*
>
: CLS :RETURN
20: "A":A=TIME:
GOSUB 950:CLS
:WAIT 130:
PRINT A$:WAI
T
0
50: INPUT
"CHANGE=
J/NO
CHANGE
=2?
";Zs: IF
(2$="
I")+<
2$= ''
2
"
> <
>
!GOTO 50
60: IF
2$
="
2"
RETURN
63:PR!NT
"
/
;
:
u
:
GOSUB
925:A=B*
!
0000+C*l00+0+
E/
l00:TJME
=A:
GOTO
20
100:A=B*l0000+C*l0
0+0+E/J00
105:TJ
HE
=A:GOTO
2
0
Do
not
sale
this PDF!!!
!70:"B":FOR
1=0TO
28:tF P<l,0><>
0GOTO
240
175:CLS
:
PR
INT
''
/
,
S
TART":
GOSUB
925
178:
IF
U=IGO
TO
24
5
180:X=B*l0000+C*
I
0
0 ..
0+E
/
100:
IF
X
<TIME
GOTO
J/S
200:CLS
:PRINT
"
/
,
ENO"
:
GOSUB
925: IF U
=JGOTO 200
207:Y=B* 10000+C*
l
0
0+0+E/
100
:
IF
Y
<XGOTO
200
212:FOR J
•
0TO 25•
IF
X<P<J,
0>
GOTO 220
216: IF X>P<J,
I>
GOTO
222
21a:z=1:J =26:GOTO
222
220: IF Y>P <J,0)LET
Z=J:J=26
222:NEXT
J
225:IF
Z=ILET
Z=0:
GOTO I 75
226:
P(
I,
0>=X:
P<
I,
I
>=Y:CLS
:
INPUT
"CONTENTS=";
N$
(J):
CLS
:
INPUT
"ALARM
TIME=";
PC J,2)
235:CLS
: INPUT
''LO
CK=l/UNLOCK=2
?"; P<l,3):JF <
P(l,
3)=
1
)+(p(
I
, 3>=2><>1GOTO
235
240:NEXT
I
245:
IF
U=ILET
U=0:
GOTO 290
250: H=0:K=0
255:FOR
J=0TO
25:
IF P<J,
3)=1
GOTO
275
265:
lF
P<J, 3)=1
GOTO 275
-
157
-
267:
1F H=0LET
H=P<
J,0
>:K=J+J
270:
IF
H>P<J,0>LET
H=P
<J,
0>:K=J+
J
275:NEXT
J
277:
IF
K=0WAIT 150
:PRINT
"THERE
IS
N
O
AREA
":
W
AIT 0:GOTO
29
0
280:J=K-l:GOSUB 90
0:GOTO 170
290:CLS :RE TURN
300:"C"
:WAJT
0:
CLS
:
INPUT "LIST S
TART
DATE=";G
:
GOTO
330
305:G=0:
H=9999
330:CLS
:
INPUT ''L
I
ST ENO
DATE=";
H:GOTO 350
350: IF
<G=0)+(H'
=
99
99)+<G>H>
=I
GOTO
300
365:AeG*l00:GOSUB
950:LPRJNT Bi"
/
1
' ;
C;
°FROM
1
'
356:A=H*!00:
GOSUB
950:LPRJNT B;
"
/";C;
''UNTILL
L
I
ST"
370:FOR 1=0TO
28
:
IF
P< I, 0> =0
GO
TO
410
380: IF G>lN
T
<P<l,
0)/J00)60TO
41
0
390:
IF H<INT <P<I,
0)
/ J00>GOTO
41
0
400:GOSUB 990
4J0
:NEXT
l:LF
3:
CLS
:RETURN
(To be
continued
)
7
Advertisement
