Sharp PC-1500 - 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 Pr og ram List I
4 50:"Q ":G=INT <
TIME / l00):p,.
I NT <G..- I 00):
LPRJNT P; "MONT
H"; G-P *100i" OA
Y"
470:FOR 1= 0TO 28:
IF G< >INT <P< I
, 0)/l00>GOTO
5
00
490:G OSUB 990
500:NEXT J:LF 3:
CLS :R ET URN
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:
IN PUT "DATE , TI
ME:P"iG
608:A •G/ l00 :GOS U8
950:LPRINT A$j
"ON"
610: FO R 1= 0T O 28 :
IF
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:N EXT I
635:1F H• 0GOrO 649
640: l=K:GOSUB 990
649•L F 3:CLS ;
RE TURN
660:"H"JNPUT "LOCK
• I, UN L OCK =2 "; T
665 : IF < T = l > .. < T =2 >
<> JGO TO 66 0
666: IF T• I LET BS= ''
LOCK ":GOTO 66
8
667:0 $ ="UNLOC K "
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: JF P< I, 3>= T
GOSUB 990
680:N EXT J :LF 3 :
CLS :R ETURN
70 0: ''K": IN PUT '' DAT
E, T IM E=";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
7 25:60SU8 920:CLS
:RET URN
750: "M": G='il: INPUT
"D ATE, 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:N EX 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$=JNK EY S : IF
( 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
- 1 58 -
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> 59 L ET 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 :
T IME +0 .0 1 :N :(
M -I NT M>'fl00
859: IF INT N>59LET
n=n +l-0 .6
86J:JF TIME >MGO TO
87 0
865 :8$= JNKEY$ : IF
8$() CH R$ &I I
BEEP 2 :G OTO 86
I
870 : 1= R:GOSU8 990:
- LF 3
872 :N EX 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 T URN
920 : CLS :WAI T 15 0:
PRINT "OELET JO
N ENO " : WAIT 0:
RETURN
925: CURSOR 0 :·I NPU f
B:GQTO 927
926:U = l:G OTO 949
927:JF 8>I2G OTO 92
5
928: JF 8= 0G O TO 925
929: CU RSOR 5: IN PUT
C:GQTO 931
93 0!60TO 929
931: IF C= 0G OTO 929
932 :1 F <8= 4> + <B =6>
"'< B =9l +<B=l l >=
JGOTO 938
93 3: IF 8= 2GO TO 936
934 : IF C>31GO TO 92
9
935 : GOTO 940
936 : IF C >29GOTO 92
9
937 :s oro 940
(To be co ntinu ed)
8