Sharp PC-1500 Handbuch Seite 193

All and more about Sharp PC-1500 at http://www.PC-1500.info
PROG RAMMNAME:
DOPPE LT E ROTATION
PROGRAMM·NR.
3
PS- E-4
[ Programm! isting )
[ Speicherinhalt )
t0 : " A" :CLEAR
:
A
...;
WAil 0 : U5 JNG
20:PAUSE "DOPPELT
8
...;
E ROTA TION "
c
Eingabetaste
30: 0$="ABC OEFGH JJ
"
10 :Y$ =""
D
50:A=0 E
60 : FOR l = l TO 10
F
/ 0:R=RN O 10
80 : S=2"<R- 1>
G
BS:B=SAN O A
90 : I F
B< >0GO TO
?0
H
100:A=AOR 5
1
...;
110 : Y$ =Y $ +M l 0$
(0$
, R, 1 l: NEXT
1
J
120:S$=Y $
i 30: N=0
K
140: U5J NG
L
150 : BEEP 1: cL5
:
PRJNI USJ NG
" & M
&&&&& &&&&" ;
5$;
N
l'unktcrgcb nis
„
*PUNK T= "
160:CURSOR 20
0
165:C=0
170: l NPUT
c
p
l 90: l F C< 1 GO TO
140
Q
200: 1 F C>9GOTO 140
210:K$=LEF T$ (5$,
c
R
Zufallszahlen
)
...;
220:L$=RlGH T$
($$,
s
10-C)
T
240: JF
C=JGOTO 260
250:KS=RI
GH T$ ( K $,
u
l ) +LE FT
S (K$, C
- J ) V
260: 1
F
C=9GOTO 280
w
2/0 : LS=RIGHT$
(L S,
9-C>+ LEFT$
(L$
X
' J )
280: Ss =KS+L$
y
290:N=N• l
z
300 : 1 F
$$(
>OsGO TO
140
OS
ABCDEFGHIJ
310 :BEEP S: CLS
:
US JNG
: PAUSE
„
iE-,
1\lphabet nach T3sten·
SPJEL
BEENDET ''
LS
b etätigu n ~
in
320: WAJT :US!NG
:
wilJk ürlic e r Ordnung
PRJ NT US ING
„
u
ff"H";
" JHRE PUN
$$
Willkürlich geordnetes
KT ZAHL " ; N Alphabet
330:END
400: "B" :
CLS : WA ! T
WiUkürlich geordnetes
0:GO TO
120
Y$
Alphabet (zum
Speichern)
STATUS 1
534
Do not sale this PDF !!!
- 185 -