home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_91-07_1991_-_de_Side_B.d64
/
Trdchart
< prev
Wrap
Text File
|
2023-02-26
|
2KB
|
183 lines
{$f3}/clr
scnclr
sign40
zz$="$%ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 "
zz$=zz$+"abcdefghijklmnopqrstuvwxyz"
cursor15,0
modus1
print"Trendchart"
modus0
window 7,4,25,3
q=0
dountilq=5
q=q+1
line1,63,32-q,255,32-q
line1,255+q,27,255+q,48
loop
q=0
cursor8,5
print"Datenanzahl (max.24):"
:eingabe
cursor29,5
input2,"01234567890 ",n
ifn<5orn>24: eingabe
dime(n),p(n),q(n),t(n)
window2,10,36,14
sign40
dountilq=5
q=q+1
line1,23,80-q,303,80-q
line1,303+q,75,303+q,184
loop
q=0
i=0
k=0
dountili=n
i=i+1
k=k+1
ifi=13:label1
:label3
cursor11,10+k
print"Wert Nr.";i;":"
cursor24,10+k
input4,"1234567890. ",e(i)
loop
i=0
gotolabel2
:label1
j=0
dountilj=12
j=j+1
cursor11,10+j
print" "
loop
k=k-12
j=0
gotolabel3
:label2
j=0
k=0
i=0
window1,15,38,3
dountili=5
i=i+1
line1,15,114+i,311,114+i
line1,310+i,115,310+i,137
loop
i=0
cursor2,16
print"Leg:"
cursor6,16
input32,zz$,te$
window8,14,25,5
dountili=5
i=i+1
line1,71,112-i,263,112-i
line1,263+i,107,263+i,144
loop
cursor10,15
print"Hoechster Skalenwert:"
:korrektur
cursor17,17
input4,"0123456789. ",m
ifm<10: korrektur
window1,1,1,1
window
i=0
dountili=n
i=i+1
p(i)=int(180-e(i)/m*150)
loop
i=1
j=0
dountili=n-1
i=i+1
j=j+1
t(j)=int((e(i-1)+e(i)+e(i+1))/3)
q(j)=int(180-t(j)/m*150)
loop
i=0
scnclr
cursor15,0
modus1
print"Trendchart"
modus0
line1,35,180,35,30
dountili=6
u=180-i*30
line1,33,u,37,u
i=i+1
loop
i=0
dountili=6
we=int(m/10*i*2)
w1$=str$(we)
we$=mid$(w1$,2,4)
ifwe<1000
begin
l=1
else
l=0
end
po=int((180-i*30)/8)
cursorl,po
printwe$
i=i+1
loop
i=0
dountili=n
i=i+1
u=27+12*i
line1,35,180,u,180
loop
i=0
dountili=n
i=i+1
u=27+12*i
line1,u,179,u,181
loop
i=0
dountili=n
i=i+1
u=27+12*i
v=27+u
ife(i)<1:label4
box1,u-2,p(i)-2,u+2,p(i)+2
:label5
loop
gotolabel6
:label4
box1,u-2,178,u+2,182
gotolabel5
:label6
i=0
j=0
j=1
dountilj=n-2
j=j+1
u=27+12*j
v=12+u
line1,u,q(j-1),v,q(j)
loop
cursor6,1
printte$
box1,49,193,54,198
cursor7,24
print"=Realwerte"
line1,175,198,180,193
line1,174,198,179,193
line1,180,193,185,198
line1,179,193,184,198
line1,185,198,190,193
line1,184,198,189,193
cursor24,24
print"=Trendlinie"
cursor4,23
input36,zz$,a$
cursor4,23
printa$
do
loop
end.
z