Sharp PC-1500 Applications Manual page 191

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
DOUBLE ROTATION
PROGRAM NO.
3
T l TL E
PS-E-4
[ Program List ]
[ Memory Contents
I
J0: "A": CL EAR
:
WAJT 0:USJNG
A
..;
20: PAUSE
"DOUBLE
v
ROHH JON"
B
30:0$ ="ABCOEFGHJJ
c
Input Key
"
4 0 : Y$= ''"
50: A=0
0
50: FOR
J = J T O
J 0
E
70:R=RNO
J0
F
B0:S=2" <R- Jl
BS: B=SANO A
G
90: IF B<>0GOT O
}0
100:A=AOR
s
H
I J0 : Y$=Y$+M J0$
( 0$
I
,R, J)!NEXT
J
120:S$=YS
J
130:N=0
J4 0:!JS JNG
K
150:8 EEP J : CLS :
PR JNT
US JNG
'"&
L
& &&&&&&&&";SS;
M
" *POJNT=
..
J60:CURSOR 20
J65: C=0
N Score
1?0: l NPUI
c
0
I 90: J F C<J
G OTO 140
p
200:
!F
C>3 GO TO J 4 El
2 J0 :K$=LEF J$ ( $$,C
Q
'
220: L$=RJGHT$
CS$,
R Random number
10- C
>
s
v
240:
IF
C=lGOT O 260
250: l<$ =R J
GHU
CK$,
T
l >+ LEFT$ <K$, C
- J )
u
260: JF C=9GOTO 280
v
270:L$ =RJGHT$
u s,
9-C> +LEF T$
• 1>
(L$
w
280 : S$=KS+ L$
x
290 : N=N+J
y
300: IF
S.t<>DSGOTO
140
z
3J0:BEEP 5 :CLS
;
USI NG :PAUSE
"
0$ ABCDEFGHIJ
GAM E END"
KS
Randomly ordered
320: WA J T
: US ING
:
PR JNT USJNG ""
alphabet after key
""""; "YOUR
sea
LS
RE" ; N op<? ration
330: END
Randomly orderd
400 : "B" : CLS
: W AIT
S$
0:GO T O 120
alphabet
YS
Randomly orderd
alphabet (for Saving)
STATUS
I
523
Do not sale this PDF !!! - 185 -