Sharp PC-1500 Applications Manual page 164

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
T I T L E
POCKET COMPUTER SCHEDULE PLANNER
PROGRAM NO.
PS- 0 - 25
I
Program List
I
450:"Q" :G=INT <
TIME / l00):p,.
INT <G..- I 00):
LPRJNT P; "MONT
H"; G-P*100i"OA
Y"
470:FOR 1=0TO 28:
I F G< >INT <P< I
, 0)/l00>GOTO
5
00
490:GOSUB 990
500:NEXT J:LF
3:
CLS :RETURN
550: "F" :LPRINT " AL
L LIST":FOR
I =
0TO 28 : IF P< I,
0 ).= 0GO TO 580
570:GQSUB 990
580: NEXT I : LF 3:
CLS :RETURN
600:''G" :G:0 :H=0:
INPUT "DATE, TI
ME:P"iG
608:A•G/ l00 :GOSU8
950:LPRINT A$j
"ON"
610: FOR 1=0T O 28 :
I F G< INT <P< I,
0>*J00lGOTO 62
3
620:GOTO 630
623:JF H=0LET H=P<
I, 0>:K= I
625: IF H>INT P<l, 0
>LET H=INT P< I
, 0> :K=I
630:NEXT I
635:1F H• 0GOrO 649
640: l=K:GOSUB 990
649•LF 3:CLS ;
RETURN
660:"H"JNPUT "LOCK
• I, UNLOCK =2" ;
T
665 : IF < T =
l
> .. < T
=2
>
<>JGO TO 660
666: IF T• I LET BS= ''
LOCK ":GOTO 66
8
667:0$="UNLOCK "
668:LPRINT 0$i"LIS
r·
Do not sale this PDF !!!
670:FOR l=0TO 28:
!F P< I, 0>=0
GOTO 680
672: 1F P< l, 0>=0
GOTO 680
675:
J F
P< I,
3>=T
GOSUB 990
680:NEXT J :LF 3 :
CLS :RETURN
700: ''K": INPUT '' DAT
E, T IME=" ;G:FOR
1=0TO
28
715: IF G=INT <P<
!,
0>*100 >LET
1=2
6: NEXT I: GOSUB
900:60TO 725
720: NEXT
I
725:60SU8 920:CLS
:RETURN
750: "M": G='il: INPUT
"DATE, TIME=";G
:FOR 1=0TO 28:
IF G>INT <P <J ,
0l*1 00JGOTO 77
5
7.70:GOTO 790
7.75: IF
P ( I, 3> = 2
GOSUB 900
7 80:NEX T J:GQSUB 9
20: CLS :RETURN
800: "N":CLEAR :OJM
P<29, 4>, N$(29>
' i :40:GOSUB 920:
ENO
830: "Z":WAI T
0
836:FOR R=0TO 28
837:A=TIME :GOSUB
950 : PRINT
n$
838:8$=JNKEYS : I F
( 8$= "8 " )+(8$:::"
C"
)+ (8$a "0 "
)+(
S$="F">+ <BS="G
'' )+( 8$ ::: ' 1 H '' )~ J
GOTO 842
839: IF <8$ ="M" >+<B
$:; "K " >+(8$ : '
1
A
11
)+(8$
3
' $")+(8$
="L"> =IGOTO 84
2
840:GOTO 843
842:GOSU8 Os
- 158 -
843:JF <P< R,4 >=1>+
<P<R,0> =0 >=1
GOTO 872
84S:U=P<R,0> - P<R,2
)/l00 :W= <U- IN T
U) 'fl 00:
IF
IN T
W>59LET U=P <R,
0 ) +1- 0 . 6
847 : IF INT <TIME *
100) (JNT (ll*l0
0>GOT O 872
B55:P<R,
4)"1 :M:
TIME +0.0 1:N:(
M -I NT M>'fl00
859: IF INT N>59LET
n=n+l-0.6
86J:JF TIME >MGO TO
870
865:8$= JNKEY$ : IF
8$()CHR$
&I I
BEEP 2 :GOTO
86
I
870 : 1=R:GOSU8 990:
- LF
3
872 :NEX T R: GQTO 83
5
900:
P
< J, 0
>
=0:
P
<I ,
I
l=0:P(J, 2> =0:P
<
I, 3
>
=0:
P
<
I, 4
>
=0:N$( J ):"" :
RE TURN
920: CLS :WAI T 150:
PRINT "OELET JO
N
ENO" :
WAIT 0:
RETURN
925: CURSOR 0
:· I
NPU
f
B:GQTO 927
926:U=l:GOTO 949
927:JF 8>I2GOTO 92
5
928: JF 8=0GOTO 925
929: CURSOR 5 : INPUT
C:GQTO 93 1
930!60TO 929
931: IF C=0GOTO 929
932 :1F <8=4> +<B=6 >
"'< B=9l +<B=l l
>=
JGOTO 938
933: IF 8=2GO TO 936
934 : IF C>31GOTO 92
9
935 : GOTO 940
936 : IF C>29GOTO 92
9
937 :soro 940
(To
be
continued)
8