Inhaltsverzeichnis
Werbung
All
and more about Sharp
PC-1
500 at http://www.PC-1500.info
•
Programmlisting
(PC-1500
)
l
8
:
01
M
TJ(
20
),
ME$
<28l1: !8
20
:
SETCOM
l
200,
8,
N,
1
30: SETDEV
200: SET DEV
Kl
2
J.0 :A=0
2
1 1:
INPUT
$8
$
:
9
=
VAL
(8$
)
2 12:
!
F
B=-
JTHEN
3
0
0
220: !NPVT
SCS
223
: JNPUT SMES<A>
228
:
T!<A>=UAL <CS>
23J:SETDEV
PO
23/:LPRIN
T
"O"
233:SETO
EV K!
23
~
:
J
F
B=J THEN 300
2
~
0:A
:
A+
J
23
0:
1 F
A>20THEN
STO
P
2G0:GO TO
2!!
30
0
:C
~
A
310:
SE
TDEU
320:
GO TO
400
400:
"
I\":
ZS="
"
:
INPUT
"DI
S?<=>
:PR
I
H,
i
NT<„>EX
T<-
>"
;
Zs
~
J
0: 1 F
ZS="
="
rt<EN
5
00
4::>0:
IF
2S="
•
"
i HEN
700
.4
21
: !
F
Zs=
"-"T
HEN
900
430: GO TO
40
0
50
0: wA
JT
1
5
J0
:
Q=0
S20:
PR
JNT
US ING
"
M
ttN•
ti
t1i
'";
T J
<A >;
..
:
"
;Mt:S(A)
530:c:>s
=JNKE
Y
S
s~
a
:
JF
AS=CHRS
<1
0
>THEN
5
00
550:
IF
Q$=CHRS
(
J
J
>THEN
850
560
:
!F
As
=CHRS (24
>THEN
400
5;>0:
COTO
5
30
600:
Q=A+
l
6
10
: l
f A)CLET A·•0
6 20:GO
TO
520
i;se:A~A
-
J
650:
t
<
A<
0LE
T
A=C
e;>e: GOTO
520
700 :CS
!
ZE 2
:
LPR
JNT
730:FOR A=0 TO C
7qß
:L?RIN
T USJ
NG '
O~~U
M
"
:
il
<A
>
; ··
;
"
: LPR
!
NT
ME
S(A
J
750: NEXT
A
?;>0:GOT
O 400
800:CONSOLE 80,
1
8 10:
Of'N
"LPRT"
s;ia:
FOR
A=0
TO c
830:LPRJNT
US
!NG
•
AliM
RMU
"
; T
l<
il
>
;
"
;
";MEs
<A
>
8~
0
:
N
E
XT
A
850:0PN
B60:
CO
TO 400
<;
llHUS
687
402
Do not
sell
this PDF !!!
Speicherinh•lt
A
O't~nlr~
B
E
n'*FI~
c
Endp:1nk.t
AS
Stc-
.
11
Hun9
1111
Auf•
vnd
A1)w.i
r
l.,vl!1~d11t1b"'n9
es
!:1
n
p
lo1
1y"f)utf"1
CS
E
mpfa~pu
f
l(l:
zs
\\'ahl des An.itlgitmiutl\
T!(20)
o,„,„.
t"'}SC~>
•
c2
0>
1lit: iro1...-.;
Werbung
Inhaltsverzeichnis
