Sharp PC-1500 Applications Manual page 165

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
POCKET COMPUTE R SCHEDULE PLANNE R
PROGRAM NO.
9
T I T LE
P5- 0 25
[ Program List
I
[ Memory Contenu
I
938: IF
C>30GO TO 92
A
Time
Month
1
day.
hl>ll f.
9
AS
94 0:CtJRSOR I 0: B
Month
rninutc
INPUT O:GQ TO 9
c
Day
BS
...;
44
94 I: GOTO 940
D Hour
SS
...;
944:JF 0>23GOTO 94
E Minute
YS
...;
0
94S:CtJRSOR IS:
F
ZS
...;
INPUT E: GQTO 9
v
48
G
NS(iJ
Contents
946:GOTO 945
H
...;
Pli. 0)
Start time
94 8: l F
E>59GO TO 94
s
I
...;
P(i, 1) End time
9 49:RE TURN
J
...;
P(i, 2)
Alarn• tirnc
950:8=1 NT CA /10000
): C=INT <<A-81:
K
..;
P(i, 3
Lo<:k , unlock
10000)/100 >:0=
Before or after of
IN T <A- 0 1: 10000
L
P(i, 4
- C1: 100>
M
...; the
current time
955 :E=! NT (( l'l- B* I 0
..;
000-C1:100 - D>*l
N
00>
0
9?5 : IF E=0LE T ES=''
00 ;' :
GOTO 980
p
,;
9?6:ES=S TRS
E
Q
980:AS=STRS B+"/"•
STRS C+"
•·+
R
..;
STRS O .. " : "+Es
s
985: RETURN
990:LF J :LPR INT
"* T
.
''; NS ( 1 ) ;
·~
* .. :
u
..;
A=P< J, 0 >: GOSUB
950: LPRINT "ST
v
...;
ART ";As:A=P( J
...;
I
' l )
w
99 3:60SUB 950:
x ...;
I
LPRJNT "END
..j
";AS: LPRJNT " A
y
LARM
··;p(J,2>;
z
...;
"MlN . PRJOR":
RE TURN
STA TUS
I
33?5
.
Do not sale this PDF !!!
- 159-