Sharp PC-1500 - Page 191

A ll and more abo ut Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM
DOU BL E ROTA TI ON
PROGRAM N O.
3
T l TL E
PS-E-4
[ Pr og ram Li st ]
[ Mem
ory C on te nts I
J0: "A ": CL E AR :
WAJT 0:USJNG
A
..;
20: PAUSE
"DOUBLE
v
ROHH JO N"
B
30:0$ ="A BCOE FGHJJ
c
Input Key
"
40 : Y$= ' '"
50 : A=0
0
50: FOR
J = J TO
J 0
E
70:R=RNO
J0
F
B0:S=2" <R - Jl
BS: B=S A NO A
G
90: IF B<>0GOT O }0
100:A=AOR
s H
I J0 : Y $=Y$ +MJ0$ ( 0$
I
,R, J)!NEXT
J
120:S$ = YS
J
1 30:N =0
J4 0:!JS JNG
K
15 0:8 EEP J: CLS :
PR JNT
US JNG '"&
L
& &&&&&&&&";SS;
M
"
*POJNT=
..
J60 :C UR SOR 20
J65: C=0
N Score
1 ?0 : lNPUI
c
0
I 90: J F
C<J G OTO 140
p
200: !F
C>3 GO TO J 4 El
2J0 :K$=LEFJ$ ( $$,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 >+ L EFT$ < K$, C
-J)
u
2 60: JF C=9GOTO 280
v
2 70:L$ =RJGH T$ u s,
9-C>+L EF T$
• 1>
(L$
w
280 : S$=K S+ L$
x
290: N=N+J
y
300: IF
S.t<>DS GOTO
14 0
z
3J0:BEEP 5:CLS ;
USI NG :PAUS E "
0$
ABCDEFGHIJ
GA ME END"
KS
Randomly ordered
320: WA J T
:
US ING
:
PR J NT
USJNG
""
alphabet after key
""""; "Y OUR sea LS
RE" ; N
op<? ration
330 : END
Randomly orderd
400: " B" : CLS
:WA
IT
S$
0 :GO TO 120
alphabet
YS
Randomly orderd
alphabet (for
Saving)
STATUS
I
523
Do not sale this PDF !!!
- 1 85 -