Sharp PC-1500 - Page 163

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROGRAM
T ITLE
POCKET COMPUTER SCHEDULE PLANNER
PRO GRA M NO .
PS-D - 25
[ Progra m List I
2:"$ '' : INPUT "T AP
E OUT OK<Y/N)?
" jY$:
IF Y$="Y
"
GOTO 5
4:GOTO 2
5:P RINT ff"SCHE OU
LE" ;P< *» N$(f)
:CLS :R ETUR N
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 #" SCHEO U
LE" ;
P< * ), N$<* >
: C LS :RETURN
20: " A":A=TIME:
GOSU B 950:CLS
:WAIT 130:
PRINT A$:WAI T
0
50: INPUT " CH ANGE=
J/ NO CHAN GE = 2?
";Zs: IF (2 $="
I")+< 2$= '' 2" > < >
!GO TO 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=0 TO
28:tF P<l,0><>
0 GOTO 240
175:CLS : PR INT ''
/ ,
S TART":
GOSUB 925
178: IF U=I GO TO 245
1 80:X =B*l0000+C* I 0
0 .. 0 +E / 100: IF X
<TIME GOTO J/S
200:CLS :PRINT "
/ ,
ENO" :
GOS UB 925: IF U
=JGOTO 200
207:Y =B * 10000+C*l 0
0+0
+E/ 100: IF Y
<X
GOTO 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:G OTO
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:C LS : I NP UT
"CO N TE NTS="; N$
(J): CLS : INPUT
"ALA RM TIME=";
PC J ,2)
235:CLS : INPUT ' 'LO
CK=l/U NLO CK=2
?"; P <l,3):JF <
P(l, 3)= 1 )+(p( I
, 3>=2><>1G OTO
235
240:N E XT 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 2 75
265: lF P<J, 3) =1
GOTO 275
- 1 57 -
267: 1F H=0LET H=P<
J,0 >:K =J+J
270: IF H>P<J,0>L ET
H =P <J, 0>:K=J+ J
275:NEXT J
277: IF K= 0WAIT 150
:P RINT "TH ERE
IS NO AREA ":
WAIT 0:GOTO 29
0
2 80:J=K -l:GOSUB 90
0:GOTO 170
290:CLS :RE
TU RN
300:"C " :WAJT 0: CLS
: IN PUT "LIST S
TART DATE=";G:
GOTO 33 0
305:G=0: H=9999
330:CLS : INP UT ''LI
ST ENO DAT E=";
H:GOTO 350
350: IF <G=0)+(H'= 99
99)+<G>H> =I
GOTO 3 00
365:AeG*l00:GO SUB
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>lNT <P<l,
0)/J00)60 TO 41
0
390: IF H<INT <P<I,
0) / J0 0>GOTO 41
0
400:GOSUB 990
4J0 :NE XT l:LF 3:
CLS :RETURN
(To be continued )
7