home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_91-07_1991_-_de_Side_B.d64
/
Bakchart
< prev
next >
Wrap
Text File
|
2023-02-26
|
3KB
|
224 lines
{$f3}/clr
scnclr
sign40
zz$="$%ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 "
zz$=zz$+"abcdefghijklmnopqrstuvwxyz"
cursor15,0
modus1
print"Bankchart"
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.07):"
:eingabe
cursor29,5
input1,"1234567 ",n
ifn<1:eingabe
dime(n),f(n),g(n),p(n),q(n),r(n)
window2,10,36,9
sign40
dountilq=5
q=q+1
line1,23,80-q,303,80-q
line1,303+q,75,303+q,144
loop
q=0
i=0
dountili=6
i=i+2
cursor10,10+i
print"Name Bank";i/2;":"
cursor23,10+i
j=i/2
input9,zz$,na$(j)
loop
i=0
j=0
dountili=6
i=i+2
cursor10,10+i
print" "
loop
i=0
dountili=n
i=i+1
cursor7,10+i
print"Bank 1 / Wert Nr.";i;":"
cursor28,10+i
input4,"1234567890. ",e(i)
loop
i=0
dountili=n
i=i+1
cursor7,10+i
print" "
loop
i=0
dountili=n
i=i+1
cursor7,10+i
print"Bank 2 / Wert Nr.";i;":"
cursor28,10+i
input4,"1234567890. ",f(i)
loop
i=0
dountili=n
i=i+1
cursor7,10+i
print" "
loop
i=0
dountili=n
i=i+1
cursor7,10+i
print"Bank 3 / Wert Nr.";i;":"
cursor28,10+i
input4,"1234567890. ",g(i)
loop
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)
q(i)=int(180-f(i)/m*150)
r(i)=int(180-g(i)/m*150)
loop
i=0
scnclr
cursor15,0
modus1
print"Bankchart"
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
line1,35,180,45+38*n,180
box1,33,192,38,198
dountili=5
i=i+1
j=i+192
line1,33,j,38,j
loop
i=0
j=0
box1,128,192,134,198
box1,224,192,230,198
box1,224,194,230,198
box1,224,196,230,198
cursor5,24
print"=";na$(1)
cursor17,24
print"=";na$(2)
cursor29,24
print"=";na$(3)
px=40
df=40
i=0
dountili=n
j=0
k=0
l=0
i=i+1
ife(i)<1:rekurs1
box1,px,p(i),px+5,180
l=180-p(i)
dountilj=l
j=j+1
k=180-j
line1,px,k,px+5,k
loop
:rekurs1
px=px+df
loop
i=0
px=50
df=40
dountili=n
i=i+1
iff(i)<1:rekurs2
box1,px,q(i),px+5,180
:rekurs2
px=px+df
loop
i=0
px=60
df=40
dountili=n
j=0
k=0
l=0
i=i+1
ifg(i)<1:rekurs3
box1,px,r(i),px+5,180
l=(180-r(i))-3
dountilj>l
j=j+3
k=180-j
line1,px,k,px+5,k
loop
:rekurs3
px=px+df
loop
cursor6,1
printte$
cursor4,23
input35,zz$,tx$
cursor4,23
printtx$
do
loop
end.
z