Sharp PC-1500 - Page 165

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
POCKET COMPUTER SCHEDULE PLANNER
PROGRAM NO.
9
T I T LE
P 5- 0 25
[ Program List I [ Memory Contenu I
93 8: IF
C>30GO TO 92
A Time
Month
1
day. hl>ll f.
9
AS
940:CtJRS OR 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:CtJ RSOR 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 tim e
949:RE TU RN
J
...;
P(i, 2)
Alarn• tirnc
950:8=1 NT CA /10000
): C=INT
<<A- 81:
K
..;
P(i , 3
Lo<: k, unlock
100 00)/100 >:0 =
Before or after of
IN T <A - 0 1: 10000
L
P (i, 4
- C 1: 100>
M
...;
the
current tim e
955 :E=! NT (( l'l - B* I 0
..;
000- C1:100- D>*l
N
00>
0
9?5 : IF E=0 LE T ES=''
00 ;' : GOTO 980
p
,;
9 ?6:ES=S TRS
E
Q
98 0:AS=STRS
B +"/"•
STR S C+"
•·+ R
..;
STR S O .. " : "+Es
s
985 : RETURN
990 :L F J:LPR INT
"*
T .
' '; NS ( 1 ) ; ·~
* .. :
u
..;
A=P< J, 0>: GOSUB
950: L PRINT "ST
v
...;
ART ";As:A=P( J
...;
I
' l )
w
99 3:60SUB 950:
x
...;
I
L PRJNT "E ND
..j
";A S: LPRJNT "A
y
LARM
··;p(J,2>;
z
...;
"MlN . PRJOR":
RE TUR N
STA T US I
33 ?5
.
Do not sale this PDF !!!
- 159 -