Sharp PC-1500 Anwenderhandbuch Seite 191

[ Programmlisting |
1B: "A": CLEAR :
WAIT @: USING
2@:PAUSE "DOPPELT
E ROTATION"
38: 0$="ABCDEFGHIJ
49: ¥$=""
58: A=B
66:FOR !=1TO 10
76:R=RND 16
8@: S=2e¢R-1)
85:B=SAND A
98: 1F B<>@GOTO 78
1988:A=AOR S
120: S$=Y$
130:N=8
148:USING :
162: CURSOR 28
165:C=@
170: INPUT C
198: 1F C<1GOTO 148
200: 1F C>oS9GOTO 148
21@:K$=LEFT$ (S$,C
)
228: L¢$=RIGHT$ (S$,
18-0)
248: 1F C=1GOTO 268
258: K$=RIGHT$ (KS;
1>+LEFTS (KS, C
=13
268: 1F C=SGOTO 288
270: L$=RIGHT$ (LS,
9-C)+LEFT$ (LS
, id
280: S$=K$4+L$
2980: N=N+1
308: 1F S$<>OsGOTO
148
KTZAHL "3 N
338: END
408: "B":CLS : WAIT
@:GOTO 126
STATUS 1]
[ Speicherinhalt ]
VJ
|
io)
Deer Eingabetaste
BBRE
HM
Punktergebnis
EGEREE
Zufallszahlen
Seale le
BERBER
ABCDEFGHIJ
Alphabet nach Tasten-
betatigung in
willkiirlicher Ordnung
Willkiirlich geordnetes
Alphabet
Willkiirlich geordnetes
Y$ | Alphabet (zum
Speichern)
r