Sharp CE-140P User Manual Page 10

  • Download
  • Add to my manuals
  • Print
  • Page
    / 60
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 9
OWLING
PC-1260/
PC-1261
ABEMDTABELLE
Stand: Hl. 2.
86
I.KURT
DURCHS.=
173.3333
ANZAHL
DER
SPIELE=3.
2.
EI't
1'1
A
DURCHS.=
154.a009
ANZAHL
DER
SPIELE=3.
3.LUTZ
DURCHS.=
144.3333
AHZAHL
DER
SPIELE=3.
4.BERHD
DURCHS.=
131.80a9
AHZAHL
DER
SPIELE=2.
5.DIETER
DURCHS.=
121.5880
ANZAHL
DER
SPIELE=2.
6.HORST-U
DURCHS.=
118.3333
ANZAHL
DER
SPIELE=3.
JAHRESTABELLE
Stand: Hl. 2.
86
I.KURT
DURCHS.=
152.9999
ANZAHL
DER
SPIELE=12.
h.S~.=197
P.a~
29.1.86
n.Sp.=98
P.am
27.1.86
2.DIET£R
.
DURCHS.=
147.9999
ANZAHL
DER
SPIELE=il.
h.Sp.=183
P.as
29.1.86
n.Sp.=99
P.a.
27;1.86
3.BERND
DURCHS.=
140.1818
ANZAHL
DER
SPIELE=11.
h.$p.=195
P.as
28.1.86
n.Sp.=112
P.as
29.1.86
4. E
111'1
A
DURCHS.=
139.6a90
AHZAHL
DER
SPIELE=15.
h.Sp.=199
P.as
27.1.86
n.Sp.=191
P.a.
29.1.86
5.LUTZ
DURCHS.=
135.2222
AHZAHL
DER
SPIELE=9.
h.Sp.=159
P.as29.1.86
n.Sp.=118
P.as
29.1.86
6
.HORST-U
DURCHS.=
126.37S9
AHZAHL
DER
SPIELE=8.
h.Sp.=156
P.as
29.1.86
n.Sp.=li8
P.as
19.2.86
/'lit unserea
Bowl
ing-
progra
••
haben
Sie
es
lei~hter,den
Besten
des
Abends
und
den
Jahresbesten
zu
er~it
teln.Is
Jahresausdruck
~ird
gleichzeitig
auch
das
hoechste
und
nie-
drigste
Spiel
.it
Datus
angezeigt.
Und
nun
zus
Prograss.
Erstsal
iger
Start
sit
RUH
und
Sie
ko
••
en ins
I'IEHUE
H"
a.ene
ingabe. Die
Anzahl der
Spieler
koen-
nen
Sie
je
nach
Spei-
cnerkapazitaet
des
Co.puters
sit
der
Yari-
ablen
L
(in
Zei
~e
19
und
6a9) anpassen.l'lit
DEF
B kossen
Sie
zu.
Bowl
ing-/'tenuejPIHEIHGABE
AUSDRUCK
TABELLr
ABEHD
I
und
JAHR.Weiter
zu.
Haechsten bei der
Pineingabe
.it
-1.
!'lit
DEF
C wird das
Pro-
grass
und
die
Variablen
au'
Band
gespeichert.
Rueckladen
.it
CLOAD
"BOWLIHG"und
DEF
D
'uer
die
Yariabelen.Start
jet
zt
i t .
DEF
A oder
DEF
B.(DEF
A nur bei
Erweiterung
der
Tei
1-
neh.eranzahl).Sie
koennen
jetzt
ein
Spiel
.enr
.achen
und
einen
Drink
sehr
~eniessen,
denn
die
laestige
Aus-
~ertung
ueberni.at
jetzt
jetzt
ihr
SHARP
PC1269
bez.1261.Strike
on
wuenscht
SHARP-Basic-Teas!
******************
*
cop~ri9ht
*
**1986******1986**
* *
*
S H A R P *
* *
*
Basic-Team
*
* *
******************
10:L=20:
DIM
BS(L),~S(L
)*8,HS(L)*8,D(L*4),E
(U,F(U
29:
Y
A
Y
WAIT
70:
PRIHT
"
1
Namen
eingeben
2
Haflen
erweite
rn":
IHPUT
Q:
WAIT
:
IF
.
Q=2
GOTO
4B8
25:FOR
X=1
TO
L:BS(X)="
E":F(X)=300:
NEXT
X
3a:WAIT
:
PRINT
"Nach
d
es
letzten
Nasen
ei
n E
ein,eben":
WAIT
9:
FOR
X=1
TO
L:
CLS
49:PRINT
"Haae
des "jXj
"Te i I nehflers":
CURSOR
24:
INPUT
BS(
X):
IF
B$(X)="E"
GOTO
S9
45:HEXT
x:
WAIT
S9:"B":
CLS
:
PAUSE"
9
Ha.en
ein<Jeben"
55:
PAUSE
." 1 Pineingabe
6B:PAUSE
" 2 Tabel
le
Ab
end';
79:PAUSE
" 3 Tabel le
Ja
hr"
7S:PAUSE
" 4
Ende"
88:
INPUT
/'I: IF
/'1=4
END
85:IF
1'1=9
GOTO
28
98:IF
1'1)1
GOTO
189
95:WAIT
0:
IHPUT
"Datu.
?
";TU
"
19a:FOR
X=l
TO
L:
IF
BS(
X)="P
GOTO
50
10S:D(X+2*L)=0:D{X+3*L)=
9:B=0:S=9
119:PRINT
X;B${X)
11S:CURSOR
24:
INPUT
"PI
NS='
jP
128:IF
P<0
THEN
140
122:IF P)=E(X)
LET
E(X)=
P:GS(X)=TH
124:IF
P<=F(X)
LET
F(X)=
P:H$(X)=TT$
130:B~B+l:S=S+P:
CLS
:
GOTO
110
149:IF
B=9
THEN
168
158:D(X+3*L)=B:D(X+2*L)=
S/B:Z=D(X)*D(X+L):D(
X+L)=D(X+L)+B:D(X)=(
Z+S)/D(X+U
169:CLS
:
NEXT
X:
WAIT
179:GOTO
58
188:FOR
X=1
TQ
L-l
199:FOR
Y=X+l
TO
l
288:IF
/'1=2
THEH
238
210:IF
D(X)<D(Y)
GOSUB
2
70
229:GOTO
249
239:IF
D(X+2*L)<D(Y+2*L)
GOSUB
278
249:HEXT
Y:
HEXT
X
269:GOTO
385
270:EE$=B$(X):U=D(X):Y=D
(X+L):W=D<X+2*L):T=D
(X+3*L):Q=E(X):H=F(X
):KKt=G$(X)
280:B$(X)=B$(Y):D(X)=D(Y
):D(X+L)=D(Y+L):D(X+
2*L)=D(Y+2*L):D(X+3*
U=D(Y+3*U
285:HH$=H$(X):E(X)=E(Y):
F(X)=F(Y):G$(X)=G$(Y
):HS(X)=H$(Y)
298:B~(Y)=EES:D(Y)=U:D(Y
+L)=Y:D(Y+2*L)=W:D(Y
+3*U=T
29S:E(Y)=Q:F(Y)=H:GS(Y)=
KK$:H$(Y)=HH$
389:RETURH
38S:IF
M=2
LPRIHT"
"j
"ABEHDTABELLE':
LPRIHT
"
T$
398:IF
~=3
LPRINT
"JAHRESTABELLE":
LPRIHT"
Stand:'jT
T$
319:FOR
X=l
ro
L
315:IF
/'1=3
AHD
D(X+L)=8
GOTO
340
329:IF
M=3
LPRJHT
XjB$(X
)
322:IF
/'1=3
LPRIHT
"
·j"D
URCHS.=·j
USIHG
·111
1.1111";
DOO
324: IF
1'1=3
LPR1HT
"
·;·A
HZAHL
DER
SPIELE="j
USIHG
jD(X+U:
LPRINT
"
h.Sp.=";
STRS
E(X)j"
P.a.
";G
$(X)
325:IF
M=3
LPRIHT
n.Sp
.="j
STRS
F(X)j·
P.a
';
H$O<">
328:IF
1'1=2
AHD
D(X+3*L)=
8
GOTO
348
338:IF
1'1=2
LPRIHT
XjBS(X
)
332:IF
M=2
LPRIHT
"
"j·D
URCHS.="j
USrHG
~III
1.IIII"jD(X+2*L)
334:IF
1'1=2
LPR1HT
"
·j"A
HZAHL
DER
SPIELE='j
USING
jD(X+3*U
349:HEXT
X
350:GOTO
58
48a:FOR
X=l
TO
L:
IF
BS(
X)='E'
GOTO
448
418:HEXT
X
420:PRIHT
"Speicher
ist
vo
I I
':
GO
TO
59
448:
IF
X=29
PRIHT
9Letzt
er
Te
i I
neh.er"
4S8:WAIT
8:
PRINT
des
9jXj
'Tei
In
••
CURSOR
24: I
B$(X):
GOTO
58
599:'C"
WAIT:
PRINT
9
Re
corder
yo
rber
e i
ten
9
518:CSAYE
·
BOW
LING·:
PRINT
IA*,B$(*),GS,*
),H.(*),D(*),E(*),F(
*):
EHD
688:'D'
PRINT
'Recorder
Yorbereiten":L=28:
DI/'I
B.(L),G.(L)*8,H.
(L)*8,D(L*4),E(L),F(
L>
E:
I]
~.J
LI
t·~
13
618:IHPUT
IA*,B'(*),G$(*
.
),H'(*),D(*),E(*),F(
__________
~
__
--
__
--~
__
~
__
~~
__
~
__
------------
.):
GOTO
59
-----------------------------------------
nl.
i
tiM;;
-
SHARP-Computer
Heft
16
Se~
te
10
--~~------~~~~~~~
Page view 9
1 2 ... 5 6 7 8 9 10 11 12 13 14 15 ... 59 60

Comments to this Manuals

No comments