home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
TABSLIDE.OPT
< prev
next >
Wrap
Text File
|
1995-05-02
|
6KB
|
198 lines
def(i)
def(j)
def(t)
def(y)
begin
readsound('typewrite.snd')
readfont(1,'hel15x29.fnt')
readfont(2,'tri22n.fnt')
readfont(3,'sx5x8.fnt')
readpic('tut.bmp')
font(1)
textbcolor(248)
textshadow(4,3)
textcofs(0)
gradation(224,239,4,4,0,60,50,5)
getsubpal(14)
getsubpal(15)
fadeout(0) <-- aus'rem'men, um Bildaufbau zu beobachten
setsubpal(14)
textcolor(239)
printc(400,430,'etwas Geduld, bitte...')
textcolor(249)
keycol(141)
key(on)
loadwin(457,10,20,0)
for i:=0 to 1 do
writestyle(3-2*i)
for j:=0 to 2 do
printc(220+i, 80+j*60,'Person Person')
printc(220+i,100+j*60,'weiblich / 2F maennlich/2M')
next(j)
next(i)
copywin(10,0,639,340)
keycol(0)
clearscreen(247)
loadwin(100,35,20,0)
key(off)
for i:=0 to 2 do
viewport(1,160+i*120,639,180+i*120)
cbox(9,249,0)
plateau(255,241)
next(i)
writestyle(3)
for i:=0 to 1 do
printat(20+i,185,' 209 75.240 215.950 216 77.760 216.450')
printat(20+i,215,' 416 149.760 431.900 430 154.800 432.900')
printat(20+i,245,' 623 224.280 647.850 644 231.840 649.350')
printat(10+i,305,' 100.000 7.000 107.000')
printat(10+i,335,' 200.000 14.000 214.000')
printat(10+i,365,' 300.000 21.000 321.000')
next(i)
font(3)
copywin(0,20,639,440)
clearscreen(247)
font(2)
writestyle(1)
textcolor(251)
for i:=-1 to 1 do
for j:=-1 to 1 do
printat(95+i,301+j,'1 4')
printat(95+i,361+j,'2 5')
printat(95+i,421+j,'3 6')
printat(74+i,56+j,'...Ihre XYZ *** -BANK')
next(j)
next(i)
textcolor(249)
printat(95,301,'1 4')
printat(95,361,'2 5')
printat(95,421,'3 6')
printat(74,56,'...Ihre XYZ *** -BANK')
font(1)
for i:=0 to 15 do
setcolor(224+i)
viewport(6+i/3,283+i/3,xmax-10-i/3,ymax-4-i/3)
rectangle
viewport(16-i/2,293-i/3,xmax-20+i/3,ymax-14+i/3)
rectangle
setcolor(248)
brushline(25+i,30+i,40+i,15+i,2,0)
brushline(25+i,318+i,40+i,303+i,2,0)
brushline(25+i,378+i,40+i,363+i,2,0)
brushline(25+i,438+i,40+i,423+i,2,0)
setcolor(249)
brushline(25+i,20+i,40+i,5+i,2,0)
next(i)
textcolor(249)
textbcolor(240)
writestyle(3)
textcofs(-1)
textshadow(1,1)
printat(74, 0,'So oder so. Eine Kapital-')
printat(74,22,'Lebensversicherung braucht man im Leben.')
font(0)
sysfont(0,1)
setcolor(248)
printat(100,137,' Geschlecht/Tarif')
printat(100,197,'monatl.Beitrag Gesamt- Ablaufleistung')
printat(100,205,' aufwendung')
printat(100,257,' Vers.-Summe Todesfallbonus Mindestleistung Bitte bewegen Sie')
printat(100,265,' im Todesfall *) die Maus (li.Taste')
printat(100,273,' = Tarifwechsel)')
setcolor(241)
printat(120,306,'Mit der ausgezahlten Beiträge zu einer Kapital-')
printat(120,316,'Ablaufleistung können Lebensversicherung sind (bis')
printat(120,326,'Sie die Zeit nach Ihrem zu bestimmten Höchstgrenzen)')
printat(120,336,'Berufsleben unabhängig steuerlich absetzbar.')
printat(120,346,'genießen')
printat(120,366,'Die Kapital-Lebensver- Freie Vertragsgestaltung:')
printat(120,376,'sicherung sorgt dafür, Welche Versicherungssumme oder')
printat(120,386,'daß Ihr Kapital ständig wieviel Sie monatlich aufwen-')
printat(120,396,'wächst. den wollen, bestimmen Sie.')
printat(120,426,'Wenn Ihnen etwas passiert, Unsere günstigen Konditionen')
printat(120,436,'ist Ihre Familie zumindest werden Sie überzeugen.')
printat(120,446,'finanziell abgesichert.')
font(3)
textcolor(240)
textcofs(1)
printat(351,100,'Berechnungsbeispiel:')
printat(350,100,'Berechnungsbeispiel:')
printat(350,117,'Versicherungsabschluss')
printat(350,127,'im Alter von 30 Jahren.')
printat(350,137,'Laufzeit: 30 Jahre')
printat(15,466,'*) plus angesammelte Ueberschuss- und Gewinnanteile nach Tarif')
setcolor(240)
for i:=0 to 1 do
viewport(94+240*i,154,215+240*i,195)
cbox(9,249,0)
rectangle
next(i)
viewport(548,158,562,252)
plateau(248,255)
viewport(219,99,330,130)
plateau(248,255)
for i:=0 to 2 do
disk(44,321+i*60,5,240)
disk(41,318+i*60,6,244)
disk(40,317+i*60,5,252)
disk(39,316+i*60,2,255)
for j:=0 to 1 do
viewport(99+i*120,159+j*60,210+i*120,190+j*60)
plateau(248,255)
next(j)
next(i)
viewport(20,297,614,460)
plateau(248,255)
loadsprite(322,12,545,10,85,128)
fadein(1) <-- hier wird erst eingeblendet
curson(550,160)
cursbound(550,160,550,250)
repeat
if j<60
inc(j,1)
cursmove(550,j+160)
else
startsound
endif
y:=mousey
if i=up
dec(y,2)
bound(y,160,250)
cursmove(550,y)
endif
if i=down
inc(y,2)
bound(y,160,250)
cursmove(550,y)
endif
y:=mousey-115
if mousek=1
xor(t,-1)
repeat
until mousek=0
endif
if t<>0
loadsprite(200,y,220,100,110,30)
for i:=0 to 2 do
loadsprite(321+i*104,y+120,100+i*120,160,110,30)
loadsprite(4+i*120,y+240,100+i*120,220,110,30)
next(i)
else
loadsprite(99,y,220,100,110,30)
for i:=0 to 2 do
loadsprite(5+i*105,y+120,100+i*120,160,110,30)
loadsprite(4+i*120,y+240,100+i*120,220,110,30)
next(i)
endif
if j>=60
repeat
i:=readkey+mousek
if i<>0
y:=-1
endif
until mousey<>y+115
endif
until mousek=2
end