Sharp PC-1403 Operation Manual page 245

239
A
v
B
v
~· - -
c
3-digit number
D
\I
F
v
G
v
H
v·
J Comment
..
L
v
M
v
p
Comment
x
Input value
y
Number of attempts
• MEMORY CONTENTS
309 Bytes
90:PAUSE "Comment:•;
USING "llltt";J;P:IF
J<>3 LET
Y=Y+t:GOTO
30
100:BEEP 2:PRINT "VERY G
oon
!
v ;
v:
END
110:L=L+1:IF A(A)=A(L)
LET P=P+l
120:RETURN
2:MEXT A
10:"A":CLEAR :RANDOM :y
=1
20:FOR A = 2 TO 4:A(A)=
RND 10-t:NEXT A:IF
B=C)+CC=D)+(D=B)<>0
THrn 20
30:BEEP t:INPUT ·x=·;x
40:USING :PAUSE
y,x
50:FOR A=6 TO B:A(A)=X-
INT (X/10)*10:X= INT
(X/H)):NE:>ff A
60:.J=0:L=6:P=0
70:FOR A=2 TC 4:IF
ACA)
"'A(U LET .J=J+t
80:GOSUB 110:GOSUB 110:
M=F:F=G:G=H:H=M:L=L-
• PROGRAM LIST
4.
305
[EHTERI
6
3051
I
Comment:3
01
I
VERY GOOD!
sl
1 )
I
Input data in the same manner as
above.
CX=-
__ jU
Comment:1
2
145
IEHTERI
3.
I
Comment:~ 1
I
I
X=_ ------· ·
- = 1
1 123
I
123
IEHTEaj
2.
L&- ---
1.
• KEY OPERATION SEQUENCE