Sharp PC-1403 - Page 245

239
A
v
B
v
~ · --
c
3 -dig it nu m be r
D
\ I
F
v
G
v
H
v ·
J Co mment
..
L v
M v
p
Co mm ent
x I nput v a l ue
y
Number of attempts
• M E M ORY C ONTEN T S
309 Bytes
90 :P AUS E " C omm e nt:• ;
U S ING " l l l tt " ;J;P : IF
J <> 3 LET Y = Y + t:GOTO
3 0
1 00: B EEP 2 : PRINT " V E RY G
o on ! v ; v : END
1 10:L=L+1:IF A(A)=A(L)
L E T P = P+ l
120 :RET U RN
2 : MEX T A
1 0 : "A" :CLE AR : RANDOM : y
= 1
2 0 : F O R A = 2 TO 4 : A(A ) =
R N D 1 0-t : N EXT A:IF
B = C ) +CC = D) + ( D=B )< > 0
TH rn 20
3 0 :BEEP t : INPUT ·x = · ; x
40 : U S ING : PAUSE y , x
50 : F OR A= 6 TO B:A ( A ) = X -
I N T (X / 10 ) *10: X = IN T
( X/ H) ) : NE:>ff A
60 :.J = 0 : L=6 :P = 0
7 0 :FO R A= 2 T C 4 : I F AC A )
"' A ( U L ET .J = J +t
80 : GO SU B 110 : GOSUB 110 :
M =F: F =G : G=H:H=M:L = L-
• PROGRAM LIST
4. 305 [ E HT ERI
6
305 1
I Comm e nt:3
0 1
I VERY GOOD!
s l
1 )
I
In put data in the same manner as
abo ve.
CX= -
_ _ jU
Comment:1
2
145 I E H TE R I
3 .
I Comme n t :~ 1 I
I X = _ - - - --- ·· - =1
1 123 I
1 23 IEHT E aj
2 .
L& - -- -
1.
• KEY OPERATION SEQUENCE